home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / Interfaces / Translator.mod < prev    next >
Encoding:
Text File  |  1992-12-17  |  1.4 KB  |  49 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE Translator;
  10.  
  11. IMPORT e * := Exec;
  12.  
  13. CONST
  14.  
  15.   translatorName * = "translator.library";
  16.  
  17. (*      Translator error return codes   *)
  18.  
  19.   notUsed      * = -1;      (* This is an oft used system rc        *)
  20.   noMem        * = -2;      (* Can't allocate memory                *)
  21.   makeBad      * = -4;      (* Error in MakeLibrary call            *)
  22.  
  23.  
  24. VAR
  25.  
  26.   base * : e.LibraryPtr;
  27.  
  28. PROCEDURE Translate *{base,- 30}(inputString{8}      : ARRAY OF CHAR;
  29.                                  inputLength{0}      : LONGINT;
  30.                                  VAR outputBuffer{9} : ARRAY OF CHAR;
  31.                                  bufferSize{1}       : LONGINT): LONGINT;
  32.  
  33.  
  34. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  35.  
  36.  
  37. BEGIN
  38.  
  39.  base :=   e.OpenLibrary(translatorName,33);
  40.  IF base=NIL THEN HALT(20) END;
  41.  
  42. CLOSE
  43.  
  44.  IF base#NIL THEN e.CloseLibrary(base) END;
  45.  
  46. END Translator.
  47.  
  48.  
  49.