Return to sample.hh CVS log

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

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: }