/****************************** Module Header *******************************
*
* Module Name: modecfg.e
*
* Copyright (c) Netlabs EPM Distribution Project 2002
*
* $Id$
*
* ===========================================================================
*
* This file is part of the Netlabs EPM Distribution package and is free
* software.  You can redistribute it and/or modify it under the terms of the
* GNU General Public License as published by the Free Software
* Foundation, in version 2 as it comes in the "COPYING" file of the
* Netlabs EPM Distribution.  This library is distributed in the hope that it
* will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
* General Public License for more details.
*
****************************************************************************/

; ---------------------------------------------------------------------------
; This is the configuration file for modes. It allows for mode-specific
; settings. While the mode directories contain .HIL and .INI files that
; affect highlighting at first, other settings can be configured via 'Set...'
; commands in a more flexible way.
;
; The first part defines coding styles, using the 'AddCodingStyle' command.
;
; In the second part these coding styles were used, together with several
; other settings. The second part uses the 'ModeExecute' command.
;
; Settings for both the first and the second part can be configured via
; special 'Set...' commands only.
;
; ---------------------------------------------------------------------------
; Configuration via your own MODECFG.E file
;
;    Create your own MODECFG.E in your %NEPMD_USERDIR%\MACROS directory to
;    replace the file in the NETLABS\MACROS directory.
;
;    After making your configuration, you have to recompile EPM.E.
;    Therefore press the "Run" button, while you have an .E file on top or
;    execute Run -> Macros -> Recompile all new macros. That will
;    execute the 'RecompileNew' command.
;
; Configuration via your PROFILE.ERX file
;
;    Create PROFILE.ERX in your %NEPMD_USERDIR%\MACROS directory.
;    Definitions in that file override definitions made in MODECFG.E.
;    PROFILE.ERX is interpreted by EPM's REXX interface. That allows for
;    use of E commands additionally to standard REXX code.
;
;    You can use all 'AddCodingStyle' and 'ModeExecute' commands in
;    PROFILE.ERX as well.
;
;    After adding your commands, execute your PROFILE.ERX via the "Run"
;    button, while you have PROFILE.ERX on top or execute Run -> Run current
;    file. That will execute the 'rx profile.erx' command.
; ---------------------------------------------------------------------------

compile if not defined(SMALL)  -- If SMALL not defined, then being separately compiled
define INCLUDING_FILE = 'MODECFG.E'

EA_comment 'This sets mode-specific commands.'

compile endif

; ---------------------------------------------------------------------------
; InitModeConfig is executed by defmain, before a file is loaded and before
; PROFILE.ERX is called. Executing this in INIT.E, immediately after the
; definitions from MODEEXEC.E were defined, won't work. Apparently these defs
; need some time. Therefore the defs here are processed in MAIN.E.
;
; Omit the "defc" line when you put the following lines in your PROFILE.ERX,
; in order to override the definitions of this file.
defc InitModeConfig
   --dprintf( 'InitModeConfig called')

; The rest of the file is valid REXX and E code.

/* Clear previous coding style definitions */
'DelAllCodingStyles'

/* ----------------------------------------------------------------------- */
/* Coding styles                                                           */
/* ----------------------------------------------------------------------- */

/* Note: Spaces within the coding style name are not allowed. */

/* K&R */
'AddCodingStyle K&R SetIndent 4'
'AddCodingStyle K&R SetTabs 4'
'AddCodingStyle K&R SetCBraceStyle APPEND'
'AddCodingStyle K&R SetCCaseStyle INDENT'
'AddCodingStyle K&R SetFunctionSpacing C'

/* K&R8 */
'AddCodingStyle K&R8 SetIndent 8'
'AddCodingStyle K&R8 SetTabs 8'
'AddCodingStyle K&R8 SetCBraceStyle APPEND'
'AddCodingStyle K&R8 SetCCaseStyle INDENT'
'AddCodingStyle K&R8 SetFunctionSpacing C'

/* K&R3 */
'AddCodingStyle K&R3 SetIndent 3'
'AddCodingStyle K&R3 SetTabs 3'
'AddCodingStyle K&R3 SetCBraceStyle APPEND'
'AddCodingStyle K&R3 SetCCaseStyle INDENT'
'AddCodingStyle K&R3 SetFunctionSpacing C'

