Return to sample.hh CVS log

Up to [local] / OpenXM / src / kan96xx / plugin

Annotation of OpenXM/src/kan96xx/plugin/sample.hh, Revision 1.1.1.1

1.1       maekawa     1: /* This file is included in Kan/ext.c */
                      2:
                      3: else if (strcmp(key,"sample")==0) {
                      4:   if (size != 3) {
                      5:     errorKan1("%s\n","[(sample) op-code [args]] extension");
                      6:   }
                      7:   obj1 = getoa(obj,1);
                      8:   obj2 = getoa(obj,2);
                      9:   if (obj1.tag != Sinteger) {
                     10:     errorKan1("%s\n","[(sample) INTEGER ... ] extension");
                     11:   }
                     12:   if (obj2.tag != Sarray) {
                     13:     errorKan1("%s\n","[(sample) op-code ARRAY ] extension");
                     14:   }
                     15:   return(KpoInteger(Kplugin_sample(KopInteger(obj1),obj2)));
                     16: }