Commit 2d1bdefd authored by Erick's avatar Erick

Added cons25 as a terminal with color capabilities for FreeBSD

parent 852fe74f
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
# #
# Author: Erick Gallesio [eg@unice.fr] # Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg) # Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 20-Dec-2009 17:56 (eg) # Last file update: 4-Jan-2010 12:08 (eg)
SUBDIRS = Match.d SILex.d Lalr.d ScmPkg.d SUBDIRS = Match.d SILex.d Lalr.d ScmPkg.d
...@@ -12,7 +12,6 @@ scheme_BOOT = assembler.stk \ ...@@ -12,7 +12,6 @@ scheme_BOOT = assembler.stk \
bb.stk \ bb.stk \
bonus.stk \ bonus.stk \
boot.stk \ boot.stk \
boot-callcc.stk \
callcc.stk \ callcc.stk \
compiler.stk \ compiler.stk \
computils.stk \ computils.stk \
......
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
# #
# Author: Erick Gallesio [eg@unice.fr] # Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg) # Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 20-Dec-2009 17:56 (eg) # Last file update: 4-Jan-2010 12:08 (eg)
VPATH = @srcdir@ VPATH = @srcdir@
pkgdatadir = $(datadir)/@PACKAGE@ pkgdatadir = $(datadir)/@PACKAGE@
...@@ -252,7 +252,6 @@ scheme_BOOT = assembler.stk \ ...@@ -252,7 +252,6 @@ scheme_BOOT = assembler.stk \
bb.stk \ bb.stk \
bonus.stk \ bonus.stk \
boot.stk \ boot.stk \
boot-callcc.stk \
callcc.stk \ callcc.stk \
compiler.stk \ compiler.stk \
computils.stk \ computils.stk \
......
;;;; ;;;;
;;;; bonus.stk -- Useful primitives not in R5RS ;;;; bonus.stk -- Useful primitives not in R5RS
;;;; ;;;;
;;;; Copyright © 2000-2009 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;;; Copyright © 2000-2010 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: 14-Jun-2000 17:24 (eg) ;;;; Creation date: 14-Jun-2000 17:24 (eg)
;;;; Last file update: 20-Dec-2009 17:43 (eg) ;;;; Last file update: 16-Mar-2010 08:20 (eg)
;;;; ;;;;
...@@ -870,7 +870,7 @@ doc> ...@@ -870,7 +870,7 @@ doc>
(define do-color (define do-color
(if (and (not (key-get *%program-args* :interactive #f)) (if (and (not (key-get *%program-args* :interactive #f))
(member (getenv "TERM") (member (getenv "TERM")
'("rxvt" "xterm" "xterm-color" "linux" "cygwin"))) '("rxvt" "xterm" "xterm-color" "linux" "cygwin" "cons25")))
;; Terminal accepts color ;; Terminal accepts color
ansi-color ansi-color
;; Provide a procedure which ignore color indications ;; Provide a procedure which ignore color indications
......
...@@ -21,7 +21,7 @@ ...@@ -21,7 +21,7 @@
;;;; ;;;;
;;;; Author: Erick Gallesio [eg@unice.fr] ;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 4-Jun-2000 15:07 (eg) ;;;; Creation date: 4-Jun-2000 15:07 (eg)
;;;; Last file update: 3-Jan-2010 00:33 (eg) ;;;; Last file update: 16-Mar-2010 08:20 (eg)
;;;; ;;;;
;; This file defines the REPL module. This module does not export anything ;; This file defines the REPL module. This module does not export anything
...@@ -41,18 +41,6 @@ ...@@ -41,18 +41,6 @@
(define repl-level 0) (define repl-level 0)
(define repl-backtrace '()) (define repl-backtrace '())
(define do-color
(if (and (not (key-get *%program-args* :interactive #f))
(member (getenv "TERM")
'("rxvt" "xterm" "xterm-color" "linux" "cygwin")))
;; Terminal accepts color
ansi-color
;; Provide a procedure which ignore color indications
(lambda args
(apply string-append
(map (lambda (x) (if (string? x) x ""))
args)))))
(define (do-repl-command l) (define (do-repl-command l)
(case (car l) (case (car l)
((help ?) (display ((help ?) (display
......
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