%
% copy the incoming MMS images into the same incoming folder
%

"SmsIn" *allseter
-1 left ^"c"
empty
%
% stack: mms-folder next-mms-seed
%
{
 "MMS_*.jpg" !wilder
 nextfile ?
"mmimg" log)(
 filing
%
% stack: mms-folder next-mms-seed next-mms
%
 "MMS" *allseter ofincom
%
% stack: mms-folder next-mms-seed next-mms dest-folder
%
 folder
%
% stack: mms-folder next-mms-seed next-mms dest-folder
%
 File.PreJpg
%
% stack: mms-folder next-mms-seed dest-file
%
% check the hex encoded message for Baby routing
%
 dup
"finimgb" log)(
 dup "_" left$/ "_" right$/
",k,k,k,k" log)(
 hex2asc "#" atleft
 {
%
% route as seed for Baby system
%
  ".bab" reextend
 }
 {
%
% normal jpeg routing
%
  jpeg
 } ifelse

"finimgc" log)(
 movefile
dup logs
%
% stack: dir seed
%
 finaled
} loop
%
% remove seed for jpgs
%
pop
%
% restart seed for pngs
%
empty
{
 "MMS_*.png" !wilder
 nextfile ?
"mmimg" log)(
 filing
%
% stack: mms-folder next-mms-seed next-mms
%
 "MMS" *allseter ofincom folder
%
% stack: mms-folder next-mms-seed next-mms dest-folder
%
 File.PrePng
%
% stack: mms-folder next-mms-seed dest-file
%
% check the hex encoded message for Baby routing
%
 dup "_" left$/ "_" right$/
",k,k,k,k" log)(
 hex2asc "#" atleft
 {
%
% route as seed for Baby system
%
  ".bac" reextend
 }
 {
%
% normal png routing
%
  png
 } ifelse
"finimgd" log)(
 movefile
%
% stack: dir seed
%
 finaled
} loop
filing)

@@