α-wwwiki

α-wwwiki :: history/psil2/20130620-193105.txt

editor : alpha [82.254.172.79] 2013/06/20 19:31:05
_h1 psil{sup 2}

_p Some evolution from [[psil]] :
_ul 1) 19/06/2013 : I discover on Github a [[smart pocket lisp interpreter|https://gist.github.com/pabloPXL/1679611]] written by [[Pablo Vidal|https://github.com/pabloPXL]]. Code must be written like this : {b ['*',3,4] -> 12}
_ul 2) 20/06/2013 morning : I discover on Github a [[lazy lisp lexer|https://gist.github.com/WeRelax/5777042]] written by [[Elias Alonzo|Elías Alonso]]. Code can be written like this : {b (* 3 4) -> 12}
_ul 3) 20/06/2013 afternoon : I add some code from lambdatalk in order to be able to write more then one s-expression on several lines.
_ul 4) I mix all these things in a 150 lines file stored in the plugins folder : [[psil.js|plugins/psil.js]]. 
_p The Result is a true lisp console integrated in the wiki page !

_h3 1) some code :
_p Opening the wiki editor, you can modify this code, then click on the two buttons below and see the result.
{pre {@ id="input"}

TESTS
1] basics
(set a 42)
a
(eq 42 a)
(quote (1 2))
(fst (quote (1 2)))
(rst (quote (1 2)))
(cons 1 (quote (2 3)))
(cond (eq 1 2) 42 43)
(atom (quote (1 2)))
(set second (quote (lambda (x) (fst (rst x)))))
(second (quote (1 2 3)))

(set y 10)
(set z 11)
(cond (eq y z) true false)
(++ 10)
(-- 10)
(* 1 2 3 4 5 6)

2] math functions
(sqrt 2)
(exp 1)

3] user functions
(set cubic (quote (lambda (x) (* x x x))))
(cubic 4)

(set derivee 
  (quote 
    (lambda (f x dx) 
      (/ (- (f (+ x dx)) 
            (f (- x dx))
         ) 
         (* 2 dx)
      )
    )
  )
)
(derivee sqrt 1 0.001)

}
{center
First {input {@ type="submit" value="include the interpreter" onclick="°°
  var js = document.createElement('script');
  js.src = 'plugins/psil.js';
  document.body.appendChild( js );
  this.value = 'OK, psil is included !';
  this.disabled='disabled';
°°"}}

then {input {@ type="submit" value="read evaluate print" 
  onclick="read_evaluate_print()"}}
}
_h3 2) the result
{pre {@ id="output"}}