Topspeed_JPI/TS/MODBASE/STRCONV.DEF

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.