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

! NET:<VOBA.NML.DEVELOPMENT>SYSTYP.REQ.8 18-Feb-82 09:34:19, Edit by VOBA
!
! Nullify %sbttl and %title definitions so that they do not carry over
! to the next modules during compilation.
! 
! NET:<GROSSMAN>SYSTYP.REQ.2 17-Feb-82 20:45:35, Edit by GROSSMAN
!
! Add many modifications to this module so that it will complain when bad
! feature tests are selected. Now, no feature tests, or more than one
! conflicting one set will cause a compilation error.

!                    COPYRIGHT (c) 1980, 1981, 1982
!                    DIGITAL EQUIPMENT CORPORATION
!                        Maynard, Massachusetts
!
!     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.
!

%title 'SYSTYP -- System type macros'

!++
! Facility: LSG DECnet Network Management
!
! Abstract: This file contains macros that are used for
!	    conditional compilation depending on operating
!	    system type.
!
! Environment: BLISS-36, BLISS-32 and BLISS-16
!
! Author: Steven M. Jenness, Creation date: 10-Dec-80
!
!--

%sbttl 'Feature tests'

literal	$TRUE = (1 eql 1),
	$FALSE = (1 eql 0);

literal	$TOPS10 = $FALSE,		! TOPS-10 switch
	$TOPS20 = $FALSE,		! TOPS-20 switch
	$MCB = $TRUE,			! MCB switch
	$X25 = $FALSE;			! X.25 switch

%sbttl 'Feature test tests'

%if not ($TOPS10 or $TOPS20 or $MCB)    ! Select at least one system
%then %error ('SYSTYP - No feature test selected') %fi

%if ($TOPS10 + $TOPS20 + $MCB) gtr 1    ! Cannot select more than one though
%then %error ('SYSTYP - More than one feature test selected') %fi

%if $TOPS10
%then %print ('Building NML for Tops-10') %fi

%if $TOPS20
%then %print ('Building NML for TOPS-20') %fi

%if $MCB
%then %print ('Building NML for MCB') %fi

undeclare $TRUE, $FALSE;

%title ''
%sbttl ''
!
! [End of SYSTYP.REQ]