steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

YAML: cleanup, tags are defined in the ffi

db4
Jon Harper 2014-02-25 23:33:59 +01:00 committed by John Benediktsson
parent d1b1a40e6d
commit 9174cf0d31
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/yaml/yaml.factor
View File

@ -138,7 +138,7 @@ M:: string emit-value ( emitter event string -- )
string utf8 encode
[ malloc-byte-array &free ] [ length ] bi :> ( value length )
"tag:yaml.org,2002:str" utf8 malloc-string &free :> tag
YAML_STR_TAG utf8 malloc-string &free :> tag
event f tag value length 0 0 0
yaml_scalar_event_initialize yaml-assert-ok
@ -148,7 +148,7 @@ M:: string emit-value ( emitter event string -- )
:: emit-sequence-start ( emitter event -- )
[
"tag:yaml.org,2002:seq" utf8 malloc-string &free :> tag
YAML_SEQ_TAG utf8 malloc-string &free :> tag
event f tag 0 0
yaml_sequence_start_event_initialize yaml-assert-ok
@ -169,7 +169,7 @@ M: sequence emit-value ( emitter event seq -- )
:: emit-assoc-start ( emitter event -- )
[
"tag:yaml.org,2002:map" utf8 malloc-string &free :> tag
YAML_MAP_TAG utf8 malloc-string &free :> tag
event f tag 0 0
yaml_mapping_start_event_initialize yaml-assert-ok