home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / RPG.LXL < prev    next >
Text File  |  1995-05-11  |  4KB  |  109 lines
  1. /* RPG.LXL - IBM LPEX language-sensitive editor profile for OPM RPG. */
  2. TRACE OFF
  3.  
  4. /* OPM RPG document */
  5. 'SET DOCTYPE RPG'
  6.  
  7. /* initial fonts settings */
  8. 'SET FONT.A BLACK/WHITE              "Page"'
  9. 'SET FONT.B GREY/WHITE               "Line"'
  10. 'SET FONT.C RED/WHITE                "Spec"'
  11. 'SET FONT.D BLUE/WHITE               "Indicator"'
  12. 'SET FONT.E BRIGHT PINK/WHITE        "Indicator2"'
  13. 'SET FONT.F BRIGHT RED/WHITE         "Keyword"'
  14. 'SET FONT.G RED/WHITE                "Keyword2"'
  15. 'SET FONT.H BLACK/WHITE              "User Symbol"'
  16. 'SET FONT.I GRAY/WHITE               "User Symbol2"'
  17. 'SET FONT.J BRIGHT BLUE/WHITE        "Numeric"'
  18. 'SET FONT.K GREEN/WHITE              "Numeric2"'
  19. 'SET FONT.L BRIGHT RED/WHITE         "Operation"'
  20. 'SET FONT.M CYAN/WHITE               "Comment"'
  21. 'SET FONT.N CYAN/WHITE               "Optional Comment"'
  22. 'SET FONT.O CYAN/WHITE               "Program Name"'
  23. 'SET FONT.P BLUE/WHITE               "Macro Keyword"'
  24. 'SET FONT.Q BLACK/WHITE              "Macro Statement"'
  25. 'SET FONT.X BLACK/WHITE              "SQL Statement"'
  26. 'SET FONT.R GREEN/WHITE              "Data"'
  27. 'SET FONT.S PINK/WHITE               "Reserved"'
  28. 'SET FONT.T RED/WHITE                "Error"'
  29. 'SET FONT._  BLACK/WHITE             "Layout Space"'
  30.  
  31. /* set up full & incremental parse */
  32. 'SET FULLPARSE EVFERPG ALL'
  33. 'SET PARSER EVFERPG'
  34.  
  35. /* update action bar */
  36. 'SET ACTIONBAR.~Help.~RPG_help 6 EVFERPG L'
  37. 'SET HELP. 16137'
  38.  
  39. 'SET ACTIONBAR.~Edit.SEPARATOR 6 ;'
  40. 'SET ACTIONBAR.~Edit.Pro~mpt\tF4 7 EVFERPG PROMPT'
  41. 'SET GROUP. WRITEABLE'
  42. 'SET HELP. 16036'
  43. 'SET ACTIONBAR.~Edit.~Insert_prompt\tShift+F4 8 EVFERPG IPROMPT'
  44. 'SET GROUP. WRITEABLE'
  45. 'SET HELP. 16037'
  46. 'SET ACTION.F4 EVFERPG PROMPT'
  47. 'SET ACTION.S-F4 EVFERPG IPROMPT'
  48.  
  49. 'SET ACTIONBAR.~Options.~Language_editing. 7'
  50. 'SET HELP. 16099'
  51. 'SET ACTIONBAR.~Options.~Language_editing.~Token_highlighting EVFERPG Z'
  52. 'SET HELP. 16100'
  53. 'SET ACTIONBAR.~Options.~Language_editing.~Auto_uppercasing EVFERPG U'
  54. 'SET GROUP. WRITEABLE'
  55. 'SET HELP. 16103'
  56.  
  57. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Token_highlighting INTO ID_TH'
  58. 'SET GLOBAL.RPG_TOK_MENU_ID' ID_TH
  59. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Auto_uppercasing INTO ID_UP'
  60. 'SET GLOBAL.RPG_UPPER_MENU_ID' ID_UP
  61.  
  62. 'SET GLOBAL.RPG_TOKEN_HILITE 1'
  63. 'SET GLOBAL.RPG_AUTO_SYNTAX 0'
  64. 'SET GLOBAL.RPG_AUTO_UPPER 1'
  65.  
  66. /* additional RPG keys, data area tabs, insert off */
  67. 'SET ACTION.F1 EVFERPG HELP'
  68. 'SET ACTION.TAB EVFERPG TAB'
  69. 'SET ACTION.BACKTAB EVFERPG BACKTAB'
  70. 'SET TABS 5 EVERY 5'
  71. 'SET INSERTING OFF'
  72.  
  73. /* initialize LS component */
  74. 'EVFERPG 1'
  75.  
  76. /* view options */
  77. 'SET ACTIONBAR.~View.~Control 3 ;SET INCLUDE CONTROL;SET EXCLUDE'
  78. 'SET GROUP. CONTROL'
  79. 'SET HELP. 16054'
  80. 'SET ACTIONBAR.~View.Comm~ents 4 ;SET INCLUDE COMMENTS;SET EXCLUDE'
  81. 'SET GROUP. COMMENTS'
  82. 'SET HELP. 16054'
  83. 'SET ACTIONBAR.~View.Su~broutines 5 ;SET INCLUDE SUBROUTINE;SET EXCLUDE'
  84. 'SET GROUP. SUBROUTINE'
  85. 'SET HELP. 16054'
  86. 'SET ACTIONBAR.~View.S~QL_statements 6 ;SET INCLUDE SQL;SET EXCLUDE'
  87. 'SET GROUP. SQL'
  88. 'SET HELP. 16054'
  89. 'SET ACTIONBAR.~View.SEPARATOR 7'
  90. 'SET ACTIONBAR.~View.Select_f~ormat_line... 8 EVFERPG O'
  91. 'SET HELP. 16062'
  92. 'SET ACTIONBAR.~View.~Refresh_format_line\tCtrl+R 9 EVFERPG Q'
  93. 'SET HELP. 16063'
  94. 'SET ACTIONBAR.~View.SEPARATOR 10'
  95. 'SET ACTION.C-R EVFERPG Q'
  96.  
  97. /* RPG specific prefix commands */
  98. 'SET ACTIONPREFIX.F ;SET PREFIXENTRY;EVFERPG Q'
  99. 'SET ACTIONPREFIX.F? ;SET PREFIXENTRY;EVFERPG O'
  100. 'SET ACTIONPREFIX.P ;SET PREFIXENTRY;EVFERPG PROMPT'
  101. 'SET ACTIONPREFIX.IP ;SET PREFIXENTRY;EVFERPG IPROMPT'
  102.  
  103. /* extra tools */
  104. 'MACRO NAVIG.LX'
  105. 'MACRO INDENT.LX'
  106.  
  107. /* trigger full parse */
  108. 'TRIGGER FULLPARSE'
  109.