/*  --- University of Sussex POPLOG file -----------------------------------
 *  File:           $usepop/master/C.vms/lib/auto/syscommands.p
 *  Purpose:        sysobeylist ensuring input comes from terminal
 *  Author:         Aaron Sloman, July 1982 (see revisions)
 *  Documentation:
 *  Related Files:
 */

section;

define global syscommands(list);
lvars list;
    ;;; list is a list of strings to be given to sysobeylist
    ;;; To ensure that they take input from the terminal they all may need
    ;;; to have an appropriate ASSIGN command. This is added

    maplist(list,
            procedure(string); lvars string;
                'as/user \'f$logical("SYS$ERROR") SYS$INPUT',
                string
            endprocedure) -> list;
    sysobeylist(list)
enddefine;

endsection;

/*  --- Revision History ---------------------------------------------------
--- Mark Rubinstein, Jul 29 1985 - minor tidying and made VMS only
 */
