home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / CODE / CBL400.LXL < prev    next >
Text File  |  1995-05-08  |  6KB  |  133 lines
  1. /***************************************************************************/
  2. /* CBL400.LXL -  LANGUAGE SENSITIVE EDITOR PROFILE FOR OPM COBOL/400       */
  3. /***************************************************************************/
  4. TRACE OFF
  5.  
  6. /* CALL DEFAULT AS/400 PROFILE */
  7. 'LXR DFT400.LXL'
  8.  
  9. /* this is an OPM COBOL file */
  10. 'SET DOCTYPE CBL'
  11.  
  12. /* COBOL classes - DO NOT MODIFY!! Parser must be kept in synch */
  13. 'SET CLASSES CODE FWDLINK BWDLINK SKIPLINK BLANK ERROR COMMENT ',
  14. 'DIRECTIVE DIVISION SECTION AREAA AREAB PREPROCESSOR'
  15.  
  16. 'SET RULERTEXT ----+-*A-1-B--+----2----+----3----+----4----+----5' ||,
  17.                '----+----6----+----7--|-+----8'
  18. 'SET RULER ON'
  19.  
  20. /* ----------------------------------------------------------------------- */
  21. /* Populate pull-down items with COBOL-unique items, and assign fast-path  */
  22. /* key assignments. Also, enable help for each of these pull-down items:   */
  23. /* ----------------------------------------------------------------------- */
  24. 'SET ACTIONBAR.~Options.Automatic_~indenting... 2 EVFECBL4 AIDLG'
  25. 'SET HELP. 16093'
  26. 'SET ACTIONBAR.~Options.~Language_editing. 7'
  27. 'SET HELP. 16099'
  28. 'SET ACTIONBAR.~Options.~Language_editing.~Token_highlighting EVFECBL4 TOKOPT'
  29. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Token_highlighting INTO ID3'
  30. 'SET HELP. 16100'
  31. 'SET ACTIONBAR.~Options.~Language_editing.Automatic_~indenting EVFECBL4 AIOPT'
  32. 'EXTRACT ACTIONBARID.~Options.~Language_editing.Automatic_~indenting INTO ID4'
  33. 'SET HELP. 16101'
  34. 'SET ACTIONBAR.~Options.~Language_editing.~Syntax_checking EVFECBL4 SYOPT'
  35. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Syntax_checking INTO ID5'
  36. 'SET HELP. 16102'
  37. 'SET ACTIONBAR.~Options.~Language_editing.~Lexical_errors EVFECBL4 LEOPT'
  38. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Lexical_errors INTO ID22'
  39. 'SET HELP. 16108'
  40. 'SET ACTIONBAR.~Actions.SEPARATOR 1'
  41. 'SET ACTIONBAR.~Actions.~Syntax_check_selection 2 SUBMIT READ STOP "Syntax check selection" EVFECBL4 SYSEL'
  42. 'EXTRACT ACTIONBARID.~Actions.~Syntax_check_selection INTO ID7'
  43. 'SET HELP. 16081'
  44. 'SET ACTIONBAR.~Actions.Syntax_check_~file 3 SUBMIT READ STOP "Syntax check file" EVFECBL4 SYFILE'
  45. 'EXTRACT ACTIONBARID.~Actions.Syntax_check_~file INTO ID8'
  46. 'SET HELP. 16082'
  47. 'SET ACTIONBAR.~Actions.~Verify_program. 4'
  48. 'SET HELP. 16083'
  49. 'SET ACTIONBAR.~Actions.~Verify_program.~Prompt... EVFBIPV OCBLOD ',
  50. 'SUBMIT READ STOP "Verifying" EVFBIPV OCBLPV'
  51. 'SET HELP. 16083'
  52. 'SET ACTIONBAR.~Actions.~Verify_program.~No_prompt\tCtrl+V ',
  53. 'SUBMIT READ STOP "Verifying" EVFBIPV OCBLPV'
  54. 'SET HELP. 16083'
  55. 'SET ACTIONBAR.~Actions.SEPARATOR 5'
  56. 'SET ACTIONBAR.~Actions.C~ompile. 6'
  57. 'SET HELP. 16084'
  58. 'SET ACTIONBAR.~Actions.C~ompile.~Prompt... 0 SAVEALL PROMPT START EVFLCLES "%FILENAME%"'
  59. 'SET HELP. 16084'
  60. 'SET ACTIONBAR.~Actions.C~ompile.~No_prompt\tCtrl+C SAVEALL PROMPT START EVFLCLES "%FILENAME%" /P N'
  61. 'SET HELP. 16084'
  62. 'SET GROUP. REMOTE'
  63. 'SET ACTIONBAR.~Actions.~Debug. 7'
  64. 'SET HELP. 16086'
  65. 'SET ACTIONBAR.~Actions.~Debug.~Prompt... 0 START CODEDT /EQACCMDLE /P "%FILENAME%"'
  66. 'SET HELP. 16086'
  67. 'SET ACTIONBAR.~Actions.~Debug.~No_Prompt...\tCtrl+D 1 START CODEDT /EQACCMDLE /N /P "%FILENAME%"'
  68. 'SET HELP. 16086'
  69. 'SET GROUP. REMOTE'
  70. 'SET ACTIONBAR.~View.SEPARATOR 2'
  71. 'SET ACTIONBAR.~View.~Comments 3 ;INCLUDE COMMENT ;EXCLUDE'
  72. 'SET HELP. 16055'
  73. 'SET GROUP. COMMENT'
  74. 'SET ACTIONBAR.~View.Di~visions 4 ;INCLUDE DIVISION SECTION ;EXCLUDE'
  75. 'SET HELP. 16055'
  76. 'SET GROUP. DIVISION SECTION'
  77. 'SET ACTIONBAR.~View.~Outline 5 ;INCLUDE AREAA ;EXCLUDE'
  78. 'SET HELP. 16055'
  79. 'SET GROUP. AREAA'
  80. 'SET ACTIONBAR.~Help.OPM_COBO~L/400_help 6 EVFECBL4 LANGHELP'
  81. 'EXTRACT ACTIONBARID.~Help.OPM_COBO~L/400_help INTO ID20'
  82. 'SET HELP. 16137'
  83. 'SET ACTIONBAR.~View.S~QL_and_CICS 6 ;INCLUDE PREPROCESSOR ;EXCLUDE'
  84. 'SET HELP. 16055'
  85. 'SET GROUP. PREPROCESSOR'
  86.                                                 /* AUTOINDENT NEW LINE     */
  87. 'SET SYNONYM.OPENLINE MULT ;PRIMITIVE ENDLINE;SPLITJOIN SPLIT;PRIMITIVE NEWLINE;EVFECBL4 AINEW'
  88.                                                 /* AUTOINDENT EXISTING LINE*/
  89. 'SET SYNONYM.NEWLINE EVFECBL4 AIEXIST'
  90.  
  91. 'SET ACTION.F1 EVFECBL4 HELP'                   /* HELP ON TOKEN AT CURSOR */
  92.  
  93.                                                 /* COMPILE ACCELERATOR KEY */
  94. 'SET ACTION.C-C SAVEALL PROMPT START EVFLCLES "%FILENAME%" /P N'
  95. 'SET ACTION.C-D START CODEDT /EQACCMDLE /N /P "%FILENAME%"'
  96.  
  97. MENUIDSTR = ID3 ID4 ID22 ID5 ID7 ID8 ID20
  98. DROP ID3 ID4 ID5 ID7 ID8 ID20 ID22
  99.  
  100.                                                 /* SETUP FULL PARSE COMMAND*/
  101. 'SET FULLPARSE  SUBMIT READ STOP "Tokenize file" EVFECBL4 ALL'
  102. 'SET PARSER     EVFECBL4 PARSE'                 /* SETUP INCREMENTAL PARSE */
  103.  
  104.  
  105.                                                 /* INITIAL FONTS SETTINGS  */
  106. 'SET FONT.!  BLACK/WHITE                    "Default style"'
  107. 'SET FONT._  BLACK/WHITE                    "Layout spaces"'
  108. 'SET FONT.E  RED/WHITE                      "Error token"'
  109. 'SET FONT.S  BRIGHT CYAN/WHITE              "Sequence number"'
  110. 'SET FONT.I  BRIGHT GREEN/WHITE             "Indicator area"'
  111. 'SET FONT.D  UNDERLINE CYAN/WHITE           "Compiler directive"'
  112. 'SET FONT.C  ITALIC BRIGHT GREEN/WHITE      "Comment"'
  113. 'SET FONT.B  BLACK/WHITE                    "Separator"'
  114. 'SET FONT.U  BRIGHT BLUE/WHITE              "User defined"'
  115. 'SET FONT.T  BLUE/WHITE                     "Pseudo-text"'
  116. 'SET FONT.N  BLUE/WHITE                     "Numeric literal"'
  117. 'SET FONT.L  BRIGHT PINK/WHITE              "Nonnumeric literal"'
  118. 'SET FONT.P  BLUE/WHITE                     "Picture string"'
  119. 'SET FONT.H  PINK/WHITE                     "Preprocessor string"'
  120. 'SET FONT.R  BLACK/WHITE                    "SAA reserved word"'
  121. 'SET FONT.K  CYAN/WHITE                     "COBOL/400 reserved word"'
  122. 'SET FONT.X  BLUE/WHITE                     "EXTACCDSP reserved word"'
  123.  
  124. 'SET BASEFONT !'                                /* BASEFONT= DEFAULT STYLE */
  125.  
  126. 'SET TABS 7 8 12 EVERY 4'                       /* INITIAL TAB SETTINGS    */
  127.  
  128. 'EVFECBL4 INIT' MENUIDSTR                       /* INITILIAZE LS COMPONENT */
  129. 'SET INSERTING OFF'                             /* REPLACE MODE            */
  130. 'TRIGGER FULLPARSE'                             /* INITIAL FULL PARSE      */
  131.  
  132. 'LXR NAVIG.LX'
  133.