mim/development/mim/vax/mimlib/jcl.mud

   1 <PACKAGE "JCL">
   2
   3 <ENTRY JCLARGS? READARGS>
   4
   5 <DEFINE HNDLR (IGNORE)
   6   <GUNASSIGN SAVED-JCL>>
   7
   8 <COND (<AND <NOT <GASSIGNED? JCL-HANDLER>>
   9             <GASSIGNED? HNDLR>
  10             <LOOKUP "INTERRUPT" <ROOT>>
  11             <GASSIGNED? <LOOKUP "INTERRUPT" <ROOT>>>
  12             <==? <TYPEPRIM FIX> FIX>>
  13        <ON <SETG JCL-HANDLER <HANDLER "SAVE" ,HNDLR>>>)>
  14
  15 <DEFINE GETJCL ("AUX" JCL)
  16   #DECL ((JCL) <OR FALSE VECTOR>)
  17   <COND (<GASSIGNED? SAVED-JCL>
  18          ,SAVED-JCL)
  19         (<SET JCL <CALL GETS ARGV>>
  20          <MAPR <>
  21            <FUNCTION (V)
  22              <1 .V <I$STD-STRING!-INTERNAL <1 .V> T>>>
  23            .JCL>
  24          <SETG SAVED-JCL .JCL>)>>
  25
  26 <DEFINE JCLARGS? ("AUX" (JCL <GETJCL>))
  27   <COND (<OR <NOT .JCL>
  28              <L? <LENGTH .JCL> 2>>
  29          <>)
  30         (T)>>
  31
  32 <DEFINE READARGS ("AUX" (JCL <GETJCL>))
  33   #DECL ((JCL) <OR FALSE <VECTOR [REST STRING]>>)
  34   <COND (<AND .JCL <G? <LENGTH .JCL> 1>>
  35          <REST .JCL>)>>
  36
  37 <ENDPACKAGE>