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