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

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.

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.

ごくまれに、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.

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.

これは、全ファイル名のリストを返します。この 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.

コンテキスト A と B の名前空間制御文においては、コンテキスト名を新しく生成するためにシンボルをクォートしていることに注意して下さい。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:

(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 制御文を明示することなし、デフォルト・ファンクションを その場で 定義する方法を示しています。一方で、コンテキストを明示的に生成して、関数を書くこともできます：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:

最初の形式は短くて済み、二番目の形式は読みやすくなります。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))

fibo や generator を参照するのにデフォルト・ファンクションを使ったように、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:

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:

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:

関数 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（ループ関数中のローカル変数）

doargs、dolist、dostring、dotimes、dotree、for 等の全てのループ関数は、ローカル変数を使います。しかし、ループ関数から離れた後で、(訳注:ループ関数を使用する前に定義されていた）変数は古い値を回復します。let、define、lambda は、変数をローカルにする別の方法です: 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:

変数 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
)

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

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:

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:

args and local used together for named variables（args と local を一緒に使った名前付き変数）

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.

再帰手法は、頻繁に呼び出されるオーバーヘッドにより遅くなります。また、再帰手法は、中間物や時に余分な結果の保持に多くのメモリを使います。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.

繰返し手法は、速くて、使うメモリも少なくて済みます。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.

関数は、コンテキストと元の関数用のデフォルト・ファンクションを新しい名前で作成して、全ての結果を同じコンテキストのシンボルに保存します。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:

最後の例を記憶化無しの 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:

newLISP の組込 flat を使えば、入れ子リストはフラットなリストに変換されます。これで、リストを dolist や map で処理できるようになります：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:

この例では、再帰が唯一の方法です。なぜなら、関数が呼び出される時には、ファイルの完全な入れ子リストを入手できず、関数実行中に再帰的に作成されて得られるからです。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 には、入れ子リストを多次元インデックスでアクセスできる機能が用意されています。push、pop、setf、set-ref、set-ref-all、sort、reverse のような破壊的関数と nth、ref、ref-all、first、last、rest のような非破壊演算子があります。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:

push and pop（関数pushとpop）

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:

最後の例に示した暗黙のインデックス機能は、コードを読み易くします。リストの前のインデックスは、リストの一部を切り出し、リストで返します。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:

Replace in simple lists（単リストでの置換）

文字列にも同じように使える Replace は、リスト中の要素を検索し、一括して置き換えます。match や unify と一緒に使って、複雑な検索パターンを指定できます。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.

置換中、$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-set、set-ref、set-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.

最後の例は、更新する式で $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:

この例では、変数 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（変数展開）

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

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.

7. Program flow（プログラム・フロー）

newLISP でのプログラムのフローは大部分が関数的ですが、ループや分岐構造を持つこともあり、通常のフローから脱出する catch と throw もあります。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
...
)

ループ関数 dolist、dotimes、for は、引数オプションに脱出条件を取れることに着目して下さい。脱出条件が 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（ブロック）

ブロックは、連続して評価されるｓ式の集合体です。全てのループ構造は、条件式の後に本体としてブロック式を持つことになります。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 は、たいてい if や cond 宣言文で式をブロック化するのに使われます。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.

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

最初に nil でなかった condition-i と対の exp-true-i が評価されて返されます。どの condition-i も true にならなかったなら、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-iexp-true-i 部分を括弧で囲む必要があります：condworks like the multiple condition form of if but each part of condition-iexp-true-i must be braced in parentheses:

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（関数 catch と throw によるフロー）

ループやブロック式を 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.

Change flow with and or 'or'（演算子 and や or でフローを変える）

Prolog 言語のプログラムのように、式の論理接続の結果次第でプログラム・フロー制御するのに論理 and と or が使えます：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-i が nil または 空リスト () に評価されるか、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-i が nil でもなく、空リスト () でもなく評価されるか、expr-i がなくなるまで順に式が評価されていきます。最後に評価された式が or 式全体の戻り値になります。Expressions are evaluated sequentially until one expr-i evaluates to notnil 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.

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:

異なる 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.

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:

この例では、デフォルト・ファンクタ——関数名と名前空間の名前が同じ——を使っていて、通常関数のような形になっています。この名前空間内には、他の関数も追加できます。例えば 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.

次の段落では、テキストの走査やトークン化によく使われるアルゴリズムを紹介しています。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:

