From f6333ff13bb3c513a35af9b246f490850d189bb3 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Fri, 9 Jan 2009 10:53:39 +0300 Subject: [PATCH] - added (ikarus ipc) library - added copyright notices for (ikarus foreign) and (ikarus ipc). --- lib/Makefile.am | 2 +- lib/Makefile.in | 2 +- lib/ikarus/foreign.ss | 15 +++++++++++++++ lib/ikarus/ipc.ss | 33 +++++++++++++++++++++++++++++++++ scheme/last-revision | 2 +- 5 files changed, 51 insertions(+), 3 deletions(-) create mode 100644 lib/ikarus/ipc.ss diff --git a/lib/Makefile.am b/lib/Makefile.am index 4f72f63..5833c72 100644 --- a/lib/Makefile.am +++ b/lib/Makefile.am @@ -1,7 +1,7 @@ libstreamsdir=$(pkglibdir)/streams dist_libstreams_DATA=streams/primitive.ss streams/derived.ss libikarusdir=$(pkglibdir)/ikarus -dist_libikarus_DATA=ikarus/foreign.ss +dist_libikarus_DATA=ikarus/foreign.ss ikarus/ipc.ss libCocoadir=$(pkglibdir)/Cocoa dist_libCocoa_DATA=Cocoa/helpers.ss diff --git a/lib/Makefile.in b/lib/Makefile.in index 60c27b1..8801a47 100644 --- a/lib/Makefile.in +++ b/lib/Makefile.in @@ -166,7 +166,7 @@ top_srcdir = @top_srcdir@ libstreamsdir = $(pkglibdir)/streams dist_libstreams_DATA = streams/primitive.ss streams/derived.ss libikarusdir = $(pkglibdir)/ikarus -dist_libikarus_DATA = ikarus/foreign.ss +dist_libikarus_DATA = ikarus/foreign.ss ikarus/ipc.ss libCocoadir = $(pkglibdir)/Cocoa dist_libCocoa_DATA = Cocoa/helpers.ss dist_pkglib_DATA = streams.ss match.ss pregexp.ss gl.ss glut.ss \ diff --git a/lib/ikarus/foreign.ss b/lib/ikarus/foreign.ss index f4d036b..fee006e 100644 --- a/lib/ikarus/foreign.ss +++ b/lib/ikarus/foreign.ss @@ -1,3 +1,18 @@ +;;; Ikarus Scheme -- A compiler for R6RS Scheme. +;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum +;;; +;;; This program is free software: you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License version 3 as +;;; published by the Free Software Foundation. +;;; +;;; 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, see . + (library (ikarus foreign) (export diff --git a/lib/ikarus/ipc.ss b/lib/ikarus/ipc.ss new file mode 100644 index 0000000..697ee6a --- /dev/null +++ b/lib/ikarus/ipc.ss @@ -0,0 +1,33 @@ +;;; Ikarus Scheme -- A compiler for R6RS Scheme. +;;; Copyright (C) 2009 Abdulaziz Ghuloum +;;; +;;; This program is free software: you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License version 3 as +;;; published by the Free Software Foundation. +;;; +;;; 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, see . + + + + +(library (ikarus ipc) + + (export + getenv setenv unsetenv + + system process process-nonblocking waitpid + wstatus-pid wstatus-exit-status wstatus-received-signal kill + + tcp-connect tcp-connect-nonblocking udp-connect + udp-connect-nonblocking tcp-server-socket + tcp-server-socket-nonblocking + accept-connection accept-connection-nonblocking + close-tcp-server-socket register-callback ) + + (import (ikarus))) diff --git a/scheme/last-revision b/scheme/last-revision index 0975dda..a41cbc3 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1742 +1743