diff options
Diffstat (limited to 'web/src/alpined.d')
-rw-r--r-- | web/src/alpined.d/Makefile.in | 4 | ||||
-rw-r--r-- | web/src/alpined.d/alpined.c | 14 |
2 files changed, 9 insertions, 9 deletions
diff --git a/web/src/alpined.d/Makefile.in b/web/src/alpined.d/Makefile.in index ddea2204..4625101d 100644 --- a/web/src/alpined.d/Makefile.in +++ b/web/src/alpined.d/Makefile.in @@ -184,6 +184,7 @@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ INTLLIBS = @INTLLIBS@ INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@ ISPELLPROG = @ISPELLPROG@ +Includedir = @Includedir@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBICONV = @LIBICONV@ @@ -274,7 +275,6 @@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ -includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ @@ -284,7 +284,7 @@ localstatedir = @localstatedir@ lt_ECHO = @lt_ECHO@ mandir = @mandir@ mkdir_p = @mkdir_p@ -oldincludedir = @oldincludedir@ +oldIncludedir = @oldIncludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ diff --git a/web/src/alpined.d/alpined.c b/web/src/alpined.d/alpined.c index e35ba9e6..2132f95d 100644 --- a/web/src/alpined.d/alpined.c +++ b/web/src/alpined.d/alpined.c @@ -334,7 +334,7 @@ char tmp_20k_buf[20480]; /* Internal prototypes */ -void peReturn(int, char *, char *); +void peReturn(int, char *, const char *); int peWrite(int, char *); char *peCreateUserContext(Tcl_Interp *, char *, char *, char *); void peDestroyUserContext(struct pine **); @@ -760,10 +760,10 @@ main(int argc, char *argv[]) } switch(Tcl_Eval(interp, &buf[co])){ - case TCL_OK : peReturn(cs, "OK", interp->result); break; - case TCL_ERROR : peReturn(cs, "ERROR", interp->result); break; - case TCL_BREAK : peReturn(cs, "BREAK", interp->result); break; - case TCL_RETURN : peReturn(cs, "RETURN", interp->result); break; + case TCL_OK : peReturn(cs, "OK", Tcl_GetStringResult(interp)); break; + case TCL_ERROR : peReturn(cs, "ERROR", Tcl_GetStringResult(interp)); break; + case TCL_BREAK : peReturn(cs, "BREAK", Tcl_GetStringResult(interp)); break; + case TCL_RETURN : peReturn(cs, "RETURN", Tcl_GetStringResult(interp)); break; default : peReturn(cs, "BOGUS", "eval returned unexpected value"); break; } } @@ -808,11 +808,11 @@ main(int argc, char *argv[]) * peReturn - common routine to return TCL result */ void -peReturn(int sock, char *status, char *result) +peReturn(int sock, char *status, const char *result) { if(peWrite(sock, status)) if(peWrite(sock, "\n")) - peWrite(sock, result); + peWrite(sock, (char *) result); } /* |