conservatory/stk
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Commit of 3.99.1 version

Browse Source
This commit is contained in:
Erick Gallesio
2019-10-31 12:04:33 +01:00
parent 5f74a25a3c
commit 3c98caa84e
158 changed files with 10002 additions and 8279 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lib/Makefile
+2 -2
View File
@@ -3,7 +3,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: ???
# Last file update: 28-Oct-1997 21:23
# Last file update: 30-Apr-1998 16:28
include ../config.make
@@ -29,7 +29,7 @@ install:
chmod 0644 $(STK_IMAGES)/*
$(CP) Match/*.scm $(STK_STK_MATCH)
chmod 0644 $(STK_STK_MATCH)/*
chmod 0755 $(SITE_SCHEME) $(STK_IMAGES) $(STK_STK) $(STK_STK_MATCH)
install.libs:
clean:
Lib/bigloo.stk
+12 -12
View File
@@ -11,11 +11,11 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: bigloo.stk 1.2 Wed, 14 Jan 1998 14:58:05 +0100 eg $
;;;; $Id: bigloo.stk 1.3 Thu, 30 Apr 1998 14:16:40 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 28-Oct-1997 11:09
;;;; Last file update: 14-Jan-1998 11:05
;;;; Last file update: 30-Apr-1998 15:26
;;;
@@ -65,18 +65,18 @@
x))
x)))
`(define-module ,name
,@(map (lambda (clause)
(case (car clause)
((export) (export-directive (cdr clause)))
((import) (import-directive (cdr clause)))
((use) '())
(else (error "module" "Unknown clause" (cons name clause)))))
clauses)
(define error bigloo:error)
`(begin
(define-module ,name
,@(map (lambda (clause)
(case (car clause)
((export) (export-directive (cdr clause)))
((import) (import-directive (cdr clause)))
((use) '())
(else (error "module" "Unknown clause" (cons name clause)))))
clauses)
(define error bigloo:error))
(select-module ,name)))
;;;
;;; Error
;;;
Lib/init.stk
+2 -2
View File
@@ -11,11 +11,11 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: init.stk 1.13 Fri, 10 Apr 1998 09:13:18 +0200 eg $
;;;; $Id: init.stk 1.14 Mon, 20 Apr 1998 20:15:01 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: ??-Sep-1993 ??:??
;;;; Last file update: 8-Apr-1998 11:41
;;;; Last file update: 20-Apr-1998 19:31
;;;;
;;;==============================================================================
Lib/match.stk
+3 -3
View File
@@ -1,7 +1,7 @@
;;;;
;;;; m a t c h . s t k -- The bigloo match-case and match-lambda
;;;;
;;;; Copyright © 1997 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright © 1997-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;; Permission to use, copy, and/or distribute this software and its
;;;; documentation for any purpose and without fee is hereby granted, provided
@@ -13,7 +13,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 28-Oct-1997 20:47
;;;; Last file update: 28-Oct-1997 21:16
;;;; Last file update: 30-Apr-1998 15:27
;;;;
;;;; This file implements code for loading the MATCH-CASE and MATCH-LAMBDA
@@ -33,7 +33,7 @@
(load "Match/compiler.scm")
(load "Match/mexpand.scm")
(with-module Scheme
(with-module STk
(import __match_expand)
(define-macro (match-lambda . clauses)
Lib/menu.stk
+3 -4
View File
@@ -15,7 +15,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-1993 12:35
;;;; Last file update: 8-Apr-1998 11:40
;;;; Last file update: 27-Apr-1998 12:34
;;;;
(select-module Tk)
@@ -734,7 +734,7 @@
(define (Tk:menu-find w char)
(let ((char (string-lower char))
(window-list (winfo 'child w)))
(DEBUG " Tk:menu-find (à debugger) ~S ~S" w char)
; FIXME: (DEBUG " Tk:menu-find (à debugger) ~S ~S" w char)
(call/cc
(lambda (exit)
(for-each (lambda (child)
@@ -905,8 +905,7 @@
;; s - String to look for.
(define (Tk:menu-find-name menu s)
(DEBUG "Tk:menu-find-name manque des test pour les chaines speciales ~S " s)
; FIXME: Tk:menu-find-name manque des test pour les chaines speciales
(let ((last (menu 'index 'last))
(label #f))
(if (equal? last "none")
Lib/sterm.stk
+1 -1
View File
@@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: sterm.stk 1.3 Tue, 03 Mar 1998 23:48:24 +0100 eg $
;;;; $Id: sterm.stk 1.3 Tue, 03 Mar 1998 22:48:24 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 2-Oct-1995 22:57
Lib/text.stk
+1 -1
View File
@@ -14,7 +14,7 @@
;;;; This software is a derivative work of other copyrighted softwares; the
;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
;;;;
;;;; $Id: text.stk 1.3 Sun, 22 Mar 1998 17:16:09 +0100 eg $
;;;; $Id: text.stk 1.3 Sun, 22 Mar 1998 16:16:09 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-1993 12:35
Lib/tk-init.stk
+1 -1
View File
@@ -17,7 +17,7 @@
;;;; This software is a derivative work of other copyrighted softwares; the
;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
;;;;
;;;; $Id: tk-init.stk 1.11 Fri, 10 Apr 1998 09:13:18 +0200 eg $
;;;; $Id: tk-init.stk 1.11 Fri, 10 Apr 1998 07:13:18 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-1993 12:35
Lib/tk-unix.stk
+1 -1
View File
@@ -12,7 +12,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: tk-unix.stk 1.1 Fri, 10 Apr 1998 09:13:18 +0200 eg $
;;;; $Id: tk-unix.stk 1.1 Fri, 10 Apr 1998 07:13:18 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 1-Feb-1998 19:03
Lib/trace.stk
+1 -1
View File
@@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: trace.stk 1.2 Sun, 18 Jan 1998 20:17:48 +0100 eg $
;;;; $Id: trace.stk 1.2 Sun, 18 Jan 1998 19:17:48 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 26-Apr-1997 16:02
Lib/www-browser.stklos
+2 -2
View File
@@ -13,7 +13,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 21-Oct-1996 14:02
;;;; Last file update: 2-Mar-1998 10:47
;;;; Last file update: 16-Apr-1998 11:45
;;;;
(require "Tk-classes")
@@ -77,7 +77,7 @@
(f1 (make <Frame> :parent parent))
(lab (make <Label> :parent f1 :anchor "w"))
(gauge (make <Gauge> :parent f1 :width 200 :height 10
:background "Dark Gray" :foreground "IndianRed4")))
:background "gray40" :foreground "IndianRed4")))
;;
;; Pack commponents
(pack f loc :expand #f :fill "x")
Lib/www-img.stk
+1 -2
View File
@@ -16,13 +16,12 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 6-Oct-1996 17:12
;;;; Last file update: 28-Feb-1998 11:33
;;;; Last file update: 11-Apr-1998 11:50
;;;;
(require "image")
(select-module WWW)
;=============================================================================
;
; U t i l i t i e s
Lib/www.stk
+1 -1
View File
@@ -16,7 +16,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 4-Oct-1996 16:14
;;;; Last file update: 28-Feb-1998 13:53
;;;; Last file update: 11-Apr-1998 11:51
;;
;; This module needs a library of protocol getters & file viewers to be