=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/usage.sm1,v retrieving revision 1.11 retrieving revision 1.12 diff -u -p -r1.11 -r1.12 --- OpenXM/src/kan96xx/Kan/usage.sm1 2004/09/17 00:47:09 1.11 +++ OpenXM/src/kan96xx/Kan/usage.sm1 2005/06/15 02:22:51 1.12 @@ -1,4 +1,4 @@ -%% $OpenXM: OpenXM/src/kan96xx/Kan/usage.sm1,v 1.10 2004/09/16 23:53:44 takayama Exp $ +%% $OpenXM: OpenXM/src/kan96xx/Kan/usage.sm1,v 1.11 2004/09/17 00:47:09 takayama Exp $ %% usage.sm1 %% [(key word) %% [( ) @@ -321,5 +321,14 @@ def ]] putUsages [(toVectors2) [(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