home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _c2d8c43065e3edeb829bb35b7955f870 < prev    next >
Encoding:
Text File  |  2004-06-01  |  3.0 KB  |  148 lines
  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. }
  148.