$save nolist

/*
 *============================================================================
 *  This program is distributed in the hope that it will be useful, but
 *  WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE
 *
 *  Permission to use for any purpose, modify, copy, and make enhancements
 *  and derivative works of the software is granted if attribution is given to
 *  R.M. Gillmore, dba the ACME Software Deli, as the author
 *
 *  While the ACME Software Deli does not work for money, there is nonetheless
 *  a significant amount of work involved.  The ACME Software Deli maintains the
 *  rights to all code written, though it may be used and distributed as long as
 *  the following conditions are maintained.
 *
 *  1.  The copyright statement at the top of each code block is maintained in
 *      your distribution.
 *  2.  You do not identify yourself as the ACME Software Deli
 *  3.  Any changes made to the software are sent to the ACME Software Deli
 *============================================================================
 */


/*
 *	$Id: numStrs.ext 1157 2025-05-05 00:35:39Z rmgillmore $
 */

$if not NUMSTRS_EXT_INCLUDED
$set (NUMSTRS_EXT_INCLUDED)

$include (..\lib\comnDefs.ext)

declare	numberReportType	literally	'integer';

declare	byteType			literally '0',
		charType			literally '0',		/* to be the same as byteType */
		byteDecimalType		literally '1',
		wordType			literally '2',
		wordDecimalType		literally '3',
		dwordType			literally '4',
		dwordDecimalType	literally '5',
		pointerType			literally '6',
		stringType			literally '7',
		booleanType			literally '8',
		integerType			literally '9';

$if not numStrs_Implementation

byteToHexString:
procedure ( byteIn, stringPtr ) external;
	declare byteIn		byte,
			stringPtr	pointer;
end byteToHexString;

byteToDecimalString:
procedure ( byteIn, stringPtr ) external;
	declare byteIn		byte,
			stringPtr	pointer;
end byteToDecimalString;

booleanToString:
procedure ( booleanIn, stringPtr ) external;
	declare booleanIn	byte,
			stringPtr	pointer;
end booleanToString;

wordToHexString:
procedure ( wordIn, stringPtr ) external;
	declare wordIn		word,
			stringPtr	pointer;
end wordToHexString;

wordToDecimalString:
procedure ( wordIn, stringPtr ) external;
	declare wordIn		word,
			stringPtr	pointer;
end wordToDecimalString;

dwordToHexString:
procedure ( dwordIn, stringPtr ) external;
	declare dwordIn		dword,
			stringPtr	pointer;
end dwordToHexString;

dwordToDecimalString:
procedure ( dwordIn, stringPtr ) external;
	declare dwordIn		dword,
			stringPtr	pointer;
end dwordToDecimalString;

pointerToHexString:
procedure ( pointerIn, stringPtr ) external;
	declare pointerIn	pointer,
			stringPtr	pointer;
end pointerToHexString;

integerToString:
procedure ( integerIn, stringPtr ) external;
	declare integerIn	integer,
			stringPtr	pointer;
end integerToString;

varToString:
procedure ( valuePtr, valueType, valueLabelString, userString ) external;
	declare valuePtr			pointer,
			valueType			numberReportType,
			valueLabelString	pointer,
			userString			pointer;
end varToString;

$endif

$if not strNums_Implementation

hexStringToByte:
procedure ( valuePtr, numericStringPtr ) external;
	declare	valuePtr		pointer,
			value	based	valuePtr	byte,
			numericStringPtr	pointer,
			numberString	based	numericStringPtr	(*)	char;
end hexStringToByte;

decimalStringToByte:
procedure ( valuePtr, numericStringPtr ) external;
	declare	valuePtr		pointer,
			value	based	valuePtr	byte,
			numericStringPtr	pointer,
			numberString	based	numericStringPtr	(*)	char;
end decimalStringToByte;

hexStringToWord:
procedure ( valuePtr, numericStringPtr ) external;
	declare	valuePtr		pointer,
			value	based	valuePtr	word,
			numericStringPtr	pointer,
			numberString	based	numericStringPtr	(*)	char;
end hexStringToWord;

decimalStringToWord:
procedure ( valuePtr, numericStringPtr ) external;
	declare	valuePtr		pointer,
			value	based	valuePtr	word,
			numericStringPtr	pointer,
			numberString	based	numericStringPtr	(*)	char;
end decimalStringToWord;

hexStringToDword:
procedure ( valuePtr, numericStringPtr ) external;
	declare	valuePtr		pointer,
			value	based	valuePtr	dword,
			numericStringPtr	pointer,
			numberString	based	numericStringPtr	(*)	char;
end hexStringToDword;

decimalStringToDword:
procedure ( valuePtr, numericStringPtr ) external;
	declare	valuePtr		pointer,
			value	based	valuePtr	dword,
			numericStringPtr	pointer,
			numberString	based	numericStringPtr	(*)	char;
end decimalStringToDword;

hexStringToPointer:
procedure ( valuePtr, numericStringPtr ) external;
	declare	valuePtr		pointer,
			value	based	valuePtr	pointer,
			numericStringPtr	pointer,
			numberString	based	numericStringPtr	(*)	char;
end hexStringToPointer;

stringToBoolean:
procedure ( valuePtr, numericStringPtr ) external;
	declare	valuePtr		pointer,
			value	based	valuePtr	boolean,
			numericStringPtr	pointer,
			numberString	based	numericStringPtr	(*)	char;
end stringToBoolean;

decimalStringToInteger:
procedure ( valuePtr, numericStringPtr ) external;
	declare	valuePtr		pointer,
			value	based	valuePtr	integer,
			numericStringPtr	pointer,
			numberString	based	numericStringPtr	(*)	char;
end decimalStringToInteger;

stringToVar:
procedure ( numericString, valueType, valuePtr ) external;
	declare	numericString				pointer,
			valueType					numberReportType,
			valuePtr					pointer;
end stringToVar;
$endif

$endif
$restore