!<BLF/REQUIRE 'BUILD_PATH:PRETTY'>
%TITLE 'SYMTAB_DEFS - SYMTAB definitions'

!++
!  VERSION:		V001-00
!
!  FACILITY:		SYMTAB - Global symbol extractor
!
!  ABSTRACT:		This module contains definitions private to SYMTAB
!
!  AUTHOR:		Brian K Catlin
!
!  CREATION DATE:	19-JUL-1990
!
!  MODIFICATION HISTORY:
!
!	V001-1	Brian K Catlin	   19-JUL-1990
!		Original version
!--

%SBTTL 'Declarations'

!+
! SWITCHES:
!-

SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE);

!+
! INCLUDE FILES:
!-

LIBRARY 'SYS$LIBRARY:LIB';			! VMS executive macros/symbols.

REQUIRE 'BUILD_PATH:SYMTAB_STRUCTS';		! SYMTAB structure definitions

!+
! LINKAGE/GLOBAL REGISTERS:
!-

!	None.

!+
! LINKAGES:
!-

!	None.

!+
! MACROS:
!-

KEYWORDMACRO
    _init_string_desc (
	    desc,
	    class = d,
	    dtype = t,
	    length = 0,
	    pointer = 0 ) =

	!+
	! If the CLASS or DTYPE fields do not correspond to system defined
	! codes then issue a WARNING.
	!-

	%IF _match (class, s, d, vs)
	%THEN
	%ELSE
	    %WARN ('_STRING_DESC - ', class, ' not a system defined string', ' descriptor class')
	%FI

	%IF _match (dtype, t, nu, nl, nlo, nr, nro, nz, p)
	%THEN
	%ELSE
	    %WARN ('_STRING_DESC - ', dtype, ' not a system defined string', ' data type')
	%FI

	BEGIN

	BIND
	    r_desc = desc : BLOCK [, BYTE];

	r_desc [dsc$b_class] = %NAME ('dsc$k_class_', class);
	r_desc [dsc$b_dtype] = %NAME ('dsc$k_dtype_', dtype);
	r_desc [dsc$w_length] = length;
	r_desc [dsc$a_pointer] = pointer;
	END;
    %;

!+
! FIELDS:
!-

!	None.

!+
! STRUCTURES:
!-

!	None.

!+
! PROGRAM SECTION DECLARATIONS:
!-

!	None.

!+
! EQUATED SYMBOLS:
!-

LITERAL
    k_false = 0,
    k_true = 1;

!+
! OWN (R/O) STORAGE:
!-

!	None.

!+
! OWN (R/W) STORAGE:
!-

!	None.

!+
! BUILTIN DECLARATIONS:
!-

!	None.

!+
! EXTERNAL ROUTINES:
!-

!	None.

!+
! EXTERNAL REFERENCES:
!-