home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l170 / 3.ddi / REMLINE.BAS (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1991-01-29  |  10.6 KB  |  203 lines
  1. GetToken
  2. Search
  3. Delim
  4. StrSpn
  5. InString
  6.     Separator
  7. StrBrk
  8. IsDigit
  9. Char%
  10. GetFileNames
  11. BuildTable
  12. GenOutFile
  13. InitKeyTable
  14. TRUE:
  15. falseG
  16. MaxLines
  17.     LineTable
  18.     LineCount
  19. Seps,
  20.     InputFile
  21. OutputFile
  22. TmpFile
  23. KeyWordCount
  24. KeyWordTable
  25. KeyData
  26. FileErr1
  27. FileErr2
  28. InLin
  29. token
  30. KeyIndex
  31. LineNumber
  32. FoundNumber
  33. index
  34. BegPos
  35. SaveStr
  36. NewPos
  37. Count
  38. KeyWord
  39. CharAsc
  40.    Microsoft RemLine - Line Number Removal Utility
  41.    Copyright (C) Microsoft Corporation   - 1985, 1986, 1987
  42.    REMLINE.BAS is a program to remove line numbers from Microsoft BASIC
  43.    Programs. It removes only those line numbers that are not the object
  44.    of one of the following statements: GOSUB, RETURN, GOTO, THEN, ELSE,
  45.    RESUME, RESTORE, or RUN.s
  46.    REMLINE is run by typings
  47.  REMLINE [<input> [, <output>]]e
  48.    where <input> is the name of the file to be processed and <output>E
  49.    is the name of the file or device to receive the reformatted output.
  50.    If no extension is given, .BAS is assumed (except for output devices).
  51.    If file names are not given, REMLINE prompts for file names. If both)
  52.    file names are the same, REMLINE saves the original file with the
  53.    extension .BAK.
  54.    REMLINE makes several assumptions about the program:f
  55.  1. It must be correct syntactically, and must run in BASICA ort
  56.  GWBASIC interpreter.t
  57.  2. There is a 400 line limit. To process larger files, change
  58.  MaxLines constant.l
  59.  3. The first number encountered on a line is considered a line
  60.  number; thus some continuation lines (in a compiler specificn
  61.  constructiion) may not be handled correctly.o
  62.  4. REMLINE should not be used on programs that depend on ERL,
  63.  since ERL assumes the existence of line numbers.e
  64.    If you do not like the way REMLINE formats its output, you can modify
  65.    the output lines in SUB GenOutFile. An example is shown in comments.y
  66.  Function and Subprogram declarations.
  67.  Global and constant datad
  68.  Keyword search data
  69.  THEN, ELSE, GOSUB, GOTO, RESUME, RETURN, RESTORE, RUN
  70.  Start of module-level program codeE
  71. Working"
  72.  . . .
  73.       Invalid file name"
  74.       New input file name (ENTER to terminate): 
  75.       Output file name (ENTER to print to screen) :"
  76. GetToken
  77.  GetToken$:
  78.   Extracts tokens from a string. A token is a word that is surroundedP
  79.   by separators, such as spaces or commas. Tokens are extracted ande
  80.   analyzed when parsing sentences or commands. To use the GetToken$e
  81.   function, pass the string to be parsed on the first call, then pass
  82.   a null string on subsequent calls until the function returns a null
  83.   to indicate that the entire string has been parsed.n
  84.  Input:d
  85.   Search$ = string to search
  86.   Delim$  = String of separators
  87.  Output:
  88.   GetToken$ = next token
  89.  Note that SaveStr$ and BegPos must be static from call to callt
  90.  (other variables are only static for efficiency).
  91.  If first call, make a copy of the stringi
  92.  Find the start of the next tokene
  93.  Set position to start of token
  94.  If no new token, quit and return null
  95.  Find end of token
  96.  Set position to end of token
  97.  If no end of token, return set to end a value
  98.  Cut token out of search string 
  99.  Set new starting position
  100. StrSpn
  101.  StrSpn:
  102.   Searches InString$ to find the first character that is not one ofa
  103.   those in Separator$. Returns the index of that character. This
  104.   function can be used to find the start of a token.
  105.  Input:i
  106.   InString$ = string to search
  107.   Separator$ = characters to search fort
  108.  Output:
  109.   StrSpn = index to first nonmatch in InString$ or 0 if all match
  110.  Look for start of a token (character that isn't a delimiter).
  111. StrBrk
  112.  StrBrk:
  113.   Searches InString$ to find the first character from among those in
  114.   Separator$. Returns the index of that character. This function can
  115.   be used to find the end of a token.a
  116.  Input:e
  117.   InString$ = string to search
  118.   Separator$ = characters to search for
  119.  Output:
  120.   StrBrk = index to first match in InString$ or 0 if none matchn
  121.  Look for end of token (first character that is a delimiter).t
  122. IsDigit
  123.  IsDigit:
  124.   Returns true if character passed is a decimal digit. Since any
  125.   BASIC token starting with a digit is a number, the function only
  126.   needs to check the first digit. Doesn't check for negative numbers, 
  127.   but that's not needed here.g
  128.  Input:h
  129.   Char$ - initial character of string to check
  130.  Output:
  131.   IsDigit - true if within 0 - 9
  132. GetFileNames
  133.  GetFileNames:
  134.   Gets a file name from COMMAND$ or by prompting the user.
  135.  Input:a
  136.   Used Command$ or user inputN
  137.  Output:
  138.   Defines InputFiles$ and OutputFiles$
  139.  Microsoft RemLine: Line Number Removal Utility"
  140.        (.BAS assumed if no extension given)"
  141.       Input file name (ENTER to terminate): 
  142.       Output file name (ENTER to print to screen): "
  143.       Output file name (ENTER to print to screen): "
  144. .BAS)
  145. CON"d
  146. SCRNd
  147. PRN"d
  148. COM1d
  149. COM2d
  150. LPT1d
  151. LPT2d
  152. LPT3d
  153. .BAS)
  154. BAK")
  155. BuildTable
  156.  BuildTable:
  157.    Examines the entire text file looking for line numbers that are
  158.    the object of GOTO, GOSUB, etc. As each is found, it is entered
  159.    into a table of line numbers. The table is used during a second
  160.    pass (see GenOutFile), when all line numbers not in the listo
  161.    are removed.n
  162.  Input:r
  163.    Uses globals KeyWordTable$, KeyWordCount, and Seps$
  164.  Output:
  165.    Modefies LineTable! and LineCount
  166.  Get line and first token
  167.  See if token is keyword
  168.  Get possible line number after keyword 
  169.  Check each token to see if it is a line numberi
  170.  (the LOOP is necessary for the multiple numbers
  171.  of ON GOSUB or ON GOTO). A non-numeric token will
  172.  terminate search.
  173.  Get next token
  174. GenOutFile
  175.  GenOutFile:
  176.   Generates an output file with unreferenced line numbers removed.
  177.  Input:a
  178.   Uses globals LineTable!, LineCount, and Seps$n
  179.  Output:
  180.   Processed file
  181.  Speed up by eliminating comma and colon (can't separate first token)c
  182.  Get first token and process if it is a line numbera
  183.  See if line number is in table of referenced line numbers
  184.  Modify line strings
  185.  You can replace the previous lines with your owne
  186.  code to reformat output. For example, try these lines:e
  187. TmpPos1 = StrSpn(InLin$, Sep$) + LEN(Token$)
  188. TmpPos2 = TmpPos1 + StrSpn(MID$(InLin$, TmpPos1), Sep$)e
  189. IF FoundNumber THEN 
  190.    InLin$ = LEFT$(InLin$, TmpPos1 - 1) + CHR$(9) + MID$(InLin$, TmpPos2)
  191.    InLin$ = CHR$(9) + MID$(InLin$, TmpPos2)R
  192. END IF
  193.  Print line to file or console (PRINT is faster than console device)
  194. CON",
  195. InitKeyTable
  196.  InitKeyTable:
  197.   Initializes a keyword table. Keywords must be recognized so that
  198.   line numbers can be distinguished from numeric constants.s
  199.  Input:n
  200.   Uses KeyData
  201.  Output:
  202.   Modifies global array KeyWordTable$r
  203.