For Mac OS X, GNU Linux, Unix and Windows

ユーザー マニュアルとリファレンス
User Manual and Reference v.10.7.0

Copyright © 2016 Lutz Mueller All rights reserved.
Japanese translations copyright © 2016 short story または 晴耕雨読な日々

Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License,
Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts,
and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License.
The accompanying software is protected by the GNU General Public License V.3, June 2007.
newLISP is a registered trademark of Lutz Mueller.


Users Manual(ユーザー マニュアル)

  1. Introduction(イントロダクション)
  2. Deprecated functions and future changes(廃止される関数と将来の変更)
  3. Interactive Lisp mode(インターラクティブ Lisp モード)
  4. Command line options(コマンド ライン オプション)
  5. Startup, directories, environment(スタートアップ、ディレクトリ、環境)
  6. Extending newLISP with shared libraries(共有ライブラリによる newLISP の拡張)
  7. newLISP as a shared library(共有ライブラリとしての newLISP)
  8. Evaluating newLISP expressions(newLISP 式の評価)
  9. Lambda expressions in newLISP(newLISP におけるラムダ式)
  10. nil, true, cons and () in newLISP(newLISP の niltruecons()
  11. Arrays(アレイ)
  12. Indexing elements of strings, lists and arrays(文字列、リスト、アレイの要素指定)
  13. Destructive versus non-destructive functions(破壊的 対 非破壊的関数)
  14. Early return from functions, loops, blocks(関数、ループ、ブロックからの早期脱出)
  15. Dynamic and lexical scoping(ダイナミック・スコープとレキシカル・スコープ)
  16. Contexts(コンテキスト)
  17. The context default functor(コンテキスト・デフォルト・ファンクタ)
  18. Functional object-oriented programming(関数的オブジェクト指向プログラミング)
  19. Concurrent processing and distributed computing(並列処理と分散コンピューティング)
  21. Customization, localization and UTF-8(カスタマイズ、ローカライズと UTF-8)
  22. Commas in parameter lists(パラメータ リストのカンマ)

Function Reference(関数リファレンス)

  1. Syntax of symbol variables and numbers(シンボル変数と数値の構文)
  2. Data types and names in the reference(リファレンスでのデータ型と名前)
  3. Functions in groups(グループ毎の関数)
  4. Functions in alphabetical order(アルファベット順の関数)

    !  +-*/%  Ab  Ap  As  Ba  Ca  Cl  Co  Cu  De  Di  Do  En 
    Ex  Fi  Fl  Ga  Gl  In  La  Li  Ma  Mu  Net  New  Nt  Pa 
    Pr  Ra  Rea  Reg  Sea  Seq  Sl  St  Sy  Ti  Tr  Ut  Wr 



newLISP User Manual

1. Introduction(イントロダクション)

newLISP は、Lisp の主要構成要素:リストシンボルラムダ式 に焦点を合わせています。 これらに newLISP はアレイ とリストやアレイ上の 暗黙の要素指定ダイナミック(訳注:動的ともいう) 及び レキシカル(訳注:静的または構文的ともいう)スコープ を追加しています。 レキシカル・スコープは、コンテキスト と呼ばれる独立した名前空間を使って実装しています。(訳注:名前空間 コンテキスト は、ダイナミック・スコープで fexpr を使う時の安全性を提供します。fexpr とは、引数が評価されずに渡される関数のこと。newlLISP では define-macro を使って定義します)
newLISP focuses on the core components of Lisp: lists, symbols, and lambda expressions. To these, newLISP adds arrays, implicit indexing on lists and arrays, and dynamic and lexical scoping. Lexical scoping is implemented using separate namespaces called contexts.

その結果、ほとんどの Scheme 実装よりも小さくありながら、約 350個 の組込関数を持つという学びやすい Lisp となっています。 newLISP のサイズは BSD システムで 200k 強でありながら、最も一般的な Unix システム C ライブラリのみを使い、高いポータビリティを持って構築されています。 ロードも素早く、メモリ消費もわずかです。 newLISP は他の一般的なスクリプト用言語と同等かそれ以上に早く、リソースも少ししか使いません。
The result is an easier-to-learn Lisp that is even smaller than most Scheme implementations, but which still has about 350 built-in functions. Not much over 200k in size on BSD systems, newLISP is built for high portability using only the most common Unix system C-libraries. It loads quickly and has a small memory footprint. newLISP is as fast or faster than other popular scripting languages and uses very few resources.

組込とユーザ定義関数の両方とも、変数と一緒に、同じグローバル・シンボル木を共有し、同じ関数として扱われます。 また、ラムダ式とユーザ定義関数は、他のリスト式と同じように処理できます。
Both built-in and user-defined functions, along with variables, share the same global symbol tree and are manipulated by the same functions. Lambda expressions and user-defined functions can be handled like any other list expression.

newLISP は、レキシカルに分離されたコンテキスト(名前空間)を内部に持つダイナミック・スコープです。 newLISP のコンテキストは、様々な用途で使われます。 (1) プログラムのモジュール分割、 (2) FOOP (Functional Object Oriented Programming) での クラス 定義、 (3) 状態を持つ関数の定義(訳注:いわゆるクロージャ) (4) 連想キー → 値保存のためのハッシュ木生成等を可能にします。
newLISP is dynamically scoped inside lexically separated contexts (namespaces). Contexts in newLISP are used for multiple purposes. They allow (1) partioning of programs into modules, (2) the definition of Classes in FOOP (Functional Object Oriented Programming), (3) the definition of functions with state and (4) the creation of Hash trees for associative key → value storage.

newLISP の効率的な赤黒木(訳注:英語版は、こちら)の実装は、性能劣化なしに数百万のシンボルを処理できます。
newLISP's efficient red-black tree implementation can handle millions of symbols in namespaces or hashes without degrading performance.

newLISP は、伝統的な非同期ガベージコレクションを使用せずに、メモリの割当と回収を自動的に行ないます(エラー条件下を除いて)。 全てのオブジェクトは——コンテキスト、組込プリミティブ、シンボルを除いて——値として渡され、一度だけ参照されます。 オブジェクトは、生成において遅延削除が予定されており、Lisp セルを新規オブジェクト生成用に再利用します。 これらの結果として、伝統的なガベージコレクションに見られる休止は起こらず、予測可能な処理時間をもたらします。 newLISP の独創的な自動メモリ管理は、最も早いインターラクティブ Lisp をもたらします。 それは、他の Lisp 以上に、データ = プログラム パラダイムと完全な自己リフレクション実装をもたらします。
newLISP allocates and reclaims memory automatically, without using traditional asynchronous garbage collection. All objects — except for contexts, built-in primitives, and symbols — are passed by value and are referenced only once. Upon creation objects are scheduled for delayed deletion and Lisp cells are recycled for newly created objects. This results in predictable processing times without the pauses found in traditional garbage collection. newLISP's unique automatic memory management makes it the fastest interactive Lisp available. More than any other Lisp, it implements the data equals program paradigm and full self reflection.

newLISP の組込関数は、様々な形態を持ち、多様なデータ型とオプション・パラメータを受け入れます。 これは学習や実装に必要な関数と構文形態の数を劇的に減らします。 高級関数が多数用意されており、分布計算、並行プロセス、財務数学、統計、人工知能アプリケーションに利用できます。
Many of newLISP's built-in functions are polymorphic and accept a variety of data types and optional parameters. This greatly reduces the number of functions and syntactic forms necessary to learn and implement. High-level functions are available for string and list processing, financial math, statistics, and Artificial Intelligence applications.

newLISP は複雑な入れ子 リストや多次元 アレイ構造内の要素を変更・挿入・削除する関数を多数持っています。
newLISP has functions to modify, insert, or delete elements inside complex nested lists or multi-dimensional array structures.

newLISP では文字列に null 文字を含ませることができ、バイナリ・データ処理にほとんどの文字列操作関数を使えます。
Because strings can contain null characters in newLISP, they can be used to process binary data with most string manipulating functions.

newLISP は共有ライブラリ・インターフェースによる拡張も可能で、外部バイナリ・データ構造のデータをアクセスする関数を導入することができます。 配布物には、一般的なデータベース API 群を導入するためのモジュール群が入っています。
newLISP can also be extended with a shared library interface to import functions that access data in foreign binary data structures. The distribution contains modules for importing popular C-library APIs.

newLISP の HTTP、TCP/IP、UDP ソケット・インターフェイスは、ネットワーク分散アプリケーションを書き易くします。 newLISP の組込 XML インターフェース は、テキスト処理機能—— Perl コンパチブル正規表現 (PCRE) とテキスト解析関数 ——と相まって、有用な CGI 処理ツールを提供します。 配布ソースに HTML フォーム処理例があります。 newLISP は、組込 http モード・オプションを使って、CGI 処理可能なウェブ・サーバーになります。
newLISP's HTTP, TCP/IP, and UDP socket interfaces make it easy to write distributed networked applications. Its built-in XML interface, along with its text-processing features — Perl Compatible Regular Expressions (PCRE) and text-parsing functions — make newLISP a useful tool for CGI processing. The source distribution includes examples of HTML forms processing. newLISP can be run a as a CGI capable web server using its built-in http mode option.

newLISP は、ネットワーク上の分散処理と一個以上のコアを持つ CPU 上の並列処理を支援する組込関数を持っています。
newLISP has built-in support for distributed processing on networks and parallel, concurrent processing on the same CPU with one or more processing cores.

配布ソースは、Linux, Mac OS X/Darwin, BSD, 他の多くの Unix 類似品, MS Windows でコンパイル可能です。 newLISP は、完全な64ビット・メモリ・アドレッシング用の 64ビット LP64 アプリケーションとしてもコンパイルできます。

The source distribution can be compiled for Linux, Mac OS X/Darwin, BSDs, many other Unix flavors and MS Windows. newLISP can be compiled as a 64-bit LP64 application for full 64-bit memory addressing.

バージョン 10.5.7 から、newLISP は JavaScript にもコンパイルして、ウェブ・ブラウザ(訳注:JavaScript 版 newLISP の簡易 IDE に飛びます) で走らせることができます。
Since version 10.5.7, newLISP also can be compiled to JavaScript and run in a web browser.


newLISP-GS は、グラフィカル・ユーザ・インタフェース (GUI) とライブラリ・サーバーからなります。 ライブラリ・サーバーはJava ベースで、全ての Windows と Mac OS X プラットフォーム上にインストールされる標準 Java ランタイム環境を使うのに対して、GUI フロント・エンドは newLISP で書かれています。 newLISP-GS で構築されたアプリケーションは、ホスト・コンピュータ・システム本来のルック・アンド・フィールを持つことが可能です。 GTK, Tcl/Tk. OpenGL グラフィックス・ライブラリも利用可能です。
newLISP-GS comprises a graphical user interface (GUI) and library server. The GUI front-end is written in newLISP, whereas the library server is Java based and uses the standard Java runtime environment installed on all Windows and Mac OS X platforms. Applications built with newLISP-GS can have the host operating system's native look and feel. Interfaces to GTK, Tcl/Tk and OpenGL graphics libraries are also available.

newLISP と Java は多くのオペレーティング・システムで利用できます。 従って、newLISP-GS で GUI アプリケーションを書けば、プラットフォーム非依存解決策になります。
newLISP and Java are available for most operating systems. This makes newLISP-GS a platform-independent solution for writing GUI applications.

newLISP-GS のさらなる情報は newLISP-GS を参照してください。(訳注:フレーム版はこちらで
For more information on newLISP-GS, see newLISP-GS.


newLISP と newLISP-GS は、 GPL (General Public License) 第3版のもとでライセンスされます。 newLISP 文書は newLISP と一緒にパッケージされた他の文書と同様に GNU Free Documentation License のもとでライセンスされます。
newLISP and newLISP-GS are licensed under version 3 of the GPL (General Public License). The newLISP documentation as well as other documentation packaged with newLISP are licensed under the GNU Free Documentation License.

§ )

2. Deprecated functions and future changes(廃止される関数と将来の変更)

バージョン 10.3.0 以降の newLISP は、新規関数 net-ipv を使って、ランタイムに IPv4 モードと IPv6 モードを切り替えることができます。 IPv6 モードで newLISP を開始するのに、-6 のコマンドライン・オプションが使えます。 IPv6 に移行後は、 -6 コマンドライン・スイッチは、IPv4 モードで開始するための -4 に変更されるでしょう。
Since version 10.3.0 newLISP can switch between IPv4 and IPv6 modes during run-time using the new net-ipv function. The -6 commandline option can be used to start newLISP in IPv6 mode. After transition to IPv6 the -6 commandline switch will be changed to -4 for starting up in IPv4 mode.

date-parse の古い書式 parse-date はまだ認識されますが、バージョン10.3.0 以降推奨されません。 古い書式は将来のバージョンで削除されます。
The old writing parse-date of date-parse is still recognized but deprecated since version 10.3.0. The old writing will be removed in a future version.

バージョン 10.4.2 以降、if-not は推奨されていません。将来のバージョンで削除される可能性があります。
Since version 10.4.2 if-not is deprecated and will be removed in a future version.

バージョン 10.4.6 以降の newLISP には、 JSON データをS式に翻訳する組込関数 json-parse があります。 そのため json.lsp モジュール・ファイルが配布から外されます。
Since version 10.4.6 newLISP has a built-in function json-parse for translating JSON data into S-expressions. The module file json.lsp is removed from the distribution.

バージョン 10.4.8 以降、桁数に制限のない整数がサポートされます。 これにより、GNU GMP モジュール である gmp.lsp は不要になります。
Since version 10.4.8 newLISP has built-in support for unlimited precision integers. This makes the GNU GMP module gmp.lsp obsolete.

§ )

3. Interactive Lisp mode(インターラクティブ Lisp モード)

Lisp を体験し、それを試す最も良い方法は、ターミナル・ウィンドウか、オペレーティング・システムのコマンド・シェルにおいて、対話モードを使うことです。 バージョン 10.3 から、newLISP の read-eval-print-loop (REPL) は複数行を受け付けます。
The best way to experience Lisp and experiment with it, is using interactive mode in a terminal window or operating system command shell. Since version 10.3, newLISP's read-eval-print-loop (REPL) accepts multi-line statements.

複数行の宣言文を入力するには、システム・プロンプトの後に空行で [enter] キーを打ちます。 複数行モードから出るには、再び、空行で [enter] キーを打ちます。 次の例では、コンピュータの出力が太文字で示されています:
To enter a multi-line statement hit the [enter] key on an empty line after the system prompt. To exit multi-line mode, hit the [enter] key again on an empty line. In the following example computer output is shown in bold letters:

(define (foo x y)
    (+ x y))

(lambda (x y) (+ x y))
> (foo 3 4)

複数行モードは、OSコマンド・ターミナル・ウィンドウかコマンド・シェルでのみ可能なことに注意してください。 Java ベースの newLISP-GS IDE のモニターでは、複数行を受け付けません(訳注:[cmd][/cmd]は使えます)。
Note, that multi-line mode is only possible in an OS command terminal window or command shell. The monitor window in the Java based newLISP-GS IDE will not accept multi-line statements.

対話モードの Lisp はオペレーティング・システムのシェル・コマンドも受け付けます。 OS コマンドを入力するには、プロンプトの右直後に '!' 文字を入力し、シェル・コマンドを続けます:
Interactive Lisp mode can accept operating system shell commands. To hit an OS command enter the '!' character right after the prompt, immediately followed by the shell command:

> !ls *.html
CodePatterns.html		MemoryManagement.html	newLISPdoc.html
ExpressionEvaluation.html	manual_frame.html		newlisp_index.html
License.html			newLISP-10.3-Release.html	newlisp_manual.html

この例では ls コマンドが入力され、現在のディレクトリの HTML ファイルが表示されています。 MS ウィンドウズ では、dir コマンドを同じ処理に使います。
In the example a ls shell command is entered to show HTML files in the current directory. On MS Windows a dir command could be used in the same fashion.

The mode can also be used to call an editor or any other program:

> !vi foo.lsp

この例では Vi エディタがプログラム "foo.lsp" を編集するために開いています。 エディタを離れた後のプログラムは load 宣言文を使って、走らせることができます。

The Vi editor will open to edit the program "foo.lsp". After leaving the editor the program could be run using a load statement:

> (load "foo.lsp")

これでプログラム foo.lsp が走ります。 この '!' を使ったモードは、newLISP-GS IDE でも使えます。
The program foo.lsp is now run. This mode using '!' can also be used from the newLISP-GS IDE.

UNIX で端末やコマンド・シェルを使っている時は、tab を使って newLISP 組込関数を補完表示できます:
When using a Unix terminal or command shell, tab-expansion for built-in newLISP functions can be used:

> (pri
print       println     primitive?  
> (pri

このように、文字 (pri の入力後に [tab] キーを一回打てば、同じ文字で始まる組込関数が全て表示されます。 関数名の前に [tab] を二回打つと、全ての組込関数名が表示されます。
After entering the characters (pri hit the [tab] key once to show all the built-in functions starting with the same characters. When hitting [tab] twice before a function name has started, all built-in function names will be displayed.

ほとんどの Unix では、ホーム・ディレクトリにある .inputrc ファイルに次の行を含めることで、コマンダラインにおける括弧の一致が可能になります:
On most Unix, parenthesis matching can be enabled on the commandline by including the following line in the file .inputrc in the home directory:

set blink-matching-paren on

但し、全てのシステムの libreadline が、この動作の可能なバージョンになっているとは限りません。
Not all systems have a version of libreadline advanced enough for this to work.

§ )

4. Command-line options, startup and directories(コマンド ライン オプション)

Command line help summary(コマンド ライン ヘルプ要約)

コマンドラインから newLISP を開始する時、いくつかのスイッチとオプション及びソースを指定できます。 次の実行は:
When starting newLISP from the command-line several switches and options and source files can be specified. Executing:

newlisp -h

in a command shell will produce the following summary of options and switches:

 -h this help
 -n no init.lsp (must be first)
 -x <source> <target> link
 -v version
 -s <stacksize>
 -m <max-mem-MB> cell memory
 -e <quoted lisp expression>
 -l <path-file> log connections
 -L <path-file> log all
 -w <working dir>
 -c no prompts, HTTP
 -C force prompts
 -t <usec-server-timeout>
 -p <port-no>
 -d <port-no> demon mode
 -http only
 -6 IPv6 mode

コマンドラインのスイッチの前後で、ロードして実行するファイルを指定できます。 実行可能な newLISP プログラムが続くパラメータを利用するなら、 そのプログラムは (exit) 宣言文で終わっている必要があります。 そうでなければ、newLISP はコマンドラインのパラメータを、ロードして実行すべき追加の newLISP スクリプト(訳注:もしくは追加のコマンドライン・オプション)として解釈します。
Before or after the command-line switches, files to load and execute can be specified. If a newLISP executable program is followed by parameters, the program must finish with and (exit) statement, else newLISP will take command-line parameters as additional newLISP scripts to be loaded and executed.

Linux や他の Unix システム上で、newlispman ページ が見つかります:
On Linux and other Unix systems, a newlisp man page can be found:

man newlisp

これは、Linux/Unix シェルで man ページを表示します。
This will display a man page in the Linux/Unix shell.

Specifying files as URLs(URL としてのファイル指定)

newLISP はコマンドラインで指定されたファイルを、ロードして実行します。 ファイルはローカル・ファイル上のパス名か file:// URL のどちらか、 または HTTP サーバーが走っているリモート・ファイル・システム上の http:// URL で指定されます。 HTTP サーバー・モードで走っている newLISP も HTTP サーバーになります。
newLISP will load and execute files specified on the command-line. Files are specified with either their pathname or a file:// URL on the local file system or with a http:// URL on remote file systems running an HTTP server. That HTTP server can be newLISP running in HTTP server mode.

newlisp aprog.lsp bprog.lsp prog.lsp
newlisp file:///usr/home/newlisp/demo.lsp

No loading of init.lsp(init.lsp のロード無し)

このオプションは、初期化ファイル init.lsp または .init.lsp のロードを抑制します。 これを動作させるには、第一オプションに指定されなければなりません:
This option suppresses loading of any present initialization file init.lsp or .init.lsp. In order to work, this must be the first option specified:

newlisp -n

初期化ファイルの詳細は The initialization file init.lsp(初期化ファイル init.lsp) で。
More about initialization files.

Stack size(スタック・サイズ)

newlisp -s 4000
newlisp -s 100000 aprog bprog
newlisp -s 6000 myprog
newlisp -s 6000

上の例は、-s オプションを使って異なるスタック・サイズで newLISP を開始するのを示しているのと共に、 一つ以上の newLISP ソースファイルをロードする例と URL で指定されたファイルをロードする例を示しています。 スタック・サイズが指定されない時はデフォルトの 2048 になります。 一つのスタックにつき 80 バイトのメモリが予約されます。
The above examples show starting newLISP with different stack sizes using the -s option, as well as loading one or more newLISP source files and loading files specified by an URL. When no stack size is specified, the stack defaults to 2048. Per stack position about 80 bytes of memory are preallocated.

Maximum memory usage(最大メモリ使用量)

newlisp -m 128

この例では newLISP セル・メモリを 128 メガバイトに制限しています。 32 ビット newLISP では、各リスプ・セルは 16 バイト消費するので、 引数の 128 は最大 8,388,608 の newLISP セルを意味します。 この情報は sys-info で返るリストの第二要素にあります。 リスプ・セル量が newLISP で消費する唯一のメモリではありませんが、 動的メモリ使用量全体の良い指標になります。
This example limits newLISP cell memory to 128 megabytes. In 32-bit newLISP, each Lisp cell consumes 16 bytes, so the argument 128 would represent a maximum of 8,388,608 newLISP cells. This information is returned by sys-info as the list's second element. Although Lisp cell memory is not the only memory consumed by newLISP, it is a good estimate of overall dynamic memory usage.

Direct execution mode(直接実行モード)

newLISP 小品はコマンドラインから直接実行できます:
Small pieces of newLISP code can be executed directly from the command-line:

newlisp -e "(+ 3 4)"   7 ; On MS Windows and Unix

newlisp -e '(append "abc" "def")'   "abcdef" ; On Unix

引用符で囲まれた式が評価され、結果は標準出力 (STDOUT) に出力されます。 ほとんどの Unix システム・シェルでは、コマンド文字列の区切りにシングル・クォートが使えます。 -e と引用コマンド文字列の間にスペースが有ることに注意してください。
The expression enclosed in quotation marks is evaluated, and the result is printed to standard out (STDOUT). In most Unix system shells, single quotes can also be used as command string delimiters. Note that there is a space between -e and the quoted command string.

Logging I/O(I/O のログ出力化)

どのモードの newLISP でも -l-L オプションで始めれば、ログの書き込みができます。 走っている newLISP のモードによって、ログ・ファイルに書き込まれる内容が変わります。 どちらのオプションでもログ・ファイルのパス指定が必要です。 パスには相対パスが使え、-l-L オプションと、くっついていても離れていても構いません。 ファイルが存在していないなら、最初にログ出力を書き出す時点で生成されます。
In any mode, newLISP can write a log when started with the -l or -L option. Depending on the mode newLISP is running, different output is written to the log file. Both options always must specify the path of a log-file. The path may be a relative path and can be either attached or detached to the -l or -L option. If the file does not exist, it is created when the first logging output is written.

newlisp -l./logfile.txt -c

newlisp -L /usr/home/www/log.txt -http -w /usr/home/www/htpdocs

The following table shows the items logged in different situations:

logging modecommand-line and net-eval with -cHTTP server with -http
newlisp -l log only input and network connections log only network connections
newlisp -L log also newLISP output (w/o prompts) log also HTTP requests

All logging output is written to the file specified after the -l or -L option.

Specifying the working directory(作業ディレクトリの指定)

-w オプションは、newLISP のスタートアップ後の初期作業ディレクトリを指定します:
The -w option specifies the initial working directory for newLISP after startup:

newlisp -w /usr/home/newlisp

ディレクトリ・パスの付いていないファイルは全て、 -w オプションで指定されたパスに振り向けられます。
All file requests without a directory path will now be directed to the path specified with the -w option.

Suppressing the prompt and HTTP processing(プロンプトの抑制と HTTP 処理)

The command-line prompt and initial copyright banner can be suppressed:

newlisp -c

ログ状態でないなら、待ち受け(listen)と接続のメッセージも抑制されます。 -c オプションは他のプログラムから newLISP を制御する時に便利であり、 net-eval サーバーとして設定する時は必須です。
Listen and connection messages are suppressed if logging is not enabled. The -c option is useful when controlling newLISP from other programs; it is mandatory when setting it up as a net-eval server.

-c オプションは、 CGI プロセシングはもちろん、 HTTP GETPUTPOSTDELETE 要求リクエストに返答する newLISP サーバー・ノードも可能にします。 -w-d と一緒に -c オプションを使うと、 newLISP はスタンドアローンの httpd ウェブ・サーバーになります:
The -c option also enables newLISP server nodes to answer HTTP GET, PUT, POST and DELETE requests, as well as perform CGI processing. Using the -c option, together with the -w and -d options, newLISP can serve as a standalone httpd webserver:

newlisp -c -d 8080 -w /usr/home/www

Unix 機において、newLISP を inetdxinetd が可能なサーバーとして走らせる時は、次のようにして使います:
When running newLISP as a inetd or xinetd enabled server on Unix machines, use:

newlisp -c -w /usr/home/www

-c モードで、newLISP は HTTP と同様なコマンドライン要求リクエストnet-eval 要求リクエストを処理します。 このモードで newLISP を走らせるのは、ファイアーウォールで守られたマシン上でのみ推奨されます。 インターネットに開放され、アクセスも可能なマシン上では、このモードで走らせるべきではありません。 net-eval やコマンドラインのような要求リクエストの処理を抑制するために、より安全な -http オプションを使ってください。
In -c mode, newLISP processes command-line requests as well as HTTP and net-eval requests. Running newLISP in this mode is only recommended on a machine behind a firewall. This mode should not be run on machines open and accessible through the Internet. To suppress the processing of net-eval and command-line–like requests, use the safer -http option.

Forcing prompts in pipe I/O mode(パイプ I/O モードでの強制プロンプト)

大文字 C は、 Emacs エディタ 内においてパイプ I/O モードで newLISP を走らせている時、プロンプトを強制します:
A capital C forces prompts when running newLISP in pipe I/O mode inside the Emacs editor:

newlisp -C

評価による戻り値のコンソール出力を抑制するには silent を使ってください。
To suppress console output from return values from evaluations, use silent.

newLISP as a TCP/IP server(TCP/IP サーバーとして newLISP)

newlisp some.lsp -p 9090

この例は newLISP が TCP/IP ソケット接続上でコマンドを待ち受け(listen)する方法を示しています。 この場合、標準 I/O は -p オプションで指定されるポートへリダイレクトされています。 some.lsp はオプション・ファイルで、 スタートアップ時、接続が開始し待ち受け(listen)する前にロードされます。
This example shows how newLISP can listen for commands on a TCP/IP socket connection. In this case, standard I/O is redirected to the port specified with the -p option. some.lsp is an optional file loaded during startup, before listening for a connection begins.

-p オプションは、主に別のアプリケーションから newLISP を制御する時に使われます。別のアプリケーションとは newLISP GUI フロントエンドや他の言語で書かれたプログラムのようなものです。 制御しているクライアントが接続を閉じると、newLISP は直ちに終了します。
The -p option is mainly used to control newLISP from another application, such as a newLISP GUI front-end or a program written in another language. As soon as the controlling client closes the connection, newLISP will exit.

サーバーとして走っている newLISP のテストに telnet アプリケーションが使えます。 最初に次のように入力します:
A telnet application can be used to test running newLISP as a server. First enter:

newlisp -p 4711 &

Unix シェルにおいて & はプロセスをバックグラウンドで走らせることを意味します。 Windows では、& 無しでサーバー・プロセスをフォアグラウンドで開始して、 telnet アプリケーション用に二つ目のコマンド・ウィンドウを開いてください。 telnet を接続します:
The & indicates to a Unix shell to run the process in the background. On Windows, start the server process without the & in the foreground and open a second command window for the telnet application. Now connect with a telnet:

telnet localhost 4711

接続すると、newLISP サインオン表示とプロンプトが現れます。 4711 の代わりに、他のポート番号を使うこともできます。
If connected, the newLISP sign-on banner and prompt appear. Instead of 4711, any other port number could be used.

クライアント・アプリケーションが接続を閉じると newLISP も終了します。
When the client application closes the connection, newLISP will exit, too.

TCP/IP daemon mode(TCP/IP デーモン モード)

-p モードでは、クライアントへの接続を閉じると newLISP は終了します。 これを避けるためには、-p の代わりに -d オプションを使ってください:
When the connection to the client is closed in -p mode, newLISP exits. To avoid this, use the -d option instead of the -p option:

newlisp -d 4711 &

これは -p オプションのように動作しますが、接続を閉じても newLISP は終了しません。 代わりにメモリにとどまり、新しい接続を待ち受け(listen)、その状態を維持します。 クライアント・アプリケーションから発行された exit がネットワーク接続を閉じても、 newLISP デーモンは常駐を維持し、新しい接続を待ちます。 4711 の代わりにどんなポート番号も使えます。
This works like the -p option, but newLISP does not exit after a connection closes. Instead, it stays in memory, listening for a new connection and preserving its state. An exit issued from a client application closes the network connection, and the newLISP daemon remains resident, waiting for a new connection. Any port number could be used in place of 4711.

各処理が終わって接続を閉じる度に、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 when running a stateful server.

-p または -d モードで走っている時、複数行の宣言文を囲むために開始タグ [cmd] と終了タグ [/cmd] を使う必要があります。 それらは各々個別の行に現れなければなりません(訳注:[cmd][/cmd] を単独行にするということ)。 これにより、制御しているアプリケーションから長いコードを転送することが可能になります。
When running in -p or -d mode, the opening and closing tags [cmd] and [/cmd] must be used to enclose multiline statements. They must each appear on separate lines. This makes it possible to transfer larger portions of code from controlling applications.

次なる -d モードは、クライアント側で net-eval を使う分散処理環境でよく使われます:
The following variant of the -d mode is frequently used in a distributed computing environment, together with net-eval on the client side:

newlisp -c -d 4711 &

-c を指定することで、プロンプト表示を抑制し、 関数 net-eval からの要求リクエストを受け取るのに適したモードにします。
The -c spec suppresses prompts, making this mode suitable for receiving requests from the net-eval function.

走っている newLISP サーバー・ノードは、 HTTPGETPUTDELETE 要求リクエストにも応えます。 get-urlput-urldelete-urlread-filewrite-fileappend-file を使ってのファイルの引き出しや保存ができ、 loadsave を使ってのリモート・サーバー・ノードへのプログラムのロードとセーブができます。 詳細は -c-http オプションの章を見てください。
newLISP server nodes running will also answer HTTP GET, PUT and DELETE requests. This can be used to retrieve and store files with get-url, put-url, delete-url, read-file, write-file and append-file, or to load and save programs using load and save from and to remote server nodes. See the chapters for the -c and -http options for more details.

HTTP-only server mode(HTTP のみのサーバー モード)

-http を使うことで、newLISP の処理を HTTP 処理に制限することができます。 このモードにより、セキュアな httpd ウェブ・サーバー・デーモンが構成されます:
newLISP can be limited to HTTP processing using the -http option. With this mode, a secure httpd web server daemon can be configured:

newlisp -http -d 8080 -w /usr/home/www

Unix 機において、newLISP を inetdxinetd が可能なサーバーとして走らせる時は、次のようにして使います:
When running newLISP as an inetd or xinetd-enabled server on Unix machines, use:

newlisp -http -w /usr/home/www

このモードを使って、よりセキュリティの高い HTTP 処理を行なうには、 スタートアップ時、次のようにプログラムをロードしてください:
To further enhance security and HTTP processing, load a program during startup when using this mode:

newlisp httpd-conf.lsp -http -w /usr/home/www

ファイル httpd-conf.lsp では、関数command-event に、要求リクエストの解析・フィルタ・翻訳用ユーザ定義関数を指定してあります。 動作例については、この関数(訳注:command-event)のリファレンスを見てください。
The file httpd-conf.lsp contains a command-event function configuring a user-defined function to analyze, filter and translate requests. See the reference for this function for a working example.

-c または -http どちらかの HTTP モードでも、次のファイル型が認識され、正しく整形された Content-Type: ヘッダーを返送します:
In the HTTP modes enabled by either -c or -http, the following file types are recognized, and a correctly formatted Content-Type: header is sent back:

file extensionmedia type
any othertext/plain

HTTP サーバー・モードは CGI を提供するために、 Unix ライク・プラットフォームでは /tmp ディレクトリを、 MS Windows では C:\tmp ディレクトリを必要とします。 newLISP は GET、PUT、POST、DELETE 要求リクエストを処理し、カスタムの応答レスポンスヘッダを生成します。 CGI ファイルは拡張子を .cgi にしておく必要があり、さらに UNIX では実行許可を持ってなければなりません。 newLISP サーバー・モード CGI 処理についての詳細情報は、Code Patterns in newLISP ドキュメントで見ることができます。
To serve CGI, HTTP server mode needs a /tmp directory on Unix-like platforms or a C:\tmp directory on MS Windows. newLISP can process GET, PUT, POST and DELETE requests and create custom response headers. CGI files must have the extension .cgi and have executable permission on Unix. More information about CGI processing for newLISP server modes can be found in the document Code Patterns in newLISP

In both server modes -c and -http the environment variables DOCUMENT_ROOT, REQUEST_METHOD, SERVER_SOFTWARE and QUERY_STRING are set. The variables CONTENT_TYPE, CONTENT_LENGTH, HTTP_HOST, HTTP_USER_AGENT and HTTP_COOKIE are also set, if present in the HTTP header sent by the client.

Local domain Unix socket server(ローカル ドメイン Unix ソケット サーバー)

-d または -p サーバー・モードでは、ポートの代わりにローカル・ドメイン Unix ソケット・パスを指定できます。
Instead of a port, a local domain Unix socket path can be specified in the -d or -p server modes.

newlisp -c -d /tmp/mysocket &

別の newLISP プロセスを使ってサーバーをテストします:
Test the server using another newLISP process:

newlisp -e '(net-eval "/tmp/mysocket" 0 "(symbols)")'

A list of all built-in symbols will be printed to the terminal

このモードは net-connectnet-listennet-eval のローカル・デーモン・ソケット・モードと共に動作します。 net-acceptnet-receivenet-send を使って、 net-connectnet-listen で開くローカル・デーモン・ソケットを提供できます。 net-peeknet-select を使って、ローカル・デーモン・ソケット接続を監視できます。
This mode will work together with local domain socket modes of net-connect, net-listen, and net-eval. Local domain sockets opened with net-connect and net-listen can be served using net-accept, net-receive, and net-send. Local domain socket connections can be monitored using net-peek and net-select.

ローカル・デーモン・ソケット接続は通常の TCP/IP ネットワーク接続よりも高速で、同じローカルファイルシステム上でアプリケーションを配布するプロセス間通信に向いています。 このモードは、MS Windows では利用できません。
Local domain socket connections are much faster than normal TCP/IP network connections and preferred for communications between processes on the same local file system in distributed applications. This mode is not available on MS Windows.

Connection timeout(接続のタイムアウト)

-p または -d デーモン・モードで走っている時の接続タイムアウト時間を指定します。 newLISP サーバーはクライアント接続を受け入れ後、さらなる入力が無い時は接続を断ちます。 タイムアウト時間は μ秒で指定します:
Specifies a connection timeout when running in -p or -d demon mode. A newLISP Server will disconnect when no further input is read after accepting a client connection. The timeout is specified in micro seconds:

newlisp -c -t 3000000 -d 4711 &

この例は 3秒のタイムアウト時間を指定しています。
The example specifies a timeout of three seconds.

inetd daemon mode(inetd デーモン モード)

事実上、全ての Linux/Unix OS 上で走っている inetd サーバーは、newLISP のプロキシとして機能します。 サーバーは、TCP/IP または UDP 接続を受け入れ、要求リクエストを標準 I/O を通して newLISP に渡します。 inetd は各クライアント接続用に newLISP プロセスを開始します。 クライアントが接続を断つと、接続が閉じられ、newLISP プロセスも終了します。
The inetd server running on virtually all Linux/Unix OSes can function as a proxy for newLISP. The server accepts TCP/IP or UDP connections and passes on requests via standard I/O to newLISP. inetd starts a newLISP process for each client connection. When a client disconnects, the connection is closed and the newLISP process exits.

newLISP はメモリ使用量が少ない上に実行も早く、プログラムのロード時間も短いので、inetd と newLISP の組み合わせは複数の接続を効率良く処理します。 net-eval を使って動作させる時、このモードが好まれるのは、分散処理環境で複数の要求リクエストを効率良く処理するためです。
inetd and newLISP together can handle multiple connections efficiently because of newLISP's small memory footprint, fast executable, and short program load times. When working with net-eval, this mode is preferred for efficiently handling multiple requests in a distributed computing environment.

servicesinetd.conf の二つのファイルを設定しておかなけばなりません。 どちらも ASCII 編集が可能で、通常 /etc/services/etc/inetd.conf で見つかります。
Two files must be configured: services and inetd.conf. Both are ASCII-editable and can usually be found at /etc/services and /etc/inetd.conf.

次の行のどちらかを inetd.conf に置いてください:
Put one of the following lines into inetd.conf:

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

root の代わりに別のユーザとオプション・グループを指定できます。 詳細は、inetd の Unix man ページを見てください。
Instead of root, another user and optional group can be specified. For details, see the Unix man page for inetd.

ファイル services には次の行を置いてください:
The following line is put into the services file:

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

Mac OS X と Unix システムによっては、inetd の代わりに xinetd を使うことができます。 /etc/xinetd.d/ ディレクトリに net-eval というファイル名で次の内容を保存します:
On Mac OS X and some Unix systems, xinetd can be used instead of inetd. Save the following to a file named net-eval in the /etc/xinetd.d/ directory:

service net-eval
    socket_type = stream
    wait = no
    user = root
    server = /usr/bin/newlisp
    port = 4711
    server_args = -c
    only_from = localhost

セキュリティ上の理由から、root は別ユーザに変更すべきであり、 適切に調整された www ドキュメント・ディレクトリのファイル許可も同様です。 only_from 指定は、リモート・アクセスを許可するために取ることができます。
For security reasons, root should be changed to a different user and file permissions of the www document directory adjusted accordingly. The only_from spec can be left out to permit remote access.

他の構成オプションは xinetdxinetd.conf の man ページを見てください。
See the man pages for xinetd and xinetd.conf for other configuration options.

デーモンを設定した後、新規または変更した構成ファイルを読み込ませるために、inetd あるいは xinetd を(訳注:次のようにして)再起動する必要があります:
After configuring the daemon, inetd or xinetd must be restarted to allow the new or changed configuration files to be read:

kill -HUP <pid>

走っている xinetd プロセスのプロセスID で <pid> を置き換えてください。
Replace <pid> with the process ID of the running xinetd process.

4711 以外の数値や TCP 以外のネットワーク・プロトコルを指定することもできます。
A number or network protocol other than 4711 or TCP can be specified.

プロンプトなしの newLISP コマンドラインで入力されたかのように、 newLISP は全てを処理します。 inetd セットアップをテストするために telnetプログラムを使用できます:
newLISP handles everything as if the input were being entered on a newLISP command-line without a prompt. To test the inetd setup, the telnet program can be used:

telnet localhost 4711

これで newLISP 式が入力でき、inetd は自動的に newLISP プロセスのスタートアップ通信を処理します。 複数行の式は、[cmd][/cmd] のタグで囲むことで、 各々個別の行として入力できます。
newLISP expressions can now be entered, and inetd will automatically handle the startup and communications of a newLISP process. Multiline expressions can be entered by bracketing them with [cmd] and [/cmd] tags, each on separate lines.

newLISP サーバ・ノード は、HTTP GETPUT要求リクエストに返答します。 これは、 get-urlput-urlread-filewrite-fileappend-file によるファイルの取り出しや保存、および、 loadsave を使っての リモート・サーバ・ノードへのプログラムのロードとセーブを 可能にします。
newLISP server nodes answer HTTP GET and PUT requests. This can be used to retrieve and store files with get-url, put-url, read-file, write-file and append-file, or to load and save programs using load and save from and to remote server nodes.

Linking a source file with newLISP for a new executable(newLISP 新実行部とソースとの統合)

コマンド・ライン・フラグ -x を使い、ソース・コードと newLISP 実行部を一緒にして、自己完結アプリケーションを構築できます。
Source code and the newLISP executable can be linked together to build a self-contained application by using the -x command line flag.

;; uppercase.lsp - Link example
(println (upper-case (main-args 1)))

プログラム uppercase.lsp はコマンド・ライン上の最初の単語を取り、それを大文字に変換します。
The program uppercase.lsp takes the first word on the command-line and converts it to uppercase.

To build this program as a self-contained executable, follow these steps:

# on OSX, Linux and other UNIX

newlisp -x uppercase.lsp uppercase

chmod 755 uppercase # give executable permission

# on Windows the target needs .exe extension

newlisp -x uppercase.lsp uppercase.exe

newLISP は実行環境のパスで newLISP 実行部を探し、ソース・コードのコピーとリンクします。
newLISP will find a newLISP executable in the execution path of the environment and link a copy of the source code.

uppercase "convert me to uppercase"

The console should print:


リンクしたプログラムは、起動時に初期化ファイル init.lsp あるいは .init.lsp をロードしないので注意してください。
Note that neither one of the initialization files init.lsp nor .init.lsp is loaded during startup of linked programs.

§ )

5. Startup, directories, environment(スタートアップ、ディレクトリ、環境)

Environment variable NEWLISPDIR(環境変数 NEWLISPDIR)

newLISP は、スタートアップ時に環境変数 NEWLISPDIR が設定されていないなら、それを設定します。 Linux、BSDs、Mac OS X 等のUnix 上では、その変数を /usr/share/newlisp に設定します。 MS Windows 上では、%PROGRAMFILES%/newlisp になります。
During startup, newLISP sets the environment variable NEWLISPDIR, if it is not set already. On Linux, BSDs, Mac OS X and other Unixes the variable is set to /usr/share/newlisp. On MS Windows the variable is set to %PROGRAMFILES%/newlisp.

環境変数 NEWLISPDIR が役立つのは、newLISP と一緒にインストールされるファイルを次のようにロードする時です:
The environment variable NEWLISPDIR is useful when loading files installed with newLISP:

(load (append (env "NEWLISPDIR") "/guiserver.lsp"))

(load (append (env "NEWLISPDIR") "/modules/mysql.lsp"))

関数 module を使えば、modules/ ディレクトリからロードする二番目の宣言文を短くできます:
A predefined function module can be used to shorten the second statement loading from the modules/ directory:

(module "mysql.lsp")

The initialization file init.lsp(初期化ファイル init.lsp

コマンドラインで指定されたファイルをロードする前、そして、バナーやプロンプトが示される前に、 newLISP はホーム・ディレクトリから .init.lsp のロードを試みます。 Mac OS X、Linux、その他 Unix では、ホーム・ディレクトリは HOME 環境変数で見つかります。 MS Windows では、このディレクトリ名は環境変数 USERPROFILEDOCUMENT_ROOT に含まれています。
Before loading any files specified on the command-line, and before the banner and prompt are shown. newLISP tries to load a file .init.lsp from the home directory of the user starting newLISP. On Mac OS X, Linux and other Unix the home directory is found in the HOME environment variable. On MS Windows the directory name is contained in the USERPROFILE or DOCUMENT_ROOT environment variable.

もし、ホーム・ディレクトリで .init.lsp を見つけられないなら、 newLISP は環境変数 NEWLISPDIR で見つかるディレクトリから init.lsp ファイルのロードを試みます。
If a .init.lsp cannot be found in the home directory newLISP tries to load the file init.lsp from the directory found in the environment variable NEWLISPDIR.

newLISP を共有ライブラリとして起動すると、環境変数 NEWLISPLIB_INIT にある初期化ファイルを探します。 初期化ファイルはフル・パス名で指定されていることが必要です。 NEWLISPLIB_INIT が定義されていなければ、このライブラリ・モジュールは初期化ファイルをロードしません。
When newLISP is run as a shared library, an initialization file is looked for in the environment variable NEWLISPLIB_INIT. The full path-name of the initialization file must be specified. If NEWLISPLIB_INIT is not defined, no initialization file will be loaded by the library module.

newLISP が走るために init.lsp は必要ありませんが、関数やシステム共通変数を定義するのに便利です。
Although newLISP does not require init.lsp to run, it is convenient for defining functions and system-wide variables.

リンク・プログラムのスタートアップ中は、初期化ファイル init.lsp または .init.lsp のどちらもロードされないので、注意してください。
Note that neither one of the initialization files init.lsp nor .init.lsp is loaded during startup of linked programs.

Directories on Linux, BSD, Mac OS X and other Unix (Linux, BSD, Mac OS X の ディレクトリ)

/usr/share/newlisp/modules ディレクトリには、POP3 mail 等の有用な関数群のモジュールが入っています。 /usr/share/newlisp/guiserver ディレクトリには、newLISP-GS で書かれた GUI アプリケーション用サンプル・プログラムが入っています。 /usr/share/doc/newlisp/ ディレクトリには、HTML形式のドキュメントが入っています。
The directory /usr/share/newlisp/modules contains modules with useful functions POP3 mail, etc. The directory /usr/share/newlisp/guiserver contains sample programs for writing GUI applications with newLISP-GS. The directory /usr/share/doc/newlisp/ contains documentation in HTML format.

Directories on MS Windows(MS Windows のディレクトリ)

MS Windows システムでは、全ファイルがデフォルトの %PROGRAMFILES%¥newlisp ディレクトリにインストールされます(訳注:インストール・プログラム実行時にインストール・ディレクトリを変更することもできます)。 PROGRAMFILES は MS Windows の環境変数で、日本語環境へのインストールでは結果として C:¥Program files¥newlisp¥ になります。 %PROGRAMFILES%¥newlisp¥modules%PROGRAMFILES%¥newlisp¥guiserver のサブ・ディレクトリには、 外部ライブラリへのインタフェース用モジュールや newLISP-GS で書かれたサンプル・プログラムが入っています。
On MS Windows systems, all files are installed in the default directory %PROGRAMFILES%\newlisp. PROGRAMFILES is a MS Windows environment variable that resolves to C:\Program files\newlisp\ in English language installations. The subdirectories %PROGRAMFILES%\newlisp\modules and %PROGRAMFILES%\newlisp\guiserver contain modules for interfacing to external libraries and sample programs written for newLISP-GS.

§ )

6. Extending newLISP with shared libraries(共有ライブラリによる newLISP の拡張)

Unix や MS Windows の多くの共有ライブラリは newLISP の機能を拡張するために使えます。 例えば、グラフィカル・ユーザ・インターフェイス用ライブラリや暗号・復号用ライブラリ、データベース・アクセス用などがあります。
Many shared libraries on Unix and MS Windows systems can be used to extend newLISP's functionality. Examples are libraries for writing graphical user interfaces, libraries for encryption or decryption and libraries for accessing databases.

外部ライブラリから関数を導入するには、関数import を使います。 外部ライブラリからのコールバック関数を登録するには、関数callback を使います。 導入したライブラリ関数への入出力用フォーマットを簡単に実現できる関数として、 packunpackget-charget-stringget-intget-long 等があります。 関数 cpymem は指定したアドレスを直接メモリーからメモリへコピーします。
The function import is used to import functions from external libraries. The function callback is used to register callback functions in external libraries. Other functions like pack, unpack, get-char, get-string, get-int and get-long exist to facilitate formatting input and output to and from imported library functions. The fucntion cpymem allows direct memory-to-memory copy specifying addresses.

共有ライブラリ用 API を書くときに使う関数のほとんどが、正しく使わないとセグメンテーション違反を起こします。 このマニュアルの にリンクした章に、そのような関数が記してあります。
。 Most of the functions used when writing APIs for share libraries can cause newLISP to segfault when not used correctly. The reference documentation marks these functions with a character linking to this chapter.

Code Patterns in newLISP 文書の 23. Extending newLISP の章も見てください。
See also the chapter 23. Extending newLISP in the Code Patterns in newLISP document.

§ )

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

newLISP as C library(C ライブラリとしての newLISP)

newLISP は共有ライブラリとしてもコンパイルできます。 Linux や BSD 等の Unix ではライブラリを から呼び出します。 Windows なら newlisp.dll、Mac OS X では newlisp.dylib です。 newLISP 共有ライブラリは他の共有ライブラリと同じようにして使えます。
newLISP can be compiled as a shared library. On Linux, BSDs and other Unix flavors the library is called On Windows it is called newlisp.dll and newlisp.dylib on Mac OS X. A newLISP shared library is used like any other shared library.

導入できる主な関数は newlispEvalStr です。 この関数は eval-string のように newLISP の式からなる文字列を取り、結果を文字列のアドレスに保存します。 結果は get-string を使って取り出せます。 結果の文字列はコマンド・ライン・セッションの出力のように整形されます。 ライン・フィード終端文字は含まれますが、プロンプト記号は含みません。
The main function to import is newlispEvalStr. Like eval-string, this function takes a string containing a newLISP expression and stores the result in a string address. The result can be retrieved using get-string. The returned string is formatted like output from a command-line session. It contains terminating line-feed characters, but not the prompt string.

関数 newlispEvalStr の呼び出しで、コンソールに向けられる出力(例えば、戻り値や print 文)は、通常文字列ポインタの整数値で返されます。 このポインタを関数 get-string に渡すことで、出力にアクセスできます。(訳注: get-string )戻り値の(訳注:コンソールへの)出力を止めるには silent 命令を使ってください。
When calling 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.

コンソール上で stdio を使えるようにするには、newlispLibConsole を導入し、1 をパラメータにして呼び出します。そうすれば、コンソール上から stdinstdout に I/O できます。
To enable stdio on the console, import the function newlispLibConsole and call it with a parameter of 1 for enabling I/O on the console with stdin and stdout.

v.10.3.3 から newlispCallback を使って、コールバックを登録できるようになりました。 詳細は、Code Patterns in newLISP 文書の 24. newLISP compiled as a shared library の章を読んでください。
Since v.10.3.3 callbacks can also be registered using newlispCallback. For more information read the chapter 24. newLISP compiled as a shared library in the Code Patterns in newLISP document.

newLISP as a JavaScript library(JavaScript ライブラリとしての newLISP)

バージョン 10.5.7 から、newLISP は Emscripten ツールを使って、JavaScript にもコンパイルできます。 このライブラリを使えば、ウェブ・ブラウザのクライアント側で JavaScript や HTML のように newLISP を走らせることができます。 HTML ページには newLISP コードと JavaScript コードを混在でき、両言語間で互いに呼び出し合うことができます。 詳細情報は、配布パッケージ中の を見てください。newlisp-js-lib.js ライブラリやドキュメント、例題アプリケーションが入っています。 ブラウザ・ベースの簡単な newLISP 開発環境がここからアクセスできます:newlisp-js。 このアプリケーションには、ほかの例題アプリケーションやドキュメントへのリンクが含まれています。 ダウンロード・リンクには、全パッケージがリンクされています。
Since version 10.5.7, newLISP can be compiled to JavaScript using the Emscripten toolset. The library can be used to run newLISP clientr-side in a web browser, just like JavaScript or HTML. An HTML page can host both, newLISP code and JavaScript code together. Both languages can call each other. For more information see the distribution package which contains the library newlisp-js-lib.js, documentaion and example applications. A small newLISP development environment hosted in a browser can also be accessed here: newlisp-js The application contains links to another example application, documentation and a download link for the whole package.

JavaScript ライブラリとしてコンパイルされた newLISP には、ウェブ・ブラウザ用 newLISP の API の新関数がつかされています。
newLISP compiled as a JavaScript library adds new functions linked from API for newLISP in a web browser.

§ )

8. Evaluating newLISP expressions(newLISP 式の評価)

この章は、newLISP 宣言文の評価と newLISP における整数と浮動小数点数の規則に関する短い紹介です。
The following is a short introduction to newLISP statement evaluation and the role of integer and floating point arithmetic in newLISP.

load 関数を使った時、もしくは、コマンド・ライン上のコンソールで式を入力した時、トップ・レベルの式が評価されます。
Top-level expressions are evaluated when using the load function or when entering expressions in console mode on the command-line.

Interactive Multiline expressions(インターラクティブ時の複数行の式)

最初に空行を入力することで、複数行の式を入力できます。 一旦、複数行モードに入り、再び入力モードに戻るには、空行を入力します。 そうすると、入力して宣言文一式が評価されます(出力は太字):
Multiline expressions can be entered by entering an empty line first. Once in multiline mode, another empty line returns from entry mode and evaluates the statement(s) entered (ouput in boldface):

(define (foo x y)
    (+ x y))

(lambda (x y) (+ x y))
> (foo 3 4)
> _

空行で enter キーを打って複数行モードに入ると、プロンプト表示が抑制されます。 もう一度空行を入力することで複数行モードから離れ、式が評価されます。
Entering multiline mode by hitting the enter key on an empty line suppresses the prompt. Entering another empty line will leave the multiline mode and evaluate expressions.

空行入力の代わりに、[cmd][/cmd] のタグも使え、 その際、各々別の行として入力します。 このモードは、いくつかの newLISP 制御インターラクティブ IDE でも使いますし、関数net-eval でも内部的に使われます。 [cmd][/cmd] のタグは newLISP-GS Java IDE のコンソール部分でも使う必要があります。
As an alternativo to entering empty lines, the [cmd] and [/cmd] tags are used, each entered on separate lines. This mode is used by some interactive IDEs controlling newLISP and internally by the net-eval function. The [cmd] and [/cmd] tags must also be used in the console part of the newLISP-GS Java IDE.

Integer, floating point data and operators(整数、浮動小数点データと演算子)

newLISP の関数や演算子は、整数と浮動小数点数を受け入れ、 必要な形式に変換します。 例えば、ビット操作演算子は浮動小数点数の小数部分を省いて整数に変換します。 同様に、三角関数は計算を実行する前、内部的に整数を浮動小数点数に変換しています。
newLISP functions and operators accept integer and floating point numbers, converting them into the needed format. For example, a bit-manipulating operator converts a floating point number into an integer by omitting the fractional part. In the same fashion, a trigonometric function will internally convert an integer into a floating point number before performing its calculation.

シンボル演算子 (+ - * / % $ ~ | ^ << >>) は整数型の値を返します。 シンボルの代わりに単語としての名前を持つ関数や演算子(例えば、+ の代わりに add )は浮動小数点数を返します。 整数演算子は浮動小数点数の小数を切り捨て、整数にします。
The symbol operators (+ - * / % $ ~ | ^ << >>) return values of type integer. Functions and operators named with a word instead of a symbol (e.g., add rather than +) return floating point numbers. Integer operators truncate floating point numbers to integers, discarding the fractional parts.

newLISP は、基本的な算術演算子として二つのタイプを持っています: 整数 (+ - * /) 用と 浮動小数点 (add sub mul div)用です。 算術関数は関数自身の型と互換性のある型に引数を変換します:整数関数は引数を整数に、浮動小数点関数は引数を浮動小数点に。 newLISP を他のスクリプト言語のように動作させるために、 整数演算子 +, -, *, / で 浮動小数点演算 add, sub, mul, div を 実行するよう再定義できます:
newLISP has two types of basic arithmetic operators: integer (+ - * /) and floating point (add sub mul div). The arithmetic functions convert their arguments into types compatible with the function's own type: integer function arguments into integers, floating point function arguments into floating points. To make newLISP behave more like other scripting languages, the integer operators +, -, *, and / can be redefined to perform the floating point operators add, sub, mul, and div:

(constant '+ add)
(constant '- sub)
(constant '* mul)
(constant '/ div)
;; or all 4 operators at once
(constant '+ add '- sub '* mul '/ div)

これで共通算術演算子 +, -, *, / は、整数と浮動小数点数を受け入れ、浮動小数点の結果を返します。
Now the common arithmetic operators +, -, *, and / accept both integer and floating point numbers and return floating point results.

この場合、導入したライブラリから整数を想定している関数を使う時は、注意を払わなければなりません。 +, -, *, / を再定義した後では、整数の代わりに倍精度浮動小数点数を不用意に渡すことになるかもしれません。 このような時は、関数 int を使って、浮動小数点数を整数に変換できます。 同様に、float 関数を使って、整数を浮動小数点数に変換することもできます:
Care must be taken when importing from libraries that use functions expecting integers. After redefining +, -, *, and /, a double floating point number may be unintentionally passed to an imported function instead of an integer. In this case, floating point numbers can be converted into integers by using the function int. Likewise, integers can be transformed into floating point numbers using the float function:

(import "mylib.dll" "foo")  ; importing int foo(int x) from C
(foo (int x))               ; passed argument as integer
(import "mylib.dll" "bar")  ; importing C int bar(double y)
(bar (float y))             ; force double float

newLISP に搭載されているモジュールには、 +, -, *, / のデフォルトの実装を想定して書かれているものがあります。 これは、導入されるライブラリ関数のアドレス計算実行時に、最大スピードを与えるためです。
Some of the modules shipping with newLISP are written assuming the default implementations of +, -, *, and /. This gives imported library functions maximum speed when performing address calculations.

newLISP 好きなら、 整数演算子として定義された +, -, *, / をそのままにして、 明らかに要求された時のみ、add, sub, mul, div を使うでしょう。 バージョン 8.9.7 から、newLISP の整数演算は 64 ビット演算ですが、64 ビット倍精度浮動小数点数が提供する整数部の精度は 52 ビットです。
The newLISP preference is to leave +, -, *, and / defined as integer operators and use add, sub, mul, and div when explicitly required. Since version 8.9.7, integer operations in newLISP are 64 bit operations, whereas 64 bit double floating point numbers offer only 52 bits of resolution in the integer part of the number.

Big integer, multiple precision arithmetic(算術精度に制限のない大整数)

The following operators, functions and predicates work on big integers:

+ - * / ++ -- % 算術演算子
arithmetic operators
< > = <= >= != 論理演算子
logical operators
abs 数値の絶対値を返す
returns the absolute value of a number
gcd 最大公約数を計算する
calculates the greatest common divisor of a group of integers
even? 整数の偶奇をチェック
checks the parity of an integer number
odd? 整数の奇数をチェック
checks the parity of an integer number
number? 数値のチェック
checks if an expression is a float or an integer
zero? ゼロのチェック
checks if an expression is 0 or 0.0

これらの演算子や関数の引数の一番目が大整数なら、大整数モードで計算を実行します。このマニュアルの関数リファレンス節では、これらの関数に bigint が記されています。
If the first argument in any of these operators and functions is a big integer, the calculation performed will be in big integer mode. In the Function Reference section of this manual these are marked with a bigint suffix.

文字通り、9223372036854775807 より大きい数や -9223372036854775808 より小さい数、または末尾に L のつく数は、大整数に変化され、そのモードで処理されます。 整数や浮動小数点や文字列形式からの変換には、関数 bigint が使えます。 bigint? 述語は大変数型かどうかをチェックします。
Literal integer values greater than 9223372036854775807 or smaller than -9223372036854775808, or integers with an appended letter L, will be converted and processed in big integer mode. The function bigint can be used to convert from integer, float or string format to big integer. The predicate bigint? checks for big integer type.

; first argument triggers big integer mode because it's big enough

(+ 123456789012345678901234567890 12345)  123456789012345678901234580235L

; first small literal put in big integer format by 
; appending L to guarantee big integer mode

(+ 12345L 123456789012345678901234567890)  123456789012345678901234580235L

(setq x 1234567890123456789012345)
(* x x)  1524157875323883675049533479957338669120562399025L

; conversion from bigint to float introduces rounding errors

(bigint (float (* x x)))  1524157875323883725344000000000000000000000000000L

; sequence itself does not take big integers, before using
; apply, the sequence is converted with bigint

(apply * (map bigint (sequence 1 100))) ; calculate 100!

; only the first operand needs to be bigint for apply
; to work. The following gives the same result

(apply * (cons 1L (sequence 2 100)))

; length on big integers returns the number of decimal digits
(length (apply * (map bigint (sequence 1 100)))) 
 158 ; decimal digits

; all fibonacci numbers up to 200, only the first number 
; needs to be formatted as big integer, the rest follows
; automatically - when executed from the command line in 
; a 120 char wide terminal, this shows a beautiful pattern

(let (x 1L) (series x (fn (y) (+ x (swap y x))) 200))

When doing mixed integer / big integer arithmetic, the first argument should be a big integer to avoid erratic behaviour.

; because the first argument is 64-bit, no big integer arithmetic 
; will be done, although the second argument is big integer 

(+ 123 12345L)

; the second argument is recognized as a big integer
; and overflows the capacity of a 64-bit integer

(+ 123 123453456735645634565463563546)
 ERR: number overflows in function +

; now the first argument converts to big integer and the
; whole expression is evaluates in big integer mode

(+ 123L 123453456735645634565463563546)

浮動小数点が混在するほとんどの場合、整数と大整数に違いはありません。 第二引数に必要な変換を関数が自動的に行います。 通常の整数や浮動小数点のみを使う場合のオーバーフローは、バージョン 10.5.0 以前の newLISP と変わっていません。
Under most circumstances mixing float, integers and big integers is transparent. Functions automatically do conversions when needed on the second argument. The overflow behavior when using normal integers and floats only, has not changed from newLISP versions previous to 10.5.0.

Evaluation rules and data types(評価ルールとデータ型)

コマンドラインで入力または編集された式を評価します。 複雑なプログラムは Emacs や VI のようなエディタを使って入力できます。 それらのエディタはタイプ中に対応する括弧を示すモードを持っています。 load 関数を使って、コンソール・セクションに保存したファイルを呼び戻せます
Evaluate expressions by entering and editing them on the command-line. More complicated programs can be entered using editors like Emacs and VI, which have modes to show matching parentheses while typing. Load a saved file back into a console session by using the load function.

一行コメントは、;(セミコロン)か #番号記号)で始まり、行の終わりまで及びます。 Linux/Unix 環境でスクリプト言語として newLISP を使う時は # が便利です。 Linux/Unix ではスクリプトとシェルの一行コメントして # が共通に使えるからです。
A line comment begins with a ; (semicolon) or a # (number sign) and extends to the end of the line. newLISP ignores this line during evaluation. The # is useful when using newLISP as a scripting language in Linux/Unix environments, where the # is commonly used as a line comment in scripts and shells.

When evaluation occurs from the command-line, the result is printed to the console window.

続く例題は → シンボルの左側のコードをタイプしてコマンドラインに入力します。 次の行に現れる結果は → シンボルの右側のコードと一致するはずです。
The following examples can be entered on the command-line by typing the code to the left of the    symbol. The result that appears on the next line should match the code to the right of the    symbol.

niltrue は、それ自身に評価される論理データ型です:
nil and true are Boolean data types that evaluate to themselves:

nil     nil
true    true

整数大整数浮動小数点 の数値は、それ自身に評価されます:
Integers, big integers and floating point numbers evaluate to themselves:

123       123    ; decimal integer
0xE8      232    ; hexadecimal prefixed by 0x
055       45     ; octal prefixed by 0 (zero)
0b101010  42     ; binary prefixed by 0b
1.23      1.23   ; float
123e-3    0.123  ; float in scientific notation

 123456789012345678901234567890L ; parses to big integer

整数は符号ビットを含む 64 ビット数値です。 有効整数は -9,223,372,036,854,775,808 と +9,223,372,036,854,775,807 の間です。 浮動小数点数から変換される最大数は、二つの制限の内の一つに丸められます。 newLISP の内部整数で 32 ビット数値で制限されるもの(訳注:例えば、date-parse)は、+2,147,483,647 か -2,147,483,648 のどちらかでオーバーフローします。
Integers are 64-bit numbers including the sign bit. Valid integers are numbers between -9,223,372,036,854,775,808 and +9,223,372,036,854,775,807. Larger numbers converted from floating point numbers are truncated to one of the two limits. Integers internal to newLISP, which are limited to 32-bit numbers, overflow to either +2,147,483,647 or -2,147,483,648.

浮動小数点数は IEEE 754 の 64 ビット倍精度です。 formatで特殊フォーマット文字を使えば、符号無しで 18,446,744,073,709,551,615 まで、表示可能です。
Floating point numbers are IEEE 754 64-bit doubles. Unsigned numbers up to 18,446,744,073,709,551,615 can be displayed using special formatting characters for format.

大整数はメモリが許す限り、桁数に制限がありません。 大整数に必要なメモリは:
Big integers are of unlimited precision and only limited in size by memory. The memory requirement of a big integer is:

bytes = 4 * ceil(digits / 9) + 4.

ここで digits は十進数桁数、bytes は 8 ビット、ceilは次に大きい整数に丸める切り上げ関数です。
Where digits are decimal digits, bytes are 8 bits and ceil is the ceiling function rounding up to the next integer.

文字列 は null 文字も含めることができ、異なる終端を持つことが可能です。 文字列もそれ自身に評価されます。
Strings may contain null characters and can have different delimiters. They evaluate to themselves.

"hello"             "hello"  
"\032\032\065\032"  "  A " 
"\x20\x20\x41\x20"  "  A "
"\t\r\n"            "\t\r\n" 
"\x09\x0d\x0a"      "\t\r\n"

;; null characters are legal in strings:
"\000\001\002"        "\000\001\002"
{this "is" a string}  "this \"is\" a string"
;; use [text] tags for text longer than 2047 bytes:
[text]this is a string, too[/text]
 "this is a string, too"

" (ダブル・クォート) で囲まれた文字列の中では、次の文字が \ (バックスラッシュ、訳注:日本語環境では '¥' ) でエスケープ処理されます:
Strings delimited by " (double quotes) will also process the following characters escaped with a \ (backslash):

\" ダブル・クォートで囲まれた文字列内のダブル・クォート
for a double quote inside a quoted string
\n ライン・フィード文字 (ASCII 10)
for a line-feed character (ASCII 10)
\r キャリッジ・リターン文字 (ASCII 13)
for a return character (ASCII 13)
\b バックスペース文字 (ASCII 8)
for a backspace BS character (ASCII 8)
\t タブ文字 (ASCII 9)
for a TAB character (ASCII 9)
\f フォームフィード文字 (ASCII 12)
for a formfeed FF character (ASCII 12)
\nnn 3桁の10進数によるアスキーコード数(000 から 255 までの nnn)
for a three-digit ASCII number (nnn format between 000 and 255)
\xnn 2桁の16進数によるアスキーコード数(x00 から xff までの xnn)
for a two-digit-hex ASCII number (xnn format between x00 and xff)
\unnnn 4桁の16進数による nnnn で表すユニコード文字。 UTF8版の newLISP は、これを UTF8文字に変換します。
for a unicode character encoded in the four nnnn hexadecimal digits. newLISP will translate this to a UTF8 character in the UTF8 enabled versions of newLISP.
\\バックスラッシュ文字 (ASCII 92) 自体(訳注:日本語環境では '¥' )
for the backslash character (ASCII 92) itself

クォートの付いた文字列は 2,047 文字数を超えることはできません。 それより長い文字列は [text][/text] のタグの境界に使います。 newLISP では 2,047 文字を超える文字列出力に、このタグを自動的に使います。
Quoted strings cannot exceed 2,047 characters. Longer strings should use the [text] and [/text] tag delimiters. newLISP automatically uses these tags for string output longer than 2,047 characters.

{(左波括弧), }(右波括弧)と [text], [/text] の中ではエスケープ文字処理は行われません。
The { (left curly bracket), } (right curly bracket), and [text], [/text] delimiters do not perform escape character processing.

ラムダとラムダ・マクロ式 は、それ自身に評価されます:
Lambda and lambda-macro expressions evaluate to themselves:

(lambda (x) (* x x))                    (lambda (x) (* x x))
(lambda-macro (a b) (set (eval a) b))   (lambda-macro (a b) (set (eval a) b))
(fn (x) (* x x))                        (lambda (x) (* x x))  ; an alternative syntax

シンボル は、その内容に評価されます:
Symbols evaluate to their contents:

(set 'something 123)   123
something              123

コンテキスト は、それ自身に評価されます:
Contexts evaluate to themselves:

(context 'CTX)   CTX
CTX              CTX

組込関数 も、それ自身に評価されます:
Built-in functions also evaluate to themselves:

add                 add <B845770D>
(eval (eval add))   add <B845770D>
(constant '+ add)   add <B845770D>
+                   add <B845770D>

上記例で、< >(山括弧)間の数字は、関数add の16進数メモリ・アドレス(マシン依存)です。 組込プリミティブを表示する時、現れます。
In the above example, the number between the < > (angle brackets) is the hexadecimal memory address (machine-dependent) of the add function. It is displayed when printing a built-in primitive.

クォート式 は評価されると、一個の '(シングル・クォート)を失います:
Quoted expressions lose one ' (single quote) when evaluated:

'something   something
''''any      '''any
'(a b c d)   (a b c d)

シングル・クォートは、しばしば式を評価から保護 するのに使われます。 (例えば、シンボル自身をその内容に代わりに参照したい時や、データを表現するリストを参照したい時)。
A single quote is often used to protect an expression from evaluation (e.g., when referring to the symbol itself instead of its contents or to a list representing data instead of a function).

リスト は(Scheme と同様に)リストの第一要素が評価されてから、式の残りが評価されます。 第一要素の評価結果がリストの残りの要素に適用されますので、第一要素は lambda 式、lambda-macro 式、primitive(組込)関数のどれかでなければなりません。
Lists are evaluated by first evaluating the first list element before the rest of the expression (as in Scheme). The result of the evaluation is applied to the remaining elements in the list and must be one of the following: a lambda expression, lambda-macro expression, or primitive (built-in) function.

(+ 1 2 3 4)                   10
(define (double x) (+ x x))   (lambda (x) (+ x x))


(set 'double (lambda (x) (+ x x)))
(double 20)                40
((lambda (x) (* x x)) 5)   25

newLISP はユーザ定義ラムダ式において、引数を左から右へと評価して、パラメータに(左から右へ)束縛して、その結果を式本体で使います。
For a user-defined lambda expression, newLISP evaluates the arguments from left to right and binds the results to the parameters (also from left to right), before using the results in the body of the expression.

Scheme のように newLISP は式のファンクタ(関数オブジェクト)部分を評価して、その引数に適用します:
Like Scheme, newLISP evaluates the functor (function object) part of an expression before applying the result to its arguments. For example:

((if (> X 10) * +) X Y)

この式では、X の値次第で *(積)か +(和)を X と Y に適用しています。
Depending on the value of X, this expression applies the * (product) or + (sum) function to X and Y.

lambda-macro 式は引数を評価しないので、言語の構文を拡張する使えます。。 ほとんどの組込関数は実行時に(必要な時)引数を左から右へ評価します。 この規則の例外については、このマニュアルのリファレンス部分に示してあります。 引数の全てか一部を評価しない Lisp 関数は特殊形式 と呼ばれます。
Because their arguments are not evaluated, lambda-macro expressions are useful for extending the syntax of the language. Most built-in functions evaluate their arguments from left to right (as needed) when executed. Some exceptions to this rule are indicated in the reference section of this manual. Lisp functions that do not evaluate all or some of their arguments are called special forms.

アレイ は、それ自身に評価されます:
Arrays evaluate to themselves:

(set 'A (array 2 2 '(1 2 3 4)))  ((1 2) (3 4))
(eval A)                         ((1 2) (3 4))

シェル・コマンド:コマンドライン上で第一文字が !(感嘆符)で、 その後にシェル・コマンドが続いているなら、そのコマンドが実行されます。 例えば、Unix の !ls や MS Windows の !dir は、現在の作業ディレクトリの(訳注:ファイルの)リストを表示させます。 ! とシェル・コマンドの間にスペースは必要ありません。 ! で始まるシンボルは内部式として許容され、コマンドライン上ではスペースを先行することでシンボルとして認識されます。 注記:このモードはシェル上で走っている時のみ動作し、他のアプリケーションから newLISP を制御している時は動作しません。
Shell commands: If an ! (exclamation mark) is entered as the first character on the command-line followed by a shell command, the command will be executed. For example, !ls on Unix or !dir on MS Windows will display a listing of the present working directory. No spaces are permitted between the ! and the shell command. Symbols beginning with an ! are still allowed inside expressions or on the command-line when preceded by a space. Note: This mode only works when running in the shell and does not work when controlling newLISP from another application.

> (setq !a 1)
> !a
'a' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
> (eval !a)
>  !a

newLISP シェルから出るには、Linux/Unix では Ctrl-D を押し、MS Windows 上では (exit) とタイプするか Ctrl-C です。
To exit the newLISP shell on Linux/Unix, press Ctrl-D; on MS Windows, type (exit) or Ctrl-C, then the x key.

他のアプリケーションでシェル・コマンドにアクセスする時や newLISP に結果を渡したい時は、関数 exec を使ってください。
Use the exec function to access shell commands from other applications or to pass results back to newLISP.

§ )

9. Lambda expressions in newLISP(newLISP におけるラムダ式)

newLISP におけるラムダ式は、それ自身に評価され、正規のリストと同様に扱われます:
Lambda expressions in newLISP evaluate to themselves and can be treated just like regular lists:

(set 'double (lambda (x) (+ x x)))
(set 'double (fn (x) (+ x x)))      ; alternative syntax

(last double)   (+ x x)            ; treat lambda as a list

注記:newLISP では、ラムダ式の前に ' は必要ありません。ラムダ式が、それ自身に評価されるからです。
Note: No ' is necessary before the lambda expression because lambda expressions evaluate to themselves in newLISP.

(訳注:上記例の)二行目では、Paul Graham が Arc 言語プロジェクトで提案している代替構文 fn キーワードを使っています。
The second line uses the keyword fn, an alternative syntax first suggested by Paul Graham for his Arc language project.

ラムダ式はラムダ・リスト というリスト の一形態であり、その引数は左から右、あるいは、右から左へと連結可能です。 例えば、append を使うと、左の引数が右に引数とつながります:
A lambda expression is a lambda list, a subtype of list, and its arguments can associate from left to right or right to left. When using append, for example, the arguments associate from left to right:

(append (lambda (x)) '((+ x x)))   (lambda (x) (+ x x))

一方、cons は右の引数(訳注:の先頭)に左の引数を入れます:
cons, on the other hand, associates the arguments from right to left:

(cons '(x) (lambda (+ x x)))   (lambda (x) (+ x x))

lambda キーワードはリスト中のシンボルではなく、ラムダ・リスト というリストの特殊 の指定子であることに注意してください。
Note that the lambda keyword is not a symbol in a list, but a designator of a special type of list: the lambda list.

(length (lambda (x) (+ x x)))   2
(first (lambda (x) (+ x x)))    (x)

ラムダ式はユーザ定義の無名関数として、map または apply の引数にすることができます:
Lambda expressions can be mapped or applied onto arguments to work as user-defined, anonymous functions:

((lambda (x) (+ x x)) 123)            246
(apply (lambda (x) (+ x x)) '(123))   246
(map (lambda (x) (+ x x)) '(1 2 3))   (2 4 6)

A lambda expression can be assigned to a symbol, which in turn can be used as a function:

(set 'double (lambda (x) (+ x x)))   (lambda (x) (+ x x))
(double 123)                         246

関数 define はラムダ式をシンボルに割り付ける簡単な方法です:
The define function is just a shorter way of assigning a lambda expression to a symbol:

(define (double x) (+ x x)))   (lambda (x) (+ x x))
(double 123)                   246

上の例で、ラムダ・リスト内の式は double の中身としてアクセス可能です:
In the above example, the expressions inside the lambda list are still accessible within double:

(set 'double (lambda (x) (+ x x)))   (lambda (x) (+ x x))
(last double)                        (+ x x)

A lambda list can be manipulated as a first-class object using any function that operates on lists:

(setf (nth 1 double) '(mul 2 x))      (lambda (x) (mul 2 x))
double                            (lambda (x) (mul 2 x))
(double 123)                      246

ラムダ式に与えられる引数は全てオプションであり、ユーザの指定がない時はデフォルトで nil が割り当てられます。 これにより、多様な変数を定義する関数を書くことが可能になります。
All arguments are optional when applying lambda expressions and default to nil when not supplied by the user. This makes it possible to write functions with multiple parameter signatures.

§ )

10. nil, true, cons, and ()(newLISP の niltruecons()

newLISP において niltrue は共にシンボルで、論理値の偽(false) 真(true)を表します。 niltrue 内容によっては異なる扱いを受けます。 次からの例は nil を使いますが、単に論理を逆にすることによって true にも適用できます。
In newLISP, nil and true represent both the symbols and the Boolean values false and true. Depending on their context, nil and true are treated differently. The following examples use nil, but they can be applied to true by simply reversing the logic.

nil の評価は論理値の偽をもたらし、if, unless, while, until, not のようなフロー制御式内部で偽として取り扱われます。 同様に true の評価は真をもたらします。
Evaluation of nil yields a Boolean false and is treated as such inside flow control expressions such as if, unless, while, until, and not. Likewise, evaluating true yields true.

(set 'lst '(nil nil nil))   (nil nil nil)
(map symbol? lst)           (true true true)

上の例では nil はシンボルです。 次の例では niltrue が評価され、論理値になります:
In the above example, nil represents a symbol. In the following example, nil and true are evaluated and represent Boolean values:

(if nil "no" "yes")   "yes"
(if true "yes" "no")  "yes"
(map not lst)         (true true true)

newLISP では他の Lisp と違って、nil と空リスト () が同じではありません。 両者が論理値の偽として扱われるのは、and, or, if, while, unless, until, cond の条件式においてのみです。
In newLISP, nil and the empty list () are not the same as in some other Lisps. Only in conditional expressions are they treated as a Boolean false, as in and, or, if, while, unless, until, and cond.

nil は空リストではなく、論理値として扱われるので、(cons 'x '()) の評価は (x) となりますが、(cons 'x nil)(x nil) になります。 newLISP では、二つのアトムのコンス(cons)はドット対にならず、二つの要素のリストになります。 述語 atom?nil に対して 真(true)ですが、空リストに対しては 偽(false)です。 newLISP では、空リストは単なる空のリストであり、nil ではありません。
Evaluation of (cons 'x '()) yields (x), but (cons 'x nil) yields (x nil) because nil is treated as a Boolean value when evaluated, not as an empty list. The cons of two atoms in newLISP does not yield a dotted pair, but rather a two-element list. The predicate atom? is true for nil, but false for the empty list. The empty list in newLISP is only an empty list and not equal to nil.

newLISP で一つのリストは、リストの形をした一 newLISP セルです。 それはリストセルの中身を形作る要素を連結するリストの入れ物のようなものです。 newLISP にドット対 はありません。 なぜなら、Lisp セルの cdr(tail)部が常に他の Lisp セルを指し示し、けして、数値やシンボルのような基本データ型を指し示さないからです。 car(head)部のみが基本データ型になりえます。 初期の Lisp 実装では、headtail の名前として carcdr を使っていました。
A list in newLISP is a newLISP cell of type list. It acts like a container for the linked list of elements making up the list cell's contents. There is no dotted pair in newLISP because the cdr (tail) part of a Lisp cell always points to another Lisp cell and never to a basic data type, such as a number or a symbol. Only the car (head) part may contain a basic data type. Early Lisp implementations used car and cdr for the names head and tail.

§ )

11. Arrays(アレイ)

newLISP のアレイは大規模リストの高速アクセスを可能にします。 関数 array を使って、新規アレイを構築し、既存リストの内容で初期化します。 リストをアレイに変換することもでき、その逆もできます。 リストの変更やアクセスに使用する関数のほとんどが、アレイにも同じように適用できます。 アレイにはどのようなデータ型も収めることができ、その組み合わせもしかりです。
newLISP's arrays enable fast element access within large lists. New arrays can be constructed and initialized with the contents of an existing list using the function array. Lists can be converted into arrays, and vice versa. Most of the same functions used for modifying and accessing lists can be applied to arrays, as well. Arrays can hold any type of data or combination thereof.

In particular, the following functions can be used for creating, accessing, and modifying arrays:

append アレイを結合する
appends arrays
apply 関数や演算子を引数のリストに適用する
apply a function or operator to a list of arguments.
array 16次元までのアレイを作成し、初期化する
creates and initializes an array with up to 16 dimensions
array-list アレイをリストに変換する
converts an array into a list
array? アレイかどうかをチェックする
checks if expression is an array
corr 積率相関 係数を計算する
calculates the product-moment correlation coefficient
det 行列式を返す
returns the determinant of a matrix
dolist アレイの各要素で一回ずつ評価する
evaluates once for each element in an array vector
first アレイの第1要素を返す
returns the first row of an array
invert 逆行列を返す
returns the inversion of a matrix
last アレイの最後の要素を返す
returns the last row of an array
map 引数のベクターに関数を適用し、その結果を返す
applies a function to vector(s) of arguments and returns results in a list.
mat 行列のスカラー演算を実行する
perform scalar operations on matrices
multiply 行列の積をとる
multiplies two matrices
nth アレイの要素を返す
returns an element of and array
rest アレイの第一要素以外を返す
returns all but the first row of an array
reverse アレイの要素や行を逆にする
reverses the elements or rows in an array
setf 参照アレイの内容を設定する
sets contents of an array reference
slice アレイの一部を返す
returns a slice of an array
sort アレイの要素を並べ替える
sort the elements in an array
stats データ・ベクターの基本的統計値を計算する
calculates some basic statistics for a data vector
t-test スチューデントのt 統計値を使って、データ・サンプルの平均を比較する
compares means of data samples using the Student's t statistic
transpose 行列を置換する
transposes a matrix

newLISP はアレイをアレイ化して、多次元アレイを表します (すなわち、アレイの要素が、アレイ自身ということ)。
newLISP represents multidimensional arrays with an array of arrays (i.e., the elements of the array are themselves arrays).

インターラクティブに使われている時、newLISP はアレイをリストのように出力・表示するので、それらを区別できません。
When used interactively, newLISP prints and displays arrays as lists, with no way of distinguishing between them.

アレイ(または、アレイを含む変数)を直列化シリアライズするには、関数 sourcesave を使ってください。 そうすれば、アレイの直列化シリアライズ時に array 宣言文が定義部分に含まれます。
Use the source or save functions to serialize arrays (or the variables containing them). The array statement is included as part of the definition when serializing arrays.

Like lists, negative indices can be used to enumerate the elements of an array, starting from the last element.

An out-of-bounds index will cause an error message on an array or list.

正方でないアレイを作ることはできますが、sourcesave を使って直列化シリアライズする際に正方化されます。 関数array が、常に正方形式アレイを構築するからです。
Arrays can be non-rectangular, but they are made rectangular during serialization when using source or save. The array function always constructs arrays in rectangular form.

行列関数 det, transpose, multiply, invert は、 入れ子リストで構築された行列や array で構築されたアレイで使うことができます。
The matrix functions det, transpose, multiply, and invert can be used on matrices built with nested lists or arrays built with array.

詳細は、このマニュアルの array, array?, array-list のリファレンスで見てください。
For more details, see array, array?, and array-list in the reference section of this manual.

§ )

12. Indexing elements of strings, lists, and arrays(文字列、リスト、アレイの要素指定)

アレイ・リスト・文字列(複数の文字)の要素を一個以上の int-index (整数インデックス) で指定して、取り出す関数があります。 リストの要素数が N 個なら、正のインデックスの候補は 0, 1, …, N-2, N-1 です。 int-index が負なら、-N, -N+1, …, -2, -1 となります。 負のインデックスに N を足すと、正のインデックスになります。 関数で対応していなければ、N-1 を超えるインデックスや -N より小さいインデックスは、リストやアレイの境界外エラーを起こします。
Some functions take array, list, or string elements (characters) specified by one or more int-index (integer index). The positive indices run 0, 1, …, N-2, N-1, where N is the number of elements in the list. If int-index is negative, the sequence is -N, -N+1, …, -2, -1. Adding N to the negative index of an element yields the positive index. Unless a function does otherwise, an index greater than N-1 or less then -N causes an out-of-bounds error in lists and arrays.

Implicit indexing for nthnth 的な暗黙の要素指定)

暗黙の要素指定は、リストとアレイの要素や文字列中の文字を取り出す nth の代わりに使えます:
Implicit indexing can be used instead of nth to retrieve the elements of a list or array or the characters of a string:

(set 'lst '(a b c (d e) (f g)))

(lst 0)     a      ; same as (nth 0 lst)
(lst 3)     (d e)
(lst 3 1)   e      ; same as (nth '(3 1) lst)
(lst -1)    (f g)

(set 'myarray (array 3 2 (sequence 1 6)))

(myarray 1)      (3 4)
(myarray 1 0)    3
(myarray 0 -1)   2

("newLISP" 3)    "L"

; indexing strings in UTF8 enabled versions
 ("我能吞下玻璃而不伤身体。" 3)  "下"

インデックスにはリストも使えます。 その際の暗黙の要素指定は pushpop のようなインデックス・ベクターを引数とする関数で使い、また refref-all のようなインデックス・ベクターを生成する関数もあります。
Indices may also be supplied from a list. In this way, implicit indexing works together with functions that take or produce index vectors, such as push, pop, ref and ref-all.

(lst '(3 1))                 e
(set 'vec (ref 'e lst))      (3 1)
(lst vec)                    e

; an empty index vector yields the original list or array

(lst '())   (set 'lst '(a b c (d e) (f g)))

暗黙の要素指定は newLISP の構文ルールを壊しませんが、s式のファンクタ(関数オブジェクト)位置において、他のデータ型に対する既存のルールを拡張することに注目してください。 オリジナルの Lisp では s式リストの第一要素が関数となり、残りの要素を引数とします。 newLISP ではリストがs式のファンクタ(関数オブジェクト)位置に置かれると、リスト自身が自己インデックス関数のように機能し、それに続くインデックスを引数に使います。(訳注:オリジナルの Lisp では newLISP のように、s式リストの第一要素にリストを置くことができません。)
Note that implicit indexing is not breaking newLISP syntax rules but is merely an expansion of existing rules to other data types in the functor position of an s-expression. In original Lisp, the first element in an s-expression list is applied as a function to the rest elements as arguments. In newLISP, a list in the functor position of an s-expression assumes self-indexing functionality using the index arguments following it.

Implicit indexing is faster than the explicit forms, but the explicit forms may be more readable depending on context.

UTF-8 版 newLISP では、文字列への暗黙の要素指定や nth の使用は、1バイト境界ではなく、文字境界で作用します。
Note that in the UTF-8–enabled version of newLISP, implicit indexing of strings or using the nth function work on character rather than single-byte boundaries.

Implicit indexing and the default functor(暗黙の要素指定とデフォルト ファンクタ)

デフォルト・ファンクタ は、コンテキスト内でコンテキスト自身と同じ名前を持つファンクタ(関数オブジェクト)です。 コンテキスト・デフォルト・ファンクタ の章を見てください。 デフォルト・ファンクタは、リストを参照する機構として用意された暗黙の要素指定と一緒に使うことができます。
The default functor is a functor inside a context with the same name as the context itself. See The context default function chapter. A default functor can be used together with implicit indexing to serve as a mechanism for referencing lists:

(set 'MyList:MyList '(a b c d e f g))

(MyList 0)    a
(MyList 3)    d
(MyList -1)   g

(3 2 MyList)  (d e)
(-3 MyList)   (e f g)

(set 'aList MyList)

(aList 3)   d

この例で aListMyList:MyList をコピーすることなく、参照しています。 このコンテキストについての詳細情報はコンテキストを含む変数を見てください。
In this example, aList references MyList:MyList, not a copy of it. For more information about contexts, see Variables holding contexts.

インデックスされたデフォルト・ファンクタは、次の例で示すように setf と共に使うこともできます:
The indexed default functor can also be used with setf as shown in the following example:

(set 'MyList:MyList '(a b c d e f g))

(setf (MyList 3) 999)    999
(MyList 3)               999

MyList:MyList            (a b c 999 e f g)

Implicit indexing for rest and slicerestslice 的な暗黙の要素指定)

restslice 的な暗黙形式は、リストに先行する一つないし二つの数値で形成され、それぞれオフセットと長さを表します。 長さが負数の場合は、リストや文字列の終端から数えます(訳注:この場合、終端を 0 と数えるので、リストや文字列の終端まで切り出す時は負数の長さを指定できない):
Implicit forms of rest and slice can be created by prepending a list with one or two numbers for offset and length. If the length is negative it counts from the end of the list or string:

(set 'lst '(a b c d e f g))
; or as array
(set 'lst (array 7 '(a b c d e f g)))

(1 lst)       (b c d e f g)
(2 lst)       (c d e f g)
(2 3 lst)     (c d e)
(-3 2 lst)    (e f)
(2 -2 lst)    (c d e)

; resting and slicing is always on 8-bit char borders
; even on UTF8 enabled versions

(set 'str "abcdefg")

(1 str)       "bcdefg"
(2 str)       "cdefg"
(2 3 str)     "cde"
(-3 2 str)    "ef"
(2 -2 str)    "cde"

UTF-8 版 newLISP で、(訳注:文字列に使う)関数 restfirstlast はマルチバイト境界で作用します。 しかし、restslice 的な暗黙の要素指定形式は常に 1 バイト境界で作用するので、(訳注:UTF-8 版 newLISP でも)バイナリ・データに使えます。 正規表現関数 findregex からのオフセットと長さの結果も 1 バイト単位でカウントされるので、slice やその暗黙形式と一緒に使えます。
The functions rest, first and last work on multi-byte character boundaries in UTF-8 enabled versions of newLISP. But the implicit indexing forms for slicing and resting will always work on single-byte boundaries and can be used for binary content. Offset and length results from the regular expression functions find and regex are also in single-byte counts and can be further processed with slice or it's implicit form.

Modify references in lists, arrays and strings(文字列、リスト、アレイの参照変更)

インデックスで参照されるリスト、アレイ、文字列の部分は setf を使って変更可能です:
Parts in lists, arrays and strings referenced by indices can be modified using setf:

; lists

(set 'lst '(a b c d (e f g)))

(lst 1)  b

(setf (lst 1) 'z)  z

lst  (a z c d (e f g))

(setf (lst -1) '(E F G))  (E F G)

lst  (a z c d (E F G))

; arrays

(set 'myarray (array 2 3 (sequence 1 6)))  ((1 2 3) (4 5 6))

(setf (myarray 1 2) 66)  66

myarray  ((1 2 3) (4 5 66))

; strings

(set 's "NewLISP")

(setf (s 0) "n")  "n"

s  "newLISP"

全部が要素だけでも入れ子のリストでもアレイでも、この方法を使って変更できます。 暗黙の restslice を使って取り出す部分リストや部分アレイは、setf を使って直接置き換えることができません。要素毎に置き換えましょう。 文字列では、一度に置き換えられるのは一文字だけですが、複数文字からなる文字列に置き換えることは可能です。
Note that only full elements or nested lists or arrays can be changed this way. Slices or rest parts of lists or arrays as used in implicit resting or slicing cannot be substituted at once using setf, but would have to be substituted element by element. In strings only one character can be replaced at a time, but that character can be replaced by a multi-character string.

§ )

13. Destructive versus nondestructive functions(破壊的 対 非破壊的関数)

newLISP 組込の多くは非破壊的(副作用 無し)で、既存のオブジェクトに触らず残しますが、その代わりに新しいオブジェクトを作ります。 とは言え、数は少ないですが、変数・リスト・アレイ・文字列の内容を変更する 関数もあります:
Most of the primitives in newLISP are nondestructive (no side effects) and leave existing objects untouched, although they may create new ones. There are a few destructive functions, however, that do change the contents of a variable, list, array, or string:

++ 整数モードで数値を加算する
increments numbers in integer mode
-- 整数モードで数値を減算する
decrements numbers in integer mode
bind リストの連想変数を束縛する
binds variable associations in a list
constant 変数の内容を設定し、それをプロテクトする
sets the contents of a variable and protects it
extend リストか文字列を拡張する
extends a list or string
dec 変数、リスト、アレイで参照される数値を減算する
decrements a number referenced by a variable, list or array
define 変数の内容を設定する
sets the contents of a variable
define-macro 変数の内容を設定する
sets the contents of a variable
inc 変数、リスト、アレイで参照される数値を加算する
increments a number referenced by a variable, list or array
let ローカル変数を宣言し、初期化する
declares and initializes local variables
letn 入れ子の let のように、ローカル変数を初期化する
initializes local variables incrementally, like nested lets
letex 式中にローカル変数を展開し、その後評価する
expands local variables into an expression, then evaluates
net-receive バッファ変数を読み取る
reads into a buffer variable
pop リストや文字列から要素を取り出す
pops an element from a list or string
pop-assoc 連想リストから連想を取り去る
removes an association from an association list
push リストや文字列に新要素を挿入する
pushes a new element onto a list or string
read バッファ変数を読み取る
reads into a buffer variable
receive 親または子プロセスからメッセージを受け取る
receives a message from a parent or child process
replace リストや文字列内の要素を置換する
replaces elements in a list or string
reverse リストや文字列の並びを逆にする
reverses a list or string
rotate リストや文字列の文字の並びを回転する
rotates the elements of a list or characters of a string
set 変数の内容を設定する
sets the contents of a variable
setf setq シンボル、リスト、アレイ、文字列の内容を設定する
sets the contents of a variable, list, array or string
set-ref 入れ子リスト中の要素を検索し、置き換える
searches for an element in a nested list and replaces it
set-ref-all 入れ子リスト中の要素を検索し、全ての検出を置き換える
searches for an element in a nested list and replaces all instances
sort リストやアレイの要素を並べ替える
sorts the elements of a list or array
swap リストや文字列内の二つの要素を入れ替える
swaps two elements inside a list or string

Make a destructive function non-destructive(破壊的関数の非破壊的関数化)

破壊的関数の中には、目標オブジェクトを関数 copy で包み、非破壊的関数にできるものもあります。
Some destructive functions can be made non-destructive by wrapping the target object into the copy function.

(set 'aList '(a b c d e f))

(replace 'c (copy aList))  (a b d e f)

aList  (a b c d e f)

aList のリストは、変更されずに残っています。
The list in aList is left unchanged.

§ )

14. Early return from functions, loops, and blocks(関数、ループ、ブロックからの早期脱出)

以下の記述は、ループや begin 式内のフロー制御を中断する方法です。
What follows are methods of interrupting the control flow inside both loops and the begin expression.

ループ機能 dolistdotimes には、ループから早期に脱出する条件式をオプションで取ることができます。 catchthrow はループ本体から脱出する汎用形式であり、他の形式または制御ブロックに適用することもできます。
The looping functions dolist and dotimes can take optional conditional expressions to leave the loop early. catch and throw are a more general form to break out of a loop body and are also applicable to other forms or statement blocks.

Using catch and throwcatchthrow の使用)

newLISP は関数型言語なので、関数や繰り返しからの脱出に break 宣言文や return 宣言文を使いません。 代わりに、関数 catchthrow を使って、関数や繰り返しのいかなる場所からも脱出できます:
Because newLISP is a functional language, it uses no break or return statements to exit functions or iterations. Instead, a block or function can be exited at any point using the functions catch and throw:

(define (foo x)
    (if condition (throw 123))
;; if condition is true

(catch (foo p))   123
;; if condition is not true
(catch (foo p))   456

Breaking out of loops works in a similar way:

    (dotimes (i N)
        (if (= (foo i) 100) (throw i))))

 value of i when foo(i) equals 100

この例は、繰り返しを N 回実行する前に脱出する方法を示しています。
The example shows how an iteration can be exited before executing N times.

throw を使えば、複数の場所からの戻りを記述できます:
Multiple points of return can be coded using throw:

(catch (begin
    (if condition-A (throw 'x))
    (if condition-B (throw 'y))

condition-A が真なら xcatch 式から戻り、condition-B が真なら戻り値は y になります。 それ以外では、foo5 の結果が戻り値として使われます。
If condition-A is true, x will be returned from the catch expression; if condition-B is true, the value returned is y. Otherwise, the result from foo5 will be used as the return value.

catch の代わりとして、 誤ったコードやユーザ定義例外によって起こるエラーを捕まえるために、関数error-event が使えます。
As an alternative to catch, the error-event function can be used to catch errors caused by faulty code or user-initiated exceptions.

関数 throw-errorは、ユーザ定義エラーを発生するために使います。
The throw-error function may be used to throw user-defined errors.

Using and and orandor の使用)

論理関数 andor を使って、宣言文ブロックに内包する関数の論理値結果次第で脱出するよう構成できます:
Using the logical functions and and or, blocks of statements can be built that are exited depending on the Boolean result of the enclosed functions:


この and 式はブロック中の関数が nil() (empty list) を返すと、すぐに戻ります。 先行する関数群がどれもブロックからの脱出を起こさなければ、最後の関数の結果が返ります。
The and expression will return as soon as one of the block's functions returns nil or an () (empty list). If none of the preceding functions causes an exit from the block, the result of the last function is returned.

or も同じようにして使えます:
or can be used in a similar fashion:


この or 式の結果を返すのは nil でもなく() でもない 値を返す最初の関数です。
The result of the or expression will be the first function that returns a value which is not nil or ().

§ )

15. Dynamic and lexical scoping(ダイナミック・スコープとレキシカル・スコープ)

(訳注:ダイナミック・スコープ(動的スコープ)とレキシカル・スコープ(構文スコープ)については、 以下が参考になります。  )

newLISP はコンテキスト内で ダイナミック・スコープを使っています。 コンテキストはレキシカルに閉じた名前空間です。 この方法により、newLISP のプログラム部品は レキシカル・スコープ の利点を取る別々の名前空間で活かされます。
newLISP uses dynamic scoping inside contexts. A context is a lexically closed namespace. In this way, parts of a newLISP program can live in different namespaces taking advantage of lexical scoping.

ラムダ式の変数シンボルが引数に束縛されると、古い束縛はスタックにプッシュされます。 ラムダ式から離れると、newLISP が自動的に元の変数束縛に復帰させます。
When the parameter symbols of a lambda expression are bound to its arguments, the old bindings are pushed onto a stack. newLISP automatically restores the original variable bindings when leaving the lambda function.

次の例はダイナミック・スコープ の動作を示しています。 ここでボールドのテキストは newLISP の出力です:
The following example illustrates the dynamic scoping mechanism. The text in bold is the output from newLISP:

> (set 'x 1)
> (define (f) x)
(lambda () x)
> (f)
> (define (g x) (f))
(lambda (x) (f))
> (g 0)
> (f)
> _

変数 x は最初 1 に設定されています。 しかし、(g 0) が呼ばれて x0 に束縛されます。だから、(g 0) 実行中、(f) の出力する x0 になります。 (g 0) の実行後に (f) を呼び出すと、再び x1 として出力します。
The variable x is first set to 1. But when (g 0) is called, x is bound to 0 and x is reported by (f) as 0 during execution of (g 0). After execution of (g 0), the call to (f) will report x as 1 again.

これが、ローカル変数の束縛が関数内部でのみ起こる C や Java のような言語で見られる レキシカル・スコープ 動作との違いです。 C のようなレキシカル・スコープ言語では、(f) はシンボル x のグローバル束縛として、常に 1 を出力します。
This is different from the lexical scoping mechanisms found in languages like C or Java, where the binding of local parameters occurs inside the function only. In lexically scoped languages like C, (f) would always print the global bindings of the symbol x with 1.

Be aware that passing quoted symbols to a user-defined function causes a name clash if the same variable name is used as a function parameter:

(define (inc-symbol x y) (inc (eval x) y))
(set 'y 200)
(inc-symbol 'y 123)   246
y                     200  ; y is still 200

グローバル y は関数の第二引数と同じシンボル名なので、 inc-symbol は 246 (123 + 123) を返します。グローバル y を影響を受けずに残ります。 ダイナミック・スコープの変数補足 はユーザ定義関数に対してシンボル参照を渡す時、不利になります。 newLISP は変数補足を避けるいくつかの方法を提供しています。
Because the global y shares the same symbol as the function's second parameter, inc-symbol returns 246 (123 + 123), leaving the global y unaffected. Dynamic scoping's variable capture can be a disadvantage when passing symbol references to user-defined functions. newLISP offers several methods to avoid variable capture.

インターフェイスや関数ライブラリを作成する時は、コンテキストを使って関連する関数をグループ化すべきです。 これにより、レキシカルな〝壁〟で関数が囲われ、関数呼び出し時の変数名衝突が回避されます。
〝〟 Contexts should be used to group related functions when creating interfaces or function libraries. This surrounds the functions with a lexical "fence", thus avoiding variable name clashes with the calling functions.

newLISP はレキシカル・スコープの異なる形式でコンテキストを使います。 詳細な情報はコンテキストデフォルト・ファンクタの章を見てください。
newLISP uses contexts for different forms of lexical scoping. See the chapters Contexts and default functors for more information.

§ )

16. Contexts(コンテキスト)

newLISPでは、コンテキスト(contexts) と呼ばれる名前空間でシンボルを分離できます。 各コンテキストは、他の全てのコンテキストから隔離された個別のシンボル表を持っています。 一コンテキスト内のシンボルは他のコンテキストからは見えませんので、異なるコンテキストで同じ名前を使っても衝突しません。
In newLISP, symbols can be separated into namespaces called contexts. Each context has a private symbol table separate from all other contexts. Symbols known in one context are unknown in others, so the same name may be used in different contexts without conflict.

コンテキストは隔離された変数と関数の定義からなるモジュールの構築に使われます。 また、キー・値対の辞書を作るためにも使えます。 コンテキストはコピー可能で、動的に変数を割り当てられ、引数としても渡せます。 newLISP におけるコンテキストはレキシカルに分離された名前空間を持ちますので、レキシカル・スコープ によるプログラミングとプログラミングのソフトウェア・オブジェクト形式を可能にします。
Contexts are used to build modules of isolated variable and function definitions. They also can be used to build dictionaries fo key values pairs. Contexts can be copied and dynamically assigned to variables or passed as arguments by reference. Because contexts in newLISP have lexically separated namespaces, they allow programming with lexical scoping and software object styles of programming.

コンテキストはシンボルのルート部分に明示されているか、コンテキスト MAIN です。 この章では、コンテキスト・シンボルに大文字を使っていますが、小文字も使えます。
Contexts are identified by symbols that are part of the root or MAIN context. Although context symbols are uppercased in this chapter, lowercase symbols may also be used.

コンテキスト MAIN はコンテキスト名であると同時に、組込関数のシンボル及び truenil のような特殊シンボルを保持しています。 コンテキスト MAIN は newLISP を走らせる度に自動的に生成されます。 MAIN の全シンボルを見るには newLISP 開始後、次の式を入力してみてください:
In addition to context names, MAIN contains the symbols for built-in functions and special symbols such as true and nil. The MAIN context is created automatically each time newLISP is run. To see all the symbols in MAIN, enter the following expression after starting newLISP:


MAIN の全シンボルで使われているコンテキストを見るには:
To see all symbols in MAIN pointing to contexts:

(filter context? (map eval (symbols)))

現在のコンテキストが MAIN 以外にある時、MAIN にある全コンテキスト・シンボルを見るには:
To seel all context symbols in MAIN when MAIN is not the current context:

(filter context? (map eval (symbols MAIN)))

Symbol creation in contexts(コンテキストでのシンボル生成)

次の規則により、 作成したシンボルがどのコンテキストに割り当てられるかが明確になり、コンテキストへの理解が簡単になるでしょう。
The following rules should simplify the process of understanding contexts by identifying to which context the created symbols are being assigned.

  1. newLISP の各式の解析と翻訳は、トップ階層から始まります。 この解析中に全シンボルを生成します。 式は翻訳された後に、評価されます。
    newLISP first parses and translates each expression starting at the top level. All symbols are created during this phase. After the expression is translated, it gets evaluated.

  2. 関数 loadsymeval-string が呼ばれた時、newLISP はシンボルを最初に見つけた時、生成します。 newLISP はソースの読み込み時に、評価が起こる にシンボルを生成します。 関数 reader-event は、式を読み込み翻訳するがそれを評価する前に、その式を検査できます。 関数 read-expr は、newLISP のソースを評価することなく、読み込み翻訳するためだけに使えます。
    A symbol is created when newLISP first sees it, while calling the load, sym, or eval-string functions. When newLISP reads a source file, symbols are created before evaluation occurs. The reader-event function can be used to inspect the expression after reading and translating but before evaluation. The read-expr function can be used to read and translate newLISP source without evaluation.

  3. コード翻訳中に見知らぬシンボルに出会うと、その定義の検索を現在のコンテキスト内で始めます。 検索に失敗すると、MAIN 内で組込関数、コンテキスト、グローバル変数において検索を続けます。 定義が見つからなければ、そのシンボルが現在のコンテキスト内にローカルに生成されます。
    When an unknown symbol is encountered during code translation, a search for its definition begins inside the current context. Failing that, the search continues inside MAIN for a built-in function, context, or global symbol. If no definition is found, the symbol is created locally inside the current context.

  4. いったんシンボルが生成され、特定のコンテキストに割り当てられると、 そのシンボルは、関数 delete を使って削除されるまで、そのコンテキストに恒久的に従属します。
    Once a symbol is created and assigned to a specific context, it will belong to that context permanently or until it is deleted using the delete function.

  5. ユーザ定義関数の評価の際、そのシンボルを持っている名前空間にコンテキストが切り替わります。
    When a user-defined function is evaluated, the context is switched to the name-space which owns that symbol.

  6. コンテキスト切り替えは loadsymeval-string の間のシンボル生成にのみ、影響を及ぼします。 ロードされたファイルのトップ階層でコンテキスト切り替えが起こる時以外は、load はデフォルトで MAIN にロードします。 より良い使い方は、関数symeval-string を使う時に、コンテキストを常に指定することです。 コンテキスト切り替えは関数内部でなく、通常プログラムのトップ階層でのみ起こります。
    A context switch only influences symbol creation during load, sym, or eval-string. load by default loads into MAIN except when context switches occur on the top level of the file loaded. For better style, the context should always be specified when the functions sym and eval-string are used. A context switch should normally only be made on the top level of a program, never inside a function.

Creating contexts(コンテキスト生成)

コンテキストは関数 context の使用または暗黙の生成、いずれかで生成されます。 最初の方法は同じコンテキストに従属する多量のコードを書く時に使われます:
Contexts can be created either by using the context function or via implicit creation. The first method is used when writing larger portions of code belonging to the same context:

(context 'FOO)

(set 'var 123)

(define (func x y z)
    ... )

(context MAIN)

コンテキストがまだ存在していないなら、コンテキスト・シンボルはクォートされていなければなりません。 コンテキストは、それ自身に評価されるので、MAIN のように既に存在するコンテキストはクォートを必要としません。
If the context does not exist yet, the context symbol must be quoted. If the symbol is not quoted, newLISP assumes the symbol is a variable holding the symbol of the context to create. Because a context evaluates to itself, already existing contexts like MAIN do not require quoting.

上記 newLISP コードを読み込む時、最初の宣言文 (context 'FOO) が評価されます。 これが newLISP に FOO への名前空間切り替えを起こさせ、残りの式を読み込んで評価する際に、以下のシンボル varxyz 全てがコンテキスト FOO 内に生成されます。
When newLISP reads the above code, it will read, then evaluate the first statement: (context 'FOO). This causes newLISP to switch the namespace to FOO and the following symbols var, x, y and z will all be created in the FOO context when reading and evaluating the remaining expressions.

コンテキスト・シンボルは変更から保護されています。一回でもコンテキスト用に使われたシンボルは、delete を使わなければ、他の用途に使うことはできません。
A context symbol is protected against change. Once a symbol refers to a context, it cannot be used for any other purpose, except when using delete.

名前空間 FOO の外から varfunc を参照するには、コンテキスト名の先付けが必要です:
To refer to var or func from anywhere else outside the FOO namespace they need to be prefixed with the context name:

FOO:var  123

(FOO:func p q r)

注記、上記例で名前空間 FOO に属しているのは func だけです。 シンボル p q r は全て、FOO:func の呼び出しで作られますが、現在のコンテキストの一部です。
Note, that in the above example only func belongs to the FOO name space the symbols p q r all are part of the current context from which the FOO:func call is made.

コンテキストに所属する全てのシンボルを表示するために、関数 symbols が使えます:
The symbols function is used to show all symbols belonging to a context:

(symbols FOO)  (FOO:func FOO:var FOO:x FOO:y FOO:z)

; or from inside the context symbols are shown without context prefix
(context FOO)  (func x y z)

Implicitly creating contexts(コンテキストの暗黙の生成)

まだ存在していないコンテキストが参照された時は、暗黙に生成されます。 関数 context とは違い、コンテキストが切り替わりません。 続く宣言文は、全て MAIN コンテキスト内で実行されます:
A context is implicitly created when referring to one that does not yet exist. Unlike the context function, the context is not switched. The following statements are all executed inside the MAIN context:

> (set 'ACTX:var "hello")
> ACTX:var
> _

Note that only the symbols prefixed with their context name will be part of the context:

(define (ACTX:foo x y) 
    (+ x y))

上記コードが MAIN にロードされると、foo のみが ACTX のシンボルです。 シンボル xy は、まだ MAIN のシンボルです。 ACTX:foo の構成要素を全て ACTX コンテキスト内に作るには、 ACTX を先付するか、 トップ階層でコンテキスト切り替えを実施してから、関数を定義する必要があります。
When above code is loaded in MAIN only foo will be part of ACTX. The symbols x and y will still be part of MAIN. To make all locals of ACTX:foo members of the ACTX context, they would either have to be prefixed with ACTX, or the whole funtion must be preceded by a context switch satement at the top level:

(context 'ACTX)
(define (foo x y)
    (+ x y)
(context MAIN

;; above same as

(define (ACTX:foo ACTX:x ACTX:y)
    (+ ACTX:x ACTX:y))

Loading module files(モジュール・ファイルのロード)

コマンドラインで load を使ってソース・ファイルをロードしている時や関数 eval-string または sym を実行している時は、関数 context が全てのシンボルと関数定義をどの名前空間に置くべきかを newLISP ソース・コード・リーダー に知らせます:
When loading source files on the command-line with load, or when executing the functions eval-string or sym, the context function tells the newLISP source code reader in which namespace to put all of the symbols and definitions:

;;; file MY_PROG.LSP
;; everything from here on goes into GRAPH
(context 'GRAPH)
(define (draw-triangle x y z)

(define (draw-circle)
;; show the runtime context, which is GRAPH
(define (foo)
;; switch back to MAIN
(context 'MAIN)
;; end of file					

関数 draw-triangledraw-circle—変数 xyz を伴う—はコンテキスト GRAPH の部品です。 これらのシンボルは GRAPH にとってのみ既知です。 これらの関数を他のコンテキストから呼び出すには GRAPH: を先付けします:
The draw-triangle and draw-circle functions — along with their x, y, and z parameters — are now part of the GRAPH context. These symbols are known only to GRAPH. To call these functions from another context, prefix them with GRAPH:

(GRAPH:draw-triangle 1 2 3)
(GRAPH:foo)   GRAPH										

最後の宣言文は、実行中のコンテキストを(function foo の context である)GRAPH に切り替える方法です。
The last statement shows how the runtime context has changed to GRAPH (function foo's context).

他のコンテキストからシンボル同士を比較する時は、シンボルの名前とコンテキストの両方を使います。 全修飾シンボルから名前部分を取り出すには関数 term を使います。
A symbol's name and context are used when comparing symbols from different contexts. The term function can be used to extract the term part from a fully qualified symbol.

;; same symbol name, but in different context
(= 'A:val 'B:val)                     nil
(= (term 'A:val) (term 'B:val))       true
(= (prefix 'A:val) (prefix 'B:val))   nil

注記:上記例のシンボルが ' (single quote) でクォートされているのは、シンボルのコンテキストではなく、シンボル自身を対象にしているからです。
Note: The symbols in above example are quoted with a ' (single quote) because we are interested in the symbol itself, not in the contents of the symbol.

Global scope(グローバル スコープ)

デフォルトでは組込関数と niltrue のような特殊シンボルのみが、MAIN 以外のコンテキスト内でも見ることができます。 どのコンテキストでもシンボルが見られるようにするには関数 global を使います:
By default, only built-in functions and symbols like nil and true are visible inside contexts other than MAIN. To make a symbol visible to every context, use the global function:

(set 'aVar 123)  123
(global 'aVar)   aVar

(context 'FOO)   FOO

aVar             123

global 宣言文を使わなければ、二番目の aVar123 の代わりに nil を返すでしょう。 FOO が前もって定義されたシンボル(この例では aVar)を持っているなら、代わりに—グローバルのシンボルではなく—その シンボル(訳注:FOO:aVar)の値が返ります。 コンテキスト MAIN 上でのみ、シンボルをグローバルにできることに注意してください(訳注:関数globalMAIN 上でしか使えないということ)。
Without the global statement, the second aVar would have returned nil instead of 123. If FOO had a previously defined symbol (aVar in this example) that symbol's value — and not the global's — would be returned instead. Note that only symbols from the MAIN context can be made global.

関数 global を使って、いったんコンテキストに対して透過にしてしまうと、(訳注:delete を使って削除しない限り)再びシンボルを隠すことはできません。
Once it is made visible to contexts through the global function, a symbol cannot be hidden from them again.

Symbol protection(シンボル保護)

関数 constant を使うことによって、 シンボルは設定され、同時に変更から保護されます:
By using the constant function, symbols can be both set and protected from change at the same time:

> (constant 'aVar 123)   123
> (set 'aVar 999)
ERR: symbol is protected in function set : aVar

constant と global の両方が必要なシンボルを一遍に定義できます:
A symbol needing to be both a constant and a global can be defined simultaneously:

(constant (global 'aVar) 123)

現在のコンテキストで constant により保護されたシンボルを再び上書きできるのは、関数 constant の使用です。(訳注:現在のコンテキストのシンボルにしか constant を使えません)。 これにより、他のコンテキストにおけるコードによる上書きからシンボルが保護されます。
In the current context, symbols protected by constant can be overwritten by using the constant function again. This protects the symbols from being overwritten by code in other contexts.

Overwriting global symbols and built-ins(グローバル・シンボルと組込の上書き)

コンテキスト内でコンテキスト自身 のシンボルを先付けすることにより、グローバルにされたシンボルや組込関数のシンボルを上書きできます:
Global and built-in function symbols can be overwritten inside a context by prefixing them with their own context symbol:

(context 'Account)

(define (Account:new …)

(context 'MAIN)

この例では、組込関数 new が異なる関数として、コンテキスト Account専用の Account:new に上書きされます。
In this example, the built-in function new is overwritten by Account:new, a different function that is private to the Account context.

Variables containing contexts(コンテキストを含む変数)

Variables can be used to refer to contexts:

(set 'FOO:x 123)

(set 'ctx FOO)     FOO

ctx:x              123

(set 'ctx:x 999)   999

FOO:x              999

Context variables are useful when writing functions, which need to refer to different contexts during runtime or use contexts which do not exist during definition:

(define (update ctx val)
    (set 'ctx:sum val)
    (ctx:func 999)

(context 'FOO)
(define (func x)
    (println "=>" x))
(context MAIN)

続いては、上記定義を使ったターミナル・セッションを示します。 プログラムの出力はボールドで示しています:
The following shows a terminal session using above definitions. The program output is shown in bold-face:

> (update FOO 123)
=> 999

> FOO:sum

関数 update は第一変数として渡されるコンテキスト次第で、同じ関数でも異なる動作を表示します。
The same one function update can display different behavior depending on the context passed as first parameter.

Sequence of creating or loading contexts(コンテキストの生成手順)

コンテキストを生成する時あるいはロードする時の一連の手続き(訳注:コンテキストでのシンボル生成を参照)が予期しない結果をもたらすことがあります。 demo と呼ばれるファイルに次のコードを入力してみてください:
The sequence in which contexts are created or loaded can lead to unexpected results. Enter the following code into a file called demo:

;; demo - file for loading contexts
(context 'FOO)
(set 'ABC 123)
(context MAIN)

(context 'ABC)
(set 'FOO 456)
(context 'MAIN)

次に newLISP シェルでこのファイルをロードします:
Now load the file into the newlisp shell:

> (load "demo")
ERR: symbol is protected in function set : FOO
> _

ファイルのロードが FOO についてのエラー・メッセージを出しますが、ABC に対しては出しません。 最初のコンテキスト FOO がロードされた時、コンテキスト ABC はまだ存在しないのでローカル変数 FOO:ABC が生成されます。 ABC のロード時には、すでに FOO がグローバル・プロテクト・シンボルとして存在し、正常にプロテクトのフラグがセットされています。(訳注:だから FOO のエラーになったのです。)
Loading the file causes an error message for FOO, but not for ABC. When the first context FOO is loaded, the context ABC does not exist yet, so a local variable FOO:ABC gets created. When ABC loads, FOO already exists as a global protected symbol and will be correctly flagged as protected.

この場合でも、コンテキスト ABCFOO をローカル変数として使うことは可能で、ABC:FOO という風に明示的にコンテキストを先付けします。
FOO could still be used as a local variable in the ABC context by explicitly prefixing it, as in ABC:FOO.

Contexts as programming modules(プログラミング・モジュールとしてのコンテキスト)

newLISP ではソースをモジュールに区分けするために、主にコンテキストを使います。 こうすることで各モジュールが異なる名前空間で動作するので、モジュールはレキシカルに分離され、他のモジュールに同一のシンボル名があっても衝突しません。
Contexts in newLISP are mainly used for partitioning source into modules. Because each module lives in a different namespace, modules are lexically separated and the names of symbols cannot clash with identical names in other modules.

newLISP 配布の一部である modules には、モジュール・ファイルに関連する関数を置く方法や newLISPdoc ユーティリティを使ってモジュールを文書化する方法などの例があります。
The modules, which are part of the newLISP distribution, are a good example of how to put related functions into a module file, and how to document modules using the newLISPdoc utility.

For best programming practice, a file should only contain one module and the filename should be similar if not identical to the context name used:

;; file db.lsp, commonly used database functions

(context 'db)

;; Variables used throughout this namespace

(define db:handle)
(define db:host "http://localhost")

;; Constants

(constant 'Max_N 1000000)
(constant 'Path "/usr/data/")

;; Functions

(define (db:open ... )
    ... )

(define (db:close ... )
    ... )

(define (db:update ... )
    ... )

この例では、予め変数を定義しておく良い習慣を示しています。名前空間内のグローバル変数を定義したり、変化しない変数を constant として定義したりしておくことです。
The example shows a good practice of predefining variables, which are global inside the namespace, and defining as constants the variables that will not change.

ファイルが一個以上のコンテキストから構成されるなら、コンテキストの終りに MAIN への切り替えを明示しておくべきです:
If a file contains more than one context, then the end of the context should be marked with a switch back to MAIN:

;; Multi context file multi.lsp

(context 'A-ctx)
(context MAIN)

(context 'B-ctx)
(context MAIN)

(context 'C-ctx)
(context MAIN)

Contexts as data containers(データ・コンテナとしてのコンテキスト)

Contexts are frequently uses as data containers, e.g. for hash-like dictionaries and configuration data:

;; Config.lsp - configuration setup

(context 'Config)

(set 'user-name "admin")
(set 'password "secret")
(set 'db-name "/usr/data/db.lsp")

;; eof

名前空間 Config をロードすると、全ての変数をメモリに一度で設定できます:
Loading the Config namespace will now load a whole variable set into memory at once:

(load "Config.lsp")

(set 'file (open Config:db-name "read"))

In a similar fashion a whole data set can be saved:

(save "Config.lsp" 'Config)

これに関する詳細は コンテキスト・オブジェクトの直列化シリアライズ の章で読んでください。
Read more about this in the section Serializing contexts.

Loading and declaring contexts(コンテキストのロードと宣言)

モジュール・ファイルは、関数 load を使ってロードされます。 プログラミング・プロジェクトが互いに参照する多数のモジュールからなる時、コンテキストをロードする前に起こり得るコンテキストの前方参照による問題を避けるために、コンテキストを予約宣言できます。
Module files are loaded using the load function. If a programming project contains numerous modules that refer to each other, they can be pre-declared to avoid problems due to context forward references that can occur before the loading of that context.

;; pre-declaring contexts, finish with Main to return
(map context '(Utilities Config Acquisition Analysis SysLog Main))

;; loading context module files
(load "Utilities.lsp" "Acquisition.lsp")
(load "") ; load module from remote location
(load "Analysis.lsp" "SysLog.lsp")

(define (run)
    ... )


;; end of file 

この例が示すように予約宣言してからロードすれば、宣言やロードの一連の手続き(訳注:コンテキストでのシンボル生成を参照)を気にする必要がありません。 まだロードされていないモジュールの変数や定義への前方参照が、全ての正しく翻訳されるからです。 コンテキスト・シンボルの誤用は、コンテキストがロードされる前に、エラー・メッセージが出ます。
When pre-declaring and loading modules as shown in the example, the sequence of declaration or loading can be neglected. All forward references to variables and definitions in modules not loaded yet will be translated correctly. Wrong usage of a context symbol will result in an error message before that context is loaded.

コンテキスト切り替えで始まっていないモジュールは、常に MAIN にロードされます。ただし、load 宣言文の最後のオプションで目標コンテキストを指定している時は別です。 リモート位置から HTTP 経由でモジュールをロードする際は、関数 load の引数に URL を取れます。
Modules not starting with a context switch are always loaded into MAIN except when the load statement specifies a target context as the last parameter. The load function can take URLs to load modules from remote locations, via HTTP.

load 宣言文終了後の現在のコンテキストは、常に load の前と同じです。
The current context after the load statement will always be the same as before the load.

Serializing contexts(コンテキスト・オブジェクトの直列化シリアライズ

直列化シリアライズすることは、ソフトウェア・オブジェクトをファイルやメモリ内の文字列に保存される文字ストリームに置き換えることで 持続性 をもたらします。 newLISP では、シンボルで参照されるもの全てが関数 save を使って、ファイルに直列化シリアライズ可能です。 シンボルと同様、コンテキストもコンテキスト名を使って保存されます:
Serialization makes a software object persistent by converting it into a character stream, which is then saved to a file or string in memory. In newLISP, anything referenced by a symbol can be serialized to a file by using the save function. Like other symbols, contexts are saved just by using their names:

(save "mycontext.lsp" 'MyCtx)              ; save MyCtx to mycontext.lsp

(load "mycontext.lsp")                     ; loads MyCtx into memory

(save "mycontexts.lsp" 'Ctx1 'Ctx2 'Ctx3)  ; save multiple contexts at once

詳細については、関数 save (上記内容) と source (newLISP 文字列への直列化シリアライズ) を見てください。
For details, see the functions save (mentioned above) and source (for serializing to a newLISP string).

§ )

17. The context default functor(コンテキスト・デフォルト・ファンクタ)

デフォルト・ファンクタ またはデフォルト・ファンクション は、その名前空間と同じ名前を持つシンボルかユーザ定義関数かマクロです。 コンテキストを関数の名前として使う時、またはs式の関数位置で使う時、 newLISP はデフォルト・ファンクションを実行します。
A default functor or default function is a symbol or user-defined function or macro with the same name as its namespace. When the context is used as the name of a function or in the functor position of an s-expression, newLISP executes the default function.

;; the default function

(define (Foo:Foo a b c) (+ a b c))

(Foo 1 2 3)   6

デフォルト・ファンクションが MAIN と違うコンテキストから呼ばれる時には、コンテキストがすでに存在しているか、コンテキストと関数シンボルを生成する前方宣言 が宣言されている必要があります:
If a default function is called from a context other than MAIN, the context must already exist or be declared with a forward declaration, which creates the context and the function symbol:

;; forward declaration of a default function
(define Fubar:Fubar)    

(context 'Foo)
(define (Foo:Foo a b c)
    (Fubar a b)         ; forward reference
    (…))         ; to default function

(context MAIN)

;; definition of previously declared default function

(context 'Fubar)
(define (Fubar:Fubar x y)

(context MAIN)

デフォルト・ファンクションはグローバル関数のように動作しますが、 それが呼ばれているコンテキストからはレキシカルに分離しています。
Default functions work like global functions, but they are lexically separate from the context in which they are called.

ラムダ関数やラムダ・マクロのように、デフォルト・ファンクションを mapapply で使うことができます。
Like a lambda or lambda-macro function, default functions can be used with map or apply.

Functions with memory(メモリとしての関数)

A default function can update the lexically isolated static variables contained inside its namespace:

;; a function with memory

(define (Gen:Gen x)
    (if Gen:acc
        (inc Gen:acc x)
        (setq Gen:acc x)))

(Gen 1)   1
(Gen 1)   2
(Gen 2)   4
(Gen 3)   7

gen:acc   7

関数 Gen が初めて呼ばれると、加算器に引数の値が設定されます。 関数が続けて呼ばれる度に Gen の加算器に引数の値が加算されていきます。
The first time the Gen function is called, its accumulator is set to the value of the argument. Each successive call increments Gen's accumulator by the argument's value.

この Gen:Gen の定義は、(context 'Gen)(context MAIN) 宣言文で囲むこと無しに、関数を関数名と同じ名前空間に置く方法を示しています。 この場合、明示的に名前空間を先付けしたシンボルだけが、コンテキスト Gen の中に置かれます。 上記例では、変数 xMAIN の部品のままです。
The definition of Gen:Gen shows, how a function is put in its own namespace without using the surrounding (context 'Gen) and (context MAIN) statements. In that case only symbols qualified by the namespace prefix will end up in the Gen context. In the above example the variable x is still part of MAIN.

Hash functions and dictionaries(ハッシュ機能と辞書)

名前空間 context にシンボルを置くことで使えるようになる機能がいくつかあります。 単純なハッシュ似の変数→値対の集合体として辞書のように使う時は、デフォルト・ファンクタ に初期値を与えずに使います:
There are several functions that can be used to place symbols into namespace contexts. When using dictionaries as simple hash-like collections of variable → value pairs, use the uninitialized default functor:

(define Myhash:Myhash) ; create namespace and default functor

; or as a safer alternative

(new Tree 'MyHash) ; create from built-in template

どちらの方法も MyHash の辞書空間とデフォルト・ファンクタを作ることができます。 二番目の手段の方が安全で、デフォルト・ファンクタ MyHash:MyHash を変更から守ることができます。 辞書として使う時は、名前空間のデフォルト・ファンクタに nil を入れておく必要があるからです。 キー・値対の生成と(訳注:キーによる)値の呼び出しが簡単になります:
Either method can be used to make the MyHash dictionary space and default functor. The second method is safer, as it will protect the default functor MyHash:MyHash from change. The default functor in a namespace must contain nil to be used as a dictionary. Creating key-value pairs and retrieving a value is easy:

(Myhash "var" 123) ; create and set variable/value pair

(Myhash "var")   123 ; retrieve value

; keys can be integers and will be converted to strings internally

(Myhash 456 "hello")

(Myhash 456)     "hello"

この方法で作られるシンボル変数は、スペースや通常 newLISP のシンボル名としては許されない文字を含むこともできます:
Symbol variables created this way can contain spaces or other characters normally not allowed in newLISP symbol names:

(define Foo:Foo)
; or to protect the default functor from change
; (new Tree 'Foo)

(Foo "John Doe" 123)          123
(Foo "#1234" "hello world")   "hello world"
(Foo "var" '(a b c d))        (a b c d)

(Foo "John Doe")   123
(Foo "#1234")      "hello world"
(Foo "var")      (a b c d)

存在しないエントリは nil を返します:
An entry which doesn't exist will return nil:

(Foo "bar")     nil

エントリに nil を設定することは、そのエントリを名前空間から実際に削除します。
Setting an entry to nil will effectively delete it from the namespace.

An association list can be generated from the contents of the namespace:

(Foo)  (("#1234" "hello world") ("John Doe" 123) ("var" (a b c d)))

The list can also be used to iterate through the sorted key -> value pairs:

(dolist (item (Foo)) (println (item 0) " -> " (item 1)))

#1234 -> hello world
John Doe -> 123
var -> (a b c d)

Entries in the dictionary can also be created from a list:

(Foo '(("#1234" "hello world") ("John Doe" 123) ("var" (a b c d)))  Foo

Like many built-in functions hash expressions return a reference to their content which can be modified directly:

(pop (Foo "var"))  a

(Foo "var")  (b c d)

(push 'z (Foo "var"))  (z b c d)

(Foo "var")  (z b c d)

ハッシュ値に新しい値をセットする時、古い値をアナフォリック・システム変数 $it で参照することができます:
When setting hash values the anaphoric system variable $it can be used to refer to the old value when setting the new:

(Foo "bar" "hello world")

(Foo "bar" (upper-case $it))

(Foo "bar")  "HELLO WORLD"

ハッシュ値はsetf を使っても変更可能です:
Hash values also can be modified using setf:

(Foo "bar" 123)         123

(setf (Foo "bar") 456)  456

(Foo "bar")             456

But supplying the value as a second parameter to the hash functions is shorter to write and faster.

Dictionaries can easily be saved to a file and reloaded later:

; save dictionary
(save "Foo.lsp" 'Foo)

; load dictionary
(load "Foo.lsp")

内部的には、キー文字列がハッシュ内容のシンボルとして生成され、保存されています。 全てのキー文字列にはアンダースコア文字 _ が先付けされます。 このことにより、ディスクや HTTP 上からハッシュ名前空間をロードする際に必要となる setsym などのシンボルやデフォルト・シンボルへの上書きが予防されます。 次の違いに注意してください:
Internally the key strings are created and stored as symbols in the hash context. All key strings are prepended with an _ underscore character. This protects against overwriting the default symbol and symbols like set and sym, which are needed when loading a hash namespace from disk or over HTTP. Note the following difference:

(Foo)  (("#1234" "hello world") ("John Doe" 123) ("var" (a b c d)))

(symbols Foo)  (Foo:Foo Foo:_#1234 Foo:_John Doe Foo:_var)

一行目では、先付けにアンダースコア文字の無い文字列でハッシュ・シンボルが現れます。 二行目は、アンダースコア文字の先付けされた内部形式シンボルが現れます。
In the first line hash symbols are shown as strings without the preceding underscore characters. The second line shows the internal form of the symbols with prepended underscore characters.

名前空間 に関する詳細な手引きは Contexts の章を見てください。
For a more detailed introduction to namespaces, see the chapter on Contexts.

Passing data by reference(参照によるデータの受け渡し)

デフォルト・ファンクタ はデータ保持にも使えます。 このデータがリストか文字列なら、コンテキスト名をデータへの参照として使えます:
A default functor can also be used to hold data. If this data contains a list or string, the context name can be used as a reference to the data:

;; the default functor for holding data

(define Mylist:Mylist '(a b c d e f g))

(Mylist 3)  d 

(setf (Mylist 3) 'D)  D

Mylist:Mylist  (a b c D e f g)

;; access list or string data from a default functor

(first Mylist)  a

(reverse Mylist)  (g f e D c b a)

(set 'Str:Str "acdefghijklmnop") 

(upper-case Str)  "ACDEFGHIJKLMNOP"

多くの場合、newLISP は変数を値のコピー で渡します。 大規模リストや長大な文字列をユーザ定義関数やマクロに渡す際、これが潜在的な問題を引き起こします。 デフォルト・ファンクタを使った名前空間に入れられた文字列やリストは、自動的に参照で渡されます:
Most of the time, newLISP passes parameters by value copy. This poses a potential problem when passing large lists or strings to user-defined functions or macros. Strings and lists, which are packed in a namespace using default functors, are passed automatically by reference:

;; use a default functor to hold a list

(set 'Mydb:Mydb (sequence 1 100000))

(define (change-db obj idx value)
    (setf (obj idx) value))

; pass by context reference
(change-db Mydb 1234 "abcdefg")

(Mydb 1234)   "abcdefg"

リストか文字列の—他のデータ型でない—どちらかで呼び出される組込関数は引数として、参照で渡されるデータを受け取ることができます。 ユーザ定義関数なら、通常の変数を受け取るか、リストか文字列のデフォルト・ファンクタへの参照を渡すコンテキスト名を受け取ることができます。
Any argument of a built-in function calling for either a list or a string — but no other data type — can receive data passed by reference. Any user-defined function can take either normal variables, or can take a context name for passing a reference to the default functor containing a list or string.

覚えておいて欲しいのは、100 要素より少ないリストや 50000 文字より少ない文字列では、参照と値渡しの速度差は無視してよいほどだということです。 しかし、それ以上に大きなオブジェクトでは、参照と値渡しの速度とメモリ消費量の違いは検討に値します。
Note that on lists with less than about 100 elements or strings of less than about 50000 characters, the speed difference between reference and value passing is negligible. But on bigger data objects, differences in both speed and memory usage between reference and value passing can be significant.

Built-in and user-defined functions are suitable for both types of arguments, but when passing context names, data will be passed by reference.

Quoted symbols can also be used to pass data by reference, but this method has disadvantages:

(define (change-list aList) (push 999 (eval aList)))

(set 'data '(1 2 3 4 5))

; note the quote ' in front of data
(change-list 'data)   (999 1 2 3 4 5)

data    (999 1 2 3 4 5)

この方法は理解し易く、簡単に使えますが、関数の変数名と同じシンボルが渡されると潜在的な変数捕捉 問題を引き起こします:
Although this method is simple to understand and use, it poses the potential problem of variable capture when passing the same symbol as used as a function parameter:

;; pass data by symbol reference

> (set 'aList '(a b c d))
(a b c d)
> (change-list 'aList)

ERR: list or string expected : (eval aList)
called from user defined function change-list

この章の始めで、デフォルト・ファンクタを使う名前空間にデータをまとめる方法を紹介しました(訳注:ハッシュ機能と辞書のこと)。 データの保持に使えるコンテキストのシンボルは、デフォルト・ファンクタだけではありません。 欠点は、呼び出す関数で使われるシンボルがわかっている必要があることです:
At the beginning of the chapter it was shown how to package data in a name-space using a default functor. Not only the default functor but any symbol in context can be used to hold data. The disadvantage is that the calling function must have knowledge about the symbol being used:

;; pass data by context reference

(set 'Mydb:data (sequence 1 100000))

(define (change-db obj idx value)
    (setf (obj:data idx) value))

(change-db Mydb 1234 "abcdefg")

(nth 1234 Mydb:data)    "abcdefg"
; or
(Mydb:data 1234)    "abcdefg"

関数は変数 obj に名前空間を受け取りますが、アクセスするリストが名前空間(コンテキスト)のシンボル data にあることを知っていなければなりません。
The function receives the namespace in the variable obj, but it must have the knowledge that the list to access is contained in the data symbol of that namespace (context).

§ )

18. Functional object-oriented programming(関数的オブジェクト指向プログラミング)

関数的オブジェクト指向プログラミング (FOOP) は、次の五つの原理に基づいています:
Functional-object oriented programming (FOOP) is based on the following five principles:

以下の節は、 neglook.comMichael Michaels の企画による FOOP についての 短い入門書です。
The following paragraphs are a short introduction to FOOP as designed by Michael Michaels from

FOOP classes and constructors(FOOP クラスとコンストラクタ)

クラスの属性とメソッドは、オブジェクト・クラスの名前空間に保存されます。 オブジェクトの実体データは、この名前空間/コンテキストに保存されません。 クラス名前空間でのデータ変数は、オブジェクト特有の情報を含まない完全体として、オブジェクトのクラスのみを記述します。 new で新しいオブジェクト・クラスを生成する時、特定のオブジェクト・コンストラクタのテンプレートとして、包括的な FOOP オブジェクト・コンストラクタを使えます:
Class attributes and methods are stored in the namespace of the object class. No object instance data is stored in this namespace/context. Data variables in the class namespace only describe the class of objects as a whole but don't contain any object specific information. A generic FOOP object constructor can be used as a template for specific object constructors when creating new object classes with new:

; built-in generic FOOP object constructor
(define (Class:Class) 
    (cons (context) (args)))

; create some new classes

(new Class 'Rectangle)    Rectangle
(new Class 'Circle)       Circle

; create some objects using the default constructor

(set 'rect (Rectangle 10 20))    (Rectangle 10 20)
(set 'circ (Circle 10 10 20))    (Circle 10 10 20)

; create a list of objects
; building the list using the list function instead of assigning
; a quoted list ensures that the object constructors are executed

(set 'shapes (list (Circle 5 8 12) (Rectangle 4 8) (Circle 7 7 15)))
 ((Circle 5 8 12) (Rectangle 4 8) (Circle 7 7 15))

包括的な FOOP コンストラクタはあらかじめ定義されていて、直ちに (new Class ...) 宣言文から FOOP コードを始めることができます。
The generic FOOP constructor is already pre-defined, and FOOP code can start with (new Class ...) statements right away.

スタイルの問題として、新しいクラスは MAIN コンテキストでのみ生成すべきです。 違う名前空間に新しいクラスを生成すると、新しいクラス名に MAIN を先付しなくてはならず、宣言文をトップ・レベル上に置く必要があります:
As a matter of style, new classes should only be created in the MAIN context. If creating a new class while in a different namespace, the new class name must be prefixed with MAIN and the statement should be on the top-level:

(context 'Geometry)

(new Class 'MAIN:Rectangle)
(new Class 'MAIN:Circle)


new を使って名前空間クラスを生成することは、newLISP のコンテキストにクラス名を予約し、前方参照を容易にします。 同時に新しいクラスにとっては、新しいオブジェクトをインスタンス化するための簡易コンストラクタが定義されます。 慣習として、名前が名前空間であることを知らしめるために、クラス名を大文字で始めることを推奨します。
Creating the namespace classes using new reserves the class name as a context in newLISP and facilitates forward references. At the same time, a simple constructor is defined for the new class for instantiating new objects. As a convention, it is recommended to start class names in upper-case to signal that the name stands for a namespace.

new によるクラス生成の際に生成される簡易コンストラクタを上書きする方が便利な場合もあります。
In some cases, it may be useful to overwrite the simple constructor, that was created during class creation, with new:

; overwrite simple constructor 
(define (Circle:Circle x y radius)
    (list Circle x y radius))

A constructor can also specify defaults:

; constructor with defaults
(define (Circle:Circle (x 10) (y 10) (radius 3))
    (list Circle x y radius))

(Circle)  (Circle 10 10 3)

多くの場合、new を使った時に生成されるコンストラクタで十分であり、その上書きは必要ありません。
In many cases the constructor as created when using new is sufficient and overwriting it is not necessary.

Objects and associations(オブジェクト)

FOOP はオブジェクトをリストで表現します。 リストの第一要素はオブジェクトの種類やクラスを示し、残りの要素はデータになります。 次の宣言文は、前もって定義されたコンストラクタを使って、二つのオブジェクト を定義しています:
FOOP represents objects as lists. The first element of the list indicates the object's kind or class, while the remaining elements contain the data. The following statements define two objects using any of the constructors defined previously:

(set 'myrect (Rectangle 5 5 10 20))  (Rectangle 5 5 10 20)
(set 'mycircle (Circle 1 2 10))  (Circle 1 2 10)

生成されたオブジェクトは、それを生成するのに必要な関数と同一です (FOOP 故に) 。 同様な方法で入れ子のオブジェクトを生成可能です:
An object created is identical to the function necessary to create it (hence FOOP). Nested objects can be created in a similar manner:

; create classes
(new Class 'Person)
(new Class 'Address)
(new Class 'City)
(new Class 'Street)

; create an object containing other objects
(set 'JohnDoe (Person (Address (City "Boston") (Street 123 "Main Street"))))
 (Person (Address (City "Boston") (Street 123 "Main Street")))

FOOP のオブジェクトは関数に似ているばかりでなく、連想にも似ています。 名前でオブジェクトをアクセスするために関数 assoc を使うことができます:
Objects in FOOP not only resemble functions they also resemble associations. The assoc function can be used to access object data by name:

(assoc Address JohnDoe)  (Address (City "Boston") (Street 123 "Main Street"))

(assoc (list Address Street) JohnDoe)  (Street 123 "Main Street")

同様に assoc と一緒に setf を使って、オブジェクト・データを変更できます:
In a similar manner setf together with assoc can be used to modify object data:

(setf (assoc (list Address Street) JohnDoe) '(Street 456 "Main Street"))
 (Street 456 "Main Street")

このように、ストリート番号が 123 から 456 に変わります。
The street number has been changed from 123 to 456.

assoc 宣言文の AddressStreet にクォートを付ける必要がないことに注意してください。 データを割り付けるための set 宣言文:(set 'JohnDoe (Person ...)) でも同様です。 どちらの場合も、シンボルやシンボルのリストではなく、 それ自身に評価されるコンテキストと FOOP オブジェクトを扱っています。 クォート付きでも違いは起きません。
Note that in none of the assoc statements Address and Street need to carry quotes. The same is true in the set statement: (set 'JohnDoe (Person ...)) for the data part assigned. In both cases we do not deal with symbols or lists of symbols but rather with contexts and FOOP objects which evaluate to themselves. Quoting would not make a difference.

The colon : operator and polymorphism(コロン : 演算子と多態性)

newLISP でコロン文字 : は、主にコンテキスト・シンボルとシンボルの接続に使われ、シンボルを特定します。 二つ目の使い方としてのコロン関数は FOOP において、関数の用途を多態的に解決するために使われます。
In newLISP, the colon character : is primarily used to connect the context symbol with the symbol it is qualifying. Secondly, the colon function is used in FOOP to resolve a function's application polymorphously.

次のコードで定義されている二つの関数は area と呼ばれ、それぞれ異なる名前空間/クラスに属しています。 両関数は個別の異なるモジュールで定義されていますが、この場合、同じファイル上で定義されていて、context 宣言文で囲まれていません。 rectangle:areacircle:area というように、異なる名前空間に属しているだけです。 ローカル・パラメータ pcdxdy は、全て MAIN の部品ですが、気にする必要はありません。
The following code defines two functions called area, each belonging to a different namespace / class. Both functions could have been defined in different modules for better separation, but in this case they are defined in the same file and without bracketing context statements. Here, only the symbols rectangle:area and circle:area belong to different namespaces. The local parameters p, c, dx, and dy are all part of MAIN, but this is of no concern.

;; class methods for rectangles

(define (Rectangle:area)
    (mul (self 3) (self 4)))

(define (Rectangle:move dx dy)
    (inc (self 1) dx) 
    (inc (self 2) dy))

;; class methods for circles

(define (Circle:area)
    (mul (pow (self 3) 2) (acos 0) 2))

(define (Circle:move dx dy)
    (inc (self 1) dx) 
    (inc (self 2) dy))

areamove シンボルに : (colon) を先付することで、各オブジェクトのクラス関数を呼び出せます。 コロンとそれに続くシンボル間にスペースはいらず、newLISP が別々のエントリとして解析します。 コロンが変数を処理する関数として動作します:
By prefixing the area or move symbol with the : (colon), we can call these functions for each class of object. Although there is no space between the colon and the symbol following it, newLISP parses them as distinct entities. The colon works as a function that processes parameters:

(:area myrect)  200 ; same as (: area myrect)
(:area mycircle)  314.1592654 ; same as (: area mycircle)

;; map class methods uses curry to enclose the colon operator and class function

(map (curry :area) (list myrect mycircle))  (200 314.1592654)

(map (curry :area) '((Rectangle 5 5 10 20) (Circle 1 2 10)))  (200 314.1592654) 

;; objects are mutable (since v10.1.8)

(:move myrect 2 3)
(:move mycircle 4 5) 

myrect     (Rectangle 7 8 10 20)
mycircle   (Circle 5 7 10)

In this example, the correct qualified symbol (rectangle:area or circle:area) is constructed and applied to the object data based on the symbol following the colon and the context name (the first element of the object list).

呼び出し側は呼び出された目標オブジェクトを特定しますが、 メソッド定義には変数としてオブジェクトが含まれていないことに注意してください。 FOOP オブジェクトを変更する関数を書く時は、オブジェクトのアクセスやインデックスの指定に関数 self を使います。
Note, that although the caller specifies the called target object of the call, the method definition does not include the object as a parameter. When writing functions to modify FOOP objects, instead the function self is used to access and index the object.

Structuring a larger FOOP program(大規模 FOOP プログラムの構造化)

前述の例全てにおいて、クラス関数は MAIN コンテキスト名前空間に直接書かれたメソッドです。 これでも動作しますし、一人のプログラマによる小規模のプログラムにとっては十分です。 大規模なシステムを書く時は、使用されるパラメータ変数の独立を保ち、潜在的クラス変数用の隔離場所を作っておくために、一クラスの全メソッドを context 宣言文で囲むべきです。
In all the previous examples, class function methods where directly written into the MAIN context namespace. This works and is adequate for smaller programs written by just one programmer. When writing larger systems, all the methods for one class should be surrounded by context statements to provide better isolation of parameter variables used and to create an isolated location for potential class variables.

この場合、クラス変数を特定のオブジェクト用ではなく、オブジェクトやカウンタやクラスに固有なその他の情報のリスト用の入れ物として使います。 次のコードは、上記例をこの状況用に書き直しています。
Class variables could be used in this example as a container for lists of objects, counters or other information specific to a class but not to a specific object. The following code segment rewrites the example from above in this fashion.

各コンテキスト/名前空間は、クラスと同名の個別のファイルに入れておきます。 クラス生成、開始コード、主制御コードは、ファイル MAIN.lsp にあります:
Each context / namespace could go into an extra file with the same name as the class contained. Class creation, startup code and the main control code is in a file MAIN.lsp:

; file MAIN.lsp - declare all classes used in MAIN

(new Class 'Rectangle)
(new Class 'Circle)

; start up code

(load "Rectangle.lsp")
(load "Circle.lsp")

; main control code

; end of file

Each class is in a separate file:

; file Rectangle.lsp - class methods for rectangles

(context Rectangle)

(define (Rectangle:area)
(mul (self 3) (self 4)))

(define (Rectangle:move dx dy)
(inc (self 1) dx) 
(inc (self 2) dy))

; end of file

そして Circle クラスのファイルは次にようになっています:
And the Circle class file follows:

; file Circle.lsp - class methods for circles

(context Circle)

(define (Circle:area)
    (mul (pow (self 3) 2) (acos 0) 2))

(define (Circle:move dx dy)
    (inc (self 1) dx) 
    (inc (self 2) dy))

; end of file

All sets of class functions are now lexically separated from each other.

§ )

19. Concurrent processing and distributed computing(並列処理と分散コンピューティング)

newLISP は、同じ CPU または TCP/IP ネットワーク上の異なるコンピュータ・ノードに分散されるマルチ・プロセス制御用の高レベル API を持っています。
newLISP has high-level APIs to control multiple processes on the same CPU or distributed onto different computer nodes on a TCP/IP network.

Cilk API(Cilk API)

newLISP は並列処理を起動し制御する Cilk 似の API を実装しています。 この API はマルチコア・コンピュータ構成の利点を活かせます。 マルチ・プロセスを開始して、同期状態における結果を収集するために必要なのは、関数 spawnsyncabort の三つだけです。 基盤となるオペレーティングシステムが、プロセスを CPU 内の異なるコアに分配するか、十分なコアがない場合は同一コアで並列に実行させます。 newLISP は API を実装しているだけなので、子プロセスとして呼び出された手続きのスケジュール最適化が Cilk のように実施されるわけではないことに注意してください。 関数は spawn 宣言文に現れた順に開始され、オペレーティングシステムによって、 CPU の異なるコアに分配され、スケジュールされます。
newLISP implements a Cilk- like API to launch and control concurrent processes. The API can take advantage of multi-core computer architectures. Only three functions, spawn, sync and abort, are necessary to start multiple processes and collect the results in a synchronized fashion. The underlying operating system distributes processes onto different cores inside the CPU or executes them on the same core in parallel if there are not enough cores present. Note that newLISP only implements the API; optimized scheduling of spawned procedures is not performed as in Cilk. Functions are started in the order they appear in spawn statements and are distributed and scheduled onto different cores in the CPU by the operating system.

マルチコアの存在は関数を並列に実行することにより、全体的な処理速度向上を可能にします。 とは言え、シングルコア CPU での走行中でもプログラマにとっては、 Cilk API がより簡単な並列処理化を可能にし、I/O やスリープの待ち状態を含むタスクが存在する時には、処理速度を上げられる可能性があります。
When multiple cores are present, this can increase overall processing speed by evaluating functions in parallel. But even when running on single core CPUs, the Cilk API makes concurrent processing much easier for the programmer and may speed up processing if subtasks include waiting for I/O or sleeping.

バージョン 10.1 以降、メッセージ関数 sendreceive はプロセスの親子間通信に利用可能です。 これらの関数はブロッキングとノン・ブロッキング通信に使うことができ、newLISP のいかなる種類のデータや式でも転送できます。 送信された式は受け取り側の環境で評価可能です。
Since version 10.1 send and receive message functions are available for communications between parent and child processes. The functions can be used in blocking and non blocking communications and can transfer any kind of newLISP data or expressions. Transmitted expressions can be evaluated in the recipients environment.

newLISP は内部的に、プロセスや計算結果の共有メモリを通した受け渡しの同期を制御するロー・レベル関数 forkwait-piddestroyshare を使います。
Internally, newLISP uses the lower level fork, wait-pid, destroy, and share functionalities to control processes and synchronize the passing of computed results via a shared memory interface.

Cilk API は Mac OS X や他の Unix 上でのみ、タスクを並列化します。 MS Windows での API 群は Unix の振る舞いをシミュレートしますが、タスクを(訳注:並列ではなく)逐次実行します。 この方法により、全てのプラットフォームで走るコードを書く事ができます。
Only on Mac OS X and other Unixes will the Cilk API parallelize tasks. On MS Windows, the API partly simulates the behavior on Unix but executes tasks sequentially. This way, code can be written that runs on all platforms.

Distributed network computing(分散ネットワーク コンピューティング)

newLISP は net-eval の一関数だけを使って、分散コンピューティングを実装しています。 net-eval を使えば、TCP/IP ネットワーク上のなるノード、または同じコンピュータで走っているローカル・ドメイン Unix ソケット上の異なるノードに、別個のタスクが配され、評価されます。 net-eval はリモート・ノードの接続、実行関数の転送、結果の収集などの全要求リクエストをこなします。 net-eval では、リモート・ノードからのデータ入力を構造的に統合するコール・バック関数も使えます。
With only one function, net-eval, newLISP implements distributed computing. Using net-eval, different tasks can be mapped and evaluated on different nodes running on a TCP/IP network or local domain Unix sockets network when running on the same computer. net-eval does all the housekeeping required to connect to remote nodes, transfer functions to execute, and collect the results. net-eval can also use a call-back function to further structure consolidation of incoming results from remote nodes.

関数 read-filewrite-fileappend-filedelete-file は全て、 パス・ファイル名の代わりに URL を取ることができます。 デーモン・モードで走っている newLISP のサーバー側や Apache のような他の HTTP サーバーでは、標準 HTTP 要求リクエストを受け取り、ファイルに対応する操作を行います。
The functions read-file, write-file, append-file and delete-file all can take URLs instead of path-file names. Server side newLISP running in demon mode or an other HTTP server like Apache, receive standard HTTP requests and translate them into the corresponding actions on files.

§ )


JSON support(JSON 支援)

関数 json-parse を使って JSON エンコード・データをS式に変換できます。 JSON の変換に失敗した情報は json-error を使って引き出せます。
JSON-encoded data can be parsed into S-expressions using the json-parse function. Error information for failed JSON translations can be retrieved using json-error.

JSON 形式 (JavaScript Object Notation) の詳細は で調べてください。 正しい JSON 形式のテキストは で見ることができます。
For a description of the JSON format (JavaScript Object Notation) consult Examples for correct formatted JSON text can be seen at

JSON 変換で得られる入れ子リストからデータを取り出すには、関数 assoclookupref を使ってください。
To retrieve data in nested lists resulting from JSON translation, use the assoc, lookup and ref functions.

JSON データの変換と処理の全例は json-parse の項を見てください。
See the description of json-parse for a complete example of parsing and processing JSON data.

XML support(XML 支援)

XML-エンコード・データまたはドキュメントの newLISP の組込サポートは、三つの関数: xml-parsexml-type-tagsxml-error からなります。
newLISP's built-in support for XML-encoded data or documents comprises three functions: xml-parse, xml-type-tags, and xml-error.

XML-エンコード文字列を解析するには、関数 xml-parse を使ってください。 xml-parse がエラーに出会った時は、nil が返ります。 正しくない形式の XML によって起こった構文エラーを診断するには、関数 xml-error を使ってください。 関数 xml-type-tags は XML タイプ・タグの出現を制御または抑制するのに使えます。 これらのタグは XML を四つのカテゴリ:テキスト、生の文字列データ、コメント、エレメント・データの中の一つに分類分けします。
Use the xml-parse function to parse XML-encoded strings. When xml-parse encounters an error, nil is returned. To diagnose syntax errors caused by incorrectly formatted XML, use the function xml-error. The xml-type-tags function can be used to control or suppress the appearance of XML type tags. These tags classify XML into one of four categories: text, raw string data, comments, and element data.

XML source:
<?xml version="1.0"?>
<DATABASE name="example.xml">
<!--This is a database of fruits-->

Parsing without options:
(xml-parse (read-file "example.xml"))
  (("ELEMENT" "DATABASE" (("name" "example.xml")) (("TEXT" "\r\n")
("COMMENT" "This is a database of fruits")
("TEXT" "\r\n        ")
	("TEXT" "\r\n\t        ")
	("ELEMENT" "NAME" () (("TEXT" "apple")))
	("TEXT" "\r\n\t\t")
	("ELEMENT" "COLOR" () (("TEXT" "red")))
	("TEXT" "\r\n\t\t")
	("ELEMENT" "PRICE" () (("TEXT" "0.80")))
	("TEXT" "\r\n\t")))
("TEXT" "\r\n"))))

関数 xml-type-tagsxml-parse の特殊オプション・パラメータを使って、XML から直接 S-XML を生成できます:
S-XML can be generated directly from XML using xml-type-tags and the special option parameters of the xml-parse function:

S-XML generation using all options:
(xml-type-tags nil nil nil nil)
(xml-parse (read-file "example.xml") (+ 1 2 4 8 16))
  ((DATABASE (@ (name "example.xml"))
  (FRUIT (NAME "apple")
	  (COLOR "red")
	  (PRICE "0.80"))))

S-XML は newLISP のS式 として再構成された XML です。 @ (at symbol) は XML の属性詳細を付与します。
S-XML is XML reformatted as newLISP S-expressions. The @ (at symbol) denotes an XML attribute specification.

S-XML 変換で得られる入れ子リストからデータを取り出すには、関数 assoclookupref を使ってください。
To retrieve data in nested lists resulting from S-XML translation, use the assoc, lookup and ref functions.

マニュアルのリファレンス項にある xml-parse を見てください。解析とオプション番号の詳細について、より長い例があります。
See xml-parse in the reference section of the manual for details on parsing and option numbers, as well as for a longer example.


XML-RPC プロトコルを呼び出すリモート手続きは、転送とメソッド名、パラメータ、パラメータ・タイプをエンコードする XML に HTTP ポスト要求リクエストを使います。 XML-RPC クライアントのライブラリとサーバーは、最も一般的なコンパイルされたスクリプト言語で実装されています。
The remote procedure calling protocol XML-RPC uses HTTP post requests as a transport and XML for the encoding of method names, parameters, and parameter types. XML-RPC client libraries and servers have been implemented for most popular compiled and scripting languages.

XML についての詳しい情報は を訪れて見てください。
For more information about XML, visit

XML-RPC クライアントのライブラリとサーバーは、newLISP の組込ネットーワークと XML サポートを使って容易に書けます。 CGI サービスとして実装された非公式(stateless)XML-RPC サーバーは、ファイル examples/xmlrpc.cgi に見つかります。 このスクリプトを Apache のようなウェブ・サーバーとしても使うことができます。 この XML-RPC サーバー・スクリプトは次のメソッドを実装します:
XML-RPC clients and servers are easy to write using newLISP's built-in network and XML support. A stateless XML-RPC server implemented as a CGI service can be found in the file examples/xmlrpc.cgi. This script can be used together with a web server, like Apache. This XML-RPC service script implements the following methods:

system.listMethods 全てのメソッド名を返す
Returns a list of all method names
system.methodHelp 特定のメソッドのヘルプを返す
Returns help for a specific method
system.methodSignature 特定のメソッドのリターン/署名の呼び出しのリストを返す
Returns a list of return/calling signatures for a specific method
newLISP.evalString Base64(訳注:でエンコードされた)newLISP 式の文字列を評価する
Evaluates a Base64 newLISP expression string

最初の三つは、ほとんどの XML-RPC サーバーで実装されたメソッドとして見つかります 。 最後の一つは newLISP の XML-RPC サーバー・スクリプトに特有のもので、newLISP ソース・コードの Base64 エンコード文字列のリモート評価を実装します。 newLISP の関数 base64-encbase64-dec を Base64 エンコード情報のエンコードとデコードに使えます。
The first three methods are discovery methods implemented by most XML-RPC servers. The last one is specific to the newLISP XML-RPC server script and implements remote evaluation of a Base64-encoded string of newLISP source code. newLISP's base64-enc and base64-dec functions can be used to encode and decode Base64-encoded information.

配布ソースの modules ディレクトリにあるファイル xmlrpc-client.lsp は、上記メソッド全てについての具体的なクライアント・インターフェイスを実装しています。
In the modules directory of the source distribution, the file xmlrpc-client.lsp implements a specific client interface for all of the above methods.

(load "xmlrpc-client.lsp")  ; load XML-RPC client routines						 

"(+ 3 4)")   "7"

同様に、標準 呼出しを発行できます。
In a similar fashion, standard calls can be issued.

すべての関数は成功なら結果を、要求リクエストが失敗なら nil を返します。 失敗の場合、(XMLRPC:error) の式を評価すればエラー・メッセージが返ります。
All functions return either a result if successful, or nil if a request fails. In case of failure, the expression (XMLRPC:error) can be evaluated to return an error message.

詳細な情報は、どうかをファイル modules/xmlrpc-client.lsp のヘッダーを調べて見てください。
For more information, please consult the header of the file modules/xmlrpc-client.lsp.

§ )

21. Customization, localization, and UTF-8(カスタマイズ、ローカライズと UTF-8)

Customizing function names(関数名のカスタマイズ)

newLISP では、全ての組込関数を簡単にリネームできます:
All built-in primitives in newLISP can be easily renamed:

(constant 'plus +)

これで、plus は関数として + に評価され、同じスピードで走ります。
Now, plus is functionally equivalent to + and runs at the same speed.

組込関数シンボルのリネームには、関数 set よりも関数 constant を使うべきです。 全組込関数シンボルは、デフォルトで不慮の上書きに対して保護されています。
The constant function, rather than the set function, must be used to rename built-in primitive symbols. By default, all built-in function symbols are protected against accidental overwriting.

It is possible to redefine all integer arithmetic operators to their floating point equivalents:

(constant '+ add)
(constant '- sub)
(constant '* mul)
(constant '/ div)

これで、+, -, *, / を使った全ての操作が、浮動小数点演算として実行されます。
All operations using +, -, *, and / are now performed as floating point operations.

Using the same mechanism, the names of built-in functions can be translated into languages other than English:

(constant 'wurzel sqrt)    ; German for 'square-root'

; make the new symbol global at the same time
(constant (global 'imprime) print)  ; Spanish for 'print'

同時に global を使うことで、新関数を(訳注:どのコンテキストからも使える)グローバルにできます。
The new symbol can be made global at the same time using global.

Switching the locale(ロケールの切り替え)

newLISP は、プラットフォームやオペレーティングシステムに基づくロケールを切り替えることができます。 開始時に、UTF-8版でない newLISP は、ほとんどのプラットフォームやロケールで利用可能な POSIX ロケールのデフォルト、ISO C 標準 の設定を試みます。 UTF-8版 newLISP では、プラットフォームのデフォルト・ロケールに設定します。 デフォルトのロケールを切り替えるのに、関数 set-locale を使えます:
newLISP can switch locales based on the platform and operating system. On startup, non-UTF-8 enabled newLISP attempts to set the ISO C standard default POSIX locale, available for most platforms and locales. On UTF-8 enabled newLISP the default locale for the platform is set. The set-locale function can also be used to switch to the default locale:

(set-locale "")

This switches to the default locale used on your platform/operating system and ensures character handling (e.g., upper-case) works correctly.

多くの Unix システムは、多数の利用可能なロケールを持っています。 個々の Linux/Unix/BSD システムで利用可能な一つを見つけるには、システム・シェルで次のコマンドを実行してください:
Many Unix systems have a variety of locales available. To find out which ones are available on a particular Linux/Unix/BSD system, execute the following command in a system shell:

locale -a

このコマンドは、あなたのシステムで利用可能な全ロケールのリストを表示します。 それらのどれもが set-locale の引数に使えます:
This command prints a list of all the locales available on your system. Any of these may be used as arguments to set-locale:

(set-locale "es_US")

これは、U.S. Spanish ロケールに切り替えます。 U.S. Spanish 環境で使えるアクセントや文字が正しく変換されます。
This would switch to a U.S. Spanish locale. Accents or other characters used in a U.S. Spanish environment would be correctly converted.

詳細は、set-locale の使い方のマニュアルの記述を見てください。
See the manual description for more details on the usage of set-locale.

Decimal point and decimal comma(十進点と十進カンマ)

多くの国々が十進数の区切りにピリオドでなくカンマを使っています。 newLISP はロケールの設定次第で正しく数値を解析します:
Many countries use a comma instead of a period as a decimal separator in numbers. newLISP correctly parses numbers depending on the locale set:

; switch to German locale on a Linux  or OSX system
(set-locale "de_DE")  ("de_DE" ",")

; newLISP source and output use a decimal comma
(div 1,2 3)   0,4

newLISP 開始時に設定されるデフォルトの POSIX C ロケールは、十進数の区切りにピリオドを使います。 uses a period as a decimal separator.
The default POSIX C locale, which is set when newLISP starts up, uses a period as a decimal separator.

次の国々は 十進数の区切りにピリオドを使います:
The following countries use a period as a decimal separator:

Australia, Botswana, Canada (English-speaking), China, Costa Rica, Dominican Republic, El Salvador, Guatemala, Honduras, Hong Kong, India, Ireland, Israel, Japan, Korea (both North and South), Malaysia, Mexico, Nicaragua, New Zealand, Panama, Philippines, Puerto Rico, Saudi Arabia, Singapore, Switzerland, Thailand, United Kingdom, and United States.

次の国々は 十進数の区切りにカンマを使います:
The following countries use a comma as a decimal separator:

Albania, Andorra, Argentina, Austria, Belarus, Belgium, Bolivia, Brazil, Bulgaria, Canada (French-speaking), Croatia, Cuba, Chile, Colombia, Czech Republic, Denmark, Ecuador, Estonia, Faroes, Finland, France, Germany, Greece, Greenland, Hungary, Indonesia, Iceland, Italy, Latvia, Lithuania, Luxembourg, Macedonia, Moldova, Netherlands, Norway, Paraguay, Peru, Poland, Portugal, Romania, Russia, Serbia, Slovakia, Slovenia, Spain, South Africa, Sweden, Ukraine, Uruguay, Venezuela, and Zimbabwe.

Unicode and UTF-8 encoding(Unicode と UTF-8 エンコーディング)

多くのヨーロッパ言語では、内部的に各文字が一バイト で表示されている限り、非 ASCII 文字セットを表示するのに set-locale 機構で十分であることに注意してください。 この章で記述されるマルチ・バイト文字セット用にのみ、UTF-8 エンコードが必要となります。
Note that for many European languages, the set-locale mechanism is sufficient to display non-ASCII character sets, as long as each character is presented as one byte internally. UTF-8 encoding is only necessary for multi-byte character sets as described in this chapter.

newLISP を UTF-8版アプリケーションとしてコンパイルできます。 UTF-8 は国際 Unicode 文字セットのマルチ・バイト・エンコーディングです。 UTF-8 利用可能なオペレーティングシステムで走っている UTF-8 版 newLISP は、導入されるロケールの文字セットを処理できます。
newLISP can be compiled as a UTF-8–enabled application. UTF-8 is a multi-byte encoding of the international Unicode character set. A UTF-8–enabled newLISP running on an operating system with UTF-8 enabled can handle any character of the installed locale.

次のステップは、特定のオペレーティングシステムやプラットフォームで、UTF-8 版 newLISP を作成します:
The following steps make UTF-8 work with newLISP on a specific operating system and platform:

(1) newLISP を UTF-8 アプリケーションとしてコンパイルするために、utf8 で終わっている makefile の一つを使ってください。 あなたのプラットフォームで利用可能な UTF-8 makefile がないならば、あなたのプラットフォーム用の一般 makefile に UTF-8 用に変えるための指示が入っています。
  Use one of the makefiles ending in utf8 to compile newLISP as a UTF-8 application. If no UTF-8 makefile is available for your platform, the normal makefile for your operating system contains instructions on how to change it for UTF-8.

Mac OS X バイナリ・インストーラには、デフォルトで UTF-8 版が入っています。
The Mac OS X binary installer contains a UTF-8–enabled version by default.

(2) あなたのプラットフォームで、UTF-8 ロケールを許可してください。 Unix や Unix-like OS 上の locale コマンドか newLISP の関数 set-locale を使って、UTF-8 ロケールのチェックと設定をしてください。 Linux では、適切な環境変数を設定することでロケールを変更できます。 次の例は、U.S. ロケールの設定に bash を使っています:
  Enable the UTF-8 locale on your operating system. Check and set a UTF-8 locale on Unix and Unix-like OSes by using the locale command or the set-locale function within newLISP. On Linux, the locale can be changed by setting the appropriate environment variable. The following example uses bash to set the U.S. locale:

export LC_CTYPE=en_US.UTF-8

(3) UTF-8 版 newLISP はオペレーティングシステムで見つかったロケールに自動的に切り替えます。 コマンド・シェルを確実に UTF-8 可能にしてください。 U.S. 版 WinXP の notepad.exe はユニコード UTF-8 エンコード文字を表示可能ですが、コマンド・シェルはそれを表示できません。 Linux や他の Unix では、Xterm シェルの開始時、次のようにすれば可能です:
  The UTF-8–enabled newLISP automatically switches to the locale found on the operating system. Make sure the command shell is UTF-8–enabled. The U.S. version of WinXP's notepad.exe can display Unicode UTF-8–encoded characters, but the command shell cannot. On Linux and other Unixes, the Xterm shell can be used when started as follows:

LC_CTYPE=en_US.UTF-8 xterm

次の手続きを UTF-8 サポートのチェックに使えます。 newLISP を開始した後、次をタイプすると:
The following procedure can now be used to check for UTF-8 support. After starting newLISP, type:

(println (char 937))               ; displays Greek uppercase omega
(println (lower-case (char 937)))  ; displays lowercase omega

ラテン・アルファベットでは、大文字のオメガ (Ω) が二つの小さい足の上に大きいOのように見えている時、小文字のオメガ (ω) は小文字の w に似た形状を持ちます。
While the uppercase omega (Ω) looks like a big O on two tiny legs, the lowercase omega (ω) has a shape similar to a small w in the Latin alphabet.

注記:println の出力の時だけ、文字として表示されます。 println の戻り値は、マルチ・バイト ASCII 文字としてコンソールに現れます。
Note: Only the output of println will be displayed as a character; println's return value will appear on the console as a multi-byte ASCII character.

UTF-8 を表示できない環境でも UTF-8 版 newLISP を使え、出力と戻り値の両方が2文字になります。 オメガ文字をエンコードするのに2バイト必要です。
When UTF-8–enabled newLISP is used on a non-UTF-8–enabled display, both the output and the return value will be two characters. These are the two bytes necessary to encode the omega character.

Functions working on UTF-8 characters(UTF-8 文字で動作する関数)

UTF-8 版 newLISP が使える時、次の文字列関数は 8ビットの1バイト文字上ではなく、1バイトもしくはマルチ・バイト文字上で動作します(訳注:バイト単位でなく、文字単位で動作します):
When UTF-8–enabled newLISP is used, the following string functions work on one- or multi-byte characters rather than one 8-bit byte boundaries:

char 文字と ASCII/Unicode 間の変換をする
translates between characters and ASCII/Unicode
chop 文字列の最後から文字を削除する
chops characters from the end of a string
date (第三引数と共に使って)日付数値を文字列に変換する
converts date number to string (when used with the third argument)
dostring 文字列の各文字列で一回ずつ評価する
evaluates once for each character in a string
explode 文字列を文字のリストに変換する
transforms a string into a list of characters
first リスト (car, head) か文字列の第一要素を取得する
gets first element in a list (car, head) or string
last リストか文字列の最後の要素を取得する
returns the last element of a list or string
lower-case 文字列を小文字に変換する
converts a string to lowercase characters
nth リストか文字列のn番目の要素を取得する
gets the nth element of a list or string
pop リストや文字列から要素を削除する
deletes an element from a list or string
push リストや文字列に新しい要素を挿入する
inserts a new element in a list or string
rest リスト (cdr, tail) か文字列の第一要素以外の全てを取得する
gets all but the first element of a list (cdr, tail) or string
select リストか文字列から要素を選んで並べ換える
selects and permutes elements from a list or string
title-case 文字列の第一文字を大文字に変換する
converts the first character of a string to uppercase
trim 文字列の両端からトリム(訳注:空白文字を削除)する
trims a string from both sides
upper-case 文字列を大文字に変換する
converts a string to uppercase characters

他の文字列関数は全て、8ビット・バイト上で動作します。 findregex で返る位置は、マルチ・バイトの文字位置ではなく、1バイト単位の位置です。 関数 get-charslice は、UTF-8 版 newLISP であってもマルチ・バイト文字のオフセットを取らず、1バイト単位のオフセットになります。 関数 reverse は文字ベクターではなくバイト・ベクターで逆転します。 UTF-8 版 newLISP で、最後の三つの関数(訳注:get-charslicereverse )にできるのは、バイナリの非テキストデータ操作です。 UTF-8 文字列で動作する slicereverse を作成するには、explodejoin を組み合わせます。
All other string functions work on 8-bit bytes. When positions are returned, as in find or regex, they are single 8-bit byte positions rather than character positions which may be multi-byte. The get-char and slice functions do not take multi-byte character offsets, but single-byte offsets, even in UTF-8 enabled versions of newLISP. The reverse function reverses a byte vector, not a character vector. The last three functions can still be used to manipulate binary non-textual data in the UTF-8–enabled version of newLISP. To make slice and reverse work with UTF-8 strings, combine them with explode and join.

directoryfindmemberparseregexregex-compreplace で使われる—Perl Compatible Regular Expressions (PCRE) で UTF-8 利用する際は、適宜オプション番号 (2048) を設定してください。 regex の結果のオフセットと長さは、常に1バイト単位のカウントであることに注意してください。 詳細は、regex の項を見てください。
To enable UTF-8 in Perl Compatible Regular Expressions (PCRE) — used by directory, find, member, parse, regex, regex-comp and replace — set the option number accordingly (2048). Note that offset and lengths in regex results are always in single byte counts. See the regex documentation for details.

UTF-8 を操作できない関数関数で UTF-8 文字列のアレイを入手したり、バイトではなく文字を操作したい時は、explode を使ってください
Use explode to obtain an array of UTF-8 characters and to manipulate characters rather than bytes when a UTF-8–enabled function is unavailable:

(join (reverse (explode str)))  ; reverse UTF-8 characters

こうすれば、上記(非テキストのバイナリ・データの操作によく使われる)文字列関数がバイト境界ではなく文字境界で動作します。このように、UTF-8 バージョンを使う時は注意が必要です。 ISO 8859 のような一般的なコード・ページでは、ASCII 文字の最初の 127 個は1バイト長です。 このようなコード・ページでのみ動かすなら、UTF-8 版 newLISP は必要ありません。 動作をローカル化するための関数 set-locale で十分です。
The above string functions (often used to manipulate non-textual binary data) now work on character, rather than byte, boundaries, so care must be exercised when using the UTF-8–enabled version. The size of the first 127 ASCII characters — along with the characters in popular code pages such as ISO 8859 — is one byte long. When working exclusively within these code pages, UTF-8–enabled newLISP is not required. The set-locale function alone is sufficient for localized behavior.

Functions only available on UTF-8 enabled versions(UTF-8 バージョンでのみ利用できる関数)

unicode UTF-8 文字列や ASCII 文字列を USC-4 ユニコードに変換する
converts UTF-8 or ASCII strings into USC-4 Unicode
utf8 USC-4 ユニコード文字列を UTF-8 に変換する
converts UCS-4 Unicode strings to UTF-8
utf8len 文字列の UTF-8 文字数を返す
returns the number of UTF-8 characters in a string

ほとんどの Unicode テキストは、すでに(4バイト文字を使う UCS-4 よりはむしろ)UTF-8 エンコードされているので、最初の二つの関数が実際に使われることは、めったにありません。 format"%ls" 指定子を使って、Unicode を直接表示できます。
The first two functions are rarely used in practice, as most Unicode text files are already UTF-8–encoded (rather than UCS-4, which uses four-byte integer characters). Unicode can be displayed directly when using the "%ls" format specifier.

UTF-8 と Unicode のさらなる詳細については、Markus Kuhn による UTF-8 and Unicode FAQ for Unix/Linux を調べてみてください。
For further details on UTF-8 and Unicode, consult UTF-8 and Unicode FAQ for Unix/Linux by Markus Kuhn.

§ )

22. Commas in parameter lists(パラメータ リストのカンマ)

例題プログラムの中には、パラメータを二つのグループに分けるカンマを使っている関数があります。 これは newLISP の特殊構文でなく、どちらかというと視覚的トリックです。 カンマは他のシンボルと同様に単なるシンボルです。 関数が呼ばれた時、カンマ以降のパラメータが必要とされておらず(訳注:必要とされないように関数が書かれているという意味)、単にローカル変数として簡易的な方法で宣言されているだけです。 これが newLISP で可能なのは、ラムダ式内のパラメータ変数がローカルになり、引数はオプションになるためです:
Some of the example programs contain functions that use a comma to separate the parameters into two groups. This is not a special syntax of newLISP, but rather a visual trick. The comma is a symbol just like any other symbol. The parameters after the comma are not required when calling the function; they simply declare local variables in a convenient way. This is possible in newLISP because parameter variables in lambda expressions are local and arguments are optional:

(define (my-func a b c , x y z)
    (set 'x …)

この関数が呼ばれた時、abc だけがパラメータとして使われます。 他 (x, y, z) は nil で初期化され、関数のローカル変数になります。 実行後、この関数の内部変数は忘れ去られ、環境に存在したシンボルの値は、以前の値に戻ります。
When calling this function, only a, b, and c are used as parameters. The others (the comma symbol, x, y, and z) are initialized to nil and are local to the function. After execution, the function's contents are forgotten and the environment's symbols are restored to their previous values.

ローカル変数を宣言し、初期化する他の方法については letletexletn を見てください。
For other ways of declaring and initializing local variables, see let, letex and letn.

§ )


newLISP Function Reference(newLISP 関数リファレンス)

1. Syntax of symbol variables and numbers(シンボル変数と数値の構文)

newLISP におけるソース・コードは、ここで概説される規則に従って解析されます。 疑わしい時は、オプションの引数無しで parse を使い、newLISP の内部解析動作を確認してください。
Source code in newLISP is parsed according to the rules outlined here. When in doubt, verify the behavior of newLISP's internal parser by calling parse without optional arguments.

Symbols for variable names(変数名のシンボル)

The following rules apply to the naming of symbols used as variables or functions:

  1. 変数シンボルは、次の文字から始まってはならない:
    Variable symbols should not start with any of the following characters:
    # ; " ' ( ) { } . , 0 1 2 3 4 5 6 7 8 9

  2. + または - で始まる変数シンボルは、二文字目に数字を使うことはできない。
    Variable symbols starting with a + or - cannot have a number as the second character.

  3. 変数名の内部にはどんな文字も許されるが、以下の文字は除く:
    " ' ( ) : , 半角スペース。これらは、変数シンボルの終りを意味する。
    Any character is allowed inside a variable name, except for:
    " ' ( ) : , and the space character. These mark the end of a variable symbol.

  4. [(左角括弧)で始まり ](右角括弧)で終わるシンボルは、右角括弧を除くどんな文字を含んでもよい。
    A symbol name starting with [ (left square bracket) and ending with ] (right square bracket) may contain any character except the right square bracket.

  5. $(ドル記号)で始まるシンボルはグローバルになる。 前もって newLISP に組み込まれているものも有り、内部で設定または変更される。 この種のグローバル・シンボルをユーザが生成することもできる。
    A symbol name starting with $ (dollar sign) is global. There are several of these symbols already built into newLISP and set and changed internally. This type of global symbol can also be created by the user.

newLISP において、次のシンボルは全て適正なシンボル名です:
All of the following symbols are legal variable names in newLISP:

[* 7 5 ()};]

newLISP の変数としては不適切な文字からなるキーを持つハッシュ似の検索辞書を生成することが、時として有用です。 このような文字を含むシンボルの生成に関数 symcontext が使えます:
Sometimes it is useful to create hash-like lookup dictionaries with keys containing characters that are illegal in newLISP variables. The functions sym and context can be used to create symbols containing these characters:

(set (sym "(#:L*") 456)   456 ; the symbol '(#:L*'

(eval (sym "(#:L*"))   456

(set (sym 1) 123)   123

(eval (sym 1))   123

1         1
(+ 1 2)   3

最後の例は、値 123 を持つシンボル 1 を生成しています。1 は数字の一としても解析される状態のまま残ります。このようなシンボル生成が newLISP の通常操作を変更しないことにも注意が必要です。
The last example creates the symbol 1 containing the value 123. Also note that creating such a symbol does not alter newLISP's normal operations, since 1 is still parsed as the number one.


二進数、十六進数、十進数、浮動小数、整数値の解析において、今のところ 1000 桁までは解析されます。残りは新トークンとして読み込まれます。 注記:IEEE 754 の 64 ビット倍精度で識別できる桁数は高々16桁です。指数部が308以上ならば、その数値は inf(無限大)になります。 大整数においてもソースの解析時には 1000 桁の制限があります。1000桁を超える整数の演算の結果には制限はありません。
When parsing binary, hex, decimal, float and integer numbers, up to 1000 digits are parsed when present. The rest will be read as new token(s). Note that IEEE 754 64-bit doubles distinguish only up to 16 significant digits. If more than 308 digits are present before the decimal point, the number will convert to inf (infinity). For big integers the 1000 limitation exists only when parsing source. There is no limit when a result of big integers math exceeds 1000 digits.

newLISP は次の数値形式を認識します:
newLISP recognizes the following number formats:

整数は一個以上のアラビア数字からなり、オプションで +- の符号が先に付きます。 それ以外の文字は整数の終りを意味します。 浮動小数点として解析される場合は、数値の一部の可能性もあります(下の浮動小数点構文を見てください)。
Integers are one or more digits long, optionally preceded by a + or - sign. Any other character marks the end of the integer or may be part of the sequence if parsed as a float (see float syntax below).


大整数の桁数には制限がなく、通常の 64 ビット整数とは内部処理が異なります。
Big integers can be of unlimited precision and are processed differently from normal 64-bi integers internally.

123456789012345678901234567890 ; will automatically be converted to big int
-123L                          ; appended L forces conversion

newLISP はコマンド・ラインやプログラミング・ソースを解析する際、64ビット整数より大きな数を認識すると、大整数に変換します。 小さい数でも末尾に文字 L を追加することで、強制的に大変数にできます。
when parsing the command line or programming source, newLISP will recognise, integers bigger than 64-bit and convert the to big integers. Smaller numbers can be forced to big integer format by appending the letter L.

十六進数は、0x (または 0X) で始まり、十六進数字 0123456789abcdefABCDEF の組み合わせが続きます。 それ以外の文字は十六進数の終りを意味します。 その際、十六進数までが有効で、それ以上の桁は全て無視されます。
Hexadecimals start with a 0x (or 0X), followed by any combination of the hexadecimal digits: 0123456789abcdefABCDEF. Any other character ends the hexadecimal number. Only up to 16 hexadecimal digits are valid and any more digits are ignored.

0xFF      255
0x10ab   4267
0X10CC   4300

二進数0b (または 0B) で始まり、64個まで 1 か 0 が 続きます。 それ以外の文字は二進数の終わりを意味します。 つまり、どんな文字も二進数の終わりになります。 64 ビットまでが有効でそれ以上のビットは無視されます。
Binaries start with a 0b (or 0B), followed by up to 64 bits coded with 1's or 0s. Any other character ends the binary number. Only up to 64 bits are valid and any more bits are ignored.

0b101010     42

八進数はオプションの + (plus) か - (minus) 符号と 0(ゼロ)から始まり、八進数字 01234567 の組み合わせが続きます。 21 桁までが有効で、それ以上の桁は無視されます。
Octals start with an optional + (plus) or - (minus) sign and a 0 (zero), followed by any combination of the octal digits: 01234567. Any other character ends the octal number. Only up to 21 octal digits are valid and any more digits are ignored.

012     10
010      8
077     63
-077   -63

浮動小数点数はオプションの + (plus) か - (minus) 符号で始められますが、その後に 0 (zero) を続けることはできません。 それでは浮動小数点の代わりに八進数になってしまうからです。 先頭を含む、浮動小数点数中のどこにでも一個の . (小数点) を置けます。
Floating point numbers can start with an optional + (plus) or - (minus) sign, but they cannot be followed by a 0 (zero); this would make them octal numbers instead of floating points. A single . (decimal point) can appear anywhere within a floating point number, including at the beginning.

16 桁までが有効で、それ以上の桁は無視されます。(訳注:16 桁を超える入力はすべきではありません)
Only 16 digits are siginificant and any more digits are ignored.

1.23       1.23
-1.23     -1.23
+2.3456    2.3456
.506       0.506

下記のように、指数表記(または、科学的表記)は仮数部(または仮数 )と呼ばれる浮動小数点数から始まり、eE の文字と整数の指数部 が続きます。
As described below, scientific notation starts with a floating point number called the significand (or mantissa), followed by the letter e or E and an integer exponent.

1.23e3      1230
-1.23E3    -1230
+2.34e-2    0.0234
.506E3      506

§ )

2. Data types and names in the reference(リファレンスでのデータ型と名前)

To describe the types and names of a function's parameters, the following naming convention is used throughout the reference section:

syntax: (format str-format exp-data-1 [exp-data-i ... ])

引数は、引数の型と名前を - (hyphen) で区切った形式で表す。 例えば、 str-format(一個の文字列)と exp-data-1(一個の式)の名前は、それぞれ "format" と "data-1" となる。
Arguments are represented by symbols formed by the argument's type and name, separated by a - (hyphen). Here, str-format (a string) and exp-data-1 (an expression) are named "format" and "data-1", respectively.

角括弧 [] で囲まれた引数はオプションである。 縦線 | で区切られた引数は、その中の一つが選択される。
Arguments enclosed in brackets [ and ] are optional. When arguments are separated by a vertical | then one of them must be chosen.


(関数 array で作成される)アレイ。
An array (constructed with the array function).


評価するための一個以上の式。 一個より多い式は、連続して評価される。
One or more expressions for evaluation. The expressions are evaluated sequentially if there is more than one.

1 7.8
(+ 3 4)
"Hi" (+ a b)(print result)
(do-this)(do-that) 123


true, nil, or an expression evaluating to one of these two.

true, nil, (<= X 10)


An expression evaluating to a context (namespace) or a variable symbol holding a context.

MyContext, aCtx, TheCTX


Any data type described in this chapter.


A symbol or an expression evaluating to an operator symbol or lambda expression.

+, add, (first '(add sub)), (lambda (x) (+ x x))


整数、または、整数に評価される式。 一般に、整数が予想されるところに浮動小数点数が使われた場合、値は整数に切り捨てらる。
An integer or an expression evaluating to an integer. Generally, if a floating point number is used when an int is expected, the value is truncated to an integer.

123, 5, (* X 5)


A list of elements (any type) or an expression evaluating to a list.

(a b c "hello" (+ 3 4))


整数か浮動小数点数、または、このどちらかに評価される式。 整数が渡された場合は、浮動小数点数に変換される。
An integer, a floating point number, or an expression evaluating to one of these two. If an integer is passed, it is converted to a floating point number.

1.234, (div 10 3), (sin 1)


各行の要素がリストのリスト、または、各行の要素がアレイのアレイ。 全ての(行の)要素リストまたはアレイは、同じ長さである。 どのようなような型も行列の要素にできるが、 detmultiplyinvert のような行列専用操作を使う時は、全ての数値が浮動小数点数か整数でなければならない。
A list in which each row element is itself a list or an array in which each row element is itself an array. All element lists or arrays (rows) are of the same length. Any data type can be element of a matrix, but when using specific matrix operations like det, multiply, or invert, all numbers must be floats or integers.

行列の次元は、行の数と行当たりの列の数を指し示すことで定義される。 行列で動作する関数は、行中の余計な列を無視する。 見つからない行の要素には、 関数detmultiplyinvert では 0.0 が割り当てられ、 transpose では nil が割り当てられる。 行がリストやアレイでなく、何か他のデータ型の時、transpose には特殊規則が適用される。
The dimensions of a matrix are defined by indicating the number of rows and the number of column elements per row. Functions working on matrices ignore superfluous columns in a row. For missing row elements, 0.0 is assumed by the functions det, multiply, and invert, while transpose assumes nil. Special rules apply for transpose when a whole row is not a list or an array, but some other data type.

((1  2  3  4)
(5  6  7  8)
(9 10 11 12))        ; 3 rows 4 columns
((1 2) (3 4) (5 6))  ; 3 rows 2 columns


シンボルによって参照される位置、または、リストやアレイで定義される位置、または、nth暗黙の要素指定 で 指し示される文字列、または、 firstlastassoclookup のような関数で参照される位置。
A place referenced by a symbol or a place defined in a list, array or string by indexing with nth or implicit indexing or a place referenced by functions like first, last, assoc or lookup.


A string or an expression that evaluates to a string.

文字列は長さや特殊文字の処理により範囲が決まります。クォート "" や括弧 {}[text][/text] タグ によってです。
Depending on the length and processing of special characters, strings are delimited by either quotes "", braces {} or [text][/text] tags.

クォート "" や括弧 {} でくくる文字列は 2047 文字を超えてはいけません。それより長い文字列には長さ制限のない文字列をくくれる [text][/text] タグを使うべきです。
Strings limited by either quotes "" or braces {} must not exceed 2047 characters. Longer strings should be limited by [text][/text] tags for unlimited text length.

"Hello", (append first-name  " Miller")

特殊文字は、キャラクタか数字の前にエスケープを示す \ (バックスラッシュ、訳注:日本語環境では円記号 ¥ ) を置くことでクォートされた文字内に含めることが可能:
Special characters can be included in quoted strings by placing a \ (backslash) before the character or digits to escape them:

for a double quote inside a quoted string
\nライン・フィード文字 (ASCII 10)
the line-feed character (ASCII 10)
\rキャリッジ・リターン文字 (ASCII 13)
the carriage return character (ASCII 13)
\bバックスペース文字 (ASCII 8)
for a backspace BS character (ASCII 8)
\tタブ文字 (ASCII 9)
the tab character (ASCII 9)
\fフォームフィード文字 (ASCII 12)
for a formfeed FF character (ASCII 12)
\nnn十進数のアスキー・コードで、nnn は 000 から 255 です
a decimal ASCII code where nnn is between 000 and 255
\xnn十六進数コードで、nn は 00 から FF です
a hexadecimal code where nn is between 00 and FF
\unnnn4 つの nnnn 十六進数にエンコードされたユニコード文字。 UTF-8 版 newLISP がクォートされた文字列を読みる時は、UTF8 文字に翻訳する。
a unicode character encoded in the four nnnn hexadecimal digits. When reading a quoted string, newLISP will translate this to a UTF8 character in the UTF8 enabled versions of newLISP.
\\バックスラッシュ文字(訳注:日本語環境では円記号 ¥ )自体
the backslash character itself

十進数は数字で始まる。十六進数は xで始まる:
Decimals start with a digit. Hexadecimals start with x:

"\065\066\067"  "ABC"
"\x41\x42\x43"  "ABC"

" (double quote) の代わりに、{ (左波括弧) と } (右波括弧) が文字列を囲むのに使える。 これは、引用マークが文字列内に必要な時、役に立つ。 波括弧による引用は、特殊文字用のバックスラッシュのエスケープ効果を抑制する。 対応が取れている波括弧も文字列における場合もある。 これは、正規表現や HTML の短い部品を書く時の助けになる。
Instead of a " (double quote), a { (left curly bracket) and } (right curly bracket) can be used to delimit strings. This is useful when quotation marks need to occur inside strings. Quoting with the curly brackets suppresses the backslash escape effect for special characters. Balanced nested curly brackets may be used within a string. This aids in writing regular expressions or short sections of HTML.

(print "<a href=\"\">" ) ; the cryptic way

(print {<a href="">} )   ; the readable way

; path names on MS Windows

(set 'path "C:\\MyDir\\example.lsp")

; no escaping when using braces

(set 'path {C:\MyDir\example.lsp})

; on MS Windows the forward slash can be used in path names

(set 'path "C:/MyDir/example.lsp")

; inner braces are balanced
(regex {abc{1,2}} line) 

(print [text]
  this could be
  a very long (> 2048 characters) text,
  i.e. HTML.

[text][/text] のタグは、長い文字列を囲みたい時やエスケープ文字翻訳を抑圧したい時に使える。 これは、newLISP で書かれた CGI ファイルの HTML 節を囲見たい時や文字変換を完全に抑圧したい時に役立つ。 2048文字を超える文字列では、常に [text] タグを使う。
The tags [text] and [/text] can be used to delimit long strings and suppress escape character translation. This is useful for delimiting long HTML passages in CGI files written in newLISP or for situations where character translation should be completely suppressed. Always use the [text] tags for strings longer than 2048 characters.


A symbol or expression evaluating to a symbol.

'xyz, (first '(+ - /)), '*, '- , someSymbol,

Most of the context symbols in this manual start with an uppercase letter to distinguish them from other symbols.


シンボル、存在するコンテキスト、または、コンテキストが生成されるシンボルに評価される式。 コンテキストが存在していない場合、多くの関数は無条件にコンテキストを生成する(例えば、bayes-traincontexteval-stringloadsymxml-parse)。 これらの関数が存在するコンテキストで使われる時、コンテキストは指定される必要がある。 いくつかの関数は、クォートされたシンボルを取ることで継続する(例えば、context)。 context? のような関数にとって、この区別は重要である。
(訳注:context にクォートされたシンボルを渡した場合、そのコンテキストが存在していない時は、生成され、そのコンテキストに入ります。 context? にクォートされたシンボルを渡した場合、nil になります。)
A symbol, an existing context, or an expression evaluating to a symbol from which a context will be created. If a context does not already exist, many functions implicitly create them (e.g., bayes-train, context, eval-string, load, sym, and xml-parse). The context must be specified when these functions are used on an existing context. Even if a context already exists, some functions may continue to take quoted symbols (e.g., context). For other functions, such as context?, the distinction is critical.

§ )

3. Functions in groups(グループ毎の関数)

Some functions appear in more than one group.

List processing, flow control, and integer arithmetic(リスト処理、フロー制御と整数演算)

+, -, *, /, % 整数演算
integer arithmetic
++ 整数を加算する
increment integer numbers
-- 整数を減算する
decrement integer numbers
<, >, = あらゆるデータの比較:未満、超過、等号
compares any data type: less, greater, equal
<=, >=, != あらゆるデータの比較:以下、以上、不等号
compares any data type: less-equal, greater-equal, not-equal
: コンテキスト・シンボルを作成し、オブジェクトに適用する
constructs a context symbol and applies it to an object
and 論理積
logical and
append リスト、アレイ、文字列を結合し、新しいリスト、アレイ、文字列を形成する
appends lists ,arrays or strings to form a new list, array or string
apply 関数や組込関数を引数のリストに適用する
applies a function or primitive to a list of arguments
args 関数やマクロ式の引数リストを取り出す
retrieves the argument list of a function or macro expression
assoc リストの連想キーワードを検索する
searches for keyword associations in a list
begin 関数のブロックを開始する
begins a block of functions
bigint 数値を大整数に変換する
convert a number to big integer format
bind リストの連想変数を束縛する
binds variable associations in a list
case 制御変数の内容で分岐する
branches depending on contents of control variable
catch 式の評価する、あるいは、エラーを補足する
evaluates an expression, possibly catching errors
chop リストの最後の要素をきり落とす
chops elements from the end of a list
clean リストから要素を取り除く
cleans elements from a list
collect repeat evaluating an expression and collect results in a list
cond 式次第で分岐する
branches conditionally to expressions
cons リストの前に要素をつけ、新リストを作る
prepends an element to a list, making a new list
constant 定数シンボルを定義する
defines a constant symbol
count リストの要素が別のリストに出現する数を数える
counts elements of one list that occur in another list
curry 関数 fx(y) を関数 f(x, y) に変換する
transforms a function f(x, y) into a function fx(y)
define 新関数やラムダ式を定義する
defines a new function or lambda expression
define-macro マクロやラムダ・マクロ式を定義する
defines a macro or lambda-macro expression
def-new 異なるコンテキスト(名前空間)にシンボルをコピーする
copies a symbol to a different context (namespace)
difference 二つのリスト間の差を返す
returns the difference between two lists
doargs 関数の引数を通して繰り返す
iterates through the arguments of a function
dolist リストの各要素で一回ずつ評価する
evaluates once for each element in a list
dostring 文字列の各文字で一回ずつ評価する
evaluates once for each character in a string
dotimes 範囲内の各数字で一回ずつ評価する
evaluates once for each number in a range
dotree コンテキスト内のシンボルを通して一回ずつ評価する
iterates through the symbols of a context
do-until 条件が合致するまで式ブロックの評価を繰り返す
repeats evaluation of an expression until the condition is met
do-while 条件が真の間、式ブロックの評価を繰り返す
repeats evaluation of an expression while the condition is true
dup 指定された回数、リストか文字列を複製する
duplicates a list or string a specified number of times
ends-with 文字列かリストの終りと同じ型のキーとの一致をチェックする
checks the end of a string or list against a key of the same type
eval 式を評価する
evaluates an expression
exists リスト中の条件の存在をチェックする
checks for the existence of a condition in a list
expand 入れ子リスト中のシンボルを置き換える
replaces a symbol in a nested list
explode リストか文字列を分割する
explodes a list or string
extend リストか文字列を拡張する
extends a list or string
first リストか文字列の第一要素を取得する
gets the first element of a list or string
filter リストをフィルタする
filters a list
find リストか文字列中の要素を検索する
searches for an element in a list or string
flat (訳注:入れ子でない)フラットなリストを返す
returns the flattened list
fn 新関数やラムダ式を定義する
defines a new function or lambda expression
for 範囲内の各数字で一回ずつ評価する
evaluates once for each number in a range
for-all リスト中の全ての要素が条件と合うかどうかをチェックする
checks if all elements in a list meet a condition
if 条件によって式を評価する
evaluates an expression conditionally
if-not 条件によって式を評価する(訳注:if と論理が逆)
evaluates an expression conditionally
index リストから要素をフィルタし、それらのインデックスを返す
filters elements from a list and returns their indices
intersect 二つのリストの両方にある要素を返す
returns the intersection of two lists
lambda 新関数やラムダ式を定義する
defines a new function or lambda expression
last リストか文字列の最後の要素を(訳注:リストにしないで)返す
returns the last element of a list or string
length リストか文字列の長さを返す
calculates the length of a list or string
let ローカル変数を宣言し、初期化する
declares and initializes local variables
letex 式中にローカル変数を展開し、その後評価する
expands local variables into an expression, then evaluates
letn 入れ子の let のように、ローカル変数を初期化する
(訳注:先に定義されたシンボルの内容が展開される。Common Lisp の let* 相当)
initializes local variables incrementally, like nested lets
list リストを作る
makes a list
local ローカル変数を宣言する
declares local variables
lookup 連想リスト中のメンバーを調べる
looks up members in an association list
map リストの要素に関数を適用し、その結果を集める
maps a function over members of a list, collecting the results
match リストに対してパターン・マッチングする。文字列に対しては、findregex を参照
matches patterns against lists; for matching against strings, see find and regex
member リストか文字列のメンバーを見つける
finds a member of a list or string
not 論理否定
logical not
nth リストか文字列のn番目の要素を取得する
gets the nth element of a list or string
or 論理和
logical or
pop リストか文字列から要素を削除して返す
deletes and returns an element from a list or string
pop-assoc 連想リストから連想を取り去る
removes an association from an association list
push リストか文字列に新要素を挿入する
inserts a new element into a list or string
quote 式をクォートする
quotes an expression
ref 入れ子リスト中の要素の位置を返す
returns the position of an element inside a nested list
ref-all 入れ子リスト中の要素のインデックス・ベクターのリストを返す
returns a list of index vectors of elements inside a nested list
rest リストか文字列の第一要素以外を返す
returns all but the first element of a list or string
replace リストか文字列内の要素を置換する
replaces elements inside a list or string
reverse リストか文字列の並びを逆にする
reverses a list or string
rotate リストか文字列の並びを回転する
rotates a list or string
select リストか文字列から要素を選んで並べ換える
selects and permutes elements from a list or string
self FOOP メソッド内で目標オブジェクトをアクセスする
Accesses the target object inside a FOOP method
set 束縛やシンボルの内容を設定する
sets the binding or contents of a symbol
setf setq シンボル、リスト、アレイ、文字列参照の内容を設定する
sets contents of a symbol or list, array or string reference
set-ref 入れ子リスト中の要素を検索し、置き換える
searches for an element in a nested list and replaces it
set-ref-all 入れ子リスト中の要素を検索し、全ての検出を置き換える
searches for an element in a nested list and replaces all instances
silent begin のように動作するが、戻り値のコンソール出力を抑制する
works like begin but suppresses console output of the return value
slice リストか文字列の一部を取り出す
extracts a sublist or substring
sort リストのメンバーを並べ替える
sorts the members of a list
starts-with 文字列かリストの始まりと同じ型のキーとの一致をチェックする
checks the beginning of a string or list against a key of the same type
swap リストか文字列内の二つの要素を入れ替える
swaps two elements inside a list or string
unify 二つの式を 統一化(ユニフィケーション)する
unifies two expressions
unique 重複しない要素のリストを返す
returns a list without duplicates
union 二つかそれ以上のリストで重複しない要素のリストを返す
returns a unique list of elements found in two or more lists.
unless 条件により(訳注:nil か '() の時)式ブロックを評価する
evaluates a block of statements conditionally
until 条件が合致するまで式ブロックの評価を繰り返す
repeats evaluation of an expression until the condition is met
when 条件により(訳注:nil か '() 以外の時)式ブロックを評価する
evaluates a block of statements conditionally
while 条件が真の間、式ブロックの評価を繰り返す
repeats evaluation of an expression while the condition is true

String and conversion functions(文字列と変換関数)

address 数値か文字列のメモリ・アドレスを取得する
gets the memory address of a number or string
bigint 数値を大整数に変換する
convert a number to big integer format
bits 数値をバイナリ表現に変換する
translates a number into binary representation
char 文字と ASCII コード間の変換をする
translates between characters and ASCII codes
chop 文字列の最後から文字を削除する
chops off characters from the end of a string
dostring 文字列の各文字列で一回ずつ評価する
evaluates once for each character in a string
dup 指定された回数、リストか文字列を複製する
duplicates a list or string a specified number of times
ends-with 文字列かリストの終りと同じ型のキーとの一致をチェックする
checks the end of a string or list against a key of the same type
encrypt ワン・タイム・パッド暗号化と文字列の解読をする
does a one-time?pad encryption and decryption of a string
eval-string 文字列をコンパイル(訳注:すなわち、newLISPソース解析)し、評価する
compiles, then evaluates a string
explode 文字列を文字のリストに変換する
transforms a string into a list of characters
extend リストか文字列を拡張する
extends a list or string
find リストか文字列中の要素を検索する
searches for an element in a list or string
find-all 文字列中でパターン・マッチングした全てをリストで返す
returns a list of all pattern matches found in string
first リストか文字列の第一要素を取得する
gets the first element in a list or string
float 文字列か整数を浮動小数点数に変換をする
translates a string or integer into a floating point number
format C 言語のように数値と文字列を整形する
formats numbers and strings as in the C language
get-char メモリ・アドレスから文字を取得する
gets a character from a memory address
get-float メモリ・アドレスから倍精度浮動小数点を取得する
gets a double float from a memory address
get-int   メモリ・アドレスから32ビット整数を取得する
gets a 32-bit integer from a memory address
get-long   メモリ・アドレスから64ビット整数を取得する
gets a long 64-bit integer from a memory address
get-string メモリ・アドレスから文字列を取得する
gets a string from a memory address
int 文字列か浮動小数点を整数に変換する
translates a string or float into an integer
join 文字列のリストを結合する
joins a list of strings
last リストか文字列の最後の要素を取得する
returns the last element of a list or string
lower-case 文字列を小文字に変換する
converts a string to lowercase characters
member リストか文字列のメンバーを検索する
finds a list or string member
name この関数は、削除されました。代わりに term を使ってください。
returns the name of a symbol or its context as a string
nth リストか文字列のn番目の要素を取得する
gets the nth element in a list or string
pack newLISP の式をバイナリ構造体にパックする
packs newLISP expressions into a binary structure
parse 文字列を トークン(訳注:ソースコードを構成する単語や記号の最小単位)に分解する
breaks a string into tokens
pop 文字列からポップする
pops from a string
push 文字列にプッシュする
pushes onto a string
regex Perlコンパチの正規表現検索を実行する
performs a Perl-compatible regular expression search
regex-comp 正規表現パターンを前以てコンパイルする
pre-compiles a regular expression pattern
replace リストか文字列内の要素を置換する
replaces elements in a list or string
rest リストか文字列の第一要素以外を取得する
gets all but the first element of a list or string
reverse リストか文字列の並びを逆にする
reverses a list or string
rotate リストか文字列の並びを回転する
rotates a list or string
select リストか文字列から要素を選んで並べ換える
selects and permutes elements from a list or string
setf setq 文字列参照の内容を設定する
sets contents of a string reference
slice 文字列かリストの一部を取り出す
extracts a substring or sublist
source シンボルに束縛を要求されているソースを文字列で返す
returns the source required to bind a symbol as a string
starts-with 文字列かリストの始まりと同じ型のキーとの一致をチェックする
checks the start of the string or list against a key string or list
string 何であれ文字列に変換する
transforms anything into a string
sym 文字列をシンボルに変換する
translates a string into a symbol
title-case 文字列の第一文字を大文字に変換する
converts the first character of a string to uppercase
trim 文字列の一端または両端でトリム(訳注:空白文字を削除)する
trims a string on one or both sides
unicode ASCII か UTF-8 を UCS-4 Unicode に変換する
converts ASCII or UTF-8 to UCS-4 Unicode
utf8 UCS-4 Unicode を UTF-8 に変換する
converts UCS-4 Unicode to UTF-8
utf8len UTF-8 文字列の長さを UTF-8 文字単位で返す
returns length of an UTF-8 string in UTF-8 characters
unpack バイナリ構造体を newLISP 式にアンパックする
unpacks a binary structure into newLISP expressions
upper-case 文字列を大文字に変換する
converts a string to uppercase characters

Floating point math and special functions(浮動小数点数学と特殊関数)

abs 数値の絶対値を返す
returns the absolute value of a number
acos 逆余弦関数
calculates the arc-cosine of a number
acosh 双曲線逆余弦関数
calculates the inverse hyperbolic cosine of a number
add 浮動小数点数か整数を加算し、浮動小数点数を返す
adds floating point or integer numbers and returns a floating point number
array アレイを作成する
creates an array
array-list アレイからリストに変換し返す
returns a list conversion from an array
asin 逆正弦関数
calculates the arcsine of a number
asinh 逆双曲線正弦関数
calculates the inverse hyperbolic sine of a number
atan 逆正接関数
calculates the arctangent of a number
atanh 逆双曲線正接関数
calculates the inverse hyperbolic tangent of a number
atan2 Y / X の逆正接を ラジアンで計算
computes the principal value of the arctangent of Y / X in radians
beta ベータ関数
calculates the beta function
betai 不完全ベータ関数
calculates the incomplete beta function
binomial 二項分布関数
calculates the binomial function
ceil 切り上げ
rounds up to the next integer
cos 余弦関数
calculates the cosine of a number
cosh 双曲線余弦関数
calculates the hyperbolic cosine of a number
crc32 データ・バッファの32ビットCRCを計算する
calculates a 32-bit CRC for a data buffer
dec 変数、リスト、アレイ中の数値を減算する
decrements a number in a variable, list or array
div 浮動小数点数か整数を除算する
divides floating point or integer numbers
erf 誤差関数
calculates the error function of a number
exp 指数関数
calculates the exponential e of a number
factor 数値を素因数分解する
factors a number into primes
fft 高速フーリエ変換
performs a fast Fourier transform (FFT)
floor 切り捨て
rounds down to the next integer
flt 浮動小数点数を表す32ビット整数に変換する
converts a number to a 32-bit integer representing a float
gammai 不完全ガンマ関数
calculates the incomplete Gamma function
gammaln 対数ガンマ関数
calculates the log Gamma function
gcd 最大公約数を計算する
calculates the greatest common divisor of a group of integers
ifft 逆高速フーリエ変換
performs an inverse fast Fourier transform (IFFT)
inc 変数、リスト、アレイ中の数値を加算する
increments a number in a variable, list or array
inf? 無限大をチェックする
checks if a floating point value is infinite
log 対数を計算する
calculates the natural or other logarithm of a number
min 最小値検出
finds the smallest value in a series of values
max 最大値検出
finds the largest value in a series of values
mod 余りを計算する
calculates the modulo of two numbers
mul 浮動小数点数か整数を乗算する
multiplies floating point or integer numbers
NaN? NaN をチェックする
checks if a float is NaN (not a number)
round 数値を丸める
rounds a number
pow xy 乗を計算する
calculates x to the power of y
sequence 等差数列リストを生成する
generates a list sequence of numbers
series 等比数列リストを生成する
creates a geometric sequence of numbers
sgn 符号を取り出す
calculates the signum function of a number
sin 正弦関数
calculates the sine of a number
sinh 双曲線正弦関数
calculates the hyperbolic sine of a number
sqrt 平方根を計算する
calculates the square root of a number
ssq ベクトルの二乗和を計算する
calculates the sum of squares of a vector
sub 浮動小数点数か整数を減算する
subtracts floating point or integer numbers
tan 正接関数
calculates the tangent of a number
tanh 双曲線正接関数
calculates the hyperbolic tangent of a number
uuid  汎用一意識別子(UUID)を返す
returns a UUID (Universal Unique IDentifier)

Matrix functions(行列関数)

det 行列式
returns the determinant of a matrix
invert 逆行列を返す
returns the inversion of a matrix
mat 行列のスカラー演算を実行する
performs scalar operations on matrices
multiply 行列の積をとる
multiplies two matrices
transpose  行列を置換する
returns the transposition of a matrix

Array functions(アレイ関数)

append アレイを結合する
appends arrays
array 16次元までのアレイを作成し、初期化する
creates and initializes an array with up to 16 dimensions
array-list アレイをリストに変換する
converts an array into a list
array? アレイかどうかをチェックする
checks if expression is an array
det 行列式を返す
returns the determinant of a matrix
first アレイの第1要素を返す
returns the first row of an array
invert 逆行列を返す
returns the inversion of a matrix
last アレイの最後の要素を返す
returns the last row of an array
mat 行列のスカラー演算を実行する
performs scalar operations on matrices
multiply 行列の積をとる
multiplies two matrices
nth アレイの要素を返す
returns an element of an array
rest アレイの第一要素以外を返す
returns all but the first row of an array
setf アレイの参照内容を設定する
sets contents of an array reference
slice アレイの一部を返す
returns a slice of an array
transpose 行列を置換する
transposes a matrix

Bit operators(ビット演算子)

<<, >>    左ビット・シフト、右ビット・シフト
bit shift left, bit shift right
& ビット単位の論理積
bitwise and
| ビット単位の論理和
bitwise inclusive or
^ ビット単位の排他的論理和
bitwise exclusive or
~ ビット単位の論理否定
bitwise not



atom? アトムのチェック
checks if an expression is an atom
array? アレイのチェック
checks if an expression is an array
bigint? 大整数のチェック
checks if a number is a big integer
context? コンテキストのチェック
checks if an expression is a context
directory? ディレクトリのチェック
checks if a disk node is a directory
empty? 空リストか空文字列のチェック
checks if a list or string is empty
even? 整数の偶奇をチェック
checks the parity of an integer number
file? ファイルの存在チェック
checks if a file exists
float? 浮動小数点数のチェック
checks if an expression is a float
global? シンボルのグローバルのチェック
checks if a symbol is global
inf? 無限大のチェック
checks if a floating point value is infinite
integer? 整数のチェック
checks if an expression is an integer
lambda? ラムダ式のチェック
checks if an expression is a lambda expression
legal? シンボルの適正チェック
checks if a string contains a legal symbol
list? リストのチェック
checks if an expression is a list
macro? ラムダ・マクロ式のチェック
checks if an expression is a lambda-macro expression
NaN? NaN のチェック
checks if a float is NaN (not a number)
nil? nil のチェック
checks if an expression is nil
null? nil, "", (), 0, 0.0のチェック
checks if an expression is nil, "", (), 0 or 0.0
number? 数値のチェック
checks if an expression is a float or an integer
odd? 整数の奇数をチェック
checks the parity of an integer number
protected? プロテクトのチェック
checks if a symbol is protected
primitive? 組込のチェック
checks if an expression is a primitive
quote? クォートのチェック
checks if an expression is quoted
string? 文字列のチェック
checks if an expression is a string
symbol? シンボルのチェック
checks if an expression is a symbol
true? nil以外のチェック
checks if an expression is not nil
zero? ゼロのチェック
checks if an expression is 0 or 0.0

Date and time functions(日付と時刻の関数)

date date-time 値を文字列に変換する
converts a date-time value to a string
date-list (訳注:1970年1月1日からの)秒数から年月日時分秒のリストを返す
returns a list of year, month, day, hours, minutes, seconds from a time value in seconds
date-parse 日付文字を解析し、1970年1月1日からの秒数を返す(以前は、parse-date
parses a date string and returns the number of seconds passed since January 1, 1970, (formerly parse-date)
date-value 日付と時刻に対して、1970年1月1日からの秒数を返す
calculates the time in seconds since January 1, 1970 for a date and time
now 現在の日付・時刻の情報をリストで返す
returns a list of current date-time information
time 式の評価に要する時間をミリ秒単位で計測する
calculates the time it takes to evaluate an expression in milliseconds
time-of-day その日で経過した時間をミリ秒数で返す
calculates the number of milliseconds elapsed since the day started

Statistics, simulation and modeling functions(統計、シミュレーション、モデル化関数)

amb 引数からランダムに選択し、それを評価する
randomly selects an argument and evaluates it
bayes-query データ・セットのベイズ確率を計算する
calculates Bayesian probabilities for a data set
bayes-train ベイズ法か頻度解析のリストで要素を数える
counts items in lists for Bayesian or frequency analysis
corr 積率相関 係数を計算する
calculates the product-moment correlation coefficient
crit-chi2 与えられた確率のカイ二乗 統計値を計算する
calculates the Chi² statistic for a given probability
crit-f 与えられた確率の F 統計値を計算する
calculates the F statistic for a given probability
crit-t 与えられた確率の スチューデントのt 統計値を計算する
calculates the Student's t statistic for a given probability
crit-z 与えられた確率の正規分布 Z 統計値を計算する
calculates the normal distributed Z for a given probability
kmeans-query クラスタの重心やデータ・ポイントまでの距離を計算する
calculates distances to cluster centroids or other data points
kmeans-train 一連のデータをクラスターに区分けする
partitions a data set into clusters
normal 正規分布する浮動小数点数のリストを生成する
makes a list of normal distributed floating point numbers
prob-chi2 カイ二乗 分布の尾部片側の確率を計算する
calculates the tail probability of a Chi² distribution value
prob-f F 分布の尾部片側の確率を計算する
calculates the tail probability of a F distribution value
prob-t スチューデントのt 分布の尾部片側の確率を計算する
calculates the tail probability of a Student's t distribution value
prob-z Z 分散値の累積確率を計算する
calculates the cumulated probability of a Z distribution value
rand ある範囲の乱数を生成する
generates random numbers in a range
random 均等に分布する浮動小数点数のリストを生成する
generates a list of evenly distributed floats
randomize リスト中のすべての要素をシャッフルする
shuffles all of the elements in a list
seed 内部乱数発生器の種を指定する
seeds the internal random number generator
stats ベクトル・データの基本的統計値を計算する
calculates some basic statistics for a data vector
t-test スチューデントのt 統計値を使って、データ・サンプルの平均を比較する
compares means of data samples using the Student's t statistic

Pattern matching(パターン マッチング)

ends-with リストか文字列の終りとパターンの一致をチェックする
tests if a list or string ends with a pattern
find リストか文字列中のパターンを検索する
searches for a pattern in a list or string
find-all 文字列中のパターンの出現を全て検索する
finds all occurrences of a pattern in a string
match リストのパターン・マッチング
matches list patterns
parse パターンに従って文字列を分解する
breaks a string along around patterns
ref 入れ子リスト中の要素の位置を返す
returns the position of an element inside a nested list
ref-all 入れ子リスト中の要素のインデックス・ベクトルのリストを返す
returns a list of index vectors of elements inside a nested list
regex 文字列中のパターンを検出する
finds patterns in a string
replace 文字列中のパターンを置き換える
replaces patterns in a string
search ファイル中のパターンを検索する
searches for a pattern in a file
starts-with リストか文字列の最初とパターンの一致をチェックする
tests if a list or string starts with a pattern
unify パターンの論理的単一化ユニフィケーションを実行する
performs a logical unification of patterns

Financial math functions(財務関数)

fv 投資の将来価値を返す
returns the future value of an investment
irr 内部利益率を計算する
calculates the internal rate of return
nper 投資に必要な支払回数を計算する
calculates the number of periods for an investment
npv 投資の現在価値を計算する
calculates the net present value of an investment
pv 投資の正味現在価値を計算する
calculates the present value of an investment
pmt ローンの定期支払額を計算する
calculates the payment for a loan

Input/output and file operations(ファイルと I/O の操作)

append-file ファイルにデータを追加する
appends data to a file
close ファイルを閉じる
closes a file
current-line 最後の read-line バッファの内容を取り出す
retrieves contents of last read-line buffer
device 現在の出力デバイスの設定または問合せ
sets or inquires about current print device
exec 別のプログラムを起動し、それに読み書きする
launches another program, then reads from or writes to it
load newLISP コードのファイルをロードし、評価する
loads and evaluates a file of newLISP code
open 読み書き用にファイルを開く
opens a file for reading or writing
peek ファイル記述子デスクリプタに読み取りできるバイト数をチェックする
checks file descriptor for number of bytes ready for reading
print コンソールかデバイスに出力する
prints to the console or a device
println コンソールかデバイスに改行付きで出力する
prints to the console or a device with a line-feed
read ファイルからバイナリ・データを読み取る
reads binary data from a file
read-char ファイルから8ビット文字を一個読み取る
reads an 8-bit character from a file
read-file 一動作でファイルを全て読み取る
reads a whole file in one operation
read-key キーボードのキーを読み取る
reads a keyboard key
read-line コンソールかファイルから一行読み取る
reads a line from the console or file
read-utf8 ファイルからUTF-8文字を読み取る
reads an UTF-8 character from a file
save ワークスペース、コンテキスト、シンボルをファイルに書き込む
saves a workspace, context, or symbol to a file
search 文字列についてファイルを検索する
searches a file for a string
seek ファイル・ポジションを設定、または読み取る
sets or reads a file position
write ファイルにバイナリ・データを書き込む
writes binary data to a file
write-char ファイルに一文字書き込む
writes a character to a file
write-file 一動作でファイルを書き込む
writes a file in one operation
write-line コンソールかファイルに一行書き込む
writes a line to the console or a file

Processes and the Cilk API(プロセスと CilK API)

! オペレーティング・システムのシェルに出る
shells out to the operating system
abort spawn で開始した子プロセスを中断する
aborts a child process started with spawn
destroy forkprocess で生成したプロセスを破棄する
destroys a process created with fork or process
exec プロセスを走らせ、それに読み書きする
runs a process, then reads from or writes to it
fork newLISP 子プロセスを起動する
launches a newLISP child process
pipe プロセス間通信用パイプを生成する
creates a pipe for interprocess communication
process 子プロセスを起動し、標準I/O と 標準エラーを割り当てる
launches a child process, remapping standard I/O and standard error
receive 他のプロセスからのメッセージを受信する
receive a message from another process
semaphore セマフォの生成と制御
creates and controls semaphores
send 他のプロセスにメッセージを送信する
send a message to another process
share 他のプロセスとメモリを共有する
shares memory with other processes
spawn Cilk プロセス管理で子プロセスを起動する
launches a child process for Cilk process management
sync spawn で起動した子プロセスを待ち、結果を収集する
waits for child processes launched with spawn and collects results
wait-pid 子プロセスが終わるまで待つ
waits for a child process to end

File and directory management(ファイルとディレクトリの管理)

change-dir  違うドライブやディレクトリに変更する
changes to a different drive and directory
copy-file ファイルをコピーする
copies a file
delete-file ファイルを削除する
deletes a file
directory ディレクトリ・エントリのリストを返す
returns a list of directory entries
file-info ファイルのサイズ、時間、属性を取得する
gets file size, date, time, and attributes
make-dir 新ディレクトリを作成する
makes a new directory
real-path 相対ファイル・パスの絶対ファイル・パスを返す
returns the full path of the relative file path
remove-dir 空のディレクトリを削除する
removes an empty directory
rename-file ファイルまたはディレクトリの名前を変える
renames a file or directory

HTTP networking API(HTTP ネットワーキング API)

base64-enc 文字列を BASE64 形式にエンコードする
encodes a string into BASE64 format
base64-dec BASE64 形式から文字列にデコードする
decodes a string from BASE64 format
delete-url ウェブからファイルまたはページを削除する
deletes a file or page from the web
get-url ウェブからファイルまたはページを読み取る
reads a file or page from the web
json-error JSON 変換で失敗したエラー情報を
returns error information from a failed JSON translation.
json-parse JSON 形式データを解析する
parses JSON formatted data
post-url URL アドレスにポストする
posts info to a URL address
put-url URL アドレスにページをアップロードする
uploads a page to a URL address
xfer-event HTTP バイト転送用のイベント・ハンドラを登録する
registers an event handler for HTTP byte transfers
xml-error 最後の XML 解析エラーを返す
returns last XML parse error
xml-parse XML ドキュメント を解析する
parses an XML document
xml-type-tags  XML タイプのタグを示すまたは変更する
shows or modifies XML type tags

Socket TCP/IP, UDP and ICMP network API(ソケット TCP/IP、UDP と ICMP ネットワーク API)

net-accept 受信用接続を受け付る
accepts a new incoming connection
net-close ソケット接続を閉じる
closes a socket connection
net-connect リモート・ホストに接続する
connects to a remote host
net-error 最後のエラーを返す
returns the last error
net-eval 複数のリモート newLISP サーバーで式を評価する
evaluates expressions on multiple remote newLISP servers
net-interface マルチホーム・コンピュータの既定インターフェース IP アドレスをセットする
Sets the default interface IP address on multihomed computers.
net-ipv インターネット・プロトコル・バージョン IPv4 と IPv6 間を切り替える
Switches between IPv4 and IPv6 internet protocol versions.
net-listen 通信用ローカル・ソケットを待ち受け(listen)る
listens for connections to a local socket
net-local 通信用ローカル IP とポート番号を返す
returns the local IP and port number for a connection
net-lookup IP 番号用の名前を返す
returns the name for an IP number
net-packet 生のソケット上にカスタム構成の IP パケットを送信する
send a custom configured IP packet over raw sockets
net-peek ネットワーク・ソケットから読み出せる文字数を返す
returns the number of characters ready to be read from a network socket
net-peer ネット接続用リモート IP とポートを返す
returns the remote IP and port for a net connect
net-ping 一個以上のアドレスに ping パケット (ICMP echo request) を送信する
sends a ping packet (ICMP echo request) to one or more addresses
net-receive 接続ソケット上のデータを読み取る
reads data on a socket connection
net-receive-from  開いてる接続の UDP を読み取る
reads a UDP on an open connection
net-receive-udp UDP を読み取り、接続を閉じる
reads a UDP and closes the connection
net-select ソケットまたはソケットのリストの状態をチェックする
checks a socket or list of sockets for status
net-send 接続ソケットにデータを送信する
sends data on a socket connection
net-send-to 開いてる接続に UDP を送信する
sends a UDP on an open connection
net-send-udp UDP を送信し、接続を閉じる
sends a UDP and closes the connection
net-service サービス名をポート番号に翻訳する
translates a service name into a port number
net-sessions 現在開いてる接続のリストを返す
returns a list of currently open connections

API for newLISP in a web browser(ウェブ・ブラウザ用 newLISP の API)

display-html ウェブ・ブラウザに HTML ページを表示する
display an HTML page in a web browser
eval-string-js 現在のウェブ・ブラウザ・ページで JavaScript を評価する
evaluate JavaScript in the current web browser page

Reflection and customization(リフレクションとカスタマイズ)

(訳注:Reflection については、こちらを参照してください。)

command-event コマンドラインや HTTP リスクエストを前処理する
pre-processes the command-line and HTTP requests
error-event エラー・ハンドラを定義する
defines an error handler
last-error エラー番号とテキストを報告する
report the last error number and text
macro リーダー拡張マクロ(訳注:macro)を生成する
create a reader expansion macro
ostype OSプラットフォームを表す文字列を取得する
contains a string describing the OS platform
prefix シンボルのコンテキストを返す
Returns the context prefix of a symbol
prompt-event インタラクティブ newLISP シェル・プロンプトをカスタマイズする
customizes the interactive newLISP shell prompt
read-expr ソースから S 式を読み取り、翻訳する
reads and translates s-expressions from source
reader-event 評価イベント駆動の前に、式を前処理する
preprocess expressions before evaluation event-driven
set-locale 異なる ロケールに切り替える
switches to a different locale
source シンボルに束縛を要求されているソースを文字列で返す
returns the source required to bind a symbol to a string
sys-error OS システム・エラー番号を報告する
reports OS system error numbers
sys-info システム・リソースについての情報を与える
gives information about system resources
term コンテキスト無しのシンボル部分を文字列で返す
returns the term part of a symbol without the context prefix as a string

System functions(システム関数)

$ システム変数 $0 -> $15 にアクセスする
accesses system variables $0 -> $15
callback 導入した関数用のコールバック関数を登録する
registers a callback function for an imported library
catch 式を評価し、エラーを補足したら、すぐに戻る
evaluates an expression, catching errors and early returns
context 異なる名前空間の生成か切り替えをする
creates or switches to a different namespace
copy 評価結果をコピーする
copies the result of an evaluation
debug ユーザ定義関数をデバックする
debugs a user-defined function
delete シンボル・テーブルからシンボルを削除する
deletes symbols from the symbol table
default コンテキストのデフォルト・ファンクタを返す
returns the contents of a default functor from a context
env オペレーティング・システム環境を取得または設定する
gets or sets the operating system's environment
exit newLISPを終了し、戻り値をセットする
exits newLISP, setting the exit value
global MAIN以外から(訳注:MAINコンテキストを指定せずに)アクセスできるシンボルにする
makes a symbol accessible outside MAIN
import 共有ライブラリを導入する
imports a function from a shared library
main-args コマンドライン引数を取得する
gets command-line arguments
new コンテキストのコピーを生成する
creates a copy of a context
pretty-print pretty-print 文字 (訳注: printsavesource 時の整形文字)を変更する
changes the pretty-printing characteristics
read-expr 文字列を S 式に翻訳するが、評価はしない
translates a string to an s-expression without evaluating it
reset トップレベルに行く(訳注:いわゆる、リセット)
goes to the top level
signal シグナル・ハンドラを設定する
sets a signal handler
sleep 指定されたミリ秒プロセスを中断する
suspends processing for specified milliseconds
sym 文字列からシンボルを生成する
creates a symbol from a string
symbols システムの全てのシンボルのリストを返す
returns a list of all symbols in the system
throw 先行する catch への戻りを起こす
causes a previous catch to return
throw-error ユーザ定義エラーを発生する
throws a user-defined error
timer ワン・ショット・タイマを開始して、イベントを起こす
starts a one-shot timer, firing an event
trace トレース・モードの設定と問い合わせ
sets or inquires about trace mode
trace-highlight トレース・モード時のハイライト文字列の設定
sets highlighting strings in trace mode

Importing libraries(ライブラリのインポート)

address 数値や文字列のメモリ・アドレスを返す
returns the memory address of a number or string
callback 導入した関数用のコールバック関数 を登録する
registers a callback function for an imported library
flt 浮動小数点数を表す32ビット整数に変換する
converts a number to a 32-bit integer representing a float
float 文字列や整数を浮動小数点数に変換する
translates a string or integer into a floating point number
get-char メモリ・アドレスから文字を取得する
gets a character from a memory address
get-float メモリ・アドレスから倍精度浮動小数点を取得する
gets a double float from a memory address
get-int   メモリ・アドレスから32ビット整数を取得する
gets a 32-bit integer from a memory address
get-long   メモリ・アドレスから64ビット整数を取得する
gets a long 64-bit integer from a memory address
get-string メモリ・アドレスから文字列を取得する
gets a string from a memory address
import 共有ライブラリから関数を導入する
imports a function from a shared library
int 文字列か浮動小数点数を整数に変換する
translates a string or float into an integer
pack newLISP の式をバイナリ構造体にパックする
packs newLISP expressions into a binary structure
struct C言語タイプの構造体データを定義する
Defines a data structure with C types
unpack バイナリ構造体を newLISP 式にアンパックする
unpacks a binary structure into newLISP expressions

newLISP internals API(newLISP 内部 API)

command-event コマンドラインや HTTP リスクエストを前処理する
pre-processes the command-line and HTTP requests
cpymem アドレス間でメモリをコピーする
copies memory between addresses
dump newLISP セルのメモリ・アドレスと内容を示す
shows memory address and contents of newLISP cells
prompt-event インタラクティブ newLISP シェル・プロンプトをカスタマイズする
customizes the interactive newLISP shell prompt
read-expr ソースから S 式を読み取り、翻訳する
reads and translates s-expressions from source
reader-event 評価イベント駆動の前に、式を前処理する
preprocess expressions before evaluation event-driven

§ )

4. Functions in alphabetical order(アルファベット順の関数)


syntax: (! str-shell-command [int-flags])

OSのシェル上で str-shell-command のコマンドを実行します。 この関数は、ホスト・オペレーティング・システムによって異なる値を返します。
Executes the command in str-command by shelling out to the operating system and executing. This function returns a different value depending on the host operating system.

(! "vi")  
(! "ls -ltr")

シェル・コマンドを実行したり、標準出力を取得したり、標準入力を与えたりするのに関数exec を使ってください。 ノン・ブロッキングの子プロセスを起動し、標準 I/O や標準エラーをパイプへリダイレクトするためには、関数process が使えます。
Use the exec function to execute a shell command and capture the standard output or to feed standard input. The process function may be used to launch a non-blocking child process and redirect std I/O and std error to pipes.

Ms Windows では、オプションの int-flags パラメータが、 プロセス生成の様々なパラメータを制御する Windows 関数 CreateProcessA 用に定義されたプロセス生成フラグを取ります。 このパラメータ―― 0 が使われる――を含めると、コマンド・シェル・ウィンドウ無しプロセス生成が強制されます。 このパラメータは、Unix では無視されます。
On Ms Windows the optional int-flags parameter takes process creation flags as defined for the Windows CreateProcessA function to control various parameters of process creation. The inclusion of this parameter – which also can be 0 – forces a different creation of the process without a command shell window. This parameter is ignored on Unix.

; on MS Windows
; close the console of the currently running newLISP process
(apply (import "kernel32" "FreeConsole")) 

; start another process and wait for it to finish
(! "notepad.exe" 0)


付加パラメータ無しの ! 呼出しは、コマンド・ウィンドウを閉じて、代わりに新しいコマンド・ウィンドウを生成します。
Without the additional parameter, the ! call would create a new command window replacing the closed one.

!(感嘆符)は、括弧や ! に続くスペースを省略して、 コマンド・ラインのシェル・オペレータとしても使えることに注意してください:
Note that ! (exclamation mark) can be also be used as a command-line shell operator by omitting the parenthesis and space after the !:

> !ls -ltr    ; executed in the newLISP shell window

この方法で使う ! オペレータは全く newLISP 関数らしくなく、いわば newLISP コマンド・シェルの特殊機能です。 ! は、必ずコマンド・ラインの先頭に、入力しなければなりません。
Used in this way, the ! operator is not a newLISP function at all, but rather a special feature of the newLISP command shell. The ! must be entered as the first character on the command-line.


syntax: ($ int-idx)

正規表現を使う関数(directoryends-withfindfind-allparseregexsearchstarts-withreplace)は全て、 実行中もしくは実行後の関数の結果をシステム変数として予約されている $0$1$2$15 に束縛します。 システム変数は他のシンボルと同じように扱えます。 選択肢の一つとして、これらの変数の内容を ($ 0)($ 1)($ 2) 等を使ってアクセスすることもできます。 この方法はインデックス操作を使っています(すなわち ($ i)、ここで i は整数)。
The functions that use regular expressions (directory, ends-with, find, find-all, parse, regex, search, starts-with and replace) all bind their results to the predefined system variables $0, $1, $2$15 after or during the function's execution. System variables can be treated the same as any other symbol. As an alternative, the contents of these variables may also be accessed by using ($ 0), ($ 1), ($ 2), etc. This method allows indexed access (i.e., ($ i), where i is an integer).

(set 'str  "")
(find "http://(.*):(.*)" str 0)   0
$0   ""
$1   ""
$2   "80"
($ 0)   ""
($ 1)   ""
($ 2)   "80"

+, -, *, / ,%  bigint

syntax: (+ int-1 [int-2 ... ])

int-1 から続く全ての数値の和を返します。
Returns the sum of all numbers in int-1 —.

syntax: (- int-1 [int-2 ... ])

int-1 から int-2 を引き算し、続く int-i 以下を前の結果から次々に引き算します。もし、引数が一つなら、符号を反転します。
Subtracts int-2 from int-1, then the next int-i from the previous result. If only one argument is given, its sign is reversed.

syntax: (* int-1 [int-2 ... ])

int-1 から int-i までを掛け算します。
The product is calculated for int-1 to int-i.

syntax: (/ int-1 [int-2 ... ])

リストの終わりに達するまで、次々と割り算して行きます。 ゼロで割るとエラーを起こします。
Each result is divided successively until the end of the list is reached. Division by zero causes an error.

syntax: (% int-1 [int-2 ... ])

次(訳注:右隣)の int で割った余りを返します。 ゼロでの割り算はエラーを起こします。 浮動小数点数の場合は、関数 modを使ってください。
Each result is divided successively by the next int, then the rest (modulo operation) is returned. Division by zero causes an error. For floating point numbers, use the mod function.

(+ 1 2 3 4 5)         15
(+ 1 2 (- 5 2) 8)     14
(- 10 3 2 1)          4
(- (* 3 4) 6 1 2)     3
(- 123)               -123
(map - '(10 20 30))   (-10 -20 -30)
(* 1 2 3)             6
(* 10 (- 8 2))        60
(/ 12 3)              4
(/ 120 3 20 2)        1
(% 10 3)              1
(% -10 3)             -1
(+ 1.2 3.9)           4

+-*/% の引数に与えられた浮動小数点数は、0(ゼロ)に近い整数に丸められます。
Floating point values in arguments to +, -, *, /, and % are truncated to the integer value closest to 0 (zero).

整数値の最大値(9,223,372,036,854,775,807)より大きい浮動小数点数は整数値の最大値に丸められ、 最小値(-9,223,372,036,854,775,808) より小さい浮動小数点数は整数値の最小値に丸められます。 これは、+Inf-Inf も含みます。
Floating point values larger or smaller than the maximum (9,223,372,036,854,775,807) or minimum (-9,223,372,036,854,775,808) integer values are truncated to those values. This includes the values for +Inf and -Inf.

計算結果が 9,223,372,036,854,775,807 より大きい値になると符合が+から-に、 -9,223,372,036,854,775,808 より小さい値になると符合が-から+に変わります。
Calculations resulting in values larger than 9,223,372,036,854,775,807 or smaller than -9,223,372,036,854,775,808 wrap around from positive to negative or negative to positive.

> (+ 9223372036854775807 1)
> (- -9223372036854775808 1)

NaN (Not a Number) に評価される浮動小数点数は 0(ゼロ)として扱われます。
Floating point values that evaluate to NaN (Not a Number), ar treated as 0 (zero).

> (sqrt -1)
> (+ 0 (sqrt -1))
> (mul 1E308 10)
> (+ 0 (mul 1E308 10))
> (mul 1E308 -10)
> (+ 0 (mul 1E308 -10))

++ !  bigint

syntax: (++ place [num ... ])

++ 演算子は incのように動作しますが、実行されるのは整数演算です。 オプションの引数 num が無い時、++place の数値に 1 を加算します。
The ++ operator works like inc, but performs integer arithmetic. Without the optional argument in num, ++ increments the number in place by 1.

If floating point numbers are passed as arguments, their fractional part gets truncated first.

計算結果が 9,223,372,036,854,775,807 より大きい値になると符合が正から負に、-9,223,372,036,854,775,808 より小さい値になると符合が負から正に変わります。
Calculations resulting in numbers greater than 9,223,372,036,854,775,807 wrap around to negative numbers. Results smaller than -9,223,372,036,854,775,808 wrap around to positive numbers.

place はシンボルか、数値を保持するリスト構造の位置か、式によって返される数値のいずれかです。
place is either a symbol or a place in a list structure holding a number, or a number returned by an expression.

(set 'x 1)    
(++ x)         2
(set 'x 3.8)
(++ x)         4
(++ x 1.3)     5
(set 'lst '(1 2 3))
(++ (lst 1) 2))   4
lst               (1 4 3)

place のシンボルに nil が入っていたら、0 として扱われます。
If the symbol for place contains nil, it is treated as if containing 0.

整数モードで数値を減算するには -- を見てください。 浮動小数点数モードで数値を加算するには inc を見てください。
See -- for decrementing numbers in integer mode. See inc for incrementing numbers in floating point mode.

-- !  bigint

syntax: (-- place [num ... ])

-- 演算子は dec のように動作しますが、実行されるのは整数演算です。 オプションの引数 num が無い時、--place の数値から 1 を引きます。
The -- operator works like dec, but performs integer arithmetic. Without the optional argument in num-2, -- decrements the number in place by 1.

If floating point numbers are passed as arguments, their fractional part gets truncated first.

計算結果が 9,223,372,036,854,775,807 より大きい値になると符合が正から負に、 -9,223,372,036,854,775,808 より小さい値になると符合が負から正に変わります。
Calculations resulting in numbers greater than 9,223,372,036,854,775,807 wrap around to negative numbers. Results smaller than -9,223,372,036,854,775,808 wrap around to positive numbers.

place はシンボルか、数値を保持するリスト構造の位置か、式によって返される数値のいずれかです。
place is either a symbol or a place in a list structure holding a number, or a number returned by an expression.

(set 'x 1)    
(-- x)         0
(set 'x 3.8)
(-- x)         2
(-- x 1.3)     1

(set 'lst '(1 2 3))
(-- (lst 1) 2))   0
lst               (1 0 3)

place のシンボルに nil が入っていたら、0 として扱われます。
If the symbol for place contains nil, it is treated as if containing 0.

整数モードで数値を加算するには ++ を見てください。 浮動小数点数モードで数値を減算するには dec を見てください。
See ++ for incrementing numbers in integer mode. See dec for decrementing numbers in floating point mode.

<, >, =, <=, >=, !=  bigint

syntax: (< exp-1 [exp-2 ... ])
syntax: (> exp-1 [exp-2 ... ])
syntax: (= exp-1 [exp-2 ... ])
syntax: (<= exp-1 [exp-2 ... ])
syntax: (>= exp-1 [exp-2 ... ])
syntax: (!= exp-1 [exp-2 ... ])

式が評価され、その結果が続けて比較されます。 比較した結果が比較演算子に一致する間は、全ての引数が試されるまで評価と比較が続けられ、結果は、true になります。 比較が一致しなかったら、直ちに nil が返ります。
Expressions are evaluated and the results are compared successively. As long as the comparisons conform to the comparison operators, evaluation and comparison will continue until all arguments are tested and the result is true. As soon as one comparison fails, nil is returned.

全ての演算子で、引数が一つなら、第二引数は 0 として扱われます。 これは、数値が負か正か、ゼロかゼロでないか等を確認するのに使えます。
If only one argument is supplied, all comparison operators assume 0 (zero) as a second argument. This can be used to check if a number is negative, positive, zero or not zero.

全ての型の式(アトム、数値、シンボル、文字列)が比較可能です。 リスト式も比較可能です(リストの要素が再帰的に比較されます)。
All types of expressions can be compared: atoms, numbers, symbols, and strings. List expressions can also be compared (list elements are compared recursively).

リスト式の比較では、リストの最初の要素が続く要素よりも先に判断されます(文字列の文字も同様)。 長さも要素も異なるリスト式の比較では、長いリスト式がより大きいと判断されます(例題を見てください)。
When comparing lists, elements at the beginning of the list are considered more significant than the elements following (similar to characters in a string). When comparing lists of different lengths but equal elements, the longer list is considered greater (see examples).

混在型の式では、型が低い方から高い方に比較されます。 浮動小数点数と整数は、それらを数値として比較するため、最初に必要な型へ変換してから比較されます。
In mixed-type expressions, the types are compared from lowest to highest. Floats and integers are compared by first converting them to the needed type, then comparing them as numbers.

Atoms: nil, true, integer or float, string, symbol, primitive
Lists: quoted list/expression, list/expression, lambda, lambda-macro
(< 3 5 8 9)                      true
(> 4 2 3 6)                      nil
(< "a" "c" "d")                  true
(>= duba aba)                    true
(< '(3 4) '(1 5))                nil
(> '(1 2 3) '(1 2))              true
(= '(5 7 8) '(5 7 8))            true
(!= 1 4 3 7 3)                   true
(< 1.2 6 "Hello" 'any '(1 2 3))            true
(< nil true)                               true
(< '(((a b))) '(((b c))))                  true
(< '((a (b c)) '(a (b d)) '(a (b (d)))))   true

; with single argument compares against 0

(> 1)     true ; checks for positive
(> -1)    nil ; checks for negative
(= 123)   nil ; checks for zero

(map > '(1 3 -4 -3 1 2))    (true true nil nil true true)

<<, >>

syntax: (<< int-1 int-2 [int-3 ... ])
syntax: (>> int-1 int-2 [int-3 ... ])
syntax: (<< int-1)
syntax: (>> int-1)

数値 int-1int-2 で与えられたビット数分、左または右に算術シフトされ、続けて int-3 分シフトされるという風に続きます。 例えば、64ビット整数では 63 個までシフトできます。 右シフトの場合、最上位ビットがそのまま残ります(算術シフト):
The number int-1 is arithmetically shifted to the left or right by the number of bits given as int-2, then shifted by int-3 and so on. For example, 64-bit integers may be shifted up to 63 positions. When shifting right, the most significant bit is duplicated (arithmetic shift):

(>> 0x8000000000000000 1)   0xC000000000000000  ; not 0x0400000000000000!

(<< 1 3)        8
(<< 1 2 1)      8
(>> 1024 10)    1
(>> 160 2 2)   10

(<< 3)          6
(>> 8)          4

int-1 が唯一の引数の場合、<<>> は 1ビットシフトします。
When int-1 is the only argument, << and >> shift by one bit.


syntax: (& int-1 int-2 [int-3 ... ])

int-1 の数値と int-2 の数値のビット単位 and 演算を行います。 続く int-3 以下の数値に対しても同様です。
A bitwise and operation is performed on the number in int-1 with the number in int-2, then successively with int-3, etc.

(& 0xAABB 0x000F)   11  ; which is 0xB


syntax: (| int-1 int-2 [int-3 ... ])

int-1 の数値と int-2 の数値のビット単位 or 演算を行います。 続く int-3 以下の数値に対しても同様です。
A bitwise or operation is performed on the number in int-1 with the number in int-2, then successively with int-3, etc.

(| 0x10 0x80 2 1)   147


syntax: (^ int-1 int-2 [int-3 ... ])

int-1 の数値と int-2 の数値のビット単位 xor 演算を行います。 続く int-3 以下の数値に対しても同様です。
A bitwise xor operation is performed on the number in int-1 with the number in int-2, then successively with int-3, etc.

(^ 0xAA 0x55)   255


syntax: (~ int)

int の数値に対して、全てのビットを反転するビット単位 not 演算を行います。
A bitwise not operation is performed on the number in int, reversing all of the bits.

(format "%X" (~ 0xFFFFFFAA))   "55"
(~ 0xFFFFFFFF)                 0


syntax: (: sym-function list-object [ ... ])

コロンは名前空間のコンテキストとシンボル名を別けるために使われるだけでなく、演算子としても使われます。 演算子として使う時、コロン : はオブジェクト・リストのコンテキスト名のコンテキスト・シンボルとコロンに続くシンボルを組み立てます。 list-object のオブジェクト・リストは他のパラメータを続けることができます。
The colon is used not only as a syntactic separator between namespace prefix and the term inside but also as an operator. When used as an operator, the colon : constructs a context symbol from the context name in the object list and the symbol following the colon. The object list in list-object can be followed by other parameters.

演算子: は、コンテキスト(名前空間)によって表される異なるオブジェクト・クラスの部品となるオブジェクト・メソッド多態性を実装します。 newLISP では、オブジェクトは、第一要素がクラス・コンテキストのシンボル(名前)であるリストで表現されます。 クラス・コンテキストはオブジェクトに適用する関数群を実装します。コロンとそれに続くシンボルの間はスペース無しです。
The : operator implements polymorphism of object methods, which are part of different object classes represented by contexts (namespaces). In newLISP, an object is represented by a list, the first element of which is the symbol (name) of its class context. The class context implements the functions applicable to the object. No space is required between the colon and the symbol following it.

(define (Rectangle:area)
    (mul (self 3) (self 4)))

(define (Circle:area)
    (mul (pow (self 3) 2) (acos 0) 2))

(define (Rectangle:move dx dy)
    (inc (self 1) dx) 
	(inc (self 2) dy)) 

(define (Circle:move p dx dy)
    (inc (self 1) dx) (inc (self 2) dy)) 

(set 'myrect '(Rectangle 5 5 10 20)) ; x y width height
(set 'mycircle '(Circle 1 2 10)) ; x y radius

;; using the : (colon) operator to resolve to a specific context

(:area myrect)      200
(:area mycircle)    314.1592654

;; map class methods uses curry to enclose the colon operator and class function

(map (curry :area) (list myrect mycircle))  (200 314.1592654)

(map (curry :area) '((Rectangle 5 5 10 20) (Circle 1 2 10)))  (200 314.1592654) 

;; change object attributes using a function and re-assigning
;; to the objects name

(:move myrect 2 3)       
myrect    (Rectangle 7 8 10 20)

(:move mycircle 4 5)   
mycircle  (Circle 5 7 10)

FOOP メソッド内部では、メソッドの目的オブジェクトをアクセスするために関数 self が使えます。
Inside the FOOP methods the self function is used to access the target object of the method.


syntax: (abort int-pid)
syntax: (abort)

第一形式の abort は、現在の親プロセスが与えるプロセスIDの int-pid で特定される子プロセスを中断します。 プロセスは spawn を使って開始されている必要があります。 fork を使って開始されたプロセスには、代わりに destroy を使います。
In the first form, abort aborts a specific child process of the current parent process giving the process id in int-pid. The process must have been started using spawn. For processes started using fork, use destroy instead.

MS Windows では、この関数 abort を利用できません。
The function abort is not available on Windows.

(abort 2245)   true

現プロセスから起動した全ての子プロセスを中断したい時は、引数無しの abort を使います:
To abort all child processes spawned from the current process use abort without any parameters:

(abort)   true ; abort all

関数 abort は、子プロセス同期とプロセス並列化用の Cilk API の部品です。 Cilk API の全貌については、関数spawn の項を見てください。
The function abort is part of the Cilk API for synchronizing child processes and process parallelization. See the reference for the function spawn for a full discussion of the Cilk API.

abs  bigint

syntax: (abs num)

数値 num の絶対値を返します。
Returns the absolute value of the number in num.

(abs -3.5)   3.5


syntax: (acos num-radians)

数値 num-radians の逆余弦関数を計算します。
The arc-cosine function is calculated from the number in num-radians.

(acos 1)   0
(cos (acos 1))  1


syntax: (acosh num-radians)

num-radians の逆双曲線余弦関数を計算します。 ここで、num-radians は双曲線余弦関数値です。 num-radians が 1 より小さい時、acoshNaN を返します。
Calculates the inverse hyperbolic cosine of num-radians, the value whose hyperbolic cosine is num-radians. If num-radians is less than 1, acosh returns NaN.

(acosh 2)   1.316957897
(cosh (acosh 2))  2
(acosh 0.5)  NaN


syntax: (add num-1 [num-2 ... ])

num-1, num-2 と続く全ての数値を加算します。 add は浮動小数点数か整数の引数を取りますが、返すのは常に浮動小数点数です。 NaN となる浮動小数点数には NaN を返します。
All of the numbers in num-1, num-2, and on are summed. add accepts float or integer operands, but it always returns a floating point number. Any floating point calculation with NaN also returns NaN.

(add 2 3.25 9)    14.25
(add 1 2 3 4 5)   15


syntax: (address int)
syntax: (address float)
syntax: (address str)

整数 int、倍精度浮動小数点数 float、文字列 str のメモリ・アドレスを返します。 この関数は関数 import を使って導入されるライブラリ関数への変数引渡しに使われます。
Returns the memory address of the integer in int, the double floating point number in float, or the string in str. This function is used for passing parameters to library functions that have been imported using the import function.

(set 's "\001\002\003\004")

(get-char (+ (address s) 3))    4

(set 'x 12345) ; x is a 64-bit long int

; on a big-endian CPU, i.e. PPC or SPARC 
(get-long (address x))          12345
; the 32-bit int is in high 32-bit part of the long int
(get-int (+ (address x) 4))     12345

; on a little-endian CPU, i.e. Intel i386
; the 32-bit int is in the low 32-bit part of the long int
(get-int (address x))           12345

; on both architectures (integers are 64 bit in newLISP)
(set 'x 1234567890)
(get-long (address x))           1234567890

Cライブラリ関数に文字列を渡す時は、文字列のアドレスが自動的に使われますので address を使う必要はありません。 例が示すように、address は文字列アドレスのポインタ計算に使うことができます。
When a string is passed to C library function the address of the string is used automatically, and it is not necessary to use the address function in that case. As the example shows, address can be used to do pointer arithmetic on the string's address.

address は消えてなくなる中間式オブジェクトに対してではなく、変数シンボルで参照されるデータ・オブジェクトの実アドレスでのみ、使われるべきです。
address should only be used on persistent addresses from data objects referred to by a variable symbol, not from volatile intermediate expression objects.

関数 get-charget-intget-longget-float も見てください。
See also the get-char, get-int, get-long and get-float functions.


syntax: (amb exp-1 [exp-2 ... ])

exp-1 ... n 中の一つが無作為に選択され、その評価結果が返ります。
One of the expressions exp-1 ... n is selected at random, and the evaluation result is returned.

(amb 'a 'b 'c 'd 'e)   one of: a, b, c, d, or e at random

(dotimes (x 10) (print (amb 3 5 7)))   35777535755

無作為な数値の選択に、newLISP は内部で rand と同じ関数を使います。 無作為な浮動小数点数の生成には、randomrandomizenormal を使ってください。 擬似乱数生成処理を特定の開始位置で初期化するには、seed を使ってください。
Internally, newLISP uses the same function as rand to pick a random number. To generate random floating point numbers, use random, randomize, or normal. To initialize the pseudo random number generating process at a specific starting point, use the seed function.


syntax: (and exp-1 [exp-2 ... ])

exp-1, exp-2, が順に評価され、最後の式の結果を返します。 もし、式が nil か空リスト () になれば、評価を終了し、nil か空リスト () を返します。
The expressions exp-1, exp-2, etc. are evaluated in order, returning the result of the last expression. If any of the expressions yield nil or the empty list (), evaluation is terminated and nil or the empty list () is returned.

(set 'x 10)                        10
(and (< x 100) (> x 2))            true
(and (< x 100) (> x 2) "passed")   "passed"
(and '())                          ()
(and true)                         true
(and)                              true


syntax: (append list-1 [list-2 ... ])
syntax: (append array-1 [array-2 ... ])
syntax: (append str-1 [str-2 ... ])

第一形式の append はリストに作用し、list-1 から list-n までを一つの新しいリストに結合します。 元のリスト群は変わりません。(訳注:つまり、副作用がない)
In the first form, append works with lists, appending list-1 through list-n to form a new list. The original lists are left unchanged.

(append '(1 2 3) '(4 5 6) '(a b))   (1 2 3 4 5 6 a b)

(set 'aList '("hello" "world"))     ("hello" "world")

(append aList '("here" "I am"))     ("hello" "world" "here" "I am")

二つ目の形式では、append はアレイに対して作用します:
In the second form append works on arrays:

(set 'A (array 3 2 (sequence 1 6)))
 ((1 2) (3 4) (5 6))
(set 'B (array 2 2 (sequence 7 10)))
 ((7 8) (9 10))

(append A B)
 ((1 2) (3 4) (5 6) (7 8) (9 10))

(append B B B)
 ((7 8) (9 10) (7 8) (9 10) (7 8) (9 10))

三番目の形式では、append は文字列に作用します。 str-n の文字列が一つの新しい文字列に結合されて返ります。
In the third form, append works on strings. The strings in str-n are concatenated into a new string and returned.

(set 'more " how are you")        " how are you"

(append "Hello " "world," more)   "Hello world, how are you"

append はゼロを含むバイナリ文字列を操作するのにも適しています。 関数 string なら、ゼロのバイトで文字列を切ってしまうからです。
append is also suitable for processing binary strings containing zeroes. The string function would cut off strings at zero bytes.

結合する文字や文字列を指定するには、関数 join が使えます。 引数の文字列への型変換と結合を一回で済ますには、関数 string を使ってください。
Linkage characters or strings can be specified using the join function. Use the string function to convert arguments to strings and append in one step.

変更を目的とする既存のリストや文字列の結合には(訳注:つまり、副作用が必要な時)、関数 extendpush を使ってください。
Use the functions extend and push to append to an existing list or string modifying the target.


syntax: (append-file str-filename str-buffer)

write-file のように動作しますが、str-filename のファイルが存在する時は、str-buffer の内容を追加します。 ファイルが存在しない時には、それを作ります(この場合、append-filewrite-file と同じ動作)。 この関数の戻り値は、書き込んだバイト数です。
Works similarly to write-file, but the content in str-buffer is appended if the file in str-filename exists. If the file does not exist, it is created (in this case, append-file works identically to write-file). This function returns the number of bytes written.

失敗した時、関数は nil を返します。ファイルで使っている時のエラー情報には、sys-error も使えます。
On failure the function returns nil. For error information, use either sys-error when used on files.

(write-file "myfile.txt" "ABC") 
(append-file "myfile.txt" "DEF")

(read-file "myfile.txt")   "ABCDEF"

append-file は、str-file-namehttp://file:// の URL を取ることができます。 接頭語が、http:// の場合、append-file は、ちょうど "Pragma: append\r\n" のヘッダー・オプションを持つ put-url のように動作し、追加のパラメータにも同じものが使えます。 オプションの "Pragma: append\r\n" は自動的に与えられます。
append-file can take a http:// or file:// URL in str-file-name. In case of the http:// prefix , append-file works exactly like put-url with "Pragma: append\r\n" in the header option and can take the same additional parameters. The "Pragma: append\r\n" option is supplied automatically.

(append-file "" "More message text.")

この message.txt ファイルは、リモート位置の http://asite.comstr-buffer の内容を追加されます。 もし、ファイルが存在しないなら、作成されます。 このモードにおいて、append-file はリモート newLISP サーバー・ノードにファイルを転送するためにも使えます。
The file message.txt is appended at a remote location with the contents of str-buffer. If the file does not yet exist, it will be created. In this mode, append-file can also be used to transfer files to remote newLISP server nodes.

read-filewrite-file も見てください。
See also read-file and write-file.


syntax: (apply func list [int-reduce])
syntax: (apply func)

引数の listfunc(組込関数、ユーザ定義関数、ラムダ式)の内容を適用します(訳注:引数の list の括弧を外して、func に与えるのと同等)。 関数や演算子が引数に対して標準的な評価を行ないます。
Applies the contents of func (primitive, user-defined function, or lambda expression) to the arguments in list. Only functions and operators with standard evaluation of their arguments can be applied.

第二構文の apply は引数を取らない関数に使います。
In the second syntax apply is used on functions without any arguments.

(apply + '(1 2 3 4))                    10
(set 'aList '(3 4 5))                   (3 4 5)
(apply * aList)                         60
(apply sqrt '(25))                      5
(apply (lambda (x y) (* x y)) '(3 4))   12

int-reduce パラメータはオプションで、関数 func の受け取る要素数が入ります。 この場合、func は前の結果を第一引数として取り、受け取る残りの要素を list から(左から順に)取ることを繰り返します。 例えば、op が二つの引数を取るなら、こうなります:
The int-reduce parameter can optionally contain the number of arguments taken by the function in func. In this case, func will be repeatedly applied using the previous result as the first argument and taking the other arguments required successively from list (in left-associative order). For example, if op takes two arguments, then:

(apply op '(1 2 3 4 5) 2)

;; is equivalent to

(op (op (op (op 1 2) 3) 4) 5)

;; find the greatest common divisor 
;; of two or more integers 
;; note that newLISP already has a gcd function

(define (gcd_ a b)
    (let (r (% b a))
        (if (= r 0) a (gcd_ r a))))

(define-macro (my-gcd)
    (apply gcd_ (map eval (args)) 2))

(my-gcd 12 18 6)     6
(my-gcd 12 18 6 4)   2

最後の例は、apply畳み込み(縮約) を使って、引数二つの関数が一度に複数の引数を取れる様子を示しています。 記しておきますが、これは組込 gcd でも可能です。(訳注:組込gcd は二つ以上の整数値の最大公約数を返します。)
The last example shows how apply's reduce functionality can be used to convert a two-argument function into one that takes multiple arguments. Note, that a built-in gcd is available.

apply は、dotimescase のようにいくつかの引数だけを評価するような特殊形式 を持つものではなく、引数を全て評価する関数や演算子に対して使うべきです。 そうしないと、その関数は失敗します。
apply should only be used on functions and operators that evaluate all of their arguments, not on special forms like dotimes or case, which evaluate only some of their arguments. Doing so will cause the function to fail.

(訳例:Common Lisp では orandapply できませんが、newLISP では可能です。
> (apply or '(nil nil 1))
> (apply and '(1 2 3))


syntax: (args)
syntax: (args int-idx-1 [int-idx-2 ... ])

現在評価中の define のラムダ式や define-macro のラムダ・マクロ式に渡された引数の内、束縛されていない引数全てをリストとして扱えます。 つまり、現関数または現マクロで、ローカル変数に束縛された後に残った引数のみが利用できるわけです。 関数 args は、パラメータ数が可変の関数やマクロの定義に役立ちます。
Accesses a list of all unbound arguments passed to the currently evaluating define, define-macro lambda, or lambda-macro expression. Only the arguments of the current function or macro that remain after local variable binding has occurred are available. The args function is useful for defining functions or macros with a variable number of parameters.

args は、変数捕捉の危険を避ける安全なマクロを定義するのにも使えます。 define-macro を見てください。
args can be used to define hygienic macros that avoid the danger of variable capture. See define-macro.

(define-macro (print-line)
    (dolist (x (args))
        (print x "\n")))
(print-line "hello" "World")

この例は各引数の後に改行を出力します。 このマクロは組込関数 println の効果を真似ています。
This example prints a line-feed after each argument. The macro mimics the effect of the built-in function println.

第二構文では、args は一つ以上のインデックス(int-idx-n)を取ることができます。
In the second syntax, args can take one or more indices (int-idx-n).

(define-macro (foo)
    (print (args 2) (args 1) (args 0)))

(foo x y z) 

(define (bar)
	(args 0 2 -1))

(bar '(1 2 (3 4)))   4

関数 foo は引数の順序を逆にして出力します。 関数 bar では、入れ子リストにアクセスするために複数のインデックスを使った args を示しています。
The function foo prints out the arguments in reverse order. The bar function shows args being used with multiple indices to access nested lists.

(args) には、現関数や現マクロの局所変数として束縛されていない引数のみが入ることを忘れないでください:
Remember that (args) only contains the arguments not already bound to local variables of the current function or macro:

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

最初の例では、引数が二つの局所変数 ab に束縛されるので、空リストが返ります。 二番目の例は、(最初の例と同様)最初の二つの引数が束縛され、三つの引数が残り、args で返される様子を示します。
In the first example, an empty list is returned because the arguments are bound to the two local symbols, a and b. The second example demonstrates that, after the first two arguments are bound (as in the first example), three arguments remain and are then returned by args.

(args) は組込やユーザ定義関数の呼び出しに引数として渡すことができますが、マクロの呼び出しには引数として渡すべきではありません、 その場合、(args) は評価されず、結果として、新たなマクロ環境で誤った内容を持つことになります。
(args) can be used as an argument to a built-in or user-defined function call, but it should not be used as an argument to another macro, in which case (args) would not be evaluated and would therefore have the wrong contents in the new macro environment.


syntax: (array int-n1 [int-n2 ... ] [list-init])

int-n1 個の要素のアレイを作成し、オプションで list-init の内容に初期化できます。 16次元までの多次元アレイを指定できます。(訳注:初期化できるのが 16 次元まで)
Creates an array with int-n1 elements, optionally initializing it with the contents of list-init. Up to sixteen dimensions may be specified for multidimensional arrays.

newLISP の内部では、一次元アレイの要素群を使って、多次元アレイを作ります。 大規模リストにおけるランダム要素指定があまりに遅くなる時はいつでも、newLISP のアレイを使うべきです。 全てのリスト関数がアレイに使えるわけではありません。 詳細は、リスト の章を見てください。
Internally, newLISP builds multidimensional arrays by using arrays as the elements of an array. newLISP arrays should be used whenever random indexing into a large list becomes too slow. Not all list functions may be used on arrays. For a more detailed discussion, see the chapter on arrays.

(array 5)                   (nil nil nil nil nil)

(array 5 (sequence 1  5))   (1 2 3 4 5)

(array 10 '(1 2))           (1 2 1 2 1 2 1 2 1 2)

いかなる型のオブジェクトでも、アレイを初期化できます。 もし、初期化用リストの要素がアレイの要素より少なければ、アレイの全要素が初期化されるまで、リストが繰り返し使われます。
Arrays can be initialized with objects of any type. If fewer initializers than elements are provided, the list is repeated until all elements of the array are initialized.

(set 'myarray (array 3 4 (sequence 1 12)))
 ((1 2 3 4) (5 6 7 8) (9 10 11 12))

Arrays are modified and accessed using most of the same functions used for modifying lists:

(setf (myarray 2 3) 99)  99)
myarray  ((1 2 3 4) (5 6 7 8) (9 10 11 99))

(setf (myarray 1 1) "hello")   "hello"

myarray  ((1 2 3 4) (5 "hello" 7 8) (9 10 11 99))

(setf (myarray 1) '(a b c d))  (a b c d)
myarray  ((1 2 3 4) (a b c d) (9 10 11 99))

(nth 1 myarray)      (a b c d)  ; access a whole row
;; use implicit indexing and slicing on arrays
(myarray 1)      (a b c d)
(myarray 0 -1)   4

(2 myarray)      ((9 10 11 99)) 

(-3 2 myarray)   ((1 2 3 4) (a b c d)) 

行全体を置き換える際は、アレイを使ってするよう注意すべきです。(訳注;上記例ではリストを使っているので、置き換え後の myarray が (アレイ リスト アレイ) になっている)
Care must be taken to use an array when replacing a whole row.

アレイからリストへの変換には、array-list が使えます:
array-list can be used to convert arrays back into lists:

(array-list myarray)   ((1 2 3 4) (a b c d) (1 2 3 99))

リストをアレイに戻すには、リストに flat を適用します:
To convert a list back into an array, apply flat to the list:

(set 'aList '((1 2) (3 4)))              ((1 2) (3 4))

(set 'aArray (array 2 2 (flat aList)))   ((1 2) (3 4))

式がアレイかどうかをチェックするには、関数 array? が使えます:
The array? function can be used to check if an expression is an array:

(array? myarray)                true
(array? (array-list myarray))   nil

関数 sourcesave を使ってアレイを直列化シリアライズすると、アレイを生成するために必要な array 宣言文が生成されたコードに含まれます。 この方法により、save を使って保存する時や source を使ってソース文字列を生成する時、アレイを含む変数が正しく直列化シリアライズされます。
When serializing arrays using the function source or save, the generated code includes the array statement necessary to create them. This way, variables containing arrays are correctly serialized when saving with save or creating source strings using source.

(set 'myarray (array 3 4 (sequence 1 12)))

(save "array.lsp" 'myarray)

;; contents of file arraylsp ;;

(set 'myarray (array 3 4 (flat '(
  (1 2 3 4) 
  (5 6 7 8) 
  (9 10 11 12)))))


syntax: (array-list array)

array から変換されたリストを返し、オリジナルのアレイは変わずに、そのまま残ります:
Returns a list conversion from array, leaving the original array unchanged:

(set 'myarray (array 3 4 (sequence 1 12)))
 ((1 2 3 4) (5 6 7 8) (9 10 11 12))

(set 'mylist (array-list myarray))
 ((1 2 3 4) (5 6 7 8) (9 10 11 12))

(list (array? myarray) (list? mylist))
 (true true)


syntax: (array? exp)

exp がアレイかどうかをチェックします:
Checks if exp is an array:

(set 'M (array 3 4 (sequence 1 4)))   
 ((1 2 3 4) (1 2 3 4) (1 2 3 4)))

(array? M)                true

(array? (array-list M))   nil


syntax: (asin num-radians)

num-radians の数値の逆正弦関数を計算し、その結果を返します。
Calculates the arcsine function from the number in num-radians and returns the result.

(asin 1)   1.570796327
(sin (asin 1))  1


syntax: (asinh num-radians)

num-radians の逆双曲線正弦関数を計算します。 ここで、num-radians は双曲線正弦関数値です。
Calculates the inverse hyperbolic sine of num-radians, the value whose hyperbolic sine is num-radians.

(asinh 2)          1.443635475
(sinh (asinh 2))   2


syntax: (assoc exp-key list-alist)
syntax: (assoc list-exp-key list-alist)

第一構文では、exp-key の値が最初にキー値と一致する要素を含む member-list を、list-alist から検索するのに使われます。 見つかれば、その member-list が返り、見つからなければ、結果は nil になります。
In the first syntax the value of exp-key is used to search list-alist for a member-list whose first element matches the key value. If found, the member-list is returned; otherwise, the result will be nil.

(assoc 1 '((3 4) (1 2)))   (1 2)

(set 'data '((apples 123) (bananas 123 45) (pears 7)))

(assoc 'bananas data)   (bananas 123 45)
(assoc 'oranges data)   nil

assocsetf と一緒に用いて、連想を変更できます。
Together with setf assoc can be used to change an association.

(setf (assoc 'pears data) '(pears 8))

data   ((apples 123) (bananas 123 45) (pears 8))

In the second syntax more then one key expressions can be specified to search in nested, multilevel association lists:

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

(assoc '(id001 address) persons)  (address (country "USA") (city "New York"))
(assoc '(id001 address city) persons)  (city "New York")

list-aList 中のリストには、デフォルト・ファンクタ として解釈されるコンテキストにすることができます。 この方法では、大規模リストが参照で渡され、高速にアクセスでき、メモリ使用量も少なくて済みます:
The list in list-aList can be a context which will be interpreted as its default functor. This way very big lists can be passed by reference for speedier access and less memory usage:

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

(define (get-city db id)
    (last (assoc (list id 'address 'city) db ))

(get-city persons 'id001)  "New York"

連想リストの置換には、関数 assocsetf と共に使います。 関数 lookup を使えば、連想検索と要素取り出しを一度にできます。
For making replacements in association lists, use the setf together with the assoc function. The lookup function is used to perform association lookup and element extraction in one step.


syntax: (atan num-radians)

num-radians の逆正接を計算し、返します。
The arctangent of num-radians is calculated and returned.

(atan 1)         0.7853981634
(tan (atan 1))   1


syntax: (atan2 num-Y-radians num-X-radians)

関数atan2 は Y / X の逆正接をラジアンで計算します。 両引数の符号を戻り値の象限の決定に使います。 atan2デカルト座標極座標に変換するのに役立ます。
The atan2 function computes the principal value of the arctangent of Y / X in radians. It uses the signs of both arguments to determine the quadrant of the return value. atan2 is useful for converting Cartesian coordinates into polar coordinates.

(atan2 1 1)                        0.7853981634
(div (acos 0) (atan2 1 1))         2
(atan2 0 -1)                       3.141592654
(= (atan2 1 2) (atan (div 1 2)))   true


syntax: (atanh num-radians)

num-radians の逆双曲線正接を計算します。 ここで、num-radians は双曲線正接値です。 もし、num-radians の絶対値が 1 より大きいなら、atanhNaN を返します。 1 ならば、atanh は無限大を返します。
Calculates the inverse hyperbolic tangent of num-radians, the value whose hyperbolic tangent is num-radians. If the absolute value of num-radians is greater than 1, atanh returns NaN; if it is equal to 1, atanh returns infinity.

(atanh 0.5)  0.5493061443
(tanh (atanh 0.5))  0.5
(atanh 1.1)  NaN
(atanh 1)  inf


syntax: (atom? exp)

exp の値がアトムなら、true を返し、それ以外は nil を返します。 式の評価結果が nil、true、整数、浮動小数点数、文字列、シンボル、組込ならば、その式はアトムです。 リスト、ラムダ式、ラムダ・マクロ式、クォート式はアトムではありません。
Returns true if the value of exp is an atom, otherwise nil. An expression is an atom if it evaluates to nil, true, an integer, a float, a string, a symbol or a primitive. Lists, lambda or lambda-macro expressions, and quoted expressions are not atoms.

(atom? '(1 2 3))       nil
(and (atom? 123)
     (atom? "hello")
     (atom? 'foo))     true
(atom? ''foo)          nil


syntax: (base64-dec str)

strBASE64 文字列をデコードします。 str が有効な BASE64 文字列かどうかは、検査されないことに注意してください。 デコードされた文字列が返ります。
The BASE64 string in str is decoded. Note that str is not verified to be a valid BASE64 string. The decoded string is returned.

(base64-dec "SGVsbG8gV29ybGQ=")   "Hello World"

エンコードするには、関数 base64-enc を使ってください。
For encoding, use the base64-enc function.

newLISP の BASE64 処理は、Unix curl ユーティリティで見つかるルーチンに由来していて、RFC 4648 標準に準拠しています。
newLISP's BASE64 handling is derived from routines found in the Unix curl utility and conforms to the RFC 4648 standard.


syntax: (base64-enc str [bool-flag])

str の文字列が BASE64 フォーマットにエンコードされます。 このフォーマットは、3 * 8 = 24 の入力ビット列を 4 * 8 = 32 出力ビット列にエンコードします。 出力ビット列の各8ビットは入力文字列からの6ビットに相当します。 この6ビットは、文字 A–Z と a–z 数字 0–9、そして、キャラクタ +(プラス記号)と /(スラッシュ)からなる 64 語にエンコードされます。 =(等号)は、置き換えで使われなかった3,4バイト目を埋めるために使われます。 この関数は、バイナリ・データを出力可能なキャラクタに変換する助けとなります。
The string in str is encoded into BASE64 format. This format encodes groups of 3 * 8 = 24 input bits into 4 * 8 = 32 output bits, where each 8-bit output group represents 6 bits from the input string. The 6 bits are encoded into 64 possibilities from the letters A–Z and a–z; the numbers 0–9; and the characters + (plus sign) and / (slash). The = (equals sign) is used as a filler in unused 3- to 4-byte translations. This function is helpful for converting binary content into printable characters.

オプションの引数 bool-flag が無い時、空文字列 """====" にコード化されます。 bool-flagtrue に評価されると、空文字列 """" になります。 どちらの変換物も base64-dec でデコードすると、"" になります。
Without the optional bool-flag parameter the empty string "" is encoded into "====". If bool-flag evaluates to true, the empty string "" is translated into "". Both translations result in "" when using base64-dec.

The encoded string is returned.

BASE64 エンコードは、バイナリ・データをエンコードしてテキスト・ベースのメッセージに含める多くのインターネット・プロトコルで使われています(例えば、XML-RPC)。
BASE64 encoding is used with many Internet protocols to encode binary data for inclusion in text-based messages (e.g., XML-RPC).

(base64-enc "Hello World")   "SGVsbG8gV29ybGQ="

(base64-enc "")              "===="
(base64-enc "" true)         ""

base64-enc は、長いBASE64シーケンス中に改行(CR/LPペア)を挿入できないことに注意してください。 その代わりに、純粋な BASE64 エンコード文字列を返します。
Note that base64-enc does not insert carriage-return/line-feed pairs in longer BASE64 sequences but instead returns a pure BASE64-encoded string.

デコードするには、関数 base64-dec を使います。
For decoding, use the base64-dec function.

newLISP の BASE64 処理は、Unix curl ユーティリティで見つかるルーチンに由来していて、RFC 4648 標準に準拠しています。
newLISP's BASE64 handling is derived from routines found in the Unix curl utility and conforms to the RFC 4648 standard.


syntax: (bayes-query list-L context-D [bool-chain [bool-probs]])

(訳注:訳者は、この手の事情に疎いので、 ベイズの定理ベイズ推定ベイズ確率マルコフ連鎖等をご一読の上、原文をお読み頂くことを強くお薦めします。)
トークンリスト (list-L) と学習辞書 (context-D) を取り、一つのカテゴリ (A または Mc) 対カテゴリ (B) か他のすべてのカテゴリ (Mi) に対する結合確率のリストを返します。 list-L の全てのトークンは context-D に見出されるべきです。 デフォルトの R.A. Fisher 逆カイ二乗法 モードを使う時、存在しないトークンは全てのカテゴリでの等確率へと結果を歪曲するでしょう。
Takes a list of tokens (list-L) and a trained dictionary (context-D) and returns a list of the combined probabilities of the tokens in one category (A or Mc) versus a category (B) or against all other categories (Mi). All tokens in list-L should occur in context-D. When using the default R.A. Fisher inverse Chi²  mode, nonexistent tokens will skew results toward equal probability in all categories.

bool-chaintrue にして Chain Bayesian モードを使った時、存在しないトークンは結果に如何なる影響も持ちません。 オプションの最後のフラグ bool-probs は、頻度もしくは確率値がデータ・セットに使われるかどうかを示します。 普通、関数bayes-train がデータ・セットの頻度を生成するのに使われます。
Non-existing tokens will not have any influence on the result when using the true Chain Bayesian mode with bool-chain set to true. The optional last flag, bool-probs, indicates whether frequencies or probability values are used in the data set. The bayes-train function is typically used to generate a data set's frequencies.

トークンは文字列かシンボルです。 文字列が使われたなら、context-D 上で検索される前にアンダースコアが前に付けられます。 context-D の頻度生成に bayes-train を使えば、アンダースコアは学習過程で自動的に付加されます。
Tokens can be strings or symbols. If strings are used, they are prepended with an underscore before being looked up in context-D. If bayes-train was used to generate context-D's frequencies, the underscore was automatically prepended during the learning process.

bayes-querybool-probs に指定されたフラグ次第で、確率を合成する R. A. Fisher 逆カイ二乗法Chain Bayesian 法のどちらかを使います。 bool-probs にフラグが無いか nil の時、デフォルトで確率を合成する逆カイ二乗法が使われます。 bool-probstrue の時は、Chain Bayesian 法が使われます。
Depending on the flag specified in bool-probs, bayes-query employs either the R. A. Fisher inverse Chi² method of compounding probabilities or the Chain Bayesian method. By default, when no flag or nil is specified in bool-probs, the inverse Chi² method of compounding probabilities is used. When specifying true in bool-probs, the Chain Bayesian method is used.

逆カイ二乗法が使われるなら、異なる学習セットのカテゴリのトークンの全数は、同じか、同程度あるべきです。 カテゴリ中の頻度が不均衡なら、結果は歪曲されるでしょう。
If the inverse Chi² method is used, the total number of tokens in the different training set's categories should be equal or similar. Uneven frequencies in categories will skew the results.

AB の二つのカテゴリに対して、bayes-query は次の公式を使います:
For two categories A and B, bayes-query uses the following formula:

p(A|tkn) = p(tkn|A) * p(A) / ( p(tkn|A) * p(A) + p(tkn|B) * p(B) )

N カテゴリなら、次の公式に一般化します:
For N categories, the formula can be generalized to:

p(Mc|tkn) = p(tkn|Mc) * p(Mc) / sum-i-N( p(tkn|Mi) * p(Mi) )

確率(p(B) と一緒の p(Mi) または p(A))は、ベイズの事前確率を表します。 p(Mc|tkn)p(A|tkn) はカテゴリやモデルの ベイズの事後確率 です。 この単純 ベイズ公式は成り立ちますが、異なるカテゴリの依存関係を織り込めません。
The probabilities (p(Mi) or p(A), along with p(B)) represent the Bayesian prior probabilities. p(Mc|tkn) and p(A|tkn) are the posterior Bayesian probabilities of a category or model. This naive Bayes formula does nor take into account dependencies between different categories.

逆カイ二乗法か Chain Bayesian 法で、事前確率の扱いが異なります。 Chain Bayesian 法では、一トークン計算からの事後確率で次の計算の事前確率を得ます。 デフォルトの逆カイ二乗法では事前確率を連鎖として伝えませんが、確率は逆カイ二乗法を使って合成されます。
Priors are handled differently, depending on whether the inverse Chi² or the Chain Bayesian method is used. In Chain Bayesian mode, posteriors from one token calculation get the priors in the next calculation. In the default inverse Chi² method, priors are not passed on via chaining, but probabilities are compounded using the inverse Chi² method.

Chain Bayes モードでは、一カテゴリのゼロ頻度のトークンはカテゴリの確率を事実上 0(ゼロ)にします。 これはまた、結果として全ての事後や事前を 0 へセットし、完全に抑えられたカテゴリをもたらします。 全てのカテゴリに 0 確率の結果をもたらす質問クエリNaN 値を引き起こします。
In Chain Bayes mode, tokens with zero frequency in one category will effectively put the probability of that category to 0 (zero). This also causes all posterior priors to be set to 0 and the category to be completely suppressed in the result. Queries resulting in zero probabilities for all categories yield NaN values.

デフォルトの逆カイ二乗法は 0 頻度に敏感ではありませんし、まだ、そのトークンの低確率を持続します。 これは ベイズ統計 を使う自然言語処理において重要な特徴です。 五つの異なる言語の集大成 のカテゴリが学習されているけれど、一カテゴリのいくつかの単語が他に存在しない時のことを考えてください。 純粋な Chain Bayesian 法が使われる時、文章は、その正しいカテゴリに分類されません。 なぜなら、ちょうど一つのトークンのゼロ・カウントが、その所属するカテゴリへの分類を事実上、拒むからです。
The default inverse Chi² method is less sensitive about zero frequencies and still maintains a low probability for that token. This may be an important feature in natural language processing when using Bayesian statistics. Imagine that five different language corpus categories have been trained, but some words occurring in one category are not present in another. When the pure Chain Bayesian method is used, a sentence could never be classified into its correct category because the zero-count of just one word token could effectively exclude it from the category to which it belongs.

一方で、Chain Bayesian 法はデータの具体的な比率の正確な結果を提供します。 自然言語データで Chain Bayesian モードを使う時、最初に全てのゼロ頻度が学習された辞書から取り除かれます。
On the other hand, the Chain Bayesian method offers exact results for specific proportions in the data. When using Chain Bayesian mode for natural language data, all zero frequencies should be removed from the trained dictionary first.

bayes-query の戻り値は、各カテゴリの一つの確率値のリストです。 次に二つの事例を示します: 最初はデフォルトの逆カイ二乗モード、二つ目は Chain Bayesian 法によるデータセット処理。
The return value of bayes-query is a list of probability values, one for each category. Following are two examples: the first for the default inverse Chi² mode, the second for a data set processed with the Chain Bayesian method.

R.A. Fisher inverse Chi² method(R.A. Fisher 逆カイ二乗法)

次の例で、二つのデータ・セットはグーテンベル・グプロジェクト(訳注;日本でいう青空文庫に相当)の本です。 私たちは、作家が違えば、使われる単語の頻度が異なると推測し、文章が一方の作家が書いたものか、それとも他方の作家のものか、可能性の高い方を決定したいと思います。 似たような方法が、しばしば、スパムか合法的なメールかの識別に使われます。
In the following example, the two data sets are books from Project Gutenberg. We assume that different authors use certain words with different frequencies and want to determine if a sentence is more likely to occur in one or the other author's writing. A similar method is frequently used to differentiate between spam and legitimate email.

;; from Project Gutenberg:
;; The Adventures of Sherlock Holmes - Sir Arthur Conan Doyle

(bayes-train (parse (lower-case (read-file "Doyle.txt")) 
                    "[^a-z]+" 0) '() 'DoyleDowson)

;; A Comedy of Masks - Ernest Dowson and Arthur Moore

(bayes-train '() (parse (lower-case (read-file "Dowson.txt")) 
                    "[^a-z]+" 0) 'DoyleDowson)

(save "DoyleDowson.lsp" 'DoyleDowson)

二つの学習セットがロードされ、トークンに分解され、関数 bayes-train で処理されます。 最後に、関数bayes-query で使えるように、DoyleDowson 辞書をファイルにセーブします。
The two training sets are loaded, split into tokens, and processed by the bayes-train function. In the end, the DoyleDowson dictionary is saved to a file, which will be used later with the bayes-query function.

次のコードは、文章を DoyleDowson に分類するのに、bayes-query がどのように使われるかを示します。
The following code illustrates how bayes-query is used to classify a sentence as Doyle or Dowson:

(load "DoyleDowson.lsp")
(bayes-query (parse "he was putting the last touches to a picture") 
 (0.0359554723158327 0.964044527684167) 

(bayes-query (parse "immense faculties and extraordinary powers of observation") 
 (0.983569359827141 0.0164306401728594) 

質問クエリは、最初の文章が Dowson の文章で、二番目が Doyle の文章であることを正しく識別しています。
The queries correctly identify the first sentence as a Dowson sentence, and the second one as a Doyle sentence.

Chain Bayesian method

二番目の例は、ベイズ統計学の紹介文献にしばしば見られます。 前もって処理されたデータ・セットのデータ上で bayes-query を使う Chain Bayesian法 を示しています:
The second example is frequently found in introductory literature on Bayesian statistics. It shows the Chain Bayesian method of using bayes-query on the data of a previously processed data set:

(set 'Data:test-positive '(8 18))
(set 'Data:test-negative '(2 72))
(set 'Data:total '(10 90))

ある病気は、人口の10%で発生します。 この病気を検査するために開発されたテストは、健康な人の 20%に偽陽性反応と病気な人の 20%に偽陰性反応を生じます。 テストが陽性で病気に感染している確率はいくらでしょうか?
(訳注:上記例は、感染者10人のグループと非感染者90人のグループの二つがあり、感染者の内、8人が検査に陽性、2人が陰性。 そして、非感染者の内、18人が検査に陽性、72人が陰性。 という設定)
A disease occurs in 10 percent of the population. A blood test developed to detect this disease produces a false positive rate of 20 percent in the healthy population and a false negative rate of 20 percent in the sick. What is the probability of a person carrying the disease after testing positive?

(bayes-query '(test-positive) Data true)
 (0.3076923077 0.6923076923)

(bayes-query '(test-positive test-positive) Data true)
 (0.64 0.36)

(bayes-query '(test-positive test-positive test-positive) Data true)
 (0.8767123288 0.1232876712)

bayes-query を正しく動作させるためには、イベント間の統計上の独立を前提にベイズの公式を使用するよう、注意してください。
Note that the Bayesian formulas used assume statistical independence of events for the bayes-query to work correctly.

The example shows that a person must test positive several times before they can be confidently classified as sick.

同じ例の計算に R.A. Fisher Chi² 法を使えば、区別し難い結果となります。
Calculating the same example using the R.A. Fisher Chi² method will give less-distinguished results.

Specifying probabilities instead of counts

データは、しばしば既に確率値として利用できるようになっていて、それらを頻度に戻す追加の作業が要求されます。 最後の例では、データは初めからパーセンテージで定義されています。 追加のオプション bool-probs フラグは確率の直接入力を許可し、最大の効果を得るために Chain Bayesian モードで使うべきです:
Often, data is already available as probability values and would require additional work to reverse them into frequencies. In the last example, the data were originally defined as percentages. The additional optional bool-probs flag allows probabilities to be entered directly and should be used together with the Chain Bayesian mode for maximum performance:

(set 'Data:test-positive '(0.8 0.2))
(set 'Data:test-negative '(0.2 0.8))
(set 'Data:total '(0.1 0.9))

(bayes-query '(test-positive) Data true true)
 (0.3076923077 0.6923076923)

(bayes-query '(test-positive test-positive) Data true true)
 (0.64 0.36)

(bayes-query '(test-positive test-positive test-positive) Data true true)
 (0.8767123288 0.1232876712)

As expected, the results are the same for probabilities as they are for frequencies.


syntax: (bayes-train list-M1 [list-M2 ... ] sym-context-D)

トークンのジョイント・セットから、単語 (M1, M2–) のリストを一つ以上取ります。 newLISP上では、トークンはシンボルか、文字列になります(他のデータ・タイプは無視されます)。 トークンは sym-context-D の共通辞書上に置かれ、各カテゴリ Mi における各トークンの頻度がカウントされます。 コンテキストが、まだ存在しない時は、それを示す必要があります(訳注:つまり、sym-context-Dは必ず指定しなければならないということ)。
Takes one or more lists of tokens (M1, M2—) from a joint set of tokens. In newLISP, tokens can be symbols or strings (other data types are ignored). Tokens are placed in a common dictionary in sym-context-D, and the frequency is counted for each token in each category Mi. If the context does not yet exist, it must be quoted.

カテゴリM は分類可能なトークンの列のデータ・モデルを示します(bayes-query 参照)。 D の各トークンは各カテゴリでのそのトークンの頻度のリストを含むコンテキストで参照可能なシンボルです。 トークン文字列はシンボルに変換される前に、先頭に _(アンダースコア)が付加されます。 total という名前のシンボルが生成され、各カテゴリの(訳注:トークンの)全数の入ります。 シンボルtotal は、カテゴリMi で渡されるシンボルにはなりません。
The M categories represent data models for which sequences of tokens can be classified (see bayes-query). Each token in D is a content-addressable symbol containing a list of the frequencies for this token within each category. String tokens are prepended with an _ (underscore) before being converted into symbols. A symbol named total is created containing the total of each category. The total symbol cannot be part of the symbols passed as an Mi category.

(訳例:つまり、total というシンボルをトークンにすると、まずいことになります。
> (bayes-train '(A A B C C) '(A B B C C total C) 'L)
(5 8)
> L:A
(2 1)
> L:B
(1 2)
> L:C
(2 3)
> L:total
(5 8)
> (bayes-train '("A" "A" "B" "C" "C") '("A" "B" "B" "C" "C" "total" "C") 'L)
(5 7)
> L:_A
(2 1)
> L:_B
(1 2)
> L:_C
(2 3)
> L:_total
(0 1)

The function returns a list of token frequencies found in the different categories or models.

; count the symbols in two lists
(bayes-train '(A A B C C) '(A B B C C C) 'L)   (5 6)

L:A       (2 1)
L:B       (1 2)
L:C       (2 3)
L:total   (5 6)

; count words in three lists
(bayes-train '("one" "two" "two" "three")
             '("three" "one" "three") 
             '("one" "two" "three") 'S)       
 (4 3 3)

; inspect the symbols created
S:_one     (1 1 1)
S:_two     (2 0 1)
S:_three   (1 2 1)
S:total    (4 3 3)

一番目の例は二つのシンボル・リストによる学習を示しています。 二番目の例は文字列による学習で、どのように _ が付加されるかを示しています。
The first example shows training with two lists of symbols. The second example illustrates how an _ is prepended when training with strings.

bayes-train は、アンダースコアを付加することで文字列からシンボルを生成します。これは、ハッシュが作られる時の方法と同じで、bayes-train のシンボルが入ったコンテキストはハッシュのように使えます:
bayes-train creates symbols from strings prepending an underscore character. This is the same way hashes are created and contexts populates with symbols by bayes-train can be used like hashes:

; use a bayes-trained context namespace like a hash dictionary

(S "two")    (2 0 1)
(S "three")  (1 2 1)

; translate the namespace into an association list

(S)  (("one" (1 1 1)) ("three" (1 2 1)) ("two" (2 0 1)))

これらの例は、デモ用であることに注意してください。 実際、学習セットは特に自然言語モデルの学習のような時に、千から万単位の単語を持ちます。 しかし、シンボルの頻度が既に知られている割合で記述されている時は、小さいデータセットが使われます。 このような場合は、関数 bayes-train を使わずに、きっちりとしたモデル・データ・セットを記述した方が良いでしょう:
Note that these examples are just for demonstration purposes. In reality, training sets may contain thousands or millions of words, especially when training natural language models. But small data sets may be used when the frequency of symbols just describe already-known proportions. In this case, it may be better to describe the model data set explicitly, without the bayes-train function:

(set 'Data:tested-positive '(8 18))
(set 'Data:tested-negative '(2 72))
(set 'Data:total '(10 90))

最後のデータは関数 bayes-query を記述するために、ベイジアン・ネットワーク の紹介文や本で、よく使われる例から取っています。
The last data are from a popular example used to describe the bayes-query function in introductory papers and books about bayesian networks.

学習は実際にある学習したコンテキストとそれと同数のカテゴリ上で、bayes-train を使って異なるステージで行われます。 新シンボルが付加され、カウント値と全数が正しく更新されます。
Training can be done in different stages by using bayes-train on an existing trained context with the same number of categories. The new symbols will be added, then counts and totals will be correctly updated.

複数のバッチによる学習は、最初、トークン化が必要な大きなテキスト集や文献で必要になるかもしれません。 これらの集合体は複数のステージで bayes-train に与えることで、小さな部品としてのトークン化が可能です、集まりの無い空のリストを与えられると、カテゴリの学習は不自然になります:
Training in multiple batches may be necessary on big text corpora or documents that must be tokenized first. These corpora can be tokenized in small portions, then fed into bayes-train in multiple stages. Categories can also be singularly trained by specifying an empty list for the absent corpus:

(bayes-train shakespeare1 '() 'data)
(bayes-train shakespeare2 '() 'data)
(bayes-train '() hemingway1 'data)
(bayes-train '() hemingway2 'data)
(bayes-train shakepeare-rest hemingway-rest 'data)

bayes-train は、単語のカウントと全数を正しく更新します。
bayes-train will correctly update word counts and totals.

bayes-trainMAIN でない他のコンテキストで使うには、関数 context によって、MAIN 上に前もって学習用コンテキストを用意しておく必要があります。
Using bayes-train inside a context other than MAIN requires the training contexts to have been created previously within the MAIN context via the context function.

bayes-train は、関数bayes-query に役立つだけでなく、汎用的なカウント関数としても使えます。 例えば、頻度の結果はカテゴリ中のアイテムの比例分布の帰無仮説に対して、prob-chi2 を使った解析を可能にします。
bayes-train is not only useful with the bayes-query function, but also as a function for counting in general. For instance, the resulting frequencies could be analyzed using prob-chi2 against a null hypothesis of proportional distribution of items across categories.


syntax: (begin body)

関数begin は、式のブロックをグループ化して使うことができます。 body 中の式は順次評価され、body の最後の式の値を返します。
The begin function is used to group a block of expressions. The expressions in body are evaluated in sequence, and the value of the last expression in body is returned.

  (print "This is a block of 2 expressions\n")
  (print "================================"))

conddefinedoargsdolistdostringdotimeswhenwhile のような組込関数は本体に複数の式を持つことができますが、if 式では begin がよく使われます。
Some built-in functions like cond, define, doargs, dolist, dostring, dotimes, when and while already allow multiple expressions in their bodies, but begin is often used in an if expression.

関数 silentbegin のように動作しますが、戻り値のコンソール出力を抑えます。
The silent function works like begin, but suppresses console output on return.


syntax: (beta cum-a num-b)

ベータ 関数 beta は、ガンマの対数 の関数 gammaln から次のようにして、得られます:(訳注:ベータ関数
The Beta function, beta, is derived from the log Gamma gammaln function as follows:

beta = exp(gammaln(a) + gammaln(b) - gammaln(a + b))

(beta 1 2)   0.5


syntax: (betai num-x num-a num-b)

不完全ベータ 関数 betai は、num-x 上の xベータ 分布 betai の累積確率と等しくなります。 この累積2項分布は、確率 pN 回試行中 k 回または、それ以上の回数が起こるイベントの確率 pev として定義されます:(訳注:不完全ベータ関数
The Incomplete Beta function, betai, equals the cumulative probability of the Beta distribution, betai, at x in num-x. The cumulative binomial distribution is defined as the probability of an event, pev, with probability p to occur k or more times in N trials:

pev = Betai(p, k, N - k + 1)

(betai 0.5 3 8)   0.9453125

例では、0.5 の確率のイベントが 10 回 (8 = 10 - 3 + 1) 中 3 回以上起こる確率を計算しています。 不完全ベータ分散は数学や統計において、様々な関数を得るために使われます。 関数 binomial も見てください。
The example calculates the probability for an event with a probability of 0.5 to occur 3 or more times in 10 trials (8 = 10 - 3 + 1). The incomplete Beta distribution can be used to derive a variety of other functions in mathematics and statistics. See also the binomial function.

(訳例:Lutz氏作(by Lutz)
;; probability of F ratio for df1/df2
;; by Lutz
(define (Lutz-prob-f f df1 df2)
  (let (prob (mul 2 (betai (div df2 (add df2 (mul df1 f))) 
                           (mul 0.5 df2) 
                           (mul 0.5 df1)))) 
    (div (if (> prob 1) (sub 2 prob) prob) 2)

;; one-tailed probablity of Student's t
;; by Lutz
(define (Lutz-prob-t t df)
    (let (bta (betai (div (add 1 (div (pow t) df))) (div df 2) 0.5))
            (> t 0) (sub 1 (mul 0.5 bta))
            (< t 0) (mul 0.5 bta) 
;; 組込prob-t とは
;; (prob-t t df) = (sub 1 (Lutz-prob-t t df))
;; という関係にあります


syntax: (bigint number)
syntax: (bigint string)

浮動小数点数または整数を大整数に変換します。 浮動小数点数の変化の際は、十進数と二進数間の丸め誤差が生じます。
A floating point or integer number gets converted to big integer format. When converting from floating point, rounding errors occur going back and forth between decimal and binary arithmetic.

A string argument gets parsed to a number and converted to a big integer.

(bigint 12345)           12345L

(bigint 1.234567890e30)  1234567889999999957361000000000L 

(set 'num 567890)
(bigint num)             567890L

(bigint "-54321")        -54321L
(bigint "123.45")        123L
(bigint "123hello")      123L

See also the manual chapter Big integer, unlimited precision arithmetic


syntax: (bigint? number)

Check if a number is formatted as a big integer.

(set 'x 12345)
(set 'y 12345L)
(set 'z 123456789012345678901234567890)
(set 'p 1.2345e20)
(set 'q (bigint p))

(bigint? x)   nil
(bigint? y)   true
(bigint? z)   true
(bigint? p)   nil
(bigint? q)   true

See also the manual chapter Big integer, unlimited precision arithmetic

bind !

syntax: (bind list-variable-associations [bool-eval])

list-variable-associations には、シンボルとその値からなる連想リスト(訳注:((シンボル1 連想値1) (シンボル2 連想値2) …) )が入ります。 bind は、全てのシンボルにその連想値をセットします。
list-variable-associations contains an association list of symbols and their values. bind sets all symbols to their associated values.

bool-evaltrue なら、連想値は評価されます:
The associated values are evaluated if the bool-eval flag is true:

(set 'lst '((a (+ 3 4)) (b "hello")))

(bind lst)          "hello"

a     (+ 3 4)
b     "hello"

(bind lst true)     "hello"

a     7

bind の戻り値は最後の連想値です。
The return value of bind is the value of the last association.

bind is often used to bind association lists returned by unify.

(bind (unify '(p X Y a) '(p Y X X)))     a

X     a
Y     a

This can be used for de-structuring:

(set 'structure '((one "two") 3 (four (x y z))))
(set 'pattern '((A B) C (D E)))
(bind (unify pattern structure))

A  one
B  "two"
C  3
D  four
E  (x y z)

unify が連想リストを返し、bind がその関連付け(訳注:連想)を束縛します。
unify returns an association list and bind binds the associations.


syntax: (binomial int-n int-k float-p)

二項分布関数は、イベントが float-p の確率を持ち、各試行で互いに独立である時、 int-nint-k 回起こる確率として定義されます:
The binomial distribution function is defined as the probability for an event to occur int-k times in int-n trials if that event has a probability of float-p and all trials are independent of one another:

binomial = pow(p, k) * pow(1.0 - p, n - k) * n! / (k! * (n - k)!)

ここで、x!x の階乗、pow(x, y)xy 乗です。
where x! is the factorial of x and pow(x, y) is x raised to the power of y.

(binomial 10 3 0.5)   0.1171875

この例では、0.5 の確率のイベントが 10 回中 3 回起こる確率を計算しています。 累積分布については、関数 betai を見てください。
The example calculates the probability for an event with a probability of 0.5 to occur 3 times in 10 trials. For a cumulated distribution, see the betai function.


syntax: (bits int [bool])

int の数値を 1 と 0 の文字列に変換します。 boolnil 以外なら、(訳注:真偽の)リストを返します。
Transforms a number in int to a string of 1's and 0's or a list, if bool evaluates to anything not nil.

文字列で再定義されたビットは、高位から下位への順です。 リスト表現では、1 と 0 が truenil になり、下位から上位への順になります。 これにより、結果の直接的要素指定や結果によるプログラム制御切替が可能になります。
In string representation bits are in high to low order. In list presentation 1's and 0's are represented as true and nil and in order from the lowest to the highest bit. This allows direct indexing and program control switching on the result.

(bits 1234)       "10011010010"

(int (bits 1234) 0 2)  1234

(bits 1234 true)      (nil true nil nil true nil true true nil nil true)

((bits 1234 true) 0)  nil ; indexing of the result

基底 2 で使う intbits の逆関数です。
int with a base of 2 is the inverse function to bits.

syntax: (callback int-index sym-function)
syntax: (callback sym-function str-return-type [str_param_type ...])
syntax: (callback sym-function)

第一単純 callback 構文では、8つまでのパラメータを持てる 16 個 (0 ~ 15) の callback 関数を導入ライブラリとして登録することができます。 関数 callback はユーザ定義関数 sym-function を実行させるための開始アドレスを返します。 次の例で、OpenGL グラフィック・ライブラリ導入時のコールバック関数の使い方を示します:
In the first simple callback syntax up to sixteen (0 to 15) callback functions for up to eight parameters can be registered with imported libraries. The callback function returns a procedure address that invokes a user-defined function in sym-function. The following example shows the usage of callback functions when importing the OpenGL graphics library:

もし、16 個より多いコールバック関数が必要なら、スロットを異なるコールバック関数に再定義する必要があります。
If more than sixteen callback functions are required, slots must be reassigned to a different callback function.

(define (draw)
    (glClear GL_COLOR_BUFFER_BIT )
    (glRotated rotx 0.0 1.0 0.0)
    (glRotated roty 1.0 0.0 0.0)
    (glutWireTeapot 0.5)

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

(define (mouse button state x y)
    (if (= state 0)
        (glutIdleFunc 0) ; stop rotation on button press
        (glutIdleFunc (callback 4 'rotation)))
    (println "button: " button " state:" state " x:" x " y:" y))

(glutDisplayFunc (callback 0 'draw))
(glutKeyboardFunc (callback 1 'keyboard))
(glutMouseFunc (callback 2 'mouse))

callback で返されるアドレスは Glut ライブラリに登録されます。 上記コードは、newLISP 配布ソースの examples/ ディレクトリにある opengl-demo.lsp ファイルの一部です。 また、 からもダウンロードできます。
The address returned by callback is registered with the Glut library. The above code is a snippet from the file opengl-demo.lsp, in the examples/ directory of the source distribution of newLISP and can also be downloaded from

第二拡張 callback 構文では、関数が呼び出される時の戻り値とパラメーター値の型を表わすために型指定子を使います。 第二構文で登録されるコールバック関数は数に制限がありません。 そして、戻り値は呼び出した関数に渡されます。 sym-function のシンボルには、C プログラムから呼び出し可能なコールバック関数として定義された newLISP の関数が入ります。
In the second extanded callback syntax type specifiers are used to describe the functions return and parameter value types when the function is called. An unlimited number of callback functions can be registered with the second syntax, and return values are passed back to the calling function. The symbol in sym-function contains a newLISP defined function used as a callback function callable from a C program.

第三構文では、callbackはそのシンボルに前もって返される C 呼び出し可能アドレスを返します。
In the third syntax callback returns a previously returned C-callable address for that symbol.

第一単純 callback 構文は整数値とポインタのみ扱いますが、拡張構文の callback では callback 関数の出力に渡される単精度と倍精度の浮動小数点数も扱えます。
While the first simple callback syntax only handles integers and pointer values, callback in the expanded syntax can also handle simple and double precision floating point numbers passed in an out of the callback function.

Both the simple and extended syntax can be mixed inside the same program.

次に例には C ライブラリ関数 qsortimport があり、その引数の一つに比較関数のアドレスを取ります。 この場合の比較関数は newLISP で書かれ、導入した qsort の中で呼び出されています:
The following example shows the import of the qsort C library function, which takes as one of it's arguments the address of a comparison function. The comparison function in this case is written in newLISP and called into by the imported qsort function:

; C void qsort(...) takes an integer array with number and width
; of array elements and a pointer to the comparison function
(import "libc.dylib" "qsort" "void" "void*" "int" "int" "void*")

(set 'rlist '(2 3 1 2 4 4 3 3 0 3))
; pack the list into an C readable 32-bit integer array
(set 'carray (pack (dup "ld " 10) rlist))

; the comparison callback function receives pointers to integers
(define (cmp a b) 
    (- (get-int a) (get-int b)))

; generate a C callable address for cmp
(set 'func (callback 'cmp "int" "void*" "void*"))

; sort the carray
(qsort carray 10 4 func)

; unpack the sorted array into a LISP list
(unpack (dup "ld" 10) carray)    (0 1 2 2 3 3 3 3 4 4) 

型指定子には、関数 import で使われるのと同じ文字列タグが使えます。 全てのポインタ型は callback 関数の入出力で、数値として渡されます。 パラメータから異なる精度の数値を取り出すには、関数 get-charget-intget-longget-string が使えます。 バイナリ・バッファや構造体からデータを取り出すには、packunpack を使ってください。
As type specifiers the same string tags can be used as in the import function. All pointer types are passed as numbers in and out of the callback function. The functions get-char, get-int, get-long and get-string can be used to extract numbers of different precision from parameters. Use pack and unpack to extract data from binary buffers and structures.

すでに newLISP には、高速の組込関数 sort があることをお忘れなく。
Note that newLISP as already a fast built-in sort function.


syntax: (case exp-switch (exp-1 body-1) [(exp-2 body-2) ... ])

exp-switch の評価結果が 評価されないexp-1, exp-2, – と比較されます。 もし、一致するものが見つかれば、続く body 中の式群が評価されます。 body の最後の式の結果が case 式全体の結果として返ります。
The result of evaluating exp-switch is compared to each of the unevaluated expressions exp-1, exp-2, —. If a match is found, the corresponding expressions in body are evaluated. The result of the last body expression is returned as the result for the entire case expression.

(define (translate n)
  (case n
    (1 "one")
    (2 "two")          
    (3 "three")
    (4 "four")
    (true "Can't translate this")))

(translate 3)    "three"
(translate 10)   "Can't translate this"

この例が示すように、一致するものがなかった時、関数 case 本体の最後式を評価するようにできます。
The example shows how, if no match is found, the last expression in the body of a case function can be evaluated.


syntax: (catch exp)
syntax: (catch exp symbol)

第一構文の catchexp の評価結果か、exp の評価中に実行される throw の引数の評価結果を返します:
In the first syntax, catch will return the result of the evaluation of exp or the evaluated argument of a throw executed during the evaluation of exp:

(catch (dotimes (x 1000) 
  (if (= x 500) (throw x))))   500

This form is useful for breaking out of iteration loops and for forcing an early return from a function or expression block:

(define (foo x)
  (if condition (throw 123))

;; if condition is true

(catch (foo p))   123

;; if condition is not true

(catch (foo p))   456

第二構文の catch は、式 exp を評価して結果を symbol に収め、true を返します。 評価中にエラーが発生すれば、catchnil を返してエラー・メッセージを symbol に収めます。 この形式は、エラーが関数の可能性のある出力として予想される場合や、エラーがプログラム実行の一環として扱われる時に有効です。
In the second syntax, catch evaluates the expression exp, stores the result in symbol, and returns true. If an error occurs during evaluation, catch returns nil and stores the error message in symbol. This form can be useful when errors are expected as a normal potential outcome of a function and are dealt with during program execution.

(catch (func 3 4) 'result)   nil
 "ERR: invalid function in function catch : (func 3 4)"

(constant 'func +)           + <4068A6>
(catch (func 3 4) 'result)   true
result                       7

exp の評価中に throw が実行されると、catchtrue を返し、throw の引数が symbol に収められます:
When a throw is executed during the evaluation of exp, catch will return true, and the throw argument will be stored in symbol:

(catch (dotimes (x 100) 
  (if (= x 50) (throw "fin"))) 'result)   true

result   "fin"

関数からの早期脱出や繰り返しループの中断に使えるように、第二構文の catch はエラー捕捉にも使うことができます。 ユーザ定義エラーを起こすためには、関数 throw-error を使います。
As well as being used for early returns from functions and for breaking out of iteration loops (as in the first syntax), the second syntax of catch can also be used to catch errors. The throw-error function may be used to throw user-defined errors.


syntax: (ceil number)

浮動小数点数 number より大きい最初の整数を返します。
Returns the next highest integer above number as a floating point.

(ceil -1.5)   -1
(ceil 3.4)    4

関数 floor も見てください。
See also the floor function.


syntax: (change-dir str-path)

str-path で与えられるディレクトリにカレント・ディレクトリを変更します。 成功すれば true を、そうでなければ nil を返します。
Changes the current directory to be the one given in str-path. If successful, true is returned; otherwise nil is returned.

(change-dir "/etc")

/etc をカレント・ディレクトリにします。
Makes /etc the current directory.

char utf8

syntax: (char str [int-index [true]])
syntax: (char int)

引数が文字列なら、引数の文字列 str から int-index 位置の文字を取り出し、その文字のアスキー・コードを返します。UTF-8 版 newLISP では Unicode 値を返します。
Given a string argument, extracts the character at int-index from str, returning either the ASCII value of that character or the Unicode value on UTF-8 enabled versions of newLISP.

int-index を省略した場合は 0 (zero) として扱われます。 int-index に続けて論理値 true を指定すると、str は多バイトの UTF-8 文字列ではなく、8ビットバイト列として扱われます。
If int-index is omitted, 0 (zero) is assumed. If int-idx is followed by a boolean true value, than the index treats str as an 8-bit byte array instead of an array of multi-byte UTF-8 characters.

空文字列では nil を返しますが、(char 0)(char nil) は、どちらも "\000" を返します。
The empty string returns nil. Both (char 0) and (char nil) will return "\000".

文字列、リスト、アレイの要素指定 を見てください。
See Indexing elements of strings and lists.

引数が整数なら、 charint 値のアスキー文字からなる文字列を返します。
Given an integer argument, char returns a string containing the ASCII character with value int.

UTF-8 版の newLISP では、int の値にUnicode を取り、UTF-8 文字が返ります。
On UTF-8–enabled versions of newLISP, the value in int is taken as Unicode and a UTF-8 character is returned.

(char "ABC")          65  ; ASCII code for "A"
(char "ABC" 1)        66  ; ASCII code for "B"
(char "ABC" -1)       67  ; ASCII code for "C"
(char "B")            66  ; ASCII code for "B"
(char "Ω")            937 ; UTF-8 code for "Ω"
(char "Ω" 1 true)     169 ; byte value at offset 1

(char 65)   "A"
(char 66)   "B"

(char (char 65))   65      ; two inverse applications

(map char (sequence 1 255))  ; returns current character set

; The Zen of UTF-8
(char (& (char "生") (char "死")))  愛 ; by @kosh_bot

chop utf8

syntax: (chop str [int-chars])
syntax: (chop list [int-elements])

第一引数が文字列に評価されたなら、chop は最後から int-char 個の文字を削除した str のコピーを返します。 引数int-char が無い時は、最後の一文字が削除されます。 chopstr を変えません。
If the first argument evaluates to a string, chop returns a copy of str with the last int-char characters omitted. If the int-char argument is absent, one character is omitted. chop does not alter str.

第一引数がリストなら、(文字列と同じように)int-elements 個が削除された list のコピーを返します。
(訳注:この場合、Common Lisp の butlast と同じ。Common Lisp の butlast は文字列に使えません。)
If the first argument evaluates to a list, a copy of list is returned with int-elements omitted (same as for strings).

(set 'str "newLISP")   "newLISP"
(chop str)     "newLIS"
(chop str 2)   "newLI"
str   "newLISP"

(set 'lst '(a b (c d) e))

(chop lst)     (a b (c d))
(chop lst 2)   (a b)
lst   (a b (c d) e)


syntax: (clean exp-predicate list)

述語 exp-predicatelist の各々の要素に適用されます。 返されるリストでは、述語が true となる全ての要素が除去されています。
(訳注:CommonLisp の remove-if と同じ。ただし、newLISP の clean は文字列に使えません。 文字列に対しては、replace で代用します。)
The predicate exp-predicate is applied to each element of list. In the returned list, all elements for which exp-predicate is true are eliminated.

clean は、述語を否定形にした filter のように動作します。
clean works like filter with a negated predicate.

(clean symbol? '(1 2 d 4 f g 5 h))    (1 2 4 5)

(filter symbol? '(1 2 d 4 f g 5 h))   (d f g h)

(define (big? x) (> x 5))         (lambda (x) (> x 5))

(clean big? '(1 10 3 6 4 5 11))   (1 3 4 5)

(clean <= '(3 4 -6 0 2 -3 0))   (3 4 2)

(clean (curry match '(a *)) '((a 10) (b 5) (a 3) (c 8) (a 9)))
  ((b 5) (c 8))

The predicate may be a built-in predicate or a user-defined function or lambda expression.

他のリストの数値を使ってリストから数値を除去したい時は、(list オプションで)differenceintersect を使ってください。
(訳注:differenceintersectlist オプションで、第三引数に true を指定するということ)
For cleaning numbers from one list using numbers from another, use difference or intersect (with the list mode option).

関連する関数として、残る要素の位置を返す index や述語で true になる要素を返す filter も見てください。
See also the related function index, which returns the indices of the remaining elements, and filter, which returns all elements for which a predicate returns true.


syntax: (close int-file)

int-file のファイル・ハンドルで指定されたファイルを閉じます。 ハンドルは、先行する open 操作から得られます。 成功すれば closetrue を返し、そうでなければ nil を返します。
Closes the file specified by the file handle in int-file. The handle would have been obtained from a previous open operation. If successful, close returns true; otherwise nil is returned.

(close (device))   true
(close 7)          true
(close aHandle)    true

device に対して close を使うと、自動的にdevice を 0(ゼロ、スクリーン・デバイス)にリセットしますので注意してください。
Note that using close on device automatically resets it to 0 (zero, the screen device).


syntax: (collect exp [int-max-count])

exp の式を評価して exp の評価が nil を返すまで、結果をリストに集めます。
Evaluates the expression in exp and collects the results in a list until evaluation of exp returns nil.

オプションとして、要素の最大数を int-max-count に指定できます。
Optionally a maximum count of elements can be specified in int-max-count.

; collect results until nil is returned
(set 'x 0)
(collect (if (<= (inc x) 10) x))  (1 2 3 4 5 6 7 8 9 10)

; collect results until nil is returned or 6 results are collected
(set 'x 0)
(collect (if (<= (inc x) 10) x) 6)  (1 2 3 4 5 6)


syntax: (command-event sym-event-handler | func-event-handler) syntax: (command-event nil)

newLISP コマンド・ラインで評価を得る前に事前処理(プリ・プロセス)するためのユーザ定義関数を指定します。 これは、インタラクティブ newLISP シェルのカスタマイズやサーバー・モードで動作している時の HTTP 要求リクエストの変更に使えます。
Specifies a user defined function for pre-processing the newLISP command-line before it gets evaluated. This can be used to write customized interactive newLISP shells and to transform HTTP requests when running in server mode.

command-event は、ユーザ定義関数のシンボルかラムダ関数のどちらかを取ります。 イベント・ハンドラ関数が文字列を返さなければ、コマンド・ラインは未翻訳のまま newLISP に渡されます。
command-event takes either a symbol of a user-defined function or a lambda function. The event-handler function must return a string or the command-line will be passed untranslated to newLISP.

強制的にプロンプトになってコマンド処理ができなくなると、関数は空文字列 "" を返します。 command-event をリセットするには、第二構文を使ってください。
To only force a prompt and disable command processing, the function should return the empty string "". To reset command-event, use the second syntax.

次の例では、コマンドが文字で始まる時、newLISP シェルは通常の Unix シェルのように動作します。 しかし、開き括弧やスペースで始まると newLISP の評価が始まります。
The following example makes the newLISP shell work like a normal Unix shell when the command starts with a letter. But starting the line with an open parenthesis or a space initiates a newLISP evaluation.

(command-event (fn (s) 
	(if (starts-with s "[a-zA-Z]" 0) (append "!" s) s)))

関連する prompt-event も見てください。 newLISP プロンプトをよりカスタマイズしたインタラクティブ・モードにできます。
See also the related prompt-event which can be used for further customizing interactive mode by modifying the newLISP prompt.

次のプログラムは、スタンド・アロンで使うことも、newLISP のスタート・アップ・ファイル init.lsp 内に入れることもできます:
The following program can be used either stand-alone or included in newLISP's init.lsp startup file:


; set the prompt to the current directory name
(prompt-event (fn (ctx) (append (real-path) "> ")))

; pre-process the command-line
(command-event (fn (s) 
        (starts-with s "cd") 
        (string " " (true? (change-dir (last (parse s " ")))))

        (starts-with s "[a-zA-Z]" 0)
        (append "!" s)

        true s)))

コマンド・ライン翻訳関数の定義では、Unixコマンド cd が特別に扱われ、newLISP プロセスにとってもディレクトリが変更されます。 この方法なら、! でコマンド・シェルに出てから戻って来ても、newLISP はディレクトリの変更を保持します。
(訳注:単純に、コマンド・シェルに出てからディレクトリを変更しても、newLISP には反映されません。上記スクリプトのように、change-dir の実行が必要です。)
In the definition of the command-line translation function the Unix command cd gets a special treatment, to make sure that the directory is changed for newLISP process too. This way when shelling out with ! and coming back, newLISP will maintain the changed directory.

(訳注:上記例では)newLISP のコマンド入力には、最初にスペースか開き括弧が必要です。 Unix コマンドは、行の最初から入力する必要があります。
Command lines for newLISP must start either with a space or an opening parenthesis. Unix commands must start at the beginning of the line.

newLISP がオプションの -c-http を使ってサーバー・モードで走っている時は、次のような HTTP 要求リクエストを受け取ります:
When newLISP is running in server mode either using the -c or -http option, it receives HTTP requests similar to the following:

GET /index.html

Or if a query is involved:

GET /index.cgi?userid=joe&password=secret

command-event で指定された関数は、要求リクエストラインをフィルタまたは変形します。すなわち、全ての質問クエリにおいて、.exe で終わるファイルを使っている CGI の実行を試そうとする質問クエリを検索し、そういう要求リクエストならエラー・ページの要求リクエストに変更します:
A function specified by command-event could filter and transform these request lines, e.g.: discovering all queries trying to perform CGI using a file ending in .exe.  Such a request would be translated into a request for an error page:

;; httpd-conf.lsp
;; filter and translate HTTP requests for newLISP
;; -c or -http server modes
;; reject query commands using CGI with .exe files

(command-event (fn (s)
    (let (request s)
        (when (find "?" s) ; is this a query
            (set 'request (first (parse s "?")))
            ; discover illegal extension in queries
            (when (ends-with request ".exe")
                (set 'request "GET /errorpage.html")) )

newlisp httpd-conf.lsp -c -d80 -w ./httpdoc でサーバー・モードを開始した時に、newLISPの方で、入力要求リクエスト質問クエリをフィルタするための command-event の定義をロードしておきます:
When starting the server mode with newlisp httpd-conf.lsp -c -d80 -w ./httpdoc newLISP will load the definition for command-event for filtering incoming requests, and the query:

GET /cmd.exe?dir

Would be translated into:

GET /errorpage.html

MS Windows ベースで設定の悪いウェブ・サーバーの制御を得るために、スパマーが過去において煩雑に使っていた技術を、この例は示しています。
The example shows a technique frequently used in the past by spammers on MS Windows based, bad configured web servers to gain control over servers.

httpd-conf.lsp ファイルは、インタラクティブ newLISP セッションへのファイルロードや手動の HTTP 要求リクエスト入力を簡単にデバックできます。 newLISP はコマンド・ラインを翻訳し、それを組込ウェブ・サーバーに割り当てます。 サーバー出力はシェル・ウィンドウに現れます。
httpd-conf.lsp files can easily be debugged loading the file into an interactive newLISP session and entering the HTTP requests manually. newLISP will translate the command line and dispatch it to the built-in web server. The server output will appear in the shell window.

注記:コマンド・ラインの長さは、HTTP 要求リクエスト・ヘッダの行の長さと同様に、newLISP では 512 文字に制限されます。
Note, that the command line length as well as the line length in HTTP headers is limited to 512 characters for newLISP.


syntax: (cond (exp-condition-1 body-1) [(exp-condition-2 body-2) ... ])

condif のように、条件によって本体内の式を評価します。 nil や空リスト () 以外に評価される exp-condition-i が見つかるまで、exp-conditionは順番に評価されます。 それから、body-i の評価結果を cond-expression 節全体の結果として返します。 全ての条件が nil か空リストなら、cond は最後の cond-expression の値を返します。
Like if, cond conditionally evaluates the expressions within its body. The exp-conditions are evaluated in turn, until some exp-condition-i is found that evaluates to anything other than nil or an empty list (). The result of evaluating body-i is then returned as the result of the entire cond-expression. If all conditions evaluate to nil or an empty list, cond returns the value of the last cond-expression.

(define (classify x)
    ((< x 0) "negative")
    ((< x 10) "small")
    ((< x 20) "medium")
    ((>= x 30) "big")))

(classify 15)    "medium"
(classify 22)    "nil"
(classify 100)   "big"
(classify -10)   "negative"

body-n が見つからない時は、最後の cond-expression の評価値が返されます。 もし true に評価される条件がなければ、最後の条件式の値が返ります(つまり、nil か空リスト)。
When a body-n is missing, the value of the last cond-expression evaluated is returned. If no condition evaluates to true, the value of the last conditional expression is returned (i.e., nil or an empty list).

(cond ((+ 3 4)))   7

複数の引数を持つ関数 if は、条件・本体ペアを囲む余分な括弧を必要とせずに cond のように動作します。
When used with multiple arguments, the function if behaves like cond, except it does not need extra parentheses to enclose the condition-body pair of expressions.


syntax: (cons exp-1 exp-2)

exp-2 がリストとして評価されるなら、exp-1 の評価結果がリストの第一要素として挿入されて返されます。 exp-2 がリスト以外に評価された時は、exp-1 の評価結果と exp-2 がリストになって返されます。 newLISP には、ドット対 がないことに注意してください。 二つのアトムを cons することは、ドット対でないリストを作成します。
If exp-2 evaluates to a list, then a list is returned with the result of evaluating exp-1 inserted as the first element. If exp-2 evaluates to anything other than a list, the results of evaluating exp-1 and exp-2 are returned in a list. Note that there is no dotted pair in newLISP: consing two atoms constructs a list, not a dotted pair.

(cons 'a 'b)             (a b)
(cons 'a '(b c))         (a b c)
(cons (+ 3 4) (* 5 5))   (7 25)
(cons '(1 2) '(3 4))     ((1 2) 3 4)
(cons nil 1)             (nil 1)
(cons 1 nil)             (1 nil)
(cons 1)                 (1)
(cons)			 ()

newLISP の cons は、式 (cons 's nil) の結果として (s) を返す他の Lisp と違い、(s nil) を返します。 newLISP において nil は論理値で、空リストと同じではありません。 一つの newLISP セルは、一つの値のみ保持します。
Unlike other Lisps that return (s) as the result of the expression (cons 's nil), newLISP's cons returns (s nil). In newLISP, nil is a Boolean value and is not equivalent to an empty list, and a newLISP cell holds only one value.

cons は、firstrest の逆操作のように動作します(リストが一対なら、firstlast):
cons behaves like the inverse operation of first and rest (or first and last if the list is a pair):

(cons (first '(a b c)) (rest '(a b c)))   (a b c)

(cons (first '(x y)) (last '(x y)))       (x y)

constant !

syntax: (constant sym-1 exp-1 [sym-2 exp-2] ... )

機能的には set と同等です。 その上で constant は、シンボルをプロテクトし、以降の変更をできなくします。 関数 constant でセットされたシンボルは、再び constant を使うことでのみ、変更できます。 constant でプロテクトされたシンボルの内容を変更しようとすると、newLISP はエラー・メッセージを出します。 現在のコンテキストのシンボルだけに、constant を使うことができます。 これにより、ホーム・コンテキストでプロテクトされたシンボルの書き換えが防止されます。 最後の exp-n 初期値は常にオプションです。
Identical to set in functionality, constant further protects the symbols from subsequent modification. A symbol set with constant can only be modified using the constant function again. When an attempt is made to modify the contents of a symbol protected with constant, newLISP generates an error message. Only symbols from the current context can be used with constant. This prevents the overwriting of symbols that have been protected in their home context. The last exp-n initializer is always optional.

setdefinedefine-macro で初期化されたシンボルも、関数 constant を使ってプロテクトできます:
Symbols initialized with set, define, or define-macro can still be protected by using the constant function:

(constant 'aVar 123)   123
(set 'aVar 999) 
ERR: symbol is protected in function set: aVar

(define (double x) (+ x x))

(constant 'double)

;; equivalent to

(constant 'double (fn (x) (+ x x)))

一番目の例は、他の constant 宣言文によってのみ変更できる定数 aVar を定義しています。 二番目の例は、(constant 以外による)変更から double をプロテクトします。 newLISP の関数定義はラムダ関数の割り当てと等価ですから、この二ステップは最後の行の宣言文のように一つにまとめられます。 これは重量なテクニックで、一つのファイルが複数回ロードされる時のプロテクション・エラーを避けることができます。
The first example defines a constant, aVar, which can only be changed by using another constant statement. The second example protects double from being changed (except by constant). Because a function definition in newLISP is equivalent to an assignment of a lambda function, both steps can be collapsed into one, as shown in the last statement line. This could be an important technique for avoiding protection errors when a file is loaded multiple times.

割り当てる最後の値は、省略可能です。 constant は最後にセットされ、プロテクトされたシンボルの内容を返します。
The last value to be assigned can be omitted. constant returns the contents of the last symbol set and protected.

組込関数をシンボルに割り当てたり、組込関数名に他の違う関数を割り当て再定義したりすることも可能です。 関数名を変更しても、性能は変わりません。
Built-in functions can be assigned to symbols or to the names of other built-in functions, effectively redefining them as different functions. There is no performance loss when renaming functions.

(constant 'squareroot sqrt)   sqrt <406C2E>
(constant '+ add)             add <4068A6>

squarerootsqrt のように振舞います。 +(+記号)は add の混合型浮動小数点数モードを使えるように再定義されます。 結果として表示される 16 進数は組込関数のバイナリ・アドレスで、プラットフォームや OS で異なる値になります。
squareroot will behave like sqrt. The + (plus sign) is redefined to use the mixed type floating point mode of add. The hexadecimal number displayed in the result is the binary address of the built-in function and varies on different platforms and OSes.


syntax: (context [sym-context])
syntax: (context sym-context str | sym [exp-value])

第一構文の context は異なる名前空間のコンテキストに切り替えます。 これに続く newLISPソースの loadeval-stringsym のような関数は、新たに生成するシンボルを新たなコンテキストに置きます。
In the first syntax, context is used to switch to a different context namespace. Subsequent loads of newLISP source or functions like eval-string and sym will put newly created symbols and function definitions in the new context.

コンテキストの生成が必要な場合には、新コンテキストのシンボル名を指定すべきです。 context に渡される引数が無い時は、現コンテキストのシンボル名が返ります。
If the context still needs to be created, the symbol for the new context should be specified. When no argument is passed to context, then the symbol for the current context is returned.

Because contexts evaluate to themselves, a quote is not necessary to switch to a different context if that context already exists.

(context 'GRAPH)          ; create / switch context GRAPH

(define (foo-draw x y z)  ; function resides in GRAPH
(set 'var 12345)
(symbols)   (foo-draw var)  ; GRAPH has now two symbols

(context MAIN)               ; switch back to MAIN (quote not required)

(print GRAPH:var)  12345    ; contents of symbol in GRAPH

(GRAPH:foo-draw 10 20 30)    ; execute function in GRAPH
(set 'GRAPH:var 6789)        ; assign to a symbol in GRAPH

If a context symbol is referred to before the context exists, the context will be created implicitly.

(set 'person:age 0)       ; no need to create context first
(set 'person:address "")  ; useful for quickly defining data structures

コンテキストは(訳注:組込関数 new を使って)コピー可能です:
Contexts can be copied:

(new person 'JohnDoe)    JohnDoe

(set 'JohnDoe:age 99)

Contexts can be referred to by a variable:

(set 'human JohnDoe)

human:age   99

(set 'human:address "1 Main Street")

JohnDoe:address   "1 Main Street"

An evaluated context (no quote) can be given as an argument:

> (context 'FOO)
FOO> (context MAIN)
> (set 'old FOO)
> (context 'BAR)
BAR> (context MAIN:old)

If an identifier with the same symbol already exists, it is redefined to be a context.

現コンテキスト内でのシンボルは、組込関数や niltrue のような特殊シンボルのように、それらの名前だけで参照されます。 現コンテキスト外でのシンボルは、コンテキストのシンボル名と :(コロン)を先頭に付加することで、参照できます。 異なるコンテキスト内のシンボルの引用には、コンテキスト名に '(シングル・クォート)を付加します。
Symbols within the current context are referred to simply by their names, as are built-in functions and special symbols like nil and true. Symbols outside the current context are referenced by prefixing the symbol name with the context name and a : (colon). To quote a symbol in a different context, prefix the context name with a ' (single quote).

与えられたコンテキスト内で、組込関数や MAIN のコンテキスト・シンボルと同じ名前を生成するかもしれません。 コンテキストを先付けしたシンボルは、(訳注:そのコンテキスト内で使われる)MAIN のシンボルを上書きします:
Within a given context, symbols may be created with the same name as built-in functions or context symbols in MAIN. This overwrites the symbols in MAIN when they are prefixed with a context:

(context 'CTX)
(define (CTX:new var)
(context 'MAIN)

CTX:new は、MAIN の new を上書きします。 (訳注:コンテキスト CTX 内で、new は組込関数の new ではなく、上記で定義した関数 new になります。この時、コンテキスト CTX 内で組込関数 new を使うには MAIN:new とします。)
CTX:new will overwrite new in MAIN.

第二構文の context は名前空間でのシンボルを生成に使えます。 ハッシュや辞書の生成では、これを使用すべきでないことに注意してください。 ハッシュのような辞書として名前空間を使う簡単な方法については、手始めにハッシュ機能と辞書の章を見てください。
In the second syntax, context can be used to create symbols in a namespace. Note that this should not be used for creating hashes or dictionaries. For a shorter, more convenient method to use namespaces as hash-like dictionaries, see the chapter Hash functions and dictionaries.

;; create a symbol and store data in it
(context 'Ctx "abc" 123)    123
(context 'Ctx 'xyz 999)     999

;; retrieve contents from  symbol
(context 'Ctx "abc")        123
(context 'Ctx 'xyz)         999
Ctx:abc                     123
Ctx:xyz                     999

最初の三つの宣言文は、シンボルを生成して何らかのデータ型の値を格納します。 最初の宣言文は、Ctx と命名されるコンテキストも生成します。 名前としてシンボルを指定すると、その名前がシンボルから取られ、コンテキスト Ctx に同じ名前のシンボルが生成されます。
The first three statements create a symbol and store a value of any data type inside. The first statement also creates the context named Ctx. When a symbol is specified for the name, the name is taken from the symbol and creates a symbol with the same name in the context Ctx.

シンボルには、newLISPの変数名として使えるシンボルに許可されていないスペースや他の特殊文字を含めることができます。 context の第二構文は新しいシンボルのみ生成し、それに含まれる値を返します。新しい名前空間への切り替えはしません。
Symbols can contain spaces or any other special characters not typically allowed in newLISP symbols being used as variable names. This second syntax of context only creates the new symbol and returns the value contained in it. It does not switch to the new namespace.


syntax: (context? exp)
syntax: (context? exp str-sym)

第一構文の context? は、exp がコンテキストに評価される時 trueを、そうでない時 nil を返す述語です。
In the first syntax, context? is a predicate that returns true only if exp evaluates to a context; otherwise, it returns nil.

(context? MAIN)   true
(set 'x 123)
(context? x)      nil

(set 'FOO:q "hola")   "hola"
(set 'ctx FOO)
(context? ctx)        true  ; ctx contains context foo

第二構文では、コンテキスト中のシンボルの存在をチェックします。 シンボルは str-sym の文字列で指定します。
The second syntax checks for the existence of a symbol in a context. The symbol is specified by its name string in str-sym.

(context? FOO "q")   true
(context? FOO "p")   nil

名前空間の変更や生成、コンテキスト中のハッシュ・シンボルの生成には、context を使ってください。
Use context to change and create namespaces and to create hash symbols in contexts.


syntax: (copy exp)
syntax: (copy int-addr [bool-flag])

第一構文は評価した式をコピーを作ります。 組込関数には破壊的なものがあり、動作中に元のリストやアレイ、文字列の中身を変更します。 copy と一緒に使えば、その動作を非破壊にできます。
The first syntax makes a copy from evaluating expression in exp. Some built-in functions are destructive, changing the original contents of a list, array or string they are working on. With copy their behavior can be made non-destructive.

(set 'aList '(a b c d e f))

(replace 'c (copy aList))  (a b d e f)

aList  (a b c d e f)

(set 'str "newLISP")  "newLISP"

(rotate (copy str))  "PnewLIS"

str  "newLISP" 

関数 replacerotatecopy を使うことで、元データの変更が防がれます。 変更されたデータが返ります。
Using copy the functions replace and rotate are prevented from changing the data. A modified version of the data is returned.

bool-flagtrue にする第二構文では、メモリ・アドレスから newLISP 式をコピーします。次の二式は等価です:
The second syntax, marked by the true in bool-flag, copies a newLISP expression from a memory address.The following two expressions are equivalent:

(set 'x "hello world")
(copy x)   "hello world"
(copy (first (dump x)) true)  "hello world"

第二構文は newLISP 式を生成する C コードとのインターフェイスに役立ちます。
The second syntax can be useful when interfacing with C-code generating newLISP expressions.


syntax: (copy-file str-from-name str-to-name)

str-from-name で与えられたパス・ファイル名のファイルを str-to-name で与えられるパス・ファイル名のファイルにコピーします。 コピーが成功すれば true が返り、失敗すれば nil が返ります。
Copies a file from a path-filename given in str-from-name to a path-filename given in str-to-name. Returns true if the copy was successful or nil, if the copy was unsuccessful.

(copy-file "/home/me/newlisp/data.lsp" "/tmp/data.lsp")


syntax: (cos num-radians)

num-radians の余弦を計算し、結果を返します。
Calculates the cosine of num-radians and returns the result.

(cos 1)                      0.5403023059
(set 'pi (mul 2 (acos 0)))   3.141592654
(cos pi)                     -1


syntax: (corr list-vector-X list-vector-Y)

list-vector-Xlist-vector-Y の二変数間の測定値の直線相関について、ピアソン の累積相関係数を計算します。 双方のリストは同じ長さであることが必要です。
Calculates the Pearson product-moment correlation coefficient as a measure of the linear relationship between the two variables in list-vector-X and list-vector-Y. Both lists must be of same length.

corr は次の値からなるリストです:
corr returns a list containing the following values:

Correlation coefficient
Regression coefficient offset
Regression coefficient slope
t優位検定の(訳注:スチューデントの)t 統計値
t - statistic for significance testing
Degrees of freedom for t
p帰無仮説下での(訳注:スチューデントの)t の尾部両側の確率
Two tailed probability of t under the null hypothesis

(set 'study-time '(90 100 130 150 180 200 220 300 350 400))
(set 'test-errors '(25 28 20 20 15 12 13 10 8 6))

(corr study-time test-errors)  (-0.926 29.241 -0.064 -6.944 8 0.0001190)

帰無仮説下での尾部両側の p が約 0.0001 なので、study-timetest-errors-0.926 という負の相関係数は高い有意性があります。
The negative correlation of -0.926 between study time and test errors is highly significant with a two-tailed p of about 0.0001 under the null hypothesis.

b0 = 29.241b1 = -0.064 の回帰係数を方程式 Y = b0 + b1 * X に使えば、X (study time) の値から変数 Y (test errors) の値を推定できます。
The regression coefficients b0 = 29.241 and b1 = -0.064 can be used to estimate values of the Y variable (test errors) from values in X (study time) using the equation Y = b0 + b1 * X.


syntax: (cosh num-radians)

num-radians の双曲線余弦を計算します。 双曲線余弦は次の数式で定義されます: (exp (x) + exp (-x)) / 2num-radians が大きすぎるとオーバーフロー inf が発生します。
Calculates the hyperbolic cosine of num-radians. The hyperbolic cosine is defined mathematically as: (exp (x) + exp (-x)) / 2. An overflow to inf may occur if num-radians is too large.

(cosh 1)      1.543080635
(cosh 10)     11013.23292
(cosh 1000)   inf
(= (cosh 1) (div (add (exp 1) (exp -1)) 2))   true


syntax: (count list-1 list-2)

list-2 中の list-1 の要素を数え、その計数値のリストを返します。
Counts elements of list-1 in list-2 and returns a list of those counts.

(count '(1 2 3) '(3 2 1 4 2 3 1 1 2 2))   (3 4 2)
(count '(z a) '(z d z b a z y a))         (3 2)

(set 'lst (explode (read-file "myFile.txt")))
(set 'letter-counts (count (unique lst) lst))

二番目の例は、myFile.txt に出現する異なる文字を全て計数します。
The second example counts all occurrences of different letters in myFile.txt.

count の二番目のリストで計数する要素を指定する count の最初のリストは、単一であるべきです。 単一でない要素(訳注:ダブっている要素)があると、最初の存在が計数値を持ち、後の要素は 0(ゼロ)になります。
The first list in count, which specifies the items to be counted in the second list, should be unique. For items that are not unique, only the first instance will carry a count; all other instances will display 0 (zero).


syntax: (cpymem int-from-address int-to-address int-bytes)

int-from-address から int-bytes のメモリを int-to-address にコピーします。 この関数はメモリを直接読み書きしたり、newLISP内部(例えば、newLISP セルのタイプ・ビットや組込関数のバイナリ実行コード)をハックするために使えます。
Copies int-bytes of memory from int-from-address to int-to-address. This function can be used for direct memory writing/reading or for hacking newLISP internals (e.g., type bits in newLISP cells, or building functions with binary executable code on the fly).

この関数は newLISP 内部をよく熟知した上で使うよう注意してください。 cpymem を誤って使うと、システムがクラッシュしたり、不安定になったりします。
Note that this function should only be used when familiar with newLISP internals. cpymem can crash the system or make it unstable if used incorrectly.

(set 's "0123456789")

(cpymem "xxx" (+ (address s) 5) 3)

s   "01234xxx89")

The example copies a string directly into a string variable.

次の例は、一からバイナリ・コードの新しい関数を作成し、その部品を走らせ、二つの数を足し算します。 示してあるアセンブリ言語の小品は、二つの数を足し算して結果を返す X86 (Intel CPU) コードです:
he following example creates a new function from scratch, runs a piece of binary code, and adds up two numbers. This assembly language snippet shows the x86 (Intel CPU) code to add up two numbers and return the result:

 55       push ebp
 8B EC    mov  ebp, esp
 8B 45 08 mov  eax, [ebp+08]
 03 45 0C add  eax, [ebp+0c]
 5D       pop  ebp
 C3       ret

 ; for Win32/stdcall change last line
 C2 08 00 ret 

このバイナリ表現を newLISP で作成した新関数に貼り付けます:
The binary representation is attached to a new function created in newLISP:

; set up 32-bit version of machine code
; on Windows use 32-bit version of newLISP
(set 'foo-code (append
     (pack "bbbbbbbbbb" 0x55 0x8B 0xEC 0x8B 0x45 0x08 0x03 0x45 0x0C 0x5D)
     (if (= ostype "Windows") (pack "bbb" 0xC2 0x08 0x00) (pack "b" 0xC3))))

; put a function cell template into foo, protect symbol from deletion
(constant 'foo print)

; put the correct type, either 'stdcall' or 'cdecl'
(cpymem (pack "ld" (if (= ostype "Windows") 8456 4360)) (first (dump foo)) 4)

; put the address of foo-code into the new function cell
(cpymem (pack "ld" (address foo-code)) (+ (first (dump foo)) 12) 4)

; take the name address from the foo symbol, copy into function cell
(set 'sym-name (first (unpack "lu" (+ (address 'foo) 8))))
(cpymem (pack "ld" sym-name) (+ (first (dump foo)) 8) 4)

; test the new function
(println "3 * 4 -> " (foo 3 4))

この例は、全てのハードウェア・プラットフォームや OS で動作するものではありません。
The last example will not work on all hardware platforms and OSs.

newLISP セルからバイナリ・アドレスとその内容を取り出すのには、関数 dump を使ってください。
Use the dump function to retrieve binary addresses and the contents from newLISP cells.


syntax: (crc32 str-data)

str-data のバッファから、初期値が 0xffffffff で始まる 32 ビット CRC(巡回冗長検査)値を計算します。 crc32 計算には で公開されているアルゴリズムを使っています。
Calculates a running 32-bit CRC (Circular Redundancy Check) sum from the buffer in str-data, starting with a CRC of 0xffffffff for the first byte. crc32 uses an algorithm published by

(crc32 "abcdefghijklmnopqrstuvwxyz")   1277644989

安全でないデータ伝送において確実なベリファイを実施するために、crc32 がよく使われます。
crc32 is often used to verify data integrity in unsafe data transmissions.


syntax: (crit-chi2 num-probability int-df)

統計的帰無仮説の有意を検定するために、 帰無仮説下で与えられた危険率(訳注:有意水準ともいう)num-probability と自由度 int-df  により、最小限界のカイ2乗値 を計算します。(訳注:EXCEL の CHIINV(確率, 自由度)に相当。カイ二乗分布カイ二乗検定 も参考になります)
Calculates the critical minimum Chi²  for a given confidence probability num-probability under the null hypothesis and the degrees of freedom in int-df  for testing the significance of a statistical null hypothesis.

10.2.0 以前のバージョンでは、(訳注:引数として)確率 p のかわりに (1.0 - p) (訳注:信頼率)を取っていたことを記しておきます。
Note that versions prior to 10.2.0 took (1.0 - p) for the probability instead of p.

(crit-chi2 0.01 4)   13.27670443

逆関数 prob-chi2 も見てください。
See also the inverse function prob-chi2.


syntax: (crit-f num-probability int-df1 int-df2)

F 検定 を用いて統計的帰無仮説の有意を検定するために、帰無仮説下で与えられた危険率(訳注:有意水準ともいう)num-probability と自由度 int-df1int-df2 により、最小限界の 値を計算します。(訳注:EXCEL の FINV(確率, 自由度1, 自由度2)に相当。F分布も参考になります)
Calculates the critical minimum for a given confidence probability num-probability under the null hypothesis and the degrees of freedom given in int-df1 and int-df2 for testing the significance of a statistical null hypothesis using the F-test.

(crit-f 0.05 10 12)   2.753386727

逆関数の prob-f も見てください。
See also the inverse function prob-f.


syntax: (crit-t num-probability int-df)

統計的帰無仮説の有意を検定するために、帰無仮説下で与えられた危険率(訳注:有意水準ともいう)num-probability と自由度 int-df により、最小限界のスチューデントの t を計算します。(訳注:EXCEL の CHIINV( 2 * 確率, 自由度)に相当。t 分布t 検定も参考になります)
Calculates the critical minimum Student's t for a given confidence probability num-probability under the null hypothesis and the degrees of freedom in int-df  for testing the significance of a statistical null hypothesis.

(crit-t 0.05 14)   1.761310142

逆関数の prob-t も見てください。
See also the inverse function prob-t.


syntax: (crit-z num-probability)

統計的有意と信頼区間を検定するために、正規分布において与えられた累積確率 num-probability の最小となる Z 値を計算します。(訳注:EXCELのNORMSINV(確率)に相当。)
Calculates the critical normal distributed Z value of a given cumulated probability num-probability for testing of statistical significance and confidence intervals.

(crit-z 0.999)   3.090232372

逆関数 prob-z も見てください。
See also the inverse function prob-z.


syntax: (current-line)

read-line 操作の最後の内容を取り出します。 current-line の内容は、write-line を文字列パラメータ無しで使う場合にも暗黙的に使われます。
Retrieves the contents of the last read-line operation. current-line's contents are also implicitly used when write-line is called without a string parameter.

次に示すソースは、Unix コマンド・ラインのフィルタを作る時の典型的なコード・パターンです:
The following source shows the typical code pattern for creating a Unix command-line filter:

(set 'inFile (open (main-args 2) "read"))
(while (read-line inFile) 
  (if (starts-with (current-line) ";;")

The program is invoked:

./filter myfile.lsp

filter スクリプトを実行すると、コマンド・ライン引数で与えられたファイルから、;; で始まるコメント行が全て表示されます。
This displays all comment lines starting with ;; from a file given as a command-line argument when invoking the script filter.


syntax: (curry func exp)

func に与えられた二つの引数をとる関数f(x, y) を、一つの引数をとる関数fx(y) に変換します。 curry は、引数を評価しないマクロのように作用します。 その代わり、func の適用時に評価されます。(訳注:名前の由来は、カレー化でどうぞ)
Transforms func from a function f(x, y) that takes two arguments into a function fx(y) that takes a single argument. curry works like a macro in that it does not evaluate its arguments. Instead, they are evaluated during the application of func.

(set 'f (curry + 10))   (lambda ($x) (+ 10 $x))

(f 7)   17

(filter (curry match '(a *)) '((a 10) (b 5) (a 3) (c 8) (a 9)))
  ((a 10) (a 3) (a 9))

(clean (curry match '(a *)) '((a 10) (b 5) (a 3) (c 8) (a 9)))
  ((b 5) (c 8))

(map (curry list 'x) (sequence 1 5))
  ((x 1) (x 2) (x 3) (x 4) (x 5))

curry は全ての二変数関数に使えます。
curry can be used on all functions taking two arguments.

date utf8

syntax: (date)
syntax: (date int-secs [int-offset])
syntax: (date int-secs int-offset str-format)

第一構文はローカル・タイム・ゾーンの現在の日付と時刻を文字列表現で返します。 int-secs が範囲外なら nil を返します。
The first syntax returns the local time zone's current date and time as a string representation. If int-secs is out of range, nil is returned.

第二構文の dateint-secs の秒数をローカル・タイム・ゾーンの日付/時刻の文字列表現に変換します。 int-secs の数値は、通常 date-value を使ってシステムから取り出します。 オプションとして、タイム・ゾーンのオフセットを(分単位で) int-offset に指定できます。 int-offset は文字列に変換する前の int-sec から加算もしくは減算されます。 範囲外の int-secs または 無効な str-format が指定されると、空文字列 "" を返します。
In the second syntax, date translates the number of seconds in int-secs into its date/time string representation for the local time zone. The number in int-secs is usually retrieved from the system using date-value. Optionally, a time-zone offset (in minutes) can be specified in int-offset, which is added or subtracted before conversion of int-sec to a string. If int-secs is out of range or an invalid str-format is specified, an empty string "" is returned.

(date)                    "Fri Oct 29 09:56:58 2004"

(date (date-value))       "Sat May 20 11:37:15 2006" 
(date (date-value) 300)   "Sat May 20 16:37:19 2006"  ; 5 hours offset
(date 0)                  "Wed Dec 31 16:00:00 1969"
(date 0 (now 0 -2))       "Thu Jan  1 00:00:00 1970"  ; Unix epoch

The way the date and time are presented in a string depends on the underlying operating system.

二番目の例はグリニッジ・タイム・ゾーンで 1-1-1970 0:0 を示していますが、パシフィック・スタンダード・タイム (PST) の時、8時間前を表示します。 date は与えられた int-secs が協定世界時(UTC、以前はグリニッジ標準時(GMT))だと仮定して、ローカル・タイム・ゾーンによる時刻に変換します。
(訳注:協定世界時、UTC - Universal Time, Coordinated)
The second example would show 1-1-1970 0:0 when in the Greenwich time zone, but it displays a time lag of 8 hours when in Pacific Standard Time (PST). date assumes the int-secs given are in Coordinated Universal Time (UTC; formerly Greenwich Mean Time (GMT)) and converts it according to the local time-zone.

三番目の構文は、str-format で指定されたフォーマットを使ってフル・カスタムな日付文字列を作ります。 これにより、日や月の名前をその土地柄に合わせた形へ変更できます:
The third syntax makes the date string fully customizable by using a format specified in str-format. This allows the day and month names to be translated into results appropriate for the current locale:

(set-locale "de_DE")  ("de_DE" ",")      

; on Linux - no leading 0 on day with %-d
(date (date-value) 0 "%A %-d. %B %Y")   "Montag  7. März 2005" 

(set-locale "C")  ; default POSIX

(date (date-value) 0 "%A %B %d %Y")     "Monday March 07 2005"

; suppressing leading 0 on MS Windows using #
(date (date-value) 0 "%a %#d %b %Y")    "Mon 7 Mar 2005" 

(set-locale "de_DE") ; on Mac OS X

(date (date-value) 0 "%x")  "07.03.2005"   ; day month year

(set-locale "C")

(date (date-value) 0 "%x")  "03/07/05"     ; month day year

次の表は、 MS Windows と Linux/Unix の両プラットフォームで利用可能な全てのフォーマット指定子の要約です。 Linux/Unix では、さらに多くのフォーマット・オプションが利用可能です。 詳細は、個々のプラットフォームの Cライブラリにある C関数 strftime() のマニュアル・ページを調べてください。
The following table summarizes all format specifiers available on both MS Windows and Linux/Unix platforms. More format options are available on Linux/Unix. For details, consult the manual page for the C function strftime() of the individual platform's C library.

abbreviated weekday name according to the current locale
full weekday name according to the current locale
abbreviated month name according to the current locale
full month name according to the current locale
preferred date and time representation for the current locale
%dその月の日にち(範囲 01–31)
day of the month as a decimal number (range 01–31)
%H24時間制で使われる時間(範囲 00-23)
hour as a decimal number using a 24-hour clock (range 00–23)
%I12時間制で使われる時間(範囲 00-11)
hour as a decimal number using a 12-hour clock (range 01–12)
%j年間通しての日数(範囲 001-366)
day of the year as a decimal number (range 001–366)
%m月数(範囲 01-12)
month as a decimal number (range 01–12)
minute as a decimal number
%p与えられた時間よって 'am' か 'pm' のどちらか、現ロケールに対応する文字列
either 'am' or 'pm' according to the given time value or the corresponding strings for the current locale
%S0-61 の秒数(60 と 閏秒を考慮した 61 )
second as a decimal number 0–61 (60 and 61 to account for occasional leap seconds)
week number of the current year as a decimal number, starting with the first Sunday as the first day of the first week
%w日曜を 0 とする曜日数
day of the week as a decimal, Sunday being 0
week number of the current year as a decimal number, starting with the first Monday as the first day of the first week
preferred date representation for the current locale without the time
preferred time representation for the current locale without the date
%y世紀を含まない年数(範囲 00-99)
year as a decimal number without a century (range 00–99)
year as a decimal number including the century
%zタイム・ゾーンの名前か省略形(MS Windows では %Z と同じ、Unix では異なる)
time zone or name or abbreviation (same as %Z on MS Windows, different on Unix)
%Zタイム・ゾーンの名前か省略形(MS Windows では %z と同じ、Unix では異なる)
time zone or name or abbreviation (same as %z on MS Windows, different on Unix)
%%文字 '%'
a literal '%' character

日付の表示の先頭のゼロは、Linux や FreeBSD では "%-d" を使って、 OpenBSD や SunOS/Solaris や Mac OS X では "%e" を使って、省けます。MS Windowsでは "%#d" を使います。
Leading zeroes in the display of decimal day numbers can be suppressed using "%-d" on Linux and FreeBSD and using "%e" on OpenBSD, SunOS/Solaris and Mac OS X. On MS Windows use "%#d".

date-valuedate-listdate-parsetime-of-daytimenow も見てください。
See also date-value, date-list, date-parse, time-of-day, time, and now.


syntax: (date-list int-seconds [int-index])
syntax: (date-list)

与えられた 1970年1月1日 00:00:00 からの秒数による 年、月、日、時、分、秒、年の始めからの日数、週の始めからの日数のリストを返します。 日付と時刻は UTC で与えられるので、ローカルのタイムゾーンとは違うかもしれません。
Returns a list of year, month, date, hours, minutes, seconds, day of year and day of week from a time value given in seconds after January 1st, 1970 00:00:00. The date and time values aren given as UTC, which may differ from the local timezone.

パラメータなしの date-list は、(date-value) の戻り値である現在時間の秒数からリストを生成します。
When no parameters are given date-list generates the list from the number of seconds for the current time, return of (date-value).

週の始めからの日数は、月曜日から日曜日に対して 1 から 7 の範囲です。
The week-day value ranges from 1 to 7 for Monday thru Sunday.

(date-list 1282479244)       (2010 8 22 12 14 4 234 7)
(date-list 1282479244 0)     2010 ; year
(date-list 1282479244 -2)    234  ; day of year

(date-value (date-list 1282479244))  1282479244

(date-list 0)    (1970 1 1 0 0 0 1 4) ; Thursday 1st, Jan 1970

リストから特定の数値を返させるために、第2オプション・パラメータ int-index が使えます。
A second optional int-index parameter can be used to return a specific member of the list.

date-list は、date-value の逆操作です。
date-list is the inverse operation of date-value.


syntax: (date-parse str-date str-format)

date で見つかるのと同じフォーマット規則を使った str-format で定義されたフォーマットを使って、テキスト文字列 str-date の日付を解析します。 関数 date-parse は、UTC 1970年1月1日 を 0 として経過した UTC 秒数を 2038年1月19日の 2147472000 まで返します。
Parses a date from a text string in str-date using a format as defined in str-format, which uses the same formatting rules found in date. The function date-parse returns the number of UTC seconds passed since January 1st, 1970 UTC starting with 0 and up to 2147472000 for a date of January 19th, 2038.

この関数は MS Windows プラットフォームでは利用できません(訳注:Windows 用には拙作 date-parse があります)。 以前のバージョンでは、parse-date と呼ばれていました。この古い名称は推奨しません。
This function is not available on MS Windows platforms. The function was named parse-date in previous versions. The old form is deprecated.

(date-parse "2007.1.3" "%Y.%m.%d")     1167782400
(date-parse "January 10, 07" "%B %d, %y")     1168387200

; output of date-parse as input value to date-list produces the same date 

(date-list (date-parse "2010.10.18 7:00" "%Y.%m.%d %H:%M"))
 (2010 10 18 7 0 0 290 1)

利用できる全てのフォーマット記述子デスクリプタは、関数 date で見てください。
See the date function for all possible format descriptors.


syntax: (date-value int-year int-month int-day [int-hour int-min int-sec])
syntax: (date-value list-date-time)
syntax: (date-value)

第一構文の date-value は、1970-1-1 00:00:00 から与えられた日付と時刻までの秒数を返します。 時、分、秒のパラメータはオプションです。 時間は協定標準時(UTC)を想定し、現タイム・ゾーンには合わせてはいません。
In the first syntax, date-value returns the time in seconds since 1970-1-1 00:00:00 for a given date and time. The parameters for the hour, minutes and seconds are optional. The time is assumed to be Coordinated Universal Time (UTC), not adjusted for the current time zone.

第二構文では、同じデータをリストで与えることができます。 第一構文と同様、時、分、秒はオプションです。
In the second syntax the same data can be given in a list. As with the first syntax, numbers for the hour, minutes and seconds are optional.

第二構文の date-value は(訳注:1970-1-1 00:00:00 から)現時刻までの秒数を返します。
In the second syntax, date-value returns the time value in seconds for the current time.

(date-value 2002 2 28)        1014854400
(date-value '(2002 2 28))     1014854400
(date-value 1970 1 1 0 0 0)   0
(date (date-value (now)))     "Wed May 24 10:02:47 2006" 
(date (date-value))           "Wed May 24 10:02:47 2006"
(date)                        "Wed May 24 10:02:47 2006"

関数date-listdate-value をリストに戻すために使えます:
The function date-list can be used to transform a date-value back into a list:

(date-list 1014854400)   (2002 2 28 0 0 0)
(date-value (date-list 1014854400))   1014854400

datedate-listdate-parsetime-of-daytimenow も見てください。
See also date, date-list, date-parse, time-of-day, time, and now.


syntax: (debug func)

trace を呼び出してユーザ定義関数 func の評価を始めます。 debug は、(trace true) を実行してデバック・モードで関数に入るためのショート・カットです。
Calls trace and begins evaluating the user-defined function in func. debug is a shortcut for executing (trace true), then entering the function to be debugged.

;; instead of doing
(trace true)
(my-func a b c)
(trace nil)

;; use debug as a shortcut
(debug (my-func a b c))

debug あるいは trace モード中に、エラー・メッセージが出力されることがあります。例外を起こした関数が 0nil を返して、プロセスを続けます。このようにデバック中は、変数とプログラムの現在の状態が監視されたままになります。
When in debug or trace mode, error messages will be printed. The function causing the exception will return either 0 or nil and processing will continue. This way, variables and the current state of the program can still be inspected while debugging.

関数trace も見てください。
See also the trace function.

dec !

syntax: (dec place [num])

place の数値から 1.0 か、オプション数値の num を減じて返します。 dec は浮動小数点演算を実行し、整数は浮動小数点型に変換されます。
The number in place is decremented by 1.0 or the optional number num and returned. dec performs float arithmetic and converts integer numbers passed into floating point type.

place はシンボル、リスト構造内の位置、式によって返される数値のいずれかです。
place is either a symbol or a place in a list structure holding a number, or a number returned by an expression.

(set x 10)     10
(dec x)        9
x              9
(dec x 0.25)   8.75
x              8.75

place のシンボルが nil なら、0.0 として扱われます:
If the symbol for place contains nil, it is treated as if containing 0.0:

z              nil
(dec z)        -1

(set z nil)
(dec z 0.01)   -0.01

Places in a list structure or a number returned by another expression can be updated too:

(set 'l '(1 2 3 4))

(dec (l 3) 0.1)  3.9

(dec (first l))  0

l  (0 2 3 3.9)

(dec (+ 3 4))  6

整数モードの減算には、関数 -- を使ってください。 浮動小数点モードの加算には、関数 inc を使ってください。
Use the -- function to decrement in integer mode. Use the inc function to increment numbers floating point mode.


syntax: (def-new sym-source [sym-target])

この関数は、new のように動作しますが、sym-source のシンボルからそのコンテキストとシンボル一個のみコピーします。 sym-target が無い時は、同じ名前のシンボルが現コンテキストに作られます。 sym-source 内で参照可能な全てのシンボルが現コンテキストで参照可能なシンボルとして移植されますが、そのコンテキストは MAIN 以外でなければなりません。(訳注:sym-target 無しをコンテキスト MAIN で使うとエラーになります。)
This function works similarly to new, but it only creates a copy of one symbol and its contents from the symbol in sym-source. When sym-target is not given, a symbol with the same name is created in the current context. All symbols referenced inside sym-source will be translated into symbol references into the current context, which must not be MAIN.

引数に sym-target があれば、em>sym-target のシンボルで参照できるシンボルとコンテキストのコピーが作られます。 名前の変更だけでなく、異なるコンテキストへの配置も可能です。 sym-source 内で参照できる全てシンボルが、目標コンテキストの参照シンボルとして移植されます。
If an argument is present in sym-target, the copy will be made into a symbol and context as referenced by the symbol in sym-target. In addition to allowing renaming of the function while copying, this also enables the copy to be placed in a different context. All symbol references in sym-source with the same context as sym-source will be translated into symbol references of the target context.

def-new は生成したシンボルを返します:
def-new returns the symbol created:

> (set 'foo:var '(foo:x foo:y))
(foo:x foo:y)

> (def-new 'foo:var 'ct:myvar)

> ct:myvar
(ct:x ct:y)

> (context 'K)

K> (def-new 'foo:var)

K> var
(x y)

The following example shows how a statically scoped function can be created by moving it its own namespace:

> (set 'temp (lambda (x) (+ x x)))
(lambda (x) (+ x x))
> (def-new 'temp 'double:double)
> (double 10)
> double:double
(lambda (double:x) (+ double:x double:x))

次で定義する def-static は、レキシカルに保護される名前空間に置かれる関数(訳注:デフォルト・ファンクタ)を作るために利用できます:
The following definition of def-static can be used to create functions living in their own lexically protected name-space:

(define (def-static s body) 
      (def-new 'body (sym s s)))

(def-static 'acc (lambda (x)
          (inc sum x)))

> (acc 1)
> (acc 1)
> (acc 8)

関数 def-new は、コンテキストを完全にコピーする new よりも簡単な方法で、コンテキストやコンテキスト・オブジェクトを構成するために使えます。
The function def-new can be used to configure contexts or context objects in a more granular fashion than is possible with new, which copies a whole context.


syntax: (default context)

context のデフォルト・ファンクタの中身を返します。
Return the contents of the default functor in context.

(define Foo:Foo 123)

(default Foo)  123

(setf (default Foo) 456)
(set 'ctx Foo)

(default ctx)  456
Foo:Foo        456

多くの場合、newLISP はコンテキスト名を見ると、自動的にデフォルト・ファンクタにします。 そうならない場合に、関数 default を利用できます。
In many situations newLISP defaults automatically to the default functor when seeing a context name. In circumstances where this is not the case, the default function can be used.

define !

syntax: (define (sym-name [sym-param-1 ... ]) [body-1 ... ])
syntax: (define (sym-name [(sym-param-1 exp-default) ... ]) [body-1 ... ])
syntax: (define sym-name exp)

sym-param-1 以下のオプション・パラメータを持つ新しい関数 sym-name を定義します。 define はラムダ式を sym-name に割り当てるのと等価です。 定義された関数が呼び出されると、引数全てが評価されて sym-param-1 以下の変数に割り当てられ、body-1 以下の式群が評価されます。 関数が定義されると、sym-name に束縛されたラムダ式が返ります。
Defines the new function sym-name, with optional parameters sym-param-1—. define is equivalent to assigning a lambda expression to sym-name. When calling a defined function, all arguments are evaluated and assigned to the variables in sym-param-1—, then the body-1— expressions are evaluated. When a function is defined, the lambda expression bound to sym-name is returned.

全ての定義パラメータはオプションです。 ユーザ定義関数が引数無しで呼ばれると、パラメータには nil が入ります。 もし、パラメータが exp-default で指定されるデフォルト値を持っている場合は、その値をとります。
All parameters defined are optional. When a user-defined function is called without arguments, those parameters assume the value nil. If those parameters have a default value specified in exp-default, they assume that value.

define の戻り値は、割り当てられたラムダ式です。 ユーザ定義関数が呼ばれた時の戻り値は、関数本体で最後に評価された式です。
The return value of define is the assigned lambda expression. When calling a user-defined function, the return value is the last expression evaluated in the function body.

(define (area x y) (* x y))   (lambda (x y) (* x y))
(area 2 3)                    6

define を使わず、area を関数に定義することも可能です。
As an alternative, area could be defined as a function without using define.

(set 'area (lambda (x y) (* x y))

lambdafn 式は、シンボルに定義されることなくそれ自身で匿名関数として使われることもあります:
lambda or fn expressions may be used by themselves as anonymous functions without being defined as a symbol:

((lambda ( x y) (* x y)) 2 3)   6
((fn ( x y) (* x y)) 2 3)       6

fnlambda 記述の短縮形です。
fn is just a shorter form of writing lambda.

Parameters can have default values specified:

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

exp-default の式は、関数の呼ばれた環境で評価されます。
Expressions in exp-default are evaluated in the function's current environment.

(define (foo (a 10) (b (div a 2))) 
  (list a b))

(foo)       (10 5)
(foo 30)    (30 15)
(foo 3 4)   (3 4)

第二形式の define は、関数 set のように動作します。
The second version of define works like the set function.

(define x 123)     123
;; is equivalent to
(set 'x 123)       123

(define area (lambda ( x y) (* x y)))
;; is equivalent to
(set 'area (lambda ( x y) (* x y)))
;; is equivalent to
(define (area x y) (* x y))

Trying to redefine a protected symbol will cause an error message.


syntax: (define-macro (sym-name [sym-param-1 ... ]) body)
syntax: (define-macro (sym-name [(sym-param-1 exp-default) ... ]) body)

define-macro を使って定義された関数は、他のLISPのように変数を展開しない fexpr と呼ばれます(訳注: fexpr とは、オペランドが評価されずに渡される関数)。 newLISP では、今まで通りマクロと呼んでいます。 というのも、標準的でない引数の評価形式を持つ特殊な構文形態を作るという同じ目的で書かれるからです。 define-macro を使って作られた関数は、expandletex を使ったテンプレート展開式と結合できます。
Functions defined using define-macro are called fexpr in other LISPs as they don't do variable expansion. In newLISP they are still called macros, because they are written with the same purpose of creating special syntax forms with non-standard evaluation patterns of arguments. Functions created using define-macro can be combined with template expansion using expand or letex.

v.10.5.8 から newLISP には macro を使った拡張マクロもあります。
Since v.10.5.8, newLISP also has expansion macros using macro.

sym-param-1 以下をオプション引数として、新しい fexpr の sym-name を定義します。 define-macro は、ラムダ・マクロ式をシンボルに割り当てるのと等価です。 関数 define-macro が呼ばれると、評価されない引数が変数 sym-param-1 ... に割り当てられます。 その後、body の式群が評価されます。 関数define-macro が評価されると、ラムダ・マクロ式が返ります。
Defines the new fexpr sym-name, with optional arguments sym-param-1. define-macro is equivalent to assigning a lambda-macro expression to a symbol. When a define-macro function is called, unevaluated arguments are assigned to the variables in sym-param-1 .... Then the body expressions are evaluated. When evaluating the define-macro function, the lambda-macro expression is returned.

(define-macro (my-setq p1 p2) (set p1 (eval p2))) 
 (lambda-macro (p1 p2) (set p1 (eval p2)))

(my-setq x 123)   123
x                 123

特定の引数の評価を先延ばしする組込関数のような新しい関数を作成できます。 fexprs はパラメーター・リスト内部の引数にもアクセスでき、すでに newLISP に組み込まれているようなフロー制御関数の作成に使えます。
New functions can be created to behave like built-in functions that delay the evaluation of certain arguments. Because fexprs can access the arguments inside a parameter list, they can be used to create flow-control functions like those already built-in to newLISP.

定義された引数は、全てオプションです。 マクロが引数無しで呼ばれると、パラメータには nil が入ります。 パラメータが exp-default で指定されるデフォルト値を持つ場合は、それらが入ります。
All parameters defined are optional. When a macro is called without arguments, those parameters assume the value nil. If those parameters have a default value specified in exp-default, they assume that default value.

(define-macro (foo (a 1) (b 2))
  (list a b))
(foo)       (1 2)
(foo 3)     (3 2)
(foo 3 4)   (3 4)

exp-default の式は、関数が呼ばれた環境で評価されます。
Expressions in exp-default are evaluated in the function's current environment.

(define-macro (foo (a 10) (b (div a 2))) 
  (list a b))

(foo)       (10 5)
(foo 30)    (30 15)
(foo 3 4)   (3 4)

fexpr には注記すべき危険性が存在します。define-macro の定義で使っているのと同じ変数名がパラメータとして渡されることです。 このような場合(訳注:下記の例)、fexpr の内部変数は意図した値と違って nil を受け取ってしまいます:
Note that in fexprs, the danger exists of passing a parameter with the same variable name as used in the define-macro definition. In this case, the fexpr's internal variable would end up receiving nil instead of the intended value:

;; not a good definition!

(define-macro (my-setq x y) (set x (eval y)))  

;; symbol name clash for x

(my-setq x 123)   123
x                 nil

変数捕捉 として知られるこの問題を避けて、安全な define-macro を書く方法は、いくつかあります:
There are several methods that can be used to avoid this problem, known as variable capture, by writing hygienic define-macros:

;; a define-macro as a lexically isolated function
;; avoiding variable capture in passed parameters

(context 'my-setq)

(define-macro (my-setq:my-setq x y) (set x (eval y)))  

(context MAIN)

(my-setq x 123)   123  ; no symbol clash
x                 123

例題の定義では、レキシカルに隔離されていて変数捕捉が起こりません。 (my-setq:my-setq …) を使って関数を呼び出す代わりに、(my-setq …) だけで呼び出せます。 それは、デフォルト・ファンクション だからです。
The definition in the example is lexically isolated, and no variable capture can occur. Instead of the function being called using (my-setq:my-setq …), it can be called with just (my-setq …) because it is a default function.

第2の可能性は、args を使って渡されるパラメータに参照することです:
The second possibility is to refer to passed parameters using args:

;; avoid variable capture in macros using the args function

(define-macro (my-setq) (set (args 0) (eval (args 1))))

変数補足に耐性のある拡張関数 macro も見てください。
See also the macro expansion function not susceptible to variable capture.


syntax: (delete symbol [bool])
syntax: (delete sym-context [bool])

symbol のシンボルや sym-context のコンテキストと、それに含まれる全てのシンボルを newLISP シンボル・テーブルから削除します。 シンボルの参照値は nil に変わります。 Deletes a symbol symbol, or a context in sym-context with all contained symbols from newLISP's symbol table. References to the symbol will be changed to nil.

第一構文では symbol のシンボルを削除します。 そのため、他の式でそのシンボルを参照しても、nil に変わっているでしょう。
In the first syntax deletes a symbol symbol and references to the symbol in other expressions will be changed to nil.

第二構文では sym-context で参照される名前空間の全シンボルを削除します。 そのため、他の式でそれらを参照しても、nil に変わっているでしょう。 sym-context のコンテキスト・シンボルは通常のシンボルに変わり、nilが入ります。
In the second syntax all symbols of the namespace referred to by sym-context will be deleted and references to them in other espressions will be changed to nil. The context symbol sym-context will be changed to a normal symbol containing nil.

bool の式が true に評価されると、シンボルが参照されていない時のみ、削除されます。
When the expression in bool evaluates to true, symbols are only deleted when they are not referenced.

bool の式が nil に評価されると、シンボルは参照がチェックされずに削除されます。 名前空間の外でシンボルの存在を参照していない時のみ、このモードを使用すべきだということに、注意してください。 もし、外部参照があるのにこのモードを使えば、外部参照が nil にセットされず、システム・クラッシュを導きかねません。 ハッシュの名前空間の削除や変数が厳密に非公開として扱われるオブジェクト・システムの名前空間の削除に、このモードを使えます。
When the expression in bool evaluates to nil, symbols will be deleted without any reference checking. Note that this mode should only be used, if no references to the symbol exist outside it's namespace. If external references exist, this mode can lead to system crashes, as the external reference is not set to nil when using this mode. This mode can be used to delete namespace hashes and to delete namespaces in object systems, where variables are strictly treated as private.

組込関数のようなプロテクトされたシンボルとか、niltrue のような特殊シンボルは削除できません。
Protected symbols of built-in functions and special symbols like nil and true cannot be deleted.

シンボルの削除に成功すると、deletetrue を返し、 失敗すると nil を返します。
delete returns true if the symbol was deleted successfully or nil if the symbol was not deleted.

コンテキスト・シンボルを削除する時、最初の delete はコンテキスト名前空間の中身を削除して、コンテキスト・シンボルを通常の単一変数シンボルに落とします。二回目の delete はシンボル・テーブルからシンボルを削除します。
When deleting a context symbol, the first delete removes the context namespace contents and demotes the context symbol to a normal mono-variable symbol. A second delete will remove the symbol from the symbol table.

(set 'lst '(a b aVar c d))

(delete 'aVar)  ; aVar deleted, references marked nil

lst   (a b nil c d)

(set 'lst '(a b aVar c d))

(delete 'aVar true)  
 nil ; protect aVar if referenced

lst   (a b aVar c d)

;; delete all symbols in a context
(set 'foo:x 123)
(set 'foo:y "hello")

(delete 'foo)   foo:x, foo:y deleted

最後の例では、コンテキスト foo 内のシンボルのみが削除されますが、コンテキスト・シンボル foo 自身は削除されません。 foo は通常のプロテクトされていないシンボルになり、nil が入ります。
In the last example only the symbols inside context foo will be deleted but not the context symbol foo itself. It will be converted to a normal unprotected symbol and contain nil.

Note that deleting a symbol that is part of an expression which is currently executing can crash the system or have other unforeseen effects.


syntax: (delete-file str-file-name)

str-file-name で与えられたファイルを削除します。 ファイルの削除に成功すると、true が返ります。
Deletes a file given in str-file-name. Returns true if the file was deleted successfully.

失敗した時、関数は nil を返します。 エラー情報については、ファイルに対して使った時は sys-error を使ってください。 URL の場合は net-error が詳細なエラー情報を与えてくれます。
On failure the function returns nil. For error information, use sys-error when used on files. When used on URLs net-error gives more error information.

ファイル名に URL を与えることもできます。
The file name can be given as a URL.

(delete-file "junk")

(delete-file "")

(delete-file "file://aFile.txt")

最初の例はカレント・ディレクトリのファイル junk を削除します。 二番目の例はファイル指定に URL を使う方法を示しています。 この形式には追加のパラメータを与えることができます。 その詳細は、delete-url で見てください。
The first example deletes the file junk in the current directory. The second example shows how to use a URL to specify the file. In this form, additional parameters can be given. See delete-url for details.


syntax: (delete-url str-url)

この関数は、リモート HTTP サーバー上の str-url で指定されるファイルを削除します。 目的のウェブ・サーバー上で HTTP DELETE プロトコルが実行可能である必要がありますが、エラー・メッセージ文字列が返されるかもしれません。 目的のファイルにはアクセス許可も設定されていなければなりません。 タイムアウトやカスタム・ヘッダーのような追加のパラメータは、関数 get-url と同じく利用できます。
This function deletes the file on a remote HTTP server specified in str-url. The HTTP DELETE protocol must be enabled on the target web server, or an error message string may be returned. The target file must also have access permissions set accordingly. Additional parameters such as timeout and custom headers are available exactly as in the get-url function.

str-urlfile:// で始まっていれば、ローカル・ファイル・システム上のファイルが削除されます。
If str-url starts with file:// a file on the local file system is deleted.

この機能には関数 delete-file が使われ、URL にファイル名を指定することもできます。
This feature is also available when the delete-file function is used and a URL is specified for the filename.

(delete-url "")
(delete-url "" 5000)

; delete on the local file system
(delete-url "file:///home/joe/somefile.txt")

二番目の例は、5 秒のタイムアウト・オプションを指定しています。 特殊 HTTP プロトコル・ヘッダーのような他のオプションも指定可能です。 その詳細は、関数 get-url で見てください。
The second example configures a timeout option of five seconds. Other options such as special HTTP protocol headers can be specified, as well. See the get-url function for details.


syntax: (destroy int-pid)
syntax: (destroy int-pid int-signal)

int-pid で指定するプロセス ID のプロセスを破棄し、成功すると true、失敗すると nil を返します。 プロセス ID は通常、Mac OS X や 他の Unix 上で先に呼び出された fork か、全プラットフォーム上での process 呼び出しで得られます。 Unix 上の destroy は、SIGKILL シグナルを使うシステム・ユーティリティ kill のように動作します。
Destroys a process with process id in int-pid and returns true on success or nil on failure. The process id is normally obtained from a previous call to fork on Mac OS X and other Unix or process on all platforms. On Unix, destroy works like the system utility kill using the SIGKILL signal.

注意! int-pid0 ならば、送り側のプロセス・グループ ID と同じグループ ID の全てのプロセスにシグナルが送られます。 int-pid-1 ならば、カレント・ユーザ ID の全プロセスが終了され、newLISP がスーパー・ユーザ特権モードで開始されていたなら、システム・プロセス以外の全プロセスが破棄されます。
CAUTION! If int-pid is 0 the signal is sent to all processes whose group ID is equal to the process group ID of the sender. If int-pid is -1 all processes with the current user id will be killed, if newLISP is started with super user privileges, all processes except system processes are destroyed.

int-signal を指定した時、destroyint-pid のプロセスに指定された Unix シグナルを送る Unix kill コマンドのように動作します。 この第二構文は MS Windows では利用できません。
When specifying int-signal, destroy works like a Unix kill command sending the specified Unix signal to the process in int-pid. This second syntax is not available on MS Windows.

(set 'pid (process "/usr/bin/bc" bcin bcout)) 
(destroy pid)

(set 'pid (fork (dotimes (i 1000) (println i) (sleep 10))))
(sleep 100) (destroy pid)


syntax: (det matrix [float-pivot])

正方行列の行列値を返します。行列は、入れ子リストと アレイ のどちらも可能です。
Returns the determinant of a square matrix. A matrix can either be a nested list or an array.

オプションで、0.0 か非常に小さい値を float-pivot に指定できます。 特異行列(訳注:逆行列を持たない行列)を処理するとゼロになるLU分解アルゴリズムにおいて、この値はピボット要素の代わりになります。
Optionally 0.0 or a very small value can be specified in float-pivot. This value substitutes pivot elements in the LU-decomposition algorithm, which result in zero when the algorithm deals with a singular matrix.

(set 'A '((-1 1 1) (1 4 -5) (1 -2 0)))
(det A)   -1

; treatment of singular matrices
(det '((2 -1) (4 -2)))         nil
(det '((2 -1) (4 -2)) 0)       -0
(det '((2 -1) (4 -2)) 1e-20)   -4e-20

行列が特異行列(訳注:逆行列を持たない行列)で float-pivot が指定されていなければ、nil が返ります。
If the matrix is singular and float-pivot is not specified, nil is returned.

他の行列操作 invertmatmultiplytranspose も見てください。
See also the other matrix operations invert, mat, multiply and transpose.


syntax: (device [int-io-handle])

int-io-handle は I/O デバイス番号で、デフォルトの標準 I/O ハンドル・ペア の 0(ゼロ)に設定されます。この場合、stdin が 0、stdout が 1 です。 int-io-handleopen を使って先に得られているファイル・ハンドルでもあります。 どちらの場合でも、入力と出力がこのハンドルを通して割り当てられます。 引数がない時は、現在のI/Oデバイス番号が返ります。
int-io-handle is an I/O device number, which is set to 0 (zero) for the default STD I/O pair of handles, 0 for stdin and 1 for stdout. int-io-handle may also be a file handle previously obtained using open. In this case both, input and output are channeled through this handle. When no argument is supplied, the current I/O device number is returned.

device で指定される I/O チャンネルは、関数 printprintlnwritewrite-lineread-charread-line の内部で使われます。 現在の I/O デバイスが 0 か 1 の時は、print は出力をコンソール・ウィンドウに送り、read-line はキーボードから入力を受け取ります。 現在の I/O デバイスが開いているファイルに設定されているなら、printread-line は、そのファイルに対して動作します。
The I/O channel specified by device is used internally by the functions print, println, write, write-line and read-char, read-line. When the current I/O device is 0 or 1, print sends output to the console window and read-line accepts input from the keyboard. If the current I/O device has been set by opening a file, then print and read-line work on that file.

注記:Unix のようなオペレーティング・システムでは、標準入出力にチャンネル 0 を出力で、チャンネル 1 を入力で使うこともできます。 それに対し Windows では、標準入力が 0 で標準出力が 1 と厳密に決まっています。
Note, that on Unix like operating systems, stdin channel 0 can also be used for output and stdout channel 1 can also be used for reading input. This is not the case on Windows, where 0 is strictly for input and stdout 1 strictly for output.

(device (open "myfile" "write"))   5
(print "This goes in myfile")      "This goes in myfile"
(close (device))                   true

deviceclose を使うと、device は自動的に 0(ゼロ)にリセットされますので、注意してください。
Note that using close on device automatically resets device to 0 (zero).


syntax: (difference list-A list-B)
syntax: (difference list-A list-B bool)

第一構文の difference は、list-Alist-B 間の集合 差を返します。 結果のリストは、list-A に在って、list-B に無い要素のみ持ちます。 結果のリストの全要素は単一(訳注:重複する要素が無い)ですが、list-Alist-B が単一である必要はありません。 リストの要素には Lisp 式のいかなる型もなれます。
In the first syntax, difference returns the set difference between list-A and list-B. The resulting list only has elements occurring in list-A, but not in list-B. All elements in the resulting list are unique, but list-A and list-B need not be unique. Elements in the lists can be any type of Lisp expression.

(difference '(2 5 6 0 3 5 0 2) '(1 2 3 3 2 1))   (5 6 0)

第二構文の differenceリスト モードで動作します。 booltruenil 以外に評価される式です。 結果のリストでは、list-A から list-B の全要素が取り除かれますが、list-A で重複している要素は残ります。
In the second syntax, difference works in list mode. bool specifies true or an expression not evaluating to nil. In the resulting list, all elements of list-B are eliminated in list-A, but duplicates of other elements in list-A are left.

(difference '(2 5 6 0 3 5 0 2) '(1 2 3 3 2 1) true)   (5 6 0 5 0)

集合関数 intersectuniqueunion も見てください。
See also the set functions intersect, unique and union.


syntax: (directory [str-path])
syntax: (directory str-path str-pattern [regex-option])

str-path で与えたディレクトリ・パスのディレクトリ・エントリ名のリストが返ります。 失敗すると、nil が返ります。 str-path が省略されると、カレント・ディレクトリのエントリのリストが返ります。
A list of directory entry names is returned for the directory path given in str-path. On failure, nil is returned. When str-path is omitted, the list of entries in the current directory is returned.

(directory "/bin")

(directory "c:/")

最初の例は /bin のディレクトリを返し、二番目の例はドライブCのルート・ディレクトリのディレクトリ・エントリのリストを返します。 MS Windows システムでも、フォーワード・スラッシュ (/) がパス名に使えることに注目してください。 バックスラッシュ (\) を使う時は、二つの目のバックスラッシュの前置きが必要です。
The first example returns the directory of /bin, the second line returns a list of directory entries in the root directory of drive C:. Note that on MS Windows systems, a forward slash (/) can be included in path names. When used, a backslash (\) must be preceded by a second backslash.

第二構文の directory では、str-pattern の正規表現パターンをとることができます。 ディレクトリ・エントリのリスト中で、パターンに一致するファイル名だけが返ります。 regex-option で特殊正規表現オプションを指定できます。 (訳注:正規表現オプションの)詳細は regex で見てください。
In the second syntax, directory can take a regular expression pattern in str-pattern. Only filenames matching the pattern will be returned in the list of directory entries. In regex-option, special regular expression options can be specified; see regex for details.

(directory "." "\\.c")   ("foo.c" "bar.c")
;; or using braces as string pattern delimiters
(directory "." {\.c})   ("foo.c" "bar.c")

; show only hidden files (starting with dot)
(directory "." "^[.]")    ("." ".." ".profile" ".rnd" ".ssh")

正規表現は directory に対して、ファイル名に ".c" を持つもののみ返すことを強います。
The regular expression forces directory to return only file names containing the string ".c".

正規表現の使える他の関数には、findfind-allparseregexreplacesearch があります。
Other functions that use regular expressions are find, find-all, parse, regex, replace, and search.


syntax: (directory? str-path)

str-path がディレクトリかどうかをチェックします。 結果により、truenil が返ります。
Checks if str-path is a directory. Returns true or nil depending on the outcome.

(directory? "/etc")              true
(directory? "/usr/bin/emacs/")   nil

display-html JS

syntax: (display-html str-html)
syntax: (display-html str-html bool-flag)

この関数を第一構文で使うと、ブラウザの現在のページを str-html の中にある HTML のページで置き換えます。 HTML のページには、JavaScript を含めることもできます。
Using the first syntax, the function replaces the current page in the browser with the HTML page found in str-html.

bool-flagtrue に評価されると、ページ用に新しいブラウザ・タブが開かれので、現在のページは影響を受けません。
If the bool-flag evaluates to true, the page gets opened in a new browser tab and the current page is not affected.

この関数は JavaScript にコンパイルされた newLISP でのみ、利用できます。
This function is only available on newLISP compiled to JavaScript.

(set 'page [text]
<title>Hello App</title>
<h2>Hello World</h2>

(display-html page true)  "92"

この関数は HTML 文書の文字列としての長さとして返します。(訳注:バイト単位でなく、文字単位です。) The function returns the length of the HTML document displayed as a string.

現在のページで JavaScript を評価する関数 eval-string-js も見てください。
See also the function eval-string-js for evaluation of JavaScript in the current page.


syntax: (div num-1 num-2 [num-3 ... ])
syntax: (div num-1)

num-1num-2 以下の数値で連続的に除算します。 div は(訳注:整数と浮動小数点数の)混在型算術が可能ですが、戻り値は常に浮動小数点数です。 NaN(not a number) になる浮動小数点計算には NaN を返します。
Successively divides num-1 by the number in num-2—. div can perform mixed-type arithmetic, but it always returns floating point numbers. Any floating point calculation with NaN also returns NaN.

(div 10 3)                  3.333333333
(div 120 (sub 9.0 6) 100)   0.4

(div 10)                    0.1

引数が num-1 のみの時、divnum-1 の逆数を計算します。
When num-1 is the only argument, div calculates the inverse of num-1.


syntax: (do-until exp-condition [body])

exp-condition が評価される前に body 中の式群が評価されます。 exp-condition の評価が nil 以外なら do-until 式は終了し、そうでなければ body 中の式群が再び評価されます。 until が本体式群の評価の前に 条件式を評価するのに対して、do-until は本体の式群の評価の後に 条件式を評価しますので、注意してください。 do-until 式の戻り値は、本体式群の最後の評価です。 body が空なら、exp-condition の最後の結果が返ります。
The expressions in body are evaluated before exp-condition is evaluated. If the evaluation of exp-condition is not nil, then the do-until expression is finished; otherwise, the expressions in body get evaluated again. Note that do-until evaluates the conditional expression after evaluating the body expressions, whereas until checks the condition before evaluating the body. The return value of the do-until expression is the last evaluation of the body expression. If body is empty, the last result of exp-condition is returned.

do-until は、システムの反復シンボル $idx も更新します。
do-until also updates the system iterator symbol $idx.

(set 'x 1)
(do-until (> x 0) (inc x))
x   2

(set 'x 1)
(until (> x 0) (inc x))
x   1

(訳注:上記例では、)do-until が最低一回はループを通るのに対して、until はループに入りません。
While do-until goes through the loop at least once, until never enters the loop.

関数whiledo-while も見てください。
See also the functions while and do-while.


syntax: (do-while exp-condition body)

exp-condition が評価される前に body 中の式群が評価されます。 exp-condition の評価が nil なら do-while 式は終了し、そうでなければ body 中の式群が再び評価されます。 while が本体を評価する前 に条件をチェックするのに対して、do-while は本体式群を評価した後 に条件式を評価します。
The expressions in body are evaluated before exp-condition is evaluated. If the evaluation of exp-condition is nil, then the do-while expression is finished; otherwise the expressions in body get evaluated again. Note that do-while evaluates the conditional expression after evaluating the body expressions, whereas while checks the condition before evaluating the body. The return value of the do-while expression is the last evaluation of the body expression.

do-while は、システムの反復シンボル $idx も更新します。
do-while also updates the system iterator symbol $idx.

(set 'x 10)
(do-while (< x 10) (inc x))
x   11

(set 'x 10)
(while (< x 10) (inc x)) 
x   10

(訳注:上記例では、)do-while が最低一回はループを通るのに対して、while はループに入りません。
While do-while goes through the loop at least once, while never enters the loop.

関数untildo-until も見てください。
See also the functions until and do-until.


syntax: (doargs (sym [exp-break]) body)

ユーザ定義関数やマクロの中で引数リストの総数分、繰り返します。 このような関数やマクロは definedefine-macrolambdalambda-macro を使って定義できます。 引数リストが空になるか、(exp-breakに定義される)オプションの脱出条件が true か論理的真値に評価されるまで、sym の変数に引数リストの要素が次々にセットされます。 doargs 式は、最後の評価結果を返します。
Iterates through all members of the argument list inside a user-defined function or macro. This function or macro can be defined using define, define-macro, lambda, or lambda-macro. The variable in sym is set sequentially to all members in the argument list until the list is exhausted or an optional break expression (defined in exp-break) evaluates to true or a logical true value. The doargs expression always returns the result of the last evaluation.

doargs は、システムの反復シンボル $idx も更新します。
doargs also updates the system iterator symbol $idx.

(define (foo)
    (doargs (i) (println i)))

> (foo 1 2 3 4)

オプションの脱出条件は、doargs に引数操作の中断を引き起こします:
The optional break expression causes doargs to interrupt processing of the arguments:

(define-macro (foo)
    (doargs (i (= i 'x)) 
        (println i)))

> (foo a b x c d e)

引数リストの全てを一度にアクセスするためには、関数 args を使ってください。
Use the args function to access the entire argument list at once.


syntax: (dolist (sym list|array [exp-break]) body)

listarray の各要素毎に body の式群が評価されます。 本体式群が評価される前に、変数 sym にはリストの各要素にセットされます。 ループ・インデックスとして使われる変数(訳注:変数 sym のこと)は、局所変数でダイナミック・スコープの規則に従って振舞います。
The expressions in body are evaluated for each element in list or array. The variable in sym is set to each of the elements before evaluation of the body expressions. The variable used as loop index is local and behaves according to the rules of dynamic scoping.

オプションの exp-break に早期ループ脱出条件を定義できます。 中断式が nil 以外に評価されると、dolist ループは exp-break の値を返します。 中断条件は、body を評価する前に試されます。
Optionally, a condition for early loop exit may be defined in exp-break. If the break expression evaluates to any non-nil value, the dolist loop returns with the value of exp-break. The break condition is tested before evaluating body.

(set 'x 123)
(dolist (x '(a b c d e f g))  ; prints: abcdefg
    (print x))   g          ; return value

(dolist (x '(a b c d e f g) (= x 'e))  ; prints: abcd
    (print x))

;; x is local in dolist
;; x has still its old value outside the loop

x   123  ; x has still its old value

この例は、コンソール・ウィンドウに abcdefg を表示します。 dolistx はローカル・スコープなので、dolist が実行された後で x の値は変化せずに残ります。 dolist の戻り値は、最後に評価される式の結果です。
This example prints abcdefg in the console window. After the execution of dolist, the value for x remains unchanged because the x in dolist has local scope. The return value of dolist is the result of the last evaluated expression.

内部システム変数 $idx は、dolist に渡されたリストの現在のオフセットを保持し、実行中にアクセス可能です:
The internal system variable $idx keeps track of the current offset into the list passed to dolist, and it can be accessed during its execution:

(dolist (x '(a b d e f g))
  (println $idx ":" x))   g


太字がコンソール・アウトプットです。 $idx はプロテクトされていて、ユーザが変更することはできません。
The console output is shown in boldface. $idx is protected and cannot be changed by the user.

dostring utf8

syntax: (dostring (sym string [exp-break]) body)

string の各キャラクタ毎に body の式群が評価されます。 本体式群が評価される前に、変数 sym には 各 ASCII 値 か UTF-8 の整数値がセットされます。 ループ・インデックスとして使われる変数(訳注:変数 sym のこと)は、局所変数でダイナミック・スコープの規則に従って振舞います。
The expressions in body are evaluated for each character in string. The variable in sym is set to each ASCII or UTF-8 integer value of the characters before evaluation of the body expressions. The variable used as loop index is local and behaves according to the rules of dynamic scoping.

オプションの exp-break に早期ループ脱出条件を定義できます。 中断式が nil 以外に評価されると、dostring ループは exp-break の値を返します。 中断条件は、body を評価する前に試されます。
Optionally, a condition for early loop exit may be defined in exp-break. If the break expression evaluates to any non-nil value, the dolist loop returns with the value of exp-break. The break condition is tested before evaluating body.

; ASCII example
(set 'str "abcdefg")
(dostring (c str) (println c " - " (char c)))

97 - a
98 - b
99 - c
100 - d
101 - e
102 - f
103 - g

; UTF8 example
(set 'utf8str "我能吞下玻璃而不伤身体。")
(dostring (c utf8str) (println c " - " (char c)))

25105 - 我
33021 - 能
21534 - 吞
20307 - 体
12290 - 。 

この例では、コンソール・ウィンドウに各キャラクタの値が表示されます。 UTF-8 が使えるバージョンの newLISP では、個々のキャラクタが 1 バイトより大きくてループ変数の数値も 255 を超えるかもしれません。 dostring の戻り値は、最後に評価される式の結果です。
This example prints the value of each character in the console window. In UTF-8 enabled versions of newLISP, individual characters may be longer than one byte and the number in the loop variable may exceed 255. The return value of dostring is the result of the last evaluated expression.

内部システム変数 $idx は、dostring に渡された文字列の現在のオフセットを保持し、実行中にアクセス可能です。
The internal system variable $idx keeps track of the current offset into the string passed to dostring, and it can be accessed during its execution.


syntax: (dotimes (sym-var int-count [exp-break]) body)

body の式群が int 回評価されます。 本体式(群)が評価される前に、変数sym-var には 0 (zero) から (int - 1) までがセットされます。 ループ・インデックスとして使われる変数(訳注:変数 sym-var のこと)は dotimes での局所変数で、ダイナミック・スコープの規則に従って振舞います。 ループ・インデックスは整数型です。 dotimes は、body 中、最後に評価された式の結果を返します。 dotimes 宣言文の評価が終わった後、sym-var は以前の値になります。
The expressions in body are evaluated int times. The variable in sym is set from 0 (zero) to (int - 1) each time before evaluating the body expression(s). The variable used as the loop index is local to the dotimes expression and behaves according the rules of dynamic scoping. The loop index is of integer type. dotimes returns the result of the last expression evaluated in body. After evaluation of the dotimes statement sym assumes its previous value.

オプションの exp-break に早期ループ脱出条件を定義できます。 中断式が nil 以外に評価されると、dotimes ループは exp-break の値を返します。 中断条件は、body を評価する前に試されます。
Optionally, a condition for early loop exit may be defined in exp-break. If the break expression evaluates to any non-nil value, the dotimes loop returns with the value of exp-break. The break condition is tested before evaluating body.

(dotimes (x 10)
  (print x))   9  ; return value

これは、コンソール・ウィンドウに 0123456789 を表示します。
This prints 0123456789 to the console window.


syntax: (dotree (sym sym-context [bool]) body)

sym-context の全シンボルで、body の式群が評価されます。 シンボルはソート順にアクセスされます。 本体の式(群)が各々評価される前に、変数sym には sym-context からのシンボルが次々とセットされます。 ループ・インデックスとして使われる変数(訳注:変数 sym のこと)は dotree での局所変数で、ダイナミック・スコープの規則に従って振舞います。
The expressions in body are evaluated for all symbols in sym-context. The symbols are accessed in a sorted order. Before each evaluation of the body expression(s), the variable in sym is set to the next symbol from sym-context. The variable used as the loop index is local to the dotree expression and behaves according the rules of dynamic scoping.

オプションの bool 式が nil 以外に評価されると、アンダースコア・キャラクタ _ の付いたシンボル文字列のみがアクセスされます。 アンダースコア _ で始まるシンボル名は、hash keysbayes-train で作られるシンボルです。
When the optional bool expression evaluates to not nil, only symbols starting with an underscore character _ are accessed. Symbol names starting with an _ underscore are used for hash keys and symbols created by bayes-train.

dotree も、システム反復変数 $idx を更新します。
dotree also updates the system iterator symbol $idx.

;; faster and less memory overhead
(dotree (s SomeCTX) (print s " "))

;; slower and higher memory usage
(dolist (s (symbols SomeCTX)) (print s " "))

この例は、SomeCTX 内の全シンボル名をコンソール・ウィンドウに表示します。
This example prints the names of all symbols inside SomeCTX to the console window.


syntax: (dump [exp])

newLISP セルのバイナリ・データを表示します。 この関数に引数を与えないと、全ての Lisp セルがコンソールにリスト表示されます。 exp が与えられると、それが評価され、その Lisp セルの中身が(訳注:バイナリ・データの)リストで返ります。
Shows the binary contents of a newLISP cell. Without an argument, this function outputs a listing of all Lisp cells to the console. When exp is given, it is evaluated and the contents of a Lisp cell are returned in a list.

(dump 'a)    (9586996 5 9578692 9578692 9759280)

(dump 999)   (9586996 130 9578692 9578692 999)

The list contains the following memory addresses and information:

memory address of the newLISP cell
    major/minor 型、詳細は newlisp.h を見てください。
    major/minor type, see newlisp.h for details
    linked list ptr
    IEEE 754 倍精度浮動書数点数のロー・ワード
    string length+1 or
    low (little endian) or high (big endian) word of 64-bit integer or
    low word of IEEE 754 double float
    IEEE 754 倍精度浮動書数点数のハイ・ワード
    string/symbol address or
    high (little endian) or low (big endian) word of 64-bit integer or
    high word of IEEE 754 double float

この関数は、セルの型ビットを変更したり、newLISP 内部をハックするのに役立ちます。 わかりやすい例として、関数 cpymem を見てください。
This function is valuable for changing type bits in cells or hacking other parts of newLISP internals. See the function cpymem for a comprehensive example.


syntax: (dup exp int-n [bool])
syntax: (dup exp)

exp の式が文字列に評価されたなら、その文字列を int-n 回複製して返します。 nil 以外に評価される式を bool に指定すると、文字列は複製されますが連結されず、他のデータ型と同じようにリストになります。
If the expression in exp evaluates to a string, it will be replicated int-n times within a string and returned. When specifying an expression evaluating to anything other than nil in bool, the string will not be concatenated but replicated in a list like any other data type.

exp が文字列以外のデータ型の場合は、戻り値のリストには exp の評価値が int-n 個入ります。
If exp contains any data type other than string, the returned list will contain int-n evaluations of exp.

反復パラメータ無し時、dup は 2 を推定します。
Without the repetition parameter, dup assumes 2.

(dup "A" 6)        "AAAAAA"
(dup "A" 6 true)   ("A" "A" "A" "A" "A" "A")
(dup "A" 0)        ""
(dup "AB" 5)       "ABABABABAB"
(dup 9 7)          (9 9 9 9 9 9 9)
(dup 9 0)          ()
(dup 'x 8)         (x x x x x x x x)
(dup '(1 2) 3)     ((1 2) (1 2) (1 2))
(dup "\000" 4)     "\000\000\000\000"

(dup "*")          "**"

The last example shows handling of binary information, creating a string filled with four binary zeroes.

関数 sequenceseries も見てください。
See also the functions sequence and series.


syntax: (empty? exp)
syntax: (empty? str)

exp が空のリスト(あるいは、str が空の文字列)かどうかを試します。 引数に要素を含んでいるかどうかで、truenil が返ります。
exp is tested for an empty list (or str for an empty string). Depending on whether the argument contains elements, true or nil is returned.

(set 'var '())
(empty? var)          true
(empty? '(1 2 3 4))   nil
(empty? "hello")      nil
(empty? "")           true

The first example checks a list, while the second two examples check a string.


syntax: (encrypt str-source str-pad)

暗号帳となる文字列エンクリプション・パッド str-pad を使って、一回限りの暗号帳ワンタイム・パッド (OTP) で str-source を暗号化します。 str-pad が長くて、バイト列がランダムであればあるほど、暗号は安全になります。 暗号帳となる文字列エンクリプション・パッドがソース・テキストより長ければ、完全にランダムに一回だけ使われることになります。 つまり、一回限りの暗号帳ワンタイム・パッドで暗号化されたデータは一見ランダムなデータのように見えるので、ほとんど解読不可能になります。 オリジナルの復元には、同じ関数と暗号帳となる文字列エンクリプション・パッドを暗号化されたテキストに適用します:
Performs a one-time pad (OTP) encryption of str-source using the encryption pad in str-pad. The longer str-pad is and the more random the bytes are, the safer the encryption. If the pad is as long as the source text, is fully random, and is used only once, then one-time–pad encryption is virtually impossible to break, since the encryption seems to contain only random data. To retrieve the original, the same function and pad are applied again to the encrypted text:

(set 'secret 
  (encrypt "A secret message" "my secret key")) 

(encrypt secret "my secret key")   "A secret message"

The second example encrypts a whole file:

(write-file "myfile.enc" 
  (encrypt (read-file "myfile") "29kH67*"))


syntax: (ends-with str-data str-key [num-option])
syntax: (ends-with list exp)

第一構文の ends-with は、str-data の文字列が str-key で指定された文字列で終わるかどうかをテストします。 結果次第で、truenil が返ります。
In the first syntax, ends-with tests the string in str-data to see if it ends with the string specified in str-key. It returns true or nil depending on the outcome.

正規表現 option 番号が指定されると、str-key に正規表現パターンが使えます。 option で使える番号は regex で見てください。
If a regular expression option number is specified, str-key contains a regular expression pattern. See regex for valid numbers for option.

(ends-with "newLISP" "LISP")          true
(ends-with "newLISP" "lisp")          nil
;; use regular expressions
(ends-with "newLISP" "lisp|york" 1)   true

第二構文の ends-with は、(訳注:list の)リストが exp のリスト要素で終わっているかどうかをチェックします。 結果次第で、truenil が返ります。
In the second syntax, ends-with checks if a list ends with the list element in exp. true or nil is returned depending on outcome.

(ends-with '(1 2 3 4 5) 5)              true
(ends-with '(a b c d e) 'b)             nil
(ends-with '(a b c (+ 3 4)) '(+ 3 4))   true

最後の例は、exp にリスト自身も使えることを示しています。
The last example shows that exp could be a list by itself.

関数 starts-with も見てください。
See also the starts-with function.


syntax: (env)
syntax: (env var-str)
syntax: (env var-str value-str)

In the first syntax (without arguments), the operating system's environment is retrieved as an association list in which each entry is a key-value pair of environment variable and value.

 (("PATH" "/bin:/usr/bin:/sbin") ("TERM" "xterm-color") ... ))

第二構文では、var-str を環境変数に与えます。 env は変数の値を返すか、変数が環境に無い場合の nil を返します。
In the second syntax, the name of an environment variable is given in var-str. env returns the value of the variable or nil if the variable does not exist in the environment.

(env "PATH")   "/bin:/usr/bin:/usr/local/bin"

第三構文(変数名 var-str と対になる値 value-str)は、環境変数を設定するか、新規に作成します。 value-str が空文字列 "" なら、変数は環境から完全に削除されますが、Solaris 上で動作している時は、空の文字列が設定されます。
The third syntax (variable name in var-str and value pair in value-str) sets or creates an environment variable. If value-str is the empty string "", then the variable is completely removed from the environment except when running on Solaris, where the variable stays with an empty string.

(env "NEWLISPBIN" "/usr/bin/")   true
(env "NEWLISPBIN")               "/usr/bin/"
(env "NEWLISPBIN" "")            true
(env "NEWLISPBIN")               nil


syntax: (erf num)

erf は、num の値の誤差関数を計算します。 誤差関数は、次のように定義されます:
erf calculates the error function of a number in num. The error function is defined as:

erf (x) = 2/sqrt(pi) * integral from 0 to x of exp(-t^2) dt

(map erf (sequence 0.0 6.0 0.5))
(0 0.5204998778 0.8427007929 0.9661051465 0.995322265 0.999593048 
 0.9999779095 0.9999992569 0.9999999846 0.9999999998 1 1 1) 


syntax: (error-event sym-event-handler | func-event-handler)
syntax: (error-event nil)

sym-event-handler には、エラー操作のためのユーザ定義関数が入ります。 エラーが発生するとシステムは reset を実行し、ユーザ・エラー・ハンドラを実行します。 エラー・ハンドラでは、エラー番号とテキストを取り出すために、組込関数last-error が使えます。 イベント・ハンドラには、クォート付きのシンボルかラムダ関数を指定します。
sym-event-handler contains a user-defined function for handling errors. Whenever an error occurs, the system performs a reset and executes the user-defined error handler. The error handler can use the built-in function last-error to retrieve the number and text of the error. The event handler is specified as either a quoted symbol or a lambda function.

error-event をキャンセルするには、第二構文を使ってください。
To cancel error-event, use the second syntax.

(define (my-handler)    
  (print "error # " (first (last-error)) " has occurred\n") )

(error-event 'my-handler)   my-handler

;; specify a function directly

(error-event my-handler)   $error-event

  (fn () (print "error # " (first (last-error)) " has occurred\n")))

(error-event exit)   $error-event

エラーを扱う別の方法としては、catch を見てください。 ユーザ定義エラーを起こすには、 throw-error を使ってください。
For a different way of handling errors, see the catch function. Use throw-error to throw user-defined errors.


syntax: (eval exp)

evalexp の評価結果を現変数環境で評価します。
eval evaluates the result of evaluating exp in the current variable environment.

(set 'expr '(+ 3 4))   (+ 3 4)
(eval expr)            7
(eval (list + 3 4))    7
(eval ''x)             x
(set 'y 123)          
(set 'x 'y)           
x             y
(eval x)      123

As usual, evaluation of variables happens in the current variable environment:

; eval in global (top level) environment
(set 'x 3 'y 4)
(eval '(+ x y))           7

; eval in local environment
(let ( (x 33) (y 44) ) 
    (eval '(+ x y)))      77

; old environment after leaving local let environment
(eval '(+ x y))           7

newLISP は全ての引数を値で渡します。 クォート付きシンボルを使うと、シンボルを通した参照として式を渡すことができます。 つまり、シンボルの元の内容にアクセスするために eval が使えます:
newLISP passes all arguments by value. Using a quoted symbol, expressions can be passed by reference through the symbol. eval can be used to access the original contents of the symbol:

(define (change-list aList) (push 999 (eval aList)))

(set 'data '(1 2 3 4 5))

(change-list 'data)   (999 1 2 3 4 5)

例では、パラメータ 'data はクォート付ですので、push は元のリスト上で動作します。
In the example, the parameter 'data is quoted, so push can work on the original list.

コンテキスト・オブジェクト内にデータを内包する newLISP で、これは参照により引数を渡す安全な方法です。 参照によるデータの受け渡し の章を見てください。 名前空間を使ったユーザ定義関数に参照を渡すことは、渡されたシンボルが関数のパラメータとして使われている名前と同じ場合に起こりうるシンボル渡し時の変数補足 を避けます。
There is a safer method to pass arguments by reference in newLISP by enclosing the data inside context objects. See the chapter Passing data by reference. Passing references into user defined function using namespace ids avoids variable capture of the passed symbol, in case the symbol passed is the same used as a parameter in the function.


syntax: (eval-string str-source [sym-context [exp-error [int-offset]]])

str-source の文字列が newLISP の内部形式にコンパイルされ、評価されます。 評価結果が返ります。 文字列が一つより多い式を含むなら、最後に評価された結果が返ります。
The string in str-source is compiled into newLISP's internal format and then evaluated. The evaluation result is returned. If the string contains more than one expression, the result of the last evaluation is returned.

An optional second argument can be used to specify the context to which the string should be parsed and translated.

str-source の解析・評価中にエラーが発生すると、exp-error が評価され、結果が返ります。
If an error occurs while parsig and evaluating str-source then exp-error will be evaluated and the result returned.

int-offset はオプションで、str-source 内の評価を開始するオフセットを指定します。
int-offset specifies an optional offset into str-source, where to start evaluation.

(eval-string "(+ 3 4)")   7
(set 'X 123)              123
(eval-string "X")         123

(define (repl) ; read print eval loop
  (while true
    (println "=> " (eval-string (read-line) MAIN (last-error)))

(set 'a 10)
(set 'b 20)
(set 'foo:a 11)
(set 'foo:b 22)

(eval-string "(+ a b)")        30
(eval-string "(+ a b)" 'foo)   33

二番目の例は、簡単な newLISP インタープリタ評価ループを示しています。
The second example shows a simple newLISP interpreter eval loop.

最後の例は、翻訳時に使いたいコンテキストを指定する方法を示しています。 これにより、シンボル abMAIN の代わりに、コンテキスト foo のシンボルとその値を参照します。
The last example shows how to specify a target context for translation. The symbols a and b now refer to symbols and their values in context foo instead of MAIN.

評価せずに文字列を翻訳する関数 read-expr も見てください。
See also the function read-expr which translates a string without evaluating it.

eval-string-js JS

syntax: (eval-string-js str-JavaScript-source)

この関数は str-JavaScript-source にある(訳注:JavaScriput の)プログラム・ソースを受け取り、結果を文字列で返します。
The function takes a program source in str-JavaScript-source and returns the result in a string.

この関数は JavaScript にコンパイルされた newLISP でのみ、利用できます。
This function is only available on newLISP compiled to JavaScript.

(eval-string-js "window.prompt('Enter some text:', '')")

; JavaScropt 関数に渡す文字列の中に
; シングル・クォートやダブル・クォートを含めるためには、
; 先付のバックスラッシュ \(訳注;日本語環境では円記号 ¥ )が必要ですので、
; 文字列全体を [text], [/text] タグで囲って eval-string-js に渡します。
; for single and double quotes inside a string passed to a
; JavaScropt function, single and double quotes must be
; preceded by a backslash \ and the whole string passed
; to eval-string-js limited by [text], [/text] tags.

(eval-string-js [text]alert('A double quote: \" and a single quote: \' ')[/text])

(eval-string-js "6 * 7")

最初の式は、テキストを入力するダイアログをポップアップさせるでしょう。 そして、入力された文字列を返します。 二番目の式は、42 の文字列を返します。
The first expression will pop up a dialog box to enter text. The function will return the text string entered. The second expression will return the string 42.

ブラウザに HTML ページを表示する関数 display-html も見てください。
See also the function display-html for displaying an HTML page in the browser.

even?  bigint

syntax: (even? int-number)

整数値が 2ちょうど割り切れ 、余りが無いことをチェックします。 浮動小数点が int-number に渡された時は、小数部分を切り捨てた整数として扱われます。
Checks if an integer number is even divisible by 2, without remainder. When a floating point number is passed for int-number, it will be converted to an integer by cutting off its fractional part.

(even? 123)   nil
(even? 8)     true
(even? 8.7)   true

整数が 2 で割り切れないかどうかのチェックには、odd? を使ってください。
Use odd? to check if an integer is not divisible by 2.


syntax: (exec str-process)
syntax: (exec str-process [str-stdin])

第一形式の exec は、str-process に記載されているプロセスを起動し、すべての標準出力を(標準出力(STDOUT)の各ライン毎に一つの)文字列のリストで返します。 プロセスを起動できなかった場合、execnil を返します。 プロセスが起動しても、改行のみやエラーや出力なしの場合は空リストが返ります。
In the first form, exec launches a process described in str-process and returns all standard output as a list of strings (one for each line in standard out (STDOUT)). exec returns nil if the process could not be launched. If the process could be launched but only returns and error and no valid output, the empty list will be returned.

(exec "ls *.c")   ("newlisp.c" "nl-math.c" "nl-string.c")

この例は、プロセスを開始してシェル・コマンドls を実行し、文字列のアレイの出力を取り込みます。
The example starts a process and performs the shell command ls, capturing the output in an array of strings.

第二形式の exec は、パイプ・プロセスを生成し、プロセスの標準入力を str-stdin から受け取る str-process のプロセスを開始します。 起動に成功すれば、戻り値は true となり、そうでなければ nil となります。
In the second form, exec creates a process pipe, starts the process in str-process, and receives from str-stdin standard input for this process. The return value is true if the process was successfully launched; otherwise it is nil.

(exec "cgiProc" query)

この例では、cgiProc は cgi プロセッサ(例えば、Perl や newLISP)で変数 query 内の文字列に供給される標準入力を受け取り、処理します。
In this example, cgiProc could be a cgi processor (e.g., Perl or newLISP) that receives and processes standard input supplied by a string contained in the variable query.


syntax: (exists func-condition list)

func-conditionlist の要素に次々と適用して、func-condition の条件に合う最初の要素を返します。 条件に合う要素がなければ、nil が返ります。
Successively applies func-condition to the elements of list and returns the first element that meets the condition in func-condition. If no element meets the condition, nil is returned.

(exists string? '(2 3 4 6 "hello" 7))        "hello"

(exists string? '(3 4 2 -7 3 0))             nil

(exists zero? '(3 4 2 -7 3 0))               0 ; check for 0 or 0.0

(exists < '(3 4 2 -7 3 0))                   -7 ; check for negative

(exists (fn (x) (> x 3)) '(3 4 2 -7 3 0))    4

(exists (fn (x) (= x 10)) '(3 4 2 -7 3 0))   nil 

func-conditionnil? ならば、結果の nil はどちらにでも取れます。 このような場合に、nil を見つけるより良い方法は indexfind です。
If func-condition is nil?, the result nil is ambiguous. In this case index or find are the better method when looking for nil.

リスト中の全ての要素が条件に合っているかどうかをチェックするには、関数 for-all を使います。
Use the for-all function to check if a condition is met for all elements in a list.


syntax: (exit [int])

newLISP を終了します。 オプションの終了コード int が与えられます。 このコードは、ホストのオペレーティングシステムでテストされます。 newLISP がコマンド・ライン・オプション -d を使って デーモン・サーバー・モード で走っている時は、ネットワーク接続のみが閉じられ、newLISP はそのまま残り、新しい接続を待ちます。
Exits newLISP. An optional exit code, int, may be supplied. This code can be tested by the host operating system. When newLISP is run in daemon server mode using -d as a command-line option, only the network connection is closed, while newLISP stays resident, listening for a new connection.

(exit 5)


syntax: (exp num)

num の式が評価され、その結果のもとに(訳注:底が e の)指数関数を計算します。 explog の逆関数です。
The expression in num is evaluated, and the exponential function is calculated based on the result. exp is the inverse function of log.

(exp 1)         2.718281828
(exp (log 1))   1


syntax: (expand exp sym-1 [sym-2 ... ])
syntax: (expand exp list-assoc [bool])
syntax: (expand exp)

第一構文では、sym(あるいは sym-2 から sym-nの複数シンボル)の一シンボルが、単純な式もしくは入れ子の式 exp 内で検索されます。 そして、検索されたシンボルの現在の束縛に展開され(訳注:exp 中の sym と同名のシンボルが sym の内容に置き換わる)、展開された式が返ります。元のリストは変化せずに残ります。
In the first syntax, one symbol in sym (or more in sym-2 through sym-n) is looked up in a simple or nested expression exp. They are then expanded to the current binding of the symbol and the expanded expression is returned. The original list remains unchanged.

(set 'x 2 'a '(d e))
(set 'foo 'a)
(expand foo 'a)                (d e)
(expand '(a x b) 'x)            (a 2 b)
(expand '(a x (b c x)) 'x)      (a 2 (b c 2))
(expand '(a x (b c x)) 'x 'a)   ((d e) 2 (b c 2))

expand は、ラムダ式を構成する時や内部書換マクロで変数を展開する時に役立ちます。
expand is useful when composing lambda expressions or doing variable expansion as in rewrite macros.

(define (raise-to power)
  (expand (fn (base) (pow base power)) 'power))

(define square (raise-to 2))
(define cube (raise-to 3))

(square 5)   25
(cube 5)     125

一個以上のシンボルがある時、expand はインクリメンタルに作用します:
If more than one symbol is present, expand will work in an incremental fashion:

(set 'a '(b c))
(set 'b 1)

(expand '(a b c) 'a 'b)   ((1 c) 1 c) 

関数 apply のように、expand は引数リストを畳み込み ます。
Like the apply function, expand reduces its argument list.

syntax: (expand list list-assoc [bool])

expand の第二構文は直接(訳注:連想リスト list-assoc で)指定された束縛の展開を許可しますので、関連する変数(訳注:連想リストの変数)において set を実行する必要はありません:
The second syntax of expand allows expansion bindings to be specified on the fly, without performing a set on the participating variables:

booltrue に評価されると、連想リストの値部分は評価されます。
If the bool evaluates to true, the value parts in the association list are evaluated.

(expand '(a b c) '((a 1) (b 2)))                 (1 2 c)
(expand '(a b c) '((a 1) (b 2) (c (x y z))))     (1 2 (x y z))
(expand '(a b) '((a (+ 1 2)) (b (+ 3 4))))       ((+ 1 2) (+ 3 4))
(expand '(a b) '((a (+ 1 2)) (b (+ 3 4))) true)  (3 7)

(訳注:booltrue でない時、)連想リストの変数の内容が変化しないことに注意してください。 これが、連想部分の評価と割り当てで変数が設定される関数 letex との違いです。
Note that the contents of the variables in the association list will not change. This is different from the letex function, where variables are set by evaluating and assigning their association parts.

expand のこの形式は、関数 unify との併用で論理プログラミングによく使われます。
This form of expand is frequently used in logic programming, together with the unify function.

syntax: (expand list)

第三構文は、大文字で始まる変数の内容を展開する時にのみ使われます。 この PROLOG モードは、論理プログラミング環境でも使われます。 expand の第一構文のように、シンボルは予めセットされていなければなりません。 大文字で nil 以外に束縛される変数のみが展開されます:
A third syntax is used to expand only the contents of variables starting with an uppercase character. This PROLOG mode may also be used in the context of logic programming. As in the first syntax of expand, symbols must be preset. Only uppercase variables and those bound to anything other than nil will be expanded:

(set 'A 1 'Bvar 2 'C nil 'd 5 'e 6)
(expand '(A (Bvar) C d e f))   (1 (2) C d e f)

大文字で始まり、nil でない中身を持つシンボル ABvar のみが展開されます。
Only the symbols A and Bvar are expanded because they have capitalized names and non-nil contents.

expand の第一構文を実演している例題の カリー化 関数は、大文字変数を使ってより簡単になります:
The currying function in the example demonstrating the first syntax of expand can now be written even more simply using an uppercase variable:

(define (raise-to Power) 
  (expand (fn (base) (pow base Power))))

> (define cube (raise-to 3))
(lambda (base) (pow base 3))

> (cube 4)

> _

展開機構を提供する関数 letexexpand と一緒によく使われる関数 unify も見てください。
See the letex function, which also provides an expansion mechanism, and the function unify, which is frequently used together with expand.

explode utf8

syntax: (explode str [int-chunk [bool]])
syntax: (explode list [int-chunk [bool]])

第一構文の explode は、文字列 (str) を一文字ずつの文字列リストに変換します。 オプションで、文字列を複数個の文字の集合に分けるために、集合サイズを int-chunk に指定できます。 bool の値が nil 以外の時、int-chunk で指定された長さを満たさない最後の集合は削除されます。
In the first syntax, explode transforms the string (str) into a list of single-character strings. Optionally, a chunk size can be specified in int-chunk to break the string into multi-character chunks. When specifying a value for bool other than nil, the last chunk will be omitted if it does not have the full length specified in int-chunk.

(explode "newLISP")   ("n" "e" "w" "L" "I" "S" "P")

(join (explode "keep it together"))   "keep it together"

(explode "newLISP" 2)     ("ne" "wL" "IS" "P")

(explode "newLISP" 3)     ("new" "LIS" "P")

; omit last chunk if too short
(explode "newLISP" 3 true)     ("new" "LIS")

UTF8版でなければ、explode はバイナリ・データにも作用します:
Only on non UTF8– enabled versions, explode also works on binary content:

(explode "\000\001\002\003") 
 ("\000" "\001" "\002" "\003")

UTF-8 版 newLISP で呼ばれた explode は、バイト境界ではなくキャラクタ境界で動作します。 UTF-8 エンコード文字列で、文字は 1 バイト以上から成っています。 (訳注:UTF-8 版 newLISP は、)ゼロ・バイト・キャラクタ(訳注:"\000")を見つけると処理を終了します。
When called in UTF-8–enabled versions of newLISP, explode will work on character boundaries rather than byte boundaries. In UTF-8–encoded strings, characters may contain more than one byte. Processing will stop when a zero byte character is found.

UTF-8 版 newLISP でバイナリ・データを展開したい時は、次の例で示される unpack を使ってください:
To explode binary contents on UTF-8–enabled versions of newLISP use unpack as shown in the following example:

(set 'str "\001\002\003\004")  "\001\002\003\004"

(unpack (dup "c" (length str)) str)  (1 2 3 4)
(unpack (dup "s" (length str)) str)  ("\001" "\002" "\003" "\004")
(訳例:unpack"c" オプションは符号付です。符号無しには "b" オプションを使います。
> (set 'str "\000\001\128\255")
> (unpack (dup "c" (length str)) str)
(0 1 -128 -1)
> (unpack (dup "b" (length str)) str)
(0 1 128 255)
上記例は、UTF-8 版でない newLISPを使っていますが、 動作は set 文の戻り値の表示以外は UTF-8 版 newLISPでも同じです。 )

第二構文の explode は、int-chunk の集合サイズのサブ・リストにリストを分解します。 int-chunk のデフォルトは 1 です。
In the second syntax, explode explodes a list (list) into sublists of chunk size int-chunk, which is 1 (one) by default.

次に示す例は、bool 値が nil 以外の時に、集合が int-chunk で指定された長さを満たさない最後の集合を削除するものです。
The following shows an example of the last chunk being omitted when the value for bool is other than nil, and the chunk does not have the full length specified in int-chunk.

(explode '(a b c d e f g h))     ((a) (b) (c) (d) (e) (f) (g) (h))
(explode '(a b c d e f g) 2)   ((a b) (c d) (e f) (g))

; omit last chunk if too short
(explode '(a b c d e f g) 2 true)   ((a b) (c d) (e f))

(transpose (explode '(a b c d e f g h) 2)) 
 ((a c e g) (b d f h))

関数 joinappendexplode 操作の逆操作です。
The join and append functions are inverse operations of explode.

extend !

syntax: (extend list-1 [list-2 ... ])
syntax: (extend string-1 [string-2 ... ])

list-1 のリストに list-2 が追加されて拡張されます。 一個以上のリストが追加されます。
The list in list-1 is extended by appending list-2. More than one list may be appended.

string-1 の文字列に string-2 が追加されて拡張されます。 一個以上の文字列が追加されます。 文字列には、バイナリ 0(ゼロ)文字を含めることができます。
The string in string-1 is extended by appending string-2. More than one string may be appended. The string can contain binary 0 (zero) characters.

The first parameter can be an un-initialized variable.

The extended list or string is returned.

; extending lists

(extend lst '(a b) '(c d))  (a b c d)
(extend lst '(e f g))  (a b c d e f)
lst  (a b c d e f g)

; extending strings

(extend str "ab" "cd")  "abcd"
(extend str "efg")  "abcdefg"
str  "abcdefg"

; extending in place

(set 'L '(a b "CD" (e f)))
(extend (L 2) "E")
L  (a b "CDE" (e f))

(extend (L 3) '(g))
L  (a b "CDE" (e f g))

リストや文字列の非破壊拡張には、append を見てください。
For a non-destructive list or string extension see append.


syntax: (factor int)

int の数値を素因数分解します。 num が浮動小数点数なら、整数部分に切り捨てられます。
Factors the number in int into its prime components. Floating point numbers in num are truncated to their integer part.

(factor 123456789123456789)   (3 3 7 11 13 19 3607 3803 52579)

;; check correctness of factoring
(= (apply * (factor 123456789123456789)) 123456789123456789)

;; factor the biggest integer
(factor 9223372036854775807)   (7 7 73 127 337 92737 649657)

;; primes.lsp - return all primes in a list, up to n 

(define (primes n , p)
  (dotimes (e n) 
    (if (= (length (factor e)) 1) 
      (push e p -1))) p)
(primes 20)   (2 3 5 7 11 13 17 19)         

factor2 より小さい数値で nil を返します。 浮動小数点数から変換された 9,223,372,036,854,775,807 (64ビット整数の最大値) より大きい数値は、整数の最大値で因数分解されます。
factor returns nil for numbers smaller than 2. For numbers larger than 9,223,372,036,854,775,807 (the largest 64-bit integer) converted from floating point numbers, the largest integer is factored.


syntax: (fft list-num)

FFT (Fast Fourier Transform) 法を使って、list-num の複素数リストを離散的フーリエ変換します。 各複素数は実数部とそれに続く虚数部で指定されます。 実数部のみを使う場合は、虚数部は 0.0 (zero) にセットされます。 list-num の要素数が 2の倍数でない時、fft はゼロでリストを埋めて要素数を増やします。 複素数の虚数部が 0 の時は、複素数の代わりに単なる数値が使えます。
Calculates the discrete Fourier transform on the list of complex numbers in list-num using the FFT method (Fast Fourier Transform). Each complex number is specified by its real part followed by its imaginary part. If only real numbers are used, the imaginary part is set to 0.0 (zero). When the number of elements in list-num is not a power of 2, fft increases the number of elements by padding the list with zeroes. When the imaginary part of a complex number is 0, simple numbers can be used instead.

(ifft (fft '((1 0) (2 0) (3 0) (4 0)))) 
 ((1 0) (2 0) (3 0) (4 0))

;; when imaginary part is 0, plain numbers work, too
;; plain numbers and complex numbers can be intermixed

(fft '(1 2 3 4))       ((10 0) (-2 -2) (-2 0) (-2 2))
(fft '(1 2 (3 0) 4))   ((10 0) (-2 -2) (-2 0) (-2 2))

fft の逆操作は関数 ifft です。
The inverse operation of fft is the ifft function.


syntax: (file-info str-name [int-index [bool-flag]])

str_name のファイルかディレクトリの情報をリストで返します。 オプションのインデックスで、戻り値のリスト番号を指定できます。 bool-flag が指定されないか、nilに評価されると、ファイルがオリジナル・ファイルにリンクしていても、リンクの情報が返ります。 bool-flagnil 以外に評価されると、リンクで参照されるオリジナル・ファイルの情報が返されます。 (訳注:リンクは、MS Windows のショート・カットとは違います。 つまり、MS Windows で bool-flag オプションを使っても、何も変わりません。)
Returns a list of information about the file or directory in str_name. The optional index specifies the list member to return. When no bool-flag is specified or when bool-flag evaluates to nil information about the link is returned if the file is a link to an original file. If bool-flag evaluates to anything else than nil, information about the original file referenced by the link is returned.

1mode (differs with true flag)
2device mode
3user ID
4group ID
access time
modification time
status change time

bool-flag の状態次第で、関数はリンク(フラグ無し、または、nil)か、リンクしているオリジナル・ファイル(true フラグ)のどちらかを報告します。
Depending on bool-flag set, the function reports on either the link (no flag or nil flag) or on the original linked file (true flag).

(file-info ".bashrc")   
 (124 33188 0 500 0 920951022 920951022 920953074)

(file-info ".bashrc" 0)   124

(date (file-info "/etc" -1))   "Mon Mar 8 18:23:17 2005"

二番目の例では、最後のディレクトリ /etc の作成日時が取り出されています。
In the second example, the last status change date for the directory /etc is retrieved.

file-infomode 部を除いて、リンクではなく、リンクされているファイルのファイル統計値 (サイズ) を与えます。
file-info gives file statistics (size) for a linked file, not the link, except for the mode field.


syntax: (file? str-path-name [bool])

str-name のファイルの存在をチェックします。 ファイルが存在すれば true を、そうでなければ nil を返します。 この関数はディレクトリに対しても true を返します。 オプションの bool 値が true の場合、ファイルはディレクトリでなければ str-path-name が返り、ファイルがディレクトリなら nil が返ります。 ファイルの存在は、読み書き許可等の情報を含みませんので、カレント・ユーザによる読み書きの許可を持たない存在かもしれません。
Checks for the existence of a file in str-name. Returns true if the file exists; otherwise, it returns nil. This function will also return true for directories. If the optional bool value is true, the file must not be a directory and str-path-name is returned or nil if the file is a directory. The existence of a file does not imply anything about its read or write permissions for the current user.

(if (file? "afile") (set 'fileNo (open "afile" "read")))

(file? "/usr/bin/newlisp" true)  "/usr/bin/newlisp"
(file? "/usr/bin/foo" true)      nil


syntax: (filter exp-predicate exp-list)

exp-predicate の述部を exp-list のリストの各要素に適用します。 exp-predicatetrue となる要素の入ったリストが返ります。 filter は、述部を否定的に使った clean のように動作します。
The predicate exp-predicate is applied to each element of the list exp-list. A list is returned containing the elements for which exp-predicate is true. filter works like clean, but with a negated predicate.

(filter symbol? '(1 2 d 4 f g 5 h))   (d f g h)

(define (big? x) (> x 5))   (lambda (x) (> x 5))

(filter big? '(1 10 3 6 4 5 11))   (10 6 11)

; filter with comparison functor
(set 'L '((a 10 2 7) (b 5) (a 8 3) (c 8) (a 9)))

(filter (curry match '(a *)) L)    ((a 10 2 7) (a 8 3) (a 9))

(filter (curry match '(? ?)) L)    ((b 5) (c 8) (a 9))

(filter (curry match '(* 8 *)) L)  ((a 8 3) (c 8))

The predicate may be a built-in predicate, a user-defined function, or a lambda expression.

別のリストを使ってリストの要素をフィルタリングするのには、(listモードの)関数 difference か、関数intersect を使います。
For filtering a list of elements with the elements from another list, use the difference function or intersect (with the list option).

同様の関数として、フィルタされた要素のインデックスを返す関数 index と述部が偽(訳注:nil)となるリストの要素を全て返す関数 clean も見てください。
See also the related function index, which returns the indices of the filtered elements and clean, which returns all elements of a list for which a predicate is false.


syntax: (find exp-key list [func-compare | regex-option])
syntax: (find str-key str-data [regex-option [int-offset]])

Find an expression in a list(リスト中に式を見つける)

第二引数list がリストに評価されると、findexp-key の評価値が得られる要素のインデックス位置(オフセット)を返します。
If the second argument evaluates to a list, then find returns the index position (offset) of the element derived from evaluating exp-key.

オプションで、演算子かユーザ定義関数を func-compare に指定できます。 exp-key が文字列なら、正規表現オプションが regex-option パラメータとして指定できます。
Optionally, an operator or user-defined function can be specified in func-compare. If the exp-key is a string, a regular expression option can be specified with the regex-option parameter.

正規表現か、比較ファンクタ(関数オブジェクト)を使った時は、システム変数 $0 に見つかった最後の要素がセットされます。
When using regular expressions or comparison functors the system variable $0 is set to the last element found.

; find an expression in a list
(find '(1 2) '((1 4) 5 6 (1 2) (8 9)))   3

(find "world" '("hello" "world"))        1
(find "hi" '("hello" "world"))           nil

(find "newlisp" '("Perl" "Python" "newLISP") 1)   2

; use the comparison functor
(find 3 '(8 4 3  7 2 6) >)   4
$0  2

(find "newlisp" '("Perl" "Python" "newLISP") 
                 (fn (x y) (regex x y 1)))  2
$0  "newLISP"

(find 5 '((l 3) (k 5) (a 10) (z 22)) 
         (fn (x y) (= x (last y))))   1
$0  (k 5)

(find '(a ?) '((l 3) (k 5) (a 10) (z 22)) match)   2
$0  (a 10)

(find '(X X) '((a b) (c d) (e e) (f g)) unify)   2
$0  (e e)

; define the comparison functor first for better readability
(define (has-it-as-last x y) (= x (last y)))

(find 22 '((l 3) (k 5) (a 10) (z 22)) has-it-as-last)   3
$0  (z 22)

matchunify を使ったリスト検索は、文字列に対する正規表現のよりパワフルな定型化が可能になります。
Using match and unify, list searches can be formulated which are as powerful as regular expression searches are for strings.

Find a string in a string(文字列中に文字列を見つける)

第二引数 str-data が文字列に評価されると、(第一引数 str-data で最初に見つかった)str-key 文字列のオプセット位置が返ります。 この場合、find はバイナリの str-data にも動作します。 返ってくるオフセット位置は、UTF-8 バージョンの newLISP であっても、常に 1 バイト単位で計数されます。
If the second argument, str-data, evaluates to a string, then the offset position of the string str-key (found in the first argument, str-data) is returned. In this case, find also works on binary str-data. The offset position returned is always based on counting single byte characters even when running the UTF-8 enabled version of newLISP.

第三パラメータの存在は、(例えば、大文字小文字を区別しない 1(一)か、区別する 0(ゼロ)の)regex-option で指定されるオプション番号と共に str-pattern の正規表現パターンを使った検索を指定します。 regex-option が指定されると、文字列の先頭からでなく、与えられたオフセットからの検索を始めるために int-offset 引数も指定可能です。 いずれにせよ、find が返す位置は文字列の先頭から計算されます。
The presence of a third parameter specifies a search using the regular expression pattern specified in str-pattern, as well as an option number specified in regex-option (i.e., 1 (one) for case-insensitive search or 0 (zero) for no special options). If regex-option is specified an optional int-offset argument can be specified too to start the search not at the beginning but at the offset given. In any case the position returned by find is calculated relative to the beginning of the string.

正規表現を用いない単純な文字列検索で int-offset を指定するには、regex-optionnil を指定してください。
To specify int-offset in a simple string search without regular expressions, specify nil for regex-option.

newLISP では、正規表現は標準のPerl互換正規表現 (PCRE) 検索です。 見つかった式や部分式は、システム変数$0, $1, $2等々に入り、他のシンボルのように扱えます。 これらの変数の内容は ($ 0), ($ 1), ($ 2)等々を代わりに使ってもアクセスできます。 この方法は、インデックスを使ったアクセスを許可します(例えば ($ i)、ここで i は整数)。
In newLISP, regular expressions are standard Perl Compatible Regular Expression (PCRE) searches. Found expressions or subexpressions are returned in the system variables $0, $1, $2, etc., which can be used like any other symbol. As an alternative, the contents of these variables can also be accessed by using ($ 0), ($ 1), ($ 2), etc. This method allows indexed access (i.e., ($ i), where i is an integer).

正規表現検索におけるオプション番号の意味や詳しい情報は、regex を見てください。
See regex for the meaning of the option numbers and more information on regular expression searching.

; simple string search
(find "world" "Hello world")   6
(find "WORLD" "Hello woRLd")   nil

; case-insensitive regex

(find "WorlD" "Hello woRLd" 1)   6   
(find "hi" "hello world")        nil
(find "Hello" "Hello world")     0

; regex with default options

(find "cat|dog" "I have a cat" 0)   9 
$0                                  "cat"
(find "cat|dog" "my dog" 0)         3
$0                                  "dog"
(find "cat|dog" "MY DOG" 1)         3
$0                                  "DOG"

; use an optional offset
(find "cat|dog" "I have a cat and a dog" 0)     9
(find "cat|dog" "I have a cat and a dog" 0 12)  19

;; find with subexpressions in regular expression
;; and access with system variables

(set 'str  "")

(find "http://(.*):(.*)" str 0)   0
$0   ""
$1   ""
$2   "80"

;; system variables as an indexed expression (since 8.0.5)
($ 0)   ""
($ 1)   ""
($ 2)   "80"

他に正規表現を使う関数としては、 directoryfind-allparseregexreplacesearch を見てください。
For other functions using regular expressions, see directory, find-all, parse, regex, replace, and search.

入れ子になった式や多次元リストの検索には、refref-all を使ってください。
To find expressions in nested or multidimensional lists, use the ref and ref-all functions.


syntax: (find-all str-regex-pattern str-text [exp [regex-option]])
syntax: (find-all list-match-pattern list [exp])
syntax: (find-all exp-key list [exp [func-compare]])

第一構文の find-all は、テキストstr-text 中に str-regex-pattern の出現を全て見つけ、一致した全ての文字列のリストを返します。 一致するもが見つからない時は、空リスト () が返ります。 第一構文では、regex-option の指定がなくても、文字列検索は正規表現パターンを使って行われます。 システム変数 $count が検出された一致数で更新されます。
In the first syntax, find-all finds all occurrences of str-regex-pattern in the text str-text, returning a list containing all matching strings. The empty list () is returned if no matches are found. In the first syntax string searches are always done using regular expression patterns, even if no regex-option is specified. The system variable $count is updated with the number of matches found.

オプションで、戻りリストに入る前の見つかった文字列や正規表現部分式を処理する式が指定できます。 追加オプション regex-option は、特殊正規表現のオプションです(詳細は、regex を見てください)。
Optionally, an expression can be specified to process the found string or regular subexpressions before placing them into the returned list. An additional option, regex-option, specifies special regular expression options (see regex for further details).

(find-all {\d+} "lkjhkljh34ghfdhgfd678gfdhfgd9")
 ("34" "678" "9")

$count  3

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

(unique (sort 
    (find-all {[a-zA-Z]+} 
        (replace "<[^>]+>" (get-url "") "" 0) )
 ("A" "ACC" "AI" "API" "About" "All" "Amazing" "Apps"
"where" "whole" "width" "wiki" "will" "with" "work" "written")

; use $count in evaluated expr
(find-all "a" "ababab" (string $count $it))  ("1a" "2a" "3a")

最初の例は、テキスト中の全ての数字を見つけています。 二番目の例は、正規表現パターン str-pattern で検索された部分式に、オプション式 exp がどのように動作するかを示しています。 最後の例は、ウェブ・ページを取り込み、HTMLタグを消去してから、全ての単語を単一(訳注:重複する単語がない)にして、ソートしたリストに集めています。
The first example discovers all numbers in a text. The second example shows how an optional expression in exp can work on subexpressions found by the regular expression pattern in str-pattern. The last example retrieves a web page, cleans out all HTML tags, and then collects all words into a unique and sorted list.

文字列に対しての find-all は、regex-option がなくても、常に正規表現検索を実行することに注意してください。
Note that find-all with strings always performs a regular expression search, even if the option in regex-option is omitted.

第二構文の find-all は、list 中でパターン list-match-patternmatch する全てのリストを探し出します。 文字列に対しての find-all のように、list で見つかる match した部分リストを処理する式が exp に指定できます。 システム変数 $count は検出された一致数で更新されます。
In the second syntax, find-all searches for all list match patterns list-match-pattern in list. As in find-all for strings, an expression can be specified in exp to process further the matched sublist found in list. The system variable $count is updated with the number of matches found.

(find-all '(? 2) '((a 1) (b 2) (a 2) (c 4)))  ((b 2) (a 2))

(find-all '(? 2) '((a 1) (b 2) (a 2) (c 4)) (first $it))  (b a)

$count  2

リスト合致用の find-all は、部分リスト検索時の比較に match を使い、常にパターン表現のリストを必要とします。
find-all for list matches always uses match to compare when searching for sublists and always needs a list for the pattern expression.

第三構文の find-all では、リスト要素とキーとなる exp-key 式の比較用に、組込かユーザ定義関数が指定できます:
In the third syntax, find-all can specify a built-in or user-defined function used for comparing list elements with the key expression in exp-key:

(find-all 5 '(2 7 4 5 9 2 4 9 7 4 8) $it <)  (7 9 9 7 8)

; process the found element available in $it

(find-all 5 '(2 7 4 5 9 2 4 9 7 4 8) (* 3 $it) <)  (21 27 27 21 24)
; same as
(find-all 5 '(2 7 4 5 9 2 4 9 7 4 8) (* 3 $it) (fn (x y) (< x y)))  (21 27 27 21 24)

(find-all 5 '(2 7 4 5 9 2 4 9 7 4 8) ("abcdefghijk" $it) <)  ("h" "j" "j" "h" "i")

$count  5

; use $count
(find-all 'a '(a b a b a b) (list $count $it))  ((1 a) (2 a) (3 a))

検索する式やリストに含める式は、どんな型も可能です。 この構文の find-allfilter のように動作しますが、 追加の利点として、見つけた要素を処理する式が定義できます。
Any type of expression can be searched for or can be contained in the list. find-all in this syntax works similar to filter but with the added benefit of being able to define a processing expression for the found element.

func-compare が定義されず、exp-key がリストなら、第二構文としての match が比較に使われるでしょう。
If no func-compare is defined and exp-key is a list, then match will be used for comparison, as in the second syntax.

first utf8

syntax: (first list)
syntax: (first array)
syntax: (first str)

リストの最初の要素や文字列の最初の文字を返します。 引数は変わりません。 この関数は、他の Lisp方言の carhead と等価です。
Returns the first element of a list or the first character of a string. The operand is not changed. This function is equivalent to car or head in other Lisp dialects.

(first '(1 2 3 4 5))        1
(first '((a b) c d))        (a b)
(set 'aList '(a b c d e))   (a b c d e)
(first aList)               a
aList                       (a b c d e)
(set 'A (array 3 2 (sequence 1 6)))
  ((1 2) (3 4) (5 6))
(first A)                   (1 2)

(first '())                 ERR: list is empty

第三構文では、文字列 str から、最初の文字が文字列として返ります。
In the third syntax, the first character is returned from the string in str as a string.

(first "newLISP")          "n"
(first (rest "newLISP"))   "e"

UTF-8 版の newLISP を使うと、first はバイト境界ではなく、キャラクタ境界で動作します。 関数 lastrest も見てください。
Note that first works on character boundaries rather than byte boundaries when the UTF-8–enabled version of newLISP is used. See also the functions last and rest.


syntax: (flat list [int-level])

Returns a flattened list from a list:

(set 'lst '(a (b (c d))))
(flat lst)   (a b c d)

(map (fn (x) (ref x lst)) (flat lst))
 ((0) (1 0) (1 1 0) (1 1 1))

オプションのパラメータ int-level は、リストをフラット化する時の入れ子レベルを制限します。
The optional int-level parameter can be used to limit the recursion level when flattening the list:

(flat '(a b (c d (e f)) (g h (i j))) )    (a b c d e f g h i j)

(flat '(a b (c d (e f)) (g h (i j))) 1)   (a b c d (e f) g h (i j))

(flat '(a b (c d (e f)) (g h (i j))) 2)   (a b c d e f g h i j)

int-level0 の時、フラット化は行われません。
If int-level is 0, no flattening will occur.

flat を使えば、入れ子リストでも繰り返しに使えるようになります。
flat can be used to iterate through nested lists.


syntax: (float exp [exp-default])

exp の式が数値か文字列に評価されたなら、引数が浮動小数点数に変換され、返されます。 exp が浮動小数点数に変換できないなら、 nil か、指定された exp-default の評価が返されます。 この関数は、主にユーザ入力やテキストの読み取り・解析時の文字列の変換に使われます。 文字列は、数値か +(プラス記号)か -(マイナス記号)か .(ピリオド)で始まっている必要があります。 exp が無効なら、float はデフォルト値として nil を返します。
If the expression in exp evaluates to a number or a string, the argument is converted to a float and returned. If exp cannot be converted to a float then nil or, if specified, the evaluation of exp-default will be returned. This function is mostly used to convert strings from user input or when reading and parsing text. The string must start with a digit or the + (plus sign), - (minus sign), or . (period). If exp is invalid, float returns nil as a default value.

指数項が 1e308 より大きいか、-1e308 より小さい浮動小数点数は、それぞれ +INF か -INF に変換されます。 +INF と -INF の表示は、プラットフォームやコンパイラによって異なります。
Floats with exponents larger than 1e308 or smaller than -1e308 are converted to +INF or -INF, respectively. The display of +INF and -INF differs on different platforms and compilers.

(float "1.23")        1.23
(float " 1.23")       1.23
(float ".5")          0.50
(float "-1.23")       -1.23
(float "-.5")         nil
(float "#1.23")       nil
(float "#1.23" 0.0)   0

(float? 123)           nil
(float? (float 123))   true

(float '(a b c))     nil
(float '(a b c) 0)   0
(float nil 0)        0

(float "abc" "not a number")   "not a number"
(float "1e500")                inf
(float "-1e500")               -inf

(print "Enter a float num:")
(set 'f-num (float (read-line)))

整数値の構文解析には、関数 int を使ってください。
Use the int function to parse integer numbers.


syntax: (float? exp)

exp が浮動小数点数に評価される時のみ true が、そうでない時に nil が返ります。
true is returned only if exp evaluates to a floating point number; otherwise, nil is returned.

(set 'num 1.23)
(float? num)   true
> (sqrt -1)
> (float? (sqrt -1))
> (div 1 0)
> (float? (div 1 0))
 NaNINF の型は、浮動小数点数です。)


syntax: (floor number)

浮動小数点数の number より、次に小さい整数値が返ります。
Returns the next lowest integer below number as a floating point.

(floor -1.5)   -2
(floor 3.4)    3

関数 ceil も見てください。
See also the ceil function.


syntax: (flt number)

number を32ビット浮動小数点数の整数表現に変換します。 この関数は、ライブラリ・ルーチンへ 32 ビット浮動小数点数を渡す時に使われます。 newLISP の浮動小数点数は 64 ビットで、導入した C ライブラリ・ルーチンを呼び出す時は、64ビット浮動小数点数が渡されます。
Converts number to a 32-bit float represented by an integer. This function is used when passing 32-bit floats to library routines. newLISP floating point numbers are 64-bit and are passed as 64-bit floats when calling imported C library routines.

(flt 1.23)   1067282596

;; pass 32-bit float to C-function: foo(float value) 
(import "" "foo")
(foo (flt 1.23))

(get-int (pack "f" 1.23))   1067282596

(unpack "f" (pack "ld" (flt 1.2345)))   (1.234500051)

最後の二つの動作は、flt の内部動作を示しています。
The last two statements illustrate the inner workings of flt.

ライブラリの導入には、関数 import を使ってください。
Use the import function to import libraries.


syntax: (fn (list-parameters) exp-body)

fnlambda は無名関数の定義に使われ、関数を引数とする mapsort等の多くの関数でよく使われます。 fnlambda はそれ自体のシンボルは存在しませんが、特殊リスト型:ラムダ・リスト を指定します。 fn-macrolambda-macro と共に、これらの用語はソース解析で認識され、リストの特殊型を指定しますので、関数や演算子のように使うことができます。
fn or lambda are used to define anonymous functions, which are frequently used in map, sort, and all other expressions where functions can be used as arguments. The fn or lambda word does not exist on its own as a symbol, but indicates a special list type: the lambda list. Together with fn-macro and lambda-macro these terms are recognized during source parsing. They indicate a specialized type of list which can be used and applied like a function or operator.

無名関数を使えば、define を使う新しい関数の定義を省けます。 その代わりに、関数が直接定義されるのです:
Using an anonymous function eliminates the need to define a new function with define. Instead, a function is defined on the fly:

(map (fn (x) (+ x x)) '(1 2 3 4 5))  (2 4 6 8 10)

(sort '(".." "..." "." ".....") (fn (x y) (> (length x) (length y))))
 ("....." "..." ".." ".")

例では、整数 (x) を取って二倍にする関数 fn(x) を定義しています。 この関数は、map を使って、引数のリストに展開されます 。 二番目の例は、長さでソートされる文字列を示しています。
The example defines the function fn(x), which takes an integer (x) and doubles it. The function is mapped onto a list of arguments using map. The second example shows strings being sorted by length.

(長い間、伝統的形式であった) 関数 lambda は、fn に置き換えることができます。
The lambda function (the longer, traditional form of writing) can be used in place of fn.


syntax: (for (sym num-from num-to [num-step [exp-break]]) body)

num-fromnum-to により指定される範囲(num-fromnum-toを含む)で、body の式群を繰り返し評価します。 刻み幅は num-step に指定できます。 刻み幅が指定されなければ、1 になります。 (訳注:刻み幅の有無で sym の型が変わります。詳細は下に記述あり。)
Repeatedly evaluates the expressions in body for a range of values specified in num-from and num-to, inclusive. A step size may be specified with num-step. If no step size is specified, 1 is assumed.

オプションで、exp-break に早期脱出条件を定義できます。 中断式が nil 以外に評価されると、for ループは exp-break の値を返します。 中断条件は body を評価する前にテストされます。 中断条件を定義する際は、num-step も定義しなければなりません。
Optionally, a condition for early loop exit may be defined in exp-break. If the break expression evaluates to any non-nil value, the for loop returns with the value of exp-break. The break condition is tested before evaluating body. If a break condition is defined, num-step must be defined, too.

for 式にとって、シンボル sym はダイナミック・スコープのローカル変数で、刻み幅が指定されない時は整数となり、刻み幅がある時は浮動小数点数となって指定された範囲内の各値を連続して取ります。 for 宣言文の評価が終わった後、sym は以前の値になります。 (訳注:15.ダイナミック スコープとレキシカル スコープの章を参照してください。)
The symbol sym is local in dynamic scope to the for expression. It takes on each value successively in the specified range as an integer value if no step size is specified, or as a floating point value when a step size is present. After evaluation of the for statement sym assumes its previous value.

> (for (x 1 10 2) (println x))

> (for (x 8 6 0.5) (println x))

> (for (x 1 100 2 (> (* x x) 30)) (println x))
> _

二番目の例は、大きい方から小さい方への数の範囲を使っています。 刻み幅は、常に正の数値であることに注意してください。 三番目の例では、中断条件がテストされています。
The second example uses a range of numbers from highest to lowest. Note that the step size is always a positive number. In the third example, a break condition is tested.

連続した数値の生成には、関数 sequence を使ってください。
Use the sequence function to make a sequence of numbers.


syntax: (for-all func-condition list)

list の全要素に func-condition の関数を適用します。 全要素が func-condition の条件に一致したなら、結果は true になり、そうでなければ nil が返ります。
Applies the function in func-condition to all elements in list. If all elements meet the condition in func-condition, the result is true; otherwise, nil is returned.

(for-all number? '(2 3 4 6 7))                  true

(for-all number? '(2 3 4 6 "hello" 7))          nil

(for-all (fn (x) (= x 10)) '(10 10 10 10 10))   true

リスト中の少なくとも一個が条件に合っているかどうかをチェックするには、関数 exists を使ってください。
Use the exists function to check if at least one element in a list meets a condition.


syntax: (fork exp)

exp の式がプラットフォーム OS の newLISP の子プロセス・スレッドとして、起動されます。 この新プロセスは全てのアドレス空間を継承しますが独立して走り、子プロセスで変化するシンボルや変数の内容は親プロセスに影響しませんし、その逆もしかりです。 子プロセスは exp の評価が終了した時点で終わります。
The expression in exp is launched as a newLISP child process-thread of the platforms OS. The new process inherits the entire address space, but runs independently so symbol or variable contents changed in the child process will not affect the parent process or vice versa. The child process ends when the evaluation of exp finishes.

fork は成功すると子プロセスID を返し、失敗すると nil を返します。 子プロセスの終了を待つ関数 wait-pid も見てください。
On success, fork returns with the child process ID; on failure, nil is returned. See also the wait-pid function, which waits for a child process to finish.

この関数は Linux/Unix 版の newLISP で利用可能で、基盤となる OS に実装されている fork() をベースにしています。
This function is only available on Linux/Unix versions of newLISP and is based on the fork() implementation of the underlying OS.

プロセスの起動や結果の収集をより簡単に自動化する方法として、spawnCilk API が利用可能です。
A much simpler automated method to launch processes and collect results is available with spawn and the Cilk API.

> (set 'x 0)
> (fork (while (< x 20) (println (inc x)) (sleep 1000)))

> 1

この例が示しているのは、子プロセス・スレッドがシンボル空間を継承している様子や、親プロセスと独立している様子です。 fork 宣言文は、すぐにプロセス ID 176 を返します。 子プロセスは、変数 x を一秒毎に一ずつ加算して標準出力に出力します(太字)。 親プロセスは、コマンド受付可能です。 親プロセスで、シンボル x がまだ値 0 (zero) を保持していることを確かめるたに、x とタイプして見てください。 子プロセスの出力と混在した状態で宣言文を入力することになりますが、親プロセスには正しく入力されます。
The example illustrates how the child process-thread inherits the symbol space and how it is independent of the parent process. The fork statement returns immediately with the process ID 176. The child process increments the variable x by one each second and prints it to standard out (boldface). In the parent process, commands can still be entered. Type x to see that the symbol x still has the value 0 (zero) in the parent process. Although statements entered will mix with the display of the child process output, they will be correctly input to the parent process.

次の例は、プロセス間の通信に pipe が使われる様子を示しています。
The second example illustrates how pipe can be used to communicate between processes.


(define (count-down-proc x channel)
  (while (!= x 0)
      (write-line channel (string x))
      (dec x)))

(define (observer-proc channel)
  (do-until (= i "1")
    (println "process " (setq i (read-line channel)))))

(map set '(in out) (pipe))
(set 'observer (fork (observer-proc in)))
(set 'counter (fork (count-down-proc 5 out)))

; avoid zombies
(wait-pid observer)
(wait-pid counter)


次のような出力が observer-proc によって生成されます。
The following output is generated by observer-proc

process 5
process 4
process 3
process 2
process 1

count-down-proc は通信パイプに数を書き込み、それらは observer-process で拾われ、出力されます。
The count-down-proc writes numbers to the communication pipe, where they are picked up by the observer-process and displayed.

分岐したプロセスはそれ自身で終了することも、関数 destroy を使って破棄することもできます。
A forked process can either exit by itself or it can be destroyed using the destroy function.

(define (fork-destroy-demo)
    (set 'pid (fork (dotimes (i 1000) (println i) (sleep 10))))
    (sleep 50)
    (destroy pid) 

> (fork-destroy-demo)

fork-destroy-demo で開始されたプロセスは終了しませんが、開始 50 ミリ秒後に destroy が呼び出されて破棄されます。
The process started by fork-destroy-demo will not finish but is destroyed 50 milli-seconds after start by a call to destroy.

プロセスの同期には関数 semaphore を、プロセス間のメモリの共有には share を使ってください。
Use the semaphore function for synchronizing processes and share for sharing memory between processes.

プロセスの同期や結果の収集をより簡単に、かつ自動化する spawn を見てください。
See spawn for a much simpler and automated way to synchronize processes and collect results.


syntax: (format str-format exp-data-1 [exp-data-2 ... ])
syntax: (format str-format list-data)

str-format の評価で指定されるフォーマットを使って、exp-data-1 の整形した文字列を作成します。 指定する形式は ANSI C言語の関数 printf() で使われるフォーマットと同じです。 str-format に一個より多いフォーマット指定子を指定することで、二つ以上の引数 exp-data を取れます。
Constructs a formatted string from exp-data-1 using the format specified in the evaluation of str-format. The format specified is identical to the format used for the printf() function in the ANSI C language. Two or more exp-data arguments can be specified for more than one format specifier in str-format.

もう一つの構文では、整形されるデータは list-data のリストの中から渡されます。
In an alternative syntax, the data to be formatted can be passed inside a list in list-data.

format は、フォーマット文字列の有効性、データ型の一致、引数の数が合っているかをチェックします。 間違ったフォーマットやデータ型には、エラー・メッセージが返ります。 intfloatstring を使えば、適正なデータ型が保証され、エラー・メッセージが回避されます。
format checks for a valid format string, matching data type, and the correct number of arguments. Wrong formats or data types result in error messages. int, float, or string can be used to ensure correct data types and to avoid error messages.

The format string has the following general format:


%(パーセント記号)でフォーマット指定が開始されます。 フォーマット文字列内で % を表したい時は二度書きします:%%
The % (percent sign) starts a format specification. To display a % inside a format string, double it: %%

Linux では、パーセント記号の後にシングル・クォート %' を続けて、数値形式に千単位の区切りを入れることができます。
On Linux the percent sign can be followed by a single quote %' to insert thousand's separators in number formats.

w は幅フィールドです。 データは、右詰めですが、- (マイナス符号) が先に付くと左詰めになります。 + (プラス符号) が付くと、正の数字は +(訳注:負の数字は - )付きで表示されます。 先にゼロが付くと、使われないスペースがゼロで埋められます。 幅フィールドはオプションで、全データ型に提供されます。
The w represents the width field. Data is right-aligned, except when preceded by a minus sign, in which case it is left-aligned. If preceded by a + (plus sign), positive numbers are displayed with a +. When preceded by a 0 (zero), the unused space is filled with leading zeroes. The width field is optional and serves all data types.

p は(浮動小数点専用の)十進数桁数か文字列の桁数で、ピリオドで幅フィールドから切り分けられます。 桁数はオプションです。 文字列に桁フィールドを使うと、表示される文字数が p で制限されます。
The p represents the precision number of decimals (floating point only) or strings and is separated from the width field by a period. Precision is optional. When using the precision field on strings, the number of characters displayed is limited to the number in p.

f は型フラグで必須項目です。つまり、省略できません。
The f represents a type flag and is essential; it cannot be omitted.

f には下記の型があります:
Below are the types in f:

text string
c一文字( 1 から 255 までの値)
character (value 1 - 255)
decimal (32-bit)
unsigned decimal (32-bit)
hexadecimal lowercase
hexadecimal uppercase
octal (32-bits) (not supported on all of newLISP flavors)
floating point
scientific floating point
scientific floating point
g汎用的実数(訳注:数値の応じて fe
general floating point
G汎用的実数(訳注:数値の応じて fE
general floating point

32 ビット・フォーマット指定子を使って 64 ビット数値を定型化すると、切り詰められて64 ビット・システムでは下位 32 ビット数字に整形されます。32ビット・システムではオーバーフローして 0xFFFFFFFF になります。
Formatting 64-bit numbers using the 32-bit format specifiers from above table will truncate and format the lower 32 bits of the number on 64-bit systerms and overflow to 0xFFFFFFFF on 32-bit systems.

32 ビット数値及び 64 ビット数値には、下記のフォーマット文字列を使ってください。32 ビットのプラットフォームでは、64 ビット数値は32 ビットに切り詰められます:
For 32-bit and 64-bit numbers use the following format strings. 64-bit numbers will be truncated to 32-bit on 32-bit platforms:

lddecimal (32/64-bit)
luunsigned decimal (32/64-bit)
lxhexadecimal (32/64-bit)
lXhexadecimal uppercase (32/64-bit)

Unixライクのオペレーティング・システムや MS Windows では、64ビット数値に下記のフォーマット文字列を使ってください(TRU64 ではサポートされません):
For 64-bit numbers use the following format strings on Unix-like operating systems and on MS Windows (not supported on TRU64):

llddecimal (64-bit)
lluunsigned decimal (64-bit)
llxhexadecimal (64-bit)
llXhexadecimal uppercase(64-bit)

MS Windows プラットフォームでのみ、64ビット数値に下記の文字列を使ってください:
On Windows platforms only the following characters apply for 64 bit numbers:

I64ddecimal (64-bit)
I64uunsigned decimal (64-bit)
I64xhexadecimal (64-bit)
I64Xhexadecimal uppercase(64-bit)

Other text may occur between, before, or after the format specs.

Tru64 Unix では、フォーマット文字 id の代わりに使えることを記しておきます。
Note that on Tru64 Unix the format character i can be used instead of d.

(format ">>>%6.2f<<<" 1.2345)      ">>>  1.23<<<"
(format ">>>%-6.2f<<<" 1.2345)     ">>>1.23  <<<"
(format ">>>%+6.2f<<<" 1.2345)     ">>> +1.23<<<"
(format ">>>%+6.2f<<<" -1.2345)    ">>> -1.23<<<"
(format ">>>%-+6.2f<<<" -1.2345)   ">>>-1.23 <<<"

(format "%e" 123456789)         "1.234568e+08"
(format "%12.10E" 123456789)    "1.2345678900E+08"

(format "%10g" 1.23)    "      1.23"
(format "%10g" 1.234)   "     1.234"

(format "Result = %05d" 2)   "Result = 00002"

(format "%14.2f" 12345678.12)    "   12345678.12"
; on UNIX glibc compatible platforms only (Linux, MAC OS X 10.9) on some locales
(format "%'14.2f" 12345678.12)  " 12,345,678.12"

(format "%8d" 12345)    "   12345"
; on UNIX glibc compatible platforms only (Linux, MAC OS X 10.9) on some locales
(format "%'8d" 12345)   "  12,345"

(format "%-15s" "hello")         "hello          "
(format "%15s %d" "hello" 123)   "          hello 123"
(format "%5.2s" "hello")         "   he"
(format "%-5.2s" "hello")        "he   "

(format "%o" 80)     "120"
(format "%x %X" -1 -1)   "ffffffff FFFFFFFF"

; 64 bit numbers on Windows
(format "%I64X" 123456789012345678)   "1B69B4BA630F34E"

; 64 bit numbers on Unix (except TRU64)
(format "%llX" 123456789012345678)    "1B69B4BA630F34E"
(format "%c" 65)   "A"

The data to be formatted can be passed inside a list:

(set 'L '("hello" 123))
(format "%15s %d" L)   "          hello 123"

newLISP の format は、フォーマット文字列が要求すれば、自動的に浮動小数点から整数、または、整数から浮動小数点への変換を行います:
If the format string requires it, newLISP's format will automatically convert integers into floating points or floating points into integers:

(format "%f" 123)       123.000000
(format "%d" 123.456)   123


syntax: (fv num-rate num-nper num-pmt num-pv [int-type])

開始の元金 num-pv を固定支払い金額 num-pmt と固定利率 num-ratenum-nper 回支払った後のローン残高を計算します。支払いが期間の終わりなら int-type0(ゼロ)にするか省略し、支払いが期間の始めなら int-type を 1 にします(訳注:期間の終わりなら残金に固定利率がかかった後での支払い、逆に期間の始めなら支払った後の残金に固定利率がかかる)。
Calculates the future value of a loan with constant payment num-pmt and constant interest rate num-rate after num-nper period of time and a beginning principal value of num-pv. If payment is at the end of the period, int-type is 0 (zero) or int-type is omitted; for payment at the beginning of each period, int-type is 1.

(fv (div 0.07 12) 240 775.30 -100000)   -0.5544645052

例では、100,000 ドルのローンが年率7%で240月後に支払いが終了し、0.55ドル余ることを示しています。(訳注:毎月775.3ドルの支払った場合の計算。ちなみに、int-type が 1 なら、237月後に支払い終了で、3.28ドルの余りです。返済はお早めに!)
The example illustrates how a loan of $100,000 is paid down to a residual of $0.55 after 240 monthly payments at a yearly interest rate of 7 percent.

関数 irrnpernpvpmtpv も見てください。
See also the functions irr, nper, npv, pmt, and pv.


syntax: (gammai num-a num-b)

num-anum-b で各々指定される値 ab の不完全ガンマ関数を計算します。(訳注:第1種不完全ガンマ関数lower incomplete gamma function)です。)
Calculates the incomplete Gamma function of values a and b in num-a and num-b, respectively.

(gammai 4 5)   0.7349740847

与えられた自由度 df を超えるカイ二乗の確率を得るために不完全ガンマ関数を使うには、次のようにします:
The incomplete Gamma function is used to derive the probability of Chi² to exceed a given value for a degree of freedom, df, as follows:

Q(Chi²|df) = Q(df/2, Chi²/2) = gammai(df/2, Chi²/2)

関数 prob-chi2 も見てください。
See also the prob-chi2 function.


syntax: (gammaln num-x)

num-x の値 xガンマ関数の対数を計算します。
Calculates the log Gamma function of the value x in num-x.

(exp (gammaln 6))   120

例では、n! = gamma(n + 1) であることを使って 5 の階乗値を計算しています。
The example uses the equality of n! = gamma(n + 1) to calculate the factorial value of 5.

The log Gamma function is also related to the Beta function, which can be derived from it:

Beta(z,w) = Exp(Gammaln(z) + Gammaln(w) - Gammaln(z+w))

gcd  bigint

syntax: (gcd int-1 [int-2 ... ])

整数のグループの最大公約数を計算します。 両方共ゼロでない二つの整数の最大公約数は、両方の数値を割りきれる最大整数値です。 gcd は、 int-i 中の最初の二つの整数値の最大公約数を計算し、その結果の最大公約数とパラメータ・リストの次の引数との最大公約数を計算していきます。
Calculates the greatest common divisor of a group of integers. The greatest common divisor of two integers that are not both zero is the largest integer that divides both numbers. gcd will calculate the greatest common divisor for the first two integers in int-i and then further reduce the argument list by calculating the greatest common divisor of the result and the next argument in the parameter list.

(gcd 0)         0
(gcd 0 0)       0
(gcd 10)        10
(gcd 12 36)     12
(gcd 15 36 6)   3 

数学における gcd数の詳細と理論は、Wikipediaを見てください。(訳注:日本語版は、こちらです。
See Wikipedia for details and theory about gcd numbers in mathematics.


syntax: (get-char int-address)

int-address で指定されたアドレスから 8 ビット文字を取り出します。 この関数は、import で導入した共有ライブラリ関数を使う時に役立ちます。
Gets an 8-bit character from an address specified in int-address. This function is useful when using imported shared library functions with import.

char * foo(void)
char * result;
result = "ABCDEFG";

キャラクタのポインタ(文字列のアドレス)を返す共有ライブラリの上記 C 関数で考えてみましょう。
Consider the above C function from a shared library, which returns a character pointer (address to a string).

(import "" "foo")
(print (get-char (foo) ))         65 ; ASCII "A"
(print (get-char (+ (foo) 1)))    66 ; ASCII "B"

int-address に間違ったアドレスを指定して、関数 get-char を使うことは安全でありませんので注意してください。 そうした場合、結果としてシステムがクラッシュしたり、不安定になったりします。
Note that it is unsafe to use the get-char function with an incorrect address in int-address. Doing so could result in the system crashing or becoming unstable.

関数addressget-intget-longget-floatget-stringpackunpack も見てください。
See also the address, get-int, get-long, get-float, get-string, pack, and unpack functions.


syntax: (get-float int-address)

int-address で指定されたアドレスから、64ビット倍精度浮動小数点数を取り出します。 この関数は、(importを使って) 導入した倍精度浮動小数点数のアドレス・ポインタか、倍精度浮動小数点数を含む構造体のポインタを返す共有ライブラリ関数を使う時の助けになります。
Gets a 64-bit double float from an address specified in int-address. This function is helpful when using imported shared library functions (with import) that return an address pointer to a double float or a pointer to a structure containing double floats.

double float * foo(void)
double float * result;
*result = 123.456;

前もって C 関数をコンパイルして、共有ライブラリに置きます。
The previous C function is compiled into a shared library.

(import "" "foo")
(get-float (foo))   123.456

foo が導入されて呼び出されると、倍精度浮動小数点数のポインタを返します。 int-addressに間違ったアドレスを指定して関数get-float を使うことは安全でなく、そうした場合、結果としてシステムがクラッシュしたり、不安定になったりしますので注意してください。
foo is imported and returns a pointer to a double float when called. Note that get-float is unsafe when used with an incorrect address in int-address and may result in the system crashing or becoming unstable.

関数addressget-intget-longget-charget-stringpackunpack も見てください。
See also the address, get-int, get-long, get-char, get-string, pack, and unpack functions.


syntax: (get-int int-address)

int-address で指定されたアドレスから 32ビット整数値を取り出します。 この関数は、整数値のアドレス・ポインタか整数値を含む構造体のポインタを返す、import で導入した共有ライブラリ関数を使う時に便利です。
Gets a 32-bit integer from the address specified in int-address. This function is handy when using imported shared library functions with import, a function returning an address pointer to an integer, or a pointer to a structure containing integers.

int * foo(void)
int * result;
*result = 123;

int foo-b(void)
int result;
result = 456;

整数ポインタ(整数のアドレス)を返す(共有ライブラリからの) C 関数 foo で考えてみましょう。
Consider the C function foo (from a shared library), which returns an integer pointer (address of an integer).

(import "" "foo")
(get-int (foo))   123
(foo-b)           456

int-address に間違ったアドレスを指定して get-int を使うことは、安全でなく、結果としてシステムがクラッシュしたり、不安定になったりしますので、注意してください。
Note that using get-int with an incorrect address in int-address is unsafe and could result in the system crashing or becoming unstable.

関数addressget-charget-floatget-longget-stringpackunpack も見てください。
See also the address, get-char, get-float, get-long, get-string, pack, and unpack functions.


syntax: (get-long int-address)

int-address で指定されたアドレスから 64 ビット整数値を取り出します。 この関数は、整数値のアドレス・ポインタか整数値を含む構造体のポインタを返す、import で導入した共有ライブラリ関数を使う時に便利です。
Gets a 64-bit integer from the address specified in int-address. This function is handy when using import to import shared library functions, a function returning an address pointer to a long integer, or a pointer to a structure containing long integers.

long long int * foo(void)
int * result;
*result = 123;

long long int foo-b(void)
int result;
result = 456;

整数ポインタ(整数のアドレス)を返す(共有ライブラリの)C 関数 foo で考えてみます。
Consider the C function foo (from a shared library), which returns an integer pointer (address of an integer).

(import "" "foo")
(get-int (foo))   123
(foo-b)           456

int-address に間違ったアドレスを指定して get-long を使うことは安全でなく、結果としてシステムがクラッシュしたり、不安定になったりしますので、注意してください。
Note that using get-long with an incorrect address in int-address is unsafe and could result in the system crashing or becoming unstable.

関数addressget-charget-floatget-intget-stringpackunpack も見てください。
See also the address, get-char, get-float, get-int, get-string, pack, and unpack functions.


syntax: (get-string int-address [int-bytes [str-limit])

int-address で指定されたアドレスから文字列を取り出します。 この関数は、importで導入した共有ライブラリ関数を使う時の助けになります。
Gets a character string from the address specified in int-address. This function is helpful when using imported shared library functions with import.

char * foo(void)
char * result;
result = "ABCDEFG";

文字ポインタ(文字列のアドレス)を返す共有ライブラリの上記 C 関数で考えてみます。
Consider the above C function from a shared library, which returns a character pointer (address to a string).

(import "" "foo")
(print (get-string (foo)))   "ABCDEFG"

引数に文字列が渡されると、get-string はその引数のアドレスを取ります。 get-string は、最初に \000 (null文字) と会った時、常に終了するので、バッファから文字列を取り出すのに使われます:
When a string is passed as an argument, get-string will take its address as the argument. Because get-string always breaks off at the first first \000 (null character) it encounters, it can be used to retrieve a string from a buffer:

(set 'buff "ABC\000\000\000DEF")   "ABC\000\000\000DEF"

(length buff)   9

(get-string buff)   "ABC"

(length (get-string buff))   3

; get a string from offset into a buffer
(get-string (+ (address buff) 6))  "DEF"

; use unpack to get the whole buffer
(unpack "s9" buff)   ("ABC\000\000\000DEF")

関数get-charget-intget-floatpackunpack も見てください。
See also the get-char, get-int, get-float, pack, and unpack functions.

get-string は、間違ったアドレスを指定されるとシステムがクラッシュしたり、不安定になったりしますので、注意してください。
Note that get-string can crash the system or make it unstable if the wrong address is specified.


syntax: (get-url str-url [str-option] [int-timeout [str-header]])

str-url の URL で指定されたウェブ・ページかファイルを、HTTP プロトコルを使って読み込みます。 http://file:// のどちらの URL も処理されます。 "header" は、ヘッダーだけを取り出すために str-option の引数オプションを指定可能です。 "list" オプションは、ヘッダーとページ情報を分離して文字列リストにして返し、リストの第三項目にはサーバー・ステータス・コードも含まれています(10.6.4 以降)。 オプション "raw"(10.6.4 以降)は、単独でも他のオプションと一緒にでも使用でき、ヘッダー・ロケーション・リダイレクトを抑制します。
Reads a web page or file specified by the URL in str-url using the HTTP GET protocol. Both http:// and file:// URLs are handled. "header" can be specified in the optional argument str-option to retrieve only the header. The option "list" causes header and page information to be returned as separate strings in a list and also includes the server status code as the third list member (since 10.6.4). The "raw" option (since 10.6.4), which can be used alone or combined with other options, suppresses header location redirection.

"debug"オプションは、単独あるいは "header""list" の後に一文字開けて指定します。 例えば、"header debug""list debug" という具合です。 "debug" を含めると、全ての送信情報がコンソール・ウィンドウに出力されます。
A "debug" option can be specified either alone or after the "header" or "list" option separated by one character, i.e. "header debug" or "list debug". Including "debug" outputs all outgoing information to the console window.

引数オプション int-timeout にはミリ秒値を指定できます。 指定時間までにホストからデータを取得できない場合、get-url は文字列 ERR: timeout を返します。 他のエラーが発生した時、get-urlERR: で始まる文字列とエラーの説明を返します。
The optional argument int-timeout can specify a value in milliseconds. If no data is available from the host after the specified timeout, get-url returns the string ERR: timeout. When other error conditions occur, get-url returns a string starting with ERR: and the description of the error.

get-url が受信したヘッダーに Location: 指定子を検出したなら、リダイレクトを処理し、自動的に第二要求リクエストします。 get-urlTransfer-Encoding: chunked フォーマットも理解し、データの厚切りchunkedフォーマットをアンパックします。(訳注:Transfer-Encoding: chunked については、こちらを参照
get-url handles redirection if it detects a Location: spec in the received header and automatically does a second request. get-url also understands the Transfer-Encoding: chunked format and will unpack data into an unchunked format.

newLISP サーバーも get-url要求リクエストを受け付けます。
get-url requests are also understood by newLISP server nodes.

(get-url "")
(get-url "" 3000)
(get-url "" "header")
(get-url "" "header" 5000)
(get-url "" "list")

(get-url "file:///home/db/data.txt") ; access local file system

(env "HTTP_PROXY" "http://ourproxy:8080")
(get-url "")

str-url で指定されたサイトの表示ページは、文字列で返されます。 三行目は、HTTPヘッダーのみが文字列で返されます。 二行目と四行目では、タイム・アウト値が使われています。
The index page from the site specified in str-url is returned as a string. In the third line, only the HTTP header is returned in a string. Lines 2 and 4 show a timeout value being used.

二番目の例は、ローカル・ファイル・システムの /home/db/data.txt をアクセスするために file:// URL を使う方法を示しています。
The second example shows usage of a file:// URL to access /home/db/data.txt on the local file system.

三番目の例は、プロキシ・サーバーの使用例です。 プロキシ・サーバーの URL は、オペレーティング・システム環境変数内になければなりません。 そうするためには、例が示すように関数 env を使って追加できます。
The third example illustrates the use of a proxy server. The proxy server's URL must be in the operating system's environment. As shown in the example, this can be added using the env function.

int-timeout には、str-header オプションのカスタム・ヘッダーを続けることができます。
The int-timeout can be followed by an optional custom header in str-header:

Custom header(カスタム・ヘッダー)

カスタム・ヘッダーには、ブラウザ・クッキーや他のサーバーへ指示がオプションとして入ります。 str-header が指定されない時、newLISP はデフォルトでヘッダー情報を送信します。 次の要求リクエストの後に:
The custom header may contain options for browser cookies or other directives to the server. When no str-header is specified, newLISP sends certain header information by default. After the following request:

(get-url "" 5000)

newLISP は、以下の要求リクエストとヘッダーを構成して送ります:
newLISP will configure and send the request and header below:

GET / HTTP/1.1        
User-Agent: newLISP v10603
Connection: close

他の選択肢として、str-header オプションを使えます:
As an alternative, the str-header option could be used:

(get-url "" 5000 
"User-Agent: Mozilla/4.0\r\nCookie: name=fred\r\n")

これにより、newLISP は次の要求リクエストとヘッダーを送信します:
newLISP will now send the following request and header:

GET / HTTP/1.1        
User-Agent: Mozilla/4.o
Cookie: name=fred
Connection: close

カスタム・ヘッダーを使った時の newLISP は、Host:Connection: のヘッダー・エントリーと共に GET 要求リクエストのみを提供することに注意してください。 newLISP は、Host:Connection: エントリーの間にカスタム・ヘッダーで指定された他のエントリーを挿入します。 各エントリーは、改行・復帰ペア: \r\n で終わる必要があります。
Note that when using a custom header, newLISP will only supply the GET request line, as well as the Host: and Connection: header entries. newLISP inserts all other entries supplied in the custom header between the Host: and Connection: entries. Each entry must end with a carriage return line-feed pair: \r\n.

有効なヘッダー・エントリーは、HTTP 処理のリファレンスを見てください。
See an HTTP transactions reference for valid header entries.

カスタム・ヘッダーは、関数put-urlpost-url でも使えます。
Custom headers can also be used in the put-url and post-url functions.


syntax: (global sym-1 [sym-2 ... ])

sym-1 [sym-2 ... ] の一つ以上のシンボルが MAIN とは別のコンテキストで普通にアクセスできるようにします。 この宣言文は、MAIN コンテキスト上で実行されなければなりません。 それに、MAIN に所属しているシンボルのみが global 化されます。 global は、最後に global 化されたシンボルを返します。
One or more symbols in sym-1 [sym-2 ... ] can be made globally accessible from contexts other than MAIN. The statement has to be executed in the MAIN context, and only symbols belonging to MAIN can be made global. global returns the last symbol made global.

(global 'aVar 'x 'y 'z)   z

(define (foo x) 

(constant (global 'foo))

二番目の例は、先に定義した関数を global 化して保護するために、一つの宣言文で constantglobal を使う方法を示しています。
The second example shows how constant and global can be combined into one statement, protecting and making a previous function definition global.


syntax: (global? sym)

sym が global かどうかをチェックします。 組込関数群、コンテキスト・シンボル群、global を使って global 化されたシンボル群が global です:
Checks if symbol in sym is global. Built-in functions, context symbols, and all symbols made global using the function global are global:

global? 'print)    true
(global 'var)      var
(global? 'var)     true

(constant (global 'foo))

(global? 'foo)     true


syntax: (if exp-condition exp-1 [exp-2])
syntax: (if exp-cond-1 exp-1 exp-cond-2 exp-2 [ ... ])

exp-condition の値が nil か空リストでないなら exp-1 の評価結果が返ります その逆では exp-2 の値が返ります。 その時、exp-2 がない場合は exp-condition(訳注:つまり nil か空リスト)が返ります。
If the value of exp-condition is neither nil nor an empty list, the result of evaluating exp-1 is returned; otherwise, the value of exp-2 is returned. If exp-2 is absent, the value of exp-condition is returned.

同時に if は、アナフォリック・システム変数 $itif の条件式の値をセットします。
if also sets the anaphoric system variable $it to the value of the conditional expression in if.

(set 'x 50)                    50
(if (< x 100) "small" "big")   "small"
(set 'x 1000)                  1000
(if (< x 100) "small" "big")   "big"
(if (> x 2000) "big")          nil

; more than one statement in the true or false
; part must be blocked with (begin ...)
(if (= x y)
(some-func x)
(some-func y))
(do-this x y)
(do-that x y))

; if also sets the anaphoric system variable $it
(set 'lst '(A B C))
(if lst (println (last $it)))   C

if の第二形式では、条件-本体ペアの式群を括弧で囲むことなしに、cond のように動作します。 この形式の if は引数を無制限に持つことができます。
The second form of if works similarly to cond, except it does not take parentheses around the condition-body pair of expressions. In this form, if can have an unlimited number of arguments.

(define (classify x)
(< x 0) "negative"
(< x 10) "small"
(< x 20) "medium"
(>= x 30) "big"

(classify 15)    "medium"
(classify 100)   "big"
(classify 22)    "n/a"
(classify -10)   "negative"

最後の式 "n/a" は、オプションです。 このオプション式が無い時は、式(>= x 30) の評価が返ります。 この振る舞いは伝統的な cond と厳密に同じですが、条件-式ペアの括弧は必要ありません。
The last expression, "n/a", is optional. When this option is omitted, the evaluation of (>= x 30) is returned, behaving exactly like a traditional cond but without requiring parentheses around the condition-expression pairs.

いずれにせよ、完全な if 式は、常に最後に評価された式か条件を返します。
In any case, the whole if expression always returns the last expression or condition evaluated.

関数 whenunless も見てください。
See also the when and unless functions.


syntax: (ifft list-num)

FFT 法(高速フーリエ変換)を使って、複素数リスト list-num の離散的逆フーリエ変換を計算します。 各複素数は、実数部とそれに続く虚数部で指定されます。 実数部のみ使う場合は、虚数部に 0.0(ゼロ)をセットします。 list-num の要素数が 2 のべき乗でない場合、ifft はリストをゼロで埋めて要素数を増やします。 複素数の虚数部が 0 の時は、単なる数値が使えます。
Calculates the inverse discrete Fourier transform on a list of complex numbers in list-num using the FFT method (Fast Fourier Transform). Each complex number is specified by its real part, followed by its imaginary part. In case only real numbers are used, the imaginary part is set to 0.0 (zero). When the number of elements in list-num is not an integer power of 2, ifft increases the number of elements by padding the list with zeroes. When complex numbers are 0 in the imaginary part, simple numbers can be used.

(ifft (fft '((1 0) (2 0) (3 0) (4 0)))) 
 ((1 0) (2 0) (3 0) (4 0))

;; when imaginary part is 0, plain numbers work too

(ifft (fft '(1 2 3 4))) 
 ((1 0) (2 0) (3 0) (4 0))

ifft の逆操作は、関数 fft です。
The inverse operation of ifft is the fft function.


syntax: (import str-lib-name str-function-name ["cdecl"])
syntax: (import str-lib-name str-function-name str-return-type [str-param-type . . .])
syntax: (import str-lib-name)

str-lib-name の名前の共有ライブラリから str-function-name で指定された関数を導入します。 構文の使い方によっては、戻り値の文字列ラベルやパラメータ型を指定できます。
Imports the function specified in str-function-name from a shared library named in str-lib-name. Depending on the syntax used, string labels for return and parameter types can be specified

str-lib-name のライブラリがシステムのライブラリ・パスに無いなら、フル・パスを指定する必要があります。
If the library in str-lib-name is not in the system's library path, the full path name should be specified.

A function can be imported only once. A repeated import of the same function will simply return the same - already allocated - function address.

libffi が可能なバージョン――第二拡張構文が使える版――では、導入されたシンボルは変更から保護され、constant による変更のみ許されます。
On libffi enabled versions - capable of the second extended syntax - imported symbols are protected against change and can only be modified using constant.

第三構文―― OSX、Linux、他の Unix 上でのみ――は導入関数を指定せずにライブラリを予め読み込みます。これは、他の導入ライブラリが内部的に必要とする関数へアクセスする時に必要です。
The third syntax - on OSX, Linux and other Unix only - allows pre-loading libraries without importing functions. This is necessary when other library imports need access internally to other functions from pre-loaded libraries.

import は正しく使わないと、システム・バス・エラーを引き起こし、newLISP をクラッシュさせるか、不安定な状態にします。
Incorrectly using import can cause a system bus error or a segfault can occur and crash newLISP or leave it in an unstable state.

The simple import syntax(単純 import 構文)

ほとんどのライブラリ関数は単純な第一構文を使って導入できます。 この形式は全ての newLISP コンパイル派生品に有ります。 This form is present on all compile flavors of newLISP. API は関数の引数全てを cdeclstdcall 規則のスタックで渡されるものと期待しています。 32 ビットのプラットフォームでは、整数、文字列のポインタ、浮動小数点数値のバッファをパラメータとして渡すことができます。 64 ビットのプラットフォームでは、整数のみを渡すことができ、浮動小数点数値は渡すことができません。 戻り値としては、32 ビット値 か 64 ビット値とポインタのみが許されます。 浮動小数点数を戻すことはできません。 文字列は、get-string 補助関数を使って取り出す必要があります。 このような制限がありますが、配布中に含まれるほとんどのモジュールは、この単純 import API を使っています。
Most library functions can be imported using the simpler first syntax. This form is present on all compile flavors of newLISP. The API expects all function arguments to be passed on the stack in either cdecl or stdcall conventions. On 32-bit platforms, integers, pointers to strings and buffers sometimes floating point values can be passed as parameters. On 64-bit platforms only integers can be passed but no floating point values. As return values only 32-bit or 64-bit values and pointers are allowed. No floating point numbers can be returned. Strings must be retrieved with the get-string helper function. Regardless of these limitations, most modules included in the distribution use this simple import API.

If pointers are returned to strings or structures the following helper functions can be used extract data: get-char, get-int, get-float, get-string, unpack

To pass pointers for data structures the following functions help to pack data and calculate addresses: address, pack.

newLISP のデータ型を導入した関数で必要なデータ型に変換するには、64 ビット浮動小数点数には float を、32 ビット浮動小数点数には flt を、32 ビット整数には int を使います。 デフォルトでは、newLISP 浮動小数点数には 64 ビット浮動小数点数を、整数には 32 ビット整数を、文字列には文字列アドレス(C 言語のポインタ)の 32 ビット整数を渡します。 浮動小数点数は 32 ビット版newLISP とライブラリでのみ使えます。 64 ビット環境で浮動小数点数を使うためには、拡張 import 構文を使います。
To transform newLISP data types into the data types needed by the imported function, use the functions float for 64-bit double floats, flt for 32-bit floats, and int for 32-bit integers. By default, newLISP passes floating point numbers as 64-bit double floats, integers as 32-bit integers, and strings as 32-bit integers for string addresses (pointers in C). Floats can only be used with 32-bit versions of newLISP and libraries. To use floating point numbers in a 64-bit environment use the extended import syntax.

;; define LIBC platform independent

(define LIBC (lookup ostype '(
("Windows" "msvcrt.dll")
("OSX" "libc.dylib")

(printf "%g %s %d %c\n" 1.23 "hello" 999 65)
1.23 hello 999 A
 17 ; return value

;; import MS Windows DLLs in 32-bit versions 

(import "kernel32.dll" "GetTickCount")   GetTickCount
(import "user32.dll" "MessageBoxA")      MessageBoxA
(GetTickCount)                           3328896

最初の例では、文字列 "1.23 hello 999 A" が副次効果で出力され、値 17(出力文字数)が返ります。 この方法で、どのような C 関数でも共有ライブラリから導入できます。
In the first example, the string "1.23 hello 999 A" is printed as a side effect, and the value 17 (number of characters printed) is returned. Any C function can be imported from any shared library in this way.

メッセージ・ボックスの例では、コンソール・ウィンドウの後ろに隠れているかもしれませんが、Windows ダイアログ・ボックスがポップ・アップします。 メッセージ・ボックスの 'OK' ボタンを押されるまで、コンソール・プロンプトに結果が返りません。
The message box example pops up a Windows dialog box, which may be hidden behind the console window. The console prompt does not return until the 'OK' button is pressed in the message box.

;;this pops up a message box

(MessageBoxA 0 "This is the body" "Caption" 1) 

他の例は、MS Windows DLL 関数のいくつかの導入と 即値参照 による引数の与え方を示します。 文字列や数を参照で渡す時は、事前に場所を用意しておく必要があります。
The other examples show several imports of MS Windows DLL functions and the details of passing values by value or by reference. Whenever strings or numbers are passed by reference, space must be reserved beforehand.

(import "kernel32.dll" "GetWindowsDirectoryA")

;; allocating space for a string return value
(set 'str (dup "\000" 64))  ; reserve space and initialize

(GetWindowsDirectoryA str (length str))

str   "C:\\WINDOWS\000\000\000 ... "

;; use trim or get-string to cut of binary zeros
(get-string str)   "C:\\WINDOWS"
(trim str)         "C:\\WINDOWS"

(import "kernel32.dll" "GetComputerNameA")

;; allocate memory and initialize to zeros
(set 'str (dup "\000" 64))
(set 'len (length str)

;; call the function
;; the length of the string is passed as address reference 
;; string str is automatically past by address (C pointer)
(GetComputerNameA str (address len)) 

str   "LUTZ-PC\000\000 ... "

(trim str)   "LUTZ-PC"

import は関数のアドレスを返し、導入した関数に別の名前を割り当てるのに使えます。
import returns the address of the function, which can be used to assign a different name to the imported function.

(set 'imprime (import "" "printf")) 

(imprime "%s %d" "hola" 123)                 
 "hola 123"

MS Windows や Cygwin 版の newLISP は、DLLライブラリ・ルーチンの呼び出しに、デフォルトで標準呼び出し stdcall 手続きを使います。 これは、MS Windows オペレーティング・システムに属する DLL (例えば、odbc32.dll) の呼び出しには必要なことです。 多くのサード・パーティの DLL は、C 宣言 cdecl 呼び出し手続きでコンパイルされ、関数を導入する時に追加する最後の引数に文字列 "cdecl" の指定を必要とするかもしれません。 Mac OS X や Linux や 他の Unix システムでコンパイルされたnewLISP は、デフォルトで cdecl 呼び出し手続きを使いますので、追加の文字列は無視します。
The MS Windows and Cygwin versions of newLISP uses standard call stdcall conventions to call DLL library routines by default. This is necessary for calling DLLs that belong to the MS Windows operating system. Most third-party DLLs are compiled for C declaration cdecl calling conventions and may need to specify the string "cdecl" as an additional last argument when importing functions. newLISP compiled for Mac OS X, Linux and other Unix systems uses the cdecl calling conventions by default and ignores any additional string.

;; force cdecl calling conventions on MS Windows
(import "sqlite.dll" "sqlite_open" "cdecl")   sqlite_open <673D4888>

導入した関数は、14個の引数を取るかもしれません。 浮動小数点数の引数は、二つの場所を取ることに注意してください。 (例えば、十四個のパラメータの内、十個を取って五つの浮動小数点はを渡す)。
Imported functions may take up to fourteen arguments. Note that floating point arguments take up two spaces each (e.g., passing five floats takes up ten of the fourteen parameters).

The extended import syntax(拡張 import 構文)

拡張 import API は第二構文で動作します。 それは、よく知られている libffi ライブラリに基づいており、ほとんどの OS プラットフォームに予めインストールされています。 この拡張 import API を使ってコンパイルされたバージョンの newLISP なら、newLISP 開始時の表示に libffi の単語が表示されているでしょう。 libffi が使えるかどうかは、関数 sys-info を使ってもチェックできます。
The extended import API works with the second syntax. It is based on the popular libffi library which is pre-installed on most OS platforms. The startup banner of newLISP should show the word libffi indicating the running version of newLISP is compiled to use the extended import API. The function sys-info can also be used to check for libffi-support.

この API は、パラメータ渡しや戻り値に C言語のデータ型を使って動作します。 API は、パラメータの型が import 構文で指定されている必要があります。 型指定には、型の文字列ラベルを使います。 拡張 import API で書かれたプログラムは、32 ビットと 64 ビットの newLISP とライブラリで変更することなく、走るでしょう。 補助関数を使うことなしに、整数、浮動小数点数、文字列を戻せます。
The API works with all atomic C data types for passed parameters and return values. The extended API requires that parameter types are specified in the import statement as string type labels. Programs written with extended import API will run without change on 32-bit and 64-bit newLISP and libraries. Integers, floating point values and strings can be returned without using helper functions.

str-return-type の戻り値や str-param-type の関数パラメータには、次の型を指定できます:
The following types can be specified for the return value in str-return-type and for function parameters in str-param-type:

labelC type for return value and argumentsnewLISP return and argument type
"void"voidnil is returned for return type
"byte"byte unsigned 8 bitinteger
"char"char signed 8 bitinteger
"unsigned short int"unsigned short int 16 bitinteger
"short int"short int signed 16 bitinteger
"unsigned int"unsigned int 32 bitinteger
"int"int signed 32 bitinteger
"long"long signed 32 or 64 bit depending on platforminteger
"long long"long long signed 64 bitinteger
"float"float 32 bitIEEE-754 64 bit float cut to 32-bit precision
"double"double 64 bitIEEE-754 64 bit float
"char*"char* 32 or 64 bit ptr depending on platformdisplayable string return (zero terminated)
string buffer arg (no addr. since 10.4.2)
"void*"void* 32 or 64 bit ptr depending on platforminteger address return
either string buffer or integer address arg

"char*" 型と "void* 型は libffi 内で同等に扱われ、代替可能です。 渡される引数の型と戻り値の型次第で、どちらかが使われます。
The types "char*" and "void* can be interchanged and are treated identical inside libffi. Depending on the type of arguments passed and the type of return values, one or the other is used.

集合型は関数 struct を使って構築でき、引数や戻り値に使うことができます。
Aggregate types can be composed using the struct function and can be used for arguments and return values

次の例がしめしているのは、拡張 import 構文で浮動小数点数や文字列も戻り値をどのように処理できるかです:
The following examples show how the extended import syntax can handle return values of floating point values and strings:

;; return a float value, LIBC was defined earlier
;             name   return   arg
(import LIBC "atof" "double" "char*")
(atof "3.141")  3.141

;; return a copied string
;             name     return  arg-1   arg-2
(import LIBC "strcpy" "char*" "char*" "char*")
(set 'from "Hello World")

(set 'to (dup "\000" (length from))) ; reserve memory
(strcpy to from)  "Hello World"

"char*" 型は文字列バッファのみを取ります。 "void* 型は入力として、文字列バッファかメモリ・アドレスのどちらかを取ることができます。 戻り値の型として "void*" を使うと、結果のバッファ・アドレスが戻ります。 これは、構造体データへのポインタを返す時に役立ちます。 このポインタから構造体の中身を取り出すには、unpackstruct を使います。 次の例では、戻り値の型を void* に変えています:
The char* type takes a string buffer only. The "void* type can take either a string buffer or a memory address number as input. When using "void*" as a return type the address number of the result buffer will be returned. This is useful when returning pointers to data structures. These pointers can then be used with unpack and struct for destructuring. In the following example the return type is changed to void*:

(import LIBC "strcpy" "void*" "char*" "char*")
(set 'from "Hello World")
(set 'to (dup "\000" (length from)))

(strcpy to from)        2449424
(address to)            2449424
(unpack "s11" 2449424)  "Hello World"
(get-string 2449424)    "Hello World"
to                      "Hello World"

newLISP の文字列は常にアドレス参照で渡されます。
A newLISP string is always passed by it's address reference.

もっと複雑な例は、この OpenGL demo を見てください。
For a more complex example see this OpenGL demo.

Memory management

導入した外部関数により実行された割り当ては、導入したAPIにその呼び出し(機能)がないなら、マニュアルで解除しなければなりません。 Code Patterns in newLISP の例(訳注:Memory management の項)を見てください。
Any allocation performed by imported foreign functions has to be de-allocated manually if there's no call in the imported API to do so. See the Code Patterns in newLISP document for an example.

参照渡しで外部関数を呼び出す場合、 変数用のメモリを newLISP 側で予め割り当てておく必要がありますが、 ——(訳注:前記)GetWindowsDirectoryA の導入例を見てください——それゆえ、メモリはマニュアルで解放する必要はありません。 newLISP によって自動的に管理されています。
In case of calling foreign functions with passing by reference, memory for variables needs to be allocated beforehand by newLISP — see import of GetWindowsDirectoryA above — and hence, memory needs not be deallocated manually, because it is managed automatically by newLISP.

inc !

syntax: (inc place [num])

place の数値を 1.0 かオプションの数値 num 分加算し、 結果を返します。 inc は浮動小数点数計算を実行し、渡された整数値を浮動小数点型に変換します。
Increments the number in place by 1.0 or by the optional number num and returns the result. inc performs float arithmetic and converts integer numbers passed into floating point type.

place はシンボルかリスト構造内の位置、式によって返される数値のいずれかです。
place is either a symbol or a place in a list structure holding a number, or a number returned by an expression.

(set 'x 0)     0
(inc x)        1
x              1
(inc x 0.25)   1.25
x              1.25
(inc x)        2.25

シンボル placenil が入っているなら、0.0 が入っているとして扱われます:
If a symbol for place contains nil, it is treated as if containing 0.0:

z              nil
(inc z)        1

(set 'z nil)
(inc z 0.01)   0.01

Places in a list structure or a number returned by another expression can be updated too:

(set 'l '(1 2 3 4))

(inc (l 3) 0.1)  4.1

(inc (first l))  2

l  (2 2 3 4.1)

(inc (+ 3 4))  8

整数モードでの数値の加算には、関数 ++ を使ってください。 浮動小数点モードの減算には、dec を使ってください。
Use the ++ function for incrementing numbers in integer mode. Use dec to decrement numbers in floating point mode.


syntax: (index exp-predicate exp-list)

述部 exp-predicate をリスト exp-list の各要素に適用し、exp-predicate が true となる要素の位置のリストが返ります。
Applies the predicate exp-predicate to each element of the list exp-list and returns a list containing the indices of the elements for which exp-predicate is true.

(index symbol? '(1 2 d 4 f g 5 h))   (2 4 5 7)

(define (big? x) (> x 5))   (lambda (x) (> x 5))

(index big? '(1 10 3 6 4 5 11))   (1 3 6)

(select '(1 10 3 6 4 5 11) '(1 3 6))  (10 6 11)

The predicate may be a built-in predicate, a user-defined function, or a lambda expression.

要素それ自体を返したい時は、関数 filter を使ってください。
Use the filter function to return the elements themselves.


syntax: (inf? float)

この関数は、float の値が無限大なら trueを返し、そうでなければ nil を返します。
If the value in float is infinite the function returns true else nil.

(inf? (div 1 0))  true

(div 0 0)  NaN

整数をゼロで割る、すなわち (/ 1 0) は "division by zero" エラーを引き起こして無限大にならないので、注意してください。 浮動小数点数が有効かどうかをチェックする NaN? も見てください。
Note that an integer division by zero e.g. (/ 1 0) will throw an "division by zero" error and not yield infinity. See also NaN? to check if a floating point number is valid.


syntax: (int exp [exp-default [int-base]])

exp の式が数値か文字列なら、結果は整数に変換されて返されます。 exp が整数に変換できない時は、nilexp-default の評価結果が返ります。 この関数は、ユーザ入力やテキスト解析による文字列の変換によく使われます。 exp が文字列に評価される場合、文字列は数字か一個以上のスペースか +- サインで始まっていなければなりません。 16進数文字列は '0x'、8進数文字列は '0'(ゼロ)で始まっている必要があります。 特に指定が無く exp が有効でなければ、int はデフォルト値として nil を返します。
If the expression in exp evaluates to a number or a string, the result is converted to an integer and returned. If exp cannot be converted to an integer, then nil or the evaluation of exp-default will be returned. This function is mostly used when translating strings from user input or from parsing text. If exp evaluates to a string, the string must start with a digit; one or more spaces; or the + or - sign. The string must begin with '0x' for hexadecimal strings or '0' (zero) for octal strings. If exp is invalid, int returns nil as a default value if not otherwise specified.

A second optional parameter can be used to force the number base of conversion to a specific value.

9,223,372,036,854,775,807 より大きい整数は、9,223,372,036,854,775,807 に切り捨てられます。 -9,223,372,036,854,775,808 より小さい整数は、-9,223,372,036,854,775,808 に切り詰められます。
Integers larger than 9,223,372,036,854,775,807 are truncated to 9,223,372,036,854,775,807. Integers smaller than -9,223,372,036,854,775,808 are truncated to -9,223,372,036,854,775,808.

int の第二形式として)浮動小数点からの変換の時、浮動小数点数が整数の最大値より大きい値か最小値より小さい値なら、それらは切り捨てられます。 NaN に評価される浮動小数点数は、0(ゼロ)に変換されます。
When converting from a float (as in the second form of int), floating point values larger or smaller than the integer maximum or minimum are also truncated. A floating point expression evaluating to NaN is converted to 0 (zero).

(int "123")           123
(int " 123")          123
(int "a123" 0)        0
(int (trim " 123"))   123
(int "0xFF")          255
(int "0b11111")       31
(int "055")           45
(int "1.567")         1
(int 1.567)           1

(integer? 1.00)         nil
(integer? (int 1.00))   true

(int "1111" 0 2)   15   ; base 2 conversion
(int "0FF" 0 16)   255  ; base 16 conversion

(int 'xyz)      nil
(int 'xyz 0)    0
(int nil 123)   123

(int "abc" (throw-error "not a number"))  
 ERR: user error : not a number

(print "Enter a num:")
(set 'num (int (read-line)))

(int (bits 12345) 0 2)  12345

基数 2 の時の int の逆関数は bits です。
The inverse function to int with base 2 is bits.

引数を浮動小数点数に変換する時は、関数 float を使ってください。
Use the float function to convert arguments to floating point numbers.


syntax: (integer? exp)

exp の値が整数の時のみ true が返り、それ以外では nil が返ります。
Returns true only if the value of exp is an integer; otherwise, it returns nil.

(set 'num 123)   123
(integer? num)   true


syntax: (intersect list-A list-B)
syntax: (intersect list-A list-B bool)

第一構文の intersect は、list-Alist-B の両方で見つかる各要素の一つのコピーからなるリストを返します。
In the first syntax, intersect returns a list containing one copy of each element found both in list-A and list-B.

(intersect '(3 0 1 3 2 3 4 2 1) '(1 4 2 5))  
 (2 4 1)

第二構文の(訳注:list モードで動作する)intersect は、list-B に存在する list-A の全て要素からなるリストを返します。 list-A 内で重複している要素は削除されません。 bool は、true に評価される式か nil 以外の値です。
In the second syntax, intersect returns a list of all elements in list-A that are also in list-B, without eliminating duplicates in list-A. bool is an expression evaluating to true or any other value not nil.

(intersect '(3 0 1 3 2 3 4 2 1) '(1 4 2 5) true)
 (1 2 4 2 1)

集合関数の differenceuniqueunion も見てください。
See also the set functions difference, unique and union.


syntax: (invert matrix [float-pivot])

matrix の二次元行列の逆行列を返します。 行列は行と列が同じ数である正方で、(逆行列を持つ)非特異 でなければなりません(訳注:つまり、正則行列)。 逆行列は、線型方程式のシステム(例えば、統計の重回帰)の解法に使うことができます。 newLISP は逆行列の検出に、行列のLU分解を使っています。
Returns the inversion of a two-dimensional matrix in matrix. The matrix must be square, with the same number of rows and columns, and non-singular (invertible). Matrix inversion can be used to solve systems of linear equations (e.g., multiple regression in statistics). newLISP uses LU-decomposition of the matrix to find the inverse.

オプションで、float-pivot0.0 か非常に小さい値を指定できます。 この値は、LU分解アルゴリズムで特異行列(訳注:逆行列を持たない行列)を処理する時にゼロになるピボット要素の代わりになります。
Optionally 0.0 or a very small value can be specified in float-pivot. This value substitutes pivot elements in the LU-decomposition algorithm, which result in zero when the algorithm deals with a singular matrix.

行列の次元は、行数と最初の行の要素数の積で定義されます。 非矩形行列上の見つからない要素は 0.0(ゼロ)になります。 行列は、入れ子のリストでも array でも可能です。
The dimensions of a matrix are defined by the number of rows times the number of elements in the first row. For missing elements in non-rectangular matrices, 0.0 (zero) is assumed. A matrix can either be a nested list or an array.

(set 'A '((-1 1 1) (1 4 -5) (1 -2 0)))
(invert A)   ((10 2 9) (5 1 4) (6 1 5))
(invert (invert A))  ((-1 1 1) (1 4 -5) (1 -2 0))

; solve Ax = b for x
(multiply (invert A) '((1) (2) (3)))  ((41) (19) (23))

; treatment of singular matrices
(invert '((2 -1) (4 -2)))         nil
(invert '((2 -1) (4 -2)) 0.0)     ((inf -inf) (inf -inf))
(invert '((2 -1) (4 -2)) 1e-20)   ((5e+19 -2.5e+19) (1e+20 -5e+19)) 

行列が 特異行列 で逆行列を持たず、float-pivot が指定されていなければ、invertnil を返します。
invert will return nil if the matrix is singular and cannot be inverted, and float-pivot is not specified.

All operations shown here on lists can be performed on arrays, as well.

行列関数の detmatmultiplytranspose も見てください。
See also the matrix functions det, mat, multiply and transpose.


syntax: (irr list-amounts [list-times [num-guess]])

期間あたりのキャッシュ・フローの内部収益率を計算します。 内部収益率は、キャシュ・フローの現在の価値を 0.0(ゼロ)にする金利です。 流入(負数)と流出(正数)の総額を list-amounts に指定します。 list-times に期間倍率が指定されていない場合、list-amounts は1 ずつ( 1, 2, 3 –という風に)増加する期間倍率で合計されます。 使っているアルゴリズムは、初期推定値0.5 (50%) の反復法です。 オプションで、異なる初期推定値を指定できます。 アルゴリズムは、精度が 0.000001 (0.0001%) に達した時に戻ります。 アルゴリズムが 50 回で収束しなかった時は、nil が返ります。
Calculates the internal rate of return of a cash flow per time period. The internal rate of return is the interest rate that makes the present value of a cash flow equal to 0.0 (zero). In-flowing (negative values) and out-flowing (positive values) amounts are specified in list-amounts. If no time periods are specified in list-times, amounts in list-amounts correspond to consecutive time periods increasing by 1 (1, 2, 3—). The algorithm used is iterative, with an initial guess of 0.5 (50 percent). Optionally, a different initial guess can be specified. The algorithm returns when a precision of 0.000001 (0.0001 percent) is reached. nil is returned if the algorithm cannot converge after 50 iterations.

irr は、異なるタイプの投資間の決定によく使われます。
irr is often used to decide between different types of investments.

(irr '(-1000 500 400 300 200 100))  

(npv 0.2027 '(500 400 300 200 100)) 
 1000.033848 ; ~ 1000

(irr '(-1000 500 400 300 200 100) '(0 3 4 5 6 7)) 

(irr '(-5000 -2000 5000 6000) '(0 3 12 18)) 

1,000 の初期投資が一年後に 500 をもたらし、二年後に 400 と続き、5 年を過ぎると最終的に 0.0(ゼロ)となるならば、それは年利約 20.2 %の配当に相当します。 次の行(訳注:例題の二行目)は、 irrnpv の関係を示しています。 (訳注:例題の三行目は、)三年後から回収を始めたいのであれば、たった 9.9 %の配当で済みます。
If an initial investment of 1,000 yields 500 after the first year, 400 after two years, and so on, finally reaching 0.0 (zero) after five years, then that corresponds to a yearly return of about 20.2 percent. The next line demonstrates the relation between irr and npv. Only 9.9 percent returns are necessary when making the first withdrawal after three years.

例題の最後では、証券を最初に 5,000 購入し、3 カ月後別に 2,000 購入したとしています。 一年後(訳注:12ヵ月後)、5,000 分の証券を売ったとします。 18ヵ月後に残りの証券を売って 6,000 を得たとします。 この場合の内部収益率は、一ヶ月あたり 3.2 %となり、18ヶ月でおよそ 57 %です。
In the last example, securities were initially purchased for 5,000, then for another 2,000 three months later. After a year, securities for 5,000 are sold. Selling the remaining securities after 18 months renders 6,000. The internal rate of return is 3.2 percent per month, or about 57 percent in 18 months.

関数 fvnpernpvpmtpv も見てください。
See also the fv, nper, npv, pmt, and pv functions.


syntax: (json-error)

json-parse が JSON データの変換し失敗して nil を返す時、この関数でエラーの詳細と解析時の最終位置を引き出せます。
When json-parse returns nil due to a failed JSON data translation, this function retrieves an error description and the last scan position of the parser.

; failed parse returns nil
(json-parse [text]{"address" ""}[/text])  nil

; inspect the error information
(json-error)  ("missing : colon" 11)


syntax: (json-parse str-json-data)

この関数は JSON形式のテキストを解析し、newLISP のS式に変換します。 ECMA-262 標準に従う全てのデータ型が変換されます。 JSON の false 値や null 値は、newLISP のシンボル式中では false シンボルや null シンボルで表現されます。JSON 中のアレイは newLISP 中ではリストで表現されます。JSON オブジェクト・データから結果として得られるリストは、assoclookupref を使って処理することができます。
This function parses JSON formatted text and translates it to newLISP S-expressions. All data types conforming to the ECMA-262 standard are translated. The JSON values false and null will be represented by the symbols false and null in the symbolic newLISP expressions. Arrays in JSON will be represented by lists in newLISP. The resulting lists from JSON object data can be processed using assoc, lookup and ref.

json-parse は、認識されなかった JSON の属性値や誤った JSON 構文に対して nil を返し、そのエラー文の取り出しには json-error が使えます。
For JSON attribute values not recognized or wrong JSON syntax, json-parse returns nil and json-error can be used to retrieve the error text.

次の例は、person.json ファイルにある入れ子 JSON オブジェクトを表しています:
The following example shows a nested JSON object from a file person.json:

"name": "John Smith",
"age": 32,
"employed": true,
"address": {
"street": "701 First Ave.",
"city": "Sunnyvale, CA 95125",
"country": "United States"
"children": [
    "name": "Richard",
    "age": 7
    "name": "Susan",
    "age": 4
    "name": "James",
    "age": 3

ファイルを読み込んで解析し、結果のS式を jsp に納めます:
The file is read, parsed and the resulting S-expression stored in jsp:

(set 'jsp (json-parse (read-file "person.json")))

( ("name" "John Smith") 
("age" 32) 
("employed" true) 
("address" ( ("street" "701 First Ave.") 
       ("city" "Sunnyvale, CA 95125") 
       ("country" "United States")) ) 
("children" (
(("name" "Richard") ("age" 7)) 
(("name" "Susan") ("age" 4)) 
(("name" "James") ("age" 3))) )

データは assoclookupref を使って取り出せます:
Data can be extracted using assoc, lookup or ref:

; the address
(lookup "address" jsp)
 (("street" "701 First Ave.") ("city" "Sunnyvale, CA 95125") ("country" "United States"))

; the city of the address
(lookup "city" (lookup "address" jsp)) 
 "Sunnyvale, CA 95125"

; a child named Susan
(ref '(( * "Susan") *) jsp match true) 
 (("name" "Susan") ("age" 4))

; all names
(map last (ref-all '("name" *) jsp match true)) 
 ("John Smith" "Richard" "Susan" "James")

; only names of children
(map last (ref-all '("name" *) (lookup "children" jsp) match true))

("Richard" "Susan" "James")

; names of children other method
(map last (map first (lookup "children" jsp)))

("Richard" "Susan" "James")

大抵の場合、JSON オブジェクト型は解析されますが、全 JSON データ型は JSON オブジェクトの一部としてではなく、直接解析されます。 次は、JSON 配列の解析例です:
Although most of the time JSON object types are parsed, all JSON data types can be parsed directly, without occurring as part of a JSON object. The following examples show parsing of a JSON array:

; parse a JSON array data type

(json-parse "[1, 2, 3, 4, 5]")  (1 2 3 4 5)

UTF-8 が有効な newLISP バージョンが使われているなら、JSON 形式のユニコードは UTF-8 に変換されます:
When the UTF-8 capable version of newLISP is used, JSON formatted Unicode gets translated into UTF-8:

; parse a JSON object data type ands Unicode
; the outer {,} are newLISP string delimiters [text],[/text] tags could also be used
; the inner {,} are JSON object delimiters

(json-parse { {"greek letters" : "\u03b1\u03b2\u03b3\u03b4"} })  (("greek letters" "αβγδ"))

; strings longer than 2047 bytes should be delimted with [text], [/text] tags

(json-parse [text]{"greek letters" : "\u03b1\u03b2\u03b3\u03b4"}[/text])  (("greek letters" "αβγδ"))

JSON でユニコード文字を表現する16進数表記は UTF-8 版 newLISP でも使えます。
The hex-code representation of Unicoder characters in JSON is the same as can be used in UTF-8 enabled newLISP.

JSON オブジェクトは {,}," を含むので、JSON データの区切りに引用符を使うべきではありませんし、JSON データ内の全ての引用符の前にはバックスラッシュ \ を置く必要があります。 {,} 対は JSON データ内で対応が取れていれば、可能な限りの長さで使えます。 安全な区切りは [text], [/text] タグです —— これなら newLISP に読み取られる時の文字列特殊処理が全て抑制されるし、2047 バイトより大きいデータを区切るのにも適しています。
Because JSON objects contain {,}," characters, quotes should not be used to limit JSON data, or all quotes inside the JSON data would need a preceding backslash \. {,} braces can be used as long as braces inside the JSON data are balanced. The safest delimiter are [text], [/text] tags — they suppress all special processing of the string when read by newLISP and are delimit to delimit large data sizes greater 2047 bytes.


syntax: (join list-of-strings [str-joint [bool-trail-joint]])

与えられた list-of-strings の文字列のリストを(訳注:間にスペースを入れて)つなぎ合わせます。 str-joint があれば、(訳注:スペースの代わりに)結合時にそれが(訳注:接続文字として)各文字列間に挿入されます。 bool-trail-jointtrue なら、接続文字が文字列の最後にも追加されます。
Concatenates the given list of strings in list-of-strings. If str-joint is present, it is inserted between each string in the join. If bool-trail-joint is true then a joint string is also appended to the last string.

(set 'lst '("this" "is" "a" "sentence"))

(join lst " ")   "this is a sentence"

(join (map string (slice (now) 0 3)) "-")   "2003-11-26"

(join (explode "keep it together"))   "keep it together"

(join '("A" "B" "C") "-")          "A-B-C"
(join '("A" "B" "C") "-" true)     "A-B-C-"

関数 appendstringjoin 操作と逆の explode も見てください。
See also the append, string, and explode functions, which are the inverse of the join operation.


syntax: (kmeans-query list-data matrix-centroids)
syntax: (kmeans-query list-data matrix-data)

最初の使い方では、kmeans-querylist-data で与えられるベクトル・データから matix-centroids で与えられる重心までのユークリッド距離を計算します。 list-data のベクトル・データは m 個の要素からなります。 事前の kmeans-train による区分けの結果である matrix-centroids の2次元リスト(訳注:リストのリストだから2次元)は km 列からなり、k 行の m 要素が重心を表しています。
In the first usage, kmeans-query calculates the Euclidian distances from the data vector given in list-data to the centroids given in matrix-centroids. The data vector in list-data has m elements. The 2-dimensional list in matrix-centroids, result from a previous kmeans-train clustering, has k rows and m columns for k centroids measuring m features.

; centroids from previous kmeans-train
( (6.39 7.188333333 5.935) 
(7.925714286 3.845714286 9.198571429) 
(2.207142857 2.881428571 0.8885714286) )

(kmeans-query '(1 2 3) K:centroids) 
(8.036487279 9.475994267 2.58693657) ; distances to cluster 1, 2 and 3

データ (1 2 3) は、3番目のクラスターと最も距離の近いことがわかり、そのクラスターに属するものとして分類されるでしょう。
The data record (1 2 3) shows the smallest distance to the 3rd cluster centroid and would be classified as belonging to that cluster.

二番目の利用法では、kmeans-query は重心ではない他のデータ・ポイントのリストまでのユークリッド距離を計算します。 次の例は、ベクトル・データ (1 2 3) から kmeans-train によるデータ解析に使った元々のポイントまで距離を掲載しています。
In the second application kmeans-query calculates Euclidian distances to a list of other data points which are not centroids. The following example calculates distances of the (1 2 3) data vector to all original points from the original kmeans-train data analysis.

matix-data のデータには入れ子のリストも、二次元アレイも使えます。
The data in matrix-data can be either a nested list or a 2-dimensional array.

続けて行われる kNN(k 近傍法)解析のために、このベクトルを並べ替えることができます:
This vector could be sorted for a subsequent kNN (k Nearest Neighbor) analysis:

(kmeans-query '(1 2 3) data) 
(10.91671196 3.190626898 9.19723328 3.014415366 9.079763213 
6.83130295 8.533111976 9.624816881 6.444261013 2.013107051 
3.186549858 9.475199206 9.32936761 2.874786949 7.084638311 
10.96221237 10.50080473 3.162419959 2.423674896 9.526436899)

; show distances to members in each cluster

; for cluster labeled 1
(select (kmeans-query '(1 2 3) data) (K:clusters 0))  
(9.079763213 6.83130295 9.624816881 6.444261013 7.084638311 10.50080473)

; for cluster labeled 2
(select (kmeans-query '(1 2 3) data) (K:clusters 1)) 
(10.91671196 9.19723328 8.533111976 9.475199206 9.32936761 10.96221237 9.526436899)

; for cluster labeled 3
(select (kmeans-query '(1 2 3) data) (K:clusters 2)) 
(3.190626898 3.014415366 2.013107051 3.186549858 2.874786949 3.162419959 2.423674896)

We see that the smallest distances are shown for the data points in the 3rd cluster at offset 2.

list-data の要素の数がデータや重心行列の列数と異なる場合、ユークリッド距離の計算のためにより小さい方が取られます。 これは、データ行列の最終列が意味のあるデータでない場合に役立ちます。
If the numbers of elements - features - in records of list-data is different from the number of columns in the data or centroid matrix, then the smaller is taken for calculating the Euclidian distances. This is useful when the last column of the data matrix does not contain feature data, but labels identifying the cluster membership of a data point.


syntax: (kmeans-train matrix-data int-k context [matrix-centroids])

この関数は、matrix-data に対して K 平均法クラスター解析を行います。 n 個のデータ全てが int-k 個のグループの中に別々に区分けされます。
The function performs Kmeans cluster analysis on matrix-data. All n data records in matrix-data are partitioned into a number of int-k different groups.

n * mmatrix-data やオプションの k * mmatrix-centroids には、入れ子のリストも2次元アレイも使えます。
Both, the n * m matrix-data and the optional k * m matrix-centroids can be either nested lists or 2-dimensional arrays.

この K 平均法アルゴリズムはクラスタ重心からの内部クラスター距離の二乗和(SSQ)を最小するように動作します。繰り返し動作する度に、重心は最終位置に近づきます。データ一式が同じでも、最終結果は最初の重心位置次第です。重心の初期値を適切に選択することで処理速度が早められ、望んでいない極小値も避けられます。
The Kmeans algorithm tries to minimize the sum of squared inner cluster distances (SSQ) from the cluster centroid. With each iteration the centroids get moved closer to their final position. On some data sets, the end result can depend on the starting centroid points. The right choice of initial centroids can speed up the process and avoid not wanted local minima.

オプションの matrix-centroids が与えられない時、各クラスターにはランダムデータ行が初期値として割り当てられ、重心の計算が始まります。
When no optional matrix-centroids are given, kmeans-train will assign an initial random cluster membership to each data row and calculate starting centroids.

kmeans-train は SSQ 全体のベクトルを返します。SSQ はクラスター内の重心からの全クラスターの内部距離の二乗和です。 繰り返しアルゴリズムは、 SSQ の変化が 1e-10 より小さくなった時に止まります。
kmeans-train returns a vector of total SSQs, the sum of squared inner distances from the centroid inside the cluster for all clusters. The Iterating algorithm stops when the change of SSQ from one to the next iteration is less than 1e-10.

Other results of the analysis are stored as lists in variables of context.

次の例は、 m = 3 の 20 個のデータを解析し、 k = 3 のクラスターに区分けします。 k = 3 より大きい数を試すことができます。 平均内部クラスター距離で計測して高密度になるクラスターが目標となる結果です。
The following example analyses 20 data records measuring m = 3 features and tries to partition data into k = 3 clusters. Other numbers than k = 3 could be tried. The target is a result with few clusters of high density measured by the average inner cluster distances.

(set 'data '(
(6.57 4.96 11.91) 
(2.29 4.18 1.06) 
(8.63 2.51 8.11) 
(1.85 1.89 0.11) 
(7.56 7.93 5.06) 
(3.61 7.95 5.11) 
(7.18 3.46 8.7) 
(8.17 6.59 7.49) 
(5.44 5.9 5.57) 
(2.43 2.14 1.59) 
(2.48 2.26 0.19) 
(8.16 3.83 8.93) 
(8.49 5.31 7.47) 
(3.12 3.1 1.4) 
(6.77 6.04 3.76) 
(7.01 4.2 11.9) 
(6.79 8.72 8.62) 
(1.17 4.46 1.02) 
(2.11 2.14 0.85) 
(9.44 2.65 7.37)))

(kmeans-train data 3 'MAIN:K)  
(439.7949357 90.7474276 85.06633163 82.74597619)

; cluster membership
K:labels  (2 3 2 3 1 1 2 1 1 3 3 2 2 3 1 2 1 3 3 2)

; the centroid for each cluster
( (6.39 7.188333333 5.935) 
(7.925714286 3.845714286 9.198571429) 
(2.207142857 2.881428571 0.8885714286) )

戻り値は SSQ のリストで、各繰り返しで内部距離の二乗和が小さくなる様子を見せてくれます。 K:labels のリストは各データ点がどのクラスターにあるのかを示しています。データ点と同じ位置の数字がクラスターの番号です。
The returned list of SSQs shows how in each iteration the sum of inner squared distances decreases. The list in K:labels shows the membership fo each data point in the same order as in the data.

K:centroids の重心は、kmeans-query を使う際に、新データの区分けに使うことができます。
The centroids in K:centroids can be used for later classification of new data records using kmeans-query.

クラスターの要素からクラスター重心までの内部偏差 K:deviations は、クラスターの混み具合を示しています。 公式的には、ユークリッド距離の計算や標準偏差の計算と似たような計算です。 偏差を二乗して各クラスターの大きさを掛けると各クラスターの内部 SSQ になります:
The average inner K:deviations from cluster members to their centroid show how dense a cluster is packed. Formally, deviations are calculated similarly to Euclidian distances and to standard deviations in conventional statistics. Squaring the deviations and multiplying each with their cluster size (number of members in the cluster) shows the inner SSQ of each cluster:

; average inner deviations of cluster members to the centroid
; deviation = sqrt(ssq-of-cluster / n-of-cluster)
K:deviations   (2.457052209 2.260089397 1.240236975)

; calculating inner SSQs from cluster deviations
(map mul '(6 7 7) (map mul K:deviations K:deviations)) 
(36.22263333 35.75602857 10.76731429) ; inner SSQs

; SSQ from last iteration as sum of inner SSQs
(apply add '(36.22263333 35.75602857 10.76731429))  82.74597619

K:clusters は、各クラスターのデータが元データではどの位置にあるかを与えてくれます。 これを使って、データのさらなる解析にのために、個々のクラスターを個別に取り出せます:
K:clusters gives indices of data records into the original data for each cluster. With these, individual clusters can be extracted from the data for further analysis:

; ceach of the result clusters with indices into the data set
( (4 5 7 8 14 16) 
(0 2 6 11 12 15 19) 
(1 3 9 10 13 17 18) )

; cluster of data records labeled 1 at offset 0
(select data (K:clusters 0)) 
( (7.56 7.93 5.06) 
(3.61 7.95 5.11) 
(8.17 6.59 7.49) 
(5.44 5.9 5.57) 
(6.77 6.04 3.76) 
(6.79 8.72 8.62) )

; cluster of data records labeled 2 at offset 1
(select data (K:clusters 1)) 
( (6.57 4.96 11.91) 
(8.63 2.51 8.11) 
(7.18 3.46 8.7) 
(8.16 3.83 8.93) 
(8.49 5.31 7.47) 
(7.01 4.2 11.9) 
(9.44 2.65 7.37) )

; cluster of data records labeled 3 at offset 2
(select data (K:clusters 2)) 
( (2.29 4.18 1.06) 
(1.85 1.89 0.11) 
(2.43 2.14 1.59) 
(2.48 2.26 0.19) 
(3.12 3.1 1.4) 
(1.17 4.46 1.02) 
(2.11 2.14 0.85) )

次の最後の例では、データにクラスター・ラベル(1 から 3)を追加しています:
In the last example the cluster labels (from 1 to 3) are added to the data:

; append a cluster label to each data record
(set 'labeled-data (transpose (push K:labels (transpose data) -1)))

( (6.57 4.96 11.91 2) 
(2.29 4.18 1.06 3) 
(8.63 2.51 8.11 2) 
(1.85 1.89 0.11 3) 
(7.56 7.93 5.06 1) 
(3.61 7.95 5.11 1) 
... ...
(2.11 2.14 0.85 3) 
(9.44 2.65 7.37 2) )

コードがある名前空間コンテキストで書かれる時は、結果の入るコンテキストには MAIN を先付けすべきです。 そのコンテキストが存在しない場合は、生成されます。
The result context should be prefixed with MAIN when code is written in a namespace context. If the context does not exists already, it will be created.

先に kmeans-train を走らせ、K:labelsK:clustersK:centroidsK:deviations の結果がすでに存在していても、上書きされます。
Results in K:labels, K:clusters, K:centroids and K:deviations will be overwritten, if already present from previous runs of kmeans-train.


lambda の省略形である fn の説明を見てください。
See the description of fn, which is a shorter form of writing lambda.


define-macro の説明を見てください。
See the description of define-macro.


syntax: (lambda? exp)

exp の値がラムダ式の場合のみ true を返し、それ以外では nil を返します。
Returns true only if the value of exp is a lambda expression; otherwise, returns nil.

(define (square x) (* x x))  (lambda (x) (* x x))

square  (lambda (x) (* x x))

(lambda? square)   true

lambda 式についてのさらなる情報は、definedefine-macro を見てください。
See define and define-macro for more information about lambda expressions.

last utf8

syntax: (last list)
syntax: (last array)
syntax: (last str)

リストや文字列の最後の要素を返します。(訳注:Common Lisp の last は最後の要素をリストで返しますが、newLISP の last は要素のみを返します。)
Returns the last element of a list or a string.

(last '(1 2 3 4 5))   5
(last '(a b (c d)))   (c d)

(set 'A (array 3 2 (sequence 1 6)))
 ((1 2) (3 4) (5 6))
(last A)              (5 6)

(last '())            ERR: list is empty
(訳注:最後の行は、Common Lispではエラーにならず nil が返ります。)

第二形式では、文字列 str の最後の文字が文字列で返されます。
In the second version the last character in the string str is returned as a string.

(last "newLISP")   "P"

UTF-8 版の newLISP では、last はバイト境界ではなく、キャラクタ境界で動作します。 firstrestnth も見てください。
Note that last works on character boundaries rather than byte boundaries when the UTF-8–enabled version of newLISP is used. See also first, rest and nth.


syntax: (last-error)
syntax: (last-error int-error)

シンタックス・エラーやリソースの枯渇に起因する newLISP で生じた最後のエラーを報告します。 起こりうる全てのエラーのまとめは、付録の エラー コード の章を見てください。
Reports the last error generated by newLISP due to syntax errors or exhaustion of some resource. For a summary of all possible errors see the chapter Error codes in the appendix.

newLISPセッションが始まってから一度もエラーが起こらなければ、nil が返ります。
If no error has occurred since the newLISP session was started, nil is returned.

int-error が指定されると、その番号とエラー・テキストのリストが返ります。
When int-error is specified, a list of the number and the error text is returned.

(last-error)   nil


ERR: invalid function : (abc)

(last-error)  (24 "ERR: invalid function : (abc)")

(last-error 24)  (24 "invalid function")
(last-error 1)  (1 "not enough memory")
(last-error 12345)  (12345 "Unknown error")

エラー番号の範囲外では、"Unknown error" がエラー・テキストとして与えられます。
For error numbers out of range the string "Unknown error" is given for the error text.

エラーは、error-event とユーザ定義エラー・ハンドラで捕まえることができます。
Errors can be trapped by error-event and user defined error handlers.

ネットワークの条件によって発生するエラー用の net-error やオペレーティング・システムによって発生するエラー用の sys-error も見てください。
See also net-error for errors generated by networking conditions and sys-error for errors generated by the operating system.


syntax: (legal? str)

str の語句が newLISP シンボルとして適正かどうかを確かめます。 関数 sym を使えば、適正でないシンボルをることが可能です(例えば、スペースやクォートを含むシンボルとか、その他、通常許可されない文字とか)。 連想データ・アクセスにそれらを使う時、非適正シンボルがよく生成されます。
The token in str is verified as a legal newLISP symbol. Non-legal symbols can be created using the sym function (e.g. symbols containing spaces, quotes, or other characters not normally allowed). Non-legal symbols are created frequently when using them for associative data access:

(symbol? (sym "one two"))   true

(legal? "one two")          nil  ; contains a space

(set (sym "one two") 123)   123

(eval (sym "one two"))      123

この例は、文字列 "one two" からシンボルが生成されて変数のように扱えたとしても、適正なシンボルとならない事を示しています。
The example shows that the string "one two" does not contain a legal symbol although a symbol can be created from this string and treated like a variable.

length  bigint

syntax: (length exp)

Returns the number of elements in a list, the number of rows in an array and the number of bytes in a string or in a symbol name.

length を数値に適用した場合、整数や大整数では桁数を返します。 浮動小数点では小数点より前の桁数(訳注:つまり、整数部の桁数)を返します。
Applied to a number, length returns the number of digits for normal and big integers and the number of digits before the decimal separator for floats.

(訳注:上記以外の)他の型では、length0 を返します。
length returns 0 on all other types.

バージョン 10.5.6 以前の length は、整数 (4 か 8) 、浮動小数点 (8) のように格納サイズをバイト数で返していました。
Before version 10.5.6 length returned the storage size in bytes for integers (4 or 8) and floats (8).

; number of top level elements in a list
(length '(a b (c d) e))          4
(length '())                     0
(set 'someList '(q w e r t y))   (q w e r t y)
(length someList)                6

; number of top level elements in an array
(set 'ary (array 2 4 '(0)))   ((1 2 3 4) (5 6 7 8))
(length ary)                  2

; number of bytes in a string or byte buffer
(length "Hello World")   11
(length "")              0
(length "\000\001\003")  3

; number of bytes in a symbol name string
(length 'someVar)   7

; number of int digits in a number
(length 0)          0
(length 123)        3
(length 1.23)       1
(length 1234567890123456789012345L)  25 

UTF-8 の文字数計算には utf8len を使ってください。
Use utf8len to calculate the number of UTF-8 characters in a string.


syntax: (let ((sym1 [exp-init1]) [(sym2 [exp-init2]) ... ]) body)
syntax: (let (sym1 exp-init1 [sym2 exp-init2 ... ]) body)

一個以上の変数 sym1, sym2, ... が、exp-init1, exp-init2, ... を初期値としてローカルに宣言されます。 完全に括弧で括られた第一構文では初期値がオプションとなり、見つからない場合は nil になります。
One or more variables sym1, sym2, ... are declared locally and initialized with expressions in exp-init1, exp-init2, etc. In the fully parenthesized first syntax, initializers are optional and assumed nil if missing.

ローカル変数が初期化される時、初期化式は let 宣言文より前に束縛されたシンボルを使って評価されます。(訳注:つまり、let で初期化中の評価で束縛されたシンボルは使われません。そのため、) let の初期化中の評価で束縛されたシンボルを順次使いたい時は、letn を使ってください。
When the local variables are initialized, the initializer expressions evaluate using symbol bindings as before the let statement. To incrementally use symbol bindings as evaluated during the initialization of locals in let, use letn.

exp-body の一個以上の式がローカルに定義された sym1, sym2 他を使って評価されます。 let は使われる場所が閉じているローカル変数を定義するので、複雑な式を分解するために役立ちます。 第二形式は機能的に変わらずに、変数式対周りの括弧を省略できます。
One or more expressions in exp-body are evaluated using the local definitions of sym1, sym2 etc. let is useful for breaking up complex expressions by defining local variables close to the place where they are used. The second form omits the parentheses around the variable expression pairs but functions identically.

(define (sum-sq a b)
    (let ((x (* a a)) (y (* b b)))
        (+ x y)))

(sum-sq 3 4)  25

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

変数 xy が初期化されてから、式 (+ 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 ])

入れ子構造的 let 用の letnnil に初期化する local も見てください。 local は変数を自動的に nil に初期化します。
See also letn for an incremental or nested form of let and local for initializing to nil. See local for automatic initialization of variables to nil.

> (let ((x) (y) (z)) (setq x 1 y 2 z 3) (list x y z))
(1 2 3)
> (list x y z)
(nil nil nil)
> (let (x y z) (println (list x y z))(setq x 1 y 2 z 3) (list x y z))
(nil nil nil)
(1 2 3)
> (list x y z)
(nil 2 nil)
第二形式 の let で、変数を全て nil にしようとして二番目の例のように記述すると、不用意に(上記、y のような)グローバル変数を作ってしまいますので、ご注意を。(私だけかもしれませんが、、、汗)
> (local (x y z) (println (list x y z))(setq x 1 y 2 z 3) (list x y z))
(nil nil nil)
(1 2 3)
> (list x y z)
(nil nil nil)
全て nil で初期化したい場合は、このように local が便利です。)


syntax: (letex ((sym1 [exp-init1]) [(sym2 [exp-init2]) ... ]) body)
syntax: (letex (sym1 exp-init1 [sym2 exp-init2 ... ]) body)

この関数は、let と ローカル変数を評価する前に式に展開する expand との組み合わせです。 完全に括弧で括られた第一構文では初期値はオプションとなり、見つからない場合は nil になります。
This function combines let and expand to expand local variables into an expression before evaluating it. In the fully parenthesized first syntax initializers are optional and assumed nil if missing.

どちらの形式も機能的には同じですが、第二形式では(訳注:let と同じように)初期化周りの括弧が省略できます:
Both forms provide the same functionality, but in the second form the parentheses around the initializers can be omitted:

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

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

 (1 (a b c) "hello")

'(x y z) が評価を得る前に、xyzletex の初期化リストの初期値で文字通り置き換えられます。 最終的に評価を得る式は '(1 2 3) となります。
Before the expression '(x y z) gets evaluated, x, y and z are literally replaced with the initializers from the letex initializer list. The final expression which gets evaluated is '(1 2 3).

> (let (x 1 y 2 z 3) (print (list x y z)) '(x y z))
(1 2 3)(x y z)
> (letex (x 1 y 2 z 3) (print (list x y z)) '(x y z))
(1 2 3)(1 2 3)
> (let ( (x 1) (y '(a b c)) (z "hello") ) (print (list x y z))'(x y z))
(1 (a b c) "hello")(x y z)
> (letex ( (x 1) (y '(a b c)) (z "hello") ) (print (list x y z))'(x y z))

ERR: invalid function in function list : (a b c)
このように、 let では、x、y、z に 1、2、3 が代入されるのに対して、 letex では、文字通り置き換わります。
> (let ( (x 1) (y '(a b c)) (z "hello") ) (print (list x y z))'(x y z))
(1 (a b c) "hello")(x y z)
> (letex ( (x 1) (y '(a b c)) (z "hello") ) (print (list x y z))'(x y z))

ERR: invalid function in function list : (a b c)
> (letex ( (x 1) (y '(a b c)) (z "hello") ) (print (list x 'y z))'(x y z))
(1 (a b c) "hello")(1 (a b c) "hello")
使い方によっては、この例の y のように先付けのクォートが必要なこともあります。)

二番目の例として、加算関数を作る関数 make-adder を定義します:
In the second example a function make-adder is defined for making adder functions:

(define (make-adder n)
    (letex (c n) (lambda (x) (+ x c))))

(define add3 (make-adder 3))  (lambda (x) (+ x 3))

(add3 10)  13

; letex can expand symbols into themselves
; the following form also works

(define (make-adder n)
     (letex (n n) (lambda (x) (+ x n))))

letexn を定数 3 に評価して、ラムダ式内の c と置き換えます。二番目の例では、letex で同じ変数名で行うやり方を示しています。(訳注:言うまでもありませんが、letletn では、ラムダ式内の変数を置き換えることはできません。)
letex evaluates n to the constant 3 and replaces c with it in the lambda expression. The second examples shows, how a letex variable can be expanded into itself.


syntax: (letn ((sym1 [exp-init1]) [(sym2 [exp-init2]) ... ]) body)
syntax: (letn (sym1 exp-init1 [sym2 exp-init2 ... ]) body)

letn は、入れ子になった let とも考えられ、let の様に動作します。 しかし、let を入れ子にしていったように、初期化式を評価する時、新たなシンボル束縛を順次使っていきます。 完全に括弧で括られる第一構文では初期値はオプションとなり、見つからない場合は nil になります。
letn is like a nested let and works similarly to let, but will incrementally use the new symbol bindings when evaluating the initializer expressions as if several let were nested. In the fully parenthesized first syntax, initializers are optional and assumed nil if missing.

次の letletn の比較が、その違いを示しています:
The following comparison of let and letn show the difference:

(set 'x 10)
(let ((x 1) (y (+ x 1))) 
(list x y))            (1 11)

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

let を使っている最初の例で、変数 ylet 式より前に束縛された x を使って計算されます。 letn を使った二番目の例で、変数 y は新たにローカルで束縛された x を使って計算されます。
While in the first example using let the variable y is calculated using the binding of x before the let expression, in the second example using letn the variable y is calculated using the new local binding of x.

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

;; same as nested let's

(let (x 1)
    (let (y x)
      (+ x y)))    2

letn は、入れ子になった let の様に動作します。 初期化周りの括弧は、省略できます。
letn works like several nested let. The parentheses around the initializer expressions can be omitted.


syntax: (list exp-1 [exp-2 ... ])

exp が評価され、その値が新しいリストを構成するために使われます。 アレイ型の引数は、リスト型に変換されますので注意してください。
The exp are evaluated and the values used to construct a new list. Note that arguments of array type are converted to lists.

(list 1 2 3 4 5)                 (1 2 3 4 5)
(list 'a '(b c) (+ 3 4) '() '*)  (a (b c) 7 () *)

リストに束縛する他の形式として conspush も見てください。
See also cons and push for other forms of building lists.


syntax: (list? exp)

exp の値がリストの時のみ true が返り、それ以外では nil が返ります。 ラムダ式やラムダ-マクロ式もリスト式の特殊な形として認識されることに注意してください。
Returns true only if the value of exp is a list; otherwise returns nil. Note that lambda and lambda-macro expressions are also recognized as special instances of a list expression.

(set 'var '(1 2 3 4))     (1 2 3 4)
(list? var)               true

(define (double x) (+ x x))

(list? double)            true


syntax: (load str-file-name-1 [str-file-name-2 ... ] [sym-context])

一個以上の str-file-name で指定されるソール・ファイルをロードして newLISP に翻訳し、そのファイルに含まれる式群を評価します。 ロードに成功すると、load は最後のファイルの最後の式の結果を返し、ロードできなかった時はエラーを起こします。
Loads and translates newLISP from a source file specified in one or more str-file-name and evaluates the expressions contained in the file(s). When loading is successful, load returns the result of the last expression in the last file evaluated. If a file cannot be loaded, load throws an error.

ロードしているファイル内にコンテキスト切り替えが存在しない限り、評価のコンテキスト用にオプションの sym-context が指定できます。 context 切り替えを含んでいないファイルは、デフォルトで MAIN コンテキストにロードされます。
An optional sym-context can be specified, which becomes the context of evaluation, unless such a context switch is already present in the file being loaded. By default, files which do not contain context switches will be loaded into the MAIN context.

str-file-name の種類には URL も含まれます。 http:// file:// のどちらの URL もサポートされます。
The str-file-name specs can contain URLs. Both http:// and file:// URLs are supported.

(load "myfile.lsp")    

(load "a-file.lsp" "b-file.lsp") 

(load "file.lsp" "")

(load "")

(load "a-file.lsp" "b-file.lsp" 'MyCTX)

(load "file:///usr/share/newlisp/mysql.lsp")

load 中に評価される式が context を変える場合でも、load を実行しているプログラミング・モジュールに影響を与えません。
In case expressions evaluated during the load are changing the context, this will not influence the programming module doing the load.

load 後の現在のコンテキストは、load 前と常に同じです。
The current context after the load statement will always be the same as before the load.

通常のファイルの たぐいと URL は、同じロード・コマンド内に混在可能です。
Normal file specs and URLs can be mixed in the same load command.

HTTP URL の load は、Unix ライクなオペレーティングシステムで走っている newLISP サーバーからリモートでコードをロードするためにも使えます。 このモードで、load は目標とする URL に HTTP GET 要求リクエストを出します。 パス名がルート・ディレクトリから相対的に指定されている時、二つのバックスラッシュが要求されることに気を付けてください。 HTTP モードの load は、60秒のタイムアウトを見ます。
load with HTTP URLs can also be used to load code remotely from newLISP server nodes running on a Unix-like operating system. In this mode, load will issue an HTTP GET request to the target URL. Note that a double backslash is required when path names are specified relative to the root directory. load in HTTP mode will observe a 60-second timeout.

最後から二つ目の行は、ファイルをコンテキスト MyCTX にロードします。 クォートは、そのコンテキストが存在しない時の生成を促します。
The second to last line causes the files to be loaded into the context MyCTX. The quote forces the context to be created if it did not exist.

file:// URL は、三つ目の / の後にディレクトリの詳細を続けます。
The file:// URL is followed by a third / for the directory spec.


syntax: (local (sym-1 [sym-2 ... ]) body)

一個以上のシンボル sym-1–nil に初期化し、body の式群を評価します。
Initializes one or more symbols in sym-1— to nil, evaluates the expressions in body, and returns the result of the last evaluation.

local は let の様に動作しますが、ローカル変数は全て nil に初期化されます。
local works similarly to let, but local variables are all initialized to nil.

local は、明示的な初期化無しにローカル変数を提供する簡単な方法です。
local provides a simple way to localize variables without explicit initialization.


syntax: (log num)
syntax: (log num num-base)

第一構文では、num の式が評価され、その結果から自然対数を計算します。
In the first syntax, the expression in num is evaluated and the natural logarithmic function is calculated from the result.

(log 1)          0
(log (exp 1))    1

第二構文では、任意の底として num-base を指定できます。
In the second syntax, an arbitrary base can be specified in num-base.

(log 1024 2)              10
(log (exp 1) (exp 1))      1

e (2.718281828) を底とする log の逆関数 exp も見てください。
See also exp, which is the inverse function to log with base e (2.718281828).


syntax: (lookup exp-key list-assoc [int-index [exp-default]])

連想リスト list-assoc 中から exp-key と同じ値を持つキー要素を見つけ、その連想の int-index の要素を返します(int-index がない場合は、最後の要素) 。
Finds in list-assoc an association, the key element of which has the same value as exp-key, and returns the int-index element of association (or the last element if int-index is absent).

exp-key に一致する連想が見つからなかった時に返す exp-default を、オプションで指定できます。 exp-default がなくて、連想が見つからなかった時は nil が返ります。
Optionally, exp-default can be specified, which is returned if an association matching exp-key cannot be found. If the exp-default is absent and no association has been found, nil is returned.

文字列、リスト、アレイの要素指定 も見てください。
See also Indexing elements of strings and lists.

lookupassoc に似ていますが、見つかったリストから要素を指定して取り出す手間が省けます。
lookup is similar to assoc but goes one step further by extracting a specific element found in the list.

(set 'params '(
    (name "John Doe") 
    (age 35) 
    (gender "M") 
    (balance 12.34)

(lookup 'age params)              35

; use together with setf to modify and association list
(setf (lookup 'age params) 42)    42
(lookup 'age params)              42

(set 'persons '(
    ("John Doe" 35 "M" 12.34) 
    ("Mickey Mouse" 65 "N" 12345678)

(lookup "Mickey Mouse" persons 2)     "N"
(lookup "Mickey Mouse" persons -3)    65
(lookup "John Doe" persons 1)         35 
(lookup "John Doe" persons -2)        "M"

(lookup "Jane Doe" persons 1 "N/A")   "N/A"

assoc も見てください。
See also assoc

lower-case utf8

syntax: (lower-case str)

文字列 str 中の文字を小文字に変換します。 新しい文字列が作られ、オリジナルは変わずに残ります。
Converts the characters of the string in str to lowercase. A new string is created, and the original is left unaltered.

(lower-case "HELLO WORLD")   "hello world"
(set 'Str "ABC")
(lower-case Str)   "abc"
Str                "ABC"

関数 upper-casetitle-case も見てください。
See also the upper-case and title-case functions.


syntax: (macro (sym-name [sym-param-1 ... ]) [body-1 ... ])

この関数 macro は拡張マクロ(訳注:macro)の定義に使います。 macro の構文は define-macro の構文と同一です。 けれども、define がランタイム中に評価される関数を定義するのに対して、macro はソースのロード時や読み込み処理中に使われる fexpr 関数(訳注: fexpr とは、オペランドが評価されずに渡される関数)を定義して、特定の式が呼び出された時にそれを異なる形に変換します。
The macro function is used to define expansion macros. The syntax of macro is identical to the syntax of define-macro. But while define-macro defines are fexprs functions to be evaluated at run-time, macro defines a function to be used during the source loading and reading process to transform certain expression call patterns into different call patterns.

(macro (double X) (+ X X))  (lambda-macro (X) (expand '(+ X X)))

(double 123)  246

Internally all macro defined symbol call patterns are translated using the expand expression during source reading. This can be shown using the read-expr function:

(read-expr "(double 123)")  (+ 123 123)

展開される変数名は全て大文字で始まらなければなりません。 macro の中に他の macro 定義を入れ子することができます。 しかしながら、同一 newLISP セッション内では macro による定義を同じシンボルに何度も繰り返し適用することはできません。 マクロを再定義したい場合(例えば、macro で定義された存在を別の定義でソース読み込みに使いたい時)は、下記のように関数 constant を使ってください:
All variable names to be expanded must start in upper-case. Macros can be nested containing other macros defined earlier. But macro definitions cannot be repeated for the same symbol during the same newLISP session. To redefine a macro, e.g. for reading source with a different definition of an exisiting macro definition, use the constant function in the following way:

; change existing macro 'double' to allow floating point parameters
; use upper-case for variables for expansion

(constant 'double (lambda-macro (X) (expand '(add X X))))
 (lambda-macro (X) (expand '(add X X)))

(double 1.23)  2.46

constantmacro の再定義に使えるだけで、新 macro の生成にも使えないことに注意してください。 newLISP 内部処理において、シンボルに定義された macro はソースの読み込み時に実行されますが、評価はしません。
Note, that constant can be used only to re-define macros, not to create new macros. Internally newLISP knows that macro defined symbols are executed during source reading, not evaluation.

The redefinition will only affect future read code, it will not affect code already load and translated by the reader routines.

Using map and apply with macromapapply での macro の使用)

macromapapply を使うと、拡張関数が展開されます:
When mapping macros using map or apply the expansion function is mapped:

> (macro (double X) (+ X X))
(lambda-macro (X) (expand '(+ X X)))

> (map double '(1 2 3 4 5))
((+ 1 1) (+ 2 2) (+ 3 3) (+ 4 4) (+ 5 5))

> (map eval (map double '(1 2 3 4 5)))
(2 4 6 8 10)

> (apply double '(10))
(+ 10 10)

macro での定義がソース読み込み時にどのように動作するかを、この様子が教えてくれます。
This is useful to find out how the expansion mechanism of our macro definition works during source load time.

Differences between macro and define-macro and potential problems.(macrodefine-macro との相違点、及び潜在する問題点)

macro による定義は、define-macro で作られる fexpr に存在する変数補足 に対して、耐性があります。
macro definitions are not susceptible to variable capture as are fexprs made with define-macro:

(define-macro (fexpr-add A B) 
    (+ (eval A) (eval B)))

(macro (mac-add A B) 
    (+ A B))

(set 'A 11 'B 22)

; variable capture when using the same symbols 
; used as locals in define-macro for callling

(fexpr-add A B) 
; or
(fexpr-add B A) 
ERR: value expected : A
called from user defined function fexpr-add

; no variable capture when doing the same with 
; expansion macros

(mac-add A B)  33

(mac-add B A)  33

とは言え、macro を使った拡張マクロにも、define-macro の時のような望んではいない二重評価が存在します:
But expansion macros using macro are susceptible to unwanted double evaluation, just like define-macro is:

(define-macro (fexpr-double X) 
    (+ (eval X) (eval X)))

(macro (mac-double X) 
    (+ X X))

(set 'a 10)
(fexpr-double (inc a))  23 ; not 22 as expected

(set 'a 10)
(mac-double (inc a))  23 ; not 22 as expected

どちらの場合も、内包する (inc a) 式が二回評価されています。 macro 式や define-macro 式を書く時は、このことを考量しておく必要があります。
In both cases the incoming expression (inc a) gets evaulated twice. This must be considered when writing both, macro or define-macro expressions and symbols occur more than once in the body of the definition.


syntax: (macro? exp)

exp がラムダ・マクロ式に評価される時に true を返し、それ以外では nil を返します。
Returns true if exp evaluates to a lambda-macro expression; otherwise, nil is returned.

(define-macro (mysetq lv rv) (set lv (eval rv)))

(macro? mysetq)   true

(macro (my-setq Lv Rv) (set 'Lv Rv))

(macro? my-setq)  true


syntax: (main-args)
syntax: (main-args int-index)

main-args は、プログラムの実行名とコマンド・ラインの引数を各々文字列にしたものをメンバーとするリストを返します。
main-args returns a list with several string members, one for program invocation and one for each of the command-line arguments.

newlisp 1 2 3

> (main-args)
("/usr/bin/newlisp" "1" "2" "3")

コマンド・プロンプトで newlisp 1 2 3 が実行された後、main-args は実施プログラム名とコマンド・ラインの引数の入ったリストを返します。
After newlisp 1 2 3 is executed at the command prompt, main-args returns a list containing the name of the invoking program and three command-line arguments.

main-args はオプションで、リストの要素指定用 int-index を取ることができます。 要素位置が範囲外なら、戻り値はリストの最後の要素ではなく、リストの要素指定のように nil になることに注意してください。
Optionally, main-args can take an int-index for indexing into the list. Note that an index out of range will cause nil to be returned, not the last element of the list like in list-indexing.

newlisp a b c

> (main-args 0)   
> (main-args -1)  
> (main-args 2)   
> (main-args 10)

newLISP がスクリプトから実行される場合は、main-args がスクリプトの 名前も二番目の引数として返すことに注意してください:
Note that when newLISP is executed from a script, main-args also returns the name of the script as the second argument:

# script to show the effect of 'main-args' in script file

(print (main-args) "\n")

# end of script file

;; execute script in the OS shell:

script 1 2 3

("/usr/bin/newlisp" "./script" "1" "2" "3")

Try executing this script with different command-line parameters.


syntax: (make-dir str-dir-name [int-mode])

str-dir-name で指定されたディレクトリをオプションのアクセス・モード int-mode で作ります。 結果次第で truenil が返ります。 アクセス・モードの指定がなければ、ほとんどの Unix システムでは drwxr-xr-x がデフォルトです。
Creates a directory as specified in str-dir-name, with the optional access mode int-mode. Returns true or nil depending on the outcome. If no access mode is specified, most Unix systems default to drwxr-xr-x.

Unix システム上で指定されるアクセス・モードは、OS の user-mask による設定でシステム管理者によってもマスクされます。 Unixシステム上での user-mask は、umaskコマンドを使って取り出せ、 通常、ファイルの所有者以外の書き込み(と生成)許可をマスクする 0022(8進数)となっています。
On Unix systems, the access mode specified will also be masked by the OS's user-mask set by the system administrator. The user-mask can be retrieved on Unix systems using the command umask and is usually 0022 (octal), which masks write (and creation) permission for non-owners of the file.

;; 0 (zero) in front of 750 makes it an octal number

(make-dir "adir" 0750)  

この例では、カレント・ディレクトリに adir という名前のディレクトリを 0750(8進数 750 = drwxr-x---)のアクセス・モードで作っています。
This example creates a directory named adir in the current directory with an access mode of 0750 (octal 750 = drwxr-x---).


syntax: (map exp-functor list-args-1 [list-args-2 ... ])

組込関数か(訳注:ユーザ)定義関数かラムダ式の exp-functorlist-args-1, list-args-2–– で指定される引数に連続的に適用し、結果の全てをリストにして返します。 バージョン 10.5.5 からは、list-args にベクトル・アレイも使えますが、返り値はリストになります。
Successively applies the primitive function, defined function, or lambda expression exp-functor to the arguments specified in list-args-1 list-args-2—, returning all results in a list. Since version 10.5.5 list-args can also be array vectors, but the returned result will always be a list.

(map + '(1 2 3) '(50 60 70))   (51 62 73)

(map if '(true nil true nil true) '(1 2 3 4 5) '(6 7 8 9 10))
 '(1 7 3 9 5)

(map (fn (x y) (* x y)) '(3 4) '(20 10))
 (60 40)

次の例が示しているのは、map 用の関数を動的に生成する方法です:
The second example shows how to dynamically create a function for map:

(define (foo op p) 
    (append (lambda (x)) (list (list op p 'x))))

短縮形の fn も使えます:
We can also use the shorter fn:

(define (foo op p) 
    (append (fn (x)) (list (list op p 'x))))

これで foo が関数生成器のように動作します:
foo now works like a function-maker:

(foo 'add 2)   (lambda (x) (add 2 x))

(map (foo add 2) '(1 2 3 4 5))   (3 4 5 6 7)

(map (foo mul 3) '(1 2 3 4 5))   (3 6 9 12 15)

オペランドの前のクォートを省略できることに着目してください。 というのも、newLISP の組込はそれ自身に評価されるからです。 (訳注:ユーザ定義関数でも、クォートは省略できます。)
Note that the quote before the operand can be omitted because primitives evaluate to themselves in newLISP.

map を関数定義と組み合わせると、次のようなことが可能です:
By incorporating map into the function definition, we can do the following:

(define (list-map op p lst) 
    (map (lambda (x) (op p x)) lst))

(list-map + 2 '(1 2 3 4))   (3 4 5 6)

(list-map mul 1.5 '(1 2 3 4))   (1.5 3 4.5 6)

map には内部リスト・インデックス値 $idx も配置できます。
map also sets the internal list index $idx.

(map (fn (x) (list $idx x)) '(a b c))  ((0 a) (1 b) (2 c))

使われる引数の数は第一引数のリストの長さで決まります。 残りのリストで引数が見つからない時、map はその引数の段階でパラメータ収集を止めます。 これは、置換中の n 番目のパラメータ・リストが、n 番目の行に変換されることを確実にします。 引数リストが多くの要素を含んでも、余分な要素は無視されます。

> (map (fn (x y z) (list $idx x y z)) '(a b c) '(1 2) '(A B C D E))
((0 a 1 A) (1 b 2 B) (2 c nil nil))

The number of arguments used is determined by the length of the first argument list. Arguments missing in other argument lists cause map to stop collecting parameters for that level of arguments. This ensures that the nth parameter list gets converted to the nth column during the transposition occurring. If an argument list contains too many elements, the extra ones will be ignored.

構文に括弧を使うような特殊形式(例えば caseとか)は、 map に使えません。
Special forms which use parentheses as syntax cannot be mapped (i.e. case).


syntax: (mat + | - | * | / matrix-A matrix-B)
syntax: (mat + | - | * | / matrix-A number)

この関数を第一構文で使うと、matrix-Amatrix-B の二次元行列に対して、高速浮動小数点スカラ演算を実行します。 演算の型には、四つの数値演算子 +, -, *, / の中から一つを指定します。 newLISP では、通常これら数値演算子型は整数演算に使われますが、mat ではこれらの演算子全てが浮動小数点演算 (add, sub, mul, div) を実行します。
Using the first syntax, this function performs fast floating point scalar operations on two-dimensional matrices in matrix-A or matrix-B. The type of operation is specified by one of the four arithmetic operators +, -, *, or /. This type of arithmetic operator is typically used for integer operations in newLISP. In the case of mat, however, all operations will be performed as floating point operations (add, sub, mul, div).

newLISP における行列は二次元のリストかアレイです。 newLISP はリストとアレイを内部的に高速アクセス可能な C 言語データ・オブジェクトに変換します。 このことが newLISP での行列演算を高速にしていて、C で直接コード化したものと同じくらいです。 同じことが、行列演算 multiplyinvert にも言えます。
Matrices in newLISP are two-dimensional lists or arrays. Internally, newLISP translates lists and arrays into fast, accessible C-language data objects. This makes matrix operations in newLISP as fast as those coded directly in C. The same is true for the matrix operations multiply and invert.

(set 'A '((1 2 3) (4 5 6)))
(set 'B A)

(mat + A B)     ((2 4 6) (8 10 12))
(mat - A B)     ((0 0 0) (0 0 0))
(mat * A B)     ((1 4 9) (16 25 36))
(mat / A B)     ((1 1 1) (1 1 1))

; specify the operator in a variable

(set 'op +)
(mat op A B)     ((2 4 6) (8 10 12)) 

第二構文を使うと、matrix-A の全てのセルが number のスカラ値で処理されます:
Using the second syntax, all cells in matrix-A are operated on with a scalar in number:

(mat + A 5)     ((6 7 8) (9 10 11))
(mat - A 2)     ((-1 0 1) (2 3 4))
(mat * A 3)     ((3 6 9) (12 15 18))
(mat / A 10)    ((.1 .2 .3) (.4 .5 .6))

他の行列演算 detinvertmultiplytranspose も見てください。
See also the other matrix operations det, invert, multiply, and transpose.


syntax: (match list-pattern list-match [bool])

list-pattern のパターンを list-match のリストに対して合致判定し、合致した式をリストで返します。 list-pattern には、三つのワイルド・カード文字 ?, +, * が 使われます。
The pattern in list-pattern is matched against the list in list-match, and the matching expressions are returned in a list. The three wildcard characters ?, +, and * can be used in list-pattern.

ワイルド・カード文字は入れ子が可能です。 match は合致した式のリストを返します。 各 ?(疑問符)に対しては、合致している式要素が返ります。 各 + (プラス符号) または *(アスタリスク)に対しては、合致した要素からなるリストが返ります。 パターンが list-match のリストに対して合致しなかった時、matchnil を返します。 ワイルド・カード文字がパターンに無い時は、空リストが返ります。
Wildcard characters may be nested. match returns a list of matched expressions. For each ? (question mark), a matching expression element is returned. For each + (plus sign) or * (asterisk), a list containing the matched elements is returned. If the pattern cannot be matched against the list in list-match, match returns nil. If no wildcard characters are present in the pattern an empty list is returned.

第三引数はオプションで、論理値 true (あるいは、nil 以外に評価される式) を与えることができます。 これにより、(訳注:合致した時の)match の戻り値が(訳注:list-match の)全要素になります。
Optionally, the Boolean value true (or any other expression not evaluating to nil) can be supplied as a third argument. This causes match to show all elements in the returned result.

findrefref-allreplace において、 match はファンクタ(関数オブジェクト)のパラメータとして使われます。 また、リストに対する find-all の内部で使われます。
match is frequently employed as a functor parameter in find, ref, ref-all and replace and is internally used by find-all for lists.

(match '(a ? c) '(a b c))   (b)

(match '(a ? ?) '(a b c))   (b c)

(match '(a ? c) '(a (x y z) c))   ((x y z))

(match '(a ? c) '(a (x y z) c) true)   (a (x y z) c)

(match '(a ? c) '(a x y z c))   nil

(match '(a * c) '(a x y z c))   ((x y z))

(match '(a (b c ?) x y z) '(a (b c d) x y z))   (d)

(match '(a (*) x ? z) '(a (b c d) x y z))   ((b c d) y)

(match '(+) '())   nil

(match '(+) '(a))   ((a))

(match '(+) '(a b))   ((a b))

(match '(a (*) x ? z) '(a () x y z))   (() y)

(match '(a (+) x ? z) '(a () x y z))   nil 

match における * 演算子は、可能な限り少ない要素を捕まえようとしますが、合致しないとバックトラックして、より多くの要素を捕まえようとするので注意してください。
Note that the * operator tries to grab the fewest number of elements possible, but match backtracks and grabs more elements if a match cannot be found.

+* と似た動作をしますが、少なくとも一つのリスト要素を必要とします。
The + operator works similarly to the * operator, but it requires at least one list element.

The following example shows how the matched expressions can be bound to variables.

(map set '(x y) (match '(a (? c) d *) '(a (b c) d e f)))

x   b
y   (e f)

文字列に対して、match は使えません。 より強力な文字列合致には、regexfindfind-allparse を使ってください。
Note that match for strings has been eliminated. For more powerful string matching, use regex, find, find-all or parse.

unify は別の合致表現用関数で、PROLOG のように振る舞います。
unify is another function for matching expressions in a PROLOG like manner.


syntax: (max num-1 [num-2 ... ])

num-1 以下の式を評価して、最大数を返します。
Evaluates the expressions num-1— and returns the largest number.

(max 4 6 2 3.54 7.1)   7.1

関数 min も見てください。
See also the min function.


syntax: (member exp list)
syntax: (member str-key str [num-option])

第一構文の member は、リスト list で要素 exp を検索します。 要素がリストのメンバなら、元のリストで見つかった要素からの残りを新しいリストとして構成して、返します。 見つからなかった場合は nil が返ります。 num-option を指定された member は、正規表現検索を実行します。
In the first syntax, member searches for the element exp in the list list. If the element is a member of the list, a new list starting with the element found and the rest of the original list is constructed and returned. If nothing is found, nil is returned. When specifying num-option, member performs a regular expression search.

(set 'aList '(a b c d e f g h))   (a b c d e f g h)
(member 'd aList)                 (d e f g h)
(member 55 aList)                 nil

第二構文の member は、str 中の str-key を検索します。 str-key が見つかれば、 (str-key から始まる) str の全てが返ります。 見つからなければ、 nil が返ります。
In the second syntax, member searches for str-key in str. If str-key is found, all of str (starting with str-key) is returned. nil is returned if nothing is found.

(member "LISP" "newLISP")   "LISP"
(member "LI" "newLISP")     "LISP"
(member "" "newLISP")       "newLISP"
(member "xyz" "newLISP")    nil
(member "li" "newLISP" 1)   "LISP"

関連する関数 slicefind も見てください。
See also the related functions slice and find.


syntax: (min num-1 [num-2 ... ])

num-1 以下を評価して、一番小さい数値を返します。
Evaluates the expressions num-1— and returns the smallest number.

(min 4 6 2 3.54 7.1)   2

関数 max も見てください。
See also the max function.


syntax: (mod num-1 num-2 [num-3 ... ])

num-1num-2 から 余りモジュラ・バリューを計算します。 つまり、mod が計算するのは、分子 num-i を 分母 num-i + 1 で割った時の残りです。 具体的には、戻り値は分子 - n * 分母 で、この時の n は分子を分母で割った商でゼロに近い方に丸めた整数です。 その結果、分子と同じ符合で、大きさが分母よりも小さくなります。
Calculates the modular value of the numbers in num-1 and num-2. mod computes the remainder from the division of the numerator num-i by the denominator num-i + 1. Specifically, the return value is numerator - n * denominator, where n is the quotient of the numerator divided by the denominator, rounded towards zero to an integer. The result has the same sign as the numerator and its magnitude is less than the magnitude of the denominator.

(mod 10.5 3.3)     0.6
(mod -10.5 3.3)   -0.6

整数に対してのみ動作させたい時は、関数 %(パーセント記号)を使ってください。
Use the % (percent sign) function when working with integers only.


syntax: (mul num-1 num-2 [num-3 ... ])

num-1 以下の全てを評価し、その積を計算して返します。 mul は(訳注:整数と浮動小数点数の)混在型算術を実行しますが、常に浮動小数点数で返します。 NaN となる浮動小数点数に対しては、NaN が返ります。
Evaluates all expressions num-1—, calculating and returning the product. mul can perform mixed-type arithmetic, but it always returns floating point numbers. Any floating point calculation with NaN also returns NaN.

(mul 1 2 3 4 5 1.1)   132
(mul 0.5 0.5)         0.25


syntax: (multiply matrix-A matrix-B)

行列 matrix-Amatrix-B の行列積を返します。 matrix-Anm 列で、matrix-Bkl 列なら(mk は等しい)、結果は nl 列になります。 multiply は(訳注:整数と浮動小数点数の)混在型算術を実行しますが、整数の値があったとしても、結果は常に倍精度浮動小数点数です。
Returns the matrix multiplication of matrices in matrix-A and matrix-B. If matrix-A has the dimensions n by m and matrix-B the dimensions k by l (m and k must be equal), the result is an n by l matrix. multiply can perform mixed-type arithmetic, but the results are always double precision floating points, even if all input values are integers.

行列の次元は、行数と最初の行の要素数で決まります。 非正方行列で見つからない要素は、0.0 になります。 行列は、入れ子のリストでも arrayでも可能です。
The dimensions of a matrix are determined by the number of rows and the number of elements in the first row. For missing elements in non-rectangular matrices, 0.0 is assumed. A matrix can either be a nested list or array.

(set 'A '((1 2 3) (4 5 6)))
(set 'B '((1 2) (1 2) (1 2)))
(multiply A B)   ((6 12) (15 30))

(set 'v '(10 20 30))
(multiply A (transpose (list v)))  ((140) (320))

行列と n 要素のベクトル積をとる時、ベクトルは transpose を使って n1 列の行列に変換しておく必要があります。
When multiplying a matrix with a vector of n elements, the vector must be transformed into n rows by 1 column matrix using transpose.

All operations shown here on lists can be performed on arrays, as well.

行列演算子 detinvertmattranspose も見てください。
See also the matrix operations det, invert, mat and transpose.


この機能は推奨されません、代わりに term を使ってください。(訳注:この関数は V10.2 から使えませんので、name がシンボル名に使えます。以前のバージョンと互換性を持たせたい時は、

; make new code compatible with older newLISP versions
(when (< (sys-info -2) 10111)
(constant (global 'term) name)) 
という方法が使えます。 この例は、以前のマニュアルからの抜粋です。)
This function is deprecated, use term instead.


syntax: (NaN? float)

浮動小数点演算の結果が NaN であるかどうかをテストします。 信頼できる浮動小数点演算は、'Not a Number' に対して NaN と呼ばれる IEEE 754 の特殊数値形式を返します。
Tests if the result of a floating point math operation is a NaN. Certain floating point operations return a special IEEE 754 number format called a NaN for 'Not a Number'.

; floating point operation on NaN yield NaN
(set 'x (sqrt -1))   NaN
(NaN? x)             true
(add x 123)          NaN
(mul x 123)          NaN

; integer operations treat NaN as zero
(+ x 123)   123
(* x 123)   0

; comparisons with NaN values yield nil
(> x 0)    nil
(<= x 0)   nil
(= x x)    nil

(set 'infinity (mul 1.0e200 1.0e200))  inf
(NaN? (sub infinity infinity))  true

NaN を伴なう全ての浮動小数点計算が NaN となることに注意してください。 つまり、NaN との比較では全て nil が返ります。自身との比較では true のはずですが、 ANSI C 使用時には not true の結果となるからです。 整数演算では、 NaN0(ゼロ)として扱われます。
Note that all floating point arithmetic operations with a NaN yield a NaN. All comparisons with NaN return nil, but true when comparing to itself. Comparison with itself, however, would result in not true when using ANSI C. Integer operations treat NaN as 0 (zero) values.

無限大の浮動小数点数値をテストする inf? も見てください。
See also inf? for testing a floating point value for infinity.


syntax: (net-accept int-socket)

前もって待ち受け(listen)モードに置かれたソケット上の接続を受け入れます。 この接続の受信及び送信データ用に作成された新規ソケット・ハンドルが返ります。
Accepts a connection on a socket previously put into listening mode. Returns a newly created socket handle for receiving and sending data on this connection.

(set 'socket (net-listen 1234))
(net-accept socket)

Unixライクのオペレーティング・システムで 1024 より小さいポートを使うためには、newLISP がスーパーユーザ・モードで開始されなければならないことに注意してください。
Note that for ports less than 1024, newLISP must be started in superuser mode on Unix-like operating systems.

配布ソースのディレクトリ examples/ にあるファイル serverclient の例も見てください。
See also the files server and client examples in the examples/ directory of the source distribution.


syntax: (net-close int-socket [true])

関数 net-connectnet-accept で、前もって作成された int-socket のネットワーク・ソケットを閉じます。 成功すれば true を、失敗すれば nil を返します。
Closes a network socket in int-socket that was previously created by a net-connect or net-accept function. Returns true on success and nil on failure.

(net-close aSock)

オプションの true フラグは、ソケットの即時遮断を抑えて、実行中のデータ送信が終わるまで待ちます。
The optional true flag suppresses immediate shutdown of sockets by waiting for pending data transmissions to finish.


syntax: (net-connect str-remote-host int-port [int-timeout-ms])
syntax: (net-connect str-remote-host int-port [str-mode [int-ttl]])
syntax: (net-connect str-file-path)

第一構文では、str-remote-host で指定されたリモート・ホスト・コンピュータと int-portで指定されたポートを接続します。 成功裏に接続した後はソケット・ハンドルが返り、それ以外では、nil が返ります。
In the first syntax, connects to a remote host computer specified in str-remote-host and a port specified in int-port. Returns a socket handle after having connected successfully; otherwise, returns nil.

(set 'socket (net-connect "" 80))
(net-send socket "GET /\r\n\r\n")
(net-receive socket buffer 10000)
(println buffer)

例では、HTTP GET 要求リクエストが送られ、その後にウェブ・ページが受信されます。 newLISP は、この例と同じ機能を提供する組込関数 get-url を持っていることに注意してください。
In the example a HTTP GET request is sent and subsequently a web page received. Note that newLISP has already a built-in function get-url offering the same functionality.

オプションで、タイムアウト値 int-timeout をミリ秒単位で指定できます。 タイムアウト値が無い時、関数はポートを開くために 10 秒待ちます。 タイムアウト値があれば、関数は利用できないポートからの戻りを早めたり、遅くしたりできます。 次の例は、開いているポートを探すポート・スキャナーを示します:
Optionally a timeout value int-timeout in milliseconds can be specified. Without a timeout value the function will wait up to 10 seconds for an open port. With a timeout value the function can be made to return on an unavailable port much earlier or later. The following example shows a port scanner looking for open ports:

(set 'host (main-args 2))
(println "Scanning: " host)
(for (port 1 1024)
    (if (set 'socket (net-connect host port 500))
        (println "open port: " port " " (or (net-service port "tcp") ""))
        (print port "\r"))

プログラムは、ドメイン名かドット表記の IP 番号どちらかのホストの文字列をシェル・コマンド・ラインから取り、1 から 1024 までの各ポートでオープンを試みます。 各オープン・ポートでは、ポート番号とサービス・ディスクリプション文字列が出力されます。 利用できるディスクリプションが無いなら、空文字列 "" が出力されます。 ポートが閉じている時、関数はシェル・ウィンドウで同一ライン上に留まり、番号を出力します。
The programs takes the host string from the shell command line as either a domain name or an IP number in dot notation then tries to open each port from 1 to 1024. For each open port the port number and the service description string is printed. If no description is available, an empty string "" is output. For closed ports the function outputs numbers in the shell window staying on the same line.

Unix では、net-connect がポートを利用できない時、タイムアウト終了前に nil を返すかもしれません。 MS Windows では、net-connectnil で失敗する際も、常にタイムアウトするまで待ちます。
On Unix net-connect may return with nil before the timeout expires, when the port is not available. On MS Windows net-connect will always wait for the timeout to expire before failing with nil.

UDP communications(UDP 通信)

第二構文では、第三パラメータとしてのオプション str-mode に、文字列 "udp" または "u" が指定でき、UDP(ユーザ・データグラム・プロトコル)通信に適したソケットを作成します。 UDP モードの net-connect はリモート・ホストへの接続を試みません が、アドレスが指定されれば、ソケットを作成し、そのリモート・アドレスに束縛します。 その後の net-send が、目標アドレスを含む UDP パケットを送信します。 net-send-to を使う時は、関数 net-connectnet-send-to のどちらかだけが、目標アドレスを提供すべきです。 つまり、片方の関数は目標アドレスとして空文字 "" を指定しなければなりません。
In the second syntax, a third parameter, the string "udp" or "u" can be specified in the optional str-mode to create a socket suited for UDP (User Datagram Protocol) communications. In UDP mode, net-connect does not try to connect to the remote host, but creates the socket and binds it to the remote address, if an address is specified. A subsequent net-send will send a UDP packet containing that target address. When using net-send-to, only one of the two functions net-connect or net-send-to should provide a target address. The other function should specify and empty string "" as the target address.

;; example server
(net-listen 4096 "" "udp") → 5
(net-receive-from 5 20)

;; example client I
(net-connect "" 4096 "udp") → 3
(net-send 3 "hello")

;; example client II
(net-connect "" 4096 "udp") → 3
(net-send-to "" 4096 "hello" 3)

net-listennet-connect"udp" オプションが使われた時、関数 net-receivenet-receive-from の両方が使え、UDP 通信を実行します。 net-selectnet-peek が、ノン・ブロッキング状態での受信データ・チェックに使えます。
The functions net-receive and net-receive-from can both be used and will perform UDP communications when the "udp" option as been used in net-listen or net-connect. net-select and net-peek can be used to check for received data in a non-blocking fashion.

net-listen は、特定のローカル・アドレスとポートをソケットに束縛します。 net-connect が使われる時、ローカル・アドレスとポートはホスト OS のソケット・スタック関数によって選ばれます。
net-listen binds a specific local address and port to the socket. When net-connect is used, the local address and port will be picked by the socket-stack functions of the host OS.

UDP multicast communications(UDP マルチキャスト通信)

第三パラメータ str-mode"multi""m" を指定すると、UDP マルチキャスト通信用ソケットを生成します。 オプションの第四パラメータ int-ttl に TTL (time to live) 値を指定できます。 int-ttl 値が指定されない時、その値は 3 になります。
When specifying "multi" or "m" as a third parameter for str-mode, a socket for UDP multicast communications will be created. Optionally, the fourth parameter int-ttl can be specified as a TTL (time to live) value. If no int-ttl value is specified, a value of 3 is assumed.

net-connect の UDP マルチキャスト・モード指定は、ソケットを UDP マルチキャスト・モードに置くだけで、実際には目標のマルチキャスト・アドレスとの接続を確立しないことに注意してください。 受信側では、net-listen を UDP マルチキャスト・オプションで使ってください。
Note that specifying UDP multicast mode in net-connect does not actually establish a connection to the target multicast address but only puts the socket into UDP multicasting mode. On the receiving side, use net-listen together with the UDP multicast option.

;; example client I
(net-connect "" 4096 "multi")   3
(net-send-to "" 4096 "hello" 3)

;; example client II
(net-connect "" 4096 "multi")   3
(net-send 3 4096 "hello")

;; example server
(net-listen 4096 "" "multi")   5
(net-receive-from 5 20)               
 ("hello" "" 32769)

サーバー側では、ノン・ブロッキング通信に net-peeknet-select が使えます。 上の例では、データグラムが受信されるまでサーバーはブロックしています。
On the server side, net-peek or net-select can be used for non-blocking communications. In the above example, the server would block until a datagram is received.

アドレス は、 から までのクラス D 範囲マルチキャスト・アドレス内の一マルチキャスト・アドレスです。
The address is just one multicast address in the Class D range of multicast addresses from to

net-send-tonet-receive-from の代わりに、関数 net-sendnet-receive が使えます。
The net-send and net-receive functions can also be used instead of net-send-to and net-receive-from.

UDP broadcast communications(UDP ブロードキャスト通信)

第三パラメータ str-mode に文字列 "broadcast""b" を指定すると、UDP ブロードキャスト通信が設定されます。 この場合、ブロードキャスト・アドレスの最後には 255 が使われます。
Specifying the string "broadcast" or "b" in the third parameter, str-mode, causes UDP broadcast communications to be set up. In this case, the broadcast address ending in 255 is used.

;; example client
(net-connect "" 3000 "broadcast")   3
(net-send 3 "hello")

;; example server
(net-listen 3000 "" "udp")   5

(net-receive 5 buff 10)
buff   "hello"
;; or
(net-receive-from 5 10)
 ("hello" "" 46620)

受信側では、net-listen"" (空文字列) で指定されるデフォルト・アドレスで使われるべきだということに注意してください。 ブロードキャストは、特定のアドレスでは受信できません。 全ての UDP 通信において、net-listen は実際に受信側を待ち受け(listen)モードに置きません。 どちらかというと、ソケットを特殊 UDP モードに設定します。
Note that on the receiving side, net-listen should be used with the default address specified with an "" (empty string). Broadcasts will not be received when specifying an address. As with all UDP communications, net-listen does not actually put the receiving side in listen mode, but rather sets up the sockets for the specific UDP mode.

ノン・ブロッキング状態で通信が来たかどうかをチェックするために、関数net-selectnet-peek が使えます。
The net-select or net-peek functions can be used to check for incoming communications in a non-blocking fashion.

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

第三構文の net-connect は、str-file-path を使って名付けられた ローカル ドメイン Unix ソケット を通して、ローカル・ファイル・システム上のサーバーに接続します。 成功裏に接続を持った後にソケット・ハンドルを返し、それ以外では nil を返します。
In the third syntax, net-connect connects to a server on the local file system via a local domain Unix socket named using str-file-path. Returns a socket handle after having connected successfully; otherwise, returns nil.

(net-connect "/tmp/mysocket")   3

; on OS/2 use "\\socket\\" prefix

(net-connect "\\socket\\mysocket")

ローカル・ドメイン のファイル・システム・ソケットが生成され、返されます。 サーバー側では、ローカル・ドメイン のソケット が net-listennet-accept を使って生成されています。 接続が確立された後は、通常 TCP/IP ストリーム通信に関数 net-selectnet-sendnet-receive を使います。 この形の接続は、同じファイル・システム上のプロセス間高速双方向通信チャンネルとして使われます。 この形の接続は、MS Windows プラットフォーム では利用できません。
A local domain file system socket is created and returned. On the server side, local domain sockets have been created using net-listen and net-accept. After the connection has been established the functions net-select, net-send and net-receive can be used as usual for TCP/IP stream communications. This type of connection can be used as a fast bi-directional communications channel between processes on the same file system. This type of connection is not available on MS Windows platforms.


syntax: (net-error)
syntax: (net-error int-error)

関数 net-acceptnet-connectnet-evalnet-listennet-lookupnet-receivenet-receive-udpnet-selectnet-sendnet-send-udpnet-service のいずれかを呼び出した時に発生した最後のエラーを取り出します。 これらの関数が失敗した時はいつも nil を返すので、より多くの情報を取り出すために net-error が使われます。
Retrieves the last error that occurred when calling a any of the following functions: net-accept, net-connect, net-eval, net-listen, net-lookup, net-receive, net-receive-udp, net-select, net-send, net-send-udp, and net-service. Whenever one of these functions fails, it returns nil and net-error can be used to retrieve more information.

ソケット使用通信を行う関数はソケットを自動的に閉じて、 net-sessions のリストからソケットを削除します。
Functions that communicate using sockets close the socket automatically and remove it from the net-sessions list.

net-* が成功裏に終了した場合は、エラー番号を消去します。
Each successful termination of a net-* function clears the error number.

The following messages are returned:

1Cannot open socket
2DNS resolution failed
3Not a valid service
4Connection failed
5Accept failed
6Connection closed
7Connection broken
8Socket send() failed
9Socket recv() failed
10Cannot bind socket
11Too many sockets in net-select
12Listen failed
13Badly formed IP
14Select failed
15Peek failed
16Not a valid socket
17Cannot unblock socket
18Operation timed out
19HTTP bad formed URL
20HTTP file operation failed
21HTTP transfer failed
22HTTP invalid response from server
23HTTP no response from server
24HTTP no content
25HTTP error in header
26HTTP error in chunked format

(net-error)  nil

(net-connect "jhghjgkjhg" 80)    nil

(net-error)    (2 "ERR: "DNS resolution failed") 

int-error が指定された時は、その番号とエラー番号のエラー・テキストを返します。
When int-error is specified the number and error text for that error number is returned.

(net-error 10)  (10 "Cannot bind socket")

last-errorsys-error も見てください。
See also last-error and sys-error.


syntax: (net-eval str-host int-port exp [int-timeout [func-handler]])
syntax: (net-eval '((str-host int-port exp) ... ) [int-timeout [func-handler]])

一つ以上の newLISP サーバー上において、リモートでソースを評価するために使われます。 この関数は、リモート・サーバーへの接続に必要な全ての通信を処理し、評価用のソースを送信し、応答レスポンスを待って収集します。
Can be used to evaluate source remotely on one or more newLISP servers. This function handles all communications necessary to connect to the remote servers, send source for evaluation, and wait and collect responses.

exp 式は、目標ノードの環境下でリモートに評価されます。 exp はクォート式か文字列区切りに内包される式のどちらかです。 より大きな式には、ダブル・クォート " ... " の代わりに、 [text] ... [/text] 区切りを使うことができます。 一個より多い式を指定した時、目標ノードで全て評価されますが、最初の結果のみが返ります。
The expression in exp will be evaluated remotely in the environment of the target node. The exp is either a quoted expression, or it is enclosed in string delimiters. For bigger expressions [text] ... [/text] delimiters can be used instead of double quotes " ... ". Only one expression should be enclosed in the string. When more than one are specified, all will get evaluated in the target node, but only the result of the first will be returned.

リモート TCP/IP サーバーは、次のような方法で開始されます:
The remote TCP/IP servers are started in the following way:

newlisp -c -d 4711 &

; preloading function definitions

newlisp preload.lsp -c -d 12345 &

; logging connections

newlisp -l -c -d 4711 &

; communicating via Uix local domain sockets

newlisp -c /tmp/mysocket

newLISP がプロンプトを出すのを抑制するには、-c オプションが必要です。
The -c option is necessary to suppress newLISP emitting prompts.

デーモン・モード -d は、newLISP の接続間の状態保持を許可します。 接続間の状態保持を望まない時は、inetd デーモン モード の方が有利です。 インターネットの inetd あるいは xinetd サービス・デーモンは、各クライアント接続毎に一つの新規 newLISP プロセスを開始します。 これは、複数の接続において、より高速なサービスを作り出します。 -d デーモン・モードでは、各クライアントの要求リクエストは先行している要求リクエストが終わるのを待たなければなりません。 このモードの正しい設定方法は、inetd デーモン モード の章で見てください。
The -d daemon mode allows newLISP to maintain state between connections. When keeping state between connections is not desired, the inetd daemon mode offers more advantages. The Internet inetd or xinetd services daemon will start a new newLISP process for each client connection. This makes for much faster servicing of multiple connections. In -d daemon mode, each new client request would have to wait for the previous request to be finished. See the chapter inetd daemon mode on how to configure this mode correctly.

4711 の代わりに、他のポート番号も使えます。 異なるホストにおいて、同じか違うポート番号で、複数のノードを始められます。 通信やリモート・コマンドのログを取るために、ロギング・オプションの -l あるいは -L を指定できます。
Instead of 4711, any other port number can be used. Multiple nodes can be started on different hosts and with the same or different port numbers. The -l or -L logging options can be specified to log connections and remote commands.

第一構文の net-eval は、一つのリモート newLISP サーバー・ノードとだけ 会話トークし、str-host ホストの int-port ポートに式 exp を評価する要求リクエストを送ります。 int-timeout がない時、net-eval は接続後に 応答レスポンスがあるまで 60 秒待ちます。 一方で(訳注:int-timeout がある時)、そのミリ秒のタイム・アウト時間が経過すると nil を返します。 そうでなければ、exp の評価結果が返ります。
In the first syntax, net-eval talks to only one remote newLISP server node, sending the host in str-host on port int-port a request to evaluate the expression exp. If int-timeout is not given, net-eval will wait up to 60 seconds for a response after a connection is made. Otherwise, if the timeout in milliseconds has expired, nil is returned; else, the evaluation result of exp is returned.

; the code to be evaluated is given in a quoted expression
(net-eval "" 4711 '(+ 3 4))        7

; expression as a string (only one expression should be in the string)
(net-eval "" 4711 "(+ 3 4)")       7

; with timeout
(net-eval "" 4711 '(+ 3 4) 1)      nil  ; 1ms timeout too short
(net-error)                                    (17 "ERR: Operation timed out")

(net-eval "" 4711 '(+ 3 4) 1000)   7

; program contained in a variable
(set 'prog '(+ 3 4))
(net-eval "" 4711 prog)            7

; specify a local-domain Unix socket (not available on MS Windows)
(net-eval "/tmp/mysocket" 0 '(+ 3 4))          7

net-eval の第二構文は、応答レスポンスの全てが集められるかタイム・アウトが起こると、結果のリストを返します。 タイム・アウト時の応答レスポンスには、nil が返ります。 例の最後の行は、ソケット・パスとポート番号 0 を指定してローカル・ドメイン Unix ソケットを指定する方法を示しています。 接続エラーもしくはノードに情報を送信した時に起こるエラーが、エラー番号と詳細エラー文字列のリストとして返っています。 返される可能性のあるエラー・メッセージのリストは、関数 net-error で見てください。
The second syntax of net-eval returns a list of the results after all of the responses are collected or timeout occurs. Responses that time out return nil. The last example line shows how to specify a local-domain Unix socket specifying the socket path and a port number of 0. Connection errors or errors that occur when sending information to nodes are returned as a list of error numbers and descriptive error strings. See the function net-error for a list of potential error messages.

; two different remote nodes different IPs
(net-eval '(
    ("" 4711 '(+ 3 4)) 
    ("" 4711 '(+ 5 6))
    ) 5000)
 (7 11)

; two persistent nodes on the same CPU different ports
(net-eval '(
    ("localhost" 8081 '(foo "abc")) 
    ("localhost" 8082 '(myfunc 123)') 
    ) 3000)

; inetd or xinetd nodes on the same server and port
; nodes are loaded on demand
(net-eval '(
    ("localhost" 2000 '(foo "abc")) 
    ("localhost" 2000 '(myfunc 123))
    ) 3000)

最初の例は、二つの異なるリモート・ノードで評価される二つの式を示しています。 二番目の例は、ローカル・コンピュータ上の二つのノードに対してです。 コンピュータ上のマルチCPUのデバックや優位性を語る上で、これが役立つかもしれません。 ポート番号に 0 を指定すると、net-eval はホスト名としてローカル・ドメイン Unix ソケットへのフルパスを取ります。
The first example shows two expressions evaluated on two different remote nodes. In the second example, both nodes run on the local computer. This may be useful when debugging or taking advantage of multiple CPUs on the same computer. When specifying 0 for the port number , net-eval takes the host name as the file path to the local-domain Unix socket.

foomyfunc の定義が両方共、目標環境に存在しなければならないことに注意してください。 これは、前もって define 宣言文を送信して net-eval を使えば可能です。 リモート・ノードの開始時に、コードをロードして置くことでも可能です。
Note that definitions of foo and myfunc must both exist in the target environment. This can be done using a net-eval sending define statements before. It also can be done by preloading code when starting remote nodes.

ノードが、inetd か xinetd の制御下であれば、いくつかのノードが同じ IP アドレスとポートを持てるかもしれません。 この場合、Unix のデーモン inetd または xinetd が 要求リクエストに応じて複数の newLISP を開始します。 これは、たった一つしかないマシンで配布プログラムをテストする時に役立ちます。 最後の例が、その状況を示しています。 プラットフォーム OS が異なる CPU コアに異なるプロセスを配置できるマルチ・コア CPU 上でも役立ちます。
When nodes are inetd or xinetd-controlled, several nodes may have the same IP address and port number. In this case, the Unix daemon inetd or xinetd will start multiple newLISP servers on demand. This is useful when testing distributed programs on just one machine. The last example illustrates this case. It is also useful on multi core CPUs, where the platform OS can distribute different processes on to different CPU cores.

評価のために送るソースには、複数ラインのプログラムを含めることができます。 この方法では、リモート・ノードは最初にプログラムをロードし、その後に特定の関数を呼び出せます。 大規模プログラム・ファイルのプログラム転送には、関数 put-urlsave(URL ファイル名を使用)を使えます。 net-eval 宣言文がこれらのプログラムをロードできます。
The source sent for evaluation can consist of entire multiline programs. This way, remote nodes can be loaded with programs first, then specific functions can be called. For large program files, the functions put-url or save (with a URL file name) can be used to transfer programs. The a net-eval statement could load these programs.

オプションでハンドラ関数を指定できます。 この関数は、待ち時間毎に繰り返し呼び出され、リモート評価が全て終了した時にも一回呼び出されます。
Optionally, a handler function can be specified. This function will be repeatedly called while waiting and once for every remote evaluation completion.

(define (myhandler param)
    (if param
        (println param))

(set 'Nodes '(
    ("" 4711)
    ("" 4711)

(set 'Progs '(
    (+ 3 4)
    (+ 5 6)

(net-eval (map (fn (n p) (list (n 0) (n 1) p)) Nodes Progs) 5000 myhandler)

("" 4711 7)
("" 4711 11)

例では、ノード指定のリストがノードのリストと評価用ソースから組み立てられる様子を示しています。 これは、多数のリモート・ノードとの接続時に役立つかもしれません。
The example shows how the list of node specs can be assembled from a list of nodes and sources to evaluate. This may be useful when connecting to a larger number of remote nodes.

(net-eval (list 
  (list (Nodes 0 0) (Nodes 0 1) (Progs 0)) 
  (list (Nodes 1 0) (Nodes 1 1) (Progs 1)) 
 ) 3000 myhandler)

リモート・ノードからの入力を待っている間、myhandler は引数 paramnil にして呼び出されます。 リモート・ノードの結果が全て受信されると、リモート・ホスト名か IP 番号 かポートと結果の式からなるリストにセットされた parammyhandler が呼び出されます。 net-eval は、タイム・アウト前に true を返し、タイム・アウトに達するか過ぎた時に nil を返します。 タイム・アウトを過ぎた全てのリモート・ホストは、結果のリストに nil を含みます。
While waiting for input from remote hosts, myhandler will be called with nil as the argument to param. When a remote node result is completely received, myhandler will be called with param set to a list containing the remote host name or IP number, the port, and the resulting expression. net-eval will return true before a timeout or nil if the timeout was reached or exceeded. All remote hosts that exceeded the timeout limit will contain a nil in their results list.

より長い例には、このプログラムを見てください:mapreduce。 この例は、単語計数タスクを三つのリモート・ノードに配布する方法を示しています。 三つのノードは異なるテキストの単語を計数し、マスター・ノードが結果を受け取り、まとめます。
For a longer example see this program: mapreduce. The example shows how a word counting task gets distributed to three remote nodes. The three nodes count words in different texts and the master node receives and consolidates the results.


syntax: (net-interface str-ip-addr)
syntax: (net-interface)

ネットワーク通信に使われるデフォルトのローカル・インターフェイス・アドレスを設定します。 設定していなければ、net-listen に与えられるインターフェイス・アドレスで上書きされていない限り、ネットワーク関数は内部デフォルト・アドレスをデフォルトにします。
Sets the default local interface address to be used for network connections. If not set then network functions will default to an internal default address, except when overwritten by an optional interface address given in net-listen.

str-ip-addr を指定しない時には、現行のデフォルト値が返ります。 その以前に、net-interface を IP アドレス指定に使っていなければ、アドレス が返ります。 これは、ネットワーク・ルーチン全てがオペレーティング・システム下で予め設定されたデフォルト・アドレスを使うことを意味します。
When no str-ip-addr is specified, the current default is returned. If the net-interface has not been used yet to specify an IP address, the address is returned. This means that all network routines will use the default address preconfigured by the underlying operating system.

複数のネットワーク・インターフェイス・ハードウェアを持つか、複数のIP番号を用意しているマルチ・ホーム・サーバでのみ、この関数を使います。 ネットワーク関数は他の機器において、インストールされている単一ネットワークを自動的に選択するからです。
This function has only usage on multihomed servers with either multiple network interface hardware or otherwise supplied multiple IP numbers. On all other machines network functions will automatically select the single network interface installed.

関数はエラー発生時に nil を返し、エラー内容を報告させるために net-error を使えます。
On error the function returns nil and net-error can be used to report the error.

(net-interface "")   ""
(net-interface "localhost")      ""

インターフェイス・アドレスには、IP アドレスか名前を指定できます。 戻り値は str-ip-addr に与えられたアドレスです。
An interface address can be defined as either an IP address or a name. The return value is the address given in str-ip-addr


syntax: (net-ipv int-version)
syntax: (net-ipv)

インターネット・プロトコル・バージョンの IPv4 と IPv6 間を切り替えます。 int-version は、IPv4 の 4 か IPv6 の 6 が入ります。 パラメータが無い時、net-ipv は現在の設定を返します。
Switches between IPv4 and IPv6 internet protocol versions. int-version contains either a 4 for IPv4 or a 6 for IPv6. When no parameter is given, net-ipv returns the current setting.

(net-ipv)       4
(net-ipv 6)     6

デフォルトの newLISP は IPv4 モードで開始します。 newLISP スタート時は、コマンド・ラインから IPv6 プロトコル・モードを指定できます:
By default newLISP starts up in IPv4 mode. The IPv6 protocol mode can also be specified from the commandline when starting newlisp:

newlisp -6

ソケットを net-connect で接続するか、net-listen で待ち受け(listen)するなら、関数net-acceptnet-selectnet-sendnet-receivenet-receive-from は、ソケットを生成した時に使わるアドレス・プロトコルに自動的に合わせます。 IPv4/6 設定の異なる接続を同時に開くことができます。
Once a socket is connected with either net-connect or listened on with net-listen, the net-accept, net-select, net-send, net-receive and net-receive-from functions automatically adjust to the address protocol used when creating the sockets. Different connections with different IPv4/6 settings can be open at the same time.

現行の net-packet は IPv6 をサポートせず、設定にかかわらず IPv4 で動作することに注意してください。
Note, that currently net-packet does not support IPv6 and will work in IPv4 mode regardless of settings.


syntax: (net-listen int-port [str-ip-addr [str-mode]])
syntax: (net-listen str-file-path)

int-port で指定されたポートを待ち受け(listen)ます。 net-listen の呼び出しは直ちにソケット番号を返し、その番号は後で接続を待つブロッキング関数 net-accept で使われることになります。 net-accept は接続が受け入れられるとすぐに、接続しているクライアントとの通信に使われるソケット番号を返します。
Listens on a port specified in int-port. A call to net-listen returns immediately with a socket number, which is then used by the blocking net-accept function to wait for a connection. As soon as a connection is accepted, net-accept returns a socket number that can be used to communicate with the connecting client.

(set 'port 1234)
(set 'listen (net-listen port))
(unless listen (begin
    (print "listening failed\n")

(print "Waiting for connection on: " port "\n")

(set 'connection (net-accept listen))
(if connection
    (while (net-receive connection buff 1024 "\n")
        (print buff)
        (if (= buff "\r\n") (exit)))
    (print "Could not connect\n"))

例では、ポート 1234 の接続を待って、それから、空のラインを受け取るまで入力ラインを読み込みます。 Unix システムで 1024 より小さいポートを待ち受け(listen)ることは、スーパー・ユーザ・アクセスを要求する事に注意してください。
The example waits for a connection on port 1234, then reads incoming lines until an empty line is received. Note that listening on ports lower than 1024 may require superuser access on Unix systems.

一個より多いインターフェイス・カードを持つコンピュータ上では、str-ip-addr オプションにインターフェイス IP アドレスか名前を指定して、net-listen に指定したアドレスの待ち受け(listen)を指示します。
On computers with more than one interface card, specifying an optional interface IP address or name in str-ip-addr directs net-listen to listen on the specified address.

;; listen on a specific address
(net-listen port "") 

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

第二構文の net-listen は、str-file-path を使って名前付けられたローカル・ドメイン Unix ソケット を通して、ローカル・ファイル・システム上のクライアントを待ち受け(listen)ます。 成功すればソケット・ハンドルを返し、それを使って net-accept がクライアントとの接続を受け入れることができます。成功しなければ nil を返します。
In the second syntax, net-listen listens for a client on the local file system via a local domain Unix socket named using str-file-path. If successful, returns a socket handle that can be used with net-accept to accept a client connection; otherwise, returns nil.

(net-listen "/tmp/mysocket")   5

; on OS/2 use "\\socket\\" prefix

(net-listen "\\socket\\mysocket")

(net-accept 5)

ローカル・ドメイン・ファイル・システム・ソケットが生成され、待ち受け(listen)状態になっています。 クライアントは、同じ str-file-path を使って接続を試みます。 接続が関数 net-select に受け入れられた後、通常の TCP/IP ストリーム通信に net-sendnet-receive を使うことができます。 この形の接続は、同じファイル・システム上のプロセス間高速双方向通信チャンネルとして使えます。 この形の接続は、MS Windows プラットフォームでは使えません。
A local domain file system socket is created and listened on. A client will try to connect using the same str-file-path. After a connection has been accepted the functions net-select, net-send and net-receive can be used as usual for TCP/IP stream communications. This type of connection can be used as a fast bi-directional communications channel between processes on the same file system. This type of connection is not available on MS Windows platforms.

UDP communications(UDP 通信)

第三パラメータとして、str-mode にオプション文字列 "udp" または "u" を指定でき、UDP(ユーザ・データグラム・プロトコル)通信に適したソケット一式を生成します。 TCP 通信にのみ使われる net-accept を使うこと無し に、この方法で作られたソケットを net-receive-from に直接使うことができ、入力 UDPデータを待ちます。 net-receive-from 呼び出しは、UDP データ・パケットを受信するまでブロックします。 代わりの方法として、ノン・ブロッキング状態でデータが準備できたかどうかのチェックするために、net-selectnet-peek を使うことができます。 net-receive-from で受け取ったアドレスとポートへのデータ返送には、net-send-to を使ってください。
As a third parameter, the optional string "udp" or "u" can be specified in str-mode to create a socket suited for UDP (User Datagram Protocol) communications. A socket created in this way can be used directly with net-receive-from to await incoming UDP data without using net-accept, which is only used in TCP communications. The net-receive-from call will block until a UDP data packet is received. Alternatively, net-select or net-peek can be used to check for ready data in a non-blocking fashion. To send data back to the address and port received with net-receive-from, use net-send-to.

UDP 通信は、アドレス情報としての接続ソケットを保持しないので、net-peer が動作しないことに注意してください。
Note that net-peer will not work, as UDP communications do not maintain a connected socket with address information.

(net-listen 10002 "" "udp") 

(net-listen 10002 "" "udp") 

一番目の例は、指定したネットワーク・アダプタを待ち受け(listen)ます。 一方で、二番目の例はデフォルト・アダプタを待ち受け(listen)ます。 どちらの呼び出しもソケット番号を返し、引き続く関数 net-receivenet-receive-fromnet-send-tonet-selectnet-peek の呼び出しに使われます。
The first example listens on a specific network adapter, while the second example listens on the default adapter. Both calls return a socket number that can be used in subsequent net-receive, net-receive-from, net-send-to, net-select, or net-peek function calls.

UDP サーバー UDP クライアントのどちらも、net-listen"udp" オプションを使って設定されます。 このモードでは、net-listen が実際に TCP/IP 通信を待ち受け(listen) ることはありません。 ローカル・インターフェイスのアドレスとポートにソケットを束縛するだけです。
Both a UDP server and UDP client can be set up using net-listen with the "udp" option. In this mode, net-listen does not really listen as in TCP/IP communications; it just binds the socket to the local interface address and port.

動作例としては、newLISP 配布ソースにあるファイル examples/clientexamples/server を見てください。
For a working example, see the files examples/client and examples/server in the newLISP source distribution.

一つのデータ・パケットだけような短い処理には、"udp" オプションの net-listen の代わりに、関数 net-receive-udpnet-send-udp を使うことができます。
Instead of net-listen and the "udp" option, the functions net-receive-udp and net-send-udp can be used for short transactions consisting only of one data packet.

net-listennet-selectnet-peek は、ノン・ブロッキング読み出しを簡単にするために使われます。 待ち受け(listen)/読み出しソケットが閉じらないだけでなく、引き続き読み出しに使えるからです。 対照的に、net-receive-udpnet-send-udp のペアの使用は、どちらのサイドも送受信終了後、ソケットを閉じます。
net-listen, net-select, and net-peek can be used to facilitate non-blocking reading. The listening/reading socket is not closed but is used again for subsequent reads. In contrast, when the net-receive-udp and net-send-udp pair is used, both sides close the sockets after sending and receiving.

UDP multicast communications(UDP マルチキャスト通信)

オプション文字列 str-mode"multi""m" を指定すると、net-listen はマルチキャストに適切なソケットを返します。 この場合、str-ip-addr にはマルチキャスト・アドレス範囲 中の一つが入ります。 net-listenstr-ip-addr をマルチキャスト伝送受信用アドレスとして登録します。 このアドレスをサーバー・ホストの IP アドレス と混同してはいけません。
If the optional string str-mode is specified as "multi" or "m", net-listen returns a socket suitable for multicasting. In this case, str-ip-addr contains one of the multicast addresses in the range to net-listen will register str-ip-addr as an address on which to receive multicast transmissions. This address should not be confused with the IP address of the server host.

;; example client

(net-connect "" 4096 "multi")   3

(net-send-to "" 4096 "hello" 3)

;; example server

(net-listen 4096 "" "multi")   5

(net-receive-from 5 20)               
 ("hello" "" 32769)

サーバー側では、ノン・ブロッキング通信に net-peeknet-select が使われます。 上記例のサーバーは、データが受信されるまでブロックします。
On the server side, net-peek or net-select can be used for non-blocking communications. In the example above, the server would block until a datagram is received.

関数 net-send-tonet-receive-from の代わりに、net-sendnet-receive が使えます。
The net-send and net-receive functions can be used instead of net-send-to and net-receive-from.

Packet divert sockets and ports(パケット迂回ソケットとポート)

BSD ライクのプラットフォーム上で、str-mode"divert" が指定されると、int-port を迂回ポートとする迂回ソケットが生成されます。 IP アドレスの内容 str-ip-addr は無視されます。 int-port だけが有効で、返される生のソケットに束縛されます。
If str-mode is specified as "divert", a divert socket can be created for a divert port in int-port on BSD like platforms. The content of IP address in str-ip-addr is ignored and can be specified as an empty string. Only the int-port is relevant and will be bound to the raw socket returned.

net-listen で迂回オプションを使うには、newLISP が特権モードで走っていなければなりません。 このオプションは、 Unix ライクのプラットフォームでのみ利用可能です。
To use the divert option in net-listen, newLISP must run in super-user mode. This option is only available on Unix like platforms.

divert ソケットは、迂回ポートに迂回された生ソケットを全て受け取ります。 また、パケットは迂回ソケットに書き戻されるかもしれず、その場合のパケットは OS カーネルの IP パケット処理に再び入ります。
The divert socket will receive all raw packets diverted to the divert port. Packets may also be written back to a divert socket, in which case they re-enter OS kernel IP packet processing.

迂回ポートへのパケット迂回ルールは、BSD の ipfw か Linux の ipchains かどちらかの設定ユーティリティで定義されていなければなりません。
Rules for packet diversion to the divert port must be defined using either the ipfw BSD or ipchains Linux configuration utilities.

net-listen 宣言文で生成され、返された迂回ソケット上の生パケットの読み書きには、関数 net-receive-fromnet-send-to が使われます。 パケット再入の際、net-receive-from で受け取ったのと同じアドレスが net-send-to 呼び出しに使われます:
The net-receive-from and net-send-to functions are used to read and write raw packets on the divert socket created and returned by the net-listen statement. The same address received by net-receive-from is used in the net-send-to call when re-injecting the packet:

; rules have been previously configured for a divert port
(set 'divertSocket (net-listen divertPort "" "divert"))

(until (net-error)
    (set 'rlist (net-receive-from divertSocket maxBytes))
    (set 'buffer (rlist 1))
    ; buffer can be processed here before reinjecting
    (net-send-to (rlist 0) divertPort buffer divertSocket)

詳細な情報は、Unix man ページで divert の項か、設定ユーティリティ ipfw (BSDs) か ipchains (Linux) を見てください。
For more information see the Unix man pages for divert and the ipfw (BSDs) or ipchains (Linux) configuration utilities.


syntax: (net-local int-socket)

ローカル・コンピュータの int-socket で指定された接続用 IP 番号とポートを返します。
Returns the IP number and port of the local computer for a connection on a specific int-socket.

(net-local 16)   ("" 1689)

リモート・コンピュータの IP 番号とボートへのアクセスには、関数 net-peer を使ってください。
Use the net-peer function to access the remote computer's IP number and port.


syntax: (net-lookup str-ip-number)
syntax: (net-lookup str-hostname [bool])

IP ドット形式の str-ip-number からホスト名の文字列を返すか、str-hostname からドット形式の IP 番号を返します。
Returns either a hostname string from str-ip-number in IP dot format or the IP number in dot format from str-hostname:

(net-lookup "")     ""
(net-lookup "")   ""

(net-lookup "" true)

第二構文では、オプションの bool フラグを指定できます。 bool の式が nil 以外に評価されると、(訳注:引数の)名前文字列が IP 番号で始まっていたとしても、ホスト名からの検索になります。
Optionally, a bool flag can be specified in the second syntax. If the expression in bool evaluates to anything other than nil, host-by-name lookup will be forced, even if the name string starts with an IP number.


syntax: (net-packet str-packet)

この関数は、raw sockets インターフェイスを通して送信されるカスタム構成のネットワーク・パケットを許可します。 str-packet のパケットは、TCP か UDP か ICMP ヘッダーのいずれかとオプション・データが続く IP(インターネット・プロトコル)ヘッダーで始まっていなければなりません。 newLISP はスーパー・ユーザ特権で走っている必要があります。 また、この関数は Mac OS X、Linux、その他の Unix オペレーティングシステムにおいて、IPv4 でのみ利用可能です。 現在の net-packet は IPv4 用のみであり、Mac OS X、Linux、OpenBSD で試してあります。
The function allows custom configured network packets to be sent via a raw sockets interface. The packet in str-packet must start with an IP (Internet Protocol) header followed by either a TCP, UDP or ICMP header and optional data. newLISP must be run with super user privileges, and this function is only available on Mac OS X, Linux and other Unix operating systems and only for IPv4. Currently net-packet is IPv4 only and has been tested on Mac OS X, Linux and OpenBSD.

この関数は、成功時に送信バイト数を返します。 失敗時には nil を返しますので、net-errorsys-error の両方で調べたほうがよいでしょう。
On success the function returns the number of bytes sent. On failure the function returns nil and both, net-error and sys-error, should be inspected.

カスタム構成のパケットのチェックサム・フィールドにゼロが入っている時は、 net-packet が正しいチェックサムを計算して挿入します。 すでにチェックサムがある時は触らず、そのままにます。
When custom configured packets contain zeros in the checksum fields, net-packet will calculate and insert the correct checksums. Already existing checksums stay untouched.

次の例は、IP 番号 に UDP パケットを送り込みます。 IP ヘッダーは、目標 IP 番号で終わる 20 バイトからなります。 続く UDP ヘッダーは 8 バイトの長さを持ち、データ文字列 Hello World が続きます。 両ヘッダーのチェックサム・バイトである 0x00 0x00 は破棄され、内部で再計算されます。
The following example injects a UDP packet for IP number The IP header consists of 20 bytes ending with the target IP number. The following UDP header has a length of 8 bytes and is followed by the data string Hello World. The checksum bytes in both headers are left as 0x00 0x00 and will be recalculated internally.

; packet as generated by: (net-send-udp "" 12345 "Hello World")

(set 'udp-packet (pack (dup "b" 39) '(
    0x45 0x00 0x00 0x27 0x4b 0x8f 0x00 0x00 0x40 0x11 0x00 0x00 192  168  1    95
    192  168  1    92   0xf2 0xc8 0x30 0x39 0x00 0x13 0x00 0x00 0x48 0x65 0x6c 0x6c
    0x6f 0x20 0x57 0x6f 0x72 0x6c 0x64)))

(unless (net-packet udp-packet)
    (println "net-error: " (net-error))
    (println "sys-error: " (sys-error)))

関数 net-packet は、ネット・セキュリティのテスト時に使われます。 その際の不正なアプリケーションは、ネットワーク・ルーターやネットワークに繋がった他のデバイスの正しい機能を阻害しかねません。 そのため、この関数はうまく隔離されたプライベート・イントラ・ネット上で使用すべきであり、使用者もネットワークの専門家に限定すべきです。
The net-packet function is used when testing net security. Its wrong application can upset the correct functioning of network routers and other devices connected to a network. For this reason the function should only be used on well isolated, private intra-nets and only by network professionals.

他のパケット構成の例は、newLISP 配布ソースにあるファイル qa-specific-tests/qa-packet を見てください。
For other examples of packet configuration, see the file qa-specific-tests/qa-packet in the newLISP source distribution.


syntax: (net-peek int-socket)

int-socket のネットワーク・ソケット上で読み取り可能なバイト数を返します。 エラーが起こっているか、接続が閉じている時は nil を返します。
Returns the number of bytes ready for reading on the network socket int-socket. If an error occurs or the connection is closed, nil is returned.

(set 'aSock (net-connect "" 123))

(while ( = (net-peek aSock) 0) 

(net-receive aSock buff 1024)

このプログラムは接続後、aSock が読み込み可能になるまで while ループで待ちます。
After connecting, the program waits in a while loop until aSock can be read.

ファイル記述子デスクリプタstdin のチェックには、関数 peek を使ってください。
Use the peek function to check file descriptors and stdin.


syntax: (net-peer int-socket)

int-socket で接続しているリモート・コンピュータの IP 番号とポートを返します。
Returns the IP number and port number of the remote computer for a connection on int-socket.

(net-peer 16)   ("" 13)

ローカル・コンピュータの IP アドレスとポート番号のアクセスには、関数 net-local を使ってください。
Use the net-local function to access the local computer's IP number and port number.


syntax: (net-ping str-address [int-timeout [int-count bool]]])
syntax: (net-ping list-addresses [int-timeout [int-count bool]]])

この関数は Unix ベースのシステム上でのみ利用可能で、(訳注:newLISPが)スーパー・ユーザ・モードで走っていなければなりません。 例えば、Mac OS X か 他の BSD での newLISP 開始時に sudo newlisp を使うとか、Linux の root ユーザで使うとかです。 IPv6 アドレス・モードでは、ブロードキャスト・モードや -(ハイフン)または *(アスタリスク)を使った範囲指定が使えません。
This function is only available on Unix-based systems and must be run in superuser mode, i.e. using: sudo newlisp to start newLISP on Mac OS X or other BSD's, or as the root user on Linux. Broadcast mode and specifying ranges with the - (hyphen) or * (star) are not available on IPv6 address mode.

Mac OS X では、スーパー・ユーザ・モードが要求されません。
Superuser mode is not required on Mac OS X.

第一構文の net-ping は、ICMP 64バイトのエコー要求リクエストstr-address で指定されたアドレスに送ります。 アドレスがブロードキャスト・アドレスなら、ICMP パケットは全てのサブネットで受信されます。 セキュリティ上の理由から、多くのコンピュータは ICMP ブロードキャスト ping(ICMP_ECHO)要求リクエストに返信しないので、注意してください。 オプションのタイムアウト・パラメータを int-timeout に指定できます。 タイムアウトが指定されていなければ、1000ミリ秒(1秒)になります。
In the first syntax, net-ping sends a ping ICMP 64-byte echo request to the address specified in str-address. If it is a broadcast address, the ICMP packet will be received by all addresses on the subnet. Note that for security reasons, many computers do not answer ICMP broadcast ping (ICMP_ECHO) requests. An optional timeout parameter can be specified in int-timeout. If no timeout is specified, a waiting time of 1000 milliseconds (one second) is assumed.

net-ping は、 IP 文字列と応答レスポンスが返るまでのミリ秒単位の往復の時間のリスト群をリストしたものか、応答レスポンスが返らなかった時の空のリストのどちらかを返します。
net-ping returns either a list of lists of IP strings and round-trip time in microseconds for which a response was received or an empty list if no response was received.

nil の戻り値は失敗を意味します。 エラー・メッセージを取り出すためには、関数 net-error を使ってください。 メッセージが Cannot open socket なら、おそらく newLISP は root 権限無しで動作しています。 (訳注:その場合は、)newLISP を次のような使い方で開始します:
A return value of nil indicates a failure. Use the net-error function to retrieve the error message. If the message reads Cannot open socket, it is probably because newLISP is running without root permissions. newLISP can be started using:

sudo newlisp

あるいは、スーパーユーザ・モードで走らせる set-user-ID bit を設定して、newLISP をインストールすることもできます。
Alternatively, newLISP can be installed with the set-user-ID bit set to run in superuser mode.

(net-ping "")      (("" 634080))
(net-ping "")        (("" 115))
(net-ping "" 3000)   nil

第二構文の net-pingバッチ・モード で走ります。 このモードでは一つのソケットのみが開かれますが、複数の ICMP パケットがリストまたは範囲で指定される複数のアドレスに各々一個ずつ送られます。 パケットはできる限り早く送信されます。 この場合、複数の応答レスポンスが受信されます。 同じアドレスを複数回指定すると、受信 IP アドレスが ICMP パケットで溢れることになります。
In the second syntax, net-ping is run in batch mode. Only one socket is opened in this mode, but multiple ICMP packets are sent out—one each to multiple addresses specified in a list or specified by range. Packets are sent out as fast as possible. In this case, multiple answers can be received. If the same address is specified multiple times, the receiving IP address will be flooded with ICMP packets.

ブロードキャストやバッチ・モードで待っている応答レスポンスの数を制限するために、受信応答レスポンスの最大数を指示する追加の引数を int-count に指定できます。 このパラメータの使えば、指定したタイムアウトより早く関数を戻せます。 与えられた応答レスポンス数を受信すると、net-ping はタイムアウト前でも戻ります。 em>int-count を指定しないか 0 を指定した時、int-count は送り出したパケット数になります。
To limit the number of responses to be waited for in broadcast or batch mode, an additional argument indicating the maximum number of responses to receive can be specified in int-count. Usage of this parameter can cause the function to return sooner than the specified timeout. When a given number of responses has been received, net-ping will return before the timeout has occurred. Not specifying int-count or specifying 0 assumes an int-count equal to the number of packets sent out.

第3オプション・パラメータとして true 値を指定できます。 この設定は、ホストが返答しない場合、応答レスポンス時間の代わりにエラー文字列を返します。
As third optional parameter, a true value can be specified. This setting will return an error string instead of the response time, if the host does not answer.

(net-ping '("" "") 2000 20)
 (("" 826420) ("" 124) ("" 210))

(net-ping "192.168.1.*" 500) ; from 1 to 254
 (("" 120) ("" 245) ("" 180) ("" 234))

(net-ping "192.168.1.*" 500 2) ; returns after 2 responses
 (("" 115) ("" 145))

(net-ping "" 1000) ; returns after 1 second
 (("" 196) ("" 205))

(net-ping '("" "") 2000) ; returns after 2 seconds

一つの net-ping 文の中に、ブロードキャストやバッチ・モードを——通常のアドレスや IP 番号またはホスト名と同様に——リスト中に IP の種類全てを置くことで混在可能です。
Broadcast or batch mode—as well as normal addresses and IP numbers or hostnames— can be mixed in one net-ping statement by putting all of the IP specs into a list.

第二、第三行は、net-ping のバッチ・モードが IP 番号の最後のサブネット・オクテットにワイルドカード文字の *(アスタリスク)を指定して始められることを示しています。 第四、第五行は、IP 番号最後のサブネット・オクテットに IP 範囲を指定できることを示しています。 net-ping は、* の 1~254 までか指定された範囲のどちらかの番号全てで、各アドレスへの ICMP パケット送信を繰り返します。 これは、IP オクテットに 255 を指定した ブロードキャスト・モードとは異なることに注意してください。 ブロードキャスト・モードでは、net-ping は一パケットのみを送出し、それが複数のアドレスで受信されます。 バッチ・モードは明示的に複数のパケットを生成し、それらは各ターゲット・アドレス毎に一個ずつです。 ブロードキャスト・モードを指定した時も int-count を指定すべきです。
The second and third lines show how the batch mode of net-ping can be initiated by specifying the * (asterisk) as a wildcard character for the last subnet octet in the IP number. The fourth and fifth lines show how an IP range can be specified for the last subnet octet in the IP number. net-ping will iterate through all numbers from either 1 to 254 for the star * or the range specified, sending an ICMP packet to each address. Note that this is different from the broadcast mode specified with an IP octet of 255. While in broadcast mode, net-ping sends out only one packet, which is received by multiple addresses. Batch mode explicitly generates multiple packets, one for each target address. When specifying broadcast mode, int-count should be specified, too.

バッチ・モードで、一つのソケットに大規模な IP リストを送る時は、 全パケットを一つのソケットに送出する時間を十分与えるために、より長いタイムアウトが必要となります。 タイムアウトが短過ぎると、関数 net-ping は不完全なリストか空リスト () を返すかもしれません。 このような場合、 net-error はタイムアウト・エラーを返すでしょう。 エラー時は nil が返り、 net-errorをエラー・メッセージの取り出しに使えます
When sending larger lists of IPs in batch mode over one socket, a longer timeout may be necessary to allow enough time for all of the packets to be sent out over one socket. If the timeout is too short, the function net-ping may return an incomplete list or the empty list (). In this case, net-error will return a timeout error. On error, nil is returned and net-error can be used to retrieve an error message.

いくつかのシステムでは、タイムアウト指定に関わらず、決められた長さのリストしか扱えないかもしれません。 この場合、範囲をいくつかに分けて、複数のnet-ping を実施すべきです。 いずれにせよ、net-ping はできる限り早くパッケージを送出します。
On some systems only lists up to a specific length can be handled regardless of the timeout specified. In this case, the range should be broken up into sub-ranges and used with multiple net-ping invocations. In any case, net-ping will send out packages as quickly as possible.

net-receive !

syntax: (net-receive int-socket sym-buffer int-max-bytes [wait-string])

ソケット int-socket 上のデータを受信し、sym-buffer の文字列に入れます。 sym-buffer には、ユーザ定義関数に参照を渡すコンテキスト・シンボルで指定されたデフォルト・ファンクタも使えます。
Receives data on the socket int-socket into a string contained in sym-buffer. sym-buffer can also be a default functor specified by a context symbol for reference passing in and out of user-defined functions.

int-max-bytes の最大値まで受信します。 net-receive は読み取ったバイト数を返します。 接続が切断されると nil を返します。 sym-buffer で用意された領域は、読み取ったバイト数の大きさになります。
A maximum of int-max-bytes is received. net-receive returns the number of bytes read. If there is a break in the connection, nil is returned. The space reserved in sym-buffer is exactly the size of bytes read.

net-receive はブロッキング呼び出しなので、int-socket にデータが届くまで戻らないことに注意してください。 ソケットが読み出し可能かどうかを知るには、 net-peeknet-select を使ってください。
Note that net-receive is a blocking call and does not return until the data arrives at int-socket. Use net-peek or net-select to find out if a socket is ready for reading.

オプションで、第四パラメータに wait-string を指定できます。 その際、net-receivewait-string に一致した文字か文字列を受信した後で返ります。 wait-stringsym-buffer に入るデータの一部となります。
Optionally, a wait-string can be specified as a fourth parameter. net-receive then returns after a character or string of characters matching wait-string is received. The wait-string will be part of the data contained in sym-buffer.

(define (gettime)
    (set 'socket (net-connect "" 13))
    (net-receive socket buf 256)
    (print buf "\n")
    (net-close socket))

gettime を呼び出すと、プログラムは サーバーのポート 13 に接続します。 ポート 13 は、ほとんどのサーバーに用意されている日時サービスです。 接続すると、サーバーは日付と時刻からなる文字列を送ってきます。
When calling gettime, the program connects to port 13 of the server Port 13 is a date-time service on most server installations. Upon connection, the server sends a string containing the date and time of day.

(define (net-receive-line socket sBuff)
    (net-receive socket sBuff 256 "\n"))

(set 'bytesReceived (net-receive-line socket 'sm))

二番目の例では、(この例では、一文字からなる文字列の)改行文字か256文字を受信後に戻る関数 net-receive-line を新たに定義しています。 文字列 "\n" は、sBuff の中身の一部です。
The second example defines a new function net-receive-line, which returns after receiving a newline character (a string containing one character in this example) or 256 characters. The "\n" string is part of the contents of sBuff.

第四パラメータを指定した時、net-receive は情報を一文字ずつ読み取るので、通常より遅くなることに注意してください。 多くの場合、速度の違いは無視できる程度かもしれません。
Note that when the fourth parameter is specified, net-receive is slower than the normal version because information is read character-by-character. In most situations, the speed difference can be neglected.


syntax: (net-receive-from int-socket int-max-size)

net-receive-from は、ノン・ブロッキング通信の設定に使われます。 int-socket のソケットは、("udp" オプションと共に)net-listennet-connect で予め開かれていなければなりません。 int-max-size は、受信する最大バイト数を指定します。 それ以上受信は、Linux/BSD 上では破棄され、MS Windows 上では net-receive-fromnil を返してソケットを閉じます。
net-receive-from can be used to set up non-blocking UDP communications. The socket in int-socket must previously have been opened by either net-listen or net-connect (both using the "udp" option). int-max-size specifies the maximum number of bytes that will be received. On Linux/BSD, if more bytes are received, those will be discarded; on MS Windows, net-receive-from returns nil and closes the socket.

net-receive は、成功時にデータ文字列、リモート IP 番号、使用されたリモート・ポートのリストを返します。 失敗時には nil を返します。
On success net-receive returns a list of the data string, remote IP number and remote port used. On failure it returns nil.

;; bind port 1001 and the default address
(net-listen 1001 "" "udp")   1980 

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

(net-receive-from 1980 20)   ("hello" "" 3240)

;; send answer back to sender
(net-send-to "" 3240 "hello to you" 1980)

(net-close 1980) ; close socket

この例の二行目は、任意の行です。 この行が無くても、net-receive-from 呼び出しはデータが届くまでブロックします。 UDP サーバーは、幾つかのポートを待ち受け(listen)てポーリングするように設定されており、ポートが受け取るデータを配給します。
The second line in this example is optional. Without it, the net-receive-from call would block until data arrives. A UDP server could be set up by listening and polling several ports, serving them as they receive data.

受信側と送信側の両方とも、UDP モードの net-listen をっ発行しなけれななりません。 TCP/IP プロトコル通信で待ち受け(listen)るためではなく、ポートやアドレスに束縛されたソケットを生成するためです。 例題の完全版は、配布ソースの newlisp-x.x.x/examples/ ディレクトリにある udp-server.lspudp-client.lsp を見てください。
Both, the sender and the receiver have to issue net-listen commands for UDP mode. Not for listening as in TCP/IP protocol communications, but to create the socket bound to the port and address. For a complete example see the files udp-server.lsp and udp-client.lsp in the newlisp-x.x.x/examples/ directory of the source distribution.

この場合、net-receive は送信側のアドレスとポートの情報を返さないので使えません。 UDP 通信では、通信が行われるソケットではなく 、データパケット自身に送信側のアドレスを含みます。 net-receive を TCP/IP にも使うことができます。
Note that net-receive could not be used in this case because it does not return the sender's address and port information, which are required to talk back. In UDP communications, the data packet itself contains the address of the sender, not the socket o