%
% conduit analysis of message records
%
empty !builder

false !Conduit.Worker
empty ofrslt
%%% "rescond" log)(
empty
{
%
% for each file in Results that is tagged as
% a stored message in conduit
%
 "*.tag" !wilder
 nextfile ?
"nextag" log)(
 @Xls
 @_xlIact
 {
"interact" log)(
 }
 {

%
% see what type of message file this is
% by unhexing the file name
% a .txt is an outgoing message
%
 dup fileroot hex2asc
dup logs
 dup exists
"exists" log)(
 {
%
% proper file, check extension first
%
  dup extension
"extens" log)(
  <
  |.mtm
%
% outgoing mms message type
%
   read
   length 200 lt
   {
%
% this is a hexascii error message
%
    pop
   }
   {
    *condbldx
    *condmtmr
    *condbldr
   } ifelse
  |.sts
%
% outgoing sms message type
%
   read
   length 200 lt
   {
%
% this is a hexascii error message
%
    pop
   }
   {
    *condbldx
    *condstsr
    *condbldr
   } ifelse

  |.txt
%
% incoming sms or mms twid fragment
%
   read
   length 200 lt
   {
%
% this is a hexascii error message
%
    pop
   }
   {
    *condbldx
    *condsmsr
"condsmsr" log#
    *condbldr
   } ifelse
  |.xtx
%
% incoming full mms message
%
   read
   length 200 lt
   {
%
% this is a hexascii error message
%
    pop
   }
   {
    *condbldx
    *condmmsr
    *condbldr
   } ifelse
  |.nam
%
% incoming name change
%
   read
   *condnamx
%%%   *condbldx
%%%   *condmmsr
%%%   *condbldr
   "NME" !Field.Mtype
  > not
  {
"erroneous file ref" log)(
   pop
  } if
 }
 {
"missing file ref" log)(
  pop
 } ifelse
 finaled
 true !Conduit.Worker
 } ifelse

 true ?
} loop
filing)


_builder
any?
{
dup logs
%
% load the csv row into the next open area on the raw sheet
%
 _Field.Mtype
 <
 |NME
  "appender.txt" oftell writeb
  "appender.txt" _Field.num "Name&!" *xlsrfunc
  pop

 |MMG
  pop
 > not
 {
  "appender.txt" oftell writeb
  _Aamg.Testing
  {
   pop
  }
  {
   "appender.txt"
   "Msg&!" *xlsrfunc
"msgappend" log)(
   pop
  } ifelse
 } if 
} if

_Conduit.Worker
{
}
{
%
% no cog directive
% check for gating lifted
%
 _Conduit.Gating zeronull
 {
 }
 {
%
% no cog directive, first time through gating check
% send unhold directive to excel
%
  "UnHold" *xlsrfunc pop
  true !Conduit.Gating
 } ifelse
} ifelse