/* Linux = Gnome */
/* use tabs for indent -> convert spaces to tabs before save */
'AddCodingStyle Linux SetIndent 8'
'AddCodingStyle Linux SetTabs 8'
'AddCodingStyle Linux SetCBraceStyle APPEND'
'AddCodingStyle Linux SetCCaseStyle INDENT'
'AddCodingStyle Linux SetFunctionSpacing C'

/* BSD = Allman */
'AddCodingStyle BSD SetIndent 8'
'AddCodingStyle BSD SetTabs 8'
'AddCodingStyle BSD SetCBraceStyle BELOW'
'AddCodingStyle BSD SetCCaseStyle INDENT'
'AddCodingStyle BSD SetFunctionSpacing C'

/* BSD4 = XWP */
'AddCodingStyle BSD4 SetIndent 4'
'AddCodingStyle BSD4 SetTabs 4'
'AddCodingStyle BSD4 SetCBraceStyle BELOW'
'AddCodingStyle BSD4 SetCCaseStyle INDENT'
'AddCodingStyle BSD4 SetFunctionSpacing C'

/* BSD3 */
'AddCodingStyle BSD3 SetIndent 3'
'AddCodingStyle BSD3 SetTabs 3'
'AddCodingStyle BSD3 SetCBraceStyle BELOW'
'AddCodingStyle BSD3 SetCCaseStyle INDENT'
'AddCodingStyle BSD3 SetFunctionSpacing C'

/* GNU */
'AddCodingStyle GNU SetIndent 4'
'AddCodingStyle GNU SetTabs 4'
'AddCodingStyle GNU SetCBraceStyle HALFINDENT'
'AddCodingStyle GNU SetCCaseStyle INDENT'
'AddCodingStyle GNU SetFunctionSpacing C'

/* Whitesmith */
'AddCodingStyle Whitesmith SetIndent 8'
'AddCodingStyle Whitesmith SetTabs 8'
'AddCodingStyle Whitesmith SetCBraceStyle INDENT'
'AddCodingStyle Whitesmith SetCCaseStyle INDENT'
'AddCodingStyle Whitesmith SetFunctionSpacing C'

/* JAVA */
'AddCodingStyle JAVA SetIndent 4'
'AddCodingStyle JAVA SetTabs 8'
'AddCodingStyle JAVA SetCBraceStyle APPEND'
'AddCodingStyle JAVA SetCCaseStyle INDENT'
'AddCodingStyle JAVA SetFunctionSpacing C'

/* Christan Langanke's C style */
'AddCodingStyle C_cla SetIndent 3'
'AddCodingStyle C_cla SetTabs 3'
'AddCodingStyle C_cla SetCBraceStyle INDENT'
'AddCodingStyle C_cla SetCCaseStyle INDENT'
'AddCodingStyle C_cla SetFunctionSpacing CS'

/* Default REXX style */
'AddCodingStyle REXX_std SetRexxDoStyle INDENT'
'AddCodingStyle REXX_std SetRexxIfStyle ADDELSE'
'AddCodingStyle REXX_std SetRexxCase LOWER'
'AddCodingStyle REXX_std SetRexxForceCase 1'
'AddCodingStyle REXX_std SetTabs 2'
'AddCodingStyle REXX_std SetIndent 2'
'AddCodingStyle REXX_std SetFunctionSpacing C'

/* Christan Langanke's REXX style */
'AddCodingStyle REXX_cla SetRexxDoStyle BELOW'
'AddCodingStyle REXX_cla SetRexxIfStyle ADDELSE'
'AddCodingStyle REXX_cla SetRexxCase UPPER'
'AddCodingStyle REXX_cla SetRexxForceCase 1'
'AddCodingStyle REXX_cla SetTabs 3'  /* for first indent use 1 space */
'AddCodingStyle REXX_cla SetIndent 3'
'AddCodingStyle REXX_cla SetFunctionSpacing CS'

/* Andreas Schnellbacher's REXX style */
'AddCodingStyle REXX_aschn SetRexxDoStyle BELOW'
'AddCodingStyle REXX_aschn SetRexxIfStyle ADDELSE'
'AddCodingStyle REXX_aschn SetRexxCase LOWER'
'AddCodingStyle REXX_aschn SetRexxForceCase 1'
'AddCodingStyle REXX_aschn SetTabs 3'
'AddCodingStyle REXX_aschn SetIndent 3'
'AddCodingStyle REXX_aschn SetFunctionSpacing CS'

