definer
{

"Xact.FromTo_" "From To Virtual Relative Path"
"Exec" % " --> rel-path"
'Fup.From &"/"
Fup.To & &"/Upl_" &_Msg.msec'
newdef

"Xact.ToFrom_" "To From Virtual Relative Path"
"Exec" % " --> rel-path"
'Fup.To &"/"
Fup.From & &"/Upl_" &_Msg.msec'
newdef

"Xact.FromToX" "From To Virtual Location External"
"Exec" % " --> vir-msg-base"
'_Fup.DestUrl Xact.FromTo_ &'
newdef

"Xact.ToFromX" "To From Virtual Location External"
"Exec" % " --> vir-msg-base"
'_Fup.DestUrl Xact.ToFrom_ &'
newdef

"Xact.From" "From File Location of Message"
"Exec" % " --> dir-src"
'Fup.From ofsnap folder'
newdef

"Xact.To" "To File Location of Message"
"Exec" % " --> dir-src"
'Fup.To ofsnap folder'
newdef

"Xact.FromFromF" "From From File Location of Message"
"Exec" % " --> dir-src"
'Xact.FromFrom &"Upl_" &_Msg.msec'
newdef

"Xact.ToToF" "To To File Location of Message"
"Exec" % " --> dir-src"
'Xact.ToTo &"Upl_" &_Msg.msec'
newdef

"Xact.FromToF" "From To File Location of Message"
"Exec" % " --> dir-src"
'Xact.FromTo &"Upl_" &_Msg.msec'
newdef

"Xact.ToFromF" "To From File Location of Message"
"Exec" % " --> dir-src"
'Xact.ToFrom &"Upl_" &_Msg.msec'
newdef

"Xact.FromFrom" "From From File Location of Message"
"Exec" % " --> dir-src"
'Xact.From Fup.From & folder'
newdef

"Xact.ToTo" "To To File Location of Message"
"Exec" % " --> dir-src"
'Xact.To Fup.To & folder'
newdef

"Xact.FromTo" "From To File Location of Message"
"Exec" % " --> dir-src"
'Xact.From Fup.To & folder'
newdef

"Xact.ToFrom" "To From File Location of Message"
"Exec" % " --> dir-src"
'Xact.To Fup.From & folder'
newdef

"Xact.FromV" "From Virtual Relative Location of Message"
"Exec" % " --> vir-src"
'"/results/" Fup.From & &"/"'
newdef

"Xact.ToV" "To Virtual Relative Location of Message"
"Exec" % " --> vir-src"
'"/results/" Fup.To & &"/"'
newdef

"Xact.FromToV" "From To Virtual Location"
"Exec" % " --> vir-locn"
'Xact.FromV Fup.To & &"/"'
newdef

"Xact.ToFromV" "To From Virtual Location"
"Exec" % " --> vir-locn"
'Xact.ToV Fup.From & &"/"'
newdef

"Xact.FromToM" "From To Virtual Location with Base of Message"
"Exec" % " --> vir-locn"
'Xact.FromToV &"Upl_" &_Msg.msec'
newdef

"Xact.ToFromM" "From To Virtual Location with Base of Message"
"Exec" % " --> vir-locn"
'Xact.ToFromV &"Upl_" &_Msg.msec'
newdef

"Xact.DTime" "Date Time of Message"
"Exec" % " --> fmtd-dtime"
'_Msg.msec frombase$'
newdef

"Xact.DTrepl" "Replace Date and Time Anchors"
"Exec" % " str --> adj-str"
'"___Date___" Xact.DTime " " left$ dup !Msgr.Date replall
"___Time___" Xact.DTime " " right$ dup !Msgr.Time replall'
newdef

"Xact.Msg$" "Upload Xact Based on Message Msec"
"Exec" % " --> upl-xact"
'"Upl_" &_Msg.msec'
newdef

"File.Sid" "Create Unique Sid"
"Exec" % "sid-prefix --> unique-sid"
'*finsures ^"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" 32 right &'
newdef

"File.PreJpg" "Pre Write of Jpg File Safely"
"Exec" % "file-name source-file dest-folder -->file-name dest-file"
'third ^"_" jsnow ^ & ".gpj" reextend copyfile('
newdef
 
"File.PrePng" "Pre Write of Png File Safely"
"Exec" % "file-name source-file dest-folder -->file-name dest-file"
'third ^"_" jsnow ^ &".gnp" reextend copyfile('
newdef
 
"safe!xact" "Safe Xact Path and Text Extension Write"
"Exec" % "fileroot -->"
'xactext ".sts" reextend safetext'
newdef

"ofcur" "Prefix Directory of Current Interacting Xacts"
"Exec" % "filename --> filespec"
'"Current" connect'
newdef

"xact&" "Append Xact Nomer"
"Exec" % "str --> xact-nomer-added"
'xact &'
newdef

/*
"" ""
"Exec" % "-->"
""
newdef
*/

"ofxone" "Prefix Directory of Xact Interaction"
"Exec" % "filename --> filespec"
'"xact1\" ofsnap ^'
newdef

"ofyone" "Prefix Directory of Baby Interaction"
"Exec" % "filename --> filespec"
'"xact2\" ofsnap _BabyActions { -1 left ^"n" } { } ifelse ^'
newdef

"phase" "Get Phase of Current Xact"
"Exec" % "-->"
"*xactninf _Camera.Phase"
newdef

"jsx!xact" "Add Jsx Extension and Save to Xact"
"Exec" % "jsx-data fileroot -->"
"jsx ofxact write"
newdef

"curxlow" "Read Current Xact Effective Low Marker from Bin"
"Exec" % "-->"
'"_curxlow" text_bin zeronull !Xact'
newdef
/*
"curyact" "Read Current Xact Marker from Bin for Builder"
"Exec" % "-->"
'"_curyact" text_bin zeronull !Xact'
newdef
*/
"curzact" "Read Current Xact Marker from Bin for MMS"
"Exec" % "-->"
'"_curzact" text_bin zeronull !Xact'
newdef

"oftack" "Prefix Tacks Xact Directory"
"Exec" % "file-name --> file-spec"
"_Tack *xactfold ^_Xact.Dir"
newdef

"text!tack" "Tack Path and Text Extension Write"
"Exec" % "data fileroot -->"
"text oftack write"
newdef

"text_tack" "Add Text Extension Read From Tack"
"Exec" % "fileroot --> data"
"text oftack read"
newdef

"text*tack" "Tack Path and Text Extension Exec"
"Exec" % "fileroot -->"
"text oftack exec"
newdef

} if