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: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>