home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / CODE / CL400.LXL < prev    next >
Text File  |  1995-05-08  |  4KB  |  85 lines
  1. /********************************************************
  2. * CL400.LXL - LOAD MACRO FOR CL FILES                   *
  3. *                                                       *
  4. * THIS MACRO IS INVOKED BY LPEX WHEN A FILE WITH        *
  5. * SOURCE TYPE CL IS EDITED (UNLESS THE /ASIS OR /NOPRO  *
  6. * OPTIONS ARE USED. IT SETS UP THE CL EMPHASIS PARSER   *
  7. * AND FONTS FOR A COLOUR DISPLAY.                       *
  8. *                                                       *
  9. *          COPYRIGHT I B M CORPORATION 1989             *
  10. *                                                       *
  11. * SAH/04.12.89/CUSTOMIZED FOR ECD TESTING               *
  12. *                                                       *
  13. ********************************************************/
  14.  
  15. /* CALL DEFAULT AS/400 PROFILE */
  16. 'LXR DFT400.LXL'
  17.  
  18. /* SET FONTS FOR CL PARSER */
  19.                                
  20. 'SET FONT.A  BLACK/WHITE                 "Alphanumerics"'
  21. 'SET FONT.B  BRIGHT GREEN/WHITE          "Built-ins"'            
  22. 'SET FONT.C  CYAN/WHITE                  "Comments"'
  23. 'SET FONT.E  WHITE/BRIGHT RED            "Errors"'               
  24. 'SET FONT.G  UNDERLINE BRIGHT BLUE/WHITE "Language construct"'   
  25. 'SET FONT.I  GREEN/WHITE                 "Literals"'             
  26. 'SET FONT.K  CYAN/WHITE                  "Keywords"'             
  27. 'SET FONT.L  BRIGHT GRAY/WHITE           "Labels"'               
  28. 'SET FONT.M  BRIGHT BLUE/WHITE           "Commands"'             
  29. 'SET FONT.N  RED/WHITE                   "Numerials"'            
  30. 'SET FONT.P  BROWN/WHITE                 "Parameters"'           
  31. 'SET FONT.S  BLUE/WHITE                  "Special symbols"'      
  32. 'SET FONT.V  MAGENTA/WHITE               "Special values"'       
  33. 'SET FONT._  BLACK/WHITE                 "Layout space"'         
  34.   
  35. 'SET DOCTYPE CL'
  36. 'SET CLASSES SPACE MESSAGE ERROR COMMENT CODE CONTROL CONTINUATION'
  37. 'PARSER EVFLCL'      /* SET UP THE PARSER FOR FUTURE CHANGES */
  38. 'SET FULLPARSE SUBMIT READ STOP "Parsing file" EVFLCL ALL'
  39.  
  40. 'SET ACTION.F4  EVFLCL PROMPT'  
  41. 'SET ACTION.F1  EVFLCL COMMANDHELP'  
  42.  
  43. 'SET ACTIONBAR.~Edit.SEPARATOR 6 ;'
  44. 'SET ACTIONBAR.~Edit.Pro~mpt\tF4 7 EVFLCL PROMPT'
  45. 'SET GROUP. WRITEABLE'
  46. 'SET HELP. 16036'
  47.  
  48. 'SET ACTIONBAR.~Actions.SEPARATOR 1;'
  49. 'SET ACTIONBAR.~Actions.~Syntax_check_selection 2 SUBMIT READ STOP "Syntax check selection" EVFLCL BLOCK'
  50. 'SET HELP. 16081'
  51. 'SET ACTIONBAR.~Actions.Syntax_check_~file 3 SUBMIT READ STOP "Syntax check file" EVFLCL FILE'
  52. 'SET HELP. 16082'
  53.  
  54. 'SET ACTIONBAR.~Options.~Language_editing. 7'
  55. 'SET HELP. 16099'
  56. 'SET ACTIONBAR.~Options.~Language_editing.~Token_highlighting EVFLCL TOKEN'
  57. 'SET HELP. 16100'
  58. 'SET ACTIONBAR.~Options.~Language_editing.~Syntax_checking EVFLCL SYNTAX'
  59. 'SET HELP. 16102'
  60.  
  61. 'SET ACTIONBAR.~View.~Control 2 ;INCLUDE CONTROL;SET EXCLUDE'
  62. 'SET GROUP. CONTROL'
  63. 'SET HELP. 16056'
  64. 'SET ACTIONBAR.~View.C~omments 3 ;INCLUDE COMMENT;SET EXCLUDE'
  65. 'SET GROUP. COMMENT'
  66. 'SET HELP. 16056'
  67. 'SET ACTIONBAR.~Help.C~L/400_help 6 START VIEW EVFCLMST.INF'
  68. 'SET HELP. 16137'
  69.  
  70. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Token_highlighting INTO ID_TH'
  71. 'SET GLOBAL.CL_TOK_MENU_ID' ID_TH
  72. 'EXTRACT ACTIONBARID.~Options.~Language_editing.~Syntax_checking INTO ID_SC'
  73. 'SET GLOBAL.CL_SYN_MENU_ID' ID_SC
  74.  
  75. 'SET TABS 12 14 EVERY 8'
  76.  
  77. 'SET GLOBAL.CL_TOKEN_HILITE 1'
  78. 'SET GLOBAL.CL_AUTO_SYNTAX 1'
  79.  
  80. 'EVFLCL INIT'
  81. 'TRIGGER FULLPARSE'
  82.  
  83. /* set language specific prefix commands */
  84. 'SET ACTIONPREFIX.P ;SET PREFIXENTRY;EVFLCL PROMPT'
  85.