amigan/phoned
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Uh, no shit?

Browse Source
This commit is contained in:
dcp1990 2005-06-26 15:55:58 +00:00
parent 66a07a3b72
commit bb1450b825
5 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@ -1,8 +1,8 @@
# main makefile... # main makefile...
# $Amigan: phoned/Makefile,v 1.5 2005/06/19 05:51:07 dcp1990 Exp $ # $Amigan: phoned/Makefile,v 1.6 2005/06/26 15:55:58 dcp1990 Exp $
# Oh My Fucking God, this is such a big, unportable mess. Oh well. # Oh My Fucking God, this is such a big, unportable mess. Oh well.
# BSD Make > * # BSD Make > *
APPS=phonectl phoned lib scripts APPS=phonectl phoned lib scripts xfone
APPSUF=${APPS:S/$/_app/} APPSUF=${APPS:S/$/_app/}
APPSCLEAN=${APPS:S/$/_cl/} APPSCLEAN=${APPS:S/$/_cl/}
all: ${APPSUF} all: ${APPSUF}

12
lib/sockstuff.c
View File

@ -27,7 +27,7 @@
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE. * SUCH DAMAGE.
*/ */
/* $Amigan: phoned/lib/sockstuff.c,v 1.2 2005/06/26 15:51:22 dcp1990 Exp $ */ /* $Amigan: phoned/lib/sockstuff.c,v 1.3 2005/06/26 15:55:58 dcp1990 Exp $ */
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#include <unistd.h> #include <unistd.h>
@ -162,7 +162,7 @@ Tcl_Channel Udom_CreateChannel(sockfile, mask)
cdt->channel = Tcl_CreateChannel(&Udom_ChanType, chname, cdt, mask); cdt->channel = Tcl_CreateChannel(&Udom_ChanType, chname, cdt, mask);
return cdt->channel; return cdt->channel;
} }
int Udom_MakeSock (cdata, interp, argc, argv) int Udom_Cmd (cdata, interp, argc, argv)
ClientData cdata; ClientData cdata;
Tcl_Interp *interp; Tcl_Interp *interp;
int argc; int argc;
@ -199,4 +199,10 @@ int Udom_MakeSock (cdata, interp, argc, argv)
Tcl_AppendResult(interp, Tcl_GetChannelName(res), (char*)NULL); Tcl_AppendResult(interp, Tcl_GetChannelName(res), (char*)NULL);
return TCL_OK; return TCL_OK;
} }
int Udom_Init(interp)
Tcl_Interp *interp;
{
Tcl_CreateObjCommand(interp, "udom", Udom_Cmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
return TCL_OK;
}

12
lib/tcl/sockstuff.c
View File

@ -27,7 +27,7 @@
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE. * SUCH DAMAGE.
*/ */
/* $Amigan: phoned/lib/tcl/sockstuff.c,v 1.2 2005/06/26 15:51:22 dcp1990 Exp $ */ /* $Amigan: phoned/lib/tcl/sockstuff.c,v 1.3 2005/06/26 15:55:58 dcp1990 Exp $ */
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#include <unistd.h> #include <unistd.h>
@ -162,7 +162,7 @@ Tcl_Channel Udom_CreateChannel(sockfile, mask)
cdt->channel = Tcl_CreateChannel(&Udom_ChanType, chname, cdt, mask); cdt->channel = Tcl_CreateChannel(&Udom_ChanType, chname, cdt, mask);
return cdt->channel; return cdt->channel;
} }
int Udom_MakeSock (cdata, interp, argc, argv) int Udom_Cmd (cdata, interp, argc, argv)
ClientData cdata; ClientData cdata;
Tcl_Interp *interp; Tcl_Interp *interp;
int argc; int argc;
@ -199,4 +199,10 @@ int Udom_MakeSock (cdata, interp, argc, argv)
Tcl_AppendResult(interp, Tcl_GetChannelName(res), (char*)NULL); Tcl_AppendResult(interp, Tcl_GetChannelName(res), (char*)NULL);
return TCL_OK; return TCL_OK;
} }
int Udom_Init(interp)
Tcl_Interp *interp;
{
Tcl_CreateObjCommand(interp, "udom", Udom_Cmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
return TCL_OK;
}

3
xfone/phoned.tcl
View File

@ -27,4 +27,5 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE. # SUCH DAMAGE.
# #
# $Amigan: phoned/xfone/phoned.tcl,v 1.1 2005/06/26 04:47:20 dcp1990 Exp $ # $Amigan: phoned/xfone/phoned.tcl,v 1.2 2005/06/26 15:55:58 dcp1990 Exp $
load ./udom.so

12
xfone/sockstuff.c
View File

@ -27,7 +27,7 @@
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE. * SUCH DAMAGE.
*/ */
/* $Amigan: phoned/xfone/sockstuff.c,v 1.2 2005/06/26 15:51:22 dcp1990 Exp $ */ /* $Amigan: phoned/xfone/sockstuff.c,v 1.3 2005/06/26 15:55:58 dcp1990 Exp $ */
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#include <unistd.h> #include <unistd.h>
@ -162,7 +162,7 @@ Tcl_Channel Udom_CreateChannel(sockfile, mask)
cdt->channel = Tcl_CreateChannel(&Udom_ChanType, chname, cdt, mask); cdt->channel = Tcl_CreateChannel(&Udom_ChanType, chname, cdt, mask);
return cdt->channel; return cdt->channel;
} }
int Udom_MakeSock (cdata, interp, argc, argv) int Udom_Cmd (cdata, interp, argc, argv)
ClientData cdata; ClientData cdata;
Tcl_Interp *interp; Tcl_Interp *interp;
int argc; int argc;
@ -199,4 +199,10 @@ int Udom_MakeSock (cdata, interp, argc, argv)
Tcl_AppendResult(interp, Tcl_GetChannelName(res), (char*)NULL); Tcl_AppendResult(interp, Tcl_GetChannelName(res), (char*)NULL);
return TCL_OK; return TCL_OK;
} }
int Udom_Init(interp)
Tcl_Interp *interp;
{
Tcl_CreateObjCommand(interp, "udom", Udom_Cmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
return TCL_OK;
}