home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / for.lxl < prev    next >
Text File  |  1998-02-24  |  2KB  |  60 lines
  1. /* for.lxl - IBM LPEX language-sensitive editor profile for FORTRAN. */
  2. TRACE OFF
  3.  
  4. /* source form parser argument */
  5. parse upper arg form
  6. if form = '' then
  7.   form = 'FOR'
  8.  
  9. /* FORTRAN document */
  10. 'SET DOCTYPE for'
  11.  
  12. /* initial fonts settings */
  13. 'SET FONT.A  GREEN/WHITE                  "Variable name"'
  14. 'SET FONT.C  ITALIC CYAN/WHITE            "Comment"'
  15. 'SET FONT.R  ITALIC CYAN/WHITE            "Remark"'
  16. 'SET FONT.E  WHITE/BRIGHT RED             "Error"'
  17. 'SET FONT.I  YELLOW/WHITE                 "Ignored"'
  18. 'SET FONT.K  BRIGHT BLUE/WHITE            "Executable statement keyword"'
  19. 'SET FONT.L  BLUE/WHITE                   "Label"'
  20. 'SET FONT.M  BRIGHT BLUE/WHITE            "Nonexecutable statement keyword"'
  21. 'SET FONT.N  BLUE/WHITE                   "Number"'
  22. 'SET FONT.D  WHITE/ BRIGHT BLUE           "Conditional compilation"'
  23. 'SET FONT.S  BRIGHT BLUE/WHITE            "Special program keyword"'
  24. 'SET FONT.V  BRIGHT BLUE/WHITE            "Special program end keyword"'
  25. 'SET FONT._  BLACK/WHITE                  "Layout blanks"'
  26. 'SET FONT.F  BRIGHT RED/WHITE             "Continuation indicator"'
  27. 'SET FONT.Q  BROWN/WHITE                  "Quoted text"'
  28. 'SET FONT.P  BLACK/WHITE                  "Punctuation/Operator"'
  29.  
  30. /* navigation keys */
  31. 'SET ACTION.C-D ;NEXT CLASS SUB;NEXT'
  32. 'SET ACTION.C-B ;NEXT;REPEAT 2 PREV CLASS SUB;NEXT'
  33.  
  34. /* match keys */
  35. 'SET ACTION.C-M MATCH'
  36. 'SET ACTION.C-K FMATCH'
  37.  
  38. /* first tab in column 7 */
  39. 'SET TABS 7'
  40.  
  41. /* invoke initial parse, set the incremental parser */
  42. 'PRG 'form' ALL'
  43. 'SET PARSER PRG 'form
  44.  
  45. /* view options */
  46. 'SET ACTIONBAR.LP_VIEW.SEPARATOR 2'
  47. 'SET ACTIONBAR.LP_VIEW.~Units 3 ;SET INCLUDE SUB;SET EXCLUDE;SET VIEWNAME Functions'
  48. 'SET GROUP. SUB'
  49. 'SET ACCELERATOR. C-G'
  50. 'SET ACTIONBAR.LP_VIEW.~Labels 4 ;SET INCLUDE LABEL;SET EXCLUDE;SET VIEWNAME Outline'
  51. 'SET GROUP. LABEL'
  52. 'SET ACTIONBAR.LP_VIEW.~Errors 5 ;SET INCLUDE ERROR;SET EXCLUDE;SET VIEWNAME Errors'
  53. 'SET GROUP. ERROR'
  54.  
  55. /* language options */
  56. 'SET ACTIONBAR.LP_OPTIONS.~Language_editing. 5'
  57. 'SET ACTIONBAR.LP_OPTIONS.~Language_editing.Fixed_~72_columns ;SET PARSER;PRG FOR ALL;SET PARSER PRG FOR'
  58. 'SET ACTIONBAR.LP_OPTIONS.~Language_editing.Fixed_~132_columns ;SET PARSER;PRG F13 ALL;SET PARSER PRG F13'
  59. 'SET ACTIONBAR.LP_OPTIONS.~Language_editing.~Free_form ;SET PARSER;PRG FF ALL;SET PARSER PRG FF'
  60.