[ViewVC] Diff of: cvs/JSON-XS/XS.xs

Comparing JSON-XS/XS.xs (file contents):
Revision 1.102 by root, Sat Oct 10 01:48:50 2009 UTC vs.
Revision 1.103 by root, Wed Jan 6 08:01:39 2010 UTC

 enum {
   INCR_M_WS = 0, // initial whitespace skipping, must be 0
   INCR_M_STR,    // inside string
   INCR_M_BS,     // inside backslash
+  INCR_M_C0,     // inside comment in initial whitespace sequence
+  INCR_M_C1,     // inside comment in other places
   INCR_M_JSON    // outside anything, count nesting
 };
 #define INCR_DONE(json) ((json)->incr_nest <= 0 && (json)->incr_mode == INCR_M_JSON)
 static void
 incr_parse (JSON *self)
 {
   const char *p = SvPVX (self->incr_text) + self->incr_pos;
+  // the state machine here is a bit convoluted and could be simplified a lot
+  // but this would make it slower, so...
   for (;;)
     {
       //printf ("loop pod %d *p<%c><%s>, mode %d nest %d\n", p - SvPVX (self->incr_text), *p, p, self->incr_mode, self->incr_nest);//D
       switch (self->incr_mode)
         {
-          // only used for intiial whitespace skipping
+          // only used for initial whitespace skipping
           case INCR_M_WS:
             for (;;)
               {
                 if (*p > 0x20)
                   {
+                    if (*p == '#')
+                      {
+                        self->incr_mode = INCR_M_C0;
+                        goto incr_m_c;
+                      }
+                    else
+                      {
-                    self->incr_mode = INCR_M_JSON;
+                        self->incr_mode = INCR_M_JSON;
-                    goto incr_m_json;
+                        goto incr_m_json;
+                      }
                   }
                 else if (!*p)
                   goto interrupt;
                 ++p;
               goto interrupt;
             ++p;
             self->incr_mode = INCR_M_STR;
             goto incr_m_str;
+          // inside #-style comments
+          case INCR_M_C0:
+          case INCR_M_C1:
+          incr_m_c:
+            for (;;)
+              {
+                if (*p == '\n')
+                  {
+                    self->incr_mode = self->incr_mode == INCR_M_C0 ? INCR_M_WS : INCR_M_JSON;
+                    break;
+                  }
+                else if (!*p)
+                  goto interrupt;
+                ++p;
+              }
+            break;
           // inside a string
           case INCR_M_STR:
           incr_m_str:
             for (;;)
                     case ']':
                     case '}':
                       if (--self->incr_nest <= 0)
                         goto interrupt;
+                      break;
+                    case '#':
+                      self->incr_mode = INCR_M_C1;
+                      goto incr_m_c;
                   }
               }
         }
       modechange:
         ;
     }
 interrupt:
   self->incr_pos = p - SvPVX (self->incr_text);
+  //printf ("interrupt<%.*s>\n", self->incr_pos, SvPVX(self->incr_text));//D
   //printf ("return pos %d mode %d nest %d\n", self->incr_pos, self->incr_mode, self->incr_nest);//D
 }
 /////////////////////////////////////////////////////////////////////////////
 // XS interface functions

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing JSON-XS/XS.xs (file contents): Revision 1.102 by root, Sat Oct 10 01:48:50 2009 UTC vs. Revision 1.103 by root, Wed Jan 6 08:01:39 2010 UTC

Diff Legend

Comparing JSON-XS/XS.xs (file contents):
Revision 1.102 by root, Sat Oct 10 01:48:50 2009 UTC vs.
Revision 1.103 by root, Wed Jan 6 08:01:39 2010 UTC