[BACK]Return to sample.hh CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / plugin
File: [local] / OpenXM / src / kan96xx / plugin / sample.hh (download)

Revision 1.2, Sun Jan 16 07:55:48 2000 UTC (24 years, 4 months ago) by takayama
Branch: MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.1: +1 -0 lines 

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)));
}