home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / demo / pctcp / program / disk4 / cconv.st_ / cconv.st
Encoding:
Text File  |  1994-06-13  |  6.8 KB  |  248 lines
  1. :(o,,**************************************************************************
  2.  
  3. CCONV.STP  TRAC Script to Convert COMSCRPT Scripts to SLANG Scripts
  4.              -- written 30-Mar-1994 by Craig Lennox
  5.  
  6. ******************************************************************************)
  7.  
  8. :(s,c.)
  9. :(mm,c.Version,3.00            <* Version String for Converter *> )
  10. :(mm,c.lp,:(bxo,28)            <* left paren  *>                  )
  11. :(mm,c.rp,:(bxo,29)            <* right paren *>                  )
  12. :(s,c.crstr,:(bxo,28)cr:(bxo,29))
  13. :(s,c.lfstr,:(bxo,28)lf:(bxo,29))
  14. :(s,c.tabstr,:(bxo,9))
  15. :(mm,c.nl,(
  16. )                    <* New Line String *>              )
  17.  
  18. :(s,c.names,(pause,send,changemode,poll,;))
  19. :(mm,c.actions,(
  20.   (                            <* pause       *>
  21.     :(s,c.outstr,:(ri,c.pause))
  22.   ),(                            <* send           *>
  23.     :(s,c.outstr,:(ri,c.send))
  24.   ),(                                                   <* changemode      *>
  25.     :(s,c.outstr,:(ri,c.changemode))
  26.   ),(                            <* poll           *>
  27.     :(s,c.outstr,
  28.         :(r,c.lp)
  29.     (poll, )
  30.         :(s,c.arg,:(tn,c.instr,1))
  31.         :(ei,:(r,c.arg),,
  32.         (:(s,c.warning,
  33.           (invalid poll command: no layer specified)
  34.          )
  35.          :(s,c.outstr,)
  36.         )
  37.     ,
  38.         (:(ei,:(r,c.arg),p,
  39.           ((physical, )
  40.            :(tsd,c.instr,,( ))
  41.            :(s,c.arg,:(tn,c.instr,1))
  42.           )
  43.          ,
  44.           (:(ei,:(r,c.arg),l,
  45.             ((lcp, )
  46.              :(tsd,c.instr,,( ))
  47.              :(s,c.arg,:(tn,c.instr,1))
  48.             )
  49.            ,
  50.             (:(ei,:(r,c.arg),i,
  51.           ((ipcp, )
  52.            :(tsd,c.instr,,( ))
  53.            :(s,c.arg,:(tn,c.instr,1))
  54.           )
  55.          ,
  56.           (:(s,c.warning,
  57.             (invalid layer: specify physical, lcp or ipcp)
  58.            )
  59.            :(s,c.outstr,)
  60.            :(s,c.arg,( ))
  61.           )
  62.          ))
  63.            ))
  64.          ))
  65.     )
  66.       :(ei,:(r,c.arg),,(:(s,c.warning,
  67.         ( invalid poll command: need to specify open or closed ))
  68.           :(s,c.outstr,)),
  69.         (:(ei,:(r,c.arg),o,open,
  70.         (:(ei,:(r,c.arg),c,closed,
  71.         (:(ei,:(r,c.arg),( ),,
  72.         (:(s,c.warning,
  73.           (invalid poll command: need to specify open or closed))
  74.         :(s,c.outstr,)))))))))
  75.       :(r,c.rp))
  76.   ),(                            <* comment    *>
  77.     :(s,c.outstr,:(r,c.lp)(comment, {):(ts,c.instr,,)}:(r,c.rp):(r,c.nl))
  78.   )
  79. ))
  80.  
  81. :(mm,c.which?,(
  82.     :(ms,<1>,<2>)
  83.     :(mw,<1>)
  84.     :(ri,<1>,<3>)
  85. ))
  86.  
  87. :(mm,##,(
  88.   :(pc,(
  89.     :(fo1,<1>,(:(o,(Can't open comscrpt file "<1>", aborting conversion.)):(px)))
  90.     :(fg2,<2>)
  91.     :(ri,pp.out,:(ri,c.banner,<1p>,<2p>))            <* DEBUG    *>
  92.     :(pc,(
  93.     :(d,c.warning,c.comment,c.outstr)
  94.     :(s,c.instr,:(fr1,(
  95. ),,(:(px))))
  96.     :(tra,c.instr,:(tca,11),( ))
  97.     :(s,c.op,:(ts,c.instr,,( )))
  98.     :(s,c.tmpop,:(r,c.op))
  99.         :(ri,c.which?,c.tmpop,:(r,c.names),:(r,c.actions))
  100.         :(ri,pp.doline,:(r,c.outstr),:(r,c.instr),:(r,c.warning))
  101.     ),(-1),)
  102.   ),1)
  103.   :(fc):(fc2)
  104. ))
  105.  
  106. :(mm,c.mkcomment,(
  107.     :(bxo,3c)*<2p><1p><2p>*>(
  108. )))
  109.  
  110. :(mm,c.banner,(
  111.     :(ri,c.mkcomment,
  112. (************************** language=slang ***********************************
  113. *
  114. *  This File Converted From COMSCRPT Script Langauge TO SLANG Script Language
  115. *
  116. *  COMSCRPT (source) file:    <1p>
  117. *  SLANG (destination) file:  <2p>
  118. *  Conversion done on:        ):(xcf)(
  119. *  Converter Version:         v):(r,c.Version)(
  120. *
  121. ******************************************************************************))))
  122.  
  123. :(mm,c.mkstmt,(
  124.     :(r,c.lp)<1p>:(r,c.rp)
  125. ))
  126.  
  127. :(mm,c.send,(
  128.         :(s,c.tmp,:(tpe,c.instr))
  129.     :(tra,c.tmp,(\r),}:(r,c.crstr){)
  130.     :(tra,c.tmp,(\n),}:(r,c.lfstr){)
  131.     :(tra,c.tmp,(\t),:(r,c.tabstr))
  132.     :(ri,c.mkstmt,(send, {):(r,c.tmp)})
  133. ))
  134.  
  135. :(mm,c.changemode,(
  136.     :(ri,c.mkstmt,
  137.         (changemode, )
  138.         :(s,c.arg,:(tn,c.instr,1))
  139.         :(ei,:(r,c.arg),,
  140.           (:(s,c.warning,
  141.                   (No argument to changemode, assuming "packet"))
  142.           )
  143.         )
  144.         :(e,:(r,c.arg),c,char,packet)
  145.     )
  146. ))
  147.  
  148. :(mm,c.pause,(
  149.     :(ri,c.mkstmt,
  150.     (pause, )
  151.     :(s,c.arg,:(ts,c.instr,,( )))
  152.     :(ei,:(r,c.arg),,
  153.         (1000:(s,c.warning,                <* no argument       *>
  154.         (No argument to pause, using 1 second)))
  155.     ,
  156.         (:(r,c.arg):(e,:(tn,c.instr,1),m,,000,))    <* there is an arg *>
  157.     )
  158.     )
  159. ))
  160.  
  161. :(o,,**************************************************************************
  162.  
  163. included from:
  164. PP.STP  pretty print routines.
  165.         -clennox, 30-Mar-1994
  166.  
  167. ******************************************************************************)
  168.  
  169. :(s,pp.)
  170. :(o,,
  171.     <* pp - pretty print a line of text in columns. *>
  172.  )
  173.  
  174. :(mm,pp.lc,                            <* left comment bracket     *>
  175.  (  :(bxo,3c)(* ))
  176. )
  177. :(mm,pp.rc,                            <* right comment bracket    *>
  178.  ((*):(bxo,3e)))
  179.  
  180. :(mm,pp.sp,                            <* spaces                   *>
  181.  (  :(agi,<1>,0,
  182.      (  :(pc,(( )),<1>,,)))))
  183.  
  184. :(mm,pp.nl,                            <* newline                  *>
  185.  ((
  186. )))
  187.  
  188. :(s,pp.cw,24)                    :(o,, <* comment width            *>  )
  189. :(s,pp.col3,50)                  :(o,, <* start of column three    *>  )
  190. :(s,pp.col2,21)                  :(o,, <* start of column two      *>  )
  191. :(s,pp.ecol2,:(as,:(r,pp.col3),1)) 
  192.                                  :(o,, <* end of column two        *>  )
  193.  
  194. :(mm,pp.c,                             <* commentize               *>
  195.  (  :(s,pp.x1,<1p>)
  196.     :(s,pp.x2,:(tl,pp.x1))
  197.     :(s,pp.x1,:(tn,pp.x1,:(r,pp.x2),))
  198.     :(s,pp.x2,:(as,:(r,pp.cw),:(r,pp.x2)))
  199.     :(s,pp.x3,:(agi,:(r,pp.x2),0,(:(pc,(( )),:(r,pp.x2),,),,)))
  200.     :(ri,pp.lc):(r,pp.x1):(r,pp.x3):(ri,pp.rc))
  201. )
  202.  
  203. :(mm,pp.pp,                            <* pretty print             *>
  204.  (  :(s,pp.in,<1p>)                    <* save incoming to a var   *>
  205.     :(ei,:(r,pp.in),,(:(ri,pp.out,:(ri,pp.nl))),
  206.      (
  207.     :(s,pp.line,)
  208.     :(pc,
  209.      (  :(s,pp.tmp,:(ts,pp.in,,( ),(:(px))))  <* get next word     *>
  210.         :(agi,:(aa,:(tl,pp.line),:(tl,pp.tmp)),:(r,pp.cw),
  211.          (  :(ri,pp.out,:(ri,pp.c,:(r,pp.line)):(ri,pp.nl):(ri,pp.sp,:(r,pp.col3)))
  212.         :(s,pp.line,)
  213.          ),,)
  214.         :(s,pp.line,:(r,pp.line):(r,pp.tmp)( ))
  215.      ),-1,,)
  216.     :(ei,pp.line,,,(:(ri,pp.out,:(ri,pp.c,:(r,pp.line)):(ri,pp.nl))))
  217.      ))
  218. ))
  219.  
  220. :(mm,pp.out,
  221.  (  :(fw2,<1p>)))
  222.  
  223. :(mm,pp.doline,
  224.  (  :(s,pp.part1,<1p>(  ))
  225.     :(s,pp.part2,<2p>( ))
  226.     :(s,pp.part3,<3p>)
  227.     :(ri,pp.out,:(ri,pp.nl):(r,pp.part1))
  228.     :(s,pp.cp,:(tl,pp.part1))
  229.     :(agi,:(tl,pp.part2),:(r,pp.ecol2),
  230.      (  :(ri,pp.out,:(ri,pp.nl):(ri,pp.sp,8):(ri,pp.c,:(r,pp.part2))
  231.             :(ri,pp.nl))
  232.         :(s,pp.cp,0)
  233.      ),
  234.      (  :(ri,pp.out,:(ri,pp.nl):(ri,pp.sp,8):(ri,pp.c,:(r,pp.part2))
  235.         :(ri,pp.nl))
  236.         :(s,pp.cp,0)
  237.      ),
  238.              (  :(s,pp.cp2,:(as,:(r,pp.ecol2),:(tl,pp.part2)))
  239.                 :(agi,:(r,pp.cp2),:(r,pp.col2),(:(s,pp.cp2,:(r,pp.col2))),,)
  240.                 :(agi,:(r,pp.cp),:(r,pp.cp2),
  241.                  (  :(ri,pp.out,:(ri,pp.nl))
  242.                     :(s,pp.cp,0)),,)
  243.                 :(ri,pp.out,:(ri,pp.sp,:(as,:(r,pp.cp2),:(r,pp.cp))))
  244.                 :(ri,pp.out,:(ri,pp.c,:(r,pp.part2)))
  245.      )       )
  246.     :(ri,pp.pp,:(r,pp.part3))
  247.  ))
  248.