summaryrefslogtreecommitdiff
path: root/ext/syck/handler.c
diff options
context:
space:
mode:
authorwhy <why@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2003-05-09 21:25:50 +0000
committerwhy <why@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2003-05-09 21:25:50 +0000
commit55f4dc4c9a5345c28d0da750d1ee00fbb0870885 (patch)
tree904359659b75882365348decb2ca0789ca1ac803 /ext/syck/handler.c
parent605adb86e2c2889c13e07cadf328f8032eebae7c (diff)
Initial checkin of YAML substances.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3772 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/syck/handler.c')
-rw-r--r--ext/syck/handler.c231
1 files changed, 231 insertions, 0 deletions
diff --git a/ext/syck/handler.c b/ext/syck/handler.c
new file mode 100644
index 00000000000..50ba3e42324
--- /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';
+}
+