COMMON LISP JP > Archives > 2018/06/02

とりあえずCL->JSはできた。けど、どうもまだそのへんは開発中っぽい。
$ sbcl
* (load "jscl")
* (setf jscl::*environment* (jscl::make-lexenv))
* (jscl:compile-application '("foo.cl") "foo.js")

なるほど、GithubのREADME.mdの内容が（あと僕の英語力が）乏しいので、本当に助かります！shiro様の助言を元に、一度頭をリセットしてから、もう一度色々試して見たいと思います！

LISPは勉強中でまだ詳しくないのでLISP界ではCompile関数が使えることが常識なのかもしれないのですが、もしnodeでrequireしたJSCL環境でもcompile関数が利用できたら、なんかそれってトテツモナイですね（具体的な凄さは脳がパンクしてわりませんが、アプリからコンパイル機能を使えるようになるから、ユーザが動的に書いたコードをキャッシュして高速化できるとかになるんですかね...うーん..とっても奇妙だ。すみません！余談でした！）

また不明点があったら質問させていただいてよろしいでしょうか。

外から失礼しますー。

jsclをjsにコンパイルしてGithub Pagesにアップしたので、もし良ければ遊んでみてください。
https://github.com/t-cool/jscl

jsからlispのコードを呼び出すには、ブラウザのコンソールでjscl.evaluateStringを使うとLispの環境をさわれます。
jscl.evaluateString("(+ 1 1)")とすれば2とかえってきますし、
jscl.evaluateString("(defun f1()(+ 1 1))")としてからREPLで(f1)とすれば2がかえってきます。

逆に、disassembleをつかうと、lispをJSにしてくれるので、
CL-USER> (defun f1(x)(+ x 1))
F1
CL-USER> (disassemble 'f1)
function JSCL_USER_F(values,v1){internals.checkArgs(arguments.length-1,1);
var v2=this;
return (function(){return (function(){var x1=v1;
if (typeof x1!='number') throw 'Not a number!';
return x1+1;
})();
})();
}
NIL
CL-USER>

npmでもいけるとおもいますー。

npm install -g jscl
としてから、
jscl-repl
とすれば、REPLで遊べるはずですー。

CL->JS変換では、Parenscriptもあるかと思います。
https://qiita.com/t-cool/items/db0dfd3dc54a148162c5
Parenscriptでpsを使えば、CL->JS変換ができるかと思います。

* (ql:quickload :parenscript)
To load "parenscript":
  Load 1 ASDF system:
    parenscript
; Loading "parenscript"
..................................................
[package parenscript].............................
[package ps-js-symbols]...........................
[package ps-dom1-symbols].........................
[package ps-dom2-symbols].........................
[package ps-window-wd-symbols]....................
[package ps-dom-nonstandard-symbols]..............
[package ps-dhtml-symbols]........................
[package ps-js]...................................
....................
(:PARENSCRIPT)
* (in-package :ps)

#<PACKAGE "PARENSCRIPT">
* (ps (defun f1(x)(+ x 1)))

"function f1(x) {
    return x + 1;
};"
*

REPLの使い方はREADMEに書いてあるんですが、それじゃなくてバッチの変換のやり方が知りたいわけです。
で、jscl.lispのcompile-applicationはexportされてるので多分それを呼ばせるのを想定してるんだと思うんですが、ただそれを呼んだだけじゃ jscl::*environment* が設定されてなくてエラーになるんですよ。そいつを(jscl::make-lexenv)で初期化しとかないとならない。
これが、単にまだそこまで書いてないだけなのか、それとも直接jscl:compile-applicationを呼ぶ以外のやり方があるのか、そのへんは作者に聞いてみないとわからないかも。

hojoさん
あー、そうです。野口です

shiroさん

バッチ変換の用語がよくわかっていないので、間違えていたらすいません。
フィボナッチ関数をps関数で変換すると、つぎのようになります。
これがバッチ変換ならばhojoさんが探しているものでしょうか。

(ps (defun fibonacci (n &optional (a 0) (b 1) (acc ()))
  (if (zerop n)
      (nreverse acc)
      (fibonacci (1- n) b (+ a b) (cons a acc)))))

"function fibonacci(n, a, b, acc) {
    if (a === undefined) {
        a = 0;
    };
    if (b === undefined) {
        b = 1;
    };
    return zerop(n) ? nreverse(acc) : fibonacci(n - 1, b, a + b, cons(a, acc));
};"

その使い方であれば、現状ではParenscriptかと思います。
Parenscriptのチュートリアル(https://qiita.com/t-cool/items/db0dfd3dc54a148162c5)では、
画像のスライドショーをParenscript(とcl-who)で作ってサーバで提供...っていう流れでした。

shiroさん
一度、Davidさんに聞いてみますー。
t-coolは、若手CLプログラマの応援企画でJSCLに参加しています。
今は、tinyCLOSをJSCLに載せる話が進んでいまして、irisのasciianさんが取り組んでいるところです。

はい! 
私自身は、盛り上げる役だと思っています。
まだまだ勉強不足ですが、若手のみなさんに助けてもらいながら、
JSCLが充実していくのが楽しみですー。

shiroさん

Turing Complete FM、楽しく聞かせていただいてます！
また次回が楽しみにです！
https://turingcomplete.fm
僕は、Lispをさわるきっかけになったのが、
shiroさんが翻訳されたハッカーと画家とLand of Lispでした。
Turing Complete FMをきかせていただいてから、
プログラミングGaucheを買って読んでいるところです。

hojoさん
shiroさんの書籍は関西Lispユーザ会にも持っていってまして、
Lisp本の話題でも盛り上がってますー。

hojoさん

このサイトに詳しくのってます。
https://common-lisp.net/project/parenscript/

const http = require('http')
const jscl = require('jscl')

http.createServer(async (req, res) => {

  res.writeHead(200, {'Content-Type':'text/plain'})
  res.end(jscl.evaluateString('(+ 1 2)'))
  
}).listen(3000)

(node:9704) UnhandledPromiseRejectionWarning: TypeError [ERR_INVALID_ARG_TYPE]: The "chunk" argument must be one of type string or Buffer. Received type number
    at ServerResponse.end (_http_outgoing.js:702:13)
    at Server.http.createServer (/mnt/sdb/www/vhosts/myproject/index.js:10:7)
    at Server.emit (events.js:182:13)
    at parserOnIncoming (_http_server.js:652:12)
    at HTTPParser.parserOnHeadersComplete (_http_common.js:109:17)
(node:9704) UnhandledPromiseRejectionWarning: Unhandled promise rejection. This error originated either by throwing inside of an async function without a catch block, or by rejecting a promise which was not handled with .catch(). (rejection id: 1)
(node:9704) [DEP0018] DeprecationWarning: Unhandled promise rejections are deprecated. In the future, promise rejections that are not handled will terminate the Node.js process with a non-zero exit code.