home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / snoopy-2.0.lha / Snoopy / Macros / parse < prev    next >
Encoding:
Text File  |  1993-12-17  |  474 b   |  30 lines
  1. KEYWORD_COUNT    set    0
  2.  
  3. DEFINEKEYWORDSTRING    MACRO
  4. .keyword_\*VALOF(\1)    dc.b    KEYWORDSTRING_\*VALOF(\1),0
  5.             ENDM
  6.  
  7. keyword        MACRO
  8.         IFC    '\1','RESET'
  9. KEYWORD_COUNT    set    0
  10.         ELSE
  11.         IFC    '\1','DONE'
  12.         dc.l    0
  13.         FOR    i = 0 TO KEYWORD_COUNT-1 STEP 1
  14.         DEFINEKEYWORDSTRING i
  15.         NEXT    
  16.         even
  17.         ELSE
  18. KEYWORD_COUNT    set    KEYWORD_COUNT+1
  19. KEYWORDSTRING_\*VALOF(KEYWORD_COUNT)    SETSTR    '\2'
  20.         dc.l    .keyword_\*VALOF(KEYWORD_COUNT),Set\1
  21.         ENDC
  22.         ENDC
  23.         ENDM
  24.  
  25. defs        MACRO
  26.         xdef    \1
  27. \1        ds\0    \2
  28.         ENDM
  29.  
  30.