Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

MODULE ISLIBR (IDENT = '1',
    		%IF 
    			%BLISS(BLISS32)
    		%THEN
    		    LANGUAGE (BLISS32),
    		    ADDRESSING_MODE(EXTERNAL=LONG_RELATIVE,
    				   NONEXTERNAL=LONG_RELATIVE)
    		%ELSE
    		     LANGUAGE(BLISS36)
    		%FI
                )  =
BEGIN

!
!			  COPYRIGHT (C) 1982, 1983 BY
!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! This software is furnished under a license and may be used and  copied
! only  in  accordance  with  the  terms  of  such  license and with the
! inclusion of the above copyright notice.  This software or  any  other
! copies  thereof may not be provided or otherwise made available to any
! other person.  No title to and ownership of  the  software  is  hereby
! transferred.
!
! The information in this software is subject to change  without  notice
! and  should  not  be  construed  as  a commitment by DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL assumes no responsibility for the use or  reliability  of  its
! software on equipment which is not supplied by DIGITAL.
!

!++
! FACILITY:  CMS Library Processor
!
! ABSTRACT:
!  Determine if the value of fac_name$LIB is in fact a legal library
!
! ENVIRONMENT:	VAX/VMS, DS10/20
!
!--

!
! TABLE OF CONTENTS:
!

!
! INCLUDE FILES:
!
LIBRARY 'XPORT:' ;

%if %bliss(bliss32) %then
    library 'sys$library:starlet';
%else
    require 'jsys:';
%fi

REQUIRE 'SCONFG:' ;

REQUIRE 'BLISSX:' ;

REQUIRE 'COMUSR:' ;

REQUIRE 'HOSUSR:' ;

REQUIRE 'SHRUSR:' ;

!
! MACROS:
!
!
! EQUATED SYMBOLS:
!
!
! OWN STORAGE:
!
!
! EXTERNAL REFERENCES:
!
EXTERNAL LITERAL
    s_errfile;			!file not found

EXTERNAL ROUTINE
    err, 			!Report an error
    ISFILE ;			!Test if a file exists

GLOBAL ROUTINE ISLIBR  =

!++
! FUNCTIONAL DESCRIPTION:
!
! This routine determines if a specified library exists. The library
! must have certain files present to qualify as a legal library. The value
! of the macro 'lib' is used as the name of the library.
!
! FORMAL PARAMETERS:
!
!	none
!
! IMPLICIT INPUTS:
!
!	none
!
! IMPLICIT OUTPUTS:
!
!	none
! ROUTINE VALUE and
! COMPLETION CODES:
!
!	The routine returns TRUE if the value of 'LIB' is a valid
!	library. FALSE is returned if the library is not a valid library.
!
! SIDE EFFECTS:
!
!	none
!
!--

    BEGIN			! ISLIBR
    LOCAL
        f_islib : initial(true);
!
! In order to qualify as a legal library, certain files must be present.
! These files are created using the LIBRARY/INITIALIZE command. If
! these files are not present, the user did not properly initialize
! his library and the library is not a valid one.
!
    IF
        NOT isfile(len_comma_ptr(%string(lib, lok)),k_null)
    THEN
        begin
        err(s_errfile,lit(%string('File ',%string(lok),
            ' does not exist')));
        f_islib = false;
        END;

    IF
        NOT isfile(len_comma_ptr(%string(lib, res)),k_null)
    THEN
        begin
        err(s_errfile,lit(%string('File ',%string(res),
            ' does not exist')));
        f_islib = false;
        END;

    IF
        NOT isfile(len_comma_ptr(%string(lib, log)),k_null)
    THEN
        begin
        err(s_errfile,lit(%string('File ',%string(log),
            ' does not exist')));
        f_islib = false;
        END;

    IF
        NOT isfile(len_comma_ptr(%string(lib, cdir)),k_null)
    THEN
        begin
        err(s_errfile,lit(%string('File ',%string(cdir),
            ' does not exist')));
        f_islib = false;
        END;

    IF
        NOT isfile(len_comma_ptr(%string(lib, atf)),k_null)
    THEN
        begin
        err(s_errfile,lit(%string('File ',%string(atf),
            ' does not exist')));
        f_islib = false;
        END;

    .f_islib

    END;			! end of routine ISLIBR

			
   

END				! End of module ISLIBR
ELUDOM