--********************************************************************************************************************
-- Created: 30-Mar-2010 17:02:08 by OpenVMS SDL EV3-3      
-- Source:  02-MAY-2008 14:13:47 $1$DGA7274:[STARLET_ADA.LIS]UTIL$ROUTINES.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package UTIL_ROUTINES is
 
--  module util$routines IDENT X01-02
 
--***************************************************************************
--									    *
--  COPYRIGHT (c) 1998 BY						    *
--  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
--  ALL RIGHTS RESERVED.						    *
-- 									    *
--  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.		    *
-- 									    *
--									    *
--***************************************************************************
--    
--    UTIL$CQUAL_FILE_PARSE
--    
 
    procedure UTIL_CQUAL_FILE_PARSE (
	STATUS		: out UNSIGNED_LONGWORD;			-- return value
	FLAGS		: in  UNSIGNED_LONGWORD;
	CONTEXT		: out UNSIGNED_LONGWORD;
	FOUND_FLAGS	: out UNSIGNED_LONGWORD;
	FLAGS_VALUE	: out UNSIGNED_LONGWORD);
 
    procedure UTIL_CQUAL_FILE_PARSE (
	STATUS		: out UNSIGNED_LONGWORD;			-- return value
	FLAGS		: in  UNSIGNED_LONGWORD;
	CONTEXT		: out UNSIGNED_LONGWORD;
	FOUND_FLAGS	: out UNSIGNED_LONGWORD;
	FLAGS_VALUE	: in  ADDRESS			:= ADDRESS_ZERO);	-- To omit optional FLAGS_VALUE argument
 
    procedure UTIL_CQUAL_FILE_PARSE (
	STATUS		: out UNSIGNED_LONGWORD;			-- return value
	FLAGS		: in  UNSIGNED_LONGWORD;
	CONTEXT		: out UNSIGNED_LONGWORD;
	FOUND_FLAGS	: in  ADDRESS			:= ADDRESS_ZERO;	-- To omit optional FOUND_FLAGS argument
	FLAGS_VALUE	: in  ADDRESS			:= ADDRESS_ZERO);	-- To omit optional FLAGS_VALUE argument
 
    procedure UTIL_CQUAL_FILE_PARSE (
	STATUS		: out UNSIGNED_LONGWORD;			-- return value
	FLAGS		: in  UNSIGNED_LONGWORD;
	CONTEXT		: out UNSIGNED_LONGWORD;
	FOUND_FLAGS	: in  ADDRESS			:= ADDRESS_ZERO;	-- To omit optional FOUND_FLAGS argument
	FLAGS_VALUE	: out UNSIGNED_LONGWORD);
 
    pragma INTERFACE (EXTERNAL, UTIL_CQUAL_FILE_PARSE);
 
    pragma IMPORT_VALUED_PROCEDURE (UTIL_CQUAL_FILE_PARSE, "util$cqual_file_parse",
	(UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
    pragma IMPORT_VALUED_PROCEDURE (UTIL_CQUAL_FILE_PARSE, "util$cqual_file_parse",
	(UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE),
	 FLAGS_VALUE);
 
    pragma IMPORT_VALUED_PROCEDURE (UTIL_CQUAL_FILE_PARSE, "util$cqual_file_parse",
	(UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, ADDRESS),
	(VALUE, REFERENCE, REFERENCE, VALUE, VALUE),
	 FOUND_FLAGS);
 
    pragma IMPORT_VALUED_PROCEDURE (UTIL_CQUAL_FILE_PARSE, "util$cqual_file_parse",
	(UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE));
 
--    
--    UTIL$CQUAL_FILE_MATCH
--    
 
    procedure UTIL_CQUAL_FILE_MATCH (
	STATUS		: out UNSIGNED_LONGWORD;			-- return value
	CONTEXT		: in  UNSIGNED_LONGWORD;
	FAB		: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER;
	FILE_NAME	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_1	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_2	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_RTN	: in  ADDRESS			:= ADDRESS'NULL_PARAMETER;
	CURRENT_FORM	: in out UNSIGNED_LONGWORD;
	DISABLE		: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    procedure UTIL_CQUAL_FILE_MATCH (
	STATUS		: out UNSIGNED_LONGWORD;			-- return value
	CONTEXT		: in  UNSIGNED_LONGWORD;
	FAB		: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER;
	FILE_NAME	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_1	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_2	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_RTN	: in  ADDRESS			:= ADDRESS'NULL_PARAMETER;
	CURRENT_FORM	: in  ADDRESS			:= ADDRESS_ZERO;	-- To omit optional CURRENT_FORM argument
	DISABLE		: in  UNSIGNED_LONGWORD		:= UNSIGNED_LONGWORD'NULL_PARAMETER);
 
    pragma INTERFACE (EXTERNAL, UTIL_CQUAL_FILE_MATCH);
 
    pragma IMPORT_VALUED_PROCEDURE (UTIL_CQUAL_FILE_MATCH, "util$cqual_file_match",
	(UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, STRING, STRING, ADDRESS, UNSIGNED_LONGWORD,
	UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE, REFERENCE),
	 DISABLE);
 
    pragma IMPORT_VALUED_PROCEDURE (UTIL_CQUAL_FILE_MATCH, "util$cqual_file_match",
	(UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, STRING, STRING, ADDRESS, ADDRESS, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, REFERENCE),
	 FAB);
 
--    
--    UTIL$CQUAL_FILE_END
--    
 
    procedure UTIL_CQUAL_FILE_END (
	STATUS		: out UNSIGNED_LONGWORD;			-- return value
	CONTEXT		: out UNSIGNED_LONGWORD);
 
    pragma INTERFACE (EXTERNAL, UTIL_CQUAL_FILE_END);
 
    pragma IMPORT_VALUED_PROCEDURE (UTIL_CQUAL_FILE_END, "util$cqual_file_end",
	(UNSIGNED_LONGWORD, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE));
 
--    
--    UTIL$CQUAL_CONFIRM_ACT
--    
 
    procedure UTIL_CQUAL_CONFIRM_ACT (
	STATUS		: out UNSIGNED_LONGWORD;			-- return value
	PROMPT_1	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_2	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_RTN	: in  ADDRESS			:= ADDRESS'NULL_PARAMETER;
	CURRENT_FORM	: in out UNSIGNED_LONGWORD);
 
    procedure UTIL_CQUAL_CONFIRM_ACT (
	STATUS		: out UNSIGNED_LONGWORD;			-- return value
	PROMPT_1	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_2	: in  STRING			:= STRING'NULL_PARAMETER;
	PROMPT_RTN	: in  ADDRESS			:= ADDRESS'NULL_PARAMETER;
	CURRENT_FORM	: in  ADDRESS			:= ADDRESS_ZERO);	-- To omit optional CURRENT_FORM argument
 
    pragma INTERFACE (EXTERNAL, UTIL_CQUAL_CONFIRM_ACT);
 
    pragma IMPORT_VALUED_PROCEDURE (UTIL_CQUAL_CONFIRM_ACT, "util$cqual_confirm_act",
	(UNSIGNED_LONGWORD, STRING, STRING, ADDRESS, UNSIGNED_LONGWORD),
	(VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE));
 
    pragma IMPORT_VALUED_PROCEDURE (UTIL_CQUAL_CONFIRM_ACT, "util$cqual_confirm_act",
	(UNSIGNED_LONGWORD, STRING, STRING, ADDRESS, ADDRESS),
	(VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE),
	 PROMPT_1);
 
end UTIL_ROUTINES;