| version 1.18, 2003/08/26 12:46:05 |
version 1.19, 2003/12/05 13:51:31 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.17 2003/08/23 02:28:38 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.18 2003/08/26 12:46:05 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include "datatype.h" |
#include "datatype.h" |
| #include "stackm.h" |
#include "stackm.h" |
| Line 19 int SerialCurrent = -1; /* Current Serial number of t |
|
| Line 19 int SerialCurrent = -1; /* Current Serial number of t |
|
| |
|
| int ReverseOutputOrder = 1; |
int ReverseOutputOrder = 1; |
| int WarningNoVectorVariable = 1; |
int WarningNoVectorVariable = 1; |
| |
extern int QuoteMode; |
| |
|
| /** :arithmetic **/ |
/** :arithmetic **/ |
| struct object KooAdd(ob1,ob2) |
struct object KooAdd(ob1,ob2) |
| Line 142 struct object KooAdd(ob1,ob2) |
|
| Line 143 struct object KooAdd(ob1,ob2) |
|
| |
|
| |
|
| default: |
default: |
| warningKan("KooAdd() has not supported yet these objects.\n"); |
if (QuoteMode) { |
| |
rob = addTree(ob1,ob2); |
| |
}else{ |
| |
warningKan("KooAdd() has not supported yet these objects.\n"); |
| |
} |
| break; |
break; |
| } |
} |
| return(rob); |
return(rob); |