| version 1.1.1.1, 1999/10/08 02:12:05 |
version 1.4, 2020/10/06 11:33:47 |
|
|
| |
/* $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 16 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 28 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 105 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. */ |
| } |
} |
| |
|