picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mersatz/picolisp.jar | 0
Alib/tinymce.js | 48++++++++++++++++++++++++++++++++++++++++++++++++
Mmisc/maze.l | 22+++++++++++++++-------
Msrc64/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