1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
/* These definitions affect -pedantic warnings...
#define PERL_GCC_BRACE_GROUPS_FORBIDDEN 1
#define __STRICT_ANSI__ 1
#define PERL_GCC_PEDANTIC 1
*/
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#define NEED_newRV_noinc
#define NEED_sv_2pv_nolen
#define NEED_sv_2pvbyte
#include "ppport.h"
#include <yaml.h>
#include <ppport_sort.h>
#define TAG_PERL_PREFIX "tag:yaml.org,2002:perl/"
#define TAG_PERL_REF TAG_PERL_PREFIX "ref"
#define TAG_PERL_STR TAG_PERL_PREFIX "str"
#define TAG_PERL_GLOB TAG_PERL_PREFIX "glob"
#define ERRMSG "YAML::XS Error: "
#define LOADERRMSG "YAML::XS::Load Error: "
#define DUMPERRMSG "YAML::XS::Dump Error: "
typedef struct {
yaml_parser_t parser;
yaml_event_t event;
HV *anchors;
int load_code;
int document;
} perl_yaml_loader_t;
typedef struct {
yaml_emitter_t emitter;
long anchor;
HV *anchors;
HV *shadows;
int dump_code;
int quote_number_strings;
} perl_yaml_dumper_t;
static SV *
call_coderef(SV *, AV *);
static SV *
fold_results(I32);
static SV *
find_coderef(char *);
void
set_dumper_options(perl_yaml_dumper_t *);
void
set_loader_options(perl_yaml_dumper_t *);
void
Dump(SV *, ...);
void
Load(SV *);
SV *
load_node(perl_yaml_loader_t *);
SV *
load_mapping(perl_yaml_loader_t *, char *);
SV *
load_sequence(perl_yaml_loader_t *);
SV *
load_scalar(perl_yaml_loader_t *);
SV *
load_alias(perl_yaml_loader_t *);
SV *
load_scalar_ref(perl_yaml_loader_t *);
SV *
load_regexp(perl_yaml_loader_t *);
SV *
load_glob(perl_yaml_loader_t *);
void
dump_prewalk(perl_yaml_dumper_t *, SV *);
void
dump_document(perl_yaml_dumper_t *, SV *);
void
dump_node(perl_yaml_dumper_t *, SV *);
void
dump_hash(perl_yaml_dumper_t *, SV *, yaml_char_t *, yaml_char_t *);
void
dump_array(perl_yaml_dumper_t *, SV *);
void
dump_scalar(perl_yaml_dumper_t *, SV *, yaml_char_t *);
void
dump_ref(perl_yaml_dumper_t *, SV *);
void
dump_code(perl_yaml_dumper_t *, SV *);
SV*
dump_glob(perl_yaml_dumper_t *, SV *);
yaml_char_t *
get_yaml_anchor(perl_yaml_dumper_t *, SV *);
yaml_char_t *
get_yaml_tag(SV *);
int
append_output(void *, unsigned char *, size_t size);
|
