From:	SMTP%"rlboyd@rock.concert.net"  9-FEB-1994 15:54:19.37
To:	EVERHART
CC:	
Subj:	SLMOD part 5/5

From: Bob Boyd <rlboyd@rock.concert.net>
X-Disclaimer-1: rock.concert.net is a CONCERT-CONNECT public access host.
X-Disclaimer-2:     Opinions expressed are not necessarily
X-Disclaimer-3:     those of MCNC or the CONCERT Network.
Message-Id: <9402092051.AA24221@rock.concert.net>
Subject: SLMOD part 5/5
To: ADAMSE@LETT.KUN.NL (Hans Adamse), 8004slb@vmsf.csd.mu.edu (Sandy Berger),
        Everhart@arisia.gce.com (Glenn Everhart),
        bolson@u.washington.edu (Ed Bolson),
        jkraft@mccoy.fhcrc.org (John Kraft)
Date: Wed, 9 Feb 94 15:51:52 EST
X-Mailer: ELM [version 2.3 PL11]

-+-+-+-+-+-+-+-+ START OF PART 5 -+-+-+-+-+-+-+-+
X
X! command parameters
X
X   parameter P1, LABEL=Logical_Name, prompt="Log name"
X      value (REQUIRED,TYPE=$outlog)
X   parameter P2, LABEL=Equivalence_Name, prompt="Equ name"
X      value (LIST,TYPE=$infile)
X
X! Qualifiers that specify where to affect the search list
X
X   qualifier ITEM, nonnegatable
X`09value(REQUIRED,LIST)
X   qualifier AFTER, nonnegatable
X`09DEFAULT, value(TYPE=$number,DEFAULT=127)
X   qualifier BEFORE, nonnegatable
X`09value(TYPE=$number,DEFAULT=1)
X
X! Operation control qualifiers
X
X   qualifier REMOVE, nonnegatable
X`09value(LIST,TYPE=DELETE_MODE)
X   qualifier DELETE, nonnegatable
X`09value(LIST,TYPE=DELETE_MODE)
X   qualifier INSERT, nonnegatable, DEFAULT
X
X! Logical name table and access qualifiers
X
X   qualifier INPUT_TABLE, nonnegatable
X`09value (LIST,REQUIRED,TYPE=lnm_in_table)
X   qualifier OUTPUT_TABLE, nonnegatable
X`09DEFAULT, value (LIST,REQUIRED,TYPE=lnm_table)
X
X! global logical name table qualifiers
X
X   qualifier JOB, nonnegatable
X   qualifier PROCESS, nonnegatable
X   qualifier SYSTEM, nonnegatable
X   qualifier GROUP, nonnegatable
X
X! global access mode qualifiers
X
X   qualifier USER_MODE, nonnegatable
X   qualifier SUPERVISOR_MODE, nonnegatable
X   qualifier EXECUTIVE_MODE, nonnegatable
X   qualifier KERNEL_MODE, nonnegatable
X
X! global/positional name and translation attributes
X
X   qualifier NAME_ATTRIBUTES, nonnegatable
X      value (LIST,TYPE=NAME_ATTR)
X   qualifier TRANSLATION_ATTRIBUTES, nonnegatable
X      value (LIST,TYPE=TRAN_ATTR)
X      placement=positional
X
X! If the /DELETE empties the list, then permit delete of the logical name
X
X   qualifier EMPTY_DELETE, negatable, DEFAULT
X
X! log/nolog controls feedback to sys$output
X
X   qualifier LOG, negatable
X
X! provide for returning the resulting translation to a local symbol
X
X   qualifier SYMBOL, nonnegatable
X`09value (TYPE=$outfile,DEFAULT=SLMOD_SYMBOL)
X!
X! What Momma don' allow roun' here:
X!
X! Only 1 global table specifier allowed
X!
X   disallow ( ANY2(PROCESS,JOB,GROUP,SYSTEM) )
X!
X! Only 1 global access mode specifier allowed
X!
X   disallow ( ANY2(USER_MODE,SUPERVISOR_MODE,EXECUTIVE_MODE,KERNEL_MODE) )
X!
X! only 1 delete specifier
X!
X   disallow (DELETE and REMOVE)
X!
X! can't delete and insert at the same time
X!
X   disallow (INSERT and (DELETE or REMOVE))
X!
X! Item is only permitted with DELETE
X!
X   disallow (ITEM and INSERT)
X!
X! Do not allow mixing ITEM with BEFORE or AFTER.
X! Also don't allow mixing BEFORE with AFTER
X!
X   disallow ((BEFORE and (AFTER or ITEM)) or (AFTER and ITEM))
X!
X! can't have it both ways...delete=all can't go with /NOEMPTY_DELETE
X!
X   disallow ( (REMOVE.ALL or DELETE.ALL) and (neg EMPTY_DELETE)  )
X!
X! No equivalence names allowed when deleting
X!
X   disallow ( (REMOVE.ALL or DELETE.ALL) and (Equivalence_Name) )
$ CALL UNPACK SLMOD_LINKABLE.CLD;20 1950050842
$ create 'f'
X# fort_debug_flag = /DEBUG/D_LINES/NOOPTIMIZE
X# link_debug_flag = /NODEBUG
X
Xfort_debug_flag = /NOLIST/OPTIMIZE
Xlink_debug_flag =
X
XOBJS = slmod.obj, slmod_utils.obj, slmod_linkable.obj, cli_front_end.obj
X
Xexe : slmod.exe
X
Xhelp : slmod.hlb
X
Xslmod.exe : $(OBJS)
X`09link /executable=slmod.exe $(link_debug_flag) $(OBJS)
X
Xslmod.obj : slmod.for, slmod_structures.inc, climsgdef.inc
X`09fortran $(fort_debug_flag) slmod`20
X
Xslmod_utils.obj : slmod_utils.for, slmod_structures.inc
X`09fortran $(fort_debug_flag) slmod_utils
X
Xcli_front_end.obj : cli_front_end.for
X`09fortran $(fort_debug_flag) cli_front_end
X
Xslmod.hlb : slmod.hlp
X`09Library/Help/Create slmod.hlb slmod.hlp
X
Xslmod_linkable.obj : slmod_linkable.cld
X`09Set command/object slmod_linkable
X
$ CALL UNPACK MAKEFILE.;2 1583695734
$ v=f$VERIFY(v)
$ EXIT