home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR506.ZIP / ACAD2.EXE / LCK11B.DOC < prev    next >
Text File  |  1988-12-27  |  6KB  |  179 lines
  1. ;
  2. ; LispChecKer - Beta Version 1.1b - December 25, 1988
  3. ;
  4. ; CAD/Engineering Services             Stan H. Bimson - 1 Aug 1987
  5. ; Rt2 Box 293 Forest Harbor Drive      Compuserve 73507,3475
  6. ; Hendersonville, TN 37075-9802
  7. ;
  8. ; A program written for running checks on AutoLISP 
  9. ; files to check the balance of parenthesis and double 
  10. ; quotes (string literals). 
  11. ; 
  12. ; Files in archived file: 
  13. ;      LCK11B .EXE     Lisp checker 
  14. ;      LCK11B .DOC     This doc file 
  15. ;      ERROR  .LSP     A Lisp program on how to handle error messages 
  16. ;      OSNAP  .LSP     A Lisp program with new OSnap commands
  17. ;      JUNK   .LSP     A Lisp program with errors 
  18. ; 
  19. ; Syntax: 
  20. ;      LCK [d:][path]filename[.ext] 
  21. ; 
  22. ; The file name extension is ONLY required if the AutoLISP 
  23. ; file does not have the extension of .LSP. 
  24. ; e.g.: 
  25. ;      LCK junk 
  26. ; 
  27. ; Syntax: 
  28. ;      LCK 
  29. ; 
  30. ; The program will stop and ask for a file name. 
  31. ; 
  32. ; PROGRAM NOTES 
  33. ; 
  34. ; (1) This program will only work with a color monitor, color 
  35. ; is used to denote levels of parenthesis to aid in debugging 
  36. ; unbalanced parenthesis. 
  37. ; 
  38. ; (2) For LCK to know the end of a section of code that is to 
  39. ; be checked: 
  40. ;      (a) place a blank line between the code segments; 
  41.  
  42. ; Is it a string ? (boolean function)
  43. (DeFun TestForStr(st)
  44.   (= (Type st) 'STR)
  45. )
  46.  
  47. ; Is it a List ? (boolean function)
  48. (DeFun TestForLst(Lst)
  49.   (= (Type Lst) 'LIST)
  50. )
  51.  
  52. ;      (b) place a single semicolon between the code segments;
  53.  
  54. ; Is it a string ? (boolean function)
  55. (DeFun TestForStr(st)
  56.   (= (Type st) 'STR)
  57. )
  58. ;
  59. ; Is it a List ? (boolean function)
  60. (DeFun TestForLst(Lst)
  61.   (= (Type Lst) 'LIST)
  62. )
  63.  
  64. ; (3) Code lines up to 255 characters long, lines are rapped without
  65. ; incrementing line numbers 
  66. ;
  67. ; PROGRAM DISPLAY
  68. ;
  69. ; PARENTHESIS - 26 colors are used to denote or display the level of
  70. ; parenthesis.  The left (opening)  parenthesis  and right (closing)
  71. ; parenthesis are counted and the difference of the left minus right
  72. ; is displayed on line 25 of the screen. When the end of a code seg-
  73. ; ment is reached unbalanced parenthesis will be noted or code okay.
  74. ;
  75. ; COMMENTS -  when ever a semicolon is found,  the semicolon and the
  76. ; rest of the line is  considered a comment.  Comments are displayed
  77. ; in the color cyan.
  78. ;
  79. ; STRING LITERALS - when a string quote is found ("),  the quote and
  80. ; all the characters that  follow until another quote is encountered
  81. ; is considered to be a string literal.   String literal have to end
  82. ; on the line that they start on.  String literal  (with quotes) are
  83. ; displayed in the color light gray.  If the program reaches the end
  84. ; of the code line and it has not encountered another quote a string
  85. ; error has occurred,  an error  message is  displayed at the end of
  86. ; the line. When a string or quote error has occurred it will, as it
  87. ; does within AutoCAD,  will unbalance the parenthesis.  Correct the
  88. ; quote error and rerun LCK to complete the code checking.
  89. ;
  90. ; CODE -  is displayed in the color dark green,  all code exceptions
  91. ; have been noted above.
  92. ;
  93. ; ADDITION
  94. ;
  95. ; (0001) - 18 Aug 1987          [ Beta V1.0 ]
  96. ; Syntax:
  97. ;      LCK [d:][path]filename[.ext] [/nc]
  98. ;
  99. ; /NC - no comment display, this covers only the comments that
  100. ;       start within a code line.
  101. ;
  102. ; (0002) - 16 November 1987     [ Beta V1.1 ]
  103. ;      An error was caused by users coding special characters in
  104. ;      strings with '\'  and not  using the  octal code  but the 
  105. ;      character itself, as in "Enter min. 5\" offset" (to display
  106. ;      5" on the screen).
  107. ;
  108. ; (0003) - March 15, 1988       [ Beta V1.1a ]
  109. ;      Program compiled with Turbo Pascal 4.0,  smaller code file
  110. ;      size, runs faster.
  111. ;
  112. ; (0004) - Dec 25, 1988         [ Beta V1.1b ]
  113. ;      An error was caused by using "\\" so AutoLisp would return
  114. ;      the character '\' as in filenames (eg. "C:\\ACAD\\TEXTIN")
  115. ;      instead of using the "/" character.
  116. ;
  117. ;      This Beta version was changed to be included in the release
  118. ;      version 2.0, registered users were notified of the version
  119. ;      2.0 upgrade price of $5.00, new user registration is $7.50.
  120. ;      Release version 2.0 was complied with Turbo Pascal 5.0 with
  121. ;      a result of a small code file and increase in speed.
  122. ;
  123. ; DISCLAIMER
  124. ;
  125. ; We are NOT  responsible for the performance or accuracy of this
  126. ; program. This is as noted a Beta version and you are encouraged
  127. ; to copy and distribute this LCK.ARC provided this documentation
  128. ; file IS NOT REMOVED.
  129. ;
  130. ; HOW TO GET NOTICE OF UPGRADES?
  131. ;
  132. ; (1) Find an error with LCK, document it, send source that makes
  133. ; it happen.
  134. ;
  135. ; (2) Mail a donation  of $5.00 to the above address. This will be
  136. ; appreciated and  will put you on the mailing list.   This is the
  137. ; only version of the program that will be distributed by bulletin
  138. ; board.  Program upgrades will cost $5.00  to $10.00 depending on
  139. ; degree of program changes.
  140. ;
  141. ; CHANGES NOW IN PROGRESS:
  142. ;
  143. ; ( ) [/S]     Scroll screen 23 lines (max) at a time
  144. ;              ADDED TO VERSION 2.0
  145. ;
  146. ; ( ) [/NA]    Remove all comments
  147. ;              ADDED TO VERSION 2.0
  148. ;
  149. ; (A) [/L]     Display levels of parenthesis offset on a new line.
  150. ;              SINCE VERSION 2.0
  151. ;
  152. ; (B) [/P]     Make a listing file similar to the screen display.
  153. ;              SINCE VERSION 2.0
  154. ;
  155. ; (C) [/D]     Dynamic scroll, up, down, right and left (no
  156. ;              wrapped lines).
  157. ;              SINCE VERSION 2.0
  158. ;
  159. ; COMMENTS TO US
  160. ;
  161. ; I also would be pleased to hear any  comments on this program be
  162. ; they bad or good, I am not a professional programmer but a free-
  163. ; lance  structural  steel draftsman  that uses AutoCAD, I program
  164. ; heavily  in AutoLISP and  as you see by  this  program in  Turbo
  165. ; Pascal.  I feel  that this  program is  a very  good aid for the
  166. ; AutoLISP programmer and would appreciate any and all suggestions.
  167. ; Comments or  suggestions don't require donations nor do they get
  168. ; you on the  mailing  list.  Really good ones might get listed in
  169. ; the documentation file.
  170. ;
  171. ; THANKS TO
  172. ;
  173. ; AUTODESK for AutoCAD & AutoLISP
  174. ; BORLAND for Turbo Pascal 4.0
  175. ; PKWARE  for PKARC and PKXARC 
  176. ;
  177. ;      [shb]
  178.  
  179.