クォート (") や正規表現で特別の意味を持つ他の文字をエスケープしなくて済むように、正規表現パターンには波括弧 ({,}) が使われます。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:

（訳注：上記例で）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:

時には、上記の例のような文字列のリストを利用したい時に用意できません。このような場合、文字列が生成されている間、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:

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.

複数のインデックスを定数ではなく、変数で指定したい時、第二構文が役立ちます。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 文字には１バイト以上が含まれます。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:

キーにはどんな文字列も使え、内部的には全てのキー文字列にアンダースコア文字を先付することで（訳注：シンボルに変換されて、かつ）、newLISP組込シンボルとの衝突を避けています。値には、どんな文字列、数値、newLISP のｓ式でも可能です。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:

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:

クライアント／サーバーのセット・アップ方法には異なる方法が数多くありますので、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.

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.

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") → ("." ".." "util.c" "example.ls")

関数 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:

時には、サーバーが準備できるまで待つために、クライアント側でスリープ時間が必要です。最初の例を除いて、これらのほとんどが、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.

これは、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.

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.

18. Multiprocessing and Cilk（多重処理と Cilk）

マルチプロセッサ CPU 上では、オペレーティング・システムは、生成されたプロセスや子プロセスを最適な状態で異なるプロセッサ・コアに分配しています。newLISP は、プロセス起動の全作業と評価結果の同期された収集をおこなうシンプルな API を提供します。Cilk API は、newLISP で spawn、sync、abort として実装されているたった 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

この例は、素数を生成するタスクが小分けされ、並行処理される方法を示しています。全ての spawn 呼び出しはすぐに戻りますが、子プロセスが終了し、結果のリストが4つの変数 p1 ～ p4 として利用できるようになるまで、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（進捗の監視）

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

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 を返します。ブロッキング動作に send と receive 宣言文を使うのにループ関数 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.

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.

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:

Acting as a proxy（プロキシ動作）

プログラム宣言文が子プロセス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.

newLISP は、表計算ソフトで使われるような lookup 関数を持っています。assoc と nth の組み合わせのように動作するこの関数は、連想を見つけ、同時に、データ・レコードの特定された要素を取り出します：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:

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 を使えば、リモート・ノードのファイルのアクセスに使うこともできます。同様な方法で、関数 load と save は、リモート・ノードからのローダやリモート・ノードへのセーブに使えます。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.

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 はポート 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.

inetd と xinetd のどちらでも、ファイル /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:

最後の行は、作業ディレクトリと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:

他の場所からのアクセス制限や特定ユーザーへの限定アクセスのために、様々なパラメータの組み合わせが可能であることに注意して下さい。詳細は、inetd と xinetd のマニュアル・ページを調べて下さい。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 シグナルをinetd か xinetd プロセスに送ることで達成できます。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.

Mac OS には、同じように使えるものがあります。newLISP 配布ソースのディレクトリ util/ に org.newlisp.newlisp.plist ファイルがあります。OS 起動中も動作する newLISP サーバーを起動するためにこのファイルを使うことができます。On Mac OS X 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.

複数行の式をタグ [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:

二番目の例では、評価するプログラム文字列を囲むのに波括弧 {,} を使っています。この方法で、式内の文字列を囲むのにクォートを使えるようになります。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.

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

newLISP は簡単な HTTP の GET と PUT 要求も受け付けます。ブラウザのアドレス・バーに次のファイルのフル・パスを入力してみて下さい：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:

このプログラムを走らせると、次のような出力を得ます：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 プロセスを開始します。MS Windows では同じ実行に、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 MS Windows 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:

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:

一つの CPU でのみテストする際は、全アドレスを "localhost" に置き換えます。Unix の inetd または xinetd デーモンは各接続に対して全てポート 4711 の待ち受けで個別のプロセスを開始します。同じ MS Windows でステートフル・サーバーを使った時は、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 MS Windows 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:

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

program は与えられた範囲にある素数を算出します。変数 from、to、node は format を使ってプログラム・テキスト中に設定されます。全ての命令は 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:

多数のネットワーク・ホストの配布環境に展開する前に配布アプリケーションを単一ホスト上でテストするために、前述の例のように全 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 システムでのみ利用可能です。これらの関数は GET と PUT という標準の 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-file、write-file、append-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:

最初の二つの関数は転送したバイト数から始まるメッセージを返します。関数 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:

全てに関数は、セロ文字を含む非アスキーのバイナリ情報を転送するのに使えます。newLISP は内部で read-file、write-file、append-fileの代わりに get-url と put-url を使っています。get-url と put-url で使われる付加オプションが、read-file、write-file、append-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 データをロードするのに使うのと同じ関数 load と save が使えます。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 を使うことで、load や save は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.:

ファイル・パスの代わりに URL を使っても、関数 load と save は内部動作で get-url と put-url を使っているので、ローカル・ファイル・システムで使う時と同様に確実に動作します。両関数とも接続が確立しなかった場合、60秒後にタイムアウトします。きめ細かい操作が必要な時は、関数 get-url や put-url を HTTP モードでの load や save と同等の機能を実現する eval-string や source と一緒に使って下さい。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-eval、net-listen、net-connect と net-accept、net-receive、net-select、net-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 の GET、PUT、POST、DELETE 要求に応答するウェブ・サーバーのように動作しますが、インターネット上でのセキュアな動作確保するために権限のないファイルやディレクトリのアクセスを制限します。 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.

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:

.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.

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:

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:

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

バージョン 10.4.0 で newLISP は、関数 import、callback、struct の拡張構文および、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 構造体のパックとアンパックを処理できます。関数 pack と unpack の拡張構文は 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 ユーザー マニュアルとリファレンスで関数import、callback、struct、pack、unpackを調べて下さい。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 の共有ライブラリ）

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

関数 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.

testlib.so は、Linux/Unix デフォルトの cdecl 規約で構築されます。ライブラリのインポート自体は、Linux と MS Windows のプラットフォームのどちらでもよく似ていますが、MS Windows ではライブラリをカレント・ディレクトリに置くことができます。フルパスを指定するか、OS のライブラリ・パスにライブラリを置いておく必要があります。The library testlib.so will be built with Linux/Unix default cdecl conventions. Importing the library is very similar on both Linux and MS Windows platforms, but on MS Windows 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:

さて、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 MS Windows（MS Windows の DLL をコンパイルする）

MS Windows の DLL は、MinGW、Borland、CYGWIN 等を使って作成できます。ここでは、MinGW コンパイラを使った例を紹介します：DLLs on MS Windows 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 は、MS Windows のデフォルト stdcall 規約で構築されます。次は、ライブラリをインポートし、関数を使うインターラクティブ・セッションです：The library testlib.dll will be built with default MS Windows stdcall conventions. The following shows an interactive session, importing the library and using the functions:

最初に 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-string、get-int、get-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:

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:

参照渡しで外部関数を呼び出す場合、変数用のメモリを 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.

構造体全体では、全てのメンバーがメモリ中の 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 ビット変数が互いに隣同士になるようにパックしてあります。この場合、x と y 用に各々 2、 z 用に 4 と、8 バイトだけが要求されます。x と y が一緒に 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:

floats と double 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[])

Floats と doubles は、アドレス・ポインタ参照を介してのみ返されます。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.

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.

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:

例は、配布ソースの 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.

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

全てのプラットフォームで newLISP を共有ライブラリとしてコンパイル可能です。MS Windows のライブラリは newlisp.dll と呼ばれ、Mac OS X では newlisp.dylib、Linux や BSD では newlisp.so となります。ほとんどのプラットフォームの Makefile が配布ソースに含まれています。MS Windows だけは、インストーラに予めコンパイルされている newlisp.dll が入っていて、(v.10.3.3 以降は) WINDOWS\system32\ と（訳注：v.10.3.2 までは） Program Files/newlisp/（訳注：デフォルトのインストール先、インストール時に変更すれば、変更先）にインストールされます。On all platforms, newLISP can be compiled as a shared library. On MS Windows, the library
is called newlisp.dll, on Mac OS X 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 MS Windows, the installer comes with a precompiled
newlisp.dll and will install it in the WINDOWS\system32\ directory
(since v.10.3.3) and 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:

ライブラリ関数 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:

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:

MS Windows や 多くの Unix は newlisp.dll（訳注：Unix では、newlisp.so） をシステム・ライブラリ・パスで探しますが、Mac OS X はフル・パスが指定されていないと、newlisp.dylib を最初に現行ディレクトリで探すことに注意して下さい。これ以外のプログラムは、配布ソースのnewlisp-x.x.x/examples ディレクトリで callback として見つかります。Note that MS Windows and many Unix flavors will look for newlisp.dll in the system library path, but Mac OS X 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.

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:

A. Use in the Title Page (and on the covers, if
any) a title distinct from that of the Document, and from those of
previous versions (which should, if there were any, be listed in the
History section of the Document). You may use the same title as a
previous version if the original publisher of that version gives
permission.

B. List on the Title Page, as authors, one or
more persons or entities responsible for authorship of the
modifications in the Modified Version, together with at least five of
the principal authors of the Document (all of its principal authors, if
it has fewer than five), unless they release you from this requirement.

C. State on the Title page the name of the
publisher of the Modified Version, as the publisher.

D. Preserve all the copyright notices of the
Document.

E. Add an appropriate copyright notice for your
modifications adjacent to the other copyright notices.

F. Include, immediately after the copyright
notices, a license notice giving the public permission to use the
Modified Version under the terms of this License, in the form shown in
the Addendum below.

G. Preserve in that license notice the full
lists of Invariant Sections and required Cover Texts given in the
Document's license notice.

H. Include an unaltered copy of this License.

I. Preserve the section Entitled "History",
Preserve its Title, and add to it an item stating at least the title,
year, new authors, and publisher of the Modified Version as given on
the Title Page. If there is no section Entitled "History" in the
Document, create one stating the title, year, authors, and publisher of
the Document as given on its Title Page, then add an item describing
the Modified Version as stated in the previous sentence.

J. Preserve the network location, if any, given
in the Document for public access to a Transparent copy of the
Document, and likewise the network locations given in the Document for
previous versions it was based on. These may be placed in the "History"
section. You may omit a network location for a work that was published
at least four years before the Document itself, or if the original
publisher of the version it refers to gives permission.

K. For any section Entitled "Acknowledgements"
or "Dedications", Preserve the Title of the section, and preserve in
the section all the substance and tone of each of the contributor
acknowledgements and/or dedications given therein.

L. Preserve all the Invariant Sections of the
Document, unaltered in their text and in their titles. Section numbers
or the equivalent are not considered part of the section titles.

M. Delete any section Entitled "Endorsements".
Such a section may not be included in the Modified Version.

N. Do not retitle any existing section to be
Entitled "Endorsements" or to conflict in title with any Invariant
Section.

O. Preserve any Warranty Disclaimers.

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.