Topspeed_JPI/TS/REP16/ERRSTRGS.MOD

IMPLEMENTATION MODULE ErrStrgs;
(*
 *  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/mods/errstrgs.mov   1.5   10 Mar 1991 15:27:24   coleb  $
 *
 *)


IMPORT StrConv;
IMPORT StrEdit;
IMPORT StringIO;
IMPORT M2Strings;

VAR
  Initialized : BOOLEAN;

  PROCEDURE Init();
    BEGIN
      IF Initialized THEN
        RETURN;
      ELSE
        Initialized := TRUE;
      END;
      StrConv.Init();
      StrEdit.Init();
      StringIO.Init();
      M2Strings.Init();
    END Init;

  PROCEDURE NumToStr( ErrorNumber: CARDINAL;
      VAR TheStr: ARRAY OF CHAR );
    BEGIN
      CASE ErrorNumber OF
        0 :
        StrEdit.AssignStr( 'No error', TheStr );
      | 1 :
        StrEdit.AssignStr( 'Invalid function number', TheStr );
      | 2 :
        StrEdit.AssignStr( 'File not found', TheStr );
      | 3 :
        StrEdit.AssignStr( 'Path not found', TheStr );
      | 4 :
        StrEdit.AssignStr( 'No handles left', TheStr );
      | 5 :
        StrEdit.AssignStr( 'Access denied', TheStr );
      | 6 :
        StrEdit.AssignStr( 'Invalid handle', TheStr );
      | 7 :
        StrEdit.AssignStr( 'Memory control blocks destroyed', TheStr );
      | 8 :
        StrEdit.AssignStr( 'Insufficient memory', TheStr );
      | 9 :
        StrEdit.AssignStr( 'Invalid memory block address', TheStr );
      | 10 :
        StrEdit.AssignStr( 'Invalid environment', TheStr );
      | 11 :
        StrEdit.AssignStr( 'Invalid format', TheStr );
      | 12 :
        StrEdit.AssignStr( 'Invalid access code', TheStr );
      | 13 :
        StrEdit.AssignStr( 'Invalid data', TheStr );
      | 14 :
        StrEdit.AssignStr( 'Missing message 14', TheStr );
      | 15 :
        StrEdit.AssignStr( 'Invalid drive was specified', TheStr );
      | 16 :
        StrEdit.AssignStr( 'Attempt to remove current dir', TheStr );
      | 17 :
        StrEdit.AssignStr( 'Different device', TheStr );
      | 18 :
        StrEdit.AssignStr( 'No more files', TheStr );
      | 19 :
        StrEdit.AssignStr( 'Write protection error', TheStr );
      | 20 :
        StrEdit.AssignStr( 'Bad unit number', TheStr );
      ELSE
        StrConv.CardinalToStr( ORD(ErrorNumber), 0, TheStr );
        M2Strings.Insert( "OS/2 error ", TheStr, 0 );
      END;

    END NumToStr;


  PROCEDURE WriteErrToHandle( TheHandle, ErrorNumber:
      CARDINAL );
    VAR
      LocalStr: ARRAY [0..79] OF CHAR;
    BEGIN
      IF ErrorNumber = 0 THEN
        RETURN;
      END;
      NumToStr( ErrorNumber, LocalStr );
      StringIO.WriteEol( TheHandle, '' );
      StringIO.WriteStr( TheHandle, LocalStr );
    END WriteErrToHandle;

BEGIN
  Initialized := FALSE;
  Init();
END ErrStrgs.