Commit f0314668 authored by Erick's avatar Erick

nop

parent afd58881
...@@ -36,11 +36,12 @@ LALR: The Dominique Boucher LALR Package ...@@ -36,11 +36,12 @@ LALR: The Dominique Boucher LALR Package
- Home Page: http://www.iro.umontreal.ca/~boucherd/Lalr/documentation/lalr.html - Home Page: http://www.iro.umontreal.ca/~boucherd/Lalr/documentation/lalr.html
C/INVOKE: a library for connecting to C libraries at runtime libffi - a portable foreign function interface library
============================================================ ======================================================
- Version: 1.0 - Version 3.0.5
- License: 3 clauses BSD - License: Free (BSD like)
- Home Page: http://www.nongnu.org/cinvoke/index.html - Home Page: http://sourceware.org/libffi/
+++++++++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++
......
;;;; ;;;;
;;;; load.stk -- Extended load function ;;;; load.stk -- Extended load function
;;;; ;;;;
;;;; 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 ;;;; This program is free software; you can redistribute it and/or modify
...@@ -21,7 +21,7 @@ ...@@ -21,7 +21,7 @@
;;;; ;;;;
;;;; Author: Erick Gallesio [eg@unice.fr] ;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-2000 14:55 (eg) ;;;; Creation date: 17-May-2000 14:55 (eg)
;;;; Last file update: 4-Dec-2007 10:13 (eg) ;;;; Last file update: 5-May-2008 10:26 (eg)
;;;; ;;;;
...@@ -34,20 +34,27 @@ ...@@ -34,20 +34,27 @@
(define *load-verbose* #f) (define *load-verbose* #f)
(define *load-path* '()) ;; initialized later (define *load-path* '()) ;; initialized later
;======================================================================
; #|
; *load-path* construction <doc EXT build-path-from-shell-variable
; * (build-path-from-shell-variable var)
;====================================================================== *
(define (%build-path-from-shell-variable var) * TODO
doc>
|#
(define (build-path-from-shell-variable var)
(let ((path (getenv var))) (let ((path (getenv var)))
(if path (if path
(string-split path *path-separator*) (string-split path *path-separator*)
'()))) '())))
;======================================================================
;
; *load-path* construction
;
;======================================================================
(set! *load-path* (set! *load-path*
(let ((user-path (%build-path-from-shell-variable "STKLOS_LOAD_PATH"))) (let ((user-path (build-path-from-shell-variable "STKLOS_LOAD_PATH")))
(if (null? user-path) (if (null? user-path)
(let ((prefix (%library-prefix)) (let ((prefix (%library-prefix))
(release (version))) (release (version)))
......
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