Commit 5379367c authored by Erick's avatar Erick

Added SRFI-98 support

parent bc66e38e
......@@ -103,5 +103,6 @@ State can be one of the following values
? 95 Sorting and Merging
Y 96 SLIB Prerequisites
Y 98 An interface to access environment variables
Implemented SRFIs: 38/67
Implemented SRFIs: 39/68
;;;;
;;;; srfi.stk -- List of implemented SRFI in STklos
;;;;
;;;; Copyright © 2004-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>
;;;; Copyright © 2004-2008 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: 13-Dec-2007 12:40 (eg)
;;;; Last file update: 22-Sep-2008 14:28 (eg)
;;;;
(define srfi-address "http://srfi.schemers.org/srfi-~A/srfi-~A.html")
......@@ -65,6 +65,8 @@
(70 . "Numbers")
(88 . "Keyword Objects")
(89 . "Optional Positional and Named Parameters")
(96 . "SLIB Prerequisites ")
(98 . "Interface to access environment variables")
))
(define (srfi n)
......
;;;;
;;;; bonus.stk -- Useful primitives not in R5RS
;;;;
;;;; Copyright © 2000-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright © 2000-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: 14-Jun-2000 17:24 (eg)
;;;; Last file update: 6-Dec-2007 15:08 (eg)
;;;; Last file update: 22-Sep-2008 14:20 (eg)
;;;;
;;
......@@ -1663,5 +1663,29 @@ doc>
(error "bad string ~S" str))
(make-keyword str))
;;
;; SRFI-98: "An interface to access environment variables"
;;
#| <doc EXT get-environment-variable
* (get-environment-variable name)
*
* Returns the value of the named environment variable as a string, or
* |¤f| if the named environment variable is not found. The name argument
* is expected to be a string. This function is similar to the |getenv|. It
* has been added to be support ,(link-srfi 98).
|#
(define (get-environment-variable name)
(getenv name))
#| <doc EXT get-environment-variables
* (get-environment-variables)
*
* Returns names and values of all the environment variables as an a-list.
* This function is defined by ,(link-srfi 98)
|#
(define (get-environment-variables)
(getenv))
;; LocalWords: doc dotimes R5RS str SRFI optarg
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-Aug-1999 16:26 (eg)
;;;; Last file update: 27-Aug-2008 13:42 (eg)
;;;; Last file update: 22-Sep-2008 14:22 (eg)
;;;;
(define-module SRFI-0
......@@ -132,6 +132,8 @@
;; srfi-94
;; srfi-95
(srfi-96 "srfi-96") ; SLIB Prerequisites
;; srfi-97
srfi-98 ; Interface to access environment variables
))
;; ----------------------------------------------------------------------
......
This diff is collapsed.
This source diff could not be displayed because it is too large. You can view the blob instead.
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