! 
! *************************************************************************
! *                                                                       *
! * © Copyright 2010, Hewlett-Packard Development Company, L.P.           *
! *                                                                       *
! * Confidential computer software.  Valid license from HP and/or         *
! * its subsidiaries required for possession, use, or copying.            *
! *                                                                       *
! * Consistent with FAR 12.211 and 12.212, Commercial Computer Software,  *
! * Computer Software Documentation, and Technical Data for Commercial    *
! * Items are licensed to the U.S. Government under vendor's standard     *
! * commercial license.                                                   *
! *                                                                       *
! * Neither HP nor any of its subsidiaries shall be liable for technical  *
! * or editorial errors or omissions contained herein.  The information   *
! * in this document is provided "as is" without warranty of any kind and *
! * is subject to change without notice.  The warranties for HP products  *
! * are set forth in the express limited warranty statements accompanying *
! * such products.  Nothing herein should be construed as constituting an *
! * additional warranty.                                                  *
! *                                                                       *
! *************************************************************************
! ********************************************************************************************************************************
!  Created: 30-Mar-2010 17:26:03 by OpenVMS SDL EV3-3      
!  Source:  19-APR-1996 08:27:10 $1$DGA7274:[ENCRYPT.SRC]ENCRYPT_DEF.SDL;1 
! ********************************************************************************************************************************
 
!*** MODULE encrypt_def IDENT V01.00 ***
%if not %declared(%quote SDL$encrypt_def_REQ) %then
! MACRO to emit warning and default to 0 if required argument is missing
!
macro
SDL$encrypt_def_REQ(ARG1, arg2) =
    %IF not %NULL(ARG1) %THEN ARG1
    %else
	%warn(%string('REQUIRED ARGUMENT ', %NAME(ARG2), ' MISSING')) 0
    %FI %;
%fi
 
%if not %declared(%quote SDL$encrypt_def_OPT) %then
! Defaults omitted arguments to 0 if followed by additional arguments
!
macro
SDL$encrypt_def_OPT[ARG] =
    %IF %NULL(ARG)
    %THEN
	%IF NOT %NULL(%REMAINING)
	%THEN
	    0
	%FI
    %ELSE
	ARG
    %FI %;
%fi
 
%if not %declared(%quote SDL$encrypt_def_LIST_0_REQ) %then
! Handles LIST parameters that are also OPTIONAL
!
macro
SDL$encrypt_def_LIST_0_REQ(ARG) =
    %IF NOT %NULL(ARG) %THEN %REMOVE(ARG) %FI %;
%fi
 
%if not %declared(%quote SDL$encrypt_def_LIST_1_REQ) %then
! Handles LIST parameters that are not OPTIONAL
! Emits warning and defaults to 0 if required argument is missing
!
macro
SDL$encrypt_def_LIST_1_REQ(ARG, ARG2) =
    %IF %NULL(ARG) %THEN
	 %warn(%string('REQUIRED ARGUMENT ', %NAME(ARG2), ' MISSING')) 0
    %ELSE
        SDL$encrypt_def_LIST_0_REQ(ARG) %FI %;
%fi
 
%if not %declared(%quote SDL$encrypt_def_CONCAT) %then
! Eliminates trailing null arguments
!
macro
SDL$encrypt_def_CONCAT[ARG] =
    %IF NOT %NULL(ARG) %THEN ARG %FI %;
%fi
 
!             ***********************************	
 
KEYWORDMACRO $encrypt_init (context,algorithm,key_type,key_descriptor
		,extra_parameter) =
   BEGIN
   EXTERNAL ROUTINE encrypt$init : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$init (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(context, %QUOTE context) , 
	   SDL$encrypt_def_REQ(algorithm, %QUOTE algorithm) , SDL$encrypt_def_REQ(key_type, %QUOTE key_type) , 
	   SDL$encrypt_def_REQ(key_descriptor, %QUOTE key_descriptor) , 
	   SDL$encrypt_def_OPT( extra_parameter)))
   END %;
 
KEYWORDMACRO $encrypt_encrypt (context,input,output,output_count
		,extra_parameter) =
   BEGIN
   EXTERNAL ROUTINE encrypt$encrypt : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$encrypt (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(context, %QUOTE context) , 
	   SDL$encrypt_def_REQ(input, %QUOTE input) , SDL$encrypt_def_REQ(output, %QUOTE output) , 
	   SDL$encrypt_def_OPT( output_count, extra_parameter)))
   END %;
 
