%begin  {modify all the custom files}

%include "inc:fs.imp"
%include "inc:util.imp"
%include "inc:fsutil.imp"
%include "inc:wild.imp"

%record(cellfm)%name f

%routine do file(%string(255)f)
%string(255)s,t,a,b
%integer i,k
  %on 3,9 %start
    closeoutput %if event_event=9
    %unless event_event=9 %start
      selectoutput(0); printstring(event_message); newline
    %finish
    closeinput; %return
  %finish
  selectoutput(0); printstring("File: ".f); newline
  openinput(1,f); openoutput(1,f."_")
  selectinput(1); selectoutput(1)
  %cycle
    readline(s); t = ""
    %for i = 1,1,length(s) %cycle
      k = charno(s,i); k = k!32 %if 'A'<=k<='Z'
      t = t.tostring(k) %unless k=' '
    %repeat
{start of mod}
!1! %if t -> a.("terminal=") %then t = "!(now automatic)! ".s %else t = s
!2! %if s -> a.(",l:wtlib.mob").b %then t = a.b %else-
!2! %if s -> a.("l:wtlib.mob,").b %then t = a.b %else-
!2! %if t -> a.("preloadl:wtlib.mob").b %then t = "" %else-
!2! %if s -> a.("l:wtlib,").b %then t = a.b %else-
!2! %if s -> a.(",l:wtlib").b %then t = a.b %else-
!2! %if t -> a.("installl:wtlib") %then t = "" %else-
!2! t = s
{3} %if t -> a.("!(nowautomatic)!").b %then t = "" %else t = s
{end of mod}
    %if t#s %start
      selectoutput(0)
      printstring("In:   ".s); newline; printstring("Out:  ".t); newline
    %finish
    selectoutput(1); printstring(t) %and newline %unless t="" %and s#""
  %repeat
%end

f == fileslist("custom:*.com")
%while f##nil %cycle
  do file(f_datum)
  f == f_link
%repeat

%end
