home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol173 / kwic.cnv < prev    next >
Encoding:
Text File  |  1984-07-15  |  708 b   |  22 lines
  1.  
  2. [KWIC.CNV]
  3. [Harold V. McIntosh, 22 March 1984]
  4. [[KWIC INDEX]]
  5.  
  6.  
  7.  
  8. [Bind keyword]
  9. (()( (                         ) S )(8)( (<8>,(b,(e,(%R,<9>)))); )) a
  10. [KWIC line]    (()()(0 1)( ((^Z),);
  11.         (<0><8><1>,(, (%T,(c,<0>) <8> (d,<1>)) )(e,(%R,<9>))):
  12.         (,(e,(%R,<9>))): )) b
  13. [left segment]  (()()(0)( (<-->(and,<[25]><>,<0>),<0>); (<0>,(S)<0>): )) c
  14. [right segment] (()()(0)( ((and,<[25]>,<0>),<0>); (<0>,<0>(S)): )) d
  15. [find tabs]     (()()(0 1 2)(
  16.         ((and,<[8]>,<0>(^I)<1>)<2>,(f,<0>)(e,<1><2>));
  17.         ((and,<[8]>,<0>)<2>,<0>(e,<2>));
  18.         (<0>(^I)<1>,(f,<0>)<1>): )) e
  19. [expand tabs]    (()()(0)( ((and,<[8]>,<0>),<0>); (<0>,<0>        ): )) f
  20. [main program]    (()()(9)( (<9>,(%Or,<9>)(, (%T,Keyword?) )(a,(%R,TTY:))); ))
  21. [end]
  22.