KEYWORDMACRO $encrypt_decrypt (context,input,output,output_count
		,extra_parameter) =
   BEGIN
   EXTERNAL ROUTINE encrypt$decrypt : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$decrypt (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(context, %QUOTE context) , 
	   SDL$encrypt_def_REQ(input, %QUOTE input) , SDL$encrypt_def_REQ(output, %QUOTE output) , 
	   SDL$encrypt_def_OPT( output_count, extra_parameter)))
   END %;
 
KEYWORDMACRO $encrypt_fini (context,extra_parameter) =
   BEGIN
   EXTERNAL ROUTINE encrypt$fini : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$fini (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(context, %QUOTE context) , 
	   SDL$encrypt_def_OPT( extra_parameter)))
   END %;
 
KEYWORDMACRO $encrypt_init_asyn (efn,context,ast_address,ast_parameter
		,status_block,item_list) =
   BEGIN
   EXTERNAL ROUTINE encrypt$init_asyn : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$init_asyn (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(efn, %QUOTE efn) , 
	   SDL$encrypt_def_REQ(context, %QUOTE context) , SDL$encrypt_def_REQ(ast_address, %QUOTE ast_address) , 
	   SDL$encrypt_def_REQ(ast_parameter, %QUOTE ast_parameter) , 
	   SDL$encrypt_def_REQ(status_block, %QUOTE status_block) , 
	   SDL$encrypt_def_REQ(item_list, %QUOTE item_list) ))
   END %;
 
KEYWORDMACRO $encrypt_encrypt_asyn (efn,context,input,output,ast_address
		,ast_parameter,status_block,item_list) =
   BEGIN
   EXTERNAL ROUTINE encrypt$encrypt_asyn : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$encrypt_asyn (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(efn, %QUOTE efn) , 
	   SDL$encrypt_def_REQ(context, %QUOTE context) , SDL$encrypt_def_REQ(input, %QUOTE input) , 
	   SDL$encrypt_def_REQ(output, %QUOTE output) , SDL$encrypt_def_REQ(ast_address, %QUOTE ast_address) , 
	   SDL$encrypt_def_REQ(ast_parameter, %QUOTE ast_parameter) , 
	   SDL$encrypt_def_REQ(status_block, %QUOTE status_block) , 
	   SDL$encrypt_def_REQ(item_list, %QUOTE item_list) ))
   END %;
 
KEYWORDMACRO $encrypt_decrypt_asyn (efn,context,input,output,ast_address
		,ast_parameter,status_block,item_list) =
   BEGIN
   EXTERNAL ROUTINE encrypt$decrypt_asyn : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$decrypt_asyn (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(efn, %QUOTE efn) , 
	   SDL$encrypt_def_REQ(context, %QUOTE context) , SDL$encrypt_def_REQ(input, %QUOTE input) , 
	   SDL$encrypt_def_REQ(output, %QUOTE output) , SDL$encrypt_def_REQ(ast_address, %QUOTE ast_address) , 
	   SDL$encrypt_def_REQ(ast_parameter, %QUOTE ast_parameter) , 
	   SDL$encrypt_def_REQ(status_block, %QUOTE status_block) , 
	   SDL$encrypt_def_REQ(item_list, %QUOTE item_list) ))
   END %;
 
KEYWORDMACRO $encrypt_fini_asyn (efn,context,ast_address,ast_parameter
		,status_block,item_list) =
   BEGIN
   EXTERNAL ROUTINE encrypt$fini_asyn : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$fini_asyn (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(efn, %QUOTE efn) , 
	   SDL$encrypt_def_REQ(context, %QUOTE context) , SDL$encrypt_def_REQ(ast_address, %QUOTE ast_address) , 
	   SDL$encrypt_def_REQ(ast_parameter, %QUOTE ast_parameter) , 
	   SDL$encrypt_def_REQ(status_block, %QUOTE status_block) , 
	   SDL$encrypt_def_REQ(item_list, %QUOTE item_list) ))
   END %;
 
