home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / mlepm.zip / profile.600 < prev    next >
Text File  |  1995-09-19  |  4KB  |  101 lines
  1. /* profile.erx                                               950919 */
  2. /*                                                                  */
  3. /* This file is executed whenever you start EPM                     */
  4. /*                                                                  */
  5. /* This version is for EPM v5.60+                                   */
  6.  
  7. /* defining useful constants                                        */
  8. MYPATH = ''
  9. MYACCEL = 9300
  10.  
  11. /* Linking additional EPM modules                                   */
  12. link MYPATH'MATCHKEY'
  13. link MYPATH'MLHOOK'
  14. link MYPATH'MLTOOLS'
  15. link MYPATH'MLHILITE'
  16. link MYPATH'CMODE'
  17. link MYPATH'EMODE'
  18. link MYPATH'HTMLMODE'
  19. link MYPATH'REXXMODE'
  20. link MYPATH'RCMODE'
  21. /* link MYPATH'PMODE'  -- commented out as I don't use Pascal...    */
  22. link bkeys
  23.  
  24. /* C/C++ and hiliting Mode hook                                     */
  25. msethook 'modify_hook 'hilite_modify_hook
  26. /* The following is only required by EPM 6.x                        */
  27. maddhook 'modify_hook 'fake_autosave
  28. maddhook 'load_hook   'hilite_load_hook
  29. maddhook 'load_hook   'c_load_hook
  30. maddhook 'load_hook   'e_load_hook
  31. maddhook 'load_hook   'html_load_hook
  32. maddhook 'load_hook   'rexx_load_hook
  33. maddhook 'load_hook   'rc_load_hook
  34.  
  35. /* I like mode in status line                 (here )              */
  36. msetstatusline 'Line %l of %s  Column %c   %f   %i  %t     %m'
  37. maddhook 'select_hook 'show_mode_hook
  38.  
  39. /* Defining global keys                                             */
  40. buildaccel '*' 34 24 MYACCEL+1 mnextfunction
  41. buildaccel '*' 34 22 MYACCEL+2 mnextfunction P
  42. buildaccel '*' 34 23 MYACCEL-1 ml_hilite_line
  43. activateaccel
  44.  
  45. /* Adding a 'Headings...' item in the File menu for mfindfunction   */
  46. buildmenuitem 'default 1 2997 \0 4 0 mfindfunction'
  47. buildmenuitem 'default 1 2998 ~Headings... 0 0 mfindfunction'
  48. showmenu 'default'
  49.  
  50. /* Defining mouse bindings (popup menus)                            */
  51. register_mouse 1 3 CLICK     0 mpopupmenu 10
  52.  
  53. /* Hiliting schemes                                                 */
  54.  
  55. /* C, C++ */
  56. mhilitedef C 'C H PH IH SQC CPP HPP CXX XH XPH XIH'
  57. mhiliteadd C 1 'Commentaire' '_/\*_\*/_'
  58. mhiliteadd C 1 'Commentaire' '_//.*_'
  59. mhiliteadd C 2 'Directive' '_#:o[^d].*_'
  60. mhiliteadd C 2 'String' '_"([^"]|\\")*"_'
  61. mhiliteadd C 2 'String' '_''([^'']|\\'')''_'
  62. mhiliteadd C 4 'Case' '_^:o(case |default:o\:).*_'
  63.  
  64. /* E macros */
  65. mhilitedef E 'E'
  66. mhiliteadd E 1 'Commentaire' '_^;.*_'
  67. mhiliteadd E 1 'Commentaire' '_/\*_\*/_'
  68. mhiliteadd E 1 'Commentaire' '_--.*_'
  69. mhiliteadd E 2 'String' '_("([^"]|"")*"|''([^'']|'''')*'')_'
  70. mhiliteadd E 4 'Function' '_^def.*_'
  71. mhiliteadd E 4 'Directive' '_^:ocompile.*_'
  72.  
  73. /* Rexx macros */
  74. mhilitedef REXX 'CMD ERX'
  75. mhiliteadd REXX 1 'Commentaire' '_/\*_\*/_'
  76. mhiliteadd REXX 2 'String' '_("([^"]|"")*"|''([^'']|'''')*'')_'
  77. mhiliteadd REXX 4 'Case' '_when.*then_'
  78. mhiliteadd REXX 4 'Function' '~^:c\:~'
  79.  
  80. /* IDL (SOM, ...) */
  81. mhilitedef OIDL 'IDL CSC SC PSC CS2'
  82. mhiliteadd OIDL 1 'Commentaire' '_/\*_\*/_'
  83. mhiliteadd OIDL 1 'Commentaire' '_//.*_'
  84. mhiliteadd OIDL 1 'Commentaire' '_--.*_'
  85. mhiliteadd OIDL 1 'Commentaire' '_# .*_'
  86. mhiliteadd OIDL 4 'Case' '~^[a-zA-Z].*:~'
  87.  
  88. /* DOS (SYS BAT) */
  89. mhilitedef DOS 'SYS BAT'
  90. mhiliteadd DOS 1 'Commentaire' '_^REM.*_'
  91.  
  92. /* IPF (IPF, IPP) */
  93. mhilitedef IPF 'IPF IPP'
  94. mhiliteadd IPF 1 'Commentaire' '_^\.\*.*_'
  95. mhiliteadd IPF 4 'Function' '_^\:h[0-3].*_'
  96.  
  97. /* Take ride of the silly (imho) EPM profile handling               */
  98. minitializehook
  99.  
  100. 'sayerror Profile processed'
  101.