Por que não criar seu próprio Lisp para a web?

Existe JavaScript - uma coisa maravilhosa. E é bonito na maior parte porque as ferramentas de depuração e depuração são incorporadas em todos os navegadores. Sem um depurador e um inspetor de árvore DOM, era muito mais difícil desenvolver algo em JavaScript.


Então eu decidi cortar meu Lisp, mas com um bom depurador. Peguei um pequeno e simples littlelisp e o refatorei em 99%. Eu o aprimorei com a execução passo a passo e criei meu próprio IDE, simples, mas funcional.


O resultado é o seguinte.


imagem

A linguagem em si acabou sendo uma mistura de Lisp e JavaScript, porque eu não conhecia bem o Lisp, mas o JavaScript é bom :)


Mais exemplos de código.


(alert document.location.href)

(setq x "ok!") 
(alert (x.substring 0 2))

;;   if

(setq x (prompt "Value of X:"))
(if (x == null)
    (setq x "(none)")
    (alert (+ "x = " x))
:else
    (alert (+ "x = " x))
)

;;   while/if      

(setq i 0)
(while (i < 10)
    (console.log i)
    (++ i)
)

;;       

(x < 2)                ;; -> (< x 2)
((x < 2) && (x > -1))  ;; -> (&& (< x 2) (> x -1))
((x < 2) || (x > -1))  ;; -> (|| (< x 2) (> x -1))
(x + 1 2 3)            ;; -> (+ x 1 2 3) => x+1+2+3
(x ++)                 ;; -> (++ x) 
(++ x y z)             ;; ->   1  x, y, z 

;;    JS-

(setq obj1 (new Object))
(setq obj1.a 123 obj1.b "abc") ;;    

(setq name "c")
(setq obj1.@name ())           ;; @ - 
(setq obj1.@name.0 111)
(setq obj1.@name.1 222)
(setq obj1.@name.2 333) 

(alert (obj1.c.join " "))      ;;  "111 222 333"

;;  -   

(defclass 
    :extends Object
    :instvars "_ "
    :classvars ""
    :constructor init
)

(setq . 0)

(defmeth .init ( ) (
    (setq this. )
    (setq this._ )
    (. ++)
))

(defmeth . () (
    (window.alert (+ "  №" this. "  " this._ "   !"))
))

(setq 1 (new  9 " "))
(1.)
(alert (+ " : " .))

;;     

((lambda (x y) (alert (x + y)) "a" "b")

(defun f1 (x) (alert (x + " - ok!")))
(f1 "f1")

;;    -     JS-

((new Function "msg" "alert(msg);") document.title)

;;    

(catch (a.b)) ;;  Exception object (Error: "a" is undefined!)

Na verdade, o próprio projeto do github está aqui: https://github.com/SaemonZixel/littlelisp.js


No final, direi que o código está na versão beta até o momento (em 17 de maio de 2020). Até agora, existem muitos erros e eu os encontro e os corrijo lentamente :(


Mas o depurador quase como nos ambientes de desenvolvimento do Smalltalk conseguiu fazer! :)


Você pode trazer o código diretamente no depurador. Selecione qualquer fragmento de código e exiba o resultado ou execute um depurador aninhado.


All Articles