DEFINITION MODULE StrConv; (* * REPERTOIRE * Release 1.6 * By Charles Bradford and Cole Brecheen * (c) Copyright 1985-1992 PMI * Green Bay, Wisconsin * All rights reserved * (414) 468-6040 * * $Header: D:/logfiles/defs/strconv.dev 1.4 30 Dec 1990 18:04:56 coleb $ * *) FROM NumTypes IMPORT Real8; PROCEDURE AppendDecoded( VAR TheStr : ARRAY OF CHAR; TheCodeChar : CHAR; StrConst : ARRAY OF CHAR ); PROCEDURE CardinalToStr( TheNum : CARDINAL; width : CARDINAL; VAR TheStr : ARRAY OF CHAR ); PROCEDURE IntegerToStr( TheNum : INTEGER; width : CARDINAL; VAR TheStr : ARRAY OF CHAR ); PROCEDURE LongIntegerToStr( TheNum : LONGINT; width : CARDINAL; VAR TheStr : ARRAY OF CHAR ); PROCEDURE RealToStr( TheNum: Real8; DigitsRightOfDec, width: INTEGER; VAR TheStr: ARRAY OF CHAR); PROCEDURE ReturnedCard( TheStr: ARRAY OF CHAR ): CARDINAL; PROCEDURE ReturnedInt( TheStr: ARRAY OF CHAR ): INTEGER; PROCEDURE StrToLongInteger( TheStr : ARRAY OF CHAR; StartingSpot : CARDINAL; VAR TheLong : LONGINT ) : BOOLEAN; PROCEDURE StrToCardinal( TheStr : ARRAY OF CHAR; StartingSpot : CARDINAL; VAR TheCard : CARDINAL ) : BOOLEAN; PROCEDURE StrToInteger( TheStr : ARRAY OF CHAR; StartingSpot : CARDINAL; VAR TheInt : INTEGER ) : BOOLEAN; PROCEDURE StrToReal(TheStr : ARRAY OF CHAR; StartingSpot : CARDINAL; VAR TheReal : Real8): BOOLEAN; PROCEDURE DateToStr( month, day, year : CARDINAL; VAR TheStr : ARRAY OF CHAR ); PROCEDURE TimeToStr( hours, minutes, seconds, hundredths : CARDINAL; VAR TheStr : ARRAY OF CHAR); PROCEDURE ScientificToPlain( scientific: ARRAY OF CHAR; DigitsToRight, width: CARDINAL; VAR plain: ARRAY OF CHAR ): BOOLEAN; PROCEDURE OldSetFormToNew( OldFormStr: ARRAY OF CHAR; VAR NewFormStr: ARRAY OF CHAR ); PROCEDURE Init(); END StrConv.