tools/flexcat/src/createct.c

   1 /*
   2  * $Id$
   3  *
   4  * Copyright (C) 1993-1999 by Jochen Wiedmann and Marcin Orlowski
   5  * Copyright (C) 2002-2010 by the FlexCat Open Source Team
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2 of the License, or (at
  10  * your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful, but
  13  * WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software
  19  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20  *
  21  */
  22
  23 #include "flexcat.h"
  24 #include "readprefs.h"
  25 #include "showfuncs.h"
  26 #include "scancd.h"
  27 #include "scanct.h"
  28 #include "createcat.h"
  29 #include "globals.h"
  30
  31 /// CreateCTFile
  32 // This creates a new catalog translation file.
  33 void CreateCTFile(char *NewCTFile)
  34 {
  35   FILE *fp;
  36   struct CDLine *cd;
  37   struct CatString *cs;
  38   struct CatalogChunk *cc;
  39   char*line;
  40   char*ctlanguage = NULL;
  41
  42   if(CatVersionString == NULL && CatRcsId == NULL)
  43   {
  44     ScanLine = 1;
  45   }
  46
  47   if(CatLanguage == NULL)
  48   {
  49 #ifdef AMIGA
  50     char lang[80];
  51
  52     if(GetVar("language", lang, sizeof(lang), 0) != 0)
  53     {
  54       ctlanguage = lang;
  55     }
  56 #else
  57     char *lang = NULL;
  58
  59     if((lang = getenv("language")) != NULL)
  60     {
  61       unsigned int i;
  62
  63       for(i = 0; i < strlen(lang); i++)
  64       {
  65         if(lang[i] == '\n')
  66         {
  67           lang[i] = '\0';
  68           break;
  69         }
  70       }
  71       ctlanguage = lang;
  72     }
  73 #endif
  74   }
  75   else
  76     ctlanguage = CatLanguage;
  77
  78   if(ctlanguage == NULL)
  79     ctlanguage = (char *)"nolanguage";
  80
  81   if(NewCTFile == NULL)
  82   {
  83     if(BaseName == NULL)
  84       ShowError(MSG_ERR_NOCTFILENAME);
  85     else
  86     {
  87       if(asprintf(&NewCTFile, "%s_%s.catalog", BaseName, ctlanguage) < 0)
  88         MemError();
  89     }
  90   }
  91   if((fp = fopen(NewCTFile, "w")) == NULL)
  92   {
  93     ShowError(MSG_ERR_NONEWCTFILE);
  94   }
  95
  96   if(!NoBufferedIO)
  97     setvbuf(fp, NULL, _IOFBF, buffer_size);
  98
  99   {
 100     if(CatRcsId != NULL)
 101     {
 102       fprintf(fp, "## rcsid %s\n", CatRcsId);
 103       if(CatName != NULL)
 104         fprintf(fp, "## name %s\n", CatName);
 105     }
 106     else
 107     {
 108       if(CatVersionString != NULL)
 109         fprintf(fp, "## version %s\n", CatVersionString);
 110       else
 111       {
 112         char *dateStr;
 113         time_t tim;
 114         struct tm *t;
 115
 116         dateStr = calloc(15, 1);
 117         time(&tim);
 118         t = localtime(&tim);
 119         strftime(dateStr, 12, "%d.%m.%Y", t);
 120
 121         if(CatVersion != 0L)
 122         {
 123           if(BaseName != NULL)
 124             fprintf(fp, "## version %cVER: %s.catalog %d.<rev> (%s)\n", '$', BaseName, CatVersion, dateStr);
 125           else
 126             fprintf(fp, "## version %cVER: <name>.catalog %d.<rev> (%s)\n", '$', CatVersion, dateStr);
 127         }
 128         else
 129         {
 130           if(BaseName != NULL)
 131             fprintf(fp, "## version %cVER: %s.catalog <ver>.0 (%s)\n", '$', BaseName, dateStr);
 132           else
 133             fprintf(fp, "## version %cVER: <name>.catalog <ver>.0 (%s)\n", '$', dateStr);
 134         }
 135
 136         free(dateStr);
 137       }
 138     }
 139   }
 140
 141   fprintf(fp, "## language %s\n" \
 142               "## codeset %d\n" \
 143               ";\n", ctlanguage != NULL ? ctlanguage : "X", CodeSet);
 144   for(cc = FirstChunk; cc != NULL; cc = cc->Next)
 145   {
 146     if(cc->ChunkStr != CatLanguage)
 147     {
 148       fprintf(fp, "## chunk ");
 149       fwrite((char *)&cc->ID, sizeof(cc->ID), 1, fp);
 150       fprintf(fp, " %s\n", cc->ChunkStr);
 151     }
 152   }
 153
 154   for(cd = FirstCDLine, cs = FirstCatString; cd != NULL; cd = cd->Next)
 155   {
 156     switch(*cd->Line)
 157     {
 158       case '#':
 159         fprintf(fp, ";%s\n", cd->Line);
 160         break;
 161
 162       case ';':
 163         fprintf(fp, "%s\n", cd->Line);
 164         break;
 165
 166       default:
 167         if(cs != NULL)
 168         {
 169
 170         /*
 171            fprintf(fp, "%s\n", cs->ID_Str);
 172            fprintf(fp, "%s\n", cs->CT_Str ? cs->CT_Str : "");
 173            putc(';', fp);
 174            putc(' ', fp);
 175          */
 176           fprintf(fp, "%s\n" \
 177                       "%s\n" \
 178                       "; ", cs->ID_Str, cs->CT_Str != NULL ? cs->CT_Str : "");
 179           for(line = cs->CD_Str; *line; ++line)
 180           {
 181             putc((int)*line, fp);
 182             if(*line == '\n')
 183             {
 184               putc(';', fp);
 185               putc(' ', fp);
 186             }
 187           }
 188           putc('\n', fp);
 189           if(cs->NotInCT && CT_Scanned)
 190             fprintf(fp, ";\n" \
 191                         "; %s\n", Msg_New);
 192           cs = cs->Next;
 193         }
 194         break;
 195     }
 196   }
 197   fclose(fp);
 198 #ifdef AMIGA
 199   SetProtection(NewCTFile, FILE_MASK);
 200 #endif
 201 }
 202
 203 ///
 204