newLISP のコード用例
Code Patterns in newLISP®

Version 2018 July 12th
newLISP v.10.7.4



Copyright © 2019 Lutz Mueller, www.nuevatec.com. All rights reserved.
Japanese translations copyright © 2019 short story または 晴耕雨読な日々

Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License,
Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts,
and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License.

newLISP is a registered trademark of Lutz Mueller.



§

1. Introduction(紹介)

newLISP でプログラミングしている時、特定の関数や使い方が繰り返し使われます。問題によっては、最適な解決手段が時につれ進化します。以下の章では、newLISP でのプログラミングにおける特定の問題解決用のコード例と説明があります。
When programming in newLISP, certain functions and usage patterns occur repeatedly. For some problems, an optimal way to solve them evolves over time. The following chapters present example code and explanations for the solution of specific problems when programming in newLISP.

内容的には、newLISP ユーザー マニュアルとリファレンスの内容と重複しているものもありますし、違った観点で表されているものもあります。
Some content is overlapping with material covered in the newLISP Users Manual and Reference or presented here with a different slant.

ここでは、newLISP の全関数レパートリーの一部が使われているだけです。いくつかの動作例の関数には、追加の呼び出しパターンか、このページで言及されないアプリケーションが含まれています。
Only a subset of newLISP's total function repertoire is used here. Some functions demonstrated have additional calling patterns or applications not mentioned on these pages.

この用例と解決例を集めたものは、進化していきます。時につれ、追加されるか既存のものが改良されていきます。
This collection of patterns and solutions is a work in progress. Over time, material will be added or existing material improved.


§

2. newLISP script files(newLISP スクリプト・ファイル)

Command line options(コマンド・ライン・オプション)

Linux/Unix では、スクリプト/プログラム・ファイルの第一行に以下を置きます:
On Linux/Unix, put the following in the first line of the script/program file:

#!/usr/bin/newlisp

スタックを大きく指定するなら:
specifying a bigger stack:

#!/usr/bin/newlisp -s 100000

あるいは
or

#!/usr/bin/newlisp -s100000

オペレーティング・システムのシェルは一行目を解析し、取り出したパラメータで異なる振る舞いをします。newLISP は、パラメータをくっ付けても離しても認識します。OS やプラットフォームの元での振る舞いをテストするために、次の短いスクリプトを用意しましょう。このスクリプトはスタックサイズの割り当てを 100,000 にして、newLISP セル・メモリの最大値を 10M バイトに変更します。
Operating systems' shells behave differently when parsing the first line and extracting parameters. newLISP takes both attached or detached parameters. Put the following lines in small script to test the behavior of the underlying OS and platform. The script changes the stack size allocated to 100,000 and limits newLISP cell memory to about 10 M bytes.

#!/usr/bin/newlisp -s 100000 -m 10
     
(println (main-args))
(println (sys-info))

(exit) ; important

システム・シェルからスクリプトを実行した時の出力は、たいてい次のようになります:
A typical output executing the script from the system shell would be:

./arg-test
     
("/usr/bin/newlisp" "-s" "100000" "-m" "10" "./arg-test")
(308 655360 299 2 0 100000 8410 2)

ごくまれに、newLISP のプログラムが大きなスタック構成を必要とすることがありますので、注意してください。たいていのプログラムは、デフォルトの 2048 で走ります。各スタックは、平均で 80 バイト取ります。newLISP の開始時に使えるオプションは、他にもあります。詳しくは、ユーザー・マニュアルを見てください。
Note that few programs in newLISP need a bigger stack configured; most programs run on the internal default of 2048. Each stack position takes an average of 80 bytes. Other options are available to start newLISP. See the Users Manual for details.

Scripts as pipes(パイプとしてのスクリプト)

次の例では、newLISP スクリプトにファイルをパイプさせる方法を紹介します。
The following example shows how a file can be piped into a newLISP script.

#!/usr/bin/newlisp
#
# uppercase - demo filter script as pipe
#
# usage:
#          ./uppercase < file-spec
#
# example:
#          ./uppercase < my-text
#
#
     
(while (read-line) (println (upper-case (current-line))))
     
(exit)

ファイルは大文字に変換され、標準出力 に出力されます。
The file will be printed to std-out translated to uppercase.

次のプログラムは 0 を含むバイナリの非テキスト情報でも動作します:
The following program would also work with binary non-textual information containing 0's :

#!/usr/bin/newlisp
;
; inout - demo binary pipe
;
; read from stdin into buffer
; then write to stdout
;
; usage: ./inout < inputfile > outputfile
;

(while (read 0 buffer 1024)
    (write 1 buffer 1024))

(exit)

最適なバッファサイズを設定して下さい。
Set buffersize to best performance.

File filters(ファイル・フィルタ)

次のスクリプトは、Unix の grep ユーティリティのように動作し、正規表現パターンを使ってファイルの各行をフィルタする動作を指定されたファイルで繰り返します:
The following script works like a Unix grep utility iterating through files and filtering each line in a file using a regular expression pattern.

#!/usr/bin/newlisp
#
# nlgrep - grep utility on newLISP
#
# usage:
#          ./nlgrep "regex-pattern" file-spec
#
# file spec can contain globbing characters
#
# example:
#          ./nlgrep "this|that" *.c
#
# will print all lines containing 'this' or 'that' in *.c files
#
     
