fi
if test "$HAVE_TCL" = "1"; then
- TCL_PKGINDEX="gdtclft/pkgIndex.tcl tcldot/pkgIndex.tcl tclpathplan/pkgIndex.tcl gv/pkgIndex.tcl"
+ if test "$HAVE_LIBGD" = "1"; then
+ TCL_PKGINDEX="gdtclft/pkgIndex.tcl tcldot/pkgIndex.tcl tclpathplan/pkgIndex.tcl gv/pkgIndex.tcl"
+ else
+ TCL_PKGINDEX="tcldot/pkgIndex.tcl tclpathplan/pkgIndex.tcl gv/pkgIndex.tcl"
+ fi
else
TCL_PKGINDEX=""
fi
static int style_token(char **s, agxbuf * xb)
{
char *p = *s;
- int token;
+ int token, rc;
char c;
while (*p && (isspace(*p) || (*p == ',')))
default:
token = SID;
while (!is_style_delim(c = *p)) {
- agxbputc(xb, c);
+ rc = agxbputc(xb, c);
p++;
}
}
*/
static void characterData(void *user, const char *s, int length)
{
- int i;
- int cnt = 0;
+ int i, rc, cnt = 0;
unsigned char c;
if (state.inCell) {
c = *s++;
if (c >= ' ') {
cnt++;
- agxbputc(state.xb, c);
+ rc = agxbputc(state.xb, c);
}
}
if (cnt) state.tok = T_string;
{
char* t = s + 1;
char c;
+ int rc;
if (*s == '<') {
if ((*t == '!') && !strncmp(t + 1, "--", 2))
} else
t++;
} else {
- agxbputc(xb, *s);
+ rc = agxbputc(xb, *s);
while ((c = *t) && (c != '<')) {
if ((c == '&') && (*(t+1) != '#')) {
t = scanEntity(t + 1, xb);
}
else {
- agxbputc(xb, c);
+ rc = agxbputc(xb, c);
t++;
}
}
char *s;
char *base;
static agxbuf xb;
+ int rc;
if (latin)
base = utf8ToLatin1 (ins);
if (xb.buf == NULL)
agxbinit (&xb, BUFSIZ, psbuf);
- agxbputc (&xb, LPAREN);
+ rc = agxbputc (&xb, LPAREN);
s = base;
while (*s) {
- if ((*s == LPAREN) || (*s == RPAREN) || (*s == '\\')) {
- agxbputc (&xb, '\\');
- }
- agxbputc (&xb, *s++);
+ if ((*s == LPAREN) || (*s == RPAREN) || (*s == '\\'))
+ rc = agxbputc (&xb, '\\');
+ rc = agxbputc (&xb, *s++);
}
agxbputc (&xb, RPAREN);
if (base != ins) free (base);
agxbuf xb;
unsigned char buf[BUFSIZ];
unsigned int v;
+ int rc;
agxbinit(&xb, BUFSIZ, buf);
v = htmlEntity (&s);
if (!v) v = '&';
}
- if (v < 0x7F) agxbputc(&xb, v);
+ if (v < 0x7F)
+ rc = agxbputc(&xb, v);
else if (v < 0x07FF) {
- agxbputc(&xb, (v >> 6) | 0xC0);
- agxbputc(&xb, (v & 0x3F) | 0x80);
+ rc = agxbputc(&xb, (v >> 6) | 0xC0);
+ rc = agxbputc(&xb, (v & 0x3F) | 0x80);
}
else {
- agxbputc(&xb, (v >> 12) | 0xE0);
- agxbputc(&xb, ((v >> 6) & 0x3F) | 0x80);
- agxbputc(&xb, (v & 0x3F) | 0x80);
+ rc = agxbputc(&xb, (v >> 12) | 0xE0);
+ rc = agxbputc(&xb, ((v >> 6) & 0x3F) | 0x80);
+ rc = agxbputc(&xb, (v & 0x3F) | 0x80);
}
}
ns = strdup (agxbuse(&xb));
unsigned char buf[BUFSIZ];
unsigned char c;
unsigned char outc;
+ int rc;
agxbinit(&xb, BUFSIZ, buf);
while ((c = *(unsigned char*)s++)) {
- if (c < 0x7F) agxbputc(&xb, c);
+ if (c < 0x7F)
+ rc = agxbputc(&xb, c);
else {
outc = (c & 0x03) << 6;
c = *(unsigned char*)s++;
outc = outc | (c & 0x3F);
- agxbputc(&xb, outc);
+ rc = agxbputc(&xb, outc);
}
}
ns = strdup (agxbuse(&xb));
static void xd_ellipse(point p, int rx, int ry, int filled)
{
char buf[BUFSIZ];
+ int rc;
- agxbputc(xbufs[gvc->emit_state], (filled ? 'E' : 'e'));
+ rc = agxbputc(xbufs[gvc->emit_state], (filled ? 'E' : 'e'));
sprintf(buf, " %d %d %d %d ", p.x, YDIR(p.y), rx, ry);
agxbput(xbufs[gvc->emit_state], buf);
}
static void xd_points(char c, point * A, int n)
{
char buf[BUFSIZ];
- int i;
+ int i, rc;
point p;
- agxbputc(xbufs[gvc->emit_state], c);
+ rc = agxbputc(xbufs[gvc->emit_state], c);
sprintf(buf, " %d ", n);
agxbput(xbufs[gvc->emit_state], buf);
for (i = 0; i < n; i++) {
static char *html_pair(char *p, agxbuf * tokp)
{
unsigned char c;
- int depth = 1;
+ int rc, depth = 1;
while (1) {
while ((c = *p)) {
return p; /* p points to closing > */
} else if (c == '<')
depth++;
- agxbputc(tokp, c);
+ rc = agxbputc(tokp, c);
p++;
}
if ((p = lex_gets()) == NULL) {
$(top_builddir)/tclpkg/tclstubs/libtclstubs.la @GD_LIBS@
libgdtclft_la_LDFLAGS = -module -no-undefined
+if WITH_LIBGD
if WITH_TCL
all-local: pkgIndex.tcl
test:
echo 'load .libs/libgdtclft$(TCL_SHLIB_SUFFIX) Gdtclft ; cd tests ; source all' | tclsh8.3
endif
+endif
.n.pdf:
groff -Tps -man $< | ps2pdf - - >$@
static CmdFunc tclGdStyleCmd;
static CmdFunc tclGdTileCmd;
static CmdFunc tclGdPolygonCmd;
+#ifdef HAVE_GD_PNG
static CmdFunc tclGdWriteBufCmd;
+#endif
static ColCmdFunc tclGdColorNewCmd;
static ColCmdFunc tclGdColorExactCmd;
#endif
#endif
+#ifdef HAVE_GD_PNG
static int BufferSinkFunc(void *context, const char *buffer, int len)
{
BuffSinkContext *p = context;
tclGdWriteBufCmd(Tcl_Interp * interp, GdData * gdData, int argc,
Tcl_Obj * CONST objv[])
{
-#ifdef HAVE_GD_PNG
gdImagePtr im;
Tcl_Obj *output;
/* char *cmd; */
if (Tcl_ObjSetVar2(interp, objv[3], NULL, output, 0) == NULL)
return TCL_ERROR;
else
-#endif
return TCL_OK;
}
+#endif