Commit bc66e38e authored by Erick's avatar Erick

Added support for SRFI-96

parent 1865ae3a
......@@ -102,5 +102,6 @@ State can be one of the following values
? 94 Type-Restricted Numerical Functions
? 95 Sorting and Merging
Y 96 SLIB Prerequisites
Implemented SRFIs: 37/66
Implemented SRFIs: 38/67
......@@ -18,7 +18,7 @@
;; USA.
;; Author: Erick Gallesio [eg@unice.fr]
;; Creation date: 26-Nov-2000 18:19 (eg)
;; Last file update: 13-Dec-2007 12:42 (eg)
;; Last file update: 27-Aug-2008 13:44 (eg)
;;
;; ======================================================================
......@@ -524,6 +524,17 @@ symbol.]))
you need to insert the following expression])
(fontified-code [(require "srfi-89")])
(p [in your code or uses the ,(code "cond-expand") special form.]))
;; ----------------------------------------------------------------------
;; SRFI 96 -- SLIB Prerequisites
;; ----------------------------------------------------------------------
(srfi-section 96
(p [,(quick-link-srfi 96) is fully supported. To use SRFI-96,
you need to insert the following expression])
(fontified-code [(require "srfi-96")])
(p [in your code or uses the ,(code "cond-expand") special form.]))
;; End of chapter
)
......@@ -2,7 +2,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 13-Dec-2007 12:37 (eg)
# Last file update: 27-Aug-2008 13:43 (eg)
SUBDIRS = Match.d SILex.d Lalr.d ScmPkg.d @LURCDIR@
......@@ -74,6 +74,7 @@ scheme_SRCS = STklos.init \
srfi-69.stk \
srfi-70.stk \
srfi-89.stk \
srfi-96.stk \
tar.stk \
trace.stk
......@@ -113,6 +114,7 @@ scheme_OBJS = compfile.ostk \
srfi-69.ostk \
srfi-70.ostk \
srfi-89.ostk \
srfi-96.ostk \
tar.ostk \
trace.ostk
......
......@@ -18,7 +18,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 13-Dec-2007 12:37 (eg)
# Last file update: 27-Aug-2008 13:43 (eg)
VPATH = @srcdir@
pkgdatadir = $(datadir)/@PACKAGE@
......@@ -266,6 +266,7 @@ scheme_SRCS = STklos.init \
srfi-69.stk \
srfi-70.stk \
srfi-89.stk \
srfi-96.stk \
tar.stk \
trace.stk
......@@ -305,6 +306,7 @@ scheme_OBJS = compfile.ostk \
srfi-69.ostk \
srfi-70.ostk \
srfi-89.ostk \
srfi-96.ostk \
tar.ostk \
trace.ostk
......
......@@ -4,7 +4,7 @@
;;;
;;; This code is in the public domain.
;;;
;;; Last file update: 27-Aug-2008 12:45 (eg)
;;; Last file update: 27-Aug-2008 13:41 (eg)
;;;
......@@ -213,7 +213,11 @@
;;; provide ensures that the file "srfi-59" will be not loaded
(provide "srfi-59")
;;@ (FILE-POSITION <port> . <k>)
(define (file-position port . args)
(if (null? args)
(port-current-position port)
(port-seek port (car args) :start)))
;;@ (OUTPUT-PORT-WIDTH <port>)
(define (output-port-width . arg) 79)
......@@ -244,6 +248,9 @@
;;(define (force-output . arg) #t)
(define force-output flush-output-port)
;;; CALL-WITH-INPUT-STRING and CALL-WITH-OUTPUT-STRING are the string
;;; port versions of CALL-WITH-*PUT-FILE.
......@@ -347,7 +354,15 @@
(apply error (format "~A" (car args)) (cdr args))))))
;@
(define (make-exchanger obj)
(lambda (rep) (let ((old obj)) (set! obj rep) old)))
(lambda (rep)
(with-mutex (make-mutex 'make-exchanger)
(lambda ()
(let ((old obj))
(set! obj rep)
old)))))
(define (open-file filename modes)
(case modes
((r rb) (open-input-file filename))
......@@ -372,10 +387,11 @@
;@
(define (browse-url url)
(define (try cmd end) (zero? (system (string-append cmd url end))))
(or (try "netscape-remote -remote 'openURL(" ")'")
(try "netscape -remote 'openURL(" ")'")
(try "netscape '" "'&")
(try "netscape '" "'")))
(or (try (format "~A '" (getenv "BROWSER")) "'&")
(try "firefox-remote -remote 'openURL(" ")'")
(try "firefox -remote 'openURL(" ")'")
(try "firefox '" "'&")
(try "firefox '" "'")))
;;@ define these as appropriate for your system.
(define slib:tab (integer->char 9))
......
;;;;
;;;; srfi-0.stk -- SRFI-0 aka cond-expand
;;;;
;;;; Copyright 1999-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 1999-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-Aug-1999 16:26 (eg)
;;;; Last file update: 13-Dec-2007 12:26 (eg)
;;;; Last file update: 27-Aug-2008 13:42 (eg)
;;;;
(define-module SRFI-0
......@@ -131,6 +131,7 @@
;; srfi-93 ; ....... withdrawn
;; srfi-94
;; srfi-95
(srfi-96 "srfi-96") ; SLIB Prerequisites
))
;; ----------------------------------------------------------------------
......
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment