- outdated

Changed files:
    gettext-dml.patch -> 1.4

diff --git a/gettext-dml.patch b/gettext-dml.patch
deleted file mode 100644 (file)
index 46ef5dc..0000000
--- a/gettext-dml.patch
+++ /dev/null
@@ -1,207 +0,0 @@
-diff -ur gettext-0.10.35/src/xgettext.c gettext-0.10.35-dml/src/xgettext.c
---- gettext-0.10.35/src/xgettext.c     Wed Apr 29 18:57:50 1998
-+++ gettext-0.10.35-dml/src/xgettext.c Sat Jan 13 00:40:22 2001
-@@ -711,6 +711,195 @@
-   NULL, /* comment_special */
- };
- 
-+/* DML scanner */
-+struct dml_parser_state {
-+      FILE *in;
-+      char *filename;
-+      int line;
-+      int close;
-+      
-+      char *buf;
-+      int buflen, bufpos;
-+      int seen;
-+      message_list_ty *mlp;
-+};
-+
-+static void
-+dml_open_file(ctx)
-+      struct dml_parser_state *ctx;
-+{
-+      size_t len1, len2;
-+      int j;
-+      const char *dir;
-+      char *new_name;
-+
-+      ctx->line = 1;
-+      ctx->close = 1;
-+      ctx->buf = NULL;
-+      ctx->buflen = 0;
-+      ctx->bufpos = 0;
-+
-+      if (strcmp(ctx->filename, "-") == 0) {
-+              ctx->filename = xstrdup(_("standard input"));
-+              ctx->in = stdin;
-+              ctx->close = 0;
-+              return;
-+      }
-+      if (ctx->filename[0] == '/') {
-+              ctx->in = fopen(ctx->filename, "r");
-+              if (ctx->in == 0)
-+                      error(EXIT_FAILURE, errno, _("\
-+error while opening \"%s\" for reading"),
-+                            ctx->filename);
-+              ctx->filename = xstrdup(ctx->filename);
-+              return;
-+      }
-+
-+      len2 = strlen(ctx->filename);
-+      for (j = 0;; ++j) {
-+              dir = dir_list_nth(j);
-+              if (dir == NULL)
-+                      error(EXIT_FAILURE, ENOENT, _("\
-+error while opening \"%s\" for reading"), ctx->filename);
-+
-+              if (dir[0] == '.' && dir[1] == '\0')
-+                      new_name = xstrdup(ctx->filename);
-+              else {
-+                      len1 = strlen(dir);
-+                      new_name = xmalloc(len1 + len2 + 2);
-+                      stpcpy(stpcpy(stpcpy(new_name, dir), "/"), ctx->filename);
-+              }
-+
-+              ctx->in = fopen(new_name, "r");
-+              if (ctx->in != NULL)
-+                      break;
-+
-+              if (errno != ENOENT)
-+                      error(EXIT_FAILURE, errno, _("\
-+error while opening \"%s\" for reading"), new_name);
-+              free(new_name);
-+      }
-+      
-+      ctx->filename = new_name;
-+}
-+
-+static void dml_remember_a_message(ctx)
-+      struct dml_parser_state *ctx;
-+{
-+      char *msgid;
-+      message_ty *mp;
-+      char *msgstr;
-+
-+      msgid = ctx->buf;
-+
-+      /* See whether we shall exclude this message.  */
-+      if (exclude != NULL && message_list_search(exclude, msgid) != NULL)
-+              return;
-+
-+      /* See if we have seen this message before.  */
-+      mp = message_list_search(ctx->mlp, msgid);
-+      if (mp == NULL) {
-+              static lex_pos_ty pos = { __FILE__, __LINE__ };
-+
-+              /* Allocate a new message and append the message to the list.  */
-+              mp = message_alloc(xstrdup(msgid), NULL);
-+              /* Do not free msgid.  */
-+              message_list_append(ctx->mlp, mp);
-+
-+              /* Construct the msgstr from the prefix and suffix, otherwise use the
-+                 empty string.  */
-+              if (msgstr_prefix) {
-+                      msgstr = (char *) xmalloc(strlen(msgstr_prefix)
-+                                                + strlen(msgid)
-+                                                + strlen(msgstr_suffix) +
-+                                                1);
-+                      stpcpy(stpcpy
-+                             (stpcpy(msgstr, msgstr_prefix), msgid),
-+                             msgstr_suffix);
-+              } else
-+                      msgstr = "";
-+              message_variant_append(mp, MESSAGE_DOMAIN_DEFAULT, msgstr,
-+                                     strlen(msgstr) + 1, &pos);
-+                                     
-+              mp->is_c_format = no;
-+              mp->do_wrap = yes;      /* By default we wrap. Is it ok?  */
-+      }
-+
-+      /* Remember where we saw this msgid.  */
-+      if (line_comment)
-+              message_comment_filepos(mp, ctx->filename, ctx->line);
-+}
-+
-+/* Read a string until '}}' is found. */
-+static void
-+dml_get_string(ctx)
-+    struct dml_parser_state *ctx;
-+{
-+      int c, last_brace = 0;
-+
-+      ctx->seen = ctx->line;
-+      ctx->bufpos = 0;
-+      
-+      for (;;) {
-+              c = fgetc(ctx->in);
-+              if (c == EOF)
-+                      error(EXIT_FAILURE, 0, _("%s:%d: unmatched {{"), 
-+                              ctx->filename, ctx->seen);
-+              if (c == '\n')
-+                      ctx->line++;
-+                      
-+              if (c == '}') {
-+                      if (last_brace)
-+                              break;
-+                      last_brace = 1;
-+              } else
-+                      last_brace = 0;
-+              if (ctx->bufpos == ctx->buflen) {
-+                      if (ctx->buflen == 0)
-+                              ctx->buflen = 128;
-+                      ctx->buf = xrealloc(ctx->buf, ctx->buflen *= 2);
-+              }
-+              ctx->buf[ctx->bufpos++] = c;
-+      }
-+
-+      /* remove last } */
-+      ctx->buf[--ctx->bufpos] = 0;
-+      dml_remember_a_message(ctx);
-+}
-+
-+/* We don't really bother scanning the shell syntax.
-+   We just hunt for strings in {{ }} 
-+   */
-+static void
-+scanner_dml(filename, mlp)
-+     char *filename;
-+     message_list_ty *mlp;
-+{
-+      struct dml_parser_state ctx;
-+      int c;
-+
-+      ctx.filename = filename;
-+      ctx.mlp = mlp;
-+      dml_open_file(&ctx);
-+
-+      for (;;) {
-+              while ((c = fgetc(ctx.in)) != EOF) 
-+                      if (c == '{' &&
-+                          ((c = fgetc(ctx.in)) == EOF || c == '{'))
-+                              break;
-+                      else if (c == '\n')
-+                              ctx.line++;
-+                              
-+              if (c == EOF)
-+                      break;
-+              dml_get_string(&ctx);
-+      }
-+
-+      if (ctx.close)
-+              fclose(ctx.in);
-+      free(ctx.buf);
-+      free(ctx.filename);
-+}
- 
- static void
- read_exclusion_file (file_name)
-@@ -1330,6 +1519,7 @@
-     { "C", scanner_c, },
-     { "C++", scanner_cxx, },
-     { "PO", read_po_file, },
-+    { "DML", scanner_dml, },
-     /* Here will follow more languages and their scanners: awk, perl,
-        etc...  Make sure new scanners honor the --exlude-file option.  */
-   };