Annotation of OpenXM/src/kan96xx/plugin/sample.hh, Revision 1.2
1.2 ! takayama 1: /* $OpenXM$ */
1.1 maekawa 2: /* This file is included in Kan/ext.c */
3:
4: else if (strcmp(key,"sample")==0) {
5: if (size != 3) {
6: errorKan1("%s\n","[(sample) op-code [args]] extension");
7: }
8: obj1 = getoa(obj,1);
9: obj2 = getoa(obj,2);
10: if (obj1.tag != Sinteger) {
11: errorKan1("%s\n","[(sample) INTEGER ... ] extension");
12: }
13: if (obj2.tag != Sarray) {
14: errorKan1("%s\n","[(sample) op-code ARRAY ] extension");
15: }
16: return(KpoInteger(Kplugin_sample(KopInteger(obj1),obj2)));
17: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>