version 1.30, 2004/09/04 11:25:58 |
version 1.37, 2004/09/17 02:42:57 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/usage.c,v 1.29 2004/07/30 11:21:55 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/usage.c,v 1.36 2004/09/16 23:53:44 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include "datatype.h" |
#include "datatype.h" |
#include "stackm.h" |
#include "stackm.h" |
Line 152 void Kusage2(fp,s) |
|
Line 152 void Kusage2(fp,s) |
|
fppp(fp," [(stat) fname] extension v \n"); |
fppp(fp," [(stat) fname] extension v \n"); |
fppp(fp," v = [null,[(error no), p]] or [0, [size ]]\n"); |
fppp(fp," v = [null,[(error no), p]] or [0, [size ]]\n"); |
fppp(fp," [(forkExec) argList fdList sigblock] extension pid\n"); |
fppp(fp," [(forkExec) argList fdList sigblock] extension pid\n"); |
|
fppp(fp," [(getattr) literal] extension attr\n"); |
fppp(fp," [(getchild)] extension listOfPid (generated by forkExec)\n"); |
fppp(fp," [(getchild)] extension listOfPid (generated by forkExec)\n"); |
fppp(fp," [(keywords) ] extension array-of-names-of-primitives \n"); |
fppp(fp," [(keywords) ] extension array-of-names-of-primitives \n"); |
fppp(fp," [(nobody) ] extension null \n"); |
fppp(fp," [(nobody) ] extension null \n"); |
fppp(fp," [(newMatrix) m n] extension mat \n"); |
fppp(fp," [(newMatrix) m n] extension mat \n"); |
fppp(fp," [(newVector) m ] extension vec \n"); |
fppp(fp," [(newVector) m ] extension vec \n"); |
fppp(fp," [(getUniqueFileName) path] extension newName \n"); |
fppp(fp," [(getUniqueFileName) path] extension newName \n"); |
|
fppp(fp," [(or_attr) atr literal] extension new_value \n"); |
|
fppp(fp," [(or_attrs) atr ] extension result-obj \n"); |
fppp(fp," [(outputObjectToFile) path obj] extension null \n"); |
fppp(fp," [(outputObjectToFile) path obj] extension null \n"); |
fppp(fp," [(ostype)] extension list \n"); |
fppp(fp," [(ostype)] extension list \n"); |
|
fppp(fp," [(regexec) regular_expression stringArray flags(opt)] extension list \n"); |
fppp(fp," [(regionMatches) string stringArray] extension list \n"); |
fppp(fp," [(regionMatches) string stringArray] extension list \n"); |
fppp(fp," [(traceClearStack)] extension null \n"); |
fppp(fp," [(traceClearStack)] extension null \n"); |
fppp(fp," [(traceShowStack)] extension str \n"); |
fppp(fp," [(traceShowStack)] extension str \n"); |
/* fppp(fp," [(asir0) string] extension result-object \n"); */ |
/* fppp(fp," [(asir0) string] extension result-object \n"); */ |
fppp(fp,"See also plugin-* in ??. \n"); |
fppp(fp,"See also plugin-* in ?? by [(plugin)] usages :: \n"); |
}else if (strcmp(s,"file")==0) { |
}else if (strcmp(s,"file")==0) { |
fppp(fp,"<< filename mode file fd >>\n"); |
fppp(fp,"<< filename mode file fd >>\n"); |
fppp(fp,"string filename, mode; file fd;\n"); |
fppp(fp,"string filename, mode; file fd;\n"); |
Line 187 void Kusage2(fp,s) |
|
Line 191 void Kusage2(fp,s) |
|
fppp(fp," (see also cancelCoeff) \n"); |
fppp(fp," (see also cancelCoeff) \n"); |
fppp(fp," [(exponents) poly type ] gbext array \n"); |
fppp(fp," [(exponents) poly type ] gbext array \n"); |
fppp(fp," example: type == 0 x,y,Dx,Dy\n"); |
fppp(fp," example: type == 0 x,y,Dx,Dy\n"); |
fppp(fp," type == 1 x,y,h,Dx,Dy,H\n"); |
fppp(fp," type == 1 x,y,Dx,Dy,h,H\n"); |
fppp(fp," type == 2 x,y,Dx,Dy,h --- default.\n"); |
fppp(fp," type == 2 x,y,Dx,Dy,h --- default.\n"); |
fppp(fp," [(grade) poly1 ] gbext integer \n"); |
fppp(fp," [(grade) poly1 ] gbext integer \n"); |
fppp(fp," [(isConstant) poly] gbext bool \n"); |
fppp(fp," [(isConstant) poly] gbext bool \n"); |
Line 214 void Kusage2(fp,s) |
|
Line 218 void Kusage2(fp,s) |
|
fppp(fp,"integer k;"); |
fppp(fp,"integer k;"); |
fppp(fp,"The primitive gets the k-th element of a given array.\n"); |
fppp(fp,"The primitive gets the k-th element of a given array.\n"); |
fppp(fp,"Example: [1 4 3] 1 get :: ---> 4\n"); |
fppp(fp,"Example: [1 4 3] 1 get :: ---> 4\n"); |
|
fppp(fp,"<< ob [k0 k1 ... ] get f >>\n"); |
|
fppp(fp,"It is equivalent to << ob k0 get k1 get ... >>\n"); |
|
fppp(fp,"The primitive get works for array or list.\n"); |
}else if (strcmp(s,"goto")==0) { |
}else if (strcmp(s,"goto")==0) { |
fppp(fp,"<< label goto >>\n"); |
fppp(fp,"<< label goto >>\n"); |
fppp(fp,"literal label;\n"); |
fppp(fp,"literal label;\n"); |
Line 505 void Kusage2(fp,s) |
|
Line 512 void Kusage2(fp,s) |
|
fppp(fp,"orderMatrix, gbListTower, Schreyer, \n"); |
fppp(fp,"orderMatrix, gbListTower, Schreyer, \n"); |
fppp(fp,"outputOrder, multSymbol, variableNames, Version,\n"); |
fppp(fp,"outputOrder, multSymbol, variableNames, Version,\n"); |
fppp(fp,"AvoidTheSameRing, RingStack, LeftBracket, RightBracket,\n"); |
fppp(fp,"AvoidTheSameRing, RingStack, LeftBracket, RightBracket,\n"); |
fppp(fp,"AutoReduce, SecureMode, Ecart, EcartAutomaticHomogenization\n"); |
fppp(fp,"AutoReduce, Ecart, EcartAutomaticHomogenization\n"); |
fppp(fp,"DoCancel, DebugContentReduction\n"); |
fppp(fp,"DoCancel, DebugContentReduction\n"); |
|
fppp(fp,"RestrictedMode (cf. or_attr 8), SecureMode(obsolete) \n"); |
fppp(fp,"Example: [(N)] system_variable\n"); |
fppp(fp,"Example: [(N)] system_variable\n"); |
fppp(fp," (maximum number of variables)/2.\n"); |
fppp(fp," (maximum number of variables)/2.\n"); |
fppp(fp," [(x) (var) 3] system_variable\n"); |
fppp(fp," [(x) (var) 3] system_variable\n"); |