Commit 2d1bdefd authored by Erick's avatar Erick

Added cons25 as a terminal with color capabilities for FreeBSD

parent 852fe74f
......@@ -2,7 +2,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# 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
......@@ -12,7 +12,6 @@ scheme_BOOT = assembler.stk \
bb.stk \
bonus.stk \
boot.stk \
boot-callcc.stk \
callcc.stk \
compiler.stk \
computils.stk \
......
......@@ -19,7 +19,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# 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@
pkgdatadir = $(datadir)/@PACKAGE@
......@@ -252,7 +252,6 @@ scheme_BOOT = assembler.stk \
bb.stk \
bonus.stk \
boot.stk \
boot-callcc.stk \
callcc.stk \
compiler.stk \
computils.stk \
......
;;;;
;;;; 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
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; 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>
(define do-color
(if (and (not (key-get *%program-args* :interactive #f))
(member (getenv "TERM")
'("rxvt" "xterm" "xterm-color" "linux" "cygwin")))
'("rxvt" "xterm" "xterm-color" "linux" "cygwin" "cons25")))
;; Terminal accepts color
ansi-color
;; Provide a procedure which ignore color indications
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; 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
......@@ -41,18 +41,6 @@
(define repl-level 0)
(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)
(case (car l)
((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