Lines Matching refs:disc
31 dss_method_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
33 Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
36 if (!(meth = dssmeth(data, state->disc)))
43 dss_field_name_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
45 Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
49 if (disc->errorf)
50 (*disc->errorf)(NiL, disc, 2, "%s: only one <NAME> expected", tagcontext(tag, fp));
53 if (!(fp->prev->data = cxvariable(state->meth->cx, data, NiL, state->disc)))
59 dss_field_map_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
61 Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
66 if (disc->errorf)
67 (*disc->errorf)(NiL, disc, 2, "%s: <NAME> expected", tagcontext(tag, fp));
70 if (!(map = cxmap(NiL, data, state->disc)))
77 dss_field_con_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
79 Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
84 if (disc->errorf)
85 (*disc->errorf)(NiL, disc, 2, "%s: <NAME> expected", tagcontext(tag, fp));
88 if (!(con = cxconstraint(NiL, data, state->disc)))
90 if (disc->errorf)
91 (*disc->errorf)(NiL, disc, 2, "%s: constraint not defined", data);
110 dss_field_beg(Tag_t* tag, Tagframe_t* fp, const char* name, Tagdisc_t* disc)
116 dss_field_end(Tag_t* tag, Tagframe_t* fp, Tagdisc_t* disc)
120 if (disc->errorf)
121 (*disc->errorf)(NiL, disc, 2, "%s: <NAME> expected", tagcontext(tag, fp));
128 dss_compress_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
130 register Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
134 if (disc->errorf)
135 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
142 dss_print_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
144 register Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
148 if (disc->errorf)
149 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
181 dss_beg(Tag_t* tag, Tagframe_t* fp, const char* name, Tagdisc_t* disc)
187 map_part_item_name_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
191 if (disc->errorf)
192 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
199 map_part_item_mask_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
206 if (disc->errorf)
207 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
214 map_part_item_value_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
216 register Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
222 if ((*r.type->internalf)(state->meth->cx, r.type, NiL, NiL, &r, data, strlen(data), NiL, state->disc) < 0)
231 if (disc->errorf)
232 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
242 map_part_item_bit_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
249 if (disc->errorf)
250 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
257 map_part_item_map_end(Tag_t* tag, Tagframe_t* fp, Tagdisc_t* disc)
259 if (dss_map_end(tag, fp, disc))
283 map_part_item_beg(Tag_t* tag, Tagframe_t* fp, const char* name, Tagdisc_t* disc)
289 if (disc->errorf)
290 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
302 map_part_type_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
304 Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
307 if (!(type = cxtype(state->meth->cx, data, state->disc)))
309 if (disc->errorf)
310 (*disc->errorf)(NiL, disc, 2, "%s: unknown type", data);
315 if (disc->errorf)
316 (*disc->errorf)(NiL, disc, 2, "%s: map values must be numeric", data);
321 if (disc->errorf)
322 (*disc->errorf)(NiL, disc, 2, "%s: cannot convert string to map value type", data);
330 map_part_shift_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
337 if (disc->errorf)
338 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
345 map_part_mask_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
352 if (disc->errorf)
353 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
360 map_part_edit_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
362 Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
366 if (!(edit = cxedit(NiL, data, state->disc)))
410 map_part_beg(Tag_t* tag, Tagframe_t* fp, const char* name, Tagdisc_t* disc)
416 if (disc->errorf)
417 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
429 map_name_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
431 register Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
436 if (ref = cxmap(NiL, data, state->disc))
440 if (disc->errorf)
441 (*disc->errorf)(NiL, disc, 2, "<%s> must be the first tag inside a <MAP> definition", fp->tag->name);
448 if (disc->errorf)
449 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
456 map_description_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
460 if (disc->errorf)
461 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
468 map_shift_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
475 if (disc->errorf)
476 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
483 map_mask_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
490 if (disc->errorf)
491 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
498 map_ignorecase_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
508 if (disc->errorf)
509 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
541 dss_map_beg(Tag_t* tag, Tagframe_t* fp, const char* name, Tagdisc_t* disc)
545 if (disc->errorf)
546 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
557 dss_map_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
559 register Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
562 if (!(map = cxmap(NiL, data, state->disc)))
564 if (disc->errorf)
566 (*disc->errorf)(NiL, disc, 2, "%s: map not defined", data);
579 dss_map_end(Tag_t* tag, Tagframe_t* fp, Tagdisc_t* disc)
581 Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
592 return map->name && !(map->header.flags & CX_INITIALIZED) ? cxaddmap(NiL, map, state->disc) : 0;
596 constraint_def(Tag_t* tag, Tagframe_t* fp, Tagdisc_t* disc)
602 if (disc->errorf)
603 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
610 constraint_name_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
612 register Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
615 if (!(con = constraint_def(tag, fp, disc)))
619 if (disc->errorf)
620 (*disc->errorf)(NiL, disc, 2, "%s: constraint already has a name", tagcontext(tag, fp));
625 if (disc->errorf)
626 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
629 return cxaddconstraint(NiL, con, state->disc);
633 constraint_expression_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
637 if (!(con = constraint_def(tag, fp, disc)))
641 if (disc->errorf)
642 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
650 constraint_match_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
655 if (!(con = constraint_def(tag, fp, disc)))
659 if (disc->errorf)
660 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
666 redisc->re_errorf = (regerror_t)disc->errorf;
672 constraint_max_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
678 if (!(con = constraint_def(tag, fp, disc)))
683 if (disc->errorf)
684 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
689 if (disc->errorf)
690 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
698 constraint_min_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
704 if (!(con = constraint_def(tag, fp, disc)))
709 if (disc->errorf)
710 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
715 if (disc->errorf)
716 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
724 constraint_def_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
730 if (!(con = constraint_def(tag, fp, disc)))
735 if (disc->errorf)
736 (*disc->errorf)(NiL, disc, 2, "%s: invalid number", data);
741 if (disc->errorf)
742 (*disc->errorf)(NiL, disc, ERROR_SYSTEM|2, "out of space");
767 method_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
774 method_end(Tag_t* tag, Tagframe_t* fp, Tagdisc_t* disc)
776 Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
782 if (disc->errorf)
783 (*disc->errorf)(NiL, disc, 2, "%s: method name expected", tagcontext(tag, fp));
789 if (!(meth = dssmeth(sfprints("%s:%s", name, error_info.file), state->disc)))
807 dss_con_beg(Tag_t* tag, Tagframe_t* fp, const char* name, Tagdisc_t* disc)
817 dss_con_dat(Tag_t* tag, Tagframe_t* fp, const char* data, Tagdisc_t* disc)
819 register Dsstagdisc_t* state = (Dsstagdisc_t*)disc;
823 if (disc->errorf)
824 (*disc->errorf)(NiL, disc, 2, "%s: reference not expected", tagcontext(tag, fp));
827 if (!(fp->data = cxconstraint(NiL, data, state->disc)))
853 dsstags(Sfio_t* ip, const char* path, int line, Dssflags_t flags, Dssdisc_t* disc, Dssmeth_t* meth)
858 taginit(&state.tagdisc, disc->errorf);
860 state.disc = disc;