contrib/expat/xmlwf/ct.c

   1 #define CHARSET_MAX 41
   2
   3 static const char *
   4 getTok(const char **pp)
   5 {
   6   enum { inAtom, inString, init, inComment };
   7   int state = init;
   8   const char *tokStart = 0;
   9   for (;;) {
  10     switch (**pp) {
  11     case '\0':
  12       return 0;
  13     case ' ':
  14     case '\r':
  15     case '\t':
  16     case '\n':
  17       if (state == inAtom)
  18         return tokStart;
  19       break;
  20     case '(':
  21       if (state == inAtom)
  22         return tokStart;
  23       if (state != inString)
  24         state++;
  25       break;
  26     case ')':
  27       if (state > init)
  28         --state;
  29       else if (state != inString)
  30         return 0;
  31       break;
  32     case ';':
  33     case '/':
  34     case '=':
  35       if (state == inAtom)
  36         return tokStart;
  37       if (state == init)
  38         return (*pp)++;
  39       break;
  40     case '\\':
  41       ++*pp;
  42       if (**pp == '\0')
  43         return 0;
  44       break;
  45     case '"':
  46       switch (state) {
  47       case inString:
  48         ++*pp;
  49         return tokStart;
  50       case inAtom:
  51         return tokStart;
  52       case init:
  53         tokStart = *pp;
  54         state = inString;
  55         break;
  56       }
  57       break;
  58     default:
  59       if (state == init) {
  60         tokStart = *pp;
  61         state = inAtom;
  62       }
  63       break;
  64     }
  65     ++*pp;
  66   }
  67   /* not reached */
  68 }
  69
  70 /* key must be lowercase ASCII */
  71
  72 static int
  73 matchkey(const char *start, const char *end, const char *key)
  74 {
  75   if (!start)
  76     return 0;
  77   for (; start != end; start++, key++)
  78     if (*start != *key && *start != 'A' + (*key - 'a'))
  79       return 0;
  80   return *key == '\0';
  81 }
  82
  83 void
  84 getXMLCharset(const char *buf, char *charset)
  85 {
  86   const char *next, *p;
  87
  88   charset[0] = '\0';
  89   next = buf;
  90   p = getTok(&next);
  91   if (matchkey(p, next, "text"))
  92     strcpy(charset, "us-ascii");
  93   else if (!matchkey(p, next, "application"))
  94     return;
  95   p = getTok(&next);
  96   if (!p || *p != '/')
  97     return;
  98   p = getTok(&next);
  99   if (matchkey(p, next, "xml"))
 100     isXml = 1;
 101   p = getTok(&next);
 102   while (p) {
 103     if (*p == ';') {
 104       p = getTok(&next);
 105       if (matchkey(p, next, "charset")) {
 106         p = getTok(&next);
 107         if (p && *p == '=') {
 108           p = getTok(&next);
 109           if (p) {
 110             char *s = charset;
 111             if (*p == '"') {
 112               while (++p != next - 1) {
 113                 if (*p == '\\')
 114                   ++p;
 115                 if (s == charset + CHARSET_MAX - 1) {
 116                   charset[0] = '\0';
 117                   break;
 118                 }
 119                 *s++ = *p;
 120               }
 121               *s++ = '\0';
 122             }
 123             else {
 124               if (next - p > CHARSET_MAX - 1)
 125                 break;
 126               while (p != next)
 127                 *s++ = *p++;
 128               *s = 0;
 129               break;
 130             }
 131           }
 132         }
 133       }
 134     }
 135   else
 136     p = getTok(&next);
 137   }
 138 }
 139
 140 int
 141 main(int argc, char **argv)
 142 {
 143   char buf[CHARSET_MAX];
 144   getXMLCharset(argv[1], buf);
 145   printf("charset = \"%s\"\n", buf);
 146   return 0;
 147 }