MAJ MicroAlg 0.4.07.

Author: Grahack

doc.html

@@ -1,10 +1,10 @@
-/* 23sep15jk
+/* 22dec15jk
  * (c) Jon Kleiser
  */
 
 var EMULISP_CORE = (function () {
 
-var VERSION = [2, 0, 6, 0],
+var VERSION = [2, 0, 7, 0],
 	MONLEN = [31, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31],
 	BOXNAT_EXP = "Boxed native object expected",
 	BOOL_EXP = "Boolean expected", CELL_EXP = "Cell expected", LIST_EXP = "List expected",
@@ -30,7 +30,7 @@ function getFileSync(fileUrl) {
 		}
 		return req.responseText;
 	}
-	throw new Error("XMLHttpRequest status: " + req.status);
+	throw new Error("Retrieving " + fileUrl + ": XMLHttpRequest status " + req.status);
 }
 
 var NILTYPE = 0, NUMBERTYPE = 1, SYMBOLTYPE = 2, CELLTYPE = 3, TRUETYPE = 4;
@@ -1590,6 +1590,13 @@ var coreFunctions = {
 		}
 		return lst;
 	},
+	"sqrt": function(c) {
+		var v = evalLisp(c.car);
+		v = numeric(v);
+		if (v === NIL) return NIL;
+		if (v < 0) throw new Error(newErrMsg(BAD_ARG, v));
+		return new Number(Math.sqrt(v));
+	},
 	"str": function(c) {
 		var cv = evalLisp(c.car);
 		if (cv instanceof Symbol) {
@@ -1935,9 +1942,15 @@ function evalLisp(lst) {
 				return evalDef(lst.car.cdr, lst);
 			}
 			var s = evalLisp(lst.car);
+			if (typeof s === "function") {
+				return s(lst.cdr, lst);
+			}
 			if (typeof s.car === "function") {
 				return s.car(lst.cdr, lst);
 			}
+			if (s instanceof Cell) {
+				return evalDef(s, new Cell(s, lst.cdr));
+			}
 			return evalSym(s, lst);
 		}
 		if (lst.car instanceof Number) return lst;

emulisp/emulisp_core.js

@@ -67,13 +67,13 @@ <h3>Édition de scripts</h3>
             le glisser au bout du bloc <code>Afficher</code> puis taper un
             message dans ce dernier bloc. Le code correspondant s’affichera
             dans la fenêtre en dessous, et pourra être exécuté en cliquant sur
-            le bouton <code>OK</code>.</p>
+            le bouton <code>Exécuter</code>.</p>
             <p>Pour apprendre MicroAlg au travers de cette interface, suivre
             <a href="tuto_blocs.html">le tutoriel correspondant</a>.</p>
             <p>La <a href="#script-container">première zone de texte</a> permet
             d’éditer des scripts. Pour les exécuter, appuyer sur
             <code>Ctrl</code>+<code>Entrée</code> ou cliquer sur le bouton
-            <code>OK</code>.</p>
+            <code>Exécuter</code>.</p>
             <p>L’affichage des résultats se fait juste après la fenêtre
             d’édition si vous utilisez la commande <code>Afficher</code>, ou
             dans la fenêtre graphique si vous utilisez
@@ -87,7 +87,7 @@ <h3>Consoles interactives</h3>
             <p>En particulier, la <a href="#repl-container">deuxième zone de texte</a>
             est un terminal de fortune, bricolé pour l’occasion. Pour exécuter
             le code, appuyer sur <code>Ctrl</code>+<code>Entrée</code> ou
-            cliquer sur le bouton <code>OK</code>.</p>
+            cliquer sur le bouton <code>Exécuter</code>.</p>
             <p>La <a href="#repl-container2">troisième zone de texte</a>
             utilise <a href="http://terminal.jcubic.pl/">un plugin jQuery</a>
             d’émulation de terminal. Elle est donc assez confortable mais ses
@@ -105,7 +105,6 @@ <h3>Consoles interactives</h3>
             inject_microalg_editor_in('script-container',
                 {src: '(Afficher "Bonjour tout le monde !")',
                  blockly: true,
-                 output: 'MD',
                  processing: true,
                  localStorage: true});
             // Focus et curseur final dans l’éditeur: