projects / jscl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw (from parent 2: f92bc46)
Merge branch 'lisp-repl'
authorDavid Vázquez <davazp@gmail.com>
Wed, 19 Feb 2014 02:09:33 +0000 (03:09 +0100)
committerDavid Vázquez <davazp@gmail.com>
Wed, 19 Feb 2014 02:09:33 +0000 (03:09 +0100)
Conflicts:
jscl.html
src/toplevel.lisp

jscl.html patch | blob | history
src/toplevel.lisp patch | blob | history
tests-report.lisp patch | blob | history
tests.html patch | blob | history
tests.lisp patch | blob | history

diff --git a/jscl.html b/jscl.html
index a8d109b..4e29546 100644 (file)
--- a/jscl.html
+++ b/jscl.html
@@ -1,72 +1,13 @@
 <!doctype html>
 <html>
   <head>
-    <style>
-     /* The console container element */
-    body { background-color: black; font-size: 16px; font-family: Courier; overflow: hidden; padding: 0 0 0 0;}
-    #console {
-      position: absolute;
-      top: 0px;
-      bottom: 0px;
-      left: 0px;
-      right: 0px;
-      background-color:black;
-    }
-
-    .parents {
-        font-weight: bold;
-    }
-
-    /* The inner console element. */
-    .jqconsole {
-        padding: 10px;
-    }
-    /* The cursor. */
-    .jqconsole-cursor {
-        background-color: gray;
-    }
-    /* The cursor color when the console looses focus. */
-    .jqconsole-blurred .jqconsole-cursor {
-        background-color: #666;
-    }
-    /* The current prompt text color */
-    .jqconsole-prompt {
-        color: White;
-    }
-    /* The command history */
-    .jqconsole-old-prompt {
-        color: White;
-        font-weight: normal;
-    }
-    /* The text color when in input mode. */
-    .jqconsole-input {
-        color: White;
-    }
-    /* Previously entered input. */
-    .jqconsole-old-input {
-        color: White;
-        font-weight: normal;
-    }
-    /* The text color of the output. */
-    .jqconsole-output {
-        color: green;
-    }
-    .jqconsole-return, .jqconsole-header {
-        color: gray;
-    }
-    .jqconsole-error {
-        color: red;
-    }
-</style>
+    <link rel="stylesheet" href="style.css">
   </head>
-
   <body>
     <div id="console"></div>
     <script src="jquery.js" type="text/javascript" charset="utf-8"></script>
-    <script src="jscl.js" type="text/javascript"></script>
     <script src="jqconsole.min.js" type="text/javascript" charset="utf-8"></script>
-    <script>
-      var jqconsole = $('#console').jqconsole(';; Welcome to JSCL!\n\n', '');
-    </script>
+    <script>var jqconsole = $('#console').jqconsole(';; Welcome to JSCL!\n\n', '');</script>
+    <script src="jscl.js" type="text/javascript"></script>
   </body>
 </html>
diff --git a/src/toplevel.lisp b/src/toplevel.lisp
index 42864e6..3c38003 100644 (file)
--- a/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@ -272,15 +272,9 @@
     (#j:jqconsole:Prompt t #'process-input)))
 
 
-;;; KLUDGE: I tried
-;;; 
-;;;   (#j:document.addEventListener "load" #'topevel nil)
-;;; 
-;;; but it is not working. So I am using this temporarily to wait
-;;; until the DOM is ready before starting the REPL.
+(defun init (&rest args)
+  (#j:jqconsole:RegisterMatching "(" ")" "parents")
+  (load-history)
+  (toplevel))
 
-(#j:setTimeout (lambda ()
-                 (#j:jqconsole:RegisterMatching "(" ")" "parents")
-                 (load-history)
-                 (toplevel))
-               0)
+(#j:window:addEventListener "load" #'init)
diff --git a/tests-report.lisp b/tests-report.lisp
index 19a95a7..1b44496 100644 (file)
--- a/tests-report.lisp
+++ b/tests-report.lisp
@@ -10,3 +10,5 @@
 
 (unless (zerop *unexpected-passes*)
   (format t "~a test(s) passed unexpectedly.~%" *unexpected-passes*))
+
+(terpri)
diff --git a/tests.html b/tests.html
index 92a5f13..b814558 100644 (file)
--- a/tests.html
+++ b/tests.html
@@ -1,76 +1,14 @@
 <!doctype html>
 <html>
   <head>
-    <style>
-     /* The console container element */
-    body { background-color: black; font-size: 16px; font-family: Courier; overflow: hidden; padding: 0 0 0 0;}
-    #console {
-      position: absolute;
-      top: 0px;
-      bottom: 0px;
-      left: 0px;
-      right: 0px;
-      background-color:black;
-    }
-
-    .parents {
-        font-weight: bold;
-    }
-
-    /* The inner console element. */
-    .jqconsole {
-        padding: 10px;
-    }
-    /* The cursor. */
-    .jqconsole-cursor {
-        background-color: gray;
-    }
-    /* The cursor color when the console looses focus. */
-    .jqconsole-blurred .jqconsole-cursor {
-        background-color: #666;
-    }
-    /* The current prompt text color */
-    .jqconsole-prompt {
-        color: White;
-    }
-    /* The command history */
-    .jqconsole-old-prompt {
-        color: White;
-        font-weight: normal;
-    }
-    /* The text color when in input mode. */
-    .jqconsole-input {
-        color: White;
-    }
-    /* Previously entered input. */
-    .jqconsole-old-input {
-        color: White;
-        font-weight: normal;
-    }
-    /* The text color of the output. */
-    .jqconsole-output {
-        color: green;
-    }
-    .jqconsole-return, .jqconsole-header {
-        color: gray;
-    }
-    .jqconsole-error {
-        color: red;
-    }
-</style>
+    <link rel="stylesheet" href="style.css">
   </head>
   <body>
     <div id="console"></div>
     <script src="jquery.js" type="text/javascript" charset="utf-8"></script>
     <script src="jqconsole.min.js" type="text/javascript" charset="utf-8"></script>
+    <script>var jqconsole = $('#console').jqconsole('Running test suit...', '');</script>
     <script src="jscl.js" type="text/javascript"></script>
-    <script>
-      var jqconsole = $('#console').jqconsole();
-      lisp.write = function(str){
-           jqconsole.Write(xstring(str), 'jqconsole-output', false);
-           return str;
-      };
-    </script>
     <script src="tests.js" type="text/javascript"></script>
   </body>
 </html>
diff --git a/tests.lisp b/tests.lisp
index a09ee75..1eca341 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -41,5 +41,6 @@
 (defmacro test-equal (form value)
   `(test (equal ,form, value)))
 
-(format t "Running tests...~%~%")
 (setq *timestamp* (get-internal-real-time))
+
+(terpri)
A Lisp-to-Javascript compiler bootstrapped from Common Lisp