/* REXX style with DoStyle = APPEND, Case = UPPER, Indent = 4 */
'AddCodingStyle REXX_au4 SetRexxDoStyle APPEND'
'AddCodingStyle REXX_au4 SetRexxIfStyle ADDELSE'
'AddCodingStyle REXX_au4 SetRexxCase UPPER'
'AddCodingStyle REXX_au4 SetRexxForceCase 1'
'AddCodingStyle REXX_au4 SetTabs 4'
'AddCodingStyle REXX_au4 SetIndent 4'
'AddCodingStyle REXX_au4 SetFunctionSpacing C'


/* ----------------------------------------------------------------------- */
/* Settings for all modes, if no ModeExecute command exists.               */
/* These settings are not accessable via the Options menu,                 */
/* therefore a DEFAULT pseudo mode is defined for them.                    */
/* ----------------------------------------------------------------------- */

'ModeExecute DEFAULT SetHeaderStyle 1'
'ModeExecute DEFAULT SetHeaderLength 77'
'ModeExecute DEFAULT SetMatchChars'
'ModeExecute DEFAULT SetFunctionSpacing C'
'ModeExecute DEFAULT SetClosingBraceAutoIndent 0'


/* ----------------------------------------------------------------------- */
/* Settings for special modes                                              */
/* ----------------------------------------------------------------------- */

;'DefKeyset shell stdvalue shell'
;'ModeExecute SHELL SetKeyset shell stdvalue shell'
'ModeExecute SHELL SetKeyset shell'

'ModeExecute E SetExpand E'
'ModeExecute E SetTabs 3'
'ModeExecute E SetIndent 3'
'ModeExecute E SetMatchChars ( )'
'ModeExecute E SetMargins 1 1599 1'

'ModeExecute REXX SetExpand REXX'
'ModeExecute REXX SetCodingStyle REXX_std'
'ModeExecute REXX SetMatchChars ( )'
'ModeExecute REXX SetMargins 1 1599 1'

'ModeExecute C SetExpand C'
'ModeExecute C SetCodingStyle BSD4'
'ModeExecute C SetMatchChars { } ( ) [ ]'
'ModeExecute C SetMargins 1 1599 1'
'ModeExecute C SetClosingBraceAutoIndent 1'

'ModeExecute JAVA SetExpand C'
'ModeExecute JAVA SetCodingStyle JAVA'
'ModeExecute JAVA SetMatchChars { } ( ) [ ]'
'ModeExecute JAVA SetMargins 1 1599 1'
'ModeExecute JAVA SetClosingBraceAutoIndent 1'

'ModeExecute PASCAL SetExpand PAS'
'ModeExecute PASCAL SetTabs 3'
'ModeExecute PASCAL SetIndent 3'
'ModeExecute PASCAL SetMatchChars ( ) [ ]'
'ModeExecute PASCAL SetMargins 1 1599 1'

;'ModeExecute HTML SetMatchChars < >'
'ModeExecute HTML SetMargins 1 1599 1'

'ModeExecute JAVASCRIPT SetTabs 3'
'ModeExecute JAVASCRIPT SetIndent 3'
'ModeExecute JAVASCRIPT SetMatchChars { } ( ) [ ]'
'ModeExecute JAVASCRIPT SetMargins 1 1599 1'

'ModeExecute PYTHON SetTabs 4'
'ModeExecute PYTHON SetIndent 4'
'ModeExecute PYTHON SetMatchChars ( ) [ ]'
'ModeExecute PYTHON SetMargins 1 1599 1'

'ModeExecute TEX SetTabs 3'
'ModeExecute TEX SetIndent 3'
'ModeExecute TEX SetMatchChars { } ( ) [ ]'
'ModeExecute TEX SetMargins 1 1599 1'

/* ----------------------------------------------------------------------- */
/* End of definitions. The rest is documentation.                          */
/* ----------------------------------------------------------------------- */

