home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / mlepm.zip / profile.551 < prev    next >
Text File  |  1995-09-19  |  3KB  |  96 lines
  1. /* profile.erx                                               950919 */
  2. /*                                                                  */
  3. /* This file is executed whenever you start EPM                     */
  4. /*                                                                  */
  5. /* This version is for EPM v5.51a                                   */
  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 highlighting Mode hook                                 */
  25. msethook 'modify_hook 'hilite_modify_hook
  26. maddhook 'load_hook   'hilite_load_hook
  27. maddhook 'load_hook   'c_load_hook
  28. maddhook 'load_hook   'e_load_hook
  29. maddhook 'load_hook   'html_load_hook
  30. maddhook 'load_hook   'rexx_load_hook
  31. maddhook 'load_hook   'rc_load_hook
  32.  
  33. /* I like mode in status line                 (here )              */
  34. msetstatusline 'Line %l of %s  Column %c   %f   %i  %t     %m'
  35. maddhook 'select_hook 'show_mode_hook
  36.  
  37. /* Defining global keys                                             */
  38. buildaccel '*' 34 24 MYACCEL+1 mnextfunction
  39. buildaccel '*' 34 22 MYACCEL+2 mnextfunction P
  40. buildaccel '*' 34 23 MYACCEL-1 ml_hilite_line
  41. activateaccel
  42.  
  43. /* Adding a 'Headers...' item in the Search menu for mfindfunction  */
  44. buildmenuitem 'default 3 2997 \0 4 0 mfindfunction'
  45. buildmenuitem 'default 3 2998 ~Headings... 0 0 mfindfunction'
  46. showmenu 'default'
  47.  
  48. /* Defining mouse bindings (popup menus)                            */
  49. register_mouse 1 2 CLICK 0 mpopupmenu 0
  50. register_mouse 1 3 CLICK 0 mpopupmenu 10
  51.  
  52. /* Highlighting schemes                                             */
  53.  
  54. /* C, C++ */
  55. mhilitedef C 'C H PH IH SQC CPP HPP CXX XH XPH XIH'
  56. mhiliteadd C 1 'Commentaire' '_/\*_\*/_'
  57. mhiliteadd C 1 'Commentaire' '_//.*_'
  58. mhiliteadd C 4 'Case' '_^[ \t]*case .*_'
  59. mhiliteadd C 4 'Directive' '_#[ \t]*[^d].*_'
  60.  
  61. /* E macros */
  62. mhilitedef E 'E'
  63. mhiliteadd E 1 'Commentaire' '_/\*_\*/_'
  64. mhiliteadd E 1 'Commentaire' '_--.*_'
  65. mhiliteadd E 1 'Commentaire' '_^;.*_'
  66. mhiliteadd E 4 'Function' '_^def.*_'
  67. mhiliteadd E 4 'Directive' '_^[ \t]*compile.*_'
  68.  
  69. /* Rexx macros */
  70. mhilitedef REXX 'CMD ERX'
  71. mhiliteadd REXX 1 'Commentaire' '_/\*_\*/_'
  72. mhiliteadd REXX 4 'Case' '_when.*then_'
  73. mhiliteadd REXX 4 'Function' '~^[a-zA-Z_][a-zA-Z0-9_]*:~'
  74.  
  75. /* IDL (SOM, ...) */
  76. mhilitedef OIDL 'IDL CSC SC PSC CS2'
  77. mhiliteadd OIDL 1 'Commentaire' '_/\*_\*/_'
  78. mhiliteadd OIDL 1 'Commentaire' '_//.*_'
  79. mhiliteadd OIDL 1 'Commentaire' '_--.*_'
  80. mhiliteadd OIDL 1 'Commentaire' '_# .*_'
  81. mhiliteadd OIDL 4 'Case' '~^[a-zA-Z].*:~'
  82.  
  83. /* DOS (SYS BAT) */
  84. mhilitedef DOS 'SYS BAT'
  85. mhiliteadd DOS 1 'Commentaire' '_^REM.*_'
  86.  
  87. /* IPF (IPF, IPP) */
  88. mhilitedef IPF 'IPF IPP'
  89. mhiliteadd IPF 1 'Commentaire' '_^\.\*.*_'
  90. mhiliteadd IPF 4 'Function' '_^:h[0-3].*_'
  91.  
  92. /* Take ride of the silly (imho) EPM profile handling               */
  93. minitializehook
  94.  
  95. 'sayerror Profile processed'
  96.