Initial checkin of YAML substances.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3772 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 231 insertions, 0 deletions

diff --git a/ext/syck/handler.c b/ext/syck/handler.c
new file mode 100644
index 0000000000..50ba3e4232
--- /dev/null
+++ b/ext/syck/handler.c
@@ -0,0 +1,231 @@
+//
+// handler.h
+//
+// $Author$
+// $Date$
+//
+// Copyright (C) 2003 why the lucky stiff
+//
+
+#include "syck.h"
+
+SYMID 
+syck_hdlr_add_node( SyckParser *p, SyckNode *n )
+{
+    SYMID id;
+    if ( ! n->id ) 
+    {
+        n->id = (p->handler)( p, n );
+    }
+    id = n->id;
+
+    if ( n->anchor == NULL )
+    {
+        syck_free_node( n );
+    }
+    return id;
+}
+
+SyckNode *
+syck_hdlr_add_anchor( SyckParser *p, char *a, SyckNode *n )
+{
+    n->anchor = a;
+    st_insert( p->anchors, (st_data_t)a, (st_data_t)n );
+    return n;
+}
+
+SyckNode *
+syck_hdlr_add_alias( SyckParser *p, char *a )
+{
+    SyckNode *n;
+
+    if ( st_lookup( p->anchors, (st_data_t)a, (st_data_t *)&n ) )
+    {
+        return n;
+    }
+
+    return syck_new_str( "..." );
+}
+
+void
+syck_add_transfer( char *uri, SyckNode *n, int taguri )
+{
+    char *comma = NULL;
+    char *slash = uri;
+    char *domain = NULL;
+
+    if ( taguri == 0 )
+    {
+        n->type_id = uri;
+        return;
+    }
+
+    if ( uri[0] == '!' )
+    {
+        syck_xprivate( n, uri + 1, strlen( uri ) - 1 );
+        S_FREE( uri );
+        return;
+    }
+
+    while ( *(++slash) != '\0' )
+    {
+        if ( *slash == '/' )
+            break;
+
+        if ( *slash == ',' )
+            comma = slash;
+    }
+
+    if ( *slash == '\0' )
+    {
+        syck_taguri( n, "yaml.org,2002", uri, strlen( uri ) );
+    }
+    else if ( comma == NULL )
+    {
+        domain = S_ALLOC_N( char, ( slash - uri ) + 15 );
+        domain[0] = '\0';
+        strncat( domain, uri, slash - uri );
+        strcat( domain, ".yaml.org,2002" );
+        syck_taguri( n, domain, slash + 1, strlen( uri ) - ( slash - uri + 1 ) );
+        S_FREE( domain );
+    }
+    else
+    {
+        domain = S_ALLOC_N( char, slash - uri );
+        domain[0] = '\0';
+        strncat( domain, uri, slash - uri );
+        syck_taguri( n, domain, slash + 1, strlen( uri ) - ( slash - uri + 1 ) );
+        S_FREE( domain );
+    }
+    S_FREE( uri );
+}
+
+void
+syck_xprivate( SyckNode *n, char *type_id, int type_len )
+{
+    if ( n->type_id != NULL )
+        S_FREE( n->type_id );
+
+    n->type_id = S_ALLOC_N( char, type_len + 14 );
+    n->type_id[0] = '\0';
+    strcat( n->type_id, "x-private:" );
+    strncat( n->type_id, type_id, type_len );
+}
+
+void
+syck_taguri( SyckNode *n, char *domain, char *type_id, int type_len )
+{
+    if ( n->type_id != NULL )
+        S_FREE( n->type_id );
+
+    n->type_id = S_ALLOC_N( char, strlen( domain ) + type_len + 14 );
+    n->type_id[0] = '\0';
+    strcat( n->type_id, "taguri:" );
+    strcat( n->type_id, domain );
+    strcat( n->type_id, ":" );
+    strncat( n->type_id, type_id, type_len );
+}
+
+int 
+syck_try_implicit( SyckNode *n )
+{
+    return 1;
+}
+
+void 
+syck_fold_format( struct SyckStr *n, int blockType, int indt_len, int nlDisp )
+{
+    char *spc;
+    char *eol = NULL;
+    char *first_nl = NULL;
+    char *fc = n->ptr;
+    int keep_nl = 0;
+    int nl_count = 0;
+
+    //
+    // Scan the sucker for newlines and strip indent
+    //
+    while ( fc < n->ptr + n->len )
+    {
+        if ( *fc == '\n' )
+        {
+            spc = fc;
+            while ( *(++spc) == ' ' )
+            {
+                if ( blockType != BLOCK_PLAIN && spc - fc > indt_len )
+                    break;
+            }
+
+            if ( blockType != BLOCK_LIT && *spc != ' ' )
+            {
+                if ( eol != NULL ) fc = eol;
+                if ( first_nl == NULL && keep_nl == 1 )
+                {
+                    first_nl = fc;
+                    *first_nl = ' ';
+                }
+                if ( nl_count == 1 )
+                {
+                    *first_nl = '\n';
+                    keep_nl = 0;
+                }
+            }
+
+            fc += keep_nl;
+            if ( fc != spc && ( n->len - ( spc - n->ptr ) ) > 0 )
+            {
+                S_MEMMOVE( fc, spc, char, n->len - ( spc - n->ptr ) ); 
+            }
+
+            n->len -= spc - fc;
+            keep_nl = 1;
+            eol = NULL;
+            nl_count++;
+        }
+        else
+        {
+            //
+            // eol tracks the last space on a line
+            // 
+            if ( *fc == ' ' )
+            {
+                if ( eol == NULL ) eol = fc;
+            }
+            else
+            {
+                eol = NULL;
+            }
+            first_nl = NULL;
+            nl_count = 0;
+            fc++;
+        }
+    }
+
+    n->ptr[n->len] = '\n';
+
+    //
+    // Chomp or keep?
+    //
+    if ( nlDisp != NL_KEEP )
+    {
+        fc = n->ptr + n->len - 1;
+        while ( *fc == '\n' )
+            fc--;
+
+        if ( nlDisp != NL_CHOMP )
+            fc += 1;
+
+        n->len = fc - n->ptr + 1;
+    }
+    else
+    {
+        //
+        // Force last line break which I gave back
+        // to the tokenizer.
+        //
+        n->len++;
+        n->ptr[n->len] = '\n';
+    }
+    n->ptr[ n->len ] = '\0';
+}
+