definer
{

"xonetext" "Text of Xone"
"Exec" % "prefix --> xone-text"
'text ofxone'
newdef

"xoned" "Prefix Server Locker Code to Suffix and Text"
"Exec" % "prefix --> locker-suff-text"
'^_Arching.ServLock xonetext'
newdef

"xoned<" "Prefix Original Locker Code to Suffix and Text"
"Exec" % "prefix --> orig-suff-text"
'^_Arching.OrigLock xonetext'
newdef

"xoned?<" "Prefix Original Locker Code with Suffix Text Exec and Finaled if Exists"
"Exec" % "suffix --> existed"
'
xoned< dup exists
{
 dup exec$ ".xtx" overext
 true
}
{
 pop
 false
} ifelse
'
newdef

"lockxone<" "Original Server Lock Text File"
"Exec" % "--> xone-lock-file"
'_Arching.OrigLock xonetext'
newdef

"lockxone" "Server Lock Text File"
"Exec" % "--> xone-lock-file"
'_Arching.ServLock xonetext'
newdef

"lock&" "Append Server Lock Text File Part"
"Exec" % "part-spec --> xone-lock-file-spec"
'&_Arching.ServLock xonetext'
newdef

"xlsrec" "Parse Inflow Record for Excel"
"Exec" % "hdr-var -->"
`dup ^"Field." _ *condimpl`
newdef

"xlsesc" "Parse Escaped Inflow Record for Excel"
"Exec" % "hdr-var -->"
`dup ^"Field." _ unescape *condimpl`
newdef

"xlshex" "Parse Hex Format Inflow Record for Excel"
"Exec" % "hdr-var -->"
`dup ^"Field." _ hex2asc *condimpl`
newdef

"xlsenc" "Parse Encoded Inflow Record for Excel"
"Exec" % "hdr-var -->"
`dup ^"Field." _ *unencode *condimpl`
newdef

"xheader" "Isolate Xml Node Header"
"Exec" % "xml-text hdr-name --> xml-text header-content"
`second exch dup !header ^"<" right$ ">" left$`
newdef

"xattrib" "Isolate Xml Node Attribute"
"Exec" % "xml-text hdr attr --> xml-text hdr"
`2 copy &'="' right$ '"' left$ exch ^"Field." exch second log)( exch !`
newdef

"xvalat" "Isolate Xml Node Value Attribute"
"Exec" % "xml-text node-text val-name --> xml-text node-text"
`
2 copy
exch "></" &3 &">" "/>" exch replall exch
^"<" right$ ">" left$
'value="' right$ '"' left$
exch ^"Field." exch second log)( exch !
`
newdef

"xvalue" "Isolate Xml Node Content Value"
"Exec" % "xml-text val-name --> xml-text"
`
2 copy
exch "></" &3 &">" "/>" exch replall exch
^"<" right$ ">" right$ second ^"</" left$
 exch ^"Field." exch second log)( exch !
`
newdef

"oftell" "Prefix Installation Telling Folder"
"Exec" % "reg-name --> dir-file-part"
'
_Arching.Combo
_Arching.Dombo or
{
 "Bin\Tree\Tell" conduit
}
{
 "Tell" connect
} ifelse
'
newdef

"oflocn" "Prefix Installation Location Folder"
"Exec" % "reg-name --> dir-file-part"
'
_Arching.Combo
_Arching.Dombo or
{
 "Bin\Tree\Locn" conduit
}
{
 "Locn" connect
} ifelse
'
newdef

"ofrslt" "Prefix Installation Location Folder"
"Exec" % "reg-name --> dir-file-part"
'"Results" conduit'
newdef

"ofmedia" "Prefix Installation Media Folder"
"Exec" % "reg-name --> dir-file-part"
'
_Arching.Combo
_Arching.Dombo or
{
 "Bin\Tree\Media" conduit
}
{
 "Media" connect
} ifelse
'
newdef

"ofmail" "Prefix Installation Email Folder"
"Exec" % "reg-name --> dir-file-part"
'
_Arching.Combo
_Arching.Dombo or
{
 "Mail" ofctre folder ^
}
{
 "Mail" connect
} ifelse
'
newdef

"maildom" "Domain Mailbox"
"Exec" % "--> mail-addr"
'_Arching.DomMail &"@" &_Arching.Domain'
newdef

"ofinst" "Prefix Installation Connector Folder"
"Exec" % "reg-name --> dir-file-part"
'"Inst" connect'
newdef

"ofreg" "Prefix Registration Connector Folder"
"Exec" % "reg-name --> dir-file-part"
'"Reg" connect'
newdef

"ext*reg" "Execute Extended in Registration Folder"
"Exec" % "reg-prefix extension -->"
'exch inst$ & ^ ofreg exec$'
newdef

"oftwid" "Prefix Twilio Incoming Connector Folder"
"Exec" % "twilio-name --> dir-file-part"
'"Twid" connect'
newdef

"oftwix" "Prefix Twilio Outgoing Connector Folder"
"Exec" % "twilio-name --> dir-file-part"
'"Twix" connect'
newdef

"ofmms" "Prefix Mms Outgoing Connector Folder"
"Exec" % "file-name --> dir-file-part"
'"Mms" connect'
newdef

"oftwil" "Prefix Twilio Connector Folder"
"Exec" % "twilio-name --> dir-file-part"
'"Twil" connect'
newdef

"ofgate" "Prefix Folder of Access Gating"
"Exec" % "str --> gate-spec"
'"Gating" connect'
newdef

"Msg.*?" "Determine Message Validity from Dir and Seed"
"Exec" % "dir seed --> dir seed valid"
'
empty !Msg.xact
empty !Msg.numbr
execing
_Msg.numbr any)?
'
newdef

