Paperオブジェクト

Paperオブジェクトは、npt固有のデータ形式です。
vectorのような一次元配列と、byte形式の配列データを同時に保有することができます。
nptの実装に合ったオブジェクトを作成するため、メモリ空間に対して効率がよいという利点があります。

本オブジェクトは、主にC言語上で使用することを目的としています。
例えば、Common Lispのヒープ上に独自のデータを格納するような場合に便利です。
操作関数はC言語とCommon Lispのどちらのものも用意されています。

8.2 オブジェクト形式

nptのオブジェクトは、下記の3つのいずれかの形で表されます。

array形式は一次元simple-vectorと同じです。
body形式は、バイト単位のバッファ領域を保有します。
array-body形式は、array形式とbody形式を組み合わせたものです。

array-body形式には制限があり、arrayとbodyのサイズをどちらも#xFFFF以下にしなければなりません。
それ以上の長さを使いたい場合は、例えばarray形式とbody形式を分けて確保してください。

全てのオブジェクトには、User値と呼ばれる1byteのデータ領域が用意されています。
User値の使い方は自由ですが、Paperオブジェクトを種類分けするために使うことをお勧めします。
User値のデフォルト値は0です。

8.3 array形式

array形式の使い方を説明します。
array形式は、一次元general arrayである、simple-vectorと同じです。
作成は次のようにして行います。

(make-paper size 0)

第一引数のsizeは配列の要素数です。
例えば、要素数10のPaperを作成する場合は次のようになります。

(make-paper 10 0)

(array-paper paper index)

(array-paper paper index value)

(setq x (make-paper 10 0))
(array-paper x 3)
(array-paper x 3 "Hello")

(setq x (make-array 10))
(aref x 3)
(setf (aref x 3) "Hello")

次に、同じことをC言語で行います。
オブジェクトの作成は次の関数を使用します。

int lisp_paper_(addr x, size_t array, size_t body);

static int main_call_(void)
{
    addr x;

    x = Lisp_hold();
    if (lisp_paper_(x, 10, 0))
        return 1;

    return 0;
}

int main_lisp(void *ignore)
{
    addr control;

    lisp_push_control(&control);
    (void)main_call_();
    return lisp_pop_control_(control);
}

正しく実行するには上記のようにする必要があるのですが、説明するうえでは不要のため、戻り値の判定を省略して次のようにあらわします。

addr x;

x = Lisp_hold();
lisp_paper_(x, 10, 0);

int lisp_paper_getarray_(addr x, addr pos, size_t index);
int lisp_paper_setarray_(addr x, size_t index, addr value);

(setq x (make-paper 10 0))
(array-paper x 3)
(array-paper x 3 "Hello")

addr x, v;

x = Lisp_hold();
v = Lisp_hold();
lisp_paper_(x, 10, 0);
lisp_paper_getarray_(v, x, 3);
lisp_string8_(v, "Hello");
lisp_paper_setarray_(x, 3, v);

8.4 body形式

body形式の使い方を説明します。
body形式は、(unsigned-byte 8)形式の一次元specialized arrayと同じです。
作成は次のようにして行います。

(make-paper 0 size)

第二引数のsizeは確保するバッファのバイト数です。
例えば、10byteのPaperを作成する場合は次のようになります。

(make-paper 0 10)

初期値は不定です。
array形式とは違い、body形式は値の内容を初期化しません。
もし初期化が必要な場合は:fill引数を使用します。

(make-paper 0 10 :fill t)

(make-paper 0 10 :fill #xFF)

値の範囲は0～#xFFの間になります。
配列の値を取得するには、次のように実行します。

(body-paper paper index)

返却される値は、0～#xFFの整数です。
値を設定するには、次のように実行します。

(body-paper paper index value)

valueは、0～#xFFの整数である必要があります。
バッファの取得と設定は下記の関数を使用します。

int lisp_paper_getbody_(addr x, size_t index, byte *ret);
int lisp_paper_setbody_(addr x, size_t index, byte value);

(setq x (make-paper 0 10))
(body-paper x 3)
(body-paper x 3 #xFF)

byte value;
addr x;

x = Lisp_hold();
lisp_paper_(x, 0, 10);
lisp_paper_getbody_(x, 3, &value);
lisp_paper_setbody_(x, 3, 0xFF);

8.5 array-body形式

(make-paper size1 size2)

第一引数のsize1は、array配列の個数です。
第二引数のsize2は、bodyバッファのバイト数です。
例えば、arrayが10要素、bodyが20byteのPaperを作成する場合は次のようになります。

(make-paper 10 20)

array-body形式を作成する場合は、 size1, size2どちらの値も#xFFFF以下にしてください。
違反した場合はsimple-error conditionが発生します。

8.6 info-array関数

info-array関数は、Paperオブジェクトに対して、下記の操作を行います。

8.6.1 User値の取得と設定

User値とはオブジェクトが保有する1byteの情報です。
取得はinfo-paper関数に、typeを指定します。

(setq x (make-paper 3 4))
-> #<PAPER 0 #x801699220>

(info-array paper 'type)
-> 0

(setq x (make-paper 3 4 :type 123))
-> #<PAPER 123 #x80169b258>

(info-paper x 'type)
-> 123

(info-paper x 'type 100)
-> 100

(info-paper x 'type)
-> 100

x
-> #<PAPER 100 #x80169b258>

int lisp_paper_gettype_(addr x, byte *ret);
int lisp_paper_settype_(addr x, byte value);

byte value;
addr x;

x = Lisp_hold();
lisp_paper_(x, 0, 10);
lisp_paper_settype_(x, 123);
lisp_paper_gettype_(x, &value);
printf("%d\n", (int)value);

8.6.2 内容の一括取得

arrayとbodyの内容は、listかvector形式で取得できます。
arrayの内容を取得してみます。
取得はinfo-paper関数に、listかvectorを指定します。

(setq x (make-paper 3 4 :fill 7))
-> #<PAPER 0 #x80174f258>

(info-paper x 'list)
-> (NIL NIL NIL)

(info-paper x 'vector)
-> #(NIL NIL NIL)

bodyの内容を取得する場合は、info-paperの第三引数にtを指定します。

(setq x (make-paper 3 4 :fill 7))
-> #<PAPER 0 #x801752c28>

(info-paper x 'list t)
-> (7 7 7 7)

(info-paper x 'vector t)
-> #(7 7 7 7)

なお、body部のvectorは、 (unsigned-byte 8)のspecialized array形式で返却されます。

8.6.3 長さを取得

arrayとbodyの長さを取得します。
取得はinfo-paper関数に、lengthを指定します。

(setq x (make-paper 3 4))
-> #<PAPER 0 #x801756418>

(info-paper x 'length)
-> 3

(info-paper x 'length t)
-> 4

int lisp_paper_lenarray_(addr x, size_t *ret);
int lisp_paper_lenbody_(addr x, size_t *ret);

addr x;
size_t array, body;

x = Lisp_hold();
lisp_paper_(x, 5, 6);
lisp_paper_lenarray_(x, &array);
lisp_paper_lenbody_(x, &body);
printf("%d, %d\n", (int)array, (int)body);

8.7 その他の内容

8.7.1 Paperオブジェクトと型

Paperオブジェクトは、npt内においては通常のLispオブジェクトです。
evalで評価できますし、型も持っています。

(typep x 'npt-system::paper)

(find-class 'npt-system::paper)
-> #<BUILT-IN-CLASS PAPER>

8.7.2 compile-fileの扱い

Paperオブジェクトは、compile-fileで保存できます。
array部分はvectorオブジェクトと同様に扱われます。
body部分は、バッファの内容をそのままfaslファイルに書き込みます。
User値も同様に保存されます。

8.7.3 その他のC言語関数

int lisp_paper_getmemory_(addr x, size_t a, size_t b, void *output, size_t *ret);
int lisp_paper_setmemory_(addr x, size_t a, size_t b, const void *input, size_t *ret);

lisp_paper_getmemory_は、body部の内容を一括して取得します。
lisp_paper_setmemory_は、body部の内容を一括して設定します。

引数aとbはbody部の位置を表し、a番目からb番目直前までの内容を示します。
subseq関数と同様、b番目の位置は含まれません。
a番目から開始し、(- b a)byte分の内容を処理します。

aとbの値は、body部のサイズを超えていてもかまいません。
処理されたバイト数は、引数retに格納されます。
引数retがNULLの場合は無視されます。

Paperオブジェクト

8.1 Paperオブジェクト

8.2 オブジェクト形式

8.3 array形式

8.4 body形式

8.5 array-body形式

8.6 `info-array`関数

8.6.1 User値の取得と設定

8.6.2 内容の一括取得

8.6.3 長さを取得

8.7 その他の内容

8.7.1 Paperオブジェクトと型

8.7.2 `compile-file`の扱い

8.7.3 その他のC言語関数

8.1 Paperオブジェクト

8.2 オブジェクト形式

8.3 array形式

8.4 body形式

8.5 array-body形式

8.6 info-array関数

8.6.1 User値の取得と設定

8.6.2 内容の一括取得

8.6.3 長さを取得

8.7 その他の内容

8.7.1 Paperオブジェクトと型

8.7.2 compile-fileの扱い

8.7.3 その他のC言語関数

8.6 `info-array`関数

8.7.2 `compile-file`の扱い