头图

又一个lisp 解释器 rust-lisp

yangrd

2个月前用java实现了一个lisp解释器,这个月用rust又写了一个,关于为什么选用rust原因有三,第一个可以直接编译成目标机器的可执行文件,第二个无GC,第三个文件小运行速度快占用内存少。

对比java版

那么相比于之前的java版我们实现了哪些功能呢?

可以分为三块
第一块支持java版95%以上的方法(有些方法名做了调整)
第二块io 已支持 file io, socket(tcp) io, console io
第三块支持多线程 thread lock barrier channel

方法(过程 procedure)清单

让我们看一下已支持的方法详细清单

Implemented procedure (method)

  • [x] number procedure (+ - * / < <= > >= = number? number=? number->string number->char)
  • [x] boolean operation (and or not)
  • [x] byte byte-vector->string
  • [x] char procedure (char? char=? char->number)
  • [x] symbol procedure (symbol? symbol=? symbol->string)
  • [x] string procedure (string? string=? mark-string string-length string-ref string-set! substring string-append string-copy string-find string-trim string-replace string->list ...)
  • [x] cons procedure (cons car cdr set-car! set-cdr!)
  • [x] list procedure (list list? list=? list-ref list-tail list-set! list_length append reverse list->vector list->string map for-each filter reduce)
  • [x] vector procedure (vector? vector=? make-vector vector vector-length vector-ref vector-set! vector-fill! vector->list)
  • [x] dict procedure (dict? dict=? make-dict dict dict-length dict-get dict-rm! dict-put! dict-clear! dict-contains-key? dict-keys->list dict-value->list dict->list)
  • [x] quote '
  • [x] procedure? method?
  • [x] nil?
  • [x] type procedure (get-type-name is-type?)
  • [x] define
  • [x] let + let*
  • [x] set
  • [x] lambda support closure
  • [x] branch (if do while)
  • [x] apply
  • [x] define-macro support ` , ,@
  • [x] display + newline
  • [x] load support ; #
  • [x] eval
  • [x] lazy evaluation (delay promise? force)
  • [x] io (file io | socket(net) io | console io) support (display newline call-with-tcp-listener call-with-input-file call-with-output-file open-input-file open-output-file input-port? output-port? port? read-char read-line read-string read-u8 read-byte-vector write-char write-string write-byte-vector write-u8)
  • [x] concurrency (async await | thread ) support (thread-run sleep make-lock lock-exp make-barrier barrier-wait make-channel channel-send:(-> chan x) channel-done channel-recv:(<- chan) channel-for-each :(<-for-each fn chan) channel-map:(<-- fn chan)
  • [ ] more can be implemented through macros

如何使用

本机打包

cargo build --release
cd ./target/release

run

./rust-lisp run ./aa.lisp 

cmd

./rust-lisp cmd 

or

./rust-lisp 

示例

  • easy-demo

    (+ 1 2)

方言

  • call-with-tcp-listener

    (
      (define f (call-with-input-file "./demo.html" read-string))
      (call-with-tcp-listener "127.0.0.1:8088" ( lambda (in) (
         (display  (byte-vector->string (read-byte-vector in 4096)))
         (string-append "HTTP/1.1 200 OK\r\n\r\n" f)
      ))))
  • thread + channel

    (
      (define chan (make-channel))
      (define barrier (make-barrier 3))
      (define p (lambda (x) (
          (define i 0)
          (while (< i 10) (
              (display x i)
              (newline)
              (set! i (+ i 1))
          ))
          (barrier-wait barrier)
          (-> chan x)
          (channel-done chan)
      )))
      (thread-run p "你好,世界1!")
      (thread-run p "你好,世界2!")
      (thread-run p "你好,世界3!")
      (channel-for-each (lambda (x) (
          (display x)
          (newline)
      )) chan))

    源码地址

    sunxyz/rust-lisp
    liunx系统可以直接下载体验

阅读 157

程序的目的是为了从人类手中接管现实世界

1.2k 声望
223 粉丝
0 条评论

程序的目的是为了从人类手中接管现实世界

1.2k 声望
223 粉丝
文章目录
宣传栏