"connect" "Prefix Connector Yielding Folder"
"Exec" % "str dir-name --> str-folder-spec"
'ofconn folder ^'
newdef

"conduit" "Prefix Conduit Yielding Folder"
"Exec" % "str dir-name --> str-folder-spec"
'ofcond folder ^'
newdef

"snaps" "Prefix Snap Results Yielding Folder"
"Exec" % "str dir-name --> str-folder-spec"
"ofsnap folder ^"
newdef

"ofvias" "Prefix Vias Connector Folder"
"Exec" % "vias-name --> dir-file-part"
'"Vias" connect'
newdef

"ofmerch" "Prefix Commerce Connector Folder"
"Exec" % "merch-name --> dir-file-part"
'"Commerce" connect'
newdef

"ofmsg" "Prefix Message Connector Folder"
"Exec" % "msg-name --> dir-file-part"
'"Message" connect'
newdef

"ofpurch" "Prefix Purchase Connector Folder"
"Exec" % "purch-name --> dir-file-part"
'"Purch" connect'
newdef

"ofsrvc" "Prefix Service Connector Folder"
"Exec" % "srvc-name --> dir-file-part"
'"Serv" connect'
newdef

"ofserv" "Prefix Conduit Bin Service Folder"
"Exec" % "serv-name --> dir-file-part"
'"Serv" ofcbin folder ^'
newdef

"ofctre" "Prefix Conduit Bin Connector Folder"
"Exec" % "ctre-name --> dir-file-part"
'"Tree" ofcbin folder ^'
newdef

"ofphos" "Prefix Current PhoSend Phone Connector Folder"
"Exec" % "phos-file --> fspec"
'^_Arching.Phosend'
newdef

"phosend!" "Set PhoSend Phone Connector Folder in Snap"
"Exec" % "cond-phone -->"
'ofsnap folder !Arching.Phosend'
newdef

"ofatns" "Prefix Conduit Result Connector Atns Folder"
"Exec" % "atn-name --> dir-file-part"
'"Atns" phosend'
newdef

