mim/development/mim/vax/mimlib/dfldefs.mud

   1 <DEFINITIONS "DFLDEFS">
   2
   3 <USE "NEWSTRUC">
   4
   5 <GDECL (TDFL-BUF DFL-BUF DFL-ZERO-STR)
   6        STRING
   7        (DFL-FILNAM)
   8        <OR ATOM STRING>
   9        (DFL-FUNC-NAM)
  10        <OR STRUCTURED ATOM>
  11        (DFL-STRUC)
  12        <VECTOR [REST <OR STRING FALSE>]>>
  13
  14 <MSETG FILPTR-SAVE-BEG 1>
  15 <MSETG FILPTR-SAVE-END 2>
  16 <MSETG FILNAM-SAVE 3>
  17 <MSETG OBLIST-SAVE 4>
  18
  19 <NEWSTRUC UNTUPLE (VECTOR)
  20           BEGPTR FIX
  21           ENDPTR FIX
  22           NAMPTR ATOM
  23           FILPTR <VECTOR [4 STRING]>
  24           ASSOCI <VECTOR FIX FIX VECTOR>
  25           OBLPTR LIST>
  26 <END-DEFINITIONS>