Changeset 11973 in project

Timestamp:

09/20/08 00:20:16 (12 years ago)

Author:

felix winkelmann

Message:

there must be SOME fun in this

Location:

chicken/branches/hygienic

Files:

• banner.scm (modified) (1 diff)
• csi.scm (modified) (1 diff)
• runtime.c (modified) (1 diff)

chicken/branches/hygienic/banner.scm

@@ +1 @@
+;;;; banner.scm
+
+
+(define-constant +product+ "CHICKEN")
+
 (define-constant +banner+ #<<EOF
-
-CHICKEN
 (c)2008 The Chicken Team
 (c)2000-2007 Felix L. Winkelmann

chicken/branches/hygienic/csi.scm

@@ -103 +103 @@
 
 (define (print-banner)
+  (newline)
+  (when (and (tty-input?) (##sys#fudge 11))
+    (let* ((t (string-copy +product+))
+           (len (string-length t))
+           (c (make-string len #\x08)))
+      (do ((i (sub1 (* 2 len)) (sub1 i)))
+          ((zero? i))
+        (let* ((p (abs (- i len)))
+               (o (string-ref t p)))
+          (string-set! t p #\@)
+          (print* t)
+          (string-set! t p o)
+          (let ((t0 (+ (current-milliseconds) 40)))
+            (let loop ()                ; crude, but doesn't need srfi-18
+              (when (< (current-milliseconds) t0)
+                (loop))))
+          (print* c) ) ) ) )
+  (print +product+)
   (print +banner+ (chicken-version #t) "\n") )
 

chicken/branches/hygienic/runtime.c

@@ -4147 +4147 @@
 
   case C_fix(11):
-#ifdef MACINTOSH_GUI
+#if defined(C_NONUNIX) || defined(__CYGWIN__)
+    return C_SCHEME_FALSE;
+#else
     return C_SCHEME_TRUE;
-#else
-    return C_SCHEME_FALSE;
 #endif