/***********************************************************************
* *
* This software is part of the ast package *
* Copyright (c) 2000-2011 AT&T Intellectual Property *
* and is licensed under the *
* Eclipse Public License, Version 1.0 *
* by AT&T Intellectual Property *
* *
* A copy of the License is available at *
* http://www.eclipse.org/org/documents/epl-v10.html *
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
* *
* Information and Software Systems Research *
* AT&T Research *
* Florham Park NJ *
* *
* Glenn Fowler <gsf@research.att.com> *
* *
***********************************************************************/
#pragma prototyped
/*
* Glenn Fowler
* AT&T Research
*/
static const char usage[] =
"[-?\n@(#)$Id: msggen (AT&T Research) 2002-03-11 $\n]"
USAGE_LICENSE
"[+NAME?msggen - generate a machine independent formatted message catalog]"
"[+DESCRIPTION?\bmsggen\b merges the message text source files \amsgfile\a"
" into a machine independent formatted message catalog \acatfile\a."
" The file \acatfile\a will be created if it does not already exist."
" If \acatfile\a does exist, its messages will be included in the new"
" \acatfile\a. If set and message numbers collide, the new message"
" text defined in \amsgfile\a will replace the old message text"
" currently contained in \acatfile\a. Non-ASCII characters must be"
" UTF-8 encoded. \biconv\b(1) can be used to convert to/from UTF-8.]"
"[f:format?List the \bprintf\b(3) format signature for each message in"
" \acatfile\a. A format signature is one line containing one character"
" per format specification:]{"
" [c?char]"
" [d?double]"
" [D?long double]"
" [f?float]"
" [h?short]"
" [i?int]"
" [j?long long]"
" [l?long]"
" [p?void*]"
" [s?string]"
" [t?ptrdiff_t]"
" [z?size_t]"
" [???unknown]"
"}"
"[l:list?List \acatfile\a in UTF-8 \amsgfile\a form.]"
"[s:set?Convert the \acatfile\a operand to a message set number and"
" print the number on the standard output.]"
"[+EXTENDED DESCRIPTION?Message text source files are in \bgencat\b(1)"
" format, defined as follows. Note that the fields of a message text"
" source line are separated by a single blank character. Any other"
" blank characters are considered as being part of the subsequent"
" field. The \bNL_*\b constants are defined in one or both of"
" \b<limits.h>\b and \b<nl_types.h>\b.]{"
" [+$ \acomment\a?A line beginning with \b$\b followed by a"
" blank character is treated as a comment.]"
" [+$delset \an\a \acomment\a?This line deletes message set"
" \an\a from an existing message catalog. \an\a"
" denotes the set number [1, \bNL_SETMAX\b]]. Any"
" text following the set number is treated as a"
" comment.]"
" [+$quote \ac\a?This line specifies an optional quote"
" character \ac\a, which can be used to surround"
" \amessage-text\a so that trailing spaces or"
" empty messages are visible in a message source"
" line. By default, or if an empty \b$quote\b"
" directive is supplied, no quoting of \amessage-text\a"
" will be recognized.]"
" [+$set \an\a \acomment\a?This line specifies the set"
" identifier of the following messages until the next"
" \b$set\b or end-of-file appears. \an\a denotes the set"
" identifier, which is defined as a number in the range"
" [1, \bNL_SETMAX\b]]. Set numbers need not be"
" contiguous. Any text following the set identifier is"
" treated as a comment. If no \b$set\b directive is"
" specified in a message text source file, all messages"
" will be located in message set \b1\b.]"
" [+$translation \aidentification\a \aYYYY-MM-DD\a[,...]]?Append"
" translation info to the message catalog header. Only"
" the newest date for a given \aidentification\a"
" is retained in the catalog. Multiple translation lines"
" are combined into a single \b,\b separated list.]"
" [+\am\a \amessage-text\a?\am\a denotes the message identifier,"
" which is defined as a number in the range"
" [1, \bNL_MSGMAX\b]]. The message-text is stored in the"
" message catalogue with the set identifier specified by"
" the last \b$set\b directive, and with message"
" identifier \am\a. If the \amessage-text\a is empty,"
" and a blank character field separator is present, an"
" empty string is stored in the message catalogue. If a"
" message source line has a message number, but neither"
" a field separator nor \amessage-text\a, the existing"
" message with that number (if any) is deleted from the"
" catalogue. Message identifiers need not be contiguous."
" There are no \amessage-text\a length restrictions.]"
"}"
"\n"
"\ncatfile [ msgfile ]\n"
"\n"
"[+SEE ALSO?\bgencat\b(1), \biconv\b(1), \bmsgcc\b(1), \btranslate\b(1),"
" \bfmtfmt\b(3)]"
;
#include <ast.h>
#include <ctype.h>
#include <ccode.h>
#include <error.h>
#include <mc.h>
typedef struct Xl_s
{
struct Xl_s* next;
char* date;
char name[1];
} Xl_t;
/*
* append s to the translation list
*/
static Xl_t*
translation(Xl_t* xp, register char* s)
{
register Xl_t* px;
register char* t;
char* d;
char* e;
do
{
for (; isspace(*s); s++);
for (d = e = 0, t = s; *t; t++)
if (*t == ',')
{
e = t;
*e++ = 0;
break;
}
else if (isspace(*t))
d = t;
if (d)
{
*d++ = 0;
for (px = xp; px; px = px->next)
if (streq(px->name, s))
{
if (strcoll(px->date, d) < 0)
{
free(px->date);
if (!(px->date = strdup(d)))
error(ERROR_SYSTEM|3, "out of space [translation]");
}
break;
}
if (!px)
{
if (!(px = newof(0, Xl_t, 1, strlen(s))) || !(px->date = strdup(d)))
error(ERROR_SYSTEM|3, "out of space [translation]");
strcpy(px->name, s);
px->next = xp;
xp = px;
}
}
} while (s = e);
return xp;
}
/*
* sfprintf() with ccmaps(from,to)
*/
static int
ccsfprintf(int from, int to, Sfio_t* sp, const char* format, ...)
{
va_list ap;
Sfio_t* tp;
char* s;
int n;
va_start(ap, format);
if (from == to)
n = sfvprintf(sp, format, ap);
else if (tp = sfstropen())
{
n = sfvprintf(tp, format, ap);
s = sfstrbase(tp);
ccmaps(s, n, from, to);
n = sfwrite(sp, s, n);
sfstrclose(tp);
}
else
n = -1;
return n;
}
int
main(int argc, char** argv)
{
register Mc_t* mc;
register char* s;
register char* t;
register int c;
register int q;
register int i;
int num;
char* b;
char* e;
char* catfile;
char* msgfile;
Sfio_t* sp;
Sfio_t* mp;
Sfio_t* tp;
Xl_t* px;
Xl_t* bp;
Xl_t* xp = 0;
int format = 0;
int list = 0;
int set = 0;
NoP(argc);
error_info.id = "msggen";
for (;;)
{
switch (optget(argv, usage))
{
case 'f':
format = list = 1;
continue;
case 'l':
list = 1;
continue;
case 's':
set = 1;
continue;
case '?':
error(ERROR_USAGE|4, "%s", opt_info.arg);
continue;
case ':':
error(2, "%s", opt_info.arg);
continue;
}
break;
}
argv += opt_info.index;
if (error_info.errors || !(catfile = *argv++))
error(ERROR_USAGE|4, "%s", optusage(NiL));
/*
* set and list only need catfile
*/
if (set)
{
sfprintf(sfstdout, "%d\n", mcindex(catfile, NiL, NiL, NiL));
return error_info.errors != 0;
}
else if (list)
{
if (!(sp = sfopen(NiL, catfile, "r")))
error(ERROR_SYSTEM|3, "%s: cannot read catalog", catfile);
if (!(mc = mcopen(sp)))
error(ERROR_SYSTEM|3, "%s: catalog content error", catfile);
sfclose(sp);
if (format)
{
for (set = 1; set <= mc->num; set++)
if (mc->set[set].num)
{
sfprintf(sfstdout, "$set %d\n", set);
for (num = 1; num <= mc->set[set].num; num++)
if (s = mc->set[set].msg[num])
sfprintf(sfstdout, "%d \"%s\"\n", num, fmtfmt(s));
}
}
else
{
if (*mc->translation)
{
ccsfprintf(CC_NATIVE, CC_ASCII, sfstdout, "$translation ");
sfprintf(sfstdout, "%s", mc->translation);
ccsfprintf(CC_NATIVE, CC_ASCII, sfstdout, "\n");
}
ccsfprintf(CC_NATIVE, CC_ASCII, sfstdout, "$quote \"\n");
for (set = 1; set <= mc->num; set++)
if (mc->set[set].num)
{
ccsfprintf(CC_NATIVE, CC_ASCII, sfstdout, "$set %d\n", set);
for (num = 1; num <= mc->set[set].num; num++)
if (s = mc->set[set].msg[num])
{
ccsfprintf(CC_NATIVE, CC_ASCII, sfstdout, "%d \"", num);
while (c = *s++)
{
/*INDENT...*/
switch (c)
{
case 0x22: /* " */
case 0x5C: /* \ */
sfputc(sfstdout, 0x5C);
break;
case 0x07: /* \a */
c = 0x61;
sfputc(sfstdout, 0x5C);
break;
case 0x08: /* \b */
c = 0x62;
sfputc(sfstdout, 0x5C);
break;
case 0x0A: /* \n */
c = 0x6E;
sfputc(sfstdout, 0x5C);
break;
case 0x0B: /* \v */
c = 0x76;
sfputc(sfstdout, 0x5C);
break;
case 0x0C: /* \f */
c = 0x66;
sfputc(sfstdout, 0x5C);
break;
case 0x0D: /* \r */
c = 0x72;
sfputc(sfstdout, 0x5C);
break;
}
/*...UNDENT*/
sfputc(sfstdout, c);
}
ccsfprintf(CC_NATIVE, CC_ASCII, sfstdout, "\"\n");
}
}
}
mcclose(mc);
return error_info.errors != 0;
}
else if (!(msgfile = *argv++) || *argv)
error(3, "exactly one message file must be specified");
/*
* open the files and handles
*/
if (!(tp = sfstropen()))
error(ERROR_SYSTEM|3, "out of space [string stream]");
if (!(mp = sfopen(NiL, msgfile, "r")))
error(ERROR_SYSTEM|3, "%s: cannot read message file", msgfile);
sp = sfopen(NiL, catfile, "r");
if (!(mc = mcopen(sp)))
error(ERROR_SYSTEM|3, "%s: catalog content error", catfile);
if (sp)
sfclose(sp);
xp = translation(xp, mc->translation);
/*
* read the message file
*/
q = 0;
set = 1;
error_info.file = msgfile;
while (s = sfgetr(mp, '\n', 1))
{
error_info.line++;
if (!*s)
continue;
if (*s == '$')
{
if (!*++s || isspace(*s))
continue;
for (t = s; *s && !isspace(*s); s++);
if (*s)
*s++ = 0;
if (streq(t, "delset"))
{
while (isspace(*s))
s++;
num = (int)strtol(s, NiL, 0);
if (num < mc->num && mc->set[num].num)
for (i = 1; i <= mc->set[num].num; i++)
mcput(mc, num, i, NiL);
}
else if (streq(t, "quote"))
q = *s ? *s : 0;
else if (streq(t, "set"))
{
while (isspace(*s))
s++;
num = (int)strtol(s, &e, 0);
if (e != s)
set = num;
else
error(2, "set number expected");
}
else if (streq(t, "translation"))
xp = translation(xp, s);
}
else
{
t = s + sfvalue(mp);
num = (int)strtol(s, &e, 0);
if (e != s)
{
s = e;
if (!*s)
{
if (mcput(mc, set, num, NiL))
error(2, "(%d,%d): cannot delete message", set, num);
}
else if (isspace(*s++))
{
if (t > (s + 1) && *(t -= 2) == '\\')
{
sfwrite(tp, s, t - s);
while (s = sfgetr(mp, '\n', 0))
{
error_info.line++;
t = s + sfvalue(mp);
if (t <= (s + 1) || *(t -= 2) != '\\')
break;
sfwrite(tp, s, t - s);
}
if (!(s = sfstruse(tp)))
error(ERROR_SYSTEM|3, "out of space");
}
if (q)
{
if (*s++ != q)
{
error(2, "(%d,%d): %c quote expected", set, num, q);
continue;
}
b = t = s;
while (c = *s++)
{
if (c == '\\')
{
c = chresc(s - 1, &e);
s = e;
if (c)
*t++ = c;
else
error(1, "nul character ignored");
}
else if (c == q)
break;
else
*t++ = c;
}
if (*s)
{
error(2, "(%d,%d): characters after quote not expected", set, num);
continue;
}
*t = 0;
s = b;
}
if (mcput(mc, set, num, s))
error(2, "(%d,%d): cannot add message", set, num);
}
else
error(2, "message text expected");
}
else
error(2, "message number expected");
}
}
error_info.file = 0;
error_info.line = 0;
/*
* fix up the translation record
*/
if (xp)
{
t = "";
for (;;)
{
for (bp = 0, px = xp; px; px = px->next)
if (px->date && (!bp || strcoll(bp->date, px->date) < 0))
bp = px;
if (!bp)
break;
sfprintf(tp, "%s%s %s", t, bp->name, bp->date);
t = ", ";
bp->date = 0;
}
if (!(mc->translation = sfstruse(tp)))
error(ERROR_SYSTEM|3, "out of space");
}
/*
* dump the catalog to a local temporary
* rename if no errors
*/
if (!(s = pathtemp(NiL, 0, "", error_info.id, NiL)) || !(sp = sfopen(NiL, s, "w")))
error(ERROR_SYSTEM|3, "%s: cannot write catalog file", catfile);
if (mcdump(mc, sp) || mcclose(mc) || sfclose(sp))
{
remove(s);
error(ERROR_SYSTEM|3, "%s: temporary catalog file write error", s);
}
remove(catfile);
if (rename(s, catfile))
error(ERROR_SYSTEM|3, "%s: cannot rename from temporary catalog file %s", catfile, s);
return error_info.errors != 0;
}