Listing: 1 IMPLEMENTATION MODULE ErrStrgs; 2 (* 3 * REPERTOIRE 4 * Release 1.6 5 * By Charles Bradford and Cole Brecheen 6 * (c) Copyright 1985-1992 PMI 7 * Green Bay, Wisconsin 8 * All rights reserved 9 * (414) 468-6040 10 * 11 * $Header: D:/logfiles/mods/errstrgs.mov 1.5 10 Mar 1991 15:27:24 coleb $ 12 * 13 *) 14 15 16 IMPORT StrConv; 17 IMPORT StrEdit; 18 IMPORT StringIO; 19 IMPORT M2Strings; 20 21 VAR 22 Initialized : BOOLEAN; 23 24 PROCEDURE Init(); 25 BEGIN 26 IF Initialized THEN 27 RETURN; 28 ELSE 29 Initialized := TRUE; 30 END; 31 StrConv.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 32 StrEdit.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 33 StringIO.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 34 M2Strings.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 END Init; ***** ^ not supported yet 36 37 PROCEDURE NumToStr( ErrorNumber: CARDINAL; 38 VAR TheStr: ARRAY OF CHAR ); ***** ^ not supported yet 39 BEGIN 40 CASE ErrorNumber OF 41 0 : 42 StrEdit.AssignStr( 'No error', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 43 | 1 : 44 StrEdit.AssignStr( 'Invalid function number', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 45 | 2 : 46 StrEdit.AssignStr( 'File not found', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 47 | 3 : 48 StrEdit.AssignStr( 'Path not found', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 49 | 4 : 50 StrEdit.AssignStr( 'No handles left', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 51 | 5 : 52 StrEdit.AssignStr( 'Access denied', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 53 | 6 : 54 StrEdit.AssignStr( 'Invalid handle', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 55 | 7 : 56 StrEdit.AssignStr( 'Memory control blocks destroyed', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 57 | 8 : 58 StrEdit.AssignStr( 'Insufficient memory', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 59 | 9 : 60 StrEdit.AssignStr( 'Invalid memory block address', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 61 | 10 : 62 StrEdit.AssignStr( 'Invalid environment', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 63 | 11 : 64 StrEdit.AssignStr( 'Invalid format', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 65 | 12 : 66 StrEdit.AssignStr( 'Invalid access code', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 67 | 13 : 68 StrEdit.AssignStr( 'Invalid data', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 69 | 14 : 70 StrEdit.AssignStr( 'Missing message 14', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 71 | 15 : 72 StrEdit.AssignStr( 'Invalid drive was specified', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 73 | 16 : 74 StrEdit.AssignStr( 'Attempt to remove current dir', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 75 | 17 : 76 StrEdit.AssignStr( 'Different device', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 77 | 18 : 78 StrEdit.AssignStr( 'No more files', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 79 | 19 : 80 StrEdit.AssignStr( 'Write protection error', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 81 | 20 : 82 StrEdit.AssignStr( 'Bad unit number', TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 83 ELSE 84 StrConv.CardinalToStr( ORD(ErrorNumber), 0, TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 85 M2Strings.Insert( "OS/2 error ", TheStr, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 86 END; 87 88 END NumToStr; ***** ^ not supported yet 89 90 91 PROCEDURE WriteErrToHandle( TheHandle, ErrorNumber: 92 CARDINAL ); 93 VAR 94 LocalStr: ARRAY [0..79] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 95 BEGIN 96 IF ErrorNumber = 0 THEN 97 RETURN; 98 END; 99 NumToStr( ErrorNumber, LocalStr ); ***** ^ not supported yet ***** ^ not supported yet 100 StringIO.WriteEol( TheHandle, '' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 101 StringIO.WriteStr( TheHandle, LocalStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 102 END WriteErrToHandle; ***** ^ not supported yet 103 104 BEGIN 105 Initialized := FALSE; 106 Init(); ***** ^ not supported yet ***** ^ not supported yet 107 END ErrStrgs. ***** ^ not supported yet 123 errors