Commit 323645e1 authored by Erick Gallesio's avatar Erick Gallesio

.

parent b68570a5
......@@ -2,7 +2,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 20-Dec-2006 10:36 (eg)
# Last file update: 22-Dec-2006 00:13 (eg)
SUBDIRS = Match.d SILex.d Lalr.d Snow.d @LURCDIR@
......
......@@ -18,7 +18,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 20-Dec-2006 10:36 (eg)
# Last file update: 22-Dec-2006 00:13 (eg)
srcdir = @srcdir@
top_srcdir = @top_srcdir@
......
......@@ -21,15 +21,17 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 21-Dec-2006 14:55 (eg)
;;;; Last file update: 21-Dec-2006 17:31 (eg)
;;;; Last file update: 22-Dec-2006 00:15 (eg)
;;;;
;//FIXME: _snow:program-filename should be defined as program-file-name
(require "srfi-4") ;;//FIXME:
(define-module _snow
(export snow-raise snow-error snow-with-exception-catcher)
(export snow-raise snow-error snow-with-exception-catcher
_snow:program-filename)
;;
;; Functions
......@@ -47,6 +49,8 @@
(eprintf "\n")
(raise (exception* snow-error-condition msg: msg args: args)))
(define _snow:program-filename (program-name))
;;
;; Exceptions
;;
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 14-Jun-2000 17:24 (eg)
;;;; Last file update: 19-Dec-2006 12:20 (eg)
;;;; Last file update: 26-Dec-2006 16:18 (eg)
;;;;
;;
......@@ -373,6 +373,20 @@ doc>
(define (program-name)
(key-get *%program-args* :program-name))
#|
<doc EXT make-directories
* (make-directories str)
*
* .....
doc>
|#
(define (make-directories path)
(let ((dir (dirname path)))
(unless (file-is-directory? dir)
(make-directories dir))
(make-directory path)))
;;;;
;;;; Hash-tables functions
;;;;
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 01-Jan-2000 15:04 (eg)
;;;; Last file update: 21-Dec-2006 18:24 (eg)
;;;; Last file update: 21-Dec-2006 23:51 (eg)
;;;;
(include "runtime.stk") ; Definition necessary for the bootstrap
......@@ -53,7 +53,7 @@
(autoload "pp" pp pretty-print)
(autoload "env" null-environment scheme-report-environment
interaction-environment)
;(syntax-autoload "snow-support" package*)
(syntax-autoload "snow-support" package*)
(autoload "srfi-27" random-integer random-real)
(syntax-autoload "srfi-34" with-exception-handler guard)
(syntax-autoload "srfi-35" define-condition-type condition)
......
;;;;
;;;; repl.stk -- STklos REPL
;;;;
;;;; Copyright 2000-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 2000-2007 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: 4-Jun-2000 15:07 (eg)
;;;; Last file update: 24-Nov-2006 11:54 (eg)
;;;; Last file update: 1-Jan-2007 19:17 (eg)
;;;;
;; This file defines the REPL module. This module does not export anything
......@@ -201,7 +201,7 @@ doc>
'bold 'green
(format "STklos version ~A\t\t[~A/~A]\n" (version) (machine-type)
(%thread-system))
"Copyright 1999-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>\n"
"Copyright (C) 1999-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>\n"
'normal)
(current-error-port)))
((main-repl-hook))
......
This diff is collapsed.
This source diff could not be displayed because it is too large. You can view the blob instead.
......@@ -21,7 +21,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: ??-Oct-1993 ??:??
* Last file update: 20-Dec-2006 09:59 (eg)
* Last file update: 24-Dec-2006 11:39 (eg)
*
*/
#include <ctype.h>
......@@ -118,7 +118,7 @@ static void printstring(SCM s, SCM port, int mode)
case '\v' : *buff++ = '\\'; *buff++ = 'v'; break;
case '"' :
case '\\' : *buff++ = '\\'; *buff++ = *p; break;
default : if ((unsigned char) *p < (unsigned char) ' ') {
default : if ((unsigned char) *p < (unsigned char) ' ') {
/* Non printable character (This work only for ASCII!!) */
*buff++ = '\\';
*buff++ = 'x';
......
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