| 1 | 
Major parsing routines are built according to this template: | 
| 2 | 
 | 
| 3 | 
      int psiconv_parse_TYPE (const psiconv_buffer buf, int lev, | 
| 4 | 
                              psiconv_u32 off, int *length, | 
| 5 | 
                              psiconv_TYPE *result) | 
| 6 | 
      { | 
| 7 | 
       int res = 0; | 
| 8 | 
       int len = 0; | 
| 9 | 
       int leng; | 
| 10 | 
 | 
| 11 | 
        psiconv_progress(lev+1,off,"Going to parse TYPE"); | 
| 12 | 
        if (!(*result = malloc(sizeof(**result))))  | 
| 13 | 
          goto ERROR1; | 
| 14 | 
 | 
| 15 | 
        /* Example of calling some other parse function */ | 
| 16 | 
        if ((res = psiconv_parse_TYPE2(buf,lev+2,off+len,&leng, | 
| 17 | 
                                        &(*result)->FIELD2))) | 
| 18 | 
          goto ERROR2; | 
| 19 | 
        psiconv_debug(lev+2,off+len,"Some helpful message"); | 
| 20 | 
        len += leng; | 
| 21 | 
 | 
| 22 | 
        /* Example of reading some bytes directly */ | 
| 23 | 
        (*result)->FIELD1 = psiconv_read_u8(buf,lev+2,off+len,&res); | 
| 24 | 
        if (!res) | 
| 25 | 
          goto ERROR3; | 
| 26 | 
        psiconv_debug(lev+2,off+len,"Some helpful message"); | 
| 27 | 
        len ++; | 
| 28 | 
 | 
| 29 | 
        psiconv_debug(lev+2,off+len,"Some helpful message"); | 
| 30 | 
        if (length) | 
| 31 | 
          *length = len; | 
| 32 | 
        psiconv_progress(lev+1,off+len-1,"End of TYPE (total length: %08x)", | 
| 33 | 
                         len); | 
| 34 | 
        return 0; | 
| 35 | 
 | 
| 36 | 
      ERROR3: | 
| 37 | 
        free ((*result)->FIELD2) | 
| 38 | 
      ERROR2: | 
| 39 | 
        free (*result); | 
| 40 | 
      ERROR1: | 
| 41 | 
        psiconv_warn(lev+1,off,"Reading of TYPE failed"); | 
| 42 | 
        if (length) | 
| 43 | 
          *length = 0; | 
| 44 | 
        if (!res) | 
| 45 | 
          return -PSICONV_E_NOMEM; | 
| 46 | 
        else | 
| 47 | 
          return res; | 
| 48 | 
      } | 
| 49 | 
 | 
| 50 | 
If something unexpected happens half-way, but you can recover from it | 
| 51 | 
(for example, an unexpected value in some well-defined field), call | 
| 52 | 
psiconv_warn, but do not return with an error. The rule is that if | 
| 53 | 
the result code of a procedure is not 0, you may assume that things | 
| 54 | 
are hopeless, that nothing was allocated, and that every field contains | 
| 55 | 
nonsense. |