Initial revision

2005-03-13 18:02:10 +00:00
commit d6ca7664f4
81 changed files with 19663 additions and 0 deletions
--- a/glisp/dep-gcl-2.lisp
+++ b/glisp/dep-gcl-2.lisp
@ -0,0 +1,93 @@
+;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: GLISP; -*-
+;;; ---------------------------------------------------------------------------
+;;;     Title: Second part of GCL dependent stuff
+;;;   Created: 1999-05-25 22:31
+;;;    Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
+;;;   License: GPL (See file COPYING for details).
+;;; ---------------------------------------------------------------------------
+;;;  (c) copyright 1999 by Gilbert Baumann
+
+;;; This program is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program; if not, write to the Free Software
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+(in-package :GLISP)
+
+(lisp::clines
+ "#include <stdio.h>"
+ "#include <unistd.h>"
+ "#include <sys/stat.h>"
+ "#include <sys/socket.h>"
+ "#include <netinet/in.h>"
+ "#include <stdlib.h>"
+ "#include <fcntl.h>"
+ "#include <resolv.h>"
+ )
+
+(lisp::defcfun "static object open_inet_socket_aux (object x, object y, char *hostname, int port)" 2
+               "FILE *fp;"
+               "object stream;"
+
+               "struct hostent *hostinfo;"
+               "struct sockaddr_in addr;"
+               "int sock;"
+               "vs_mark;"
+  
+               "hostinfo = gethostbyname (hostname);"
+
+               "if (hostinfo == 0)"
+               "{"
+               "  return Cnil;"
+               "}"
+
+               "addr.sin_family = AF_INET;"
+               "addr.sin_port = htons (port);"
+               "addr.sin_addr = *(struct in_addr*) hostinfo->h_addr;"
+               ""
+               "sock = socket (PF_INET, SOCK_STREAM, 0);"
+               "if (sock < 0)"
+               "  return Cnil;"
+               ""
+               "if (connect (sock, (struct sockaddr *) &addr, sizeof (addr)) != 0)"
+               "{"
+               "  close (sock);"
+               "  return Cnil;"
+               "}"
+
+
+               "fp = fdopen (sock, \"rb+\");"
+               "stream = (object)  alloc_object(t_stream);"
+               "stream->sm.sm_mode = (short)smm_io;"
+               "stream->sm.sm_fp = fp;"
+               "stream->sm.sm_object0 = x;"
+               "stream->sm.sm_object1 = y;"
+               "stream->sm.sm_int0 = stream->sm.sm_int1 = 0;"
+               "vs_push(stream);"
+               "setup_stream_buffer(stream);"
+               "vs_reset;"
+               "return stream;"    
+               )
+
+(lisp::defentry open-inet-socket-aux (lisp::object lisp::object lisp::string lisp::int)
+                (lisp::object "open_inet_socket_aux"))
+
+(lisp::defentry unix/system (lisp::string)
+                (lisp::int "system"))
+
+(defun open-inet-socket (hostname port)
+  (values (or (open-inet-socket-aux '(unsigned-byte 8)
+                                    (format nil "Network connection to ~A:~D" hostname port)
+                                    hostname port)
+              (error "Cannot connect to `~A' on port ~D."
+                     hostname port))
+          :byte))