/*
 *
 *  -----------------------------------------------------------------
 *  Execution of this macro requires a license for uni-XEDIT Extended
 *  for each concurrent user of the macro.
 *  -----------------------------------------------------------------
 *
 *  nocomm - exclude all Fortran comment lines from the current
 *           display
 *
 *  Syntax:  nocomm
 *
 *  Note:    This macro works only in Fortran source files.  The
 *           file being edited must have a filename of the form
 *
 *               <name>.f    or     <name>.for
 *
 *
 *
 *  Modification History:
 *
 *  -- --- --     Macro originally contributed by Dan Hofferth, Allison
 *                  Engine Company
 *  09 Feb 96 twg Standard TWG comments added
 *
 *
 */

/* Turn all FORTRAN comment cards to 'shadow' lines            -iedh1 */
 
'COMMAND EXTRACT /FNAME/ZONE/CASE/MSGMODE/'
 
If Arg(1) ^= '' Then Do
   'COMMAND MSG Type "NOCOMM" in FORTRAN files to hide comment lines.'
   Exit
   End
 
If Right(fname.1,2) ^= '.f' & Right(fname.1,4) ^= '.for' Then Do
   'COMMAND EMSG Use NOCOMM on FORTRAN files only (fname = *.f or *.for).'
   Exit
   End
 
'COMMAND SET MSGMODE OFF'
'COMMAND SET ZONE 1 1'
'COMMAND SET CASE MIXED IGNORE'
'MACRO less /C/|/*/|/D/|/!/'
'COMMAND SET CASE 'case.1 case.2
'COMMAND SET ZONE 'zone.1 zone.2
'COMMAND SET MSGMODE 'msgmode.1
 
Exit