Janetsh 是一個(gè)使用 Janet 語(yǔ)言實(shí)現(xiàn)的系統(tǒng) shell。

Janet 是一個(gè)命令式與函數(shù)式編程語(yǔ)言，同時(shí)也是一個(gè)字節(jié)碼解釋器，它是一個(gè)現(xiàn)代的 Lisp，但是列表替換為其它數(shù)據(jù)結(jié)構(gòu)，包括數(shù)組、表、結(jié)構(gòu)與元組，具有更好的實(shí)用性和性能。該語(yǔ)言還支持橋接到用 C 編寫(xiě)的原生代碼、宏元編程和字節(jié)碼匯編。此外 Janet 還提供了 REPL 環(huán)境，以及運(yùn)行腳本文件的能力。Janet 客戶端程序與核心運(yùn)行時(shí)分開(kāi)，因此可以嵌入到其它程序中。

Janetsh 特性：

• 功能強(qiáng)大的標(biāo)準(zhǔn)庫(kù)
• 函數(shù)式與命令式編程
• 強(qiáng)大的 Lisp 宏
• 運(yùn)行時(shí)可加載用 C/C++、Rust 與 zig 等編寫(xiě)的擴(kuò)展模塊
• 協(xié)程與異常處理

基本使用：

$ ls -la | head -n 3
total 100
drwxr-xr-x 1 ac users   220 May 13 20:16 .
drwxr-xr-x 1 ac users   760 May 12 21:08 ..
0

$ echo foo > /dev/null
0

$ sleep 5 &
@{:pgid 82190 :procs @[@{:args @[@["sleep"] "5"]
      :pid 82190
      :stopped false
      :redirs @[]}]}

$ rm ./demos/*.gif
0

函數(shù)式編程：

$ (map string/ascii-upper ["functional" "programming"])
@["FUNCTIONAL" "PROGRAMMING"]

$ (defn lines [s] (string/split "\n" s))


$ (lines ($$ ls | head -n 3))
@["build.sh" "demos" "janetsh" ""]

$ echo (reduce + 0 [1 2 3])
6
0

命令式編程：

$ (string/ascii-upper ($$ echo command string capture))
"COMMAND STRING CAPTURE\n"

$ (if (= 0 ($? touch /tmp/test.txt)) (print "success"))
success
nil

Subshells：

$ ls | head -n 3 | (out-lines string/ascii-upper)
BUILD.SH
DEMOS
JANETSH
0

Exceptions/Errors：

$ (try
    (do
      ($ rm foo.txt)
      ($ rm bar.txt)
      ($ rm baz.txt))
    ([err] (print "got an error:" err)))