From 12a9fabe52b88bdb75e305bbe485573d34bfbc24 Mon Sep 17 00:00:00 2001 From: Ulrich Drepper Date: Thu, 30 Apr 1998 18:52:38 +0000 Subject: Update. * locale/programs/locfile.c: Interpret I18NPATH value as base of path, extended with "/locales/". --- locale/programs/charmap.c | 27 +-------- locale/programs/charset.h | 3 - locale/programs/locfile.c | 111 +++++++++++++++++++++++++++++++++++- locale/programs/repertoire.c | 133 +++++++++++++++++++++---------------------- 4 files changed, 174 insertions(+), 100 deletions(-) (limited to 'locale') diff --git a/locale/programs/charmap.c b/locale/programs/charmap.c index 7114a237a0..e11df1cf29 100644 --- a/locale/programs/charmap.c +++ b/locale/programs/charmap.c @@ -211,8 +211,6 @@ parse_charmap (const char *filename) memset (result, '\0', sizeof (struct charset_t)); /* The default DEFAULT_WIDTH is 1. */ result->width_default = 1; - /* Let the user overwrite the repertoire map we use. */ - result->repertoiremap = repertoiremap; #define obstack_chunk_alloc malloc #define obstack_chunk_free free @@ -269,17 +267,6 @@ parse_charmap (const char *filename) lr_ignore_rest (cmfile, 1); - /* Read the repertoire map now. */ - if (result->repertoiremap == NULL) - /* This is fatal. */ - error (4, 0, _("no repertoire map specified: cannot proceed")); - - result->repertoire = repertoire_read (result->repertoiremap); - if (result->repertoire == NULL) - /* This is also fatal. */ - error (4, errno, _("cannot read repertoire map `%s'"), - result->repertoiremap); - state = 2; continue; } @@ -288,7 +275,7 @@ parse_charmap (const char *filename) && nowtok != tok_mb_cur_min && nowtok != tok_escape_char && nowtok != tok_comment_char && nowtok != tok_g0esc && nowtok != tok_g1esc && nowtok != tok_g2esc - && nowtok != tok_g3esc && nowtok != tok_repertoiremap) + && nowtok != tok_g3esc) { lr_error (cmfile, _("syntax error in prolog: %s"), _("illegal definition")); @@ -320,18 +307,6 @@ parse_charmap (const char *filename) lr_ignore_rest (cmfile, 1); continue; - case tok_repertoiremap: - if (arg->tok != tok_ident) - goto badarg; - - if (result->repertoiremap == NULL) - result->repertoiremap = obstack_copy0 (&result->mem_pool, - arg->val.str.start, - arg->val.str.len); - - lr_ignore_rest (cmfile, 1); - continue; - case tok_mb_cur_max: case tok_mb_cur_min: if (arg->tok != tok_number) diff --git a/locale/programs/charset.h b/locale/programs/charset.h index db93f16306..8f066b115b 100644 --- a/locale/programs/charset.h +++ b/locale/programs/charset.h @@ -37,9 +37,6 @@ struct width_rule struct charset_t { - const char *repertoiremap; - struct repertoire_t *repertoire; - const char *code_set_name; int mb_cur_min; int mb_cur_max; diff --git a/locale/programs/locfile.c b/locale/programs/locfile.c index ad7e9d5fb4..5a3fc25e3d 100644 --- a/locale/programs/locfile.c +++ b/locale/programs/locfile.c @@ -58,6 +58,7 @@ char *xstrdup (const char *__str); struct localedef_t * locfile_read (const char *filename, struct charset_t *charset) { + struct repertoire_t *repertoire = NULL; struct linereader *ldfile; struct localedef_t *result; int state; @@ -80,7 +81,8 @@ locfile_read (const char *filename, struct charset_t *charset) char *i18npath = __secure_getenv ("I18NPATH"); if (i18npath != NULL && *i18npath != '\0') { - char path[strlen (filename) + 1 + strlen (i18npath) + 1]; + char path[strlen (filename) + 1 + strlen (i18npath) + + sizeof ("/locales/") - 1]; char *next; i18npath = strdupa (i18npath); @@ -88,7 +90,7 @@ locfile_read (const char *filename, struct charset_t *charset) while (ldfile == NULL && (next = strsep (&i18npath, ":")) != NULL) { - stpcpy (stpcpy (stpcpy (path, next), "/"), filename); + stpcpy (stpcpy (stpcpy (path, next), "/locales/"), filename); ldfile = lr_open (path, locfile_hash); } @@ -249,27 +251,132 @@ argument to `%s' must be a single character"), ldfile->comment_char = *arg->val.str.start; break; + case tok_repertoiremap: + /* We need an argument. */ + arg = lr_token (ldfile, charset); + + if (arg->tok != tok_ident) + { + SYNTAX_ERROR (_("bad argument")); + continue; + } + + if (repertoiremap == NULL) + { + repertoiremap = memcpy (xmalloc (arg->val.str.len + 1), + arg->val.str.start, + arg->val.str.len); + ((char *) repertoiremap)[arg->val.str.len] = '\0'; + } + + lr_ignore_rest (ldfile, 1); + continue; + case tok_lc_ctype: + if (repertoire == NULL) + { + /* Read the repertoire map now. */ + if (repertoiremap == NULL) + /* This is fatal. */ + error (4, 0, + _("no repertoire map specified: cannot proceed")); + + repertoire = repertoire_read (repertoiremap); + if (repertoire == NULL) + /* This is also fatal. */ + error (4, errno, _("cannot read repertoire map `%s'"), + repertoiremap); + } state = 2; break; case tok_lc_collate: + if (repertoire == NULL) + { + /* Read the repertoire map now. */ + if (repertoiremap == NULL) + /* This is fatal. */ + error (4, 0, + _("no repertoire map specified: cannot proceed")); + + repertoire = repertoire_read (repertoiremap); + if (repertoire == NULL) + /* This is also fatal. */ + error (4, errno, _("cannot read repertoire map `%s'"), + repertoiremap); + } state = 10; break; case tok_lc_monetary: + if (repertoire == NULL) + { + /* Read the repertoire map now. */ + if (repertoiremap == NULL) + /* This is fatal. */ + error (4, 0, + _("no repertoire map specified: cannot proceed")); + + repertoire = repertoire_read (repertoiremap); + if (repertoire == NULL) + /* This is also fatal. */ + error (4, errno, _("cannot read repertoire map `%s'"), + repertoiremap); + } state = 20; break; case tok_lc_numeric: + if (repertoire == NULL) + { + /* Read the repertoire map now. */ + if (repertoiremap == NULL) + /* This is fatal. */ + error (4, 0, + _("no repertoire map specified: cannot proceed")); + + repertoire = repertoire_read (repertoiremap); + if (repertoire == NULL) + /* This is also fatal. */ + error (4, errno, _("cannot read repertoire map `%s'"), + repertoiremap); + } state = 30; break; case tok_lc_time: + if (repertoire == NULL) + { + /* Read the repertoire map now. */ + if (repertoiremap == NULL) + /* This is fatal. */ + error (4, 0, + _("no repertoire map specified: cannot proceed")); + + repertoire = repertoire_read (repertoiremap); + if (repertoire == NULL) + /* This is also fatal. */ + error (4, errno, _("cannot read repertoire map `%s'"), + repertoiremap); + } state = 40; break; case tok_lc_messages: + if (repertoire == NULL) + { + /* Read the repertoire map now. */ + if (repertoiremap == NULL) + /* This is fatal. */ + error (4, 0, + _("no repertoire map specified: cannot proceed")); + + repertoire = repertoire_read (repertoiremap); + if (repertoire == NULL) + /* This is also fatal. */ + error (4, errno, _("cannot read repertoire map `%s'"), + repertoiremap); + } state = 50; break; diff --git a/locale/programs/repertoire.c b/locale/programs/repertoire.c index 1f219ec81f..e7040a0e2c 100644 --- a/locale/programs/repertoire.c +++ b/locale/programs/repertoire.c @@ -38,68 +38,63 @@ extern void *xmalloc (size_t __n); /* Simple keyword hashing for the repertoiremap. */ -static struct repertoire_t *parse_repertoiremap (const char *filename); static const struct keyword_t *repertoiremap_hash (const char *str, int len); struct repertoire_t * repertoire_read (const char *filename) { - const char *pathnfile; - struct repertoire_t *result = NULL; - - if (euidaccess (filename, R_OK) >= 0) - pathnfile = filename; - else if (filename[0] != '/') - { - char *cp = xmalloc (strlen (filename) + sizeof CHARMAP_PATH + 1); - stpcpy (stpcpy (stpcpy (cp, CHARMAP_PATH), "/"), filename); - - pathnfile = (const char *) cp; - } - else - pathnfile = NULL; - - if (pathnfile != NULL) - { - result = parse_repertoiremap (pathnfile); - - if (result == NULL && !be_quiet) - error (0, errno, _("repertoire map file `%s' not found"), filename); - } - - return result; -} - - -static struct repertoire_t * -parse_repertoiremap (const char *filename) -{ - struct linereader *cmfile; + struct linereader *repfile; struct repertoire_t *result; int state; char *from_name = NULL; char *to_name = NULL; /* Determine path. */ - cmfile = lr_open (filename, repertoiremap_hash); - if (cmfile == NULL) + repfile = lr_open (filename, repertoiremap_hash); + if (repfile == NULL) { if (strchr (filename, '/') == NULL) { - /* Look in the systems charmap directory. */ - char *buf = xmalloc (strlen (filename) + 1 - + sizeof (REPERTOIREMAP_PATH)); + char *i18npath = __secure_getenv ("I18NPATH"); + if (i18npath != NULL && *i18npath != '\0') + { + char path[strlen (filename) + 1 + strlen (i18npath) + + sizeof ("/repertoiremaps/") - 1]; + char *next; + i18npath = strdupa (i18npath); - stpcpy (stpcpy (stpcpy (buf, REPERTOIREMAP_PATH), "/"), filename); - cmfile = lr_open (buf, repertoiremap_hash); - if (cmfile == NULL) - free (buf); + while (repfile == NULL + && (next = strsep (&i18npath, ":")) != NULL) + { + stpcpy (stpcpy (stpcpy (path, next), "/repertoiremaps/"), + filename); + + repfile = lr_open (path, repertoiremap_hash); + } + } + + if (repfile == NULL) + { + /* Look in the systems charmap directory. */ + char *buf = xmalloc (strlen (filename) + 1 + + sizeof (REPERTOIREMAP_PATH)); + + stpcpy (stpcpy (stpcpy (buf, REPERTOIREMAP_PATH), "/"), + filename); + repfile = lr_open (buf, repertoiremap_hash); + + if (repfile == NULL) + free (buf); + } } - if (cmfile == NULL) - return NULL; + if (repfile == NULL) + { + error (0, errno, _("repertoire map file `%s' not found"), filename); + return NULL; + } } /* Allocate room for result. */ @@ -122,7 +117,7 @@ parse_repertoiremap (const char *filename) while (1) { /* What's on? */ - struct token *now = lr_token (cmfile, NULL); + struct token *now = lr_token (repfile, NULL); enum token_t nowtok = now->tok; struct token *arg; @@ -141,40 +136,40 @@ parse_repertoiremap (const char *filename) if (nowtok == tok_escape_char || nowtok == tok_comment_char) { /* We know that we need an argument. */ - arg = lr_token (cmfile, NULL); + arg = lr_token (repfile, NULL); if (arg->tok != tok_ident) { - lr_error (cmfile, _("syntax error in prolog: %s"), + lr_error (repfile, _("syntax error in prolog: %s"), _("bad argument")); - lr_ignore_rest (cmfile, 0); + lr_ignore_rest (repfile, 0); continue; } if (arg->val.str.len != 1) { - lr_error (cmfile, _("\ + lr_error (repfile, _("\ argument to <%s> must be a single character"), nowtok == tok_escape_char ? "escape_char" : "comment_char"); - lr_ignore_rest (cmfile, 0); + lr_ignore_rest (repfile, 0); continue; } if (nowtok == tok_escape_char) - cmfile->escape_char = *arg->val.str.start; + repfile->escape_char = *arg->val.str.start; else - cmfile->comment_char = *arg->val.str.start; + repfile->comment_char = *arg->val.str.start; - lr_ignore_rest (cmfile, 1); + lr_ignore_rest (repfile, 1); continue; } if (nowtok == tok_charids) { - lr_ignore_rest (cmfile, 1); + lr_ignore_rest (repfile, 1); state = 2; continue; @@ -199,11 +194,11 @@ argument to <%s> must be a single character"), if (nowtok != tok_bsymbol) { - lr_error (cmfile, + lr_error (repfile, _("syntax error in repertoire map definition: %s"), _("no symbolic name given")); - lr_ignore_rest (cmfile, 0); + lr_ignore_rest (repfile, 0); continue; } @@ -238,20 +233,20 @@ argument to <%s> must be a single character"), errno = 0; if (nowtok != tok_ucs2 && nowtok != tok_ucs4) { - lr_error (cmfile, + lr_error (repfile, _("syntax error in repertoire map definition: %s"), _("no or value given")); - lr_ignore_rest (cmfile, 0); + lr_ignore_rest (repfile, 0); continue; } /* We've found a new valid definition. */ - charset_new_char (cmfile, &result->char_table, 4, + charset_new_char (repfile, &result->char_table, 4, now->val.charcode.val, from_name, to_name); /* Ignore the rest of the line. */ - lr_ignore_rest (cmfile, 0); + lr_ignore_rest (repfile, 0); from_name = NULL; to_name = NULL; @@ -261,29 +256,29 @@ argument to <%s> must be a single character"), case 4: if (nowtok != tok_bsymbol) { - lr_error (cmfile, + lr_error (repfile, _("syntax error in repertoire map definition: %s"), _("no symbolic name given for end of range")); - lr_ignore_rest (cmfile, 0); + lr_ignore_rest (repfile, 0); state = 2; continue; } /* Copy the to-name in a safe place. */ to_name = (char *) obstack_copy0 (&result->mem_pool, - cmfile->token.val.str.start, - cmfile->token.val.str.len); + repfile->token.val.str.start, + repfile->token.val.str.len); state = 5; continue; case 90: if (nowtok != tok_charids) - lr_error (cmfile, _("\ + lr_error (repfile, _("\ `%1$s' definition does not end with `END %1$s'"), "CHARIDS"); - lr_ignore_rest (cmfile, nowtok == tok_charids); + lr_ignore_rest (repfile, nowtok == tok_charids); break; } @@ -291,9 +286,9 @@ argument to <%s> must be a single character"), } if (state != 2 && state != 90 && !be_quiet) - error (0, 0, _("%s: premature end of file"), cmfile->fname); + error (0, 0, _("%s: premature end of file"), repfile->fname); - lr_close (cmfile); + lr_close (repfile); return result; } @@ -304,8 +299,8 @@ repertoiremap_hash (const char *str, int len) { static const struct keyword_t wordlist[0] = { - {"escape_char", tok_escape_char, 1}, - {"comment_char", tok_comment_char, 1}, + {"escape_char", tok_escape_char, 0}, + {"comment_char", tok_comment_char, 0}, {"CHARIDS", tok_charids, 0}, {"END", tok_end, 0}, }; -- cgit 1.4.1