… | |
… | |
61 | CALL_ARG_SV (newSVpv (path, 0)); |
61 | CALL_ARG_SV (newSVpv (path, 0)); |
62 | CALL_ARG_SV (newRV_noinc (newSVpvn ((char *)linearise (), size ()))); |
62 | CALL_ARG_SV (newRV_noinc (newSVpvn ((char *)linearise (), size ()))); |
63 | CALL_ARG_SV (newRV_inc ((SV *)av)); |
63 | CALL_ARG_SV (newRV_inc ((SV *)av)); |
64 | CALL_CALL ("cf::object_freezer_save", G_VOID | G_DISCARD); |
64 | CALL_CALL ("cf::object_freezer_save", G_VOID | G_DISCARD); |
65 | CALL_END; |
65 | CALL_END; |
|
|
66 | |
|
|
67 | return 1; |
66 | } |
68 | } |
67 | |
69 | |
68 | char * |
70 | char * |
69 | object_freezer::as_string () |
71 | object_freezer::as_string () |
70 | { |
72 | { |
… | |
… | |
80 | CALL_END; |
82 | CALL_END; |
81 | |
83 | |
82 | return res; |
84 | return res; |
83 | } |
85 | } |
84 | |
86 | |
85 | int |
87 | void |
86 | fprintf (object_freezer &freezer, const char *format, ...) |
88 | fprintf (object_freezer &freezer, const char *format, ...) |
87 | { |
89 | { |
88 | va_list ap; |
90 | va_list ap; |
89 | |
91 | |
90 | va_start (ap, format); |
92 | va_start (ap, format); |
… | |
… | |
95 | freezer.alloc (len); |
97 | freezer.alloc (len); |
96 | |
98 | |
97 | va_end (ap); |
99 | va_end (ap); |
98 | } |
100 | } |
99 | |
101 | |
100 | int |
102 | // XXX: function not returning an int |
|
|
103 | void |
101 | fputs (const char *s, object_freezer &freezer) |
104 | fputs (const char *s, object_freezer &freezer) |
102 | { |
105 | { |
103 | freezer.add (s); |
106 | freezer.add (s); |
104 | } |
107 | } |
105 | |
108 | |
… | |
… | |
282 | return skip; |
285 | return skip; |
283 | } |
286 | } |
284 | } |
287 | } |
285 | |
288 | |
286 | void |
289 | void |
287 | object_thawer::next_kv () |
290 | object_thawer::next () |
288 | { |
291 | { |
289 | if (!line) |
292 | if (!line) |
290 | { |
293 | { |
291 | kw = KW_ERROR; |
294 | kw = KW_ERROR; |
292 | return; |
295 | return; |
… | |
… | |
347 | } |
350 | } |
348 | } |
351 | } |
349 | } |
352 | } |
350 | |
353 | |
351 | void |
354 | void |
352 | object_thawer::skip_kv () |
355 | object_thawer::skip () |
353 | { |
356 | { |
354 | shstr ml; |
357 | shstr ml; |
355 | |
358 | |
356 | switch (kw) |
359 | switch (kw) |
357 | { |
360 | { |
358 | case KW_msg: get_ml (KW_endmsg , ml); break; |
361 | case KW_msg: get_ml (KW_endmsg , ml); break; |
359 | case KW_lore: get_ml (KW_endlore , ml); break; |
362 | case KW_lore: get_ml (KW_endlore , ml); break; |
360 | case KW_maplore: get_ml (KW_endmaplore, ml); break; |
363 | case KW_maplore: get_ml (KW_endmaplore, ml); break; |
|
|
364 | default: break; |
361 | } |
365 | } |
362 | |
366 | |
363 | next_kv (); |
367 | next (); |
364 | } |
368 | } |
365 | |
369 | |
366 | void |
370 | void |
367 | object_thawer::get (shstr &sh) const |
371 | object_thawer::get (shstr &sh) const |
368 | { |
372 | { |