/*===========================================================================

In order to create or edit one of these files, put the cursor on one of the
following three lines and press Alt+= or Alt+0

   e %NEPMD_USERDIR%\macros\modecfg.e
   e %NEPMD_USERDIR%\macros\mystuff.e
   e %NEPMD_USERDIR%\bin\profile.erx

View Netlabs' default mode configuration file:

   e %NEPMD_ROOTDIR%\netlabs\macros\modecfg.e


Syntax: ModeExecute <mode> <set_cmd> <args>

        <set_cmd>         <args>

        SetStreamMode     0 | 1
        SetInsertMode     0 | 1
        SetHighlight      0 | 1
        SetTabs           <number> or <list of numbers>
        SetTabkey         0 | 1
        SetMatchTab       0 | 1
        SetMargins        <left> <right> <par>
        SetTextColor      <number> or <color_name> (see COLORS.E)
        SetMarkColor      <number> or <color_name> (see COLORS.E)
                          (Hint: place cursor on COLORS.E and press Alt+1
                                 to load the file)
        SetTextFont       <font_size>.<font_name>[.<font_sel>]
                             <font_size> and <font_name> can be exchanged.
                             Any EPM font specification syntax is
                             accepted as well. The args are case-sensitive.
        SetToolbar        <toolbar_name> (must be defined in NEPMD.INI)
        SetDynaspell      0 | 1
        SetEditOptions    see description of EDIT command
        SetSaveOptions    see description of SAVE command
        SetSearchOptions  see description of LOCATE and REPLACE commands
                          (plus undocumented TB options)
        SetKeyset         <keyset_name> [<list_of_keyset_defs>]

     Settings for syntax expansion:
        SetExpand         0 | 1 | <expand_mode>
                             <expand_mode> examples: C | E | REXX | PASCAL
                             for SetExpand = 1, the mode is used as <expand_mode>
        SetIndent         <number> (default = first number of tabs)
        SetHeaderStyle    1 | 2
                             HeaderStyle 1 (default):
                             /********************
                             * |
                             ********************/
                             HeaderStyle 2:
                             /********************
                              * |
                              *******************/
        SetHeaderLength      <-- header_length --> (default = 77)
        SetEndCommented   0 | 1 (default = 0)
        SetMatchChars     <space-separated list of pairs> (default = '')
                             list of possible pairs: '{ } [ ] ( ) < >'
        SetCommentAutoTerminate
                          0 | 1 (default = 0)
        SetFunctionSpacing
                          'N' | 'C' | 'SC' | 'SCE' (default = 'C')
                              'N' no spaces
                              'C' space after a comma in a parameter list
                              'S' space after start (opening parenthesis)
                                  of a parameter list
                              'E' space before end (closing parenthesis)
                                  of a parameter list
        SetClosingBraceAutoIndent
                          0 | 1 (default = 0)
        SetCodingStyle    <coding_style>
                             Coding styles can be defined with the
                             AddCodingStyle command, even in PROFILE.ERX

     Settings for keyset c:
        SetCBraceStyle    'BELOW' | 'APPEND' | 'INDENT' | 'HALFINDENT'
                             (default = 'BELOW')
        SetCCaseStyle     'INDENT' | 'BELOW' (style of "case" statement,
                             default = 'INDENT')
        SetCDefaultStyle  'INDENT' | 'BELOW' (style of "default" statement,
                             default = 'INDENT')
        SetCMainStyle     'STANDARD' | 'SHORT' (style of "main" statement,
                             default = 'SHORT')
        SetCCommentStyle  'CPP' | 'C' (use either // ... or /* ... */, if
                             EndCommented = 1, default = 'CPP')

     Settings for keyset rexx:
        SetRexxDoStyle    'APPEND' | 'INDENT' | 'BELOW' (style of "do"
                             statement, default = 'BELOW')
        SetRexxIfStyle    'ADDELSE' | 'NOELSE' (style of "if" statement,
                             default = 'NOELSE')
        SetRexxCase       'LOWER' | 'MIXED' | 'UPPER' (default = 'LOWER')
        SetRexxForceCase  0 | 1 (default = 1)
                             1 means: change case of typed statements as
                             well, not only of the added statements

Any <set_cmd> can also be executed in EPM's commandline. Then it will
effect only the current file.

  SetTextColor 31     (31 = (15 = white) + (16 = blue background))

Specify DEFAULT as <args>, if you want to reset a setting to NEPMD's
default value.

  SetTextColor default

