Return to ct.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / expat / xmlwf

expat

    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: }