svn commit: r1611420 - in /tcl/rivet/trunk/src/experimental: rivetChannel.c rivetChannel.h

[mx...@apache.org]

Author: mxmanghi
Date: Thu Jul 17 18:12:43 2014
New Revision: 1611420

URL: http://svn.apache.org/r1611420
Log:
adding experimental implementation for rivet Tcl channel

Added:
    tcl/rivet/trunk/src/experimental/rivetChannel.c
    tcl/rivet/trunk/src/experimental/rivetChannel.h

Added: tcl/rivet/trunk/src/experimental/rivetChannel.c
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/experimental/rivetChannel.c?rev=1611420&view=auto
==============================================================================
--- tcl/rivet/trunk/src/experimental/rivetChannel.c (added)
+++ tcl/rivet/trunk/src/experimental/rivetChannel.c Thu Jul 17 18:12:43 2014
@@ -0,0 +1,102 @@
+/* rivetChannel.c -- describes the mod_rivet Tcl output channel. */
+
+/* Copyright 2002-2004 The Apache Software Foundation
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+   	http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.
+*/
+
+/* Rivet config */
+#ifdef HAVE_CONFIG_H
+#include <rivet_config.h>
+#endif
+
+#include "httpd.h"
+#include "http_config.h"
+#include "http_request.h"
+
+#include <tcl.h>
+#include <errno.h>
+
+//#include "apache_request.h"
+#include "mod_rivet.h"
+#include "TclWeb.h"
+
+static int
+inputproc(ClientData instancedata, char *buf, int toRead, int *errorCodePtr)
+{
+    return EINVAL;
+}
+
+/* This is the output 'method' for the Memory Buffer Tcl 'File'
+   Channel that we create to divert stdout to. */
+
+static int
+outputproc(ClientData instancedata, CONST84 char *buf, int toWrite, int *errorCodePtr)
+{
+    mod_rivet_globals* globals = (mod_rivet_globals *)instancedata;
+
+    TclWeb_PrintHeaders(globals->req);
+    if (globals->req->content_sent == 0)
+    {
+        ap_rwrite(buf, toWrite, globals->r);
+        ap_rflush(globals->r);
+    }
+    return toWrite;
+}
+
+static int
+closeproc(ClientData instancedata, Tcl_Interp *interp)
+{
+    return 0;
+}
+
+static int
+setoptionproc(ClientData instancedata, Tcl_Interp *interp,
+	          CONST84 char *optionname, CONST84 char *value)
+{
+    return TCL_OK;
+}
+
+static void
+watchproc(ClientData instancedata, int mask)
+{
+    /* not much to do here */
+    return;
+}
+
+static int
+gethandleproc(ClientData instancedata, int direction, ClientData *handlePtr)
+{
+    return TCL_ERROR;
+}
+
+Tcl_ChannelType RivetChan = {
+    "apache_channel",           /* typeName */
+    TCL_CHANNEL_VERSION_4,      /* channel type version */
+    closeproc,                  /* close proc */
+    inputproc,                  /* input proc */
+    outputproc,                 /* output proc */
+    NULL,                       /* seek proc - can be null */
+    setoptionproc,              /* set option proc - can be null */
+    NULL,                       /* get option proc - can be null */
+    watchproc,                  /* watch proc */
+    gethandleproc,              /* get handle proc */
+    NULL,                       /* close 2 proc - can be null */
+    NULL,                       /* block mode proc - can be null */
+    NULL,                       /* flush proc - can be null */
+    NULL,                       /* handler proc - can be null */
+    NULL,                       /* wide seek proc - can be null if seekproc is*/
+    NULL,                       /* thread action proc - can be null */
+    NULL                        /* truncate proc */
+};
+

Added: tcl/rivet/trunk/src/experimental/rivetChannel.h
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/experimental/rivetChannel.h?rev=1611420&view=auto
==============================================================================
--- tcl/rivet/trunk/src/experimental/rivetChannel.h (added)
+++ tcl/rivet/trunk/src/experimental/rivetChannel.h Thu Jul 17 18:12:43 2014
@@ -0,0 +1,19 @@
+
+
+#ifndef _RIVET_CHANNEL_H_
+#define _RIVET_CHANNEL_H_
+
+/* Functions for mod_dtcl Tcl output channel .*/
+
+#include "mod_rivet.h"
+
+extern int closeproc(ClientData, Tcl_Interp *);
+extern int inputproc(ClientData, char *, int, int *);
+extern int outputproc(ClientData, char *, int, int *);
+extern int setoptionproc(ClientData, Tcl_Interp *, char *, char *);
+/* extern int getoptionproc(ClientData, Tcl_Interp *, char *, Tcl_DString *); */
+extern void watchproc(ClientData, int);
+extern int gethandleproc(ClientData, int, ClientData *);
+
+extern Tcl_ChannelType RivetChan;
+#endif



---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org