Commit fc1980f4 authored by Erick's avatar Erick

Added SRFI 111 (Boxes)

The code was already here (with differents names), just added the SRFI
declaration in SRFI-0 and in the doc.
parent ff3f05b0
......@@ -18,7 +18,7 @@
;; USA.
;; Author: Erick Gallesio [eg@unice.fr]
;; Creation date: 26-Nov-2000 18:19 (eg)
;; Last file update: 21-Sep-2018 09:40 (eg)
;; Last file update: 6-Nov-2018 12:27 (eg)
;;
;; ======================================================================
......@@ -571,5 +571,15 @@ you need to insert the following expression])
(fontified-code [(require "srfi-100")])
(p [in your code or uses the ,(code "cond-expand") special form.]))
;; ----------------------------------------------------------------------
;; SRFI 111 -- Boxes
;; ----------------------------------------------------------------------
(srfi-section 111
(p [,(quick-link-srfi 111) is fully supported. To use SRFI-111,
you need to insert the following expression])
(fontified-code [(require "srfi-111")])
(p [in your code or uses the ,(code "cond-expand") special form.]))
;; End of chapter
)
;;;;
;;;; srfi.stk -- List of implemented SRFI in STklos
;;;; srfi.stk -- List of implemented SRFI in STklos
;;;;
;;;; Copyright © 2004-2010 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>
;;;; Copyright © 2004-2018 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 18-Aug-2004 12:43 (eg)
;;;; Last file update: 9-Aug-2010 18:32 (eg)
;;;; Last file update: 6-Nov-2018 12:27 (eg)
;;;;
(define srfi-address "http://srfi.schemers.org/srfi-~A/srfi-~A.html")
......@@ -69,6 +69,7 @@
(96 . "SLIB Prerequisites ")
(98 . "Interface to access environment variables")
(100 . "define-lambda-object")
(111 . "Boxes")
))
(define (srfi n)
......@@ -76,20 +77,20 @@
(define (link-srfi n)
(let* ((info (assoc n *srfis*))
(txt (if info (cdr info) (error "SRFI ~S not in database!!" n)))
(url (format srfi-address n n)))
(txt (if info (cdr info) (error "SRFI ~S not in database!!" n)))
(url (format srfi-address n n)))
[,(bold (ref :text (format "SRFI-~a" n) :url url))
(,(emph txt))]))
(define (quick-link-srfi n)
(let* ((info (assoc n *srfis*))
(txt (if info (cdr info) (error "SRFI ~S not in database!!" n)))
(url (format srfi-address n n)))
(txt (if info (cdr info) (error "SRFI ~S not in database!!" n)))
(url (format srfi-address n n)))
(ref :text (format "SRFI-~a" n) :url url)))
(define (title-srfi n)
(let* ((info (assoc n *srfis*))
(txt (if info (cdr info) (error "SRFI ~S not in database!!" n)))
(url (format srfi-address n n)))
(txt (if info (cdr info) (error "SRFI ~S not in database!!" n)))
(url (format srfi-address n n)))
(format "SRFI-~A -- ~A" n txt)))
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-Aug-1999 16:26 (eg)
;;;; Last file update: 25-Aug-2018 19:08 (eg)
;;;; Last file update: 6-Nov-2018 12:29 (eg)
;;;;
(define-module SRFI-0
......@@ -153,6 +153,28 @@
(srfi-96 "srfi-96") ; SLIB Prerequisites
;; srfi-97
srfi-98 ; Interface to access environment variables
;; srfi-99
(srfi-100 "srfi-100") ; define-lambda-object
;; srfi-101
;; srfi-102 ; ....... withdrawn
;; srfi-103 ; ....... withdrawn
;; srfi-104 ; ....... withdrawn
;; srfi-105
;; srfi-106
;; srfi-107
;; srfi-108
;; srfi-109
;; srfi-110
((srfi-111 boxes) "srfi-111") ; Boxes
;; srfi-112
;; srfi-113
;; srfi-114
;; srfi-115
;; srfi-116
;; srfi-117
;; srfi-118
;; srfi-119
;; srfi-120
))
;; ----------------------------------------------------------------------
......
;;;;
;;;;
;;;; srfi-111.stk -- BOXES
;;;;
;;;; Copyright © 2018 Erick Gallesio - I3S-CNRS/Polytech Nice-Sophia <eg@unice.fr>
;;;;
;;;;
;;;; 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.
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 6-Nov-2018 12:18
;;;; Last file update: 6-Nov-2018 12:19 (eg)
;;;;
(define box make-box)
(define set-box! box-set!)
(provide "srfi-111")
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