home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / Localization / CatCompMO / ModulaCCMO.mod < prev    next >
Encoding:
Modula Implementation  |  1994-03-24  |  1.0 KB  |  59 lines
  1. IMPLEMENTATION MODULE ;  (* OLK / 24.03.94 *)
  2.  
  3. IMPORT LocaleD, OptLocaleL, UtilityD;
  4. FROM SYSTEM IMPORT ADR, TAG;
  5.  
  6. TYPE (* MODULE *)
  7.  
  8.   AppString = RECORD
  9.                 id : LONGINT;
  10.                 sp : StrPtr;
  11.               END;
  12.  
  13.   AppArray  = ARRAY [1..nrOfStrings] OF AppString;
  14.  
  15.  
  16. CONST (* MODULE *)
  17.  
  18.  
  19. VAR (* MODULE *)
  20.  
  21.   i          : CARDINAL;
  22.   tagBuffer  : ARRAY [0..8] OF LONGINT;
  23.   currCat    : LocaleD.CatalogPtr;
  24.  
  25.  
  26. PROCEDURE GetString (ID: LONGINT): StrPtr;
  27. BEGIN
  28.   FOR i := 1 TO nrOfStrings DO
  29.     WITH appStrings[i] DO
  30.       IF id = ID THEN
  31.         IF currCat # NIL THEN
  32.           RETURN OptLocaleL.GetCatalogStr (currCat, id, sp)
  33.         ELSE
  34.           RETURN sp
  35.         END
  36.       END
  37.     END
  38.   END;
  39.   RETURN NIL
  40. END GetString;
  41.  
  42.  
  43. BEGIN (* MODULE *)
  44.  
  45.   IF OptLocaleL.localeBase # NIL THEN
  46.     currCat := OptLocaleL.OpenCatalogA (NIL, ADR(catName), TAG(tagBuffer, UtilityD.tagEnd))
  47.   END
  48.  
  49.  
  50. CLOSE (* MODULE *)
  51.  
  52.   IF currCat # NIL THEN
  53.     OptLocaleL.CloseCatalog (currCat);
  54.     currCat := NIL
  55.   END
  56.  
  57.  
  58. END (* MODULE *) .
  59.