void vcc_ParseBackend(struct vcc *tl) { struct token *t_first, *t_be; struct symbol *sym; const char *dn; tl->ndirector++; t_first = tl->t; SkipToken(tl, ID); /* ID: backend */ vcc_ExpectVid(tl, "backend"); /* ID: name */ ERRCHK(tl); t_be = tl->t; if (vcc_IdIs(tl->t, "default")) { if (tl->first_director != NULL) { tl->first_director->noref = 0; tl->first_director = NULL; tl->default_director = NULL; } if (tl->default_director != NULL) { VSB_printf(tl->sb, "Only one default director possible.\n"); vcc_ErrWhere(tl, t_first); return; } vcc_NextToken(tl); dn = "vgc_backend_default"; tl->default_director = dn; } else { sym = VCC_HandleSymbol(tl, BACKEND, "vgc_backend"); ERRCHK(tl); dn = sym->rname; if (tl->default_director == NULL) { tl->first_director = sym; tl->default_director = dn; sym->noref = 1; } } Fh(tl, 0, "\nstatic VCL_BACKEND %s;\n", dn); vcc_ParseHostDef(tl, t_be, dn); if (tl->err) { VSB_printf(tl->sb, "\nIn %.*s specification starting at:\n", PF(t_first)); vcc_ErrWhere(tl, t_first); return; } }
void vcc_ParseBackend(struct vcc *tl) { struct token *t_first, *t_be; struct symbol *sym; char vgcname[MAX_BACKEND_NAME + 20]; t_first = tl->t; vcc_NextToken(tl); /* ID: backend */ vcc_ExpectCid(tl); /* ID: name */ ERRCHK(tl); if (tl->t->e - tl->t->b > MAX_BACKEND_NAME) { VSB_printf(tl->sb, "Name of %.*s too long (max %d, is %zu):\n", PF(t_first), MAX_BACKEND_NAME, (size_t)(tl->t->e - tl->t->b)); vcc_ErrWhere(tl, tl->t); return; } t_be = tl->t; vcc_NextToken(tl); sprintf(vgcname, "vgc_backend_%.*s", PF(t_be)); Fh(tl, 0, "\nstatic struct director *%s;\n", vgcname); sym = VCC_HandleSymbol(tl, t_be, BACKEND, "%s", vgcname); ERRCHK(tl); vcc_ParseHostDef(tl, t_be, vgcname); ERRCHK(tl); if (tl->err) { VSB_printf(tl->sb, "\nIn %.*s specification starting at:\n", PF(t_first)); vcc_ErrWhere(tl, t_first); return; } if (tl->default_director == NULL || vcc_IdIs(t_be, "default")) { tl->default_director = sym->rname; tl->t_default_director = t_be; } }
void vcc_ParseProbe(struct vcc *tl) { struct symbol *sym; char *p; vcc_NextToken(tl); /* ID: probe */ vcc_ExpectVid(tl, "backend probe"); /* ID: name */ ERRCHK(tl); if (vcc_IdIs(tl->t, "default")) { vcc_NextToken(tl); vcc_ParseProbeSpec(tl, NULL, &p); tl->default_probe = p; } else { sym = VCC_HandleSymbol(tl, PROBE, "vgc_probe"); ERRCHK(tl); AN(sym); vcc_ParseProbeSpec(tl, sym, &p); } }
void vcc_ParseProbe(struct vcc *tl) { struct token *t_probe; char *p; vcc_NextToken(tl); /* ID: probe */ vcc_ExpectCid(tl); /* ID: name */ ERRCHK(tl); t_probe = tl->t; vcc_NextToken(tl); (void)VCC_HandleSymbol(tl, t_probe, PROBE, "%.s", PF(t_probe)); ERRCHK(tl); vcc_ParseProbeSpec(tl, t_probe, &p); if (vcc_IdIs(t_probe, "default")) { vcc_AddRef(tl, t_probe, SYM_PROBE); tl->default_probe = p; } }
void vcc_ParseNew(struct vcc *tl) { struct symbol *sy1, *sy2, *sy3; struct inifin *ifp; const char *p, *s_obj; char buf1[128]; char buf2[128]; vcc_NextToken(tl); ExpectErr(tl, ID); vcc_ExpectCid(tl, "VCL object"); ERRCHK(tl); sy1 = VCC_HandleSymbol(tl, tl->t, INSTANCE, "XXX"); ERRCHK(tl); /* We allow implicit use of VMOD objects: Pretend it's ref'ed */ sy1->nref++; vcc_NextToken(tl); ExpectErr(tl, '='); vcc_NextToken(tl); ExpectErr(tl, ID); sy2 = VCC_SymbolTok(tl, NULL, tl->t, SYM_OBJECT, 0); if (sy2 == NULL) { VSB_printf(tl->sb, "Symbol not found: "); vcc_ErrToken(tl, tl->t); VSB_printf(tl->sb, " at "); vcc_ErrWhere(tl, tl->t); return; } vcc_NextToken(tl); p = sy2->extra; s_obj = p; p += strlen(p) + 1; Fh(tl, 0, "static %s *vo_%s;\n\n", p, sy1->name); p += strlen(p) + 1; bprintf(buf1, ", &vo_%s, \"%s\"", sy1->name, sy1->name); vcc_Eval_Func(tl, p, buf1, sy2); ExpectErr(tl, ';'); while (p[0] != '\0' || p[1] != '\0' || p[2] != '\0') p++; p += 3; ifp = New_IniFin(tl); p += strlen(p) + 1; VSB_printf(ifp->fin, "\t\t%s(&vo_%s);", p, sy1->name); while (p[0] != '\0' || p[1] != '\0' || p[2] != '\0') p++; p += 3; /* Instantiate symbols for the methods */ bprintf(buf1, ", vo_%s", sy1->name); while (*p != '\0') { p += strlen(s_obj); bprintf(buf2, "%s%s", sy1->name, p); sy3 = VCC_Symbol(tl, NULL, buf2, NULL, SYM_FUNC, 1); AN(sy3); sy3->eval = vcc_Eval_SymFunc; p += strlen(p) + 1; sy3->eval_priv = p; sy3->fmt = VCC_Type(p); sy3->extra = TlDup(tl, buf1); while (p[0] != '\0' || p[1] != '\0' || p[2] != '\0') p++; p += 3; } sy1->def_e = tl->t; }