If you want to reset all settings of the current file to the default
settings for a mode, then use the mode command:

  Mode 0        (redetermine mode and apply mode-specific settings)
  Mode rexx     (change mode to REXX and apply all REXX-specific settings)

===========================================================================*/

/* ----------------------------------------------------------------------- */
/* You may want to create your own REXX style, called e.g. "MYREXX".       */
/*                                                                         */
/* 1) In order to define your own style in your PROFILE.ERX, add some      */
/*    (or all) of the 'ModeExecute REXX ...' settings below to it.         */
/*    Instead of 'ModeExecute REXX ' prepend the lines with                */
/*                                                                         */
/*       'AddCodingStyle MYREXX '                                          */
/*                                                                         */
/*    and configure the Set* command values. As an alternate, you can also */
/*    copy one of the REXX styles above and change the name to MYREXX.     */
/*    After that, add the line                                             */
/*                                                                         */
/*       'ModeExecute REXX SetCodingStyle MYREXX'                          */
/*                                                                         */
/*    Then run your PROFILE.ERX via the "RUN" button or use the "Run" ->   */
/*    "Run current file" menu item to make the changes take effect.        */
/*                                                                         */
/* 2) In order to define your own style in your MODECFG.E, copy some       */
/*    (or all) of the 'ModeExecute REXX ...' settings below here.          */
/*    Instead of 'ModeExecute REXX ' prepend the lines with                */
/*                                                                         */
/*       'AddCodingStyle MYREXX '                                          */
/*                                                                         */
/*    and configure the Set* command values. As an alternate, you can also */
/*    copy one of the REXX styles above and change the name to MYREXX.     */
/*    After that, edit the line starting with                              */
/*    'ModeExecute REXX SetCodingStyle' in the 'ModeExecute REXX' block    */
/*    below. Change it to                                                  */
/*                                                                         */
/*       'ModeExecute REXX SetCodingStyle MYREXX'                          */
/*                                                                         */
/*    Then recompile your MODECFG.E file, e.g. via the 'Relink' command or */
/*    the "Run" button. EPM has to be restarted to make the changes take   */
/*    effect.                                                              */
/* ----------------------------------------------------------------------- */


/* ----------------------------------------------------------------------- */
/* 'ModeExecute CLEAR' removes all prior ModeExecute definitions.          */
/*                                                                         */
/* This command is helpful when being used in PROFILE.ERX. It lets you     */
/* override all mode settings defined in MODECFG.E. That avoids creating   */
/* your own MODECFG.E and recompiling it. If you want to change a few      */
/* settings only or extend the default ones, you won't need it.            */
/*                                                                         */
/* For use in PROFILE.ERX, put this command above all other ModeExecute    */
/* commands.                                                               */
/* ----------------------------------------------------------------------- */
/*
'ModeExecute CLEAR'
*/



/* ---- Some more examples: ---- */

/* Experimental 1 */
/*
'ModeExecute TEXT SetHighlight 0'
'ModeExecute TEXT SetTabKey 1'
'ModeExecute TEXT SetInsertMode 0'
'ModeExecute TEXT SetDynaSpell 1'
'ModeExecute TEXT SetTextColor BLACK + LIGHT_GREYB'
'ModeExecute TEXT SetMarkColor WHITE + DARK_GREYB'
/*'ModeExecute TEXT SetTextFont 10x6.System VIO.underscore'*/
'ModeExecute TEXT SetTextFont 9.WarpSans'
'ModeExecute TEXT SetStreamMode 0'

/*'ModeExecute BIN SetEditOptions /t /64 /bin'*/
'ModeExecute BIN SetSaveOptions /ne /ns /nt'
'ModeExecute BIN SetTabs 1'
'ModeExecute BIN SetTabKey 1'
'ModeExecute BIN SetMatchTab 0'

'ModeExecute E SetIndent 3'
'ModeExecute REXX SetIndent 4'
'ModeExecute C SetIndent 5'
*/

/* Experimental 2 */
/*
'ModeExecute E SetTabKey 0'
'ModeExecute E SetToolbar STANDARD'
'ModeExecute E SetHighlight 1'
'ModeExecute E SetTextColor BLACK + WHITEB'
'ModeExecute E SetMarkColor BLUE + LIGHT_GREYB'
'ModeExecute E SetTextFont 14.System VIO'
*/