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