version 1.2, 2000/01/16 07:55:48 |
version 1.4, 2020/10/06 11:33:47 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/kan96xx/plugin/sample.c,v 1.3 2005/06/16 05:07:24 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include "../Kan/datatype.h" |
#include "../Kan/datatype.h" |
#include "../Kan/stackm.h" |
#include "../Kan/stackm.h" |
Line 17 PLUGIN_LINKFLAG = |
|
Line 17 PLUGIN_LINKFLAG = |
|
*/ |
*/ |
|
|
static struct operandStack *SharedStack = NULL; |
static struct operandStack *SharedStack = NULL; |
static struct object Kplugin_NullObject; |
static struct object Kplugin_NullObject = OINIT; |
|
|
/* Sample is a very simple stack machine. |
/* Sample is a very simple stack machine. |
There are only one operation "add" on the shared stack. |
There are only one operation "add" on the shared stack. |
Line 29 static struct object Kplugin_NullObject; |
|
Line 29 static struct object Kplugin_NullObject; |
|
|
|
int Kplugin_sample(int opcode, struct object obj) { |
int Kplugin_sample(int opcode, struct object obj) { |
/* obj is assumed to be an array. */ |
/* obj is assumed to be an array. */ |
struct object ob1,ob2,ob3; |
struct object ob1 = OINIT; |
static initialized = 0; |
struct object ob2 = OINIT; |
|
struct object ob3 = OINIT; |
|
static int initialized = 0; |
if (opcode != KPLUGIN_SAMPLE_INIT && !initialized) { |
if (opcode != KPLUGIN_SAMPLE_INIT && !initialized) { |
errorSample("This component is not initialized."); |
errorSample("This component is not initialized."); |
return(-1); |
return(-1); |
Line 106 struct object Kplugin_peek(int k,struct operandStack * |
|
Line 108 struct object Kplugin_peek(int k,struct operandStack * |
|
|
|
|
|
static void errorSample(char *s) { |
static void errorSample(char *s) { |
fprintf(stderr,"Error in plugin/sample: %s\n"); |
fprintf(stderr,"Error in plugin/sample: %s\n",s); |
/* or push error message in the sharedStack. */ |
/* or push error message in the sharedStack. */ |
} |
} |
|
|