home *** CD-ROM | disk | FTP | other *** search
/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha60.hqx / Tcl / SystemCode / pascal.tcl < prev    next >
Encoding:
Text File  |  1995-03-07  |  916 b   |  31 lines
  1.  
  2.  
  3. newModeVar Pasc leftFillColumn {3} 0
  4. newModeVar Pasc electricSemi {1} 1
  5. newModeVar Pasc wordBreak {[a-zA-Z0-9_]+} 0
  6. newModeVar Pasc wordWrap {0} 1
  7. newModeVar Pasc funcExpr {^[^ \t\(#\r/@].*\(.*\)$} 0
  8. newModeVar Pasc wordBreakPreface {[^a-zA-Z0-9_]} 0
  9. newModeVar Pasc electricTab {0} 1
  10. newModeVar Pasc autoMark    0    1
  11.  
  12. set pascCommentRegexp    {/\*(([^*]/)|[^*]|\r)*\*/}
  13. set pascPreRegexp        {^\#[\t ]*[a-z]*}
  14. set pascKeyWords        {
  15.     procedure function integer while with return var const unit type interface
  16.     packed record begin end boolean if else repeat for downto case to of mod 
  17.     goto file do then program or label div until set not in forward and
  18.     implementation unit
  19. }
  20. regModeKeywords -b \{ \} -c red -k blue Pasc $pascKeyWords
  21. unset pascKeyWords
  22.  
  23.  
  24. #================================================================================
  25.  
  26. proc dummyPascal {} {}
  27.  
  28. proc PascMarkFile {} {
  29.     message "Not yet (someone write me)"
  30. }
  31.