$  Program to compile the code generator files

proc compile( file ):
     say "*** Compiling" file

     obey "b" file "ws25000"

     if  rc ~= 0  then  exit( 20, "Compilation of" file "failed, RC" rc )  fi
corp


if  args = ""  then  args  :=  "cg1 cg2 cg3 cg4 cg5 cg6"  fi

parse args:  file, args

until  file = ""
  do
    compile( file )
        
    parse args:  file, args
  od

obey "joincg"