KEYWORDMACRO $encrypt_sync_asyn (efn,context,status_block) =
   BEGIN
   EXTERNAL ROUTINE encrypt$sync_asyn : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$sync_asyn (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(efn, %QUOTE efn) , 
	   SDL$encrypt_def_REQ(context, %QUOTE context) , SDL$encrypt_def_REQ(status_block, %QUOTE status_block) ))
   END %;
 
KEYWORDMACRO $encrypt_statistics (context,code,destination,return_length) =
   BEGIN
   EXTERNAL ROUTINE encrypt$statistics : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$statistics (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(context, %QUOTE context) , 
	   SDL$encrypt_def_REQ(code, %QUOTE code) , SDL$encrypt_def_REQ(destination, %QUOTE destination) , 
	   SDL$encrypt_def_REQ(return_length, %QUOTE return_length) ))
   END %;
 
KEYWORDMACRO $encrypt_define_key (key_name,key_value,key_flags
		,key_protection) =
   BEGIN
   EXTERNAL ROUTINE encrypt$define_key : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$define_key (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(key_name, %QUOTE key_name) , 
	   SDL$encrypt_def_REQ(key_value, %QUOTE key_value) , SDL$encrypt_def_REQ(key_flags, %QUOTE key_flags) , 
	   SDL$encrypt_def_OPT( key_protection)))
   END %;
 
KEYWORDMACRO $encrypt_delete_key (key_name,key_flags) =
   BEGIN
   EXTERNAL ROUTINE encrypt$delete_key : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$delete_key (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(key_name, %QUOTE key_name) , 
	   SDL$encrypt_def_REQ(key_flags, %QUOTE key_flags) ))
   END %;
 
KEYWORDMACRO $encrypt_encrypt_file (input_file,output_file,key_name
		,algorithm,file_flags,item_list) =
   BEGIN
   EXTERNAL ROUTINE encrypt$encrypt_file : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$encrypt_file (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(input_file, %QUOTE input_file) , 
	   SDL$encrypt_def_REQ(output_file, %QUOTE output_file) , SDL$encrypt_def_REQ(key_name, %QUOTE key_name) , 
	   SDL$encrypt_def_REQ(algorithm, %QUOTE algorithm) , SDL$encrypt_def_REQ(file_flags, %QUOTE file_flags) , 
	   SDL$encrypt_def_OPT( item_list)))
   END %;
 
KEYWORDMACRO $encrypt_encrypt_one_record (input,output,key_name
		,algorithm) =
   BEGIN
   EXTERNAL ROUTINE encrypt$encrypt_one_record : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$encrypt_one_record (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(input, %QUOTE input) , 
	   SDL$encrypt_def_REQ(output, %QUOTE output) , SDL$encrypt_def_REQ(key_name, %QUOTE key_name) , 
	   SDL$encrypt_def_REQ(algorithm, %QUOTE algorithm) ))
   END %;
 
KEYWORDMACRO $encrypt_decrypt_one_record (input,output,key_name
		,algorithm) =
   BEGIN
   EXTERNAL ROUTINE encrypt$decrypt_one_record : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$decrypt_one_record (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(input, %QUOTE input) , 
	   SDL$encrypt_def_REQ(output, %QUOTE output) , SDL$encrypt_def_REQ(key_name, %QUOTE key_name) , 
	   SDL$encrypt_def_REQ(algorithm, %QUOTE algorithm) ))
   END %;
 
KEYWORDMACRO $encrypt_generate_key (algorithm,key_length,factor_a
		,factor_b,factor_c,key_buffer) =
   BEGIN
   EXTERNAL ROUTINE encrypt$generate_key : BLISS ADDRESSING_MODE (GENERAL);
	   encrypt$generate_key (SDL$encrypt_def_CONCAT( SDL$encrypt_def_REQ(algorithm, %QUOTE algorithm) , 
	   SDL$encrypt_def_REQ(key_length, %QUOTE key_length) , SDL$encrypt_def_REQ(factor_a, %QUOTE factor_a) , 
	   SDL$encrypt_def_REQ(factor_b, %QUOTE factor_b) , SDL$encrypt_def_REQ(factor_c, %QUOTE factor_c) , 
	   SDL$encrypt_def_REQ(key_buffer, %QUOTE key_buffer) ))
   END %;