home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / CODE / RPG400.LXL < prev    next >
Text File  |  1995-05-08  |  5KB  |  149 lines
  1. /* RPG400.LXL - IBM LPEX language-sensitive editor profile for OPM RPG/400. */
  2. TRACE OFF
  3.  
  4. /* default AS/400 profile */
  5. 'MACRO DFT400.LXL'
  6.  
  7. /* OPM RPG document */
  8. 'SET DOCTYPE RPG'
  9.  
  10. /* initial fonts settings */
  11. 'SET FONT.A BLACK/WHITE              "Page"'
  12. 'SET FONT.B GREY/WHITE               "Line"'
  13. 'SET FONT.C RED/WHITE                "Spec"'
  14. 'SET FONT.D BLUE/WHITE               "Indicator"'
  15. 'SET FONT.E BRIGHT PINK/WHITE        "Indicator2"'
  16. 'SET FONT.F BRIGHT RED/WHITE         "Keyword"'
  17. 'SET FONT.G RED/WHITE                "Keyword2"'
  18. 'SET FONT.H BLACK/WHITE              "User Symbol"'
  19. 'SET FONT.I GRAY/WHITE               "User Symbol2"'
  20. 'SET FONT.J BRIGHT BLUE/WHITE        "Numeric"'
  21. 'SET FONT.K GREEN/WHITE              "Numeric2"'
  22. 'SET FONT.L BRIGHT RED/WHITE         "Operation"'
  23. 'SET FONT.M CYAN/WHITE               "Comment"'
  24. 'SET FONT.N CYAN/WHITE               "Optional Comment"'
  25. 'SET FONT.O CYAN/WHITE               "Program Name"'
  26. 'SET FONT.P BLUE/WHITE               "Macro Keyword"'
  27. 'SET FONT.Q BLACK/WHITE              "Macro Statement"'
  28. 'SET FONT.X BLACK/WHITE              "SQL Statement"'
  29. 'SET FONT.R GREEN/WHITE              "Data"'
  30. 'SET FONT.S PINK/WHITE               "Reserved"'
  31. 'SET FONT.T RED/WHITE                "Error"'
  32. 'SET FONT._  BLACK/WHITE             "Layout Space"'
  33.  
  34. /* set up full & incremental parse */
  35. 'SET FULLPARSE SUBMIT READ STOP "Parsing file" EVFERPG ALL'
  36. 'SET PARSER EVFERPG'
  37.  
  38. /* update action bar */
  39. 'SET ACTIONBAR.~Help.~RPG/400_help 6 EVFERPG L'
  40. 'SET HELP. 16137'
  41.  
  42. 'SET ACTIONBAR.~Edit.SEPARATOR 6 ;'
  43. 'SET ACTIONBAR.~Edit.Pro~mpt\tF4 7 EVFERPG PROMPT'
  44. 'SET GROUP. WRITEABLE'
  45. 'SET HELP. 16036'
  46. 'SET ACTIONBAR.~Edit.~Insert_prompt\tShift+F4 8 EVFERPG IPROMPT'
  47. 'SET GROUP. WRITEABLE'
  48. 'SET HELP. 16037'
  49. 'SET ACTION.F4 EVFERPG PROMPT'
  50. 'SET ACTION.S-F4 EVFERPG IPROMPT'
  51.  
  52. 'SET ACTIONBAR.~Actions.SEPARATOR 1 ;'
  53. 'SET ACTIONBAR.~Actions.~Syntax_check_selection 2 SUBMIT READ STOP "Syntax check selection" EVFERPG S'
  54. 'SET HELP. 16081'
  55. 'SET ACTIONBAR.~Actions.Syntax_check_~file 3 SUBMIT READ STOP "Syntax check file" EVFERPG F'
  56. 'SET HELP. 16082'
  57. 'SET ACTIONBAR.~Actions.~Verify_program. 4'
  58. 'SET HELP. 16083'
  59. 'SET ACTIONBAR.~Actions.~Verify_program.~Prompt... EVFRCOC RPGOD ',
  60. 'SUBMIT READ STOP "Verifying" EVFRCOC RPGPV'
  61. 'SET HELP. 16083'
  62. 'SET ACTIONBAR.~Actions.~Verify_program.~No_prompt\tCtrl+V ',
  63. 'SUBMIT READ STOP "Verifying" EVFRCOC RPGPV'
  64. 'SET HELP. 16083'
  65. 'SET ACTIONBAR.~Actions.SEPARATOR 5'
  66. 'SET ACTIONBAR.~Actions.C~ompile. 6'
  67. 'SET HELP. 16084'
  68. 'SET ACTIONBAR.~Actions.C~ompile.~Prompt... SAVEALL PROMPT START EVFLCLES "%FILENAME%"'
  69. 'SET HELP. 16084'
  70. 'SET ACTIONBAR.~Actions.C~ompile.~No_prompt\tCtrl+C SAVEALL PROMPT START EVFLCLES "%FILENAME%" /P N'
  71. 'SET GROUP. REMOTE'
  72. 'SET HELP. 16084'
  73. 'SET ACTIONBAR.~Actions.~Debug. 7'
  74. 'SET HELP. 16086'
  75. 'SET ACTIONBAR.~Actions.~Debug.~Prompt... START CODEDT /EQACCMDLE /P "%FILENAME%"'
  76. 'SET HELP. 16086'
  77. 'SET ACTIONBAR.~Actions.~Debug.~No_prompt\tCtrl+D START CODEDT /EQACCMDLE /N /P "%FILENAME%"'
  78. 'SET GROUP. REMOTE'
  79. 'SET HELP. 16086'
  80. 'SET ACTION.C-V SUBMIT READ STOP "Verifying" EVFRCOC RPGPV'
  81. 'SET ACTION.C-C SAVEALL PROMPT START EVFLCLES "%FILENAME%" /P N'
  82. 'SET ACTION.C-D START CODEDT /EQACCMDLE /N /P "%FILENAME%"'
  83.  
  84. 'SET ACTIONBAR.~Options.~Language_editing. 7'
  85. 'SET HELP. 16099'
  86. 'SET ACTIONBAR.~Options.~Language_editing.~Token_highlighting EVFERPG Z'
  87. 'SET HELP. 16100'
  88. 'SET ACTIONBAR.~Options.~Language_editing.~Syntax_checking EVFERPG CHECKSYNTAXTOGGLE'
  89. 'SET HELP. 16102'
  90. 'SET ACTIONBAR.~Options.~Language_editing.~Auto_uppercasing EVFERPG U'
  91. 'SET GROUP. WRITEABLE'
  92. 'SET HELP. 16103'
  93.  
  94. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Token_highlighting INTO ID_TH'
  95. 'SET GLOBAL.RPG_TOK_MENU_ID' ID_TH
  96. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Syntax_checking INTO ID_SC'
  97. 'SET GLOBAL.RPG_SYN_MENU_ID' ID_SC
  98. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Auto_uppercasing INTO ID_UP'
  99. 'SET GLOBAL.RPG_UPPER_MENU_ID' ID_UP
  100.  
  101. 'SET GLOBAL.RPG_TOKEN_HILITE 1'
  102. 'SET GLOBAL.RPG_AUTO_SYNTAX 1'
  103. 'SET GLOBAL.RPG_AUTO_UPPER 1'
  104.  
  105. /* additional RPG keys, data area tabs, insert off */
  106. 'SET ACTION.F1 EVFERPG HELP'
  107. 'SET ACTION.TAB EVFERPG TAB'
  108. 'SET ACTION.BACKTAB EVFERPG BACKTAB'
  109. 'SET TABS 5 EVERY 5'
  110. 'SET INSERTING OFF'
  111.  
  112. /* initialize LS component */
  113. 'EVFERPG 1'
  114.  
  115. /* view options */
  116. 'SET ACTIONBAR.~View.SEPARATOR 3'
  117. 'SET ACTIONBAR.~View.~Control 4 ;SET INCLUDE CONTROL;SET EXCLUDE'
  118. 'SET GROUP. CONTROL'
  119. 'SET HELP. 16054'
  120. 'SET ACTIONBAR.~View.Comm~ents 5 ;SET INCLUDE COMMENTS;SET EXCLUDE'
  121. 'SET GROUP. COMMENTS'
  122. 'SET HELP. 16054'
  123. 'SET ACTIONBAR.~View.Su~broutines 6 ;SET INCLUDE SUBROUTINE;SET EXCLUDE'
  124. 'SET GROUP. SUBROUTINE'
  125. 'SET HELP. 16054'
  126. 'SET ACTIONBAR.~View.S~QL_statements 7 ;SET INCLUDE SQL;SET EXCLUDE'
  127. 'SET GROUP. SQL'
  128. 'SET HELP. 16054'
  129. 'SET ACTIONBAR.~View.SEPARATOR 8'
  130. 'SET ACTIONBAR.~View.Select_f~ormat_line... 9 EVFERPG O'
  131. 'SET HELP. 16062'
  132. 'SET ACTIONBAR.~View.~Refresh_format_line\tCtrl+R 10 EVFERPG Q'
  133. 'SET HELP. 16063'
  134. 'SET ACTIONBAR.~View.SEPARATOR 11'
  135. 'SET ACTION.C-R EVFERPG Q'
  136.  
  137. /* RPG specific prefix commands */
  138. 'SET ACTIONPREFIX.F ;SET PREFIXENTRY;EVFERPG Q'
  139. 'SET ACTIONPREFIX.F? ;SET PREFIXENTRY;EVFERPG O'
  140. 'SET ACTIONPREFIX.P ;SET PREFIXENTRY;EVFERPG PROMPT'
  141. 'SET ACTIONPREFIX.IP ;SET PREFIXENTRY;EVFERPG IPROMPT'
  142.  
  143. /* extra tools */
  144. 'MACRO NAVIG.LX'
  145. 'MACRO INDENT.LX'
  146.  
  147. /* trigger full parse */
  148. 'TRIGGER FULLPARSE'
  149.