/*
 *  Define token pairs in edit variables for MCMATCH macro.
 *
 *  From a KEDIT macro by Michael Chase.
 *
 *    Syntax:  [MACRO] LMATCHES <REXX | C | SH>
 *
 *  Or in the profile, with the 'file scope' settings, have something
 *  like:
 *
 *        'extract /ftype/'
 *        if ftype.1 = 'the' then
 *           'macro lmatches 'REXX
 *        [etc.]
 *
 *   or
 *
 *        'extract /coloring/'
 *        if wordpos(coloring.3, 'REXX C SH') > 0 then
 *           'macro lmatches 'coloring.3
 *
 *  If COLORING is used and there are custom TLDs (i.e. not compiled in)
 *  the above must come *after* the SET PARSER and SET AUTOCOLOR commands.
 *
 *
 */

arg which
if which = 'REXX' then do
   'editv setf matches.0 4'
   'editv setf matches.1 DO'
   'editv setf matches.2 END'
   'editv setf matches.3 /*'
   'editv setf matches.4 */'
   end
else
if which = 'C' then do
   'editv setf matches.0 6'
   'editv setf matches.1 #IF'
   'editv setf matches.2 #ENDIF'
   'editv setf matches.3 DO'
   'editv setf matches.4 WHILE'
   'editv setf matches.5 /*'
   'editv setf matches.6 */'
   end
else
if which = 'SH' then do
   'editv setf matches.0 4'
   'editv setf matches.1 IF'
   'editv setf matches.2 FI'
   'editv setf matches.3 CASE'
   'editv setf matches.4 ESAC'
   /* 'do' and 'done' won't work */
   end