![]() ![]() | ![]() |
File: [local] / OpenXM / src / kan96xx / plugin / sample.hh (download)
Revision 1.2, Sun Jan 16 07:55:48 2000 UTC (24 years, 7 months ago) by takayama
Congratulation of sm1 version 3.* ! |
/* $OpenXM: OpenXM/src/kan96xx/plugin/sample.hh,v 1.2 2000/01/16 07:55:48 takayama Exp $ */ /* 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))); }