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