(dolist (fname (3 (main-args)))
    (set 'file (open fname "read"))
    (println "file ---> " fname)
    (while (read-line file)
        (if (find (main-args 2) (current-line) 0)
            (write-line)))
    (close file))
    
(exit)

式:
The expression:

(3 (main-args))

は、次の表記の短縮形です:
is a short form of writing:

(rest (rest (rest (main-args))))

これは、全ファイル名のリストを返します。この rest の代わりにインデックスを指定する形式は、暗黙のインデックスと呼ばれます。暗黙のインデックスの他の機能については、ユーザー・マニュアルを見てください。式 (main-args 2) は、コマンドラインから正規表現パターンを含む第 3 引数を取り出します。
It returns a list of all the filenames. This form of specifying indexes for rest is called implicit indexing. See the Users Manual for implicit indexing with other functions. The expression (main-args 2) extracts the 3rd argument from the command line containing the regular expression pattern.

newLISP as a pipe(パイプで newLISP を使う)

短い式の評価はパイプを使って直接実行できます:
Pipe one-liners directly into the executable for evaluation of short expressions:

~> echo '(+ 1 2 3)' | newlisp
6
~> 

§

3. Writing software in modules(モジュール化ソフトウェアの書き方)

Structuring an application(アプリケーションの構築)

大規模なアプリケーションを書く時、あるいは、複数のプログラマが同じコード・ベースで作業している時、コード・ベースをモジュールに分割することが求められます。newLISP ではモジュールを名前空間であるコンテキストを使って実装できます。名前空間は、モジュール間をレキシカルに分離します。一モジュール内の変数名が、別のモジュール内の同じ名前の変数と衝突することはありません。
When writing bigger applications or when several programmers are working on the same code base, it is necessary to divide the code base into modules. Modules in newLISP are implemented using contexts, which are namespaces. Namespaces allow lexical isolation between modules. Variables of the same name in one module cannot clash with variables of the same name in another module.

通常、モジュールはファイルごとに一コンテキストで編成されます。一ファイル・モジュールに、データベースをアクセスするルーチンを含めます。
Typically, modules are organized in one context per file. One file module may contain database access routines.

; database.lsp
;
(context 'db)
   
   
(define (update x y z)
...
)
   
(define (erase x y z)
...
)

別のモジュールには、様々なユーティリティを置きます。
Another module may contain various utilities

; auxiliary.lsp
;
(context 'aux)
 
(define (getval a b)
...
)

通常、全てのモジュールを一つの MAIN モジュールにロードし、制御します。
Typically, there will be one MAIN module that loads and controls all others:

; application.lsp
;
   
(load "auxiliary.lsp")
(load "database.lsp")
   
(define (run)
    (db:update ....)
    (aux:putval ...)
    ...
    ...
)
   
(run)

More than one context per file(ファイル毎の複数のコンテキスト)

ファイル毎に複数のコンテキストを使う時は、各コンテキスト・セクションを (context MAIN) 制御文で閉じなければなりません:
When using more than one context per file, each context section should be closed with a (context MAIN) statement:

; myapp.lsp
;
(context 'A)
   
(define (foo ...) ...)
   
(context MAIN)
   
(context 'B)
   
(define (bar ...) ...)
   
(context MAIN)
   
(define (main-func)
    (A:foo ...)
    (B:bar ...)
)

コンテキスト AB の名前空間制御文においては、コンテキスト名を新しく生成するためにシンボルをクォートしていることに注意して下さい。MAIN は、newLISP 開始時に既に存在しているのでクォートなしでも済みます。もちろん、クォートしても問題ありません。
Note that in the namespace statements for contexts A and B that the context names are quoted because they are newly created, but MAIN can stay unquoted because it already exists when newLISP starts up. However, quoting it does not present a problem.

コンテキストを閉じる (context MAIN) 行は、次のようなテクニックで省略できます:
The line (context MAIN) that closes a context can be omitted by using the following technique:

; myapp.lsp
;
(context 'A)
   
(define (foo ...) ...)
   
(context 'MAIN:B)
   
(define (bar ...) ...)
   
(context 'MAIN)
   
(define (main-func)
    (A:foo ...)
    (B:bar ...)
)

(context 'MAIN:B) は、MAIN に切り替えた後、新規コンテキスト B を開きます。
The line (context 'MAIN:B) switches back to MAIN then opens the new context B.

The default function(デフォルト・ファンクション)

コンテキスト内の関数は、ホスト・コンテキスト自身と同じ名前を持つことができます。この関数は、特別な特徴を持ちます:
A function in a context may have the same name as the host context itself. This function has special characteristics:

(context 'foo)
  
(define (foo:foo a b c)
...
)

関数 foo:fooデフォルト・ファンクション と呼ばれ、コンテキスト名 foo を使った時、デフォルトで foo:foo になります。
The function foo:foo is called the default function, because when using the context name foo like a function, it will default to foo:foo

(foo x y z)
; same as
(foo:foo x y z)

デフォルト・ファンクションは、通常の関数のようにみえる関数を書くことができ、さらに、それ自身の名前空間をレキシカルに運用できます。これを使って状態を保持する関数を書くことができます:
The default function makes it possible to write functions which look like normal functions but carry their own lexical namespace. We can use this to write functions which keep state:

(context 'generator)
   
(define (generator:generator)
    (inc acc)) ; when acc is nil, assumes 0
 
(context MAIN)
   
(generator) → 1
(generator) → 2
(generator) → 3

次はフィボナッチ数列を生成する関数ための複雑な例です:
The following is a more complex example for a function generating a Fibonacci sequence:

(define (fibo:fibo)
    (if (not fibo:mem) (set 'fibo:mem '(0 1)))
    (last (push (+ (fibo:mem -1) (fibo:mem -2)) fibo:mem -1)))
   
(fibo) → 1
(fibo) → 2
(fibo) → 3
(fibo) → 5
(fibo) → 8
...

この例は、context 制御文を明示することなし、デフォルト・ファンクションを その場で 定義する方法を示しています。一方で、コンテキストを明示的に生成して、関数を書くこともできます:
This example also shows how a default function is defined on-the-fly without the need of explicit context statements. As an alternative, the function could also have been written so that the context is created explicitly:

(context 'fibo)
(define (fibo:fibo)
        (if (not mem) (set 'mem '(0 1)))
        (last (push (+ (mem -1) (mem -2)) mem -1)))
(context MAIN)
  
(fibo) → 1
(fibo) → 2
(fibo) → 3
(fibo) → 5
(fibo) → 8

最初の形式は短くて済み、二番目の形式は読みやすくなります。
Although the first form is shorter, the second form is more readable.

Packaging data with contexts(コンテキストによるデータの包み込み)

前の例で、名前空間にデータを包み込む関数を示しました。generator の例では、変数 acc が状態を保存していました。fibo の例では、変数 mem が成長するリストを保持していました。どちらの場合も、関数とデータが共に名前空間内にあります。次の例は、名前空間がデフォルト・ファンクタとしてデータのみを保持する方法を示しています:
The previous examples already presented functions packaged with data in a namespace. In the generator example the acc variable kept state. In the fibo example the variable mem kept a growing list. In both cases, functions and data are living together in a namespace. The following example shows how a namespace holds only data in a default functor:

(set 'db:db '(a "b" (c d) 1 2 3 x y z))

fibogenerator を参照するのにデフォルト・ファンクションを使ったように、db を使って db:db のリストに参照できます。これは、リストをインデックスする全ての場合で動作します:
Just like we used the default function to refer to fibo and generator we can refer to the list in db:db by only using db. This will work in all situations where we do list indexing:

(db 0)    → a
(db 1)    → "b"
(db 2 1)  → d
(db -1)   → z
(db -3)   → x
   
(3 db)    → (1 2 3 x y z)
(2 1 db)  → ((c d))
(-6 2 db) → (1 2)

Passing objects by reference(参照によるオブジェクトの受け渡し)

デフォルト・ファンクタがユーザー定義関数に引数として使われる時、デフォルト・ファンクタは参照として渡されます。これは、リストや文字列のコピーではなく、オリジナルの内容の参照が渡されることを意味します。つまり、大規模なリストや文字列を操作する時に、役立ちます:
When the default functor is used as an argument in a user defined function, the default functor is passed by reference. This means that a reference to the original contents is passed, not a copy of the list or string. This is useful when handling large lists or strings:

(define (update data idx expr)
    (if (not (or (lambda? expr) (primitive? expr)))
        (setf (data idx) expr)
        (setf (data idx) (expr $it))))
   
(update db 0 99) → a
db:db → (99 "b" (c d) 1 2 3 x y z)
   
(update db 1 upper-case) → "b"
db:db → (99 "B" (c d) 1 2 3 x y z)
   
(update db 4 (fn (x) (mul 1.1 x))) →
db:db → (99 "B" (c d) 1 2.2 3 x y z)

db:db のデータが、関数 update のパラメータ data に渡されます。渡されたパラメータ expr は、組込関数か演算子かユーザー・ラムダ式かをチェックされ、もしそうなら (data idx) によって参照された古い(訳注:変更前の意味)内容が入っているアナフォリック変数 $it に適用されます。
The data in db:db is passed via the update function parameter data, which now holds a reference to the context db. The expr parameter passed is checked to determine if it is a built-in function, operator or a user defined lambda expression and then works on $it, the anaphoric system variable containing the old content referenced by (data idx).

newLISP の関数がパラメータに文字列かリストを要求する時は、デフォルト・ファンクタをそのコンテキスト・シンボルで渡せます。別の例では:
Whenever a function in newLISP asks for a string or list in a parameter, a default functor can be passed by its context symbol. Another example:

(define (pop-last data)
(pop data -1))
   
(pop-last db) → z
   
db:db         → (99 "B" (c d) 1 2.2 3 x y)

関数 update は、演算子や関数を関数の引数として渡す方法の良い例でもあります($it に作用する upper-case のように)。詳細は、Functions as data の章を読んで下さい。
The function update is also a good example of how to pass operators or functions as a function argument (upper-case working on $it). Read more about this in the chapter Functions as data.


§

4. Local variables(ローカル変数)

Locals in looping functions(ループ関数中のローカル変数)

doargsdolistdostringdotimesdotreefor 等の全てのループ関数は、ローカル変数を使います。しかし、ループ関数から離れた後で、(訳注:ループ関数を使用する前に定義されていた)変数は古い値を回復します。letdefinelambda は、変数をローカルにする別の方法です:
All looping functions like doargs, dolist, dostring, dotimes, dotree and for use local variables. During loop execution, the variable takes different values. But after leaving the looping function, the variable regains its old value. let, define, and lambda expressions are another method for making variables local:

Locals in let, letn, local and letexlet, letn, local, letex 宣言文中のローカル)

newLISP で let は、ブロック内のローカルなシンボルを宣言する一般的な方法です。
let is the usual way in newLISP to declare symbols as local to a block.

(define (sum-sq a b)
    (let ((x (* a a)) (y (* b b)))
        (+ x y)))
 
(sum-sq 3 4) → 25
 
; alternative syntax
(define (sum-sq a b)
    (let (x (* a a) y (* b b))
        (+ x y)))

変数 x と y が初期化されから、式 (+ x y) が評価されます。let 形式は、まさに最適な形で、次のような書き方を提供してくれます:
The variables x and y are initialized, then the expression (+ x y) is evaluated. The let form is just an optimized version and syntactic convenience for writing:

((lambda (sym1 [sym2 ...]) exp-body ) exp-init1 [ exp-init2 ...])

いくつかのパラメータを初期化する際、先に初期化した変数を参照して次々と初期化するために letn(入れ子になっている let)が使えます:
When initializing several parameters, a nested let, letn can be used to reference previously initialized variables in subsequent initializer expressions:

(letn ((x 1) (y (+ x 1)))
    (list x y))              → (1 2)

local も同様に動作しますが、変数は nil に初期化されます。
local works the same way but variables are initialized to nil

(local (a b c) 
   ...          ; expressions using the locale variables a b c
)

letexlet と同じように動作しますが、本体中の変数に値を展開します。
letex works similar to let but variables are expanded in the body to values assigned.

; assign to local variable and expand in body

(letex ( (x 1) (y '(a b c)) (z "hello") ) '(x y z))
→ (1 (a b c) "hello")

; as in let, parentheses around the initializers can be omitted

(letex (x 1 y 2 z 3) '(x y z))    → (1 2 3)

let, letn, local, letex 式から抜けた後、ローカルで使った変数シンボルには元の値が戻ります。
After exiting any of the let, letn, local or letex expressions, the variable symbols used as locals get their old values back.

Unused parameters as locals(渡されなかったパラメータもローカル)

newLISP では、ユーザー定義関数の全てのパラメータはオプションです。使用されない(訳注:渡されなかった)パラメータには nil が入り、関数のダイナミック・スコープにローカル・スコープします。必要数より多いパラメータでユーザー関数を定義することは、ローカル変数シンボルを生成する便利な方法です:
In newLISP, all parameters in user defined functions are optional. Unused parameters are filled with nil and are of local scope to the dynamic scope of the function. Defining a user function with more parameters than required is a convenient method to create local variable symbols:

 
(define (sum-sq a b , x y)
    (set 'x (* a a))
    (set 'y (* b b))
    (+ x y))

カンマは特殊な構文機能ではありませんが、通常のパラメータとローカル変数シンボルとを区別する視覚的補助になります。(技術的には、カンマは x と y と同じように、ローカル変数で nil に設定されます。)
The comma is not a special syntax feature but only a visual helper to separate normal parameters from local variable symbols. (Technically, the comma, like x and y, is a local variable and is set to nil.)

Default variable values(デフォルトの変数値)

関数定義の際、初期値を指定できます:
In the definition of a function default values can be specified:

(define (foo (a 1) (b 2))
    (list a b))
  
    (foo)      →  (1 2)
    (foo 3)    →  (3 2)
    (foo 3 4)  →  (3 4)

args as local substitute(ローカル代用としての関数 args

関数 args を使えば、パラメータ・シンボルを使う必要が無く、渡されたパラメータで宣言されているパラメータに取られなかった全てのパラメータのリストを args が返します:
Using the args function no parameter symbols need to be used at all and args returns a list of all parameters passed but not taken by declared parameters:

(define (foo)
    (args))
   
(foo 1 2 3)   → (1 2 3)
   
   
(define (foo a b)
    (args))
   
(foo 1 2 3 4 5)   → (3 4 5)

二番目の例は、シンボル ab に束縛されない引数のリストだけを args が得る方法を示しています。
The second example shows how args only contains the list of arguments not bound by the variable symbols a and b.

インデックス機能(args) リストの要素のアクセスに使えます:
Indices can be used to access members of the (args) list:

(define (foo)
      (+ (args 0) (args 1)))
   
(foo 3 4)   → 7

args and local used together for named variables(argslocal を一緒に使った名前付き変数)

(define-macro (foo)
   (local (len width height)
      (bind (args) true)
      (println "len:" len " width:" width " height:" height)
   ))

(foo (width 20) (height 30) (len 10))

len:10 width:20 height:30

local は高次のダイナミック・スコープから lenwidthheightの変数の値を隠して保護します。
local will shadow / protect the values of the variables len, width and height at higher dynamic scoping levels.


§

5. Walking through lists and data(リストとデータの扱い方)

Recursion or iteration?(再帰か繰返しか?)

再帰は、多くのアルゴリズムを読みやすい形式で表現できる強力な機能ですが、場合によっては効率的ではありません。newLISP は多くの繰返し構文や flat のような高級関数、あるいは、内部で再帰を使う組込の XML 関数を持っています。このため、多くの場面で再帰アルゴリズムは不要です。
Although recursion is a powerful feature to express many algorithms in a readable form, it can also be inefficient in some instances. newLISP has many iterative constructs and high level functions like flat or the built-in XML functions, which use recursion internally. In many cases this makes defining a recursive algorithm unnecessary.

いくつかの場面では、非再帰手法の方がより速く、システム・リソースも少なくて済みます。
Some times a non-recursive solution can be much faster and lighter on system resources.

; classic recursion
; slow and resource hungry
(define (fib n)
    (if (< n 2) 1
        (+  (fib (- n 1))
            (fib (- n 2)))))

再帰手法は、頻繁に呼び出されるオーバーヘッドにより遅くなります。また、再帰手法は、中間物や時に余分な結果の保持に多くのメモリを使います。
The recursive solution is slow because of the frequent calling overhead. Also, the recursive solution uses a lot of memory for holding intermediate and frequently redundant results.

; iteration
; fast and also returns the whole list
(define (fibo n , f)
    (set 'f '(1 0))
    (dotimes (i n)
         (push (+ (f 0) (f 1)) f)) )

繰返し手法は、速くて、使うメモリも少なくて済みます。
The iterative solution is fast and uses very little memory.

Speed up with memoization(記憶化によるスピード・アップ)

記憶化(memoizing)関数は、あるパラメータが再び呼び出された時に素早く回復できるように結果を蓄えておきます。次の関数は、任意の引数を持つ組込かユーザー定義関数から記憶化関数を生成します。データを貯蔵する記憶化関数用の名前空間が作成されます。
A memoizing function caches results for faster retrieval when called with the same parameters again. The following function makes a memoizing function from any built-in or user defined function with an arbitrary number of arguments. A namespace is created for the memoizing function as a data cache.

; speed up a recursive function using memoization
(define-macro (memoize mem-func func)
    (set (sym mem-func mem-func)
        (letex (f func  c mem-func)
          (lambda ()
              (or (context c (string (args)))
              (context c (string (args)) (apply f (args))))))))
       
(define (fibo n)
    (if (< n 2)  1
        (+  (fibo (- n 1))
            (fibo (- n 2)))))
       
(memoize fibo-m fibo)
       
(time (fibo-m 25)) → 148
(time (fibo-m 25)) → 0

関数は、コンテキストと元の関数用のデフォルト・ファンクションを新しい名前で作成して、全ての結果を同じコンテキストのシンボルに保存します。
The function creates a context and default function for the original function with a new name and stores all results in symbols in the same context.

再帰関数を記憶化(memoizing)する際は、再帰呼び出しが記憶されるように直接ラムダ関数の形で入れて下さい:
When memoizing recursive functions, include the raw lambda specification of the function so recursive calls are memoized too:

(memoize fibo
    (lambda (n)
        (if(< n 2) 1
            (+  (fibo (- n 1))
                (fibo (- n 2))))))
        
(time (fibo 100)) → 1
(fibo 80)         → 37889062373143906

最後の例を記憶化無しの fibo 関数で計算するには、何時間もかかります。記憶化したバージョンなら、引数 100 でも 1 ミリ秒しかかかりません。
The fibo function in the last example would take hours to calculate without memoization. The memoized version takes only about a milli-second for an argument of 100.

Walking a tree(木の扱い方)

(訳注:データ構造としての)木探索は、入れ子リストの探索と同様に伝統的な LISP や newLISP での代表的パターンです。しかし、多くの場合、木探索は存在する木や入れ子リストの全要素で繰り返すためにのみ使われます。この場合、組込関数 flat を使えば、再帰を使うよりかなり速くなります:
Tree walks are a typical pattern in traditional LISP and in newLISP as well for walking through a nested list. But many times a tree walk is only used to iterate through all elements of an existing tree or nested list. In this case the built-in flat function is much faster than using recursion:

(set 'L '(a b c (d e (f g) h i) j k))
   
; classic car/cdr and recursion
;
(define (walk-tree tree)
    (cond ((= tree '()) true)
          ((atom? (first tree))
             (println (first tree))
             (walk-tree (rest tree)))
          (true
             (walk-tree (first tree))
             (walk-tree (rest tree)))))
   
; classic recursion
; 3 times faster
;
(define (walk-tree tree)
    (dolist (elmnt tree)
        (if (list? elmnt)
            (walk-tree elmnt)
            (println elmnt))))
   
(walk-tree L) →
     a
     b
     c
     d
     e
     ...

newLISP の組込 flat を使えば、入れ子リストはフラットなリストに変換されます。これで、リストを dolistmap で処理できるようになります:
Using the built-in flat in newLISP a nested list can be transformed into a flat list. Now the list can be processed with a dolist or map:

; fast and short using 'flat'
; 30 times faster with map
;
(map println (flat L))
 
 ; same as
 
(dolist (item (flat L)) (println item)

Walking a directory tree(辞書木の扱い方)

ディレクトリ木の探索は、再帰動作にぴったりの処理です:
Walking a directory tree is a task where recursion works well:

 
; walks a disk directory and prints all path-file names
;
(define (show-tree dir)
    (when (directory? dir)
        (dolist (nde (directory dir))
            (if (and (directory? (append dir "/" nde))
                     (!= nde ".") (!= nde ".."))
                (show-tree (append dir "/" nde))
                (println (append dir "/" nde))))))

この例では、再帰が唯一の方法です。なぜなら、関数が呼び出される時には、ファイルの完全な入れ子リストを入手できず、関数実行中に再帰的に作成されて得られるからです。
In this example recursion is the only solution, because the entire nested list of files is not available when the function is called but gets created recursively during function execution.


§

6. Modifying and searching lists(リストの変更と検索)

newLISP には、入れ子リストを多次元インデックスでアクセスできる機能が用意されています。pushpopsetfset-refset-ref-allsortreverse のような破壊的関数と nthrefref-allfirstlastrest のような非破壊演算子があります。newLISP のリスト関数のほとんどが、文字列に対しても使えます。
newLISP has facilities for multidimensional indexing into nested lists. There are destructive functions like push, pop, setf, set-ref, set-ref-all, sort and reverse and many others for non-destructive operations, like nth, ref, ref-all, first, last and rest etc.. Many of the list functions in newLISP also work on strings.

newLISP では、リストと文字列の右側からに -1 で始まる負のインデックス値が使えることに注目して下さい。
Note that any list or string index in newLISP can be negative starting with -1 from the right side of a list:

(set 'L '(a b c d))
(L -1)   → d
(L -2)   → c
(-3 2 L) → (b c)
   
(set 'S  "abcd")
   
(S -1)   → d
(S -2)   → c
(-3 2 S) → "bc")

push and pop(関数pushpop

push を使ってリストに追加したり、pop を使ってリストから要素を削除したりすることは、どちらも破壊的でリストの内容を変更します:
To add to a list use push, to eliminate an element from a list use pop. Both functions are destructive, changing the contents of a list:

(set 'L '(b c d e f))
   
(push 'a L) → (a b c d e f)
(push 'g L -1) ; push to the end with negative index
(pop L)        ; pop first a
(pop L -1)     ; pop last g
(pop L -2)     ; pop second to last e
(pop L 1)      ; pop second c
   
L → (b d f)
   
; multidimensional push / pop
(set 'L '(a b (c d (e f) g) h i))
   
(push 'x L 2 1) → (a b (c x d (e f) g) h i)
   
L → (a b (c x d (e f) g) h i)
   
(pop L 2 1) → x

; the target list is a place reference
(set 'lst '((a 1) (b 2) (c 3) (d)))

(push 4 (assoc 'd lst) -1) → (d 4)

lst → ((a 1) (b 2) (c 3) (d 4))

newLISP は、繰り返しリストの最後に push することに最適化されていて、リストの先頭に push するより早くできます。
Pushing to the end of a list repeatedly is optimized in newLISP and as fast as pushing in front of a list.

インデックス・ベクトル V で要素を push した時、同じインデックス・ベクトル V を pop に使えます:
When pushing an element with index vector V it can be popped with the same index vector V:

(set 'L '(a b (c d (e f) g) h i))
(set 'V '(2 1))
(push 'x L V)
L → (a b (c x d (e f) g) h i))
(ref 'x L) → (2 1) ; search for a nested member
(pop L V) → 'x

Extend using extend(関数 extend を使ったリストの拡張)

extend を使えば、リストを破壊的に追加できます。pushpop のように、extend は、第一引数のリストを変更します。
Using extend lists can be appended destructively. Like push and pop, extend modifies the list in the first argument.

(set 'L '(a b c))
(extend L '(d e) '(f g))

L → '(a b c d e f g)

; extending in a place

(set 'L '(a b "CD" (e f)))
(extend (L 3) '(g))
L → (a b "CD" (e f g))

Accessing lists(リストへのアクセス)

複数のインデックスを入れ子リスト構造の要素アクセス指定に使えます:
Multiple indexes can be specified to access elements in a nested list structure:

(set 'L '(a b (c d (e f) g) h i))
   
; old syntax only for one index
(nth 2 L) → (c d (e f) g)
   
; use new syntax for multiple indices
(nth '(2 2 1) L) → f
(nth '(2 2) L) → (e f)
   
; vector indexing
(set 'vec '(2 2))
(nth vec L) → (e f)
   
; implicit indexing
(L 2 2 1) → f
(L 2 2)   → (e f)
   
; implicit indexing with vector
(set 'vec '(2 2 1))
(L vec)   → f

最後の例に示した暗黙のインデックス機能は、コードを読み易くします。リストの前のインデックスは、リストの一部を切り出し、リストで返します。
Implicit indexing shown in the last example can make code more readable. Indexes before a list select subsections of a list, which in turn are always lists.

暗黙のインデックス機能は、rest や slice のようにも使えます:
Implicit indexing is also available for rest and slice:

(rest '(a b c d e))      → (b c d e)
(rest (rest '(a b c d e) → (c d e)
; same as
(1 '(a b c d e)) → (b c d e)
(2 '(a b c d e)) → (c d e)
   
; negative indices
(-2 '(a b c d e)) → (d e)
   
; slicing
(2 2 '(a b c d e f g))  → (c d)
(-5 3 '(a b c d e f g)) → (c d e)

Selecting more elements(複数要素の選択)

リストから一個以上の要素を取り出さねばならない時があります。このような時は、select を使います:
Sometimes more than one element must be selected from a list. This is done using select:

; pick several elements from a list
(set 'L '(a b c d e f g))
(select L 1 2 4 -1) → (b c e g)
   
; indices can be delivered in an index vector:
(set 'vec '(1 2 4 -1))
(select L vec) → (b c e g)

select 処理は、同時に、再配置したり、要素を二重化したりできます:
The selecting process can re-arrange or double elements at the same time:

(select L 2 2 1 1) → (c c b b)

Filtering and differencing lists(リストのフィルタと差分)

リストにフィルタをかけたり、指定した条件に合致する要素のみを取り出すこともできます:
Lists can be filtered, returning only those elements that meet a specific condition:

(filter (fn(x) (< 5 x)) '(1 6 3 7 8))    → (6 7 8)
(filter symbol? '(a b 3 c 4 "hello" g)) → (a b c g)
(difference '(1 3 2 5 5 7) '(3 7)) → (1 2 5)

最初の例は、次のように簡略して書くこともできます:
The first example could be written more concisely, as follows:

(filter (curry < 5) '(1 6 3 7 8))

関数 curry は、二つの引数用関数を一つの引数用関数にします:
The curry function makes a one argument function out of a two argument function:

(curry < 5) → (lambda (_x) (< 5 _x))

curry により、二つの引数を取る関数を簡単に一つの引数を取る述語に変換できます。
With curry, a function taking two arguments can be quickly converted into a predicate taking one argument.

Changing list elements(リスト要素の変更)

setf は、nthassoc 等で参照されるリスト要素を変更するのに使えます:
setf can be used to change a list element by referencing it with either nth or assoc:

; modify a list at an index
(set 'L '(a b (c d (e f) g) h i))
   
(setf (L 2 2 1) 'x) → x   
L → (a b (c d (e x) g) h i)
(setf (L 2 2) 'z) → z
L → (a b (c d z g) h i)
   
; modify an association list
(set 'A '((a 1) (b 2) (c 3)))
   
; using setf with assoc
(setf (assoc 'b A) '(b 22)) → (b 22)
A → ((a 1) (b 22) (c 3))
; using setf with lookup
(setf (lookup 'c A) 33) → 33
A → ((a 1) (b 22) (c 33))

The anaphoric variable(アナフォリック変数)

内部 アナフォリック システム変数 $it は、古いリスト要素を保持します。これを使って新しい要素を形成できます:
The internal anaphoric system variable $it holds the old list element. This can be used to configure the new one:

(set 'L '(0 0 0))
(setf (L 1) (+ $it 1)) → 1 ; the new value
(setf (L 1) (+ $it 1)) → 2
(setf (L 1) (+ $it 1)) → 4
L → '(0 3 0)

次の関数でアナフォリック $it が使えます:find-allifreplaceset-refset-ref-allsetf setq
The following functions use the anaphoric $itfind-all, if, replace, set-ref, set-ref-all and setf setq.

Replace in simple lists(単リストでの置換)

文字列にも同じように使える Replace は、リスト中の要素を検索し、一括して置き換えます。matchunify と一緒に使って、複雑な検索パターンを指定できます。setf のように、置換式にはその置換内容の形成に古い要素内容を使えます。
Replace, which can also be used on strings, can search for and replace multiple elements in a list at once. Together with match and unify complex search patterns can be specified. Like with setf, the replacement expression can use the old element contents to form the replacement.

(set 'aList '(a b c d e a b c d))
     
(replace 'b aList 'B) → (a B c d e a B c d)

関数 replace は、リスト要素の抽出に比較関数を使えます:
The function replace can take a comparison function for picking list elements:

; replace all numbers where 10 < number
(set 'L '(1 4 22 5 6 89 2 3 24))
     
(replace 10 L 10 <) → (1 4 10 5 6 10 2 3 10)

関数 matchunifyを使えば、より複雑な選択基準を定義できます:
Using the built-in functions match and unify more complex selection criteria can be defined:

; replace only sublists starting with 'mary'
    
(set 'AL '((john 5 6 4) (mary 3 4 7) (bob 4 2 7 9) (jane 3)))
   
(replace '(mary *)  AL (list 'mary (apply + (rest $it))) match)
→ ((john 5 6 4) (mary 14) (bob 4 2 7 9) (jane 3))
    
; make sum in all expressions
    
(set 'AL '((john 5 6 4) (mary 3 4 7) (bob 4 2 7 9) (jane 3)))
   
(replace '(*) AL (list ($it 0) (apply + (rest $it))) match)
→ ((john 15) (mary 14) (bob 22) (jane 3))
    
$0 → 4  ; replacements made
    
; change only sublists where both elements are the same
    
(replace '(X X) '((3 10) (2 5) (4 4) (6 7) (8 8)) (list ($it 0) 'double ($it 1)) unify)
→ ((3 10) (2 5) (4 double 4) (6 7) (8 double 8))
    
$0 → 2  ; replacements made

置換中、$0 やアナフォリック・システム変数 $it には、現時点で検出された式が入ります。
During replacements $0 and the anaphoric system variable $it contain the current found expression.

置換制御文が実行された後、newLISP システム変数 $0 には、置換された数が入ります。
After a replacement statement is executed the newLISP system variable $0 contains the number of replacements made.

Replace in nested lists(入れ子リストでの置換)

XML を解析した産物である SXML のように、リストは時に入れ子になります。関数 ref-setset-refset-ref-all は、入れ子リスト中の要素検出や全要素検出、そして、それらの置換に使えます。
Sometimes lists are nested, e.g. the SXML results from parsing XML. The functions ref-set, set-ref and set-ref-all can be used to find a single element or all elements in a nested list, and replace it or all.

(set 'data '((monday (apples 20 30) (oranges 2 4 9)) (tuesday (apples 5) (oranges 32 1))))
   
(set-ref 'monday data tuesday)
→ ((tuesday (apples 20 30) (oranges 2 4 9)) (tuesday (apples 5) (oranges 32 1))) 

set-ref-all は 見つかった要素をすべて置換するまで set-ref します。
The function set-ref-all does a set-ref multiple times, replacing all found occurrences of an element.

(set 'data '((monday (apples 20 30) (oranges 2 4 9)) (tuesday (apples 5) (oranges 32 1))))
   
(set-ref-all 'apples data "Apples")
→ ((monday ("Apples" 20 30) (oranges 2 4 9)) (tuesday ("Apples" 5) (oranges 32 1)))

find のように、replacerefref-allmatchunify と一緒に使って、より複雑な検索表現が可能です。
Like find, replace, ref and ref-all, more complex searches can be expressed using match or unify:

(set 'data '((monday (apples 20 30) (oranges 2 4 9)) (tuesday (apples 5) (oranges 32 1))))
   
(set-ref-all '(oranges *) data (list (first $0) (apply + (rest $it))) match)
→ ((monday (apples 20 30) (oranges 15)) (tuesday (apples 5) (oranges 33)))

最後の例は、更新する式で $0 が古い要素にアクセスする様子を示しています。 $0 の代わりにアナフォリック・システム変数 $it を使うこともできます。
The last example shows how $0 can be used to access the old list element in the updating expression. In this case the numbers for oranges records have been summed. Instead of $0 the anaphoric system variable $it can also be used.

Passing lists by reference(参照によるリストの渡し方)

(数百以上の要素を持つ)大規模なリストを変更するために、ユーザー定義関数に渡さなければならない時があります。通常、newLISP はユーザー定義関数に全てのパラメータを値として渡します。しかし、次のコードでは、大規模なリストや文字列オブジェクトを参照で渡すのに使えるテクニックを紹介しています:
Sometimes a larger list (more than a few hundred elements) must be passed to a user-defined function for elements in it to be changed. Normally newLISP passes all parameters to user-defined functions by value. But the following snippet shows a technique that can be used to pass a bigger list or string object by reference:

(set 'data:data '(a b c d e f g h))
   
(define (change db i value)
    (setf (db i) value))
   
(change data 3 999) → d
   
data:data → '(a b c 999 d e f g h)

この例では、変数 data を保持する同名の data と名付けられたコンテキストにカプセル化されます。
In this example the list is encapsulated in a context named data holding a variable data with the same name.

newLISP では、関数が文字列やリストのパラメータを待ち受けている時、コンテキストを渡すことができ、その際、デフォルト・ファンクタとして解釈されます。
Whenever a function in newLISP looks for a string or list parameter, a context can be passed, which will then be interpreted as the default functor.

シンボルのよって参照されるリストやアレイに属するリストかアレイか要素を返す時、多くの組込関数は、リストのコピーではなく、//参照// を返します。これにより、リストの変更する際、組込関数を入れ子して使えます:
When returning a list or array or an element belonging to a list or array referenced by a symbol, many built-in functions return a //reference// to the list – not a copy. This can be used to nest built-in functions when modifying a list:

(set 'L '(r w j s r b))
   
(pop (sort L)) → b
   
L → (j r r s w)

Variable expansion(変数展開)

二つの関数がマクロ展開するのに利用できます:expandletex。関数 expand には、三つの異なる構文パターンがあります。
Two functions are available to do macro-expansion: expand and letex. The expand function has three different syntax patterns.

シンボルに展開された値が入ります:
Symbols get expanded to their value:

; expand from one or more listed symbols
(set 'x 2 'a '(d e))
(expand '(a x (b c x)) 'x 'a)  → ((d e) 2 (b c 2))

expand は、ラムダ式を構成する際または関数やマクロ(define-macro による fexpr)内で変数を展開する時に役立ちます:
(訳注: fexpr とは、オペランドが評価されずに渡される関数)
expand is useful when composing lambda expressions or when doing variable expansion inside functions and function macros (fexpr with define-macro):

; use expansion inside a function
(define (raise-to power)
    (expand (fn (base) (pow base power)) 'power))
(define square (raise-to 2))
(define cube (raise-to 3))
(square 5)  → 25
(cube 5)    → 125

expand は、連想リストを取ることができます:
expand can take an association list:

; expand from an association list
(expand '(a b c) '((a 1) (b 2)))                → (1 2 c)
(expand '(a b c) '((a 1) (b 2) (c (x y z))))    → (1 2 (x y z))

そして、連想リストの値部分を最初に評価することができます:
and the value part in associations can be evaluated first:

; evaluate the value parts in the association list before expansion
(expand '(a b) '((a (+ 1 2)) (b (+ 3 4))))      → ((+ 1 2) (+ 3 4))
(expand '(a b) '((a (+ 1 2)) (b (+ 3 4))) true) → (3 7)

expand は単独であれ連想リストであれ展開式が指定されない時は、大文字で始まる変数に対して動作します。
expand does its work on variables starting with an uppercase letter when expansion variables have neither been specified stand-alone nor in an association list.

; expand from uppercase variables
(set 'A 1 'Bvar 2 'C nil 'd 5 'e 6)
(expand '(A (Bvar) C d e f))  → (1 (2) C d e f)

これを使って、前述の関数定義を短くできます。
Using this, a previous function definition can be made even shorter.

; use expansion from uppercase variables in function factories
(define (raise-to Power) 
    (expand (fn (base) (pow base Power))))
(define cube (raise-to 3)) → (lambda (base) (pow base 3))
(cube 4) → 64

関数 letexexpand のように動作しますが、展開シンボルは letex 式内でローカルになります。
The letex function works like expand, but expansion symbols are local to the letex expression.

; use letex for variable expansion
(letex ( (x 1) (y '(a b c)) (z "hello") ) '(x y z)) → (1 (a b c) "hello")

例では、letex 内の本体式:(x y z) が、評価されないようにクォートされていることに注意して下さい。
Note that in the example the body expression in letex: (x y z) is quoted to prevent evaluation.

Destructuring nested lists(入れ子リストの変更)

入れ子リストの内部変数を束縛するのに次の方法が使えます:
The following method can be used to bind variables to subparts of a nested list:

; uses unify together with bind for destructuring
(set 'structure '((one "two") 3 (four (x y z))))
(set 'pattern '((A B) C (D E))) ; unify needs uppercase for binding
(bind (unify pattern structure))
A → one
B → "two"
C → 3
D → four
E → (x y z)

§

7. Program flow(プログラム・フロー)

newLISP でのプログラムのフローは大部分が関数的ですが、ループや分岐構造を持つこともあり、通常のフローから脱出する catchthrow もあります。
Program flow in newLISP is mostly functional but it also has looping and branching constructs and a catch and throw to break out of the normal flow.

ループ式は、関数のように完結した動作をするか最後に評価された式を返すブロックになります。
Looping expressions as a whole behave like a function or block returning the last expression evaluated.

Loops(ループ)

伝統的なループ形式のほとんどが提供されています。ループ変数はループ内のローカル変数で、現在の名前空間またはコンテキスト内でダイナミック・スコープの規則に従って動作します。
Most of the traditional looping patterns are supported. Whenever there is a looping variable, it is local in scope to the loop, behaving according the rules of dynamic scoping inside the current name-space or context:

; loop a number of times
; i goes from 0 to N - 1
(dotimes (i N)
    ....
)
   
; demonstrate locality of i
(dotimes (i 3)
    (print i ":")
    (dotimes (i 3) (print i))
    (println)
)
   
→ ; will output
 0:012
 1:012
 2:012
   
; loop through a list
; takes the value of each element in aList
(dolist (e aList)
    ...
)
   
; loop through a string
; takes the ASCII or UTF-8 value of each character in aString
(dostring (e aString)
    ...
)
   
; loop through the symbols of a context in
; alphabetical order of the symbol name
(dotree (s CTX)
    ...
)
   
; loop from to with optional step size
; i goes from init to <= N inclusive with step size step
; Note that the sign in step is irrelevant, N can be greater
; or less then init.
(for (i init N step)
    ...
)
   
; loop while a condition is true
; first test condition then perform body
(while condition
    ...
)
   
; loop while a condition is false
; first test condition then perform body
(until condition
    ...
)
   
; loop while a condition is true
; first perform body then test
; body is performed at least once
(do-while condition
    ...
)
   
; loop while a condition is false
; first perform body then test
; body is performed at least once
(do-until condition
    ...
)

ループ関数 dolistdotimesfor は、引数オプションに脱出条件を取れることに着目して下さい。脱出条件が true に評価された時、ループを終了します:
Note that the looping functions dolist, dotimes and for can also take a break condition as an additional argument. When the break condition evaluates to true the loop finishes:

(dolist (x '(a b c d e f g) (= x 'e))
    (print x))
→ ; will output
 abcd

Blocks(ブロック)

ブロックは、連続して評価されるs式の集合体です。全てのループ構造は、条件式の後に本体としてブロック式を持つことになります。
Blocks are collections of s-expressions evaluated sequentially. All looping constructs may have expression blocks after the condition expression as a body.

ブロックは、begin 式で括って構成することもできます:
Blocks can also be constructed by enclosing them in a begin expression:

(begin
    s-exp1
    s-exp2
     ...
    s-expN)

ループ構造ではループ条件の後に begin を明示する必要はありません。begin は、たいてい ifcond 宣言文で式をブロック化するのに使われます。
Looping constructs do not need to use an explicit begin after the looping conditions. begin is mostly used to block expressions in if and cond statements.

関数 andorletletnlocal もブロックを形成できるので、ブロック化宣言文 begin を必要としません。
The functions and, or, let, letn and local can also be used to form blocks and do not require begin for blocking statements.

Branching(分岐)

(if condition true-expr false-expr)
   
;or when no false clause is present
(if condition true-expr)
   
;or unary if for (filter if '(...))
(if condition)
   
; more than one statement in the true or false
; part must be blocked with (begin ...)
(if (= x y)
    (begin
        (some-func x)
        (some-func y))
    (begin
        (do-this x y)
        (do-that x y))
)
 
; the when form can take several statements without
; using a (begin ...) block
(when condition
    exp-1
    exp-2
    ...
)
   
; unless works like (when (not ...) ...)
(unless condition
    exp-1
    exp-2
    ...
)

条件次第で、exp-true または exp-false の部分が評価され、返されます。
Depending on the condition, the exp-true or exp-false part is evaluated and returned.

if 式では、一個以上の condition/exp-true 対 をおいて cond のように使えます。
More than one condition/exp-true pair can occur in an if expression, making it look like a cond:

(if condition-1 exp-true-1
    condition-2 exp-true-2
    ...
    condition-n exp-true-n
    expr-false
)

最初に nil でなかった condition-i と対の exp-true-i が評価されて返されます。どの condition-itrue にならなかったなら、exp-false になります。
The first exp-true-i for which the condition-i is not nil is evaluated and returned, or the exp-false if none of the condition-i is true.

cond は if の複数の条件形式のように動作しますが、各 condition-i exp-true-i 部分を括弧で囲む必要があります:
condworks like the multiple condition form of if but each part of condition-i exp-true-i must be braced in parentheses:

(cond
    (condition-1 exp-true-1 )
    (condition-2 exp-true-2 )
                ...
    (condition-n exp-true-n )
    (true exp-true)
)

Fuzzy flow(ファジーなフロー)

amb を使って、プログラム・フローを確率的なやり方で調整できます:
Using amb the program flow can be regulated in a probabilistic fashion:

(amb
    exp-1
    exp-2
    ...
    exp-n
)

exp-1 から exp-n の選択肢から確率 p = 1/n で一つの式が選択され、評価されます。結果は、amb 式から返されます。
One of the alternative expressions exp-1 to exp-n is evaluated with a probability of p = 1/n and the result is returned from the amb expression.

Flow with catch and throw(関数 catchthrow によるフロー)

ループやブロック式を catch 式で取り囲めます。throw が評価された時、catch 式全体の戻り値として throw 式の値を返します。
Any loop or other expression block can be enclosed in a catch expression. The moment a throw expression is evaluated, the whole catch expression returns the value of the throw expression.

(catch
    (dotimes (i 10)
    (if (= i 5) (throw "The End"))
    (print i " "))
)
; will output
0 1 2 3 4
; and the return value of the catch expression will be
→ "The End"

複数の catch を入れ子できます。関数 catch は、エラーも補足可能です。詳細は、 //エラーの取り扱い方// の章で見て下さい。
Several catch expressions can be nested. The function catch can also catch errors. See the chapter on //Error Handling// below.

Leave loops with a break condition(脱出条件でループから離脱する)

dotimesdolistfor を使って構成したループは、ループから早く抜けるための脱出条件を指定できます:
Loops built using dotimes, dolist or for can specify a break condition for leaving the loop early:

(dotimes (x 10 (> (* x x) 9))
    (println x))
→
 0
 1
 2
 3
   
(dolist (i '(a b c nil d e) (not i))
    (println i))
→
 a
 b
 c

Change flow with and or 'or'(演算子 andor でフローを変える)

Prolog 言語のプログラムのように、式の論理接続の結果次第でプログラム・フロー制御するのに論理 andor が使えます:
Similar to programming in the Prolog language, the logical and and or can be used to control program flow depending on the outcome of expressions logically connected:

 
(and
   expr-1
   expr-2
    ...
   expr-n)

expr-inil または 空リスト () に評価されるか、expr-i がなくなるまで順に式が評価されていきます。最後に評価された式が and 式全体の戻り値になります。
Expressions are evaluated sequentially until one expr-i evaluates to nil or the empty list () or until all expr-i are exhausted. The last expression evaluated is the return value of the whole and expression.

(or
   expr-1
   expr-2
    ...
   expr-n)

expr-inil でもなく、空リスト () でもなく評価されるか、expr-i がなくなるまで順に式が評価されていきます。最後に評価された式が or 式全体の戻り値になります。
Expressions are evaluated sequentially until one expr-i evaluates to not nil and not () or until all expr-i are exhausted. The last expression evaluated is the return value of the whole or expression.


§

8. Error handling(エラーの取り扱い方)

newLISP 式評価の際、いくつかの条件がエラー例外を起こします。エラーの全リストは、newLISP リファレンス・マニュアルを見て下さい。
Several conditions during evaluation of a newLISP expression can cause error exceptions. For a complete list of errors see the Appendix in the newLISP Reference Manual.

newLISP errors(newLISP のエラー)

newLISP のエラーは、関数呼び出す際に間違ったパラメータ数を供給したり、間違ったデータ型をパラメータに渡す等の誤った構文を使うプログラマや、存在しない関数を評価したりすることによって引き起こされます。
newLISP errors are caused by the programmer using the wrong syntax when invoking functions, supplying the wrong number of parameters or parameters with the wrong data type, or by trying to evaluate nonexistent functions.

; examples of newLISP errors
;
(foo foo)   → invalid function : (foo foo)
(+ "hello") → value expected in function + : "hello"

User defined errors(ユーザー定義エラー)

ユーザー・エラーは、関数 throw-error を使って引き起こされるエラー例外です:
User errors are error exceptions thrown using the function throw-error:

; user defined error
;
(define (double x)
    (if (= x 99) (throw-error "illegal number"))
    (+ x x)
)
   
(double 8)   → 16
(double 10)  → 20
(double 99)
→
user error : illegal number
called from user defined function double

Error event handlers(エラー・イベント・ハンドラ)

newLISP エラーとユーザー定義エラーは、イベント・ハンドラを定義する関数 error-event を使って捕捉されます。
newLISP and user defined errors can be caught using the function error-event to define an event handler.

; define an error event handler
;
(define (MyHandler)
    (println  (last (last-error))  " has occurred"))
   
(error-event 'MyHandler)
   
(foo) → ERR: invalid function : (foo) has occurred 

Catching errors(エラーの補足)

より細やかで特殊なエラー処理は、関数補足の特殊構文を使って実現されます。
A finer grained and more specific error exception handling can be achieved using a special syntax of the function catch.

(define (double x)
    (if (= x 99) (throw-error "illegal number"))
    (+ x x))

第二パラメータを持つ catch を使って、システム・エラーとユーザー定義エラーの両方を捕捉できます:
catch with a second parameter can be used to catch both system and user-defined errors:

(catch (double 8) 'result) → true
result → 16
(catch (double 99) 'result) → nil
(print result)
 →
user error : illegal number
called from user defined function double
    
(catch (double "hi") 'result) → nil
(print result)
→
value expected in function + : x
called from user defined function double

catch 式はエラー例外が起らなかった時 true を返し、式の結果は第二パラメータに指定されたシンボル result に見い出せます。
The catch expression returns true when no error exception occurred, and the result of the expression is found in the symbol result specified as a second parameter.

エラー例外が起こると捕捉され、catch は nil を返します。この場合、シンボル result にはエラー・メッセージが入ります。
If an error exception occurs, it is caught and the catch clause returns nil. In this case the symbol result contains the error message.

Operating system errors(オペレーティング・システム・エラー)

ある種のエラーはオペレーティング・システム・レベルで発生し、newLISP では捕捉できませんが、関数 sys-error を使って調べることができます。例えば、ファイル・オープンの失敗は次のような異なる原因を持ちます:
Some errors originating at operating system level are not caught by newLISP, but can be inspected using the function sys-error. For example the failure to open a file could have different causes:

; trying to open a nonexistent file
(open "blahbla" "r")  →  nil
(sys-error)           →  (2 "No such file or directory")
   
   
; to clear errno specify 0
(sys-error 0)         →  (0 "Unknown error: 0")

異なる UNIX プラットフォームでは、戻り値の数値が異なります。お使いのプラットフォームの /usr/include/sys/errno.h ファイルを調べて見て下さい。
Numbers returned may be different on different Unix platforms. Consult the file /usr/include/sys/errno.h on your platform.


§

9. Functions as data(データとしての関数)

Manipulate after definition(定義後に操作する)

(define (double x) (+ x x))
→ (lambda (x) (+ x x))
    
(first double) → (x)
(last double)  → (+ x x)
    
; make a fuzzy double
(setf (nth 1 double) '(mul (normal x (div x 10)) 2))
    
(double 10) → 20.31445313
(double 10) → 19.60351563

newLISP のラムダは、演算子でもシンボルでもなく、どちらかというと、s式やリスト属性の特殊な形態です:
lambda in newLISP is not an operator or symbol, but rather a special s-expression or list attribute:

(first double) → (x)   ; not lambda

s式のラムダ属性は、append だと右側連結で:
The lambda attribute of an s-expression is right-associative in append:

(append (lambda) '((x) (+ x x))) → (lambda (x) (+ x x))
; or shorter
(append (fn) '((x) (+ x x))) → (lambda (x) (+ x x))
    
(set 'double (append (lambda) '((x) (+ x x)))
    
(double 10) → 20

cons を使えば、左連結です:
and left-associative when using cons:

(cons '(x) (lambda) → (lambda (x))

newLISP のラムダ式は、第一級オブジェクト特性を決して失いません。
Lambda expressions in newLISP never lose their first class object property.

lambda という単語は fn に省略でき、式を読みやすく、かつ、短くするので、関数を map や apply する時、便利です。
The word lambda can be abbreviated as fn, which is convenient when mapping or applying functions to make the expression more readable and shorter to type.

Mapping and applying(map と apply の仕方)

(訳注:map を使えば、)関数や演算子がデータのリストに一括で適用され、結果はリストとして返されます:
Functions or operators can be applied to a list of data at once and all results are returned in a list

(define (double (x) (+ x x))
     
(map double '(1 2 3 4 5)) → (2 4 6 8 10)

(訳注:apply を使えば、)関数をリスト中にあるパラメータに適用できます:
Functions can be applied to parameters occurring in a list:

(apply + (sequence 1 10)) → 55

Functions making functions(関数を作る関数)

ここでは、式がパラメータとして渡されます:
Here an expression is passed as a parameter:

; macro expansion using expand
(define (raise-to power)
    (expand (fn (base) (pow base power)) 'power))
     
; or as an alternative using letex
(define (raise-to power)
    (letex (p power) (fn (base) (pow base p))))
     
(define square (raise-to 2))
     
(define cube (raise-to 3))
     
(square 5)   → 25
(cube 5)     → 125

二つの引数を取る関数を一つの引数を取る関数するために、組込関数 curry が使えます。
The built-in function curry can be used to make a function taking one argument from a function taking two arguments.

(define add-one (curry add 1))  → (lambda () (add 1 ($args 0)))
     
(define by-ten (curry mul 10))  → (lambda () (mul 10 ($args 0)))
   
(add-one 5)    → 6
     
(by-ten 1.23)  → 12.3

'curry 化'されるパラメータは、常に元の関数の第一パラメータになることに注意して下さい。
Note that the 'curried' parameter is always the first parameter of the original function.

Functions with memory(メモリを持つ関数)

newLISP は、名前空間 context を使って、ローカルな状態変数を生成できます:
newLISP can create local state variables using a name-space context:

; newLISP generator

(define (gen:gen)
    (setq gen:sum 
    (if gen:sum (inc gen:sum) 1)))

; this could be written even shorter, because
; 'inc' treats nil as zero

(define (gen:gen)
    (inc gen:sum))

(gen) → 1
(gen) → 2 
(gen) → 3

この例では、デフォルト・ファンクタ——関数名と名前空間の名前が同じ——を使っていて、通常関数のような形になっています。この名前空間内には、他の関数も追加できます。例えば sum の初期化用とか。
The example uses a default functor — functions name equals names-space name — to give it the appearance of a normal function. Other functions could be added to the namespace, e.g. for initializing the sum.

(define (gen:init x)
    (setq gen:sum x))

(gen:init 20) → 20

(gen) → 21
(gen) → 22

Functions using self modifying code(自己改変コードを使った関数)

newLISP において、ラムダ式のファースト・クラスの特筆すべき点は、自己改変コードを書くことができることです:
The first class nature of lambda expressions in newLISP makes it possible to write self modifying code:

;; sum accumulator
(define (sum (x 0)) (inc 0 x))

(sum 1)    → 1
(sum 2)    → 3
(sum 100)  → 103
(sum)      → 103

sum  → (lambda ((x 0)) (inc 103 x))

次の例は、expand を使って、自己改変ストリーム関数を作る関数を示しています:
The following example shows a function making a self modifying stream function using expand :

(define (make-stream lst)
    (letex (stream lst) 
        (lambda () (pop 'stream))))

(set 'lst '(a b c d e f g h))
(define mystream (make-stream lst))

(mystream)  → a
(mystream)  → b
(mystream)  → c

pop は、リストと文字列の両方に作用するので、同じ関数生成器が文字列にも使えます:
Because pop works on both: lists and strings, the same function factory can be used for a string stream:

(set 'str "abcddefgh")
(define mystream (make-stream str))

(mystream)  → "a"
(mystream)  → "c"

§

10. Text processing(テキスト処理)

Regular expressions(正規表現)

newLISP では、正規表現を次の関数で使うことができます:
Regular expressions in newLISP can be used in a number of functions:

function function description
directoryパターンにマッチした名前のファイルのリストを返す。
Return a list of files whose names match a pattern.
ends-with文字列の最後がキー文字列またはパターンになっているかをテストする。
Test if a string ends with a key string or pattern.
findパターンの位置を検出する。
Find the position of a pattern.
find-all検出された全てのパターンのリストを集める。
Assemble a list of all patterns found.
parseトークン間に検出されるパターンで文字列をトークンに分解する。
Break a string into tokens at patterns found between tokens.
regexパターンを検出し、検出された部分パターンのリストをオフセットと長さと共に返す。
Find patterns and returns a list of all sub patterns found, with offset and length.
replace検出されたパターンをパターン自身を入力するユーザー定義関数を使って置き換える。
Replace found patterns with a user defined function, which can take as input the patterns themselves.
searchファイル中のパターンを検索する。
Search for a pattern in a file.
starts-with文字列の先頭がキー文字列またはパターンになっているかをテストする。
Test if a string starts with a key string or pattern.

関数 find、regex、replace、search は、パターン・マッチした結果をシステム変数 $0 から $15 に保存します。詳細は、newLISP ユーザー・マニュアルを見て下さい。
The functions find, regex, replace and search store pattern matching results in the system variables $0 to $15. See the newLISP Users Manual for details.

次の段落では、テキストの走査やトークン化によく使われるアルゴリズムを紹介しています。
The following paragraphs show frequently-used algorithms for scanning and tokenizing text.

Scanning text(テキストの走査)

関数 replace は、正規表現パターンと一緒に使って、テキストを走査するのに使えます。この場合のパターンは、走査するトークンを表現します。トークンが見つかると、それはリストに push されます。この作業は、replace の置き換え式部分でなされます。この例では、ウェブ・ページ上にリンクされていた全ファイルをセーブします。
The replace function, together with a regular expression pattern, can be used to scan text. The pattern in this case describes the tokens scanned for. As each token is found, it is pushed on a list. The work is done in the replacement expression part of replace. This example saves all files linked on a web page:

#!/usr/bin/newlisp

; tokenize using replace with regular expressions
; names are of the form <a href="example.lsp">example.lsp</a>
   
(set 'page (get-url "http://newlisp.digidep.net/scripts/"))
(replace {>(.*lsp)<} page (first (push $1 links)) 0) ; old technique
;(set 'links (find-all {>(.*lsp)<} page $1)) ; new technique
  
(dolist (fname links)
   (write-file fname (get-url (append "http://newlisp.digidep.net/scripts/" fname)))
   (println "->" fname))

(exit)

クォート (") や正規表現で特別の意味を持つ他の文字をエスケープしなくて済むように、正規表現パターンには波括弧 ({,}) が使われます。
Curly braces ({,}) are used in the regular expression pattern to avoid having to escape the quotes (") or other characters that have special meanings in regular expressions.

次はより短い別の方法です。関数 find-all は、マッチした全ての文字列をリストに入れてくれます:
The following alternative technique is even shorter. The find-all function puts all matching strings into a list:

(set 'links (find-all {>(.*lsp)<} page $1)) ; new technique

見つかった部分式を使った作業を追加式として、find-all に指示できます:
In an additional expression find-all can be directed to do additional work with the sub expressions found:

(find-all {(new)(lisp)} "newLISPisNEWLISP" (append $2 $1) 1)
→ ("LISPnew" "LISPNEW")

最後の例で、find-all は結果のリストに、見つかった部分式の順序を逆にしてくっつけています。
In the last example find-all appends the sub expressions found in reverse order before returning them in the result list.

テキストのトークン化の別の手法としては、parse を使います。replacefind-all ではトークンを定義したのに対して、parse ではトークンとトークンの間を正規表現で表現します:
Another technique for tokenizing text uses parse. Whereas with replace and find-all the regular expression defined the token, when using parse, the regex pattern describes the space between the tokens:

; tokenize using parse
(set 'str "1 2,3,4 5, 6 7  8")
(parse str {,\ *|\ +,*} 0)
→ ("1" "2" "3" "4" "5" "6" "7" "8")

(訳注:上記例で)parse パターンに波括弧を使わない時は、バックスラッシュを二重化する必要があります。各バックスラッシュの後にスペースがあることに注意して下さい。
Without the curly braces in the parse pattern, the backslashes would need to be doubled. Note that there is a space after each backslash.

Appending strings(文字列の結合)

文字列を追加したい時、新しい文字列を形成するのに append と join が使えます:
When appending strings append and join can be used to form a new string:

(set 'lstr (map string (rand 1000 100)))
→ ("976" "329" ... "692" "425")
   
; the wrong slowest way
(set 'bigStr "")
(dolist (s lstr)
    (set 'bigStr (append bigStr s)))
   
; smarter way - 50 times faster
;
(apply append lstr)

時には、上記の例のような文字列のリストを利用したい時に用意できません。このような場合、文字列が生成されている間、push を使ってリストに押し込めることができます。リストは join の引数として使え、最も早く、文字列をつなぎ合わせる方法です:
Sometimes strings are not readily available in a list like in the above examples. In this case push can be used to push strings on a list while they get produced. The list then can be used as an argument for join, making the fastest method for putting strings together from existing pieces:

; smartest way - 300 times faster
; join an existing list of strings
;
(join lstr) → "97632936869242555543 ...."
   
; join can specify a string between the elements
; to be joined
(join lstr "-") → "976-329-368-692-425-555-43 ...."

Growing strings(文字列の追加)

多くの場合、一つの場所で文字列を大きくしていくことがベストです。文字列の末尾に追加するのに、関数 extend が使えます。文字列の任意の場所に挿入するには、関数 push が使えます。
Often it is best to grow a string in place. The function extend can be used to append to a string at the end. The function push can be used to insert new content at any place in the string.

.
; smartest way - much faster on big strings
; grow a string in place

; using extend
(set 'str "")
(extend str "AB" "CD")
str → "ABCD"

; extending in a place
(set 'L '(a b "CD" (e f)))
(extend (L 2) "E")
L → (a b "CDE" (e f))

; using push
(set 'str "")
(push "AB" str -1)
(push "CD" str -1)
str → "ABCD"

Rearranging strings(文字列の再配置)

文字列の文字の選択と再配置に、リストを使って要素を選択する関数 select が使えます:
The function select for selecting elements from lists can also be used to select and re-arrange characters from strings:

(set 'str "eilnpsw")
(select str '(3 0 -1 2 1 -2 -3)) → "newlisp"
   
; alternative syntax
(select str 3 0 -1 2 1 -2 -3) → "newlisp"

複数のインデックスを定数ではなく、変数で指定したい時、第二構文が役立ちます。
The second syntax is useful when indexes are specified not as constants but occur as variables.

Modifying strings(文字列の変更)

newLISP には、文字列を破壊的に変更する関数がいくつかあります:
newLISP has a variety of functions, which can destructively change a string:

function description
extend文字列に別の文字列を拡張する。
Extend a string with another string.
push pop指定した位置の一つ以上の文字列を挿入または抜取る。
Insert or extract one or more characters at a specific position.
replace文字列または文字列パターンの出現を全て文字列で置き換える。
Replace all occurrences of a string or string pattern with a string.
setf文字列中の一文字を一つ以上の文字で置き換える。
Replace a character in a string with one or more characters.

replace は、置換文字列に空文字列 "" を指定することで、文字列や文字列パターンの出現を全て削除できます。
replace can also be used to remove all occurrences of string or string pattern when specifying an empty string "" as replacement.

UTF-8 版 newLISP において nth や暗黙のインデックス機能で文字列を指定する時、文字列はバイト境界ではなく、文字単位でアドレスされます。UTF-8 文字には1バイト以上が含まれます。
When indexing strings with either nth or implicit indexing, the string is addressed at character rather than byte boundaries to work correctly on UTF-8 enabled versions of newLISP. A UTF-8 character can contain more than one byte.


§

11. Dictionaries and hashes(辞書とハッシュ)

Hash-like key → value access(ハッシュ・ライクの キー → 値 アクセス)

newLISP は、関数 sym と関数 context の特殊構文でシンボルを生成し、操作する機能を持っています。newLISP の古い版では、これらの関数はハッシュ・ライク生成をプログラムし、キー・値ペアをアクセスするのに使われました。現在では、名前空間コンテキストの デフォルト・ファンクタ を使う、より簡潔で便利な方法が利用できます:
newLISP has functions to create and manipulate symbols using the functions sym and a special syntax of the function context. In older versions of newLISP, these functions were used to program hash-like creation and access of key-value pairs. Now a shorter and more convenient method is available, using the un-initialized default functor of a namespace context:

(define Myhash:Myhash) ; establish the namespace and default functor

上記方法の代わりに、あらかじめ定義された名前空間であるデフォルト・ファンクタの Treeインスタンス生成に使えます:
As an alternative to the above methods, the predefined namespace and default functor Tree can be used to instantiate a new one:

(new Tree 'Myhash)

どちらの方法も、同じ結果を生成しますが、二つ目の方法はデフォルト・ファンクタ Myhash:Myhash を変更から保護します。
Both methods produce the same result, but the second method also protects the default functor Myhash:Myhash from change.

デフォルト・ファンクタ は、所属する名前空間(コンテキスト)と同じ名前を持つシンボルです。この デフォルト・ファンクタ・シンボルに nil 以外の何も入っていない時、ハッシュ関数のように動作します:
A default functor is the symbol with the same name as the namespace (context) it belongs to. If this default functor symbol does not contain anything except nil, it works like a hash function:

(Myhash "var" 123) ; create and set variable/value pair
 
(Myhash "var") → 123 ; retrieve value
 
(Myhash "foo" "hello")
 
(Myhash "bar" '(q w e r t y))
 
(Myhash "!*@$" '(a b c))

; numbers can be used too and will be converted to strings internally

(Myhash 555 42)

(Myhash 555) → 42

ハッシュ・シンボルに nil をセットすることは、消去に相当します:
Setting a hash symbol to nil will effectively erase it:

(Myhash "bar" nil)

キーにはどんな文字列も使え、内部的には全てのキー文字列にアンダースコア文字を先付することで(訳注:シンボルに変換されて、かつ)、newLISP組込シンボルとの衝突を避けています。値には、どんな文字列、数値、newLISP のs式でも可能です。
The key can be any string; newLISP prevents symbol clashes with built-in newLISP symbols by prepending an underscore character (_) to all key strings internally. The value can be any string, number or any other newLISP s-expression.

Myhash の名前空間を連想リストに変換できます:
The Myhash namespace can be transformed in an association list:

(Myhash) → (("!*@$" (a b c)) ("foo" "hello") ("var" 123))

また、Myhash の生の内容は、関数 symbols を使って見ることができます:
Or the raw contents of Myhash can be shown using the symbols function:

(symbols Myhash) → (Myhash:Myhash Myhash:_!*@$ Myhash:_foo Myhash:_var)

辞書は、既にある連想リストからの変換で生成可能です:
Dictionaries can be built by converting an existing association list:

(set 'aList '(("one" 1) ("two" 2) ("three")))
 
(Myhash aList)
 
(Myhash) → (("!*@$" (a b c)) ("foo" "hello") ("one" 1) ("three" nil) ("two" 2) ("var" 123))

Saving and loading dictionaries(辞書のセーブとロード)

辞書は、名前空間 Myhashシリアライズで簡単に保存できます:
The dictionary can be easily saved to a file by serializing the namespace Myhash:

(save "Myhash.lsp" 'Myhash)

名前空間の全てが Myhash.lsp ファイルに保存され、後で、newLISP に再読み込みできます:
The whole namespace is saved to the file Myhash.lsp and can be reloaded into newLISP at a later time:

(load "Myhash")

ハッシュは、関数 bayes-train と同様にコンテキストを生成することに注意して下さい。全てに文字列キーは、アンダースコアを先付されて、シンボルに変換されます。 bayes-train を使って生成された名前空間が、単語や統計を取り出すためにハッシュのように使えることを意味します。詳細は、マニュアルで関数 bayes-train を見て下さい。
Note that hashes create contexts similar to the bayes-train function. All string keys are prepended with an underscore and then transformed into a symbol. This means that namespaces created using bayes-train can be used like hashes to retrieve words and their statistics. See the bayes-train function in the manual for more detail.


§

12. TCP/IP client server(TCP/IP クライアント・サーバー)

Open connection(接続オープン)

この形式では、サーバーはクライアントが接続と切るまで、接続オープンを保ちます。その後、サーバー・ループは新しい net-accept に入ります:
In this pattern the server keeps the connection open until the client closes the connection, then the server loops into a new net-accept:

; sender listens
(constant 'max-bytes 1024)
(if (not (set 'listen (net-listen 123)))
    (print (net-error)))
(while (not (net-error))
    (set 'connection (net-accept listen)) ; blocking here
    (while (not (net-error))
         (net-receive connection message-from-client max-bytes)
         .... process message from client ...
         .... configure message to client ...
         (net-send connection message-to-client)) 
)

そして、クライアント側は:
and the client:

; client connects to sender
(if (not (set 'connection (net-connect "host.com" 123)))
    (println (net-error)))
; maximum bytes to receive
(constant 'max-bytes 1024)
; message send-receive loop
(while (not (net-error))
     .... configure message to server ...
     (net-send connection message-to-server)
     (net-receive connection message-from-server max-bytes)
     .... process message-from-server ...
)

Closed transaction(トランザクション切断)

この形式では、サーバーはメッセージ交換の各処理毎に接続を切ります:
In this pattern the server closes the connection after each transaction exchange of messages.

; sender
(while (not (net-error))
    (set 'connection (net-accept listen)) ; blocking here
    (net-receive connection message-from-client max-bytes)
        .... process message from client ...
        .... configure message to client ...
    (net-send connection message-to-client)
    (close connection)
)

そして、クライアントは送信側への再接続を試みます:
and the client again tries to connect to the sender:

 
; client
(unless (set 'connection (net-connect "host.com" 123))
    (println (net-error))
    (exit))
; maximum bytes to receive
(constant 'max-bytes 1024)
  .... configure message to server ...
(net-send connection message-to-server)
(net-receive connection message-from-server max-bytes)
  .... process message-from-server ...

クライアント/サーバーのセット・アップ方法には異なる方法が数多くありますので、newLISP マニュアルの例も見て下さい。
There are many different ways to set up a client/server connection, see also the examples in the newLISP manual.


§

13. UDP communications(UDP 通信)

高速で TCP/IP の設定を必要としないマルチ・キャスティングを提供します。UDP は、プロトコルがパケット・シーケンスの整合性や全パケットの受信確認等をチェックをしないので、信頼性は劣ります。通常インターネット上で動作しなければ問題ありませんが、上手に管理されているローカル・ネットワーク上や機械制御を行う時には、問題になるかもしれません。メッセージ部分には簡潔でより明解なプロトコルが用いられています。
They are fast and need less setup than TCP/IP and offer multi casting. UDP is also less reliable because the protocol does less checking, i.e. of correct packet sequence or if all packets are received. This is normally no problem when not working on the Internet but in a well controlled local network or when doing machine control. A simple more specific protocol could be made part of the message.

Open connection(接続オープン)

この例では、サーバーは接続オープンを保持します。net-listen、net-receive-from、net-send-to での UDP 通信は受信中、ブロックできます。
In this example the server keeps the connection open. UDP communications with net-listen, net-receive-from and net-send-to can block on receiving.

クライアントとサーバーはどちらも、net-listen"udp" オプションで使うことに注意して下さい。この場合、net-listen はアドレスをソケットに束縛するためにのみ使われ、接続の待ち受けには使われません。サーバーは複数のクライアントからのメッセージを受け取ります。関数 net-send-to は、送信アドレスを受信したメッセージから取り出しています。
Note that both, the client and server use net-listen with the "udp" option. In this case net-listen is used only for binding the socket to the address, it is not used for listening for a connection. The server could receive messages from several clients. The net-send-to function extracts the target address from the message received.

送信側は:
The sender:

; sender
(set 'socket (net-listen 10001 "localhost" "udp"))
(if socket (println "server listening on port " 10001)
   (println (net-error)))
(while (not (net-error))
    (set 'msg (net-receive-from socket 255))
    (println "-> " msg)
    (net-send-to (first (parse (nth 1 msg) ":"))
                 (nth 2 msg) (upper-case (first msg)) socket))
(exit)

そして、受信側は:
and the client:

(set 'socket (net-listen 10002 "" "udp"))
(if (not socket) (println (net-error)))
(while (not (net-error))
    (print "enter something -> ")
    (net-send-to  "127.0.0.1" 10001 (read-line) socket)
    (net-receive socket buff 255)
    (println "=> " buff))
(exit)

Closed transaction(トランザクション切断)

この形式は、時々、ハードウェアや機器の制御に使われます。セット・アップは必要なく、送信用に一つの関数、受信用に別の一つがあるだけです。
This form is sometimes used for controlling hardware or equipment. No setup is required, just one function for sending, another one for receiving.

; wait for data gram with maximum 20 bytes
(net-receive-udp 1001 20)
; or
(net-receive-udp 1001 20 5000000)  ; wait for max 5 seconds
; the sender
(net-send-udp "host.com" 1001 "Hello")

受信端で指定されたバイトより多くまたは少なく送信された時、Win32 と Unix は異なる振る舞いを示します。
Win32 and Unix's show different behavior when sending less or more bytes than specified on the receiving end.

Multi-cast communications(マルチキャスト通信)

この構成でサーバーは、関数 net-listen を使っているマルチキャスト・アドレス範囲の一つに入ります。
In this scheme the server subscribes to one of a range of multi cast addresses using the net-listen function.

; example server
(net-listen 4096 "226.0.0.1" "multi") → 5
(net-receive-from 5 20)
 
; example client I
(net-connect "226.0.0.1" 4096 "multi") → 3
(net-send 3 "hello")
; example client II
(net-connect "" 4096 "multi") → 3
(net-send-to "226.0.0.1" 4096 "hello" 3)

この例の接続は net-receive 上でブロックしますが、net-selectnet-peek と使えば、ブロックされずに済みます。
The connection in the example is blocking on net-receive but could be de-blocked using net-select or net-peek


§

14. Non-blocking communications(ノン・ブロッキング通信)

Using net-select(関数net-selectの使い方)

前述の全ての形式で、クライアントは受信時にブロックします。ブロックしない通信には net-select 呼び出しを使うことができます。
In all previous patterns the client blocks when in receive. The net-select call can be used to unblock communications:

 
; optionally poll for arriving data with 100ms timeout
(while (not (net-select connection "r" 100000))
    (do-something-while-waiting ...))
 
(net-receive...)

connection は接続ソケット用の一つの数か様々なソケット上で待ち状態にある数のリストです。
connection can be a single number for a connection socket or a list of numbers to wait on various sockets.

Using 'net-peek'(関数net-peek の使い方)

net-peek は未読み取りの文字数を返します。
net-peek returns the number of characters pending to read.

(while ( = (net-peek aSock) 0)
    (do-something-while-waiting ...))
(net-receive...)

§

15. Controlling other applications(外部アプリケーション制御)

Using exec(関数execの使い方)

これは、一コマンドを実行して結果を受け取る、短いやりとりに適した方法です。
This method is only suited for short exchanges, executing one command and receiving the output.

> (exec "ls *.c")
("newlisp.c" "nl-debug.c" "nl-filesys.c" "nl-import.c" "nl-list.c" "nl-liststr.c" 
 "nl-math.c" "nl-matrix.c" "nl-sock.c" "nl-string.c" "nl-symbol.c" "nl-utf8.c" "nl-web.c" 
 "nl-xml-json.c" "pcre-chartables.c" "pcre.c" "unix-lib.c" "win-dll.c" "win-path.c" 
 "win-util.c")
> 

関数 exec は、Unix コマンド・ラインのユーティリティ ls にパイプ・プロセスを開き、標準出力(STDOUT)の各行を文字列のリストに集めます。
The exec function opens a process pipe for the Unix command-line utility ls and collects each line of STDOUT into a list of strings.

以下の例のほとんどが、アプリケーションを実行するのに process を使っています。この関数は、他のアプリケーションを実行した後、ブロックせず、すぐに戻ってきます。
Most following examples use process to launch an application. This function returns immediately after launching the other application and does not block.

以下のパターンに全てにおいてサーバーは自律的でなく、サーバーを起動して行単位の手順で通信するクライアントによって制御されています:
In all of the following patterns the server is not independent but controlled by the client, which launches the server and then communicates via a line oriented protocol:

     → launch server
     → talk to server
     ← wait for response from server
     → talk to server
     ← wait for response from server
          ...

時には、サーバーが準備できるまで待つために、クライアント側でスリープ時間が必要です。最初の例を除いて、これらのほとんどが、GTK-server [http://www.gtk-server.org www.gtk-server.org] からのエッセンスです。基本的なプログラム・ロジックは、他のアプリケーションでも同じでしょう。
Sometimes a sleep time is necessary on the client side to wait for the server to be ready loading. Except for the first example, most of these are condensed snippets from GTK-Server from [http://www.gtk-server.org www.gtk-server.org]. The basic program logic will be the same for any other application.

STD I/O pipes(標準 I/O パイプ)

関数 process には、実行するアプリケーションとの通信用に 2つのパイプを指定します。
The process function allows specifying 2 pipes for communications with the launched application.

; setup communications
(map set '(myin tcout) (pipe))
(map set '(tcin myout) (pipe))
(process "/usr/bin/wish" tcin tcout)
 
; make GUI
(write myout
[text]
wm geometry . 250x90
wm title . "Tcl/Tk and newLISP"
bind . <Destroy> {puts {(exit)}}
[/text])
 
; run event loop
(while (read-line myin)
    (eval-string (current-line))
)

これは、Unix コマンド・ライン・ユーティリティや言語との双方向通信時に時間のかかるセットアップに都合のよい方法です。一つのコマンドのやり取りには、関数 exec の方が簡潔に役目を果たします。
This is the preferred way to set up longer lasting, bidirectional communications with Unix command line utilities and languages. For one-command exchanges the exec function does the job shorter.

手の込んだ Tcl/Tk の例は、配布ソース中の examples/tcltk.lsp アプリケーションで見て下さい。
For a more elaborate Tcl/Tk example see the application examples/tcltk.lsp in the source distribution.

Communicate via TCP/IP(TCP/IP 経由で通信する)

; Define communication function
(define (gtk str , tmp)
    (net-send connection str)
    (net-receive connection tmp 64)
    tmp)
 
; Start the gtk-server
(process "gtk-server tcp localhost:50000")
(sleep 1000)
 
; Connect to the GTK-server
(set 'connection (net-connect "localhost" 50000))
(set 'result (gtk "gtk_init NULL NULL"))
(set 'result (gtk "gtk_window_new 0"))
               .....

Communicate via named FIFO (名前付き FIFO 経由で通信する)

最初に(特定のファイル・ノードのように見える) FIFO を用意して下さい:
Make a FIFO first (looks like a special file node):

(exec "mkfifo myfifo")
 
; or alternatively
 
(import "/lib/libc.so.6" "mkfifo")
(mkfifo "/tmp/myfifo" 0777)
 
; Define communication function
(define (gtk str)
	(set 'handle (open "myfifo" "write"))
	(write handle str)
	(close handle)
	(set 'handle (open "myfifo" "read"))
	(read handle tmp 20)
	(close handle)
tmp)

Communicate via UDP(UDP 経由で通信する)

"udp" オプション付待ち受け関数はソケットを物理アドレスに束縛しますが、実際には、TCP/IP を待ち受けないことに注意して下さい。
Note that the listen function with "udp" option just binds the sockets to a address/hardware but not actually listens as in TCP/IP.

; Define communication function
(define (gtk str , tmp)
(net-send-to "localhost" 50000 str socket)
(net-receive socket 'tmp net-buffer)
tmp)
 
; Start the gtk-server
(define (start)
	(process "gtk-server udp localhost:50000")
	(sleep 500)
	(set 'socket (net-listen 50001 "localhost" "udp")) )
 
(set 'result (gtk "gtk_init NULL NULL"))
 
(set 'result (gtk "gtk_window_new 0"))
.....

§

16. Launching apps blocking(ブロッキングするアプリの起動)

Shell execution(シェルの実行)

これは、newLISP のインターラクティブ・コマンド・ラインからシェルを走らせる必要があるプロセスをブロッキング状態で実行するためによく使われます:
This is frequently used from newLISP's interactive command line to execute processes in a blocking fashion, which need a shell to run:

(! "ls -ltr")

newLISP の式内ではなく、コマンド・ラインでのみ動作する別の形式もあります:
There is an interesting variant of this form working not inside a newLISP expression, but only on the command line:

!ls -ltr

コマンド・ラインでは、! は先頭でなければなりません。この形式は、VI エディタのシェル・エスケープのように動作します。newLISP コンソールから離れることなしに、エディタを呼び出したり、素早くシェルを起動したりするのに役立ちます。
The ! should be the first character on the command line. This form works like a shell escape in the VI editor. It is useful for invoking an editor or doing quick shell work without completely leaving the newLISP console.

Capturing std-out(標準出力の獲得)

(exec "ls /") → ("bin" "etc" "home" "lib")

Feeding std-in(標準入力への供給)

(exec "script.cgi" cgi-input)

この例で cgi-input には、通常、ウェブ・サーバーからくるクエリ入力の文字列が入っています。この場合、出力はスクリーンに直接書かれ、newLISP には戻ってこないことに注意して下さい。他のアプリケーションとの双方向標準 I/O 通信には、プロセスとパイプを使って下さい。
In this example cgi-input could contain a string feeding a query input, normally coming from a web server. Note that output in this case is written directly to the screen, and cannot be returned to newLISP. Use process and pipe for two way std i/o communications with other applications.


§

17. Semaphores, shared memory(セマフォ、共有メモリ)

共有メモリ、セマフォ、プロセスは、たいてい一緒に動作します。セマフォは異なるプロセス・スレッドのタスクを同期させることができ、共有メモリはそれらの間の通信に使われます。
Shared memory, semaphores and processes work frequently together. Semaphores can synchronize tasks in different process threads and shared memory can be used to communicate between them.

次に、三つの手順が同時に動作するちょっと複雑な例を紹介します。
The following is a more complex example showing the working of all three mechanisms at the same time.

producer は、i = 0 から n - 1 までループし、各値を共有メモリに置きます。そして、それは consumer スレッドに取り出されます。セマフォは、データが準備できたかどうかの信号として使われます。
The producer loops through all n values from i = 0 to n - 1 and puts each value into shared memory where it is picked up by the consumer thread. Semaphores are used to signal that a data value is ready for reading.

セマフォと共有メモリを使ったプロセスの制御は速いですが、二つより多いプロセスを伴なう時は、エラーを起こしがちです。Cilk API を使って、プロセス間通信すれば、複数プロセスの制御が簡単になります。この件については、18 章と 19 章を見て下さい。
Although controlling processes with semaphores and shared memory is fast, it is also error prone, specially when more the two processes are involved. It is easier to control multiple processes using the Cilk API and messaging between processes. See chapters 18. and 19. for these topics.

#!/usr/bin/newlisp
# prodcons.lsp -  Producer/consumer
#
# usage of 'fork', 'wait-pid', 'semaphore' and 'share'
 
(when (= ostype "Windows")
    (println "this will not run on Windows OS")
    (exit))
 
(constant 'wait -1 'sig 1 'release 0)
 
(define (consumer n)
    (set 'i 0)
    (while (< i n)
        (semaphore cons-sem wait)
        (println (set 'i (share data)) " <-")
        (semaphore prod-sem sig))
    (exit))
 
(define (producer n)
    (for (i 1 n)
        (semaphore prod-sem wait)
        (println "-> " (share data i))
        semaphore cons-sem sig))
    (exit))
 
(define (run n)
    (set 'data (share))
    (share data 0)
    (set 'prod-sem (semaphore)) ; get semaphores
    (set 'cons-sem (semaphore))
    (set 'prod-pid (fork (producer n))) ; start processes
    (set 'cons-pid (fork (consumer n)))
    (semaphore prod-sem sig) ; get producer started
    (wait-pid prod-pid) ; wait for processes to finish
    (wait-pid cons-pid) ;
    (semaphore cons-sem release) ; release semaphores
    (semaphore prod-sem release))
 
(run 10)
 
(exit)

§

18. Multiprocessing and Cilk(多重処理と Cilk)

マルチプロセッサ CPU 上では、オペレーティング・システムは、生成されたプロセスや子プロセスを最適な状態で異なるプロセッサ・コアに分配しています。newLISP は、プロセス起動の全作業と評価結果の同期された収集をおこなうシンプルな API を提供します。Cilk API は、newLISP で spawnsyncabort として実装されているたった 3 つの関数呼び出しからなります。
On multiprocessor CPUs the operating system will distribute processes and child processes created on different processor cores in an optimized fashion. newLISP offers a simple API which does all the work of launching processes and does the synchronized collection of evaluation results. The Cilk API consists of only 3 function calls, implemented in newLISP as spawn, sync and abort

v.10.1 以来、newLISP のmessage 関数は、親子プロセス間の通信が可能です。これについての詳細は、次の章 19. メッセージ交換 を見て下さい。
Since v.10.1 newLISP's message function enables communications between parent and child processes. For more details about this, see the next chapter 19. Message exchange.

Starting concurrent processes(並列処理の開始)

; calculate primes in a range
(define (primes from to)
    (let (plist '())
    (for (i from to)
        (if (= 1 (length (factor i)))
        (push i plist -1)))
plist))
 
; start child processes
(set 'start (time-of-day))
 
(spawn 'p1 (primes 1 1000000))
(spawn 'p2 (primes 1000001 2000000))
(spawn 'p3 (primes 2000001 3000000))
(spawn 'p4 (primes 3000001 4000000))
 
; wait for a maximum of 60 seconds for all tasks to finish
(sync 60000) ; returns true if all finished in time
; p1, p2, p3 and p4 now each contain a lists of primes

この例は、素数を生成するタスクが小分けされ、並行処理される方法を示しています。全ての spawn 呼び出しはすぐに戻りますが、子プロセスが終了し、結果のリストが4つの変数 p1p4 として利用できるようになるまで、sync がブロックします。
The example shows how the task of generating a range of prime numbers can be organized for parallel processing by splitting the range into sub-ranges. All spawn calls will return immediately, but sync will block until all child processes have finished and the result lists are available in the four variables p1 to p4.

Watching progress(進捗の監視)

指定されたタイムアウト値が全プロセス終了より短い時、syncnil を返します。これは、進捗状況の監視に使えます:
When the timeout value specified is too short for all processes to finish, sync will return nil. This can be used to watch progress:

; print a dot after each 2 seconds of waiting
(until (sync 2000) (println "."))

sync がパラメータ無しで呼ばれた時は、まだ実行中のプロセスの ID がリストで返ります。
When sync is called without parameters, it returns a list of still active process ids:

; show a list of pending process ids after
;each three-tenths of a second
(until (sync 300) (println (sync)))

Invoking spawn recursively(spawn の再帰的呼び出し)

(define (fibo n)
    (let (f1 nil f2 nil)
        (if (< n 2) 1
            (begin
                (spawn 'f1 (fibo (- n 1)))
                (spawn 'f2 (fibo (- n 2)))
                (sync 10000)
                (+ f1 f2)))))
 
(fibo 7)  → 21
(訳注:spawn の引数のシンボルが local(または let)で定義されていることに要注意かも)

Event driven notification(イベント駆動通知)

spawn で起動されたプロセスが終了する時、sync 宣言文で指定された inlet 関数が呼び出されます。
When processes launched with spawn finish, an inlet function specified in the sync statement can be called.

(define (report pid)
    (println "process: " pid " has returned"))
 
; call the report function, when a child returns
(sync 10000 report)

§

19. Message exchange(メッセージ交換)

親プロセスと spawn で開始した子プロセスはメッセージを交換できます。メッセージは、親から子プロセス、子プロセスから親のどちらの方向にも渡せます。親プロセスでメッセージを評価することを用いて、子プロセス同士間のメッセージ経路を制御するプロキシとして親プロセスを使えます。
Parent and child processes started with spawn can exchange messages. Messages flow either from the parent to child processes or from child processes to the parent. By means of evaluating messages in the parent process, the parent process can be used as a proxy routing messages between child peers.

newLISP の内部では親と子のプロセス間の二重メッセージ・キューとして UNIX ローカル・ドメイン・ソケットを使っています。キューの受信側が空の時、receive 呼び出しは nil を返します。同様にキューが満杯の時の send 呼び出しも nil を返します。ブロッキング動作に sendreceive 宣言文を使うのにループ関数 until が使えます。
Internally newLISP uses UNIX local domain sockets for dual message queues between parent and child processes. When the receiving side of a queue is empty a receive call will return nil. Likewise when a queue is full, a send call will return nil. The looping function until can be used to make send and receive statements blocking.

Blocking message sending and receiving(ブロッキングメッセージの送受信)

     ; blocking sender
     (until (send pid msg))     ; true when a msg queued up
 
     ; blocking receiver
     (until (receive pid msg))  ; true after a msg is read

Blocking message exchange(ブロッキング・メッセージ交換)

親プロセスは、子プロセスの全ID でループし、(until (receive cpid msg)) を使い、receive から未決のメッセージを待ちます。(sync)spawn で開始した子プロセスの全IDを返します。 通知メッセージを探します。次の例では、メッセージ呼び出しはブロックされ、同期します。
The parent process loops through all child process IDs and uses the (until (receive cpid msg)) form of receive to wait for pending messages. (sync) returns a list of all child PIDs from processes launched by spawn.

#!/usr/bin/newlisp 

; child process transmits random numbers
(define (child-process)
    (set 'ppid (sys-info -4)) ; get parent pid
    (while true
        (until (send ppid (rand 100))))
)

; parent starts 5  child processes, listens and displays
; the true flag enables usage of send and receive 

(dotimes (i 5) (spawn 'result (child-process) true))

(for (i 1 3)
    (dolist (cpid (sync)) ; iterate thru pending child PIDs
        (until (receive cpid msg))
        (print "pid:" cpid "->>" (format "%-2d  " msg)))
    (println)
)

(abort) ; cancel child-processes
(exit)

このような出力を生成します:
generates this output:

pid:53181->47  pid:53180->61  pid:53179->75  pid:53178->39  pid:53177->3
pid:53181->59  pid:53180->12  pid:53179->20  pid:53178->77  pid:53177->47
pid:53181->6   pid:53180->56  pid:53179->96  pid:53178->78  pid:53177->18

Non Blocking message exchange(ノン・ブロッキング・メッセージ交換)

子プロセスの送信も親プロセスの受信もどちらもブロックされません。可能な限り早いメッセージの送受信が行われます。全てのメッセージが配送されるという保証はありません。送信キューの大きさと親プロセスのメッセージ取り出し速度次第です。子プロセスの送信キューが満杯なら、(send ppid (rand 100)) は失敗し、nil を返します。
Neither the sending child process nor the receiving parent process block. Each sends and receives messages as fast as possible. There is no guarantee that all messages will be delivered. It depends on the size of the sending queue and the speed of pick-up of messages by the parent process. If the sending queue for a child process is full, the (send ppid (rand 100)) call will fail and return nil.

#!/usr/bin/newlisp

; child process transmits random numbers non-blocking
; not all calls succeed
(set 'start (time-of-day))
 
(define (child-process)
    (set 'ppid (sys-info -4)) ; get parent pid
    (while true
        (send ppid (rand 100)))
)
 
; parent starts 5  child processes, listens and displays
(dotimes (i 5) (spawn 'result (child-process) true))
 
(set 'N 1000)
 
(until finished
    (if (= (inc counter) N) (set 'finished true))
    (dolist (cpid (receive)) ; iterate thru ready child pids
        (receive cpid msg)
    (if msg (print "pid:" cpid "->" (format "%-2d  \r" msg))))
)
 
(abort) ; cancel child-processes
(sleep 300)
 
(exit)

Message timeouts(メッセージのタイムアウト)

メッセージ宣言文は、一定時間ブロックされます:
A messaging statement can be made to block for a certain time:

(define (receive-timeout pid msec)
    (let ( (start (time-of-day)) (msg nil))
        (until (receive pid msg)
            (if (> (- (time-of-day) start) 1000) (throw-error "timeout")))
    msg)
)
; use it
    
(receive-timeout pid 1000)  ; return message or throw error after 1 second

この例では、ブロッキングは 1000ms 起こります。タイムアウトの実装には、多くの方法があります。
In this example blocking will occur for 1000 ms. Many methods exist to implement timeout behavior.

Evaluating messages(メッセージの評価)

メッセージは受信環境で評価される式を持つことができます。この方法で変数を評価環境に設定でき、メッセージを他のプロセスに送ることができます。次の例は、メッセージ・ルーターを実装しています:
Messages sent can contain expressions which can be evaluated in the recipient's environment. This way variables can be set in the evaluator's environment, and messages can be routed to other processes. The following example implements a message router:

#!/usr/bin/newlisp

; sender child process of the message
(set 'A (spawn 'result 
    (begin
        (dotimes (i 3)
            (set 'ppid (sys-info -4))
            /* the following statement in msg will be evaluated in the proxy */
            (set 'msg '(until (send B (string "greetings from " A))))
            (until (send ppid msg)))
        (until (send ppid '(begin 
            (sleep 200) ; make sure all else is printed
            (println "parent exiting ...\n")
            (set 'finished true))))) true)) 

; receiver child process of the message
(set 'B (spawn 'result 
    (begin
        (set 'ppid (sys-info -4))
        (while true
            (until (receive ppid msg))
            (println msg)
            (unless (= msg (string "greetings from " A))
                (println "ERROR in proxy message: " msg)))) true))

(until finished (if (receive A msg) (eval msg))) ; proxy loop

(abort)
(exit)

Acting as a proxy(プロキシ動作)

最後の例のプログラム式:
In the last example program the expression:

; content of message to be evaluated by proxy
(until (send B (string "greetings from " A)))

プログラム宣言文が子プロセスID A から親に送られ、そこで評価されて、子プロセス B に送るメッセージが生じます。親プロセスは子プロセスのとって、プロキシ代行者のように振舞います。
A programming statement sent from child process ID A to the parent, where it is evaluated, causing a message to be sent to child process B. The parent process acts as a proxy agent for the child process A.

; the set statement is evaluated in the proxy
(until (send ppid '(set 'finished true)))

(set 'finished true) が親に送られ、そこで評価されると、親の until ループは終了します。
The expression (set 'finished true) is sent to the parent where it gets evaluated and causes the parent's until loop to finish.

A プロセスの sleep 宣言文は、全ての受信メッセージが B で識別されるプロセスによって報告される前に、メッセージ "parent exiting ..." が現れないことを確実にします。
The sleep statement in the A process ensures that the "parent exiting ..." message does not appear before all received messages are reported by process identified with B.


§

20. Databases and lookup tables(データベースとテーブル探索)

数百に満たないエントリーの小さいテープルでは、連想リストが使えます。大規模なデータベースでは、11章で記述されている辞書とハッシュを使います。
For smaller tables of not more than a few hundred entries association lists can be used. For larger databases use dictionaries and hashes as described in chapter 11.

Association lists(連想リスト)

連想リストは、連想検索用に情報を保存する古典的な LISP のデータ構造です:
The association list is a classic LISP data structure for storing information for associative retrieval:

; creating association lists
; pushing at the end with -1 is optimized and
; as fast as pushing in front
 
(push '("John Doe" "123-5555" 1200.00) Persons -1)
(push '("Jane Doe" "456-7777" 2000.00) Persons -1)
.....
 
Persons →  (
("John Doe" "123-5555" 1200.00)
("Jane Doe" "456-7777" 2000.00) ...)
 
; access/lookup data records
(assoc "John Doe" Persons)
 
→ ("John Doe" "123-5555" 1200.00 male)
 
(assoc "Jane Doe" Persons)
 
→ ("Jane Doe" "456-7777" 2000.00 female)

newLISP は、表計算ソフトで使われるような lookup 関数を持っています。assocnth の組み合わせのように動作するこの関数は、連想を見つけ、同時に、データ・レコードの特定された要素を取り出します:
newLISP has a lookup function similar to what is used in spreadsheet software. This function which works like a combination of assoc and nth can find the association and pick a specific member of the data record at the same time:

(lookup "John Doe" Persons 0)   → "123-555"
(lookup "John Doe" Persons -1)  → male
(lookup "Jane Doe" Persons 1)   → 2000.00
(lookup "Jane Doe" Persons -2)  → 2000.00
 
; update data records
(setf (assoc "John Doe" Persons)
    '("John Doe" "123-5555" 900.00 male))
 
; replace as a function of existing/replaced data
(setf (assoc "John Doe" Persons) (update-person $it))
 
; delete data records
(replace (assoc "John Doe" Persons) Persons)

Nested associations(入れ子の連想)

連想のデータ部分が連想リストなら、入れ子の連想リストであって:
If the data part of an association is itself an association list, we have a nested association:

(set 'persons '(
    ("Anne" (address (country "USA") (city "New York")))
    ("Jean" (address (country "France") (city "Paris")))
))

関数 assoc の別の構文を使います:
A different syntax of the assoc function can be used to specify multiple keys:

; one key
(assoc "Anne" persons) → ("Anne" (address (country "USA") (city "New York")))
 
; two keys
(assoc '("Anne" address) persons) → (address (country "USA") (city "New York"))
 
; three keys
(assoc '("Anne" address city) persons) → (city "New York")
 
; three keys in a vector
(set 'anne-city '("Anne" address city))
(assoc anne-city persons) → (city "New York")

newLISP の FOOP (Functional Object Oriented Programming) オブジェクトでは、全てのキーが、例えば address, country, city のようなシンボルの時、単純な連想リストと入れ子の連想リストは同じフォーマットを持ちます。詳細は、ユーザー・マニュアルの "18. Functional-object oriented programming(関数的オブジェクト指向プログラミング)" の章を見て下さい。
When all keys are symbols, as is in address, country and city, simple and nested associations in newLISP have the same format as newLISP FOOP (Functional Object Oriented Programming) objects. See the users manual chapter "18. Functional object-oriented programming" for details.

Updating nested associations(入れ子の連想の更新)

単純及び入れ子連想リストの更新に関数 assocsetf を使うことができます:
The functions assoc and setf can be used to update simple or nested associations:

(setf (assoc '("Anne" address city) persons) '(city "Boston")) → (city "New York")

setf は、常に新たにセットされた要素を返します。
setf always returns the newly set element.

Combining associations and hashes(連想結合とハッシュ)

キーでアクセスするメモリ内データベースを形成するために、ハッシュと FOOP オブジェクトを組み合わせて使うことができます。
Hashes and FOOP objects can be combined to form an in-memory database with keyed access.

次の例は、データ・レコードがハッシュの名前空間に保存され、キーとして個人名を使いアクセスします。
In the following example, data records are stored in a hash namespace and access is with the name of the person as a key.

setflookup を FOOP オブジェクトの更新に使います:
setf and lookup are used to update nested FOOP objects:

(new Tree 'Person)
(new Class 'Address)
(new Class 'City)
(new Class 'Telephone)
 
 
(Person "John Doe" (Address (City "Small Town") (Telephone 5551234)))
 
(lookup 'Telephone (Person "John Doe"))
(setf (lookup 'Telephone (Person "John Doe")) 1234567)
(setf (lookup 'City (Person "John Doe")) (lower-case $it))
 
(Person "John Doe") → (Address (City "small town") (Telephone 1234567))

§

21. Distributed computing(分散処理)

現在では多くのアプリケーションが、ネットワークを通していくつかのコンピュータで分散処理されているか、同一 CPU 上の数個のプロセッサで分散処理されています。あるいは、アプリケーションを分散処理する両方の方法が同時に使われています。
Many of todays applications are distributed on to several computers on the network or distributed on to several processes on one CPU. Often both methods of distributing an application are used at the same time.

newLISP は、多くの式を newLISP が走っている異なるネットワーク・ノードやプロセッサで並列評価する便宜をはかります。関数 net-eval は、評価する式を配布し、ブロッキングまたはイベント駆動のどちらの状況下でも結果を集めるという、他のノードと通信に必要な全ての作業を行ないます。
newLISP has facilities to evaluate many expressions in parallel on different network nodes or processes running newLISP. The net-eval function does all the work necessary to communicate to other nodes, distribute expressions for evaluation and collect results in either a blocking or event driven fashion.

関数 read-file, write-file, append-file, delete-file では、ファイル指定に URL を使えば、リモート・ノードのファイルのアクセスに使うこともできます。同様な方法で、関数 loadsave は、リモート・ノードからのローダやリモート・ノードへのセーブに使えます。
The functions read-file, write-file, append-file and delete-file can also be used to access with files on remote nodes when using URLs in file specifications. In a similar way the functions load and save can be used to load and save code from and to remote nodes.

この機能を実装するために、newLISP は既存の HTTP プロトコルと newLISP コマンド・ライン動作を使います。これは、terminal、telnet あるいはウェブ・ブラウザのような標準 UNIX アプリケーションを使ってプログラムをデバックしたり、テストしたりできることを意味します。 また、newLISP で構築した分散アプリケーションを他のツールやプログラムに簡単に統合することを可能にします。例えば、Unix ユーティリティの netcat (nc) はリモートで式を評価するのに使え、ウェブ・ブラウザは newLISP サーバーの走っているノードからウェブページを取り出すのに使えます。
newLISP uses existing HTTP protocols and newLISP command line behavior to implement this functionality. This means that programs can be debugged and tested using standard UNIX applications like terminal, telnet or a web browser. This also enables easy integration of other tools and programs into distributed applications built with newLISP. For example the Unix utility netcat (nc) could be used to evaluate expressions remotely or a web browser could be used to retrieve webpages from nodes running a newLISP server.

Setting up in server mode(サーバー・モードの設定)

newLISP サーバー・ノードは、本質的には一つのネットワーク・ポートを待ち受ける newLISP のプロセスで、newLISP コマンド・ラインのように動作する HTTP の GET, PUT, POST, DELETE 要求のための HTTP サーバーです。バージョウン 9.1 以来、newLISP のサーバー・モードは、GETPOST 要求のどちらかで受け取った CGI クエリにも応答します。
A newLISP server node is essentially a newLISP process listening to a network port and behaving like a newLISP command-line console and HTTP server for HTTP GET, PUT, POST and DELETE requests. Since version 9.1 newLISP server mode also answers CGI queries received by either GET or POST request.

newLISP のサーバー・ノードを開始するには、二つの方法があります。一方はクライアントが違っても状態を持続するステートフル・サーバー・ノードになり、他方は新しいクライアント接続ごとにリロードするステートレス・サーバーです。
Two methods are used to start a newLISP server node. One results in a state full server, maintaining state in between communications with different clients, the other method a server with no state, reloading for every new client connection.

(訳注:ステートレスとステートフルについては、こちらも参考になります。)

Start a state-full server(ステートフル・サーバーを開始する)

newlisp -c -d 4711 &
 
newlisp myprog.lsp -c -d 4711 &
 
newlisp myprog.lsp -c -w /home/node25 -d 4711 &

これで、newLISP はポート 4711 を待ち受けます。(Unix でのみ)& (ampersand) の付加が newLISP にバックグラウンドで走っていることを知らせます。-c スイッチがコマンド・ライン・プロンプトを抑制します。そのため、newLISP は、コマンドラインからの入力のようにポート 4711 を待ち受けるプロンプト無しの newLISP コンソールのように振る舞います。もちろん、他のポートを選択することもできます。Unix では、1024 以下のポートには、管理者権限が必要なことに注意して下さい。
newLISP is now listening on port 4711, the & (ampersand) sign tells newLISP to run in the background (Unix only). The -c switch suppresses command line prompts. newLISP now behaves like a newLISP console without prompts listening on port 4711 for command line like input. Any other available port could have been chosen. Note that on Unix, ports below 1024 need administrator access rights.

二行目は、コードを予めロードする例でもあります。三行目では、-w オプションを使って作業ディレクトリも指定しています。 -w による指定がなければ、開始ディレクトリが作業ディレクトリになります。
The second example also pre-loads code. The third example also specifies a working directory using the -w option. If no working directory is specified using -w, the startup directory is assumed to be the working directory.

各処理後に接続を絶った時、newLISP はプロセスをリセットし、スタックとシグナルを再初期化し、コンテキストを MAIN に戻します。プログラムやシンボル変数の内容だけが保存されます。
After each transaction, when a connection closes, newLISP will go through a reset process, reinitialize stack and signals and go to the MAIN context. Only the contents of program and variable symbols will be preserved.

Stateless server with inetd(inetd とステートレス)

Unix 上で、inetd または xindetd の存在は、ステートレス・サーバーの開始に使われます。この場合、TCP/IP ネット接続は、同時に複数の要求(request)を操作できる能力を持つ専用の Unix ユーティリティで管理されます。inetd または xindetd ユーティリティは、クライアントによって作られた各接続において、新規の newLISP プロセスを開始します。接続が閉じた後、newLISP プロセスは終了します。
On Unix the inetd or xindetd facility can be used to start a stateless server. In this case the TCP/IP net connections are managed by a special Unix utility with the ability to handle multiple requests at the same time. For each connection made by a client the inetd or xinetd utility will start a fresh newLISP process. After the connection is closed the newLISP process will shut down.

ノードが状態を保持することを要求されないことは、newLISP サーバー・ノードにとっても、同時に複数の接続を扱うためにも望ましいことです。
When nodes are not required to keep state, this is the preferred method for a newLISP server node, for handling multiple connections at the same time.

inetd または xindetd プロセス・ノードは、ほとんどの UNIX にある /etc ディレクトリで見つかる設定ファイルを使って設定されることを必要とします。
The inetd or xinetd process needs to be configured using configuration files found in the /etc directory of most UNIX installations.

inetdxinetd のどちらでも、ファイル /etc/services に次の行を設定します:
For both the inetd and xinetd configurations add the following line to the /etc/services file:

net-eval        4711/tcp     # newLISP net-eval requests

4711 以外のポートも与えられることに注意して下さい。
Note that any other port than 4711 could be supplied.

inetd の設定には、ファイル /etc/inetd.conf に次の行も追加します:
When configuring inetd add also the following lines to the /etc/inetd.conf file:

net-eval  stream  tcp  nowait  root  /usr/bin/newlisp -c
 
# as an alternative, a program can also be preloaded
 
net-eval  stream  tcp  nowait  root  /usr/bin/newlisp myprog.lsp -c
 
# a working directory can also be specified
 
net-eval  stream  tcp  nowait  newlisp  /usr/bin/newlisp -c -w /usr/home/newlisp

最後の行は、作業ディレクトリとroot の代わりにユーザー の newlisp も指定しています。newLISP サーバー・ノードのアクセスを指定ユーザーアカウントに制限するよりセキュアなモードになります。
The last line also specified a working directory and a user newlisp instead of the root user. This is a more secure mode limiting newLISP server node access to a specific user account with restricted permissions.

ある種の Unix では、inetd の現代的な変種である xinetd が使え、次のような設定をファイル /etc/xinet.d/net-eval に追加します。
On some Unix system a modern flavor of inetd: the xinetd facility can be used. Add the following configuration to a file /etc/xinet.d/net-eval:

service net-eval
    {
    socket_type = stream
    wait = no
    user = root
    server = /usr/bin/newlisp
    port = 4711
    server_args = -c -w /home/node
    }

他の場所からのアクセス制限や特定ユーザーへの限定アクセスのために、様々なパラメータの組み合わせが可能であることに注意して下さい。詳細は、inetdxinetd のマニュアル・ページを調べて下さい。
Note that a variety of parameter combinations are possible to restrict access from different places or limit access to certain users. Consult the man-pages for inetd and xinetd for details.

inetd または xinetd の設定後、プロセスは設定ファイル再読み込みのために再スタートが必要です。これは、Unix kill または Unix nohup ユーティリティを使って、Unix HUP シグナルをinetdxinetd プロセスに送ることで達成できます。
After configuring inetd or xinetd either process must be restarted to re-read the configuration files. This can be accomplished by sending the Unix HUP signal to either the inetd or xinetd process using the Unix kill or Unix nohup utility.

macOS では launchd 機能が同じように使えます。newLISP 配布ソースのディレクトリ util/org.newlisp.newlisp.plist ファイルがあります。このファイルは OS 起動中に newLISP サーバーを起動するために使うことができます。
On macOS the launchd facility can be used in a similar fashion. The newLISP source distribution contains the file org.newlisp.newlisp.plist in the util/ directory. This file can be used to launch newlisp server during OS boot time as a persistent server.

Test the server with telnet(telnet でサーバーをテストする)

Unix ユーティリティ telnet を使って、newLISP サーバー・ノードをテストできます:
A newLISP server node can be tested using the Unix telnet utility:

telnet localhost 4711
 
; or when running on a different computer i.e. ip 192.168.1.100
 
telnet 192.168.1.100 4711

複数行の式をタグ [cmd], [/cmd] で囲んで入力できます。この時、タグは開始も終了も、独立した一行でなければなりません。newLISP は、バージョン10.3.0 からインターラクティブ・シェル用の新マルチ・ライン・モードという第二の方法を持っていますが、netcat や他の Unix ユーティリティを使う時は、まだ複数行の式を [cmd], [/cmd] タグで囲む必要があります。
Multi-line expressions can be entered by enclosing them in [cmd], [/cmd] tags, each tag on a separate line. Both the opening and closing tags should be on separate lines. Although newLISP has a second, new multi-line mode for the interactive shell since version 10.3.0 without tags, when using netcat or other Unix utilities, multi-line expressions still have to be enclosed in [cmd], [/cmd] tags.

Test with netcat on Unix(Unix の netcat でテストする)

echo '(symbols) (exit)' | nc localhost 4711

あるいは、リモート・ノードと対話します:
Or talking to a remote node:

echo '(symbols) (exit)' | nc 192.168.1.100 4711

どちらの例でも、 netcat(symbols) 式の評価結果をエコー・バックします。
In both examples netcat will echo back the result of evaluating the (symbols) expression.

複数行の式をタグ [cmd], [/cmd] で囲んで入力できます。この時、タグは開始も終了も、独立した一行でなければなりません。
Multi-line expressions can be entered by enclosing them in [cmd], [/cmd] tags, each tag on a separate line.

Test from the command line(コマンド・ラインからテストする)

構文としての net-eval は一つのリモート・サーバー・ノードのみへの接続を形成します。このモードは、newLISP コマンド・ラインから素早くテストするのに役立ちます:
The net-eval function as a syntax form for connecting to only one remote server node. This mode is practical for quick testing from the newLISP command line:

(net-eval "localhost" 4711 "(+ 3 4)" 1000) → 7
 
; to a remote node
 
(net-eval "192.168.1.100" 4711 {(upper-case "newlisp")} 1000) → "NEWLISP"

二番目の例では、評価するプログラム文字列を囲むのに波括弧 {,} を使っています。この方法で、式内の文字列を囲むのにクォートを使えるようになります。
In the second example curly braces {,} are used to limit the program string for evaluation. This way quotes can be used to limit a string inside the expression.

複数行の式を送る際、[cmd], [/cmd] タグは必要ありません。net-eval が自動的に挿入します。
No [cmd], [/cmd] tags are required when sending multi-line expressions. net-eval supplies these tags automatically.

Test HTTP with a browser(ブラウザで HTTP をテストする)

newLISP は簡単な HTTP の GETPUT 要求も受け付けます。ブラウザのアドレス・バーに次のファイルのフル・パスを入力してみて下さい:
A newLISP server also understands simple HTTP GET and PUT requests. Enter the full path of a file in the address-bar of the browser:

http://localhost:4711//usr/share/newlisp/doc/newlisp_manual.html

マニュアル・ファイルの大きさはおよそ 800K バイトで、ブラウザにロードされるには、数秒かかります。ホスト名またはホスト IP にコロンをつけて、ポート番号を指定して下さい。ファイルのアドレスをルート・ディレクトリから相対的に指定するために、二重のスラッシュの指定が必要なことに注意して下さい。
The manual file is almost 800 Kbyte in size and will take a few seconds to load into the browser. Specify the port-number with a colon separated from the host-name or host IP. Note the double slash necessary to specify a file address relative to the root directory.

Evaluating remotely(リモート評価)

newLISP サーバー・モードが正常にインストールされたかのテストの際、評価用にリモート・ノードに式を送っていました。異なるノードでリモート評価するために長いタスクを短いサブタスクに分割して多数のリモート評価を使います。
When testing the correct installation of newLISP server nodes, we were already sending expressions to remote node for evaluation. Many times remote evaluation is used to split up a lengthy task into shorter subtasks for remote evaluation on different nodes.

単純な複数の式をリモートに評価している最初の例はつまらないものですが、使用原理をわかりやすく示しています:
The first example is trivial, because it only evaluates several very simple expressions remotely, but it demonstrates the principles involved easily:

#!/usr/bin/newlisp
 
(set 'result (net-eval '(
    ("192.168.1.100" 4711 {(+ 3 4)})
    ("192.168.1.101" 4711 {(+ 5 6)})
    ("192.168.1.102" 4711 {(+ 7 8)})
    ("192.168.1.103" 4711 {(+ 9 10)})
    ("192.168.1.104" 4711 {(+ 11 12)})
) 1000))
 
 
(println "result: " result)
 
(exit)

このプログラムを走らせると、次のような出力を得ます:
Running this program will produce the following output:

result: (7 11 15 19 23)

Unix を走らせ、newLISP サーバーで構成された inetd または xinetd を使っている時、全ての IP 番号を "localhost" か同じローカル IP 番号に置き換えることで、サーバーとプログラムを一つの CPU 上でのみ走らせることができます。indetd または xinetd デーモンは、5個の独立した newLISP プロセスを開始します。Win32 では同じ実行に、5個のステートフル newLISP サーバーを異なるポートで開始します。
When running Unix and using an inetd or xinetd configured newLISP server, the servers and programs can be run on just one CPU, replacing all IP numbers with "localhost" or the same local IP number. The indetd or xinetd daemon will then start 5 independent newLISP processes. On Win32 5 state-full newLISP servers could be started on different port numbers to accomplish the same.

net-eval の戻り値を一度に全部集める代わりに、結果が利用できるようなった時、受け取り処理するコールバック関数が使えます:
Instead of collecting all results at once on the return of net-eval, a callback function can be used to receive and process results as they become available:

#!/usr/bin/newlisp
 
(define (idle-loop p)
    (if p (println p)))
 
(set 'result (net-eval '(
    ("192.168.1.100" 4711 {(+ 3 4)})
    ("192.168.1.101" 4711 {(+ 5 6)})
    ("192.168.1.102" 4711 {(+ 7 8)})
    ("192.168.1.103" 4711 {(+ 9 10)})
    ("192.168.1.104" 4711 {(+ 11 12)})
) 1000 idle-loop))
 
(exit)

net-eval が結果を待っている間、関数 idle-loop はパラメータ p を伴って繰り返し呼び出されます。パラメータ p は 1000ミリ秒間中、結果がない時の nil か、リモート・ノードから送り返されたリストが入ります。リストには、リモート・アドレスとポートと評価結果が入っています。上記例は、次のような出力を生成します:
While net-eval is waiting for results, it calls the function idle-loop repeatedly with parameter p. The parameter p is nil when no result was received during the last 1000 milli seconds, or p contains a list sent back from the remote node. The list contains the remote address and port and the evaluation result. The example shown would generate the following output:

("192.168.1.100" 4711 7)
("192.168.1.101" 4711 11)
("192.168.1.102" 4711 15)
("192.168.1.103" 4711 19)
("192.168.1.104" 4711 23)

一つの CPU でのみテストする際は、全アドレスを "localhost" に置き換えます。Unix の inetd または xinetd デーモンは各接続に対して全てポート 4711 の待ち受けで個別のプロセスを開始します。同じ Win32 でステートフル・サーバーを使った時は、CPU は各サーバーに異なるポート番号を指定します。
For testing on just one CPU, replace addresses with "localhost"; the Unix inetd or xinetd daemon will start a separate process for each connection made and all listening on port 4711. When using a state-full server on the same Win32 CPU specify a different port number for each server.

Setting up the 'net-eval' parameter structure(関数net-eval パラメータ構成の設定)

アプリケーションが絶えず移動している、または、IP番号が切り替わるサーバー・ノードが使われているネットワーク環境では、net-eval パラメータ・リスト中のノード・パラメータの設定が変数として必要です。以下の込み入った例でその様子が示されます。また、この例では、大規模なプログラム・テキストがリモート・ノードに転送され、このプログラム部品が異なる各ノード用にカスタマイズされていく様子が示されます:
In a networked environment where an application gets moved around, or server nodes with changing IP numbers are used, it is necessary to set up the node parameters in the net-eval parameter list as variables. The following more complex example shows how this can be done. The example also shows how a bigger piece of program text can be transferred to a remote node for evaluation and how this program piece can be customized for each node differently:

#!/usr/bin/newlisp
 
; node parameters
(set 'nodes '(
    ("192.168.1.100" 4711)
    ("192.168.1.101" 4711)
    ("192.168.1.102" 4711)
    ("192.168.1.103" 4711)
    ("192.168.1.104" 4711)
))
 
; program template for nodes
(set 'program [text]
    (begin
        (map set '(from to node) '(%d %d %d))
        (for (x from to)
		(if (= 1 (length (factor x)))
        (push x primes -1)))
    primes)
[/text])
 
; call back routine for net-eval
(define (idle-loop p)
    (when p
        (println (p 0) ":" (p 1))
        (push (p 2) primes))
)
 
(println "Sending request to nodes, and waiting ...")
 
; machines could be on different IP addresses.
; For this test 5 nodes are started on localhost
(set 'result (net-eval (list
    (list (nodes 0 0) (nodes 0 1) (format program 0 99999 1))
    (list (nodes 1 0) (nodes 1 1) (format program 100000 199999 2))
    (list (nodes 2 0) (nodes 2 1) (format program 200000 299999 3))
    (list (nodes 3 0) (nodes 3 1) (format program 300000 399999 4))
    (list (nodes 4 0) (nodes 4 1) (format program 400000 499999 5))
) 20000 idle-loop))
 
(set 'primes (sort (flat primes)))
(save "primes" 'primes)
 
(exit)

プログラムの先頭で nodes リストの構造は、ホスト名とポートの関連するノード情報が全て得ています。
At the beginning of the program a nodes list structure contains all the relevant node information for hostname and port.

program は与えられた範囲にある素数を算出します。変数 fromtonodeformat を使ってプログラム・テキスト中に設定されます。全ての命令は begin 式ブロック内に置かれ、結果が一つの式のみでリモートノードから送り返されます。
The program calculates all prime numbers in a given range. The from, to and node variables are configured into the program text using format. All instructions are placed into a begin expression block, so only one expression result will be send back from the remote node.

net-eval パラメータの設定には、その他多くの構成が可能です。次の構成は idle-loop 無しで同様の結果を与えます:
Many other schemes to configure a net-eval parameter list are possible. The following scheme without idle-loop would give the same results:

(set 'node-eval-list (list
    (list (nodes 0 0) (nodes 0 1) (format program 0 99999 1))
    (list (nodes 1 0) (nodes 1 1) (format program 100000 199999 2))
    (list (nodes 2 0) (nodes 2 1) (format program 200000 299999 3))
    (list (nodes 3 0) (nodes 3 1) (format program 300000 399999 4))
    (list (nodes 4 0) (nodes 4 1) (format program 400000 499999 5))
))
 
(set 'result (net-eval node-eval-list  20000))

関数 idle-loop は受け取った素数リストを全ての集め、次の出力を生成します:
The function idle-loop aggregates all lists of primes received and generates the following output:

192.168.1.100:4711
192.168.1.101:4711
192.168.1.102:4711
192.168.1.103:4711
192.168.1.104:4711

多数のネットワーク・ホストの配布環境に展開する前に配布アプリケーションを単一ホスト上でテストするために、前述の例のように全 IP 番号を "localhost" や他のホスト名や IP 番号に置き換えることができます。
As with the previous examples all IP numbers could be replaced with "localhost" or any other host-name or IP number to test a distributed application on a single host before deployment in a distributed environment with many networked hosts.

Transferring files(ファイル転送)

ローカル・ファイル・システムのファイルの読み書きに使える関数群で、リモート・ノードのファイルの読み書きが可能です。この機能は、現在のところ、newLISP サーバーと通信中のUnix システムでのみ利用可能です。これらの関数は GETPUT という標準の HTTP プロトコルに基づいているので、ウェブ・サーバーへの通信にも使えます。デフォルトで PUT プロトコルを利用可能にしている Apache ウェブ・サーバーは少ないことに注意して下さい。
Files can be read from or written to remote nodes with the same functions used to read and write files to a local file system. This functionality is currently only available on Unix systems when talking to newLISP servers. As functions are based on standard GET and PUT HTTP protocols they can also be used communicating with web servers. Note that few Apache web-server installations have enabled the PUT protocol by default.

関数 read-filewrite-fileappend-file は、newLISP サーバーやウェブ・サーバーの走っているリモート・ノードに読み書きする際、ファイル名指定に URL を取ることができます:
The functions read-file, write-file and append-file can all take URLs in their filename specifications for reading from and writing to remote nodes running a newLISP server or a web-server:

(write-file "http://127.0.0.1:4711//Users/newlisp/afile.txt" "The message - ")
→ "14 bytes transferred for /Users/newlisp/afile.txt\r\n"
 
(append-file "http://127.0.0.1:4711//Users/newlisp/afile.txt" "more text")
→ "9 bytes transferred for /Users/newlisp/afile.txt\r\n"
 
(read-file "http://127.0.0.1:4711//Users/newlisp/afile.txt")
→ "The message - more text"

最初の二つの関数は転送したバイト数から始まるメッセージを返します。関数 read-file は受け取った内容を返します。
The first two function return a message starting with the numbers of bytes transferred and the name of the remote file affected. The read-file function returns the contents received.

エラーが起こった時は、文字列 ERR: で始まるエラー・メッセージが返されます:
Under all error conditions an error message starting with the characters ERR: would be returned:

(read-file "http://127.0.0.1:4711//Users/newlisp/somefile.txt")
→ "ERR:404 File not found: /Users/newlisp/somefile.txt\r\n"

サーバー・ノード上の root からファイルを相対的に参照する際は、二重のバックスラッシュが必要なことに注意して下さい。
Note the double backslash necessary to reference files relative to root on the server node.

全てに関数は、セロ文字を含む非アスキーのバイナリ情報を転送するのに使えます。newLISP は内部で read-filewrite-fileappend-fileの代わりに get-urlput-url を使っています。get-urlput-url で使われる付加オプションが、read-filewrite-fileappend-file でも使えます。詳細は、newLISP 関数リファレンスでこれらの関数を見て下さい。
All functions can be used to transfer binary non-ascii contents containing zero characters. Internally newLISP uses the functions get-url and put-url, which could be used instead of the functions read-file, write-file and append-file. Additional options like used with get-url and put-url could be used with the functions read-file, write-file and append-file as well. For more detail see the newLISP function reference for these functions.

Loading and saving data(データのロードとセーブ)

リモート・ノードへのロードやセーブに、ローカル・ファイル・システムからプログラムや LISP データをロードするのに使うのと同じ関数 loadsave が使えます。
The same load and save functions used to load program or LISP data from a local file system can be used to load or save programs and LISP data from or to remote nodes.

ファイル指定に URL を使うことで、loadsave はnewLISP サーバー・ノードとのネットワーク通信上で動作します:
By using URLs in the file specifications of load and save these functions can work over the network communicating with a newLISP server node.:

(load "http://192.168.1.2:4711//usr/share/newlisp/mysql5.lsp")
 
(save "http://192.168.1.2:4711//home/newlisp/data.lsp" 'db-data)

ファイル・パスの代わりに URL を使っても、関数 loadsave は内部動作で get-urlput-url を使っているので、ローカル・ファイル・システムで使う時と同様に確実に動作します。両関数とも接続が確立しなかった場合、60秒後にタイムアウトします。きめ細かい操作が必要な時は、関数 get-urlput-url を HTTP モードでの loadsave と同等の機能を実現する eval-stringsource と一緒に使って下さい。
Although the load and save functions internally use get-url and put-url to perform its works they behave exactly as when used on a local file system, but instead of a file path URLs are specified. Both function will timeout after 60 seconds if a connection could not be established. When finer control is necessary use the functions get-url and put-url together with eval-string and source to realize a similar result as when using the load and save in HTTP mode.

Local domain Unix sockets(ローカル・ドメイン Unix ソケット)

newLISP は、newLISP サーバー・モードで組込関数 net-evalnet-listennet-connectnet-acceptnet-receivenet-selectnet-send を一緒に使って、名前付きローカル・ドメイン・ソケットを提供します。
newLISP supports named local domain sockets in newLISP server mode and using the built-in functions net-eval, net-listen, net-connect together with the functions net-accept, net-receive, net-select and net-send.

ローカル・ドメイン・ソケットを使えば、同じファイル・システム上のプロセスとnewLISP サーバー間の高速な通信が可能になります。詳細は、マニュアルで見て下さい。
Using local domain sockets fast communications between processes on the same file system and with newLISP servers is possible. See the Users Manual for more details.


§

22. HTTPD web server only mode(HTTPD ウェブ・サーバー単一モード)

ここまで章では、-c サーバー・モードを使ってきました。このモードは net-eval サーバーとして実行でき、同時に ウェブ・ページの提供やファイルとプログラムの転送などの HTTP 要求に応答します。-c サーバーはファイヤオール下のセキュア操作用の優先モードです。newLISP は、制限された -c モードのように動作する -http モードも持っています。-http モードでは、HTTP 要求のみが提供され整形された要求(request)のようなコマンド・ラインや net-eval 要求には応答しません。このモードでは、newLISP は CGI 要求と同様に HTTP の GETPUTPOSTDELETE 要求に応答するウェブ・サーバーのように動作しますが、インターネット上でのセキュアな動作確保するために権限のないファイルやディレクトリのアクセスを制限します。
In all previous chapters the -c server mode was used. This mode can act as a net-eval server and at the same time answer HTTP requests for serving web pages or transfer of files and programs. The -c mode is the preferred mode for secure operation behind a firewall. newLISP also has a -http mode which works like a restricted -c mode. In -http mode only HTTP requests are served and command-line like formatted requests and net-eval requests are not answered. In this mode newLISP can act like a web server answering HTTP GET, PUT, POST and DELETE requests as well as CGI requests, but additional efforts should be made to restrict the access to unauthorized files and directories to secure the server when exposed to the internet.

Environment variables(環境変数)

-c-http のサーバー・モードのどちらでも、環境変数 DOCUMENT_ROOT, REQUEST_METHOD, SERVER_SOFTWARE, QUERY_STRING が設定されます。変数 CONTENT_TYPE, HTTP_HOST, HTTP_USER_AGENT, HTTP_COOKIE はクライアントから送られてくる HTTP ヘッダに存在する時、設定されます。
In both server modes -c and -http the environment variables DOCUMENT_ROOT, REQUEST_METHOD, SERVER_SOFTWARE and QUERY_STRING are set. The variables CONTENT_TYPE, HTTP_HOST, HTTP_USER_AGENT and HTTP_COOKIE are set too if present in the HTTP header sent by the client.

Pre-processing the request(要求(request)のプリ・プロセス)

newLISP サーバーが(HTTP とコマンド・ラインの)いかなる要求(request)に答える際も、newLISP 関数 command-event を要求(request)のプリ・プロセスに使えます。サーバー開始時に次のようにして、ファイル httpd-conf.lsp からプリ・プロセス関数をロードできます:
When the newLISP server answers any kind of requests (HTTP and command line), the newLISP function command-event can be used to pre-process the request. The pre-processing function can be loaded from a file httpd-conf.lsp when starting the server:

server_args = httpd-conf.lsp -http -w /home/node

上記は xinetd 設定の一部を示しています。スタートアップ・プログラム httpd-conf.lsp は newLISP の起動時にロードされます。-c オプションは -http オプションで置き換えられます。net-eval とコマンド・ラインどちらの要求(request)も応答されず、HTTP 要求のみ応答されます。
The above snippet shows part of a xinetd configuration file. A startup program httpd-conf.lsp has been added which will be loaded upon invocation of newLISP. The -c options has been replaced with the -http option. Now neither net-eval nor command-line requests will be answered but only HTTP requests.

スタートアップ・ファイルは、次の方法でも追加されます。コマンド・シェルからバックグランドでサーバーを開始する時、この時、httpd-conf.lsp はカレント・ディレクトリに置いておきます:
The startup file could also have been added the following way when starting the server in the background from a command shell, and httpd-conf.lsp is in the current directory:

newlisp httpd-conf.lsp -http -d 80 -w /home/www &

全ての要求(request)は command-event を使って指定された httpd-conf.lsp の関数でプリ・プロセスされます:
All requests will be pre-processed with a function specified using command-event in httpd-conf.lsp:

; httpd-conf.lsp
;
; filter and translate HTTP request for newLISP
; -c or -http server modes
; reject query commands using CGI with .exe files
 
(command-event (fn (s)
    (let (request nil)
    (if (find "?" s) ; is this a query
        (begin
            (set 'request (first (parse s "?")))
            ; discover illegal extension in queries
            (if (ends-with request ".exe")
                (set 'request "GET /errorpage.html")
                (set 'request s)))
        (set 'request s))
    request)
))
 ; eof

.exe で終わるファイルの CGI要求は排除され、エラー・ページの要求(request)に変換されます。
All CGI requests files ending with .exe would be rejected and the request translated into the request of an error page.

CGI processing in HTTP mode(HTTP モードの CGI 処理)

http://www.newlisp.org には、様々な CGI サンプルがあります。http://www.newlisp.org/downloads のダウンロード・ディレクトリには、二つの複雑なアプリケーション、ウェブ・ベースの IDE である newlisp-ide とウェブ・サイト [http://www.newlisp.org www.newlisp.org] で使っている情報処理システム newlisp-wiki があります。
On http://www.newlisp.org various CGI examples can be found. In the download directory at http://www.newlisp.org/downloads two more complex applications can be found: newlisp-ide is a web based IDE and newlisp-wiki is a content management system which also runs the [http://www.newlisp.org www.newlisp.org] website.

CGI プログラム・ファイルは拡張子 .cgi でなければならず、Unix では実行可能のパーミッションが必要です。
CGI program files must have the extension .cgi and have executable permission on Unix.

次の例は、最低限の CGI プログラムです:
The following is a minimum CGI program:

#!/usr/bin/newlisp
 
(print "Content-type: text/html\r\n\r\n")
(println "<h2>Hello World</h2>")
(exit)

newLISP は通常、標準のHTTP/1.0 200 OK\r\nの応答ヘッダに Server: newLISP v. ...\r\n ヘッダ・ラインを追加して出力します。CGI プログラム出力の一行目が "Status:" で始まっているなら、newLISP の標準ヘッダ出力を止めますので、CGI プログラム自身で全てのステータス・ヘッダを供給しなければなりません。次の例は、要求(request)を新しいロケーションにリダイレクトします:
newLISP normally puts out a standard HTTP/1.0 200 OK\r\n response header plus a Server: newLISP v. ...\r\n header line. If the first line of CGI program output starts with "Status:" then newLISP's standard header output is suppressed, and the CGI program must supply the full status header by itself. The following example redirects a request to a new location:

#!/usr/bin/newlisp
(print "Status: 301 Moved Permanently\r\n")
(print "Location: http://www.newlisp.org/index.cgi\r\n\r\n")
(exit)

インストールした newLISP には、cgi.lsp モジュール・ファイルがあります。このモジュールには、HTTP の GET や POST 要求を抽出するためのサブルーチンや抽出、クッキー(cookie)の設定等の CGI ファイルを書く時に役に立つルーチンが入っています。http://www.newlisp.org/modules/ のモジュール・セクションを見て下さい。
A newLISP installation contains a module file cgi.lsp. This module contains subroutines for extracting parameters from HTTP GET and POST requests, extract or set cookies and other useful routines when writing CGI files. See the modules section at: http://www.newlisp.org/modules/.

Media types in HTTP modes(HTTP モードのメディア・タイプ)

-c-http のどちらの HTTP モードでも、以下のファイル・タイプが認識され、正しく定型化された Content-Type: ヘッダーが送り返されます:
In both the -c and -http HTTP modes the following file types are recognized and a correctly formatted Content-Type: header is sent back:

file extensionmedia type
.avivideo/x-msvideo
.csstext/css
.gifimage/gif
.htmtext/htm
.htmltext/html
.jpgimage/jpg
.jsapplication/javascript
.movvideo/quicktime
.mp3audio/mpeg
.mpgvideo/mpeg
.pdfapplication/pdf
.pngimage/png
.wavaudio/x-wav
.zipapplication/zip
any othertext/plain

§

23. Extending newLISP(newLISP の拡張)

newLISPはインポート関数を持っており、Win32 の DLL(Dynamic Link Libraries)や Linux/Unix の共有ライブラリ(拡張子が .so、macOS では .dylib)から関数を導入できます。
newLISP has an Win32 function, which allows importing function from DLLs (Dynamic Link Libraries) on Win32 or shared libraries on Linux/Unix (ending in .so, ending in .dylib on macOS).

Simple versus extended FFI interface(単純 及び 拡張 FFI インターフェイスの比較)

バージョン 10.4.0 で newLISP は、関数 importcallbackstruct の拡張構文および、pack and unpack の補助関数の拡張構文を導入しました。この拡張構文は、libffiを使って構築された newLISP でのみ、利用可能です。www.newlisp.org で配布されている全ての標準バイナリ版では単純 API に加えて新しい拡張機能を使えます。単純 API は、gsl.lsp を除く、標準拡張モジュール全てに使われています。
In version 10.4.0 newLISP introduced an extended syntax for the import, callback and struct functions and for the pack and unpack support functions. This extended syntax is only available on newLISP versions built with libffi. All standard binary versions distributed on www.newlisp.org are enabled to use the new extensions additionally to the simpler API. The simpler API is used by all standard extension modules part of the distribution except for the module gsl.lsp.

拡張構文を使えば、導入関数やコールバックに登録された関数のパラメータや戻り値に対して C 言語の型指定を行なえます。また、拡張構文は、パラメータや戻り値に対する浮動小数点数値や C の構造体の使用を可能にします。単純 API を使った浮動小数点型の取り扱いはできないか信頼できるものではありません。それは、純粋に cdecl 呼び出し規約に頼っていたためです。この規約は全てのプラットフォームで利用できるものではありません。また、拡張構文は異なる CPU アーキテクチャの C の型の自動アライメントで、C 構造体のパックとアンパックを処理できます。関数 packunpack の拡張構文は newLISP ユーザー マニュアルとリファレンスOpenGL demo で見て下さい。
The extended syntax allows specifying C-language types for parameter and return values of imported functions and for functions registered as callbacks. The extended syntax also allows handling of floating point values and C-structures in parameters and returns. Handling of floating point types was either impossible or unreliable using the simple API that depended on pure cdecl calling conventions. These are not available on all platforms. The extended API also handles packing and unpacking of C-structures with automatic alignment of C-types on different CPU architectures. See the extended syntax of the pack and unpack functions in the User Manual and Reference and OpenGL demo.

以下の章には旧式の単純 API が記載されています。その多くは拡張 API でも同じように適用できます。新 API の詳細はnewLISP ユーザー マニュアルとリファレンスで関数importcallbackstructpackunpackを調べて下さい。
The following chapters describe the older simple API. Much of it is applicable to the extended API as well. For details on the new API, consult the User Manual and Reference for the functions import, callback, struct, pack and unpack.

A shared library in C(C の共有ライブラリ)

この章では、Win32 と Linux/Unix プラットフォームの両方での、コンパイルの仕方とライブラリの使い方の両方を紹介します。まず、次の'C' プログラムを使って DLL と Linux/Unix の共有ライブラリにコンパイルしてみましょう。
This chapter shows how to compile and use libraries on both, Win32 and Linux/Unix platforms. We will compile a DLL and a Linux/Unix shared library from the following 'C' program.

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
 
int foo1(char * ptr, int number)
     {
     printf("the string: %s the number: %d\n", ptr, number);
     return(10 * number);
     }
 
char * foo2(char * ptr, int number)
     {
     char * upper;
     printf("the string: %s the number: %d\n", ptr, number);
     upper = ptr;
     while(*ptr) { *ptr = toupper(*ptr); ptr++; }
     return(upper);
     }
 
/* eof */

関数 foo1 と foo2 は、どちらもそれらの引数を出力しますが、foo1 は数字を10倍して返し、foo2 は'C' 関数から文字列を返す方法を示すために、文字列を大文字にして返します。
Both functions foo1 and foo2 print their arguments, but while foo1 returns the number multiplied 10 times, foo2 returns the uppercase of a string to show how to return strings from 'C' functions.

Compile on Unix(Unix 上でコンパイルする)

macOS と Linux/Unix では、ワン・ステップで testlib.so にコンパイルとリンクできます。
On macOS and Linux/Unix we can compile and link testlib.so in one step:

gcc testlib.c -shared -o testlib.so

Mac OSX/darwin では、こうします:
Or On Mac OSX/darwin do:

gcc testlib.c -bundle -o testlib.dylib

testlib.so は、Linux/Unix デフォルトの cdecl 規約で構築されます。ライブラリのインポート自体は、Linux と Win32 のプラットフォームのどちらでもよく似ていますが、Win32 ではライブラリをカレント・ディレクトリに置くことができます。フルパスを指定するか、OS のライブラリ・パスにライブラリを置いておく必要があります。
The library testlib.so will be built with Linux/Unix default cdecl conventions. Importing the library is very similar on both Linux and Win32 platforms, but on Win32 the library can be found in the current directory. You may have to specify the full path or put the library in the library path of the os:

> (import "/home/newlisp/testlib.so" "foo1")
foo1 <6710118F>
 
> (import "/home/newlisp/testlib.so" "foo2")
foo2 <671011B9>
 
> (foo1 "hello" 123)
the string: hello the number: 123
1230
 
> (foo2 "hello" 123)
the string: hello the number: 123
4054088
 
> (get-string (foo2 "hello" 123))
the string: hello the number: 123
"HELLO"
>

さて、foo2 の戻り値は文字列のアドレス・ポインタですので、文字列へのアクセスには get-string を使います。get-string を使うとバイト 0 までの文字が返ります。バイナリ・バッファのアドレスを返す時は、別のテクニック unpack を使って情報にアクセスします。
Again, the number returned from foo2 is the string address pointer and get-string can be used to access the string. When using get-string only character up to a zero byte are returned. When returning the addresses to binary buffers different techniques using unpack are used to access the information.

Compile a DLL on Win32(Win32 の DLL をコンパイルする)

Win32 の DLL は、MinGW、Borland、CYGWIN 等を使って作成できます。ここでは、MinGW コンパイラを使った例を紹介します:
DLLs on Win32 can be made using the MinGW, Borland or CYGWIN compilers. This example shows, how to do it using the MinGW compiler.

コンパイルします:
Compile it:

gcc -c testlib.c -o testlib.o

testlib.o を DLL に変換する前に、エキスポートする関数を宣言する testlib.def が必要です。
Before we can transform testlib.o into a DLL we need a testlib.def declaring the exported functions:

LIBRARY  testlib.dll
EXPORTS
         foo1
         foo2

では、DLL を作ります:
Now wrap the DLL:

dllwrap testlib.o --def testlib.def -o testlib.dll -lws2_32

ライブラリ testlib.dll は、Win32 のデフォルト stdcall 規約で構築されます。次は、ライブラリをインポートし、関数を使うインターラクティブ・セッションです:
The library testlib.dll will be built with default Win32 stdcall conventions. The following shows an interactive session, importing the library and using the functions:

> (import "testlib.dll" "foo1")
foo1 <6710118F>
 
> (import "testlib.dll" "foo2")
foo2 <671011B9>
 
> (foo1 "hello" 123)
the string: hello the number: 123
1230
 
> (foo2 "hello" 123)
the string: hello the number: 123
4054088
 
> (get-string (foo2 "hello" 123))
the string: hello the number: 123
"HELLO"
 
>
; import a library compiled for cdecl
; calling conventions
> (import "foo.dll" "func" "cdecl")

最初に foo2 を使った時の戻り値 4054088 は返された文字列のメモリ・アドレスであることに注意して下さい。get-string を使えば、そのアドレスある文字列にアクセスできます。ライブラリがcdecl 呼出規約を使ってコンパイルされたいるなら、cdecl キーワードを import 式中に使う必要があります。
Note that the first time using foo2 the return value 4054088 is the memory address of the string returned. Using get-string the string belonging to it can be accessed. If the library is compiled using cdecl calling conventions, the cdecl keyword must be used in the import expression.

Importing data structures(構造体データのインポート)

'C' の文字列が文字列ポインタを使って返されるように、'C' の構造体を構造体ポインタを使って返すことができ、そのアクセスに get-stringget-intget-char らの関数を使えます。次の例でそれを紹介します:
Just like 'C' strings are returned using string pointers, 'C' structures can be returned using structure pointers and functions like get-string, get-int or get-char can be used to access the members. The following example illustrates this:

typedef struct mystruc
   {
   int number;
   char * ptr;
   } MYSTRUC;
 
MYSTRUC * foo3(char * ptr, int num )
   {
   MYSTRUC * astruc;
   astruc = malloc(sizeof(MYSTRUC));
   astruc->ptr = malloc(strlen(ptr) + 1);
   strcpy(astruc->ptr, ptr);
   astruc->number = num;
   return(astruc);
   }

newLISP プログラムは次のようにして、構造体のメンバーにアクセスします:
The newLISP program would access the structure members as follows:

> (set 'astruc (foo3 "hello world" 123))
4054280
 
> (get-string (get-integer (+ astruc 4)))
"hello world"
 
> (get-integer astruc)
123
>

foo3 からの戻り値は、astruc 構造体のアドレスです。文字列のポインタにアクセスするには、'C' プログラミング言語の整数型のサイズ 4 を追加します。これで文字列ポインタにある文字列を get-string でアクセスできます。
The return value from foo3 is the address to the structure astruc. To access the string pointer, 4 must be added as the size of an integer type in the 'C' programming language. The string in the string pointer then gets accessed using get-string.

Memory management(メモリ・マネージメント)

導入した外部関数により実行された割り当ては、導入したAPIにその呼び出し(機能)がないなら、マニュアルで解除しなければなりません。libc の関数 free は導入することができ、導入関数内部で割り当てられたメモリを解放するために使われます。
Any allocation performed by imported foreign functions has to be deallocated manually if there's no call in the imported API to do so. The libc function free can be imported and used to free memory allocated inside imported functions:

(import "/usr/lib/libc.so" "free")

(free astruc) ; astruc contains memory address of allocated structure

参照渡しで外部関数を呼び出す場合、変数用のメモリを newLISP 側で予め割り当てておく必要がありますが、それゆえ、メモリはマニュアルで解放する必要はありません。
In case of calling foreign functions with passing by reference, memory for variables needs to be allocated beforehand by newLISP, and hence, memory needs not be deallocated manually.

Unevenly aligned structures(不均一な構造体割付け)

時には、データ構造は一般の CPU レジスタ・ワードと異なる長さのデータ型を持つことがあります:
Sometimes data structures contain data types of different length than the normal CPU register word:

struct mystruct
    {
    short int x;
    int z;
    short int y;
    } data;
 
struct mystruct * foo(void)
    {
    data.x = 123;
    data.y = 456;
    data.z = sizeof(data);
    return(&data);
    }

変数 xy は 16 ビット幅で z のみが 32 ビットを取っています。32 ビット CPU パック上のコンパイラがこの構造体をパックする時、変数 x と y は 16 ビットの代わりに 32 ビットに拡張されます。これは、32 ビット変数 z が適正に配置されるのに必要なことです。次のコードが、この構造体のメンバーのアクセスに必要です:
The x and y variables are 16 bit wide and only z takes 32 bit. When a compiler on a 32-bit CPU packs this structure the variables x and y will each fill up 32 bits instead of the 16 bit each. This is necessary so the 32-bit variable z can be aligned properly. The following code would be necessary to access the structure members:

> (import "/usr/home/nuevatec/test.so" "foo")
foo <281A1588>
 
> (unpack "lu lu lu" (foo))
(123 12 456)

構造体全体では、全てのメンバーがメモリ中の 32 ビット境界に配置されるので、3 × 4 = 12 バイト消費します。
The whole structure consumes 3 by 4 = 12 bytes, because all members have to be aligned to 32 bit borders in memory.

次のデータ構造体はショート 16 ビット変数が互いに隣同士になるようにパックしてあります。この場合、xy 用に各々 2、 z 用に 4 と、8 バイトだけが要求されます。xy が一緒に 32 ビット・ワードに入るので、変数が32 ビット境界にまたがることにならないからです:
The following data structure packs the short 16 bit variables next to each other. This time only 8 bytes are required: 2 each for x and y and 4 bytes for z. Because x and y are together in one 32-bit word, none of the variables needs to cross a 32-bit boundary:

struct mystruct
     {
     short int x;
     short int y;
     int z;
     } data;
 
 struct mystruct * foo(void)
    {
    data.x = 123;
    data.y = 456;
    data.z = sizeof(data);
    return(&data);
    }

この時の構造体メンバーに反映させた newLISP のアクセス・コードは:
This time the access code in newLISP reflects the size of the structure members:

> (import "/usr/home/nuevatec/test.so" "foo")
foo <281A1588>
 
> (unpack "u u lu" (foo))
(123 456 8)

Passing parameters(パタメータの受け渡し)

data Type newLISP call C function call
integer (foo 123) foo(int number)
double float (foo 1.234) foo(double number)
float (foo (flt 1.234)) foo(float number)
string (foo "Hello World!") foo(char * string)
integer array (foo (pack "d d d" 123 456 789)) foo(int numbers[])
float array (foo (pack "f f f" 1.23 4.56 7.89)) foo(float[])
double array (foo (pack "lf lf lf) 1.23 4.56 7.89) foo(double[])
string array (foo (pack "lu lu lu" "one" "two" "three"))) foo(char * string[])

floatsdouble floats は、x86 プラットフォームでcdecl 呼出規約を使った時か printf() のような可変引数関数のポインタ参照によって渡された時のみ正しく受け渡されることに注意して下さい。newLISP ユーザー マニュアルとリファレンス
Note that floats and double floats are only passed correctly on x86 platforms with cdecl calling conventions or when passed by pointer reference as in variable argument functions, i.e: printf(). For reliable handling of single and double precision floating point types and for advanced usage of pack and unpack for handling C-structures, see the descriptions of the import, callback and struct functions in the newLISP User Manual and Reference.

pack はフォーマット指定子の後に複数の引数をリストでも受け取ります:
pack can receive multiple arguments after the format specifier in a list too:

 
(pack "lu lu lu" '("one" "two" "three"))

Extracting return values(戻り値の抽出)

data Type newLISP to extract return value C return
integer (set 'number (foo x y z)) return(int number)
double float n/a - only 32bit returns, use double float pointer instead not available
double float ptr (set 'number (get-float (foo x y z))) return(double * numPtr)
float not available not available
string (set 'string (get-string (foo x y z) return(char * string)
integer array (set 'numList (unpack "ld ld ld" (foo x y z))) return(int numList[])
float array (set 'numList (unpack "f f f" (foo x y z))) return(float numList[])
double array (set 'numList (unpack "lf lf lf") (foo x y z))) return(double numList[])
string array (set 'stringList (map get-string (unpack "ld ld ld" (foo x y z))))return(char * string[])

Floatsdoubles は、アドレス・ポインタ参照を介してのみ返されます。
Floats and doubles can only be returned via address pointer references.

アレイ型の戻り時は、アレイの要素数が既知でなければなりません。上記例では、3 要素の場合を示しています。
When returning array types the number of elements in the array must be known. The examples always assume 3 elements.

全ての pack と unpack はスペースの区切りを必要としませんが、例では読みやすくするためにスペースを入れています。
All pack and unpack and formats can also be given without spaces, but are spaced in the examples for better readability.

"ld""lu" のフォーマットは交換可能ですが、符号無し16ビットからnewLISP の内部整数フォーマットの符号付き32ビットまたは64ビットへ符号拡張する時の符号拡張のために、16 ビット・フォーマットの "u""d" は異なる結果になるかもしれません。
The formats "ld" and "lu" are interchangeable, but the 16-bit formats "u" and "d" may produce different results, because of sign extension when going from unsigned 16 bits to signed 32 or 64-bits bits of newLISP's internal integer format.

(訳例:例えば、0xFFFF を "d" で受け取ると -1、すなわち 0xFFFFFFFF になります。
> (setq x "\xff\xff")
"\255\255"
> (unpack "d" x)
(-1)
> (format "%X" ((unpack "d" x) 0))
"FFFFFFFF"
> (unpack "u" x)
(65535)
> (format "%X" ((unpack "u" x) 0))
"FFFF"

packunpack 間のバイト順(訳注:リトル・エンディアンとビック・エンディアン)を変更するのにフラグが使えます。
Flags are available for changing endian byte order during pack and unpack.

Writing library wrappers(ライブラリ・ラッパーの書き方)

newLISP 組込インポートの単純版では、たまにライブラリに使えないことがあります。これは、パラメータをスタック上で渡すことを想定している cdecl 呼出規約にライブラリが厳密に則していないこと起因します。例えば、インテルの CPU の代わりに 旧式の PPC CPU 上で動いている Mac OS X とか、Mac OS X 上でデフォルトで使えない OpenGL ライブラリとかがあります。
Sometimes the simple version of newLISP's built-in import facility cannot be used with a library. This happens whenever a library does not strictly adhere to cdecl calling conventions expecting all parameters passed on the stack. E.g. when running Mac OS X on older PPC CPUs instead of Intel CPUs, the OpenGL libraries installed by default on Mac OS X cannot be used.

10.4.0 版からの newLISP では、import の新しく追加した拡張構文を使うことで、この問題を簡単に解決できます。プラットフォームやアーキテクチャの違いを自動的に解決するからです。とても小さいシステムや必須の libffi システムが存在しないプラットフォームでは、newLISP が要求している cdecl 規約を目的のライブラリで要求されている呼出規約に翻訳する特殊なラッパー・ライブライを構築できます。
Since newLISP version 10.4.0, the problem can be solved easiest using the newer extended syntax of import, which automatically resolves platform and architectural differences. On very small systems or whenever the needed libffi system library is not present on a platform, a special wrapper library can be built to translate cdecl conventions expected by newLISP into the calling conventions expected by the target library.

/* wrapper.c - demo for wrapping library function
 
compile:
    gcc -m32 -shared wrapper.c -o wrapper.so
or:
    gcc -m32 -bundle wrapper.c -o wrapper.dylib
 
usage from newLISP:
 
    (import "./wrapper.dylib" "wrapperFoo")
 
    (define (glFoo x y z)
        (get-float (wrapperFoo 5 (float x) (int y) (float z))) )
 
 (glFoo 1.2 3 1.4) => 7.8
 
*/
 
#include <stdio.h>
#include <stdarg.h>
 
 
/* the glFoo() function would normally live in the library to be
   wrapped, e.g. libopengl.so or libopengl.dylib, and this
   program would link to it.
   For demo and test purpose the function has been included in this
   file
*/
 
double glFoo(double x, int y, double z)
    {
    double result;
 
    result = (x + z) * y;
 
    return(result);
    }
 
/* this is the wrapper for glFoo which gets imported by newLISP
   declaring it as a va-arg function guarantees 'cdecl'
   calling conventions on most architectures
*/
 
double * wrapperFoo(int argc, ...)
    {
    va_list ap;
    double x, z;
    static double result;
    int y;
 
    va_start(ap, argc);
 
    x = va_arg(ap, double);
    y = va_arg(ap, int);
    z = va_arg(ap, double);
 
    va_end(ap);
 
    result = glFoo(x, y, z);
    return(&result);
    }
 
/* eof */

Registering callbacks in external libraries(外部ライブラリへのコールバックの登録)

多くの共有ライブラリは、制御しているプロクラムにコールバックするコールバック関数の登録を許しています。newLISP では、ユーザ定義関数から関数アドレスを取り出し、外部ライブラリに登録関数として渡すために関数 callback を使います:
Many shared libraries allow registering callback functions to call back into the controlling program. The function callback is used in newLISP to extract the function address from a user-defined newLISP function and pass it to the external library via a registering function:

(define (keyboard key x y)
    (if (= (& key 0xFF) 27) (exit)) ; exit program with ESC
    (println "key:" (& key 0xFF) " x:" x  " y:" y))

(glutKeyboardFunc (callback 1 'keyboard))

例は、配布ソースの newlisp-x.x.x/examples/ ディレクトリにある opengl-demo.lsp ファイルの一部です。Windows プラットフォームでのコールバックをデモする win32demo.lsp ファイルは同じディレクトリで見つけられます。
The example is a snippet from the file opengl-demo.lsp in the newlisp-x.x.x/examples/ directory of the source distribution. A file win32demo.lsp can be found in the same directory demonstrating callbacks on the Windows platform.

C の型指定子を使った callback の先進的な構文はnewLISP ユーザー マニュアルとリファレンスを見て下さい。
For an advanced syntax of callback using C-type specifiers see newLISP User Manual and Reference.


§

24. newLISP as a shared library(共有ライブラリとしての newLISP)

全てのプラットフォームで newLISP を共有ライブラリとしてコンパイル可能です。Win32 のライブラリは newlisp.dll と呼ばれ、macOS では newlisp.dylib、Linux や BSD では newlisp.so となります。ほとんどのプラットフォームの Makefile が配布ソースに含まれています。Win32 だけは、インストーラに予めコンパイルされている newlisp.dll が入っており、Program Files/newlisp/(訳注:デフォルトのインストール先、インストール時に変更すれば、変更先)にインストールされます。
On all platforms, newLISP can be compiled as a shared library. On Win32, the library is called newlisp.dll, on macOS newlisp.dylib and on Linux and BSDs, the library is called newlisp.so. Makefiles are included in the source distribution for most platforms. Only on Win32, the installer comes with a precompiled newlisp.dll and will install it in the Program Files/newlisp/ directory.

Evaluating code in the shared library(共有ライブラリでコードを評価)

最初の例で、newLISP から newlispEvalStr を導入するやり方を示します:
The first example shows how to import newlispEvalStr from newLISP itself as the caller:

(import "/usr/lib/newlisp.so" "newlispEvalStr")
(get-string (newlispEvalStr "(+ 3 4)")) →  "7\n"

ライブラリ関数 newlispEvalStr を呼び出すと、通常コンソールに直接出力され、文字列の整数ポインタの形式で返されます。このポインタを関数get-string に渡すことで出力にアクセスできるようになります。戻り値の出力を黙らせるには、関数silent を使います。全ての結果は、数値であっても、インターラクティブ・コンソール・モード上でラインフィードを付加した文字列として返されます。文字列から他のデータ型に変換するには、関数int または float を使います。
When calling the library function newlispEvalStr, output normally directed to the console (e.g. return values or print statements) is returned in the form of an integer string pointer. The output can be accessed by passing this pointer to the get-string function. To silence the output from return values, use the silent function. All Results, even if they are numbers, are always returned as strings and a trailing linefeed as in interactive console mode. Use the int or float functions to convert the strings to other data types.

newlispEvalStrに複数行を渡す時は、ソースを [cmd], [/cmd] タグで囲って下さい。その際、[cmd], [/cmd]タグは、それぞれ別々の行にします:
When passing multi-line source to newlispEvalStr, that source should be bracketed by [cmd], [/cmd] tags, each on a different line:

(set 'code [text][cmd]
...
...
...
[/cmd][/text])

二番目の例は、C のプログラムに newlispEvalStr を導入するやり方です:
The second example shows how to import newlispEvalStr into a C-program:

/* libdemo.c - demo for importing newlisp.so
 * 
 * compile using: 
 *    gcc -ldl libdemo.c -o libdemo
 *
 * use:
 *
 *    ./libdemo '(+ 3 4)'
 *    ./libdemo '(symbols)'
 *
 */
#include <stdio.h>
#include <dlfcn.h>
 
int main(int argc, char * argv[])
{
void * hLibrary;
char * result;
char * (*func)(char *);
char * error;
 
if((hLibrary = dlopen("/usr/lib/newlisp.so",
                       RTLD_GLOBAL | RTLD_LAZY)) == 0)
    {
    printf("cannot import library\n");
    exit(-1);
    }
 
func = dlsym(hLibrary, "newlispEvalStr");
if((error = dlerror()) != NULL)
    {
    printf("error: %s\n", error);
    exit(-1);
    }
 
printf("%s\n", (*func)(argv[1]));
 
return(0);
}

/* eof */

このプログラムは引用された newLISP の式を受け付け、評価結果を出力します。
This program will accept quoted newLISP expressions and print the evaluated results.

Registering callbacks(コールバックの登録)

他の共有ライブラリ同様、コールバックを newLISP ライブラリに登録可能です。関数newlispCallback を導入すれば、関数のコールバック登録に使えます。 例では、newLISP に newLISP ライブラリを導入して、コールバック callme を登録しています:
Like many other share libraries, callbacks can be registered in newLISP library. The function newlispCallback must be imported and is used for registering callback functions. The example shows newLISP importing newLISP as a library and registering a callback callme:

#!/usr/bin/newlisp

; path-name of the library depending on platform
(set 'LIBRARY (if (= ostype "Windows") "newlisp.dll" "newlisp.dylib"))

; import functions from the newLISP shared library
(import LIBRARY "newlispEvalStr")
(import LIBRARY "newlispCallback")

; set calltype platform specific
(set 'CALLTYPE (if (= ostype "Windows") "stdcall" "cdecl"))

; the callback function
(define (callme p1 p2 p3 result)
    (println "p1 => " p1 " p2 => " p2 " p3 => " p3)
    result)

; register the callback with newLISP library
(newlispCallback "callme" (callback 0 'callme) CALLTYPE)

; the callback returns a string
(println (get-string (newlispEvalStr
    {(get-string (callme 123 456 789 "hello world"))})))

; the callback returns a number
(println (get-string (newlispEvalStr
    {(callme 123 456 789 99999)})))

戻り値の型によって、コードを変えています。このプログラムは、次のように出力します:
Depending on the type of the return value, different code is used. The program shows the following output:

p1 => 123 p2 => 456 p3 => 789
"hello world"

p1 => 123 p2 => 456 p3 => 789
99999

Win32 や 多くの Unix は newlisp.dll(訳注:Unix では、newlisp.so)をシステム・ライブラリ・パスで探しますが、macOS はフル・パスが指定されていないと、newlisp.dylib を最初に現行ディレクトリで探すことに注意してください。これ以外のプログラムは、配布ソースのnewlisp-x.x.x/examples ディレクトリで callback として見つかります。
Note that Win32 and many Unix flavors will look for newlisp.dll in the system library path, but macOS will look for newlisp.dylib first in the current directory, if the full file path is not specified. The program above can also be found as callback in the source distribution in the newlisp-x.x.x/examples directory.


§



GNU Free Documentation License

Version 1.2, November 2002

Copyright (C) 2000,2001,2002 Free Software Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed.



0. PREAMBLE

The purpose of this License is to make a manual, textbook, or other functional and useful document "free" in the sense of freedom: to assure everyone the effective freedom to copy and redistribute it, with or without modifying it, either commercially or noncommercially. Secondarily, this License preserves for the author and publisher a way to get credit for their work, while not being considered responsible for modifications made by others.

This License is a kind of "copyleft", which means that derivative works of the document must themselves be free in the same sense. It complements the GNU General Public License, which is a copyleft license designed for free software.

We have designed this License in order to use it for manuals for free software, because free software needs free documentation: a free program should come with manuals providing the same freedoms that the software does. But this License is not limited to software manuals; it can be used for any textual work, regardless of subject matter or whether it is published as a printed book. We recommend this License principally for works whose purpose is instruction or reference.

1. APPLICABILITY AND DEFINITIONS

This License applies to any manual or other work, in any medium, that contains a notice placed by the copyright holder saying it can be distributed under the terms of this License. Such a notice grants a world-wide, royalty-free license, unlimited in duration, to use that work under the conditions stated herein. The "Document", below, refers to any such manual or work. Any member of the public is a licensee, and is addressed as "you". You accept the license if you copy, modify or distribute the work in a way requiring permission under copyright law.

A "Modified Version" of the Document means any work containing the Document or a portion of it, either copied verbatim, or with modifications and/or translated into another language.

A "Secondary Section" is a named appendix or a front-matter section of the Document that deals exclusively with the relationship of the publishers or authors of the Document to the Document's overall subject (or to related matters) and contains nothing that could fall directly within that overall subject. (Thus, if the Document is in part a textbook of mathematics, a Secondary Section may not explain any mathematics.) The relationship could be a matter of historical connection with the subject or with related matters, or of legal, commercial, philosophical, ethical or political position regarding them.

The "Invariant Sections" are certain Secondary Sections whose titles are designated, as being those of Invariant Sections, in the notice that says that the Document is released under this License. If a section does not fit the above definition of Secondary then it is not allowed to be designated as Invariant. The Document may contain zero Invariant Sections. If the Document does not identify any Invariant Sections then there are none.

The "Cover Texts" are certain short passages of text that are listed, as Front-Cover Texts or Back-Cover Texts, in the notice that says that the Document is released under this License. A Front-Cover Text may be at most 5 words, and a Back-Cover Text may be at most 25 words.

A "Transparent" copy of the Document means a machine-readable copy, represented in a format whose specification is available to the general public, that is suitable for revising the document straightforwardly with generic text editors or (for images composed of pixels) generic paint programs or (for drawings) some widely available drawing editor, and that is suitable for input to text formatters or for automatic translation to a variety of formats suitable for input to text formatters. A copy made in an otherwise Transparent file format whose markup, or absence of markup, has been arranged to thwart or discourage subsequent modification by readers is not Transparent. An image format is not Transparent if used for any substantial amount of text. A copy that is not "Transparent" is called "Opaque".

Examples of suitable formats for Transparent copies include plain ASCII without markup, Texinfo input format, LaTeX input format, SGML or XML using a publicly available DTD, and standard-conforming simple HTML, PostScript or PDF designed for human modification. Examples of transparent image formats include PNG, XCF and JPG. Opaque formats include proprietary formats that can be read and edited only by proprietary word processors, SGML or XML for which the DTD and/or processing tools are not generally available, and the machine-generated HTML, PostScript or PDF produced by some word processors for output purposes only.

The "Title Page" means, for a printed book, the title page itself, plus such following pages as are needed to hold, legibly, the material this License requires to appear in the title page. For works in formats which do not have any title page as such, "Title Page" means the text near the most prominent appearance of the work's title, preceding the beginning of the body of the text.

A section "Entitled XYZ" means a named subunit of the Document whose title either is precisely XYZ or contains XYZ in parentheses following text that translates XYZ in another language. (Here XYZ stands for a specific section name mentioned below, such as "Acknowledgements", "Dedications", "Endorsements", or "History".) To "Preserve the Title" of such a section when you modify the Document means that it remains a section "Entitled XYZ" according to this definition.

The Document may include Warranty Disclaimers next to the notice which states that this License applies to the Document. These Warranty Disclaimers are considered to be included by reference in this License, but only as regards disclaiming warranties: any other implication that these Warranty Disclaimers may have is void and has no effect on the meaning of this License.

2. VERBATIM COPYING

You may copy and distribute the Document in any medium, either commercially or noncommercially, provided that this License, the copyright notices, and the license notice saying this License applies to the Document are reproduced in all copies, and that you add no other conditions whatsoever to those of this License. You may not use technical measures to obstruct or control the reading or further copying of the copies you make or distribute. However, you may accept compensation in exchange for copies. If you distribute a large enough number of copies you must also follow the conditions in section 3.

You may also lend copies, under the same conditions stated above, and you may publicly display copies.

3. COPYING IN QUANTITY

If you publish printed copies (or copies in media that commonly have printed covers) of the Document, numbering more than 100, and the Document's license notice requires Cover Texts, you must enclose the copies in covers that carry, clearly and legibly, all these Cover Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on the back cover. Both covers must also clearly and legibly identify you as the publisher of these copies. The front cover must present the full title with all words of the title equally prominent and visible. You may add other material on the covers in addition. Copying with changes limited to the covers, as long as they preserve the title of the Document and satisfy these conditions, can be treated as verbatim copying in other respects.

If the required texts for either cover are too voluminous to fit legibly, you should put the first ones listed (as many as fit reasonably) on the actual cover, and continue the rest onto adjacent pages.

If you publish or distribute Opaque copies of the Document numbering more than 100, you must either include a machine-readable Transparent copy along with each Opaque copy, or state in or with each Opaque copy a computer-network location from which the general network-using public has access to download using public-standard network protocols a complete Transparent copy of the Document, free of added material. If you use the latter option, you must take reasonably prudent steps, when you begin distribution of Opaque copies in quantity, to ensure that this Transparent copy will remain thus accessible at the stated location until at least one year after the last time you distribute an Opaque copy (directly or through your agents or retailers) of that edition to the public.

It is requested, but not required, that you contact the authors of the Document well before redistributing any large number of copies, to give them a chance to provide you with an updated version of the Document.

4. MODIFICATIONS

You may copy and distribute a Modified Version of the Document under the conditions of sections 2 and 3 above, provided that you release the Modified Version under precisely this License, with the Modified Version filling the role of the Document, thus licensing distribution and modification of the Modified Version to whoever possesses a copy of it. In addition, you must do these things in the Modified Version:

If the Modified Version includes new front-matter sections or appendices that qualify as Secondary Sections and contain no material copied from the Document, you may at your option designate some or all of these sections as invariant. To do this, add their titles to the list of Invariant Sections in the Modified Version's license notice. These titles must be distinct from any other section titles.

You may add a section Entitled "Endorsements", provided it contains nothing but endorsements of your Modified Version by various parties--for example, statements of peer review or that the text has been approved by an organization as the authoritative definition of a standard.

You may add a passage of up to five words as a Front-Cover Text, and a passage of up to 25 words as a Back-Cover Text, to the end of the list of Cover Texts in the Modified Version. Only one passage of Front-Cover Text and one of Back-Cover Text may be added by (or through arrangements made by) any one entity. If the Document already includes a cover text for the same cover, previously added by you or by arrangement made by the same entity you are acting on behalf of, you may not add another; but you may replace the old one, on explicit permission from the previous publisher that added the old one.

The author(s) and publisher(s) of the Document do not by this License give permission to use their names for publicity for or to assert or imply endorsement of any Modified Version.

5. COMBINING DOCUMENTS

You may combine the Document with other documents released under this License, under the terms defined in section 4 above for modified versions, provided that you include in the combination all of the Invariant Sections of all of the original documents, unmodified, and list them all as Invariant Sections of your combined work in its license notice, and that you preserve all their Warranty Disclaimers.

The combined work need only contain one copy of this License, and multiple identical Invariant Sections may be replaced with a single copy. If there are multiple Invariant Sections with the same name but different contents, make the title of each such section unique by adding at the end of it, in parentheses, the name of the original author or publisher of that section if known, or else a unique number. Make the same adjustment to the section titles in the list of Invariant Sections in the license notice of the combined work.

In the combination, you must combine any sections Entitled "History" in the various original documents, forming one section Entitled "History"; likewise combine any sections Entitled "Acknowledgements", and any sections Entitled "Dedications". You must delete all sections Entitled "Endorsements."

6. COLLECTIONS OF DOCUMENTS

You may make a collection consisting of the Document and other documents released under this License, and replace the individual copies of this License in the various documents with a single copy that is included in the collection, provided that you follow the rules of this License for verbatim copying of each of the documents in all other respects.

You may extract a single document from such a collection, and distribute it individually under this License, provided you insert a copy of this License into the extracted document, and follow this License in all other respects regarding verbatim copying of that document.

7. AGGREGATION WITH INDEPENDENT WORKS

A compilation of the Document or its derivatives with other separate and independent documents or works, in or on a volume of a storage or distribution medium, is called an "aggregate" if the copyright resulting from the compilation is not used to limit the legal rights of the compilation's users beyond what the individual works permit. When the Document is included in an aggregate, this License does not apply to the other works in the aggregate which are not themselves derivative works of the Document.

If the Cover Text requirement of section 3 is applicable to these copies of the Document, then if the Document is less than one half of the entire aggregate, the Document's Cover Texts may be placed on covers that bracket the Document within the aggregate, or the electronic equivalent of covers if the Document is in electronic form. Otherwise they must appear on printed covers that bracket the whole aggregate.

8. TRANSLATION

Translation is considered a kind of modification, so you may distribute translations of the Document under the terms of section 4. Replacing Invariant Sections with translations requires special permission from their copyright holders, but you may include translations of some or all Invariant Sections in addition to the original versions of these Invariant Sections. You may include a translation of this License, and all the license notices in the Document, and any Warranty Disclaimers, provided that you also include the original English version of this License and the original versions of those notices and disclaimers. In case of a disagreement between the translation and the original version of this License or a notice or disclaimer, the original version will prevail.

If a section in the Document is Entitled "Acknowledgements", "Dedications", or "History", the requirement (section 4) to Preserve its Title (section 1) will typically require changing the actual title.

9. TERMINATION

You may not copy, modify, sublicense, or distribute the Document except as expressly provided for under this License. Any other attempt to copy, modify, sublicense or distribute the Document is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance.

10. FUTURE REVISIONS OF THIS LICENSE

The Free Software Foundation may publish new, revised versions of the GNU Free Documentation License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. See http://www.gnu.org/copyleft/.

Each version of the License is given a distinguishing version number. If the Document specifies that a particular numbered version of this License "or any later version" applies to it, you have the option of following the terms and conditions either of that specified version or of any later version that has been published (not as a draft) by the Free Software Foundation. If the Document does not specify a version number of this License, you may choose any version ever published (not as a draft) by the Free Software Foundation.