home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / modula2demo.lha / m2 / TalkDemo / txt / TalkErr.mod < prev    next >
Text File  |  1991-04-22  |  848b  |  48 lines
  1. IMPLEMENTATION MODULE TalkErr;
  2.  
  3. FROM SYSTEM    IMPORT ADR;
  4. FROM Requester    IMPORT OKRequest;
  5. IMPORT N:Narrator;
  6.  
  7. TYPE
  8.   Str80Ptr=POINTER TO ARRAY[0..79] OF CHAR;
  9.   Errs=ARRAY[-28..-2] OF Str80Ptr;
  10. VAR
  11.   errs:=Errs{
  12.     ADR("centPhonErr"),
  13.     ADR("dCentErr"),
  14.     ADR("volErr"),
  15.     ADR("freqErr"),
  16.     ADR("modeErr"),
  17.     ADR("sexErr"),
  18.     ADR("pitchErr"),
  19.     ADR("rateErr"),
  20.     ADR("phonErr"),
  21.     NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,
  22.     ADR("expunged"),
  23.     ADR("noWrite"),
  24.     ADR("unimpl"),
  25.     ADR("cantAlloc"),
  26.     ADR("unitErr"),
  27.     ADR("makeBad"),
  28.     ADR("noAudLib"),
  29.     ADR("noMem")
  30.   };
  31.  
  32. PROCEDURE ShowErr(err:INTEGER);
  33. VAR
  34.   t:Str80Ptr;
  35. BEGIN
  36.   IF err=0 THEN RETURN END;
  37.   t:=NIL;
  38.   IF (err>=-28)&(err<=-2) THEN
  39.     t:=errs[err]
  40.   END;
  41.   IF t=NIL THEN
  42.     t:=ADR("unkown err");
  43.   END;
  44.   OKRequest(t^);
  45. END ShowErr;
  46.  
  47. END TalkErr.
  48.