picolisp

commit 981c394e90c7015c5d1c8252993cc7b661636d27
parent a465541204cd91e790f470669c3777e54e43a7cc
Author: Commit-Bot <unknown>
Date:   Tue, 14 Dec 2010 11:05:10 +0000

Automatic commit from picoLisp.tgz, From: Tue, 14 Dec 2010 11:05:10 GMT
Diffstat:
M
ersatz/picolisp.jar
 | 
0

A
lib/tinymce.js
 | 
48
++++++++++++++++++++++++++++++++++++++++++++++++
M
misc/maze.l
 | 
22
+++++++++++++++-------
M
src64/version.l
 | 
4
++--

4 files changed, 65 insertions(+), 9 deletions(-)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/tinymce.js b/lib/tinymce.js
@@ -0,0 +1,48 @@
+/* 10dec10abu
+ * (c) Software Lab. Alexander Burger
+ */
+
+tinyMCE.init({
+   mode : "textareas",
+   theme : "advanced",
+
+   plugins : "safari,table,preview,inlinepopups,searchreplace,print,contextmenu,paste,fullscreen",
+
+   theme_advanced_buttons1 : "bold,italic,underline,strikethrough,|,justifyleft,justifycenter,justifyright,justifyfull,|,styleselect,formatselect,fontselect,fontsizeselect",
+   theme_advanced_buttons2 : "cut,copy,paste,pastetext,pasteword,|,search,replace,|,bullist,numlist,|,outdent,indent,blockquote,|,undo,redo,|,cleanup,preview,|,forecolor,backcolor",
+   theme_advanced_buttons3 : "tablecontrols,|,hr,removeformat,|,sub,sup,|,print,|,fullscreen",
+   theme_advanced_toolbar_location : "top",
+   theme_advanced_toolbar_align : "left",
+   theme_advanced_statusbar_location : "bottom",
+   theme_advanced_resizing : true,
+   language : "en",
+
+   setup : function(ed) {
+      ed.onInit.add(function(ed) {
+         ed.getElement().custom = ed;
+         ableCustom(ed);
+      });
+      ed.onChange.add(function(ed) {
+         fldChg(ed.getElement());
+      });
+   }
+});
+
+function putCustom(ed, val) {
+   ed.setContent(val);
+}
+
+function getCustom(ed) {
+   return ed.getContent();
+}
+
+function ableCustom(ed) {
+   var flg = ed.getElement().disabled;
+   var tb = ["toolbar1", "toolbar2", "toolbar3"];
+   ed.execCommand("contentReadOnly", false, flg);
+   for (var i in tb) {
+      var ct = ed.controlManager.get(tb[i]).controls;
+      for (var j in ct)
+         ct[j].setDisabled(flg);
+   }
+}
diff --git a/misc/maze.l b/misc/maze.l
@@ -1,9 +1,9 @@
-# 31jan10abu
+# 14dec10abu
 # (c) Software Lab. Alexander Burger
 
-# ./dbg misc/maze.l -"setq M (maze 16 10)" -"display M"
+# ./dbg misc/maze.l -"setq M (maze 16 12)" -"display M" -bye
 
-(load "lib/simul.l")
+(load "@lib/simul.l")
 
 (de maze (DX DY)
    (let Maze (grid DX DY)
@@ -15,12 +15,20 @@
                      (put Fld (car Dir) This)
                      (put This (cdr Dir) Fld)
                      (recurse This) ) ) ) ) )
-      (for Col Maze
-         (for This Col
+      (for (X . Col) Maze
+         (for (Y . This) Col
             (set This
                (cons
-                  (cons (: west) (: east))
-                  (cons (: south) (: north)) ) )
+                  (cons
+                     (: west)
+                     (or
+                        (: east)
+                        (and (= Y 1) (= X DX)) ) )
+                  (cons
+                     (: south)
+                     (or
+                        (: north)
+                        (and (= X 1) (= Y DY)) ) ) ) )
             (=: west)
             (=: east)
             (=: south)
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 13dec10abu
+# 14dec10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 4 18)
+(de *Version 3 0 4 19)
 
 # vi:et:ts=3:sw=3