"ofback" "Prefix Conduit Result Connector Backs Folder"
"Exec" % "back-name --> dir-file-part"
'"Backs" phosend'
newdef

"offont" "Prefix Conduit Result Connector Fonts Folder"
"Exec" % "font-name --> dir-file-part"
'"Fonts" phosend'
newdef

"ofpico" "Prefix Conduit Result Connector Picons Folder"
"Exec" % "picon-name --> dir-file-part"
'"Picons" phosend'
newdef

"ofprts" "Prefix Conduit Result Connector Printers Folder"
"Exec" % "printers-name --> dir-file-part"
'"Printers" phosend'
newdef

"ofprod" "Prefix Conduit Result Connector Products Folder"
"Exec" % "prod-name --> dir-file-part"
'"Products" phosend'
newdef

"ofphtem" "Prefix Phosend Result Connector Templates Folder"
"Exec" % "tem-name --> dir-file-part"
'"Templates" phosend'
newdef

"phosend" "Prefix Result Connector Yielding Folder"
"Exec" % "dir-name --> folder-spec"
'ofphos folder ^'
newdef

"oftico" "Prefix Conduit Result Connector Ticons Folder"
"Exec" % "ticon-name --> dir-file-part"
'"Ticons" phosend'
newdef

"ofcbin" "Prefix Conduit Bin Folder"
"Exec" % "cbin-name --> dir-file-part"
'"Bin" conduit'
newdef

"ofcond" "Prefix Conduit Folder"
"Exec" % "cond-name --> dir-file-part"
'_Arching.Conduit folder ^'
newdef

"bintree" "Bin Tree Folder"
"Exec" % "--> bin-tree-folder"
'"Tree\" ofbin'
newdef

"oftree" "Prefix Bin Tree Folder"
"Exec" % "trcmd-name --> dir-file-part"
'bintree ^'
newdef

"ofglo" "Prefix Global Connector Folder"
"Exec" % "conn-name --> dir-file-part"
'"Global" ofconn -1 left ^"c" folder ^'
newdef

"clogged" "Make Connector Typed Log Entry"
"Exec" % "file-data clog-type -->"
'&"_" jsnow & clog!'
newdef

"clog!" "Make Connector Log Entry"
"Exec" % "file-data clog-filename -->"
'ofclog &".log" write'
newdef

"ofclog" "Prefix Connector Log Path"
"Exec" % "filename --> filespec"
'^"Log\" ofconn'
newdef

"text?conn" "Lookup Action for Text File in Connector"
"Exec" % "lookup file-root --> [ . . ] found"
"text ofconn exch Str.NoSpaces exch lookin"
newdef

"email_" "Get Email Address of Subject Number"
"Exec" % "subject --> has-email"
'empty !Msg.email &"_info" text*subj _Msg.email any)?'
newdef

"email!" "Set Email Address of Subject Number"
"Exec" % "email subject -->"
'exch !Msg.email &"_info" empty "Msg.email" sval exch text!subj'
newdef

"Cton.Cmd" "Run Cutter Process Copy In/Out"
"Exec" % "subject cmd -->"
'
second !Cton.Root
&".cmd" ofapp
&" " ^ &" " &_Arching.ServLock
"cutter_" Cton.UnCmd
^"cmd /C "
*runsnorm
'
newdef

"Cton.Run" "Run Cutter Process Copy In"
"Exec" % "subject -->"
'"xcut" Cton.Cmd'
newdef

"Cton.Sun" "Run Cutter Process Copy Out"
"Exec" % "subject -->"
'"ycut" Cton.Cmd'
newdef

"Cton.UnCmd" "Finalize Command"
"Exec" % "cmd-type -->"
'locked ofxone ".xtx" overext'
newdef

"Cton.UnCut" "Finalize Cutter Command"
"Exec" % "-->"
'"cutter_" Cton.UnCmd'
newdef

"Cton.UnPrt" "Finalize Printer Command"
"Exec" % "-->"
'"printer_" Cton.UnCmd'
newdef

} if