File: [local] / OpenXM / src / kan96xx / plugin / sample.hh (download)
Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:05 1999 UTC (24 years, 11 months ago) by maekawa
Branch: OpenXM
CVS Tags: ALPHA Changes since 1.1: +0 -0
lines
o import OpenXM sources
|
/* This file is included in Kan/ext.c */
else if (strcmp(key,"sample")==0) {
if (size != 3) {
errorKan1("%s\n","[(sample) op-code [args]] extension");
}
obj1 = getoa(obj,1);
obj2 = getoa(obj,2);
if (obj1.tag != Sinteger) {
errorKan1("%s\n","[(sample) INTEGER ... ] extension");
}
if (obj2.tag != Sarray) {
errorKan1("%s\n","[(sample) op-code ARRAY ] extension");
}
return(KpoInteger(Kplugin_sample(KopInteger(obj1),obj2)));
}