home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / obrn-a_1.5_src.lha / oberon-a / source3.lha / Source / OC / OCStrings.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  6.4 KB  |  168 lines
  1. <* STANDARD- *> <* MAIN- *> <* INITIALISE- *>
  2.  
  3. MODULE OCStrings;
  4. (****************************************************************
  5.    This file was created automatically by `FlexCat 1.5'
  6.    Do NOT edit by hand!
  7.    Oberon-A source description C 1994 by Albert Weinert
  8.    Using with Oberon-A Interfaces for AmigaOS Release 3.1
  9.    Modified for Oberon-A 1.5 by Frank Copeland
  10.  
  11.    Application: OCStrings
  12.    Language   : "english"
  13.    Version    : 1
  14.    Description: OCStrings.cd
  15.  
  16.     $RCSfile: OCStrings.mod $
  17.    $Revision: 5.5 $
  18.      $Author: fjc $
  19.        $Date: 1995/01/26 00:17:17 $
  20.  
  21. ****************************************************************)
  22.  
  23. IMPORT
  24.   lo := Locale, e := Exec, u := Utility, y := SYSTEM;
  25.  
  26. CONST
  27.   builtinlanguage = "english";
  28.   version = 1;
  29.  
  30. CONST
  31.   OCM1* = 0;
  32.   OCM2* = 1;
  33.   OCM3* = 2;
  34.   OCS1* = 3;
  35.   OCS2* = 4;
  36.   OCS3* = 5;
  37.   OCS4* = 6;
  38.   OCS5* = 7;
  39.   OCS6* = 8;
  40.   OCS7* = 9;
  41.   OCS8* = 10;
  42.   OCS9* = 11;
  43.   OCS10* = 12;
  44.   OCS11* = 13;
  45.   OCS12* = 14;
  46.   OCS13* = 15;
  47.   OCT1* = 16;
  48.   OCT2* = 17;
  49.   OCT3* = 18;
  50.   OCT4* = 19;
  51.   OCT5* = 20;
  52.   Compiler1* = 21;
  53.   Compiler2* = 22;
  54.   Compiler3* = 23;
  55.   Compiler4* = 24;
  56.   OC1* = 25;
  57.   OC6* = 26;
  58.   OC7* = 27;
  59.   OC8* = 28;
  60.   OC9* = 29;
  61.   OC10* = 30;
  62.   OC11* = 31;
  63.   OC12* = 32;
  64.   OC13* = 33;
  65.   OC14* = 34;
  66.   OC15* = 35;
  67.   OC16* = 36;
  68.  
  69. TYPE
  70.   AppString = RECORD;
  71.      id  : LONGINT;
  72.      str : e.LSTRPTR;
  73.   END;
  74.   AppStringArray = ARRAY 37 OF AppString;
  75.  
  76. VAR
  77.   AppStrings : AppStringArray;
  78.   catalog : lo.CatalogPtr;
  79.  
  80.   PROCEDURE SetStrings;
  81.     BEGIN
  82.       AppStrings[0].id := OCM1; AppStrings[0].str := y.ADR( " !! Could not create icon for '%s'\n" );
  83.       AppStrings[1].id := OCM2; AppStrings[1].str := y.ADR( " !! Could not obtain icon\n" );
  84.       AppStrings[2].id := OCM3; AppStrings[2].str := y.ADR( " !! Directory '%s' does not exist\n" );
  85.       AppStrings[3].id := OCS1; AppStrings[3].str := y.ADR( " line %ld, col %ld: err = %ld\n" );
  86.       AppStrings[4].id := OCS2; AppStrings[4].str := y.ADR( " !! Error #%ld, line = %ld, col = %ld\n" );
  87.       AppStrings[5].id := OCS3; AppStrings[5].str := y.ADR( " !! Warning #%ld, line = %ld, col = %ld\n" );
  88.       AppStrings[6].id := OCS4; AppStrings[6].str := y.ADR( "Mark: line %ld, col %ld: err = %ld\n" );
  89.       AppStrings[7].id := OCS5; AppStrings[7].str := y.ADR( "Warning: line %ld, col %ld: err = %ld\n" );
  90.       AppStrings[8].id := OCS6; AppStrings[8].str := y.ADR( " !! SET '%s' is not allowed\n" );
  91.       AppStrings[9].id := OCS7; AppStrings[9].str := y.ADR( " !! CLEAR '%s' is not allowed\n" );
  92.       AppStrings[10].id := OCS8; AppStrings[10].str := y.ADR( " !! Could not open error file '%s'\n" );
  93.       AppStrings[11].id := OCS9; AppStrings[11].str := y.ADR( "%s : compilation error listing\n" );
  94.       AppStrings[12].id := OCS10; AppStrings[12].str := y.ADR( "Module: %s\n" );
  95.       AppStrings[13].id := OCS11; AppStrings[13].str := y.ADR( " !! Errors detected\n >> Error file : %s\n" );
  96.       AppStrings[14].id := OCS12; AppStrings[14].str := y.ADR( " !! Warnings detected\n >> Warning file : %s\n" );
  97.       AppStrings[15].id := OCS13; AppStrings[15].str := y.ADR( " !! Invalid keyword table\n" );
  98.       AppStrings[16].id := OCT1; AppStrings[16].str := y.ADR( " !! Could not find '%s'\n" );
  99.       AppStrings[17].id := OCT2; AppStrings[17].str := y.ADR( " !! Error in '%s'\n" );
  100.       AppStrings[18].id := OCT3; AppStrings[18].str := y.ADR( " !! Could not open '%s'\n" );
  101.       AppStrings[19].id := OCT4; AppStrings[19].str := y.ADR( " !! Symbol file '%s' is obsolete\n" );
  102.       AppStrings[20].id := OCT5; AppStrings[20].str := y.ADR( " >> New symbol file : %s\n" );
  103.       AppStrings[21].id := Compiler1; AppStrings[21].str := y.ADR( " !! Err #16: MODULE keyword not found\n" );
  104.       AppStrings[22].id := Compiler2; AppStrings[22].str := y.ADR( " >> Object file : %s\n" );
  105.       AppStrings[23].id := Compiler3; AppStrings[23].str := y.ADR( "    CODE: %ld, DATA: %ld, VARS: %ld, TOTAL: %ld\n" );
  106.       AppStrings[24].id := Compiler4; AppStrings[24].str := y.ADR( " !! Err #10: identifier expected after MODULE\n" );
  107.       AppStrings[25].id := OC1; AppStrings[25].str := y.ADR( " !! Could not open preferences file '%s'\n" );
  108.       AppStrings[26].id := OC6; AppStrings[26].str := y.ADR( "Could not open : %s\n" );
  109.       AppStrings[27].id := OC7; AppStrings[27].str := y.ADR( "Compiling %s...\n" );
  110.       AppStrings[28].id := OC8; AppStrings[28].str := y.ADR( "Garbage collecting..." );
  111.       AppStrings[29].id := OC9; AppStrings[29].str := y.ADR( "Source file ? : " );
  112.       AppStrings[30].id := OC10; AppStrings[30].str := y.ADR( "Finished batch compile\n" );
  113.       AppStrings[31].id := OC11; AppStrings[31].str := y.ADR( " !! Could not open '%s'\n" );
  114.       AppStrings[32].id := OC12; AppStrings[32].str := y.ADR( " !! OC requires AmigaOS 2.04 or greater\n" );
  115.       AppStrings[33].id := OC13; AppStrings[33].str := y.ADR( "See OC.doc for conditions of use\n" );
  116.       AppStrings[34].id := OC14; AppStrings[34].str := y.ADR( " !! Arguments VERBOSE and QUIET are mutually exclusive\n" );
  117.       AppStrings[35].id := OC15; AppStrings[35].str := y.ADR( " !! Arguments DEBUG and NODEBUG are mutually exclusive\n" );
  118.       AppStrings[36].id := OC16; AppStrings[36].str := y.ADR( " !! Arguments MAKEICONS and NOICONS are mutually exclusive\n" );
  119.     END SetStrings;
  120.  
  121.   PROCEDURE CloseCatalog*();
  122.     BEGIN
  123.       IF catalog # NIL THEN lo.CloseCatalog (catalog); catalog:=NIL END;
  124.    END CloseCatalog;
  125.  
  126.   PROCEDURE OpenCatalog*(loc:lo.LocalePtr; language:ARRAY OF CHAR);
  127.     VAR Tag : ARRAY 4 OF u.TagItem;
  128.     BEGIN
  129.       CloseCatalog();
  130.       IF (catalog = NIL) & (lo.base # NIL) THEN
  131.         Tag[0].tag := lo.builtInLanguage; Tag[0].data := y.ADR( builtinlanguage );
  132.         Tag[1].tag := u.skip;             Tag[1].data := y.ADR( language );
  133.         Tag[2].tag := lo.version;         Tag[2].data := version;
  134.         Tag[3].tag := u.done;
  135.  
  136.         IF language # "" THEN
  137.           Tag[1].tag:= lo.language;
  138.         END;
  139.         catalog := lo.OpenCatalogA (loc, "OCStrings.catalog", Tag);
  140.       END;
  141.     END OpenCatalog;
  142.  
  143.   PROCEDURE GetString* (num: LONGINT): e.LSTRPTR;
  144.     VAR
  145.       i: LONGINT;
  146.       default: e.LSTRPTR;
  147.     BEGIN
  148.       i := 0; WHILE (i < 37) & (AppStrings[i].id # num) DO INC (i) END;
  149.  
  150.       IF i # 37 THEN
  151.         default := AppStrings[i].str;
  152.       ELSE
  153.         default := NIL;
  154.       END;
  155.  
  156.       IF catalog # NIL THEN
  157.         RETURN lo.GetCatalogStr (catalog, num, default^);
  158.       ELSE
  159.         RETURN default;
  160.       END;
  161.     END GetString;
  162.  
  163. BEGIN
  164.   catalog := NIL;
  165.   SetStrings;
  166. END OCStrings.
  167.  
  168.