Changeset 1750

Show
Ignore:
Timestamp:
01/15/06 01:07:36
Author:
miyagawa
Message:

merged YAML::Syck 0.24

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • JSON-Syck/trunk/emitter.c

    r1741 r1750  
    412412        else 
    413413        { 
    414             char *an = S_ALLOC_N( char, strlen( anchor_name ) + 2 ); 
    415             sprintf( an, "*%s", anchor_name ); 
    416             syck_emitter_write( e, an, strlen( anchor_name ) + 1 ); 
     414            char *an; 
     415            if (anchor_name == NULL) { 
     416                an = S_ALLOC_N( char, x+2 ); 
     417                sprintf(an, "*%d", x); 
     418            } 
     419            else { 
     420                an = S_ALLOC_N( char, strlen( anchor_name ) + 2 ); 
     421                sprintf( an, "*%s", anchor_name ); 
     422            } 
     423 
     424            syck_emitter_write( e, an, strlen( an ) ); 
    417425            free( an ); 
    418426 
  • JSON-Syck/trunk/perl_syck.h

    r1749 r1750  
    1313#undef DEBUG /* maybe defined in perl.h */ 
    1414#include <syck.h> 
     15 
     16#ifndef newSVpvn_share 
     17#define newSVpvn_share(x, y, z) newSVpvn(x, y) 
     18#endif 
    1519 
    1620#ifdef YAML_IS_JSON 
     
    2327#  define SEQ_NONE      seq_inline 
    2428#  define MAP_NONE      map_inline 
    25 #  define COND_FOLD(x)  1 
     29#  define COND_FOLD(x)  TRUE 
    2630#  define TYPE_IS_NULL(x) ((x == NULL) || (strcmp( x, "str" ) == 0)) 
    2731#  define OBJOF(a)        (a) 
     
    364368    syck_parser_taguri_expansion(parser, 0); 
    365369 
    366     parser->bonus = (void*)SvTRUE(unicode); 
     370    parser->bonus = (void*)(SvTRUE(unicode) ? unicode : NULL); 
    367371 
    368372    v = syck_parse(parser);