Commit fa05b35a authored by Erick Gallesio's avatar Erick Gallesio

- Deleted the undocumented pragma construction

- There was two different version of lalr in the distribution! Deleted
  the one which is in /lib and kept the one in /lib/Lalr.d
parent ed7d6f95
......@@ -2,7 +2,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 23-Oct-2006 23:11 (eg)
# Last file update: 23-Nov-2006 14:02 (eg)
SUBDIRS = Match.d SILex.d Lalr.d @LURCDIR@
......@@ -21,7 +21,6 @@ scheme_BOOT = assembler.stk \
object.stk \
obsolete.stk \
peephole.stk \
pragma.stk \
process.stk \
r5rs.stk \
regexp.stk \
......@@ -40,7 +39,6 @@ scheme_SRCS = STklos.init \
full-syntax.stk \
full-conditions.stk \
getopt.stk \
lalr.stk \
lex-rt.stk \
make-C-boot.stk \
match.stk \
......@@ -74,7 +72,6 @@ scheme_OBJS = compfile.ostk \
describe.ostk \
getopt.ostk \
lex-rt.ostk \
lalr.ostk \
match.ostk \
pp.ostk \
srfi-1.ostk \
......
......@@ -18,7 +18,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 23-Oct-2006 23:11 (eg)
# Last file update: 23-Nov-2006 14:02 (eg)
srcdir = @srcdir@
top_srcdir = @top_srcdir@
......@@ -213,7 +213,6 @@ scheme_BOOT = assembler.stk \
object.stk \
obsolete.stk \
peephole.stk \
pragma.stk \
process.stk \
r5rs.stk \
regexp.stk \
......@@ -231,7 +230,6 @@ scheme_SRCS = STklos.init \
full-syntax.stk \
full-conditions.stk \
getopt.stk \
lalr.stk \
lex-rt.stk \
make-C-boot.stk \
match.stk \
......@@ -265,7 +263,6 @@ scheme_OBJS = compfile.ostk \
describe.ostk \
getopt.ostk \
lex-rt.ostk \
lalr.ostk \
match.ostk \
pp.ostk \
srfi-1.ostk \
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 01-Jan-2000 15:04 (eg)
;;;; Last file update: 8-Nov-2006 11:28 (eg)
;;;; Last file update: 23-Nov-2006 14:01 (eg)
;;;;
(include "runtime.stk") ; Definition necessary for the bootstrap
......@@ -39,7 +39,6 @@
(include "object.stk") ; CLOS like object system
(include "date.stk") ; Dates
(include "thread.stk") ; Thread support
(include "pragma.stk") ; Pragma system for STklos compiler
(include "obsolete.stk") ; Obsolete functions. Candidates to disappear
(include "repl.stk") ; Read Eval Print Loop
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 26-Feb-2000 10:47 (eg)
;;;; Last file update: 22-Nov-2006 16:43 (eg)
;;;; Last file update: 23-Nov-2006 14:00 (eg)
;;;;
(define-module STKLOS-COMPILER
......@@ -34,8 +34,6 @@
(select-module STKLOS-COMPILER)
(define *compiler-options* '())
(define *compiler-port* #f)
(define *compiler-inline* '(+ - * / = < <= > >= cons car cdr null? list not
vector-ref vector-set! string-ref string-set!
......
This diff is collapsed.
......@@ -2,7 +2,7 @@
;;;; obsolete.stk -- Definition of functions which are obsolete.
;;;; Function defined here are candidate to disappear.
;;;;
;;;; Copyright 2002-2005 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 2002-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -22,7 +22,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 11-Jun-2002 17:54 (eg)
;;;; Last file update: 27-Oct-2005 22:56 (eg)
;;;; Last file update: 23-Nov-2006 13:59 (eg)
;;;;
......@@ -56,4 +56,10 @@
(if default?
(hash-table-ref/default ht key default)
(hash-table-ref ht key)))
(define hash-table-remove! hash-table-delete!)
\ No newline at end of file
(define hash-table-remove! hash-table-delete!)
;; 23-Nov-2006 (v 0.82)
(define (stklos-pragma . args)
(error "Don't use anymore pragma, but compiler:warn-use-undef parameter"))
(define-reader-ctor 'pragma stklos-pragma)
;;;;
;;;; pragma.stk -- STklos Pragmas
;;;;
;;;; Copyright 2004-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.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@essi.fr]
;;;; Creation date: 25-Oct-2004 15:53 (eg)
;;;; Last file update: 10-Nov-2006 11:53 (eg)
;;;;
(define-module STKLOS-COMPILER
(export stklos-pragma)
(define (stklos-pragma msg . args)
(case msg
;; #,(pragma :undefined-symbol-warning) => return state of warning
;; #,(pragma :undefined-symbol-warning bool) => set! state
((:undefined-symbol-warning)
(cond
((null? args)
(and (member 'warn-use-undef *compiler-options*) #t))
((car args)
(set! *compiler-options* (cons 'warn-use-undef
(delete! 'warn-use-undef
*compiler-options*))))
(else
(set! *compiler-options* (delete! 'warn-use-undef *compiler-options*)))))
(else
(error 'pragma "unknown pragma ~S" msg))))
(define-reader-ctor 'pragma stklos-pragma))
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