.; INDFIL.IND Control file for determining from which device .; an IND control file was run. .; .; As written, this file is intended to be a subroutine of .; a larger IND file. .; It should be called first (i.e., before any other IND directives .; such as .parse, .test, etc) are done. .; .; This routine returns the name of the device from which it was .; run (INDDEV), the file name (INDFIL) and any switches which were .; specified (SW1, SW2, SW3, SW4). .; .; Written by: .; R. W. Barnard .; BIO/Comp Applications .; P. O. Box 5342 .; Albuquerque, NM 87185 .; .; Version 1.1, 19-Mar-87. .; .indfil: .sets INDEXT ".IND" .;Default extension for IND files. .parse P0 "/" P0 SWITCH .test P0 "." .if eq 0 .sets P0 P0+INDEXT .;Use the right extension. .testfile 'P0' .parse ":" INDDEV INDFIL .testdevice 'INDDEV' .parse "," INDDEV REST .; .parse SWITCH "/" SW1 SW2 SW3 SW4 .return