| version 1.8, 2004/09/10 22:21:27 |
version 1.12, 2005/06/15 02:22:51 |
|
|
| %% $OpenXM: OpenXM/src/kan96xx/Kan/usage.sm1,v 1.7 2003/06/26 13:00:11 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Kan/usage.sm1,v 1.11 2004/09/17 00:47:09 takayama Exp $ |
| %% usage.sm1 |
%% usage.sm1 |
| %% [(key word) |
%% [(key word) |
| %% [( ) |
%% [( ) |
|
|
| [(join) |
[(join) |
| [(list1 list2 join list3) |
[(list1 list2 join list3) |
| (Ex. [1 2] [3 [4 (ab)]] join [1 2 3 [4 (ab)]]) |
(Ex. [1 2] [3 [4 (ab)]] join [1 2 3 [4 (ab)]]) |
| |
(Note: Join should use for arrays. It works for list too,) |
| |
( but it does not copy cells. cf. cons) |
| |
( So, it might generate looped lists or destroy other lists.) |
| ] |
] |
| ] putUsages |
] putUsages |
| |
|
|
|
| ]] putUsages |
]] putUsages |
| [(toVectors2) |
[(toVectors2) |
| [(Remained for the compatibility. cf. toVectors) |
[(Remained for the compatibility. cf. toVectors) |
| |
]] putUsages |
| |
|
| |
[(extension-examples) |
| |
[ |
| |
$putAttributeList$ |
| |
$ [(putAttributeList) [[(x+y-1) (x-y-2)] (x,y)] $ |
| |
$ [(needSyz) 1 (sugar) 1]] extension /myarg set $ |
| |
$ [(getAttributeList) myarg] extension :: $ |
| |
$ [(getAttribute) myarg (sugar)] extension :: $ |
| ]] putUsages |
]] putUsages |
| |
|