Google
 

Trailing-Edge - PDP-10 Archives - bb-lw55a-bm - language-sources/dixreq.req
There are 21 other files named dixreq.req in the archive. Click here to see a list.
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
! OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
! COPYRIGHT  (C)  DIGITAL  EQUIPMENT  CORPORATION 1983, 1986.
! ALL RIGHTS RESERVED.

!++
! .CHAPTER DIXREQ
!
!   The things in this require file really belong in DIXLIB, but one or the
! other of the compilers that are supposed to process this dreck, won't if
! it's put there.
!
!   BLISS32 won't process EXTERNAL ROUTINE declarations in require files.
!
!   BLISS36 won't process REQUIRE declarations within macro expansions.
!
!   Some of the stuff here is duplicated in selected modules, including:
! DIXDEB.  When changing this, it would be wise to check there too.
!--
!++
! .HL 1 Edit History
!
! In this REQ file, edit history will be represented only as comments to
! avoid potential confusion to the modules that require it.
! 
! new_version (1, 0)
! 
! edit (7, '23-Aug-82', 'David Dyer-Bennet')
!  %( Change version and revision standards everywhere.
!     Files: All. )%
! new_version (2, 0)
! 
! Edit (%O'36', '11-Apr-84', 'Sandy Clemens')
! %( Put all Version 2 DIX development files under edit control.  Some of
!    the files listed below have major code edits, or are new modules.  Others
!    have relatively minor changes, such as cleaning up a comment.
!    FILES: COMDIX.VAX-COM, COMPDX.CTL, DIXCST.BLI, DIXDEB.BLI,
!    DIXDN.BLI (NEW), DIXFBN.BLI, DIXFP.BLI, DIXGBL.BLI, DIXGEN.BLI,
!    DIXHST.BLI, DIXINT.PR1, DIXINT.PR2, DIXLIB.BLI, DIXPD.BLI (NEW),
!    DIXREQ.REQ, DIXSTR.BLI, DIXUTL.BLI, DXCM10.10-CTL, MAKDIXMSG.BLI,
!    STAR36.BLI, VERSION.REQ.
! )%
! 
!--
%SBTTL 'Library files'

!++
! Library files
!--

LIBRARY 'DIXLIB';
LIBRARY 'FIELDS';

%IF %BLISS (BLISS32)
%THEN
LIBRARY 'SYS$LIBRARY:XPORT';
LIBRARY 'SYS$LIBRARY:STARLET';
%FI

%IF %BLISS (BLISS36)
%THEN
LIBRARY 'BLI:XPORT';
LIBRARY 'STAR36';
%FI
%SBTTL 'Equated symbols and related'

!++
! This bit of complication simply defines dix$unwind_cond to be a
! macro which expands to the name of the condition  value indicating
! that an unwind is in progress (handlers must check for  this as their
! options are different when called during an unwind than when  called
! to handle a condition).
!
! Also defines DIX$SUCCESS_COND to be the normal success condition.
!--

%IF %BLISS (BLISS36)
%THEN

EXTERNAL LITERAL
    ss$unw;

MACRO
    dix$unwind_cond =
	ss$unw %;

%FI

%IF %BLISS (BLISS32)
%THEN

MACRO
    dix$unwind_cond =
	ss$_unwind %;

%FI

MACRO 
    dix$success_cond =
        ss$_normal % ;
%SBTTL 'Debugging external declarations'

!++
! These declarations really should go in the library file, but the VAX
! won't process them there.
!--

dix$debug (
    EXTERNAL ROUTINE
	!
	! These routines are defined in DIXDEB.BLI
	!
	typint: NOVALUE,                ! The TYPxxx routines exist to keep
	typasz: NOVALUE,                ! TUTIO out of the DIX modules.  It is
	typnel: NOVALUE,                ! confined to the DIXDEB module.
	ttygin,
	stsdmp: FORTRAN_SUB NOVALUE,
	ffddmp: FORTRAN_SUB NOVALUE,
	cfdmp:  NOVALUE,                ! [2] Remove linkage attribute
	xidmp:  NOVALUE,                ! [2] Remove linkage attribute
	cbinp,
	cbdmp:  NOVALUE;                ! [2] Remove linkage attribute
)