version 1.2, 2000/01/21 03:01:25 |
version 1.3, 2020/10/07 23:53:25 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/k097/dic.c,v 1.2 2000/01/21 03:01:25 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include "d.h" |
#include "d.h" |
|
|
Line 17 int K00Strict2 = 1; |
|
Line 17 int K00Strict2 = 1; |
|
|
|
static void myerror(char *s) { |
static void myerror(char *s) { |
fprintf(stderr,"Error in dic.c : "); |
fprintf(stderr,"Error in dic.c : "); |
fprintf(stderr,s); |
fprintf(stderr,"%s",s); |
} |
} |
|
|
int K00putUserDictionary(str,h0,h1,ob,cp) |
int K00putUserDictionary(str,h0,h1,ob,cp) |
Line 474 void pkkanInteger(int k) { |
|
Line 474 void pkkanInteger(int k) { |
|
} |
} |
|
|
|
|
K00foo1() { |
void K00foo1() { |
extern struct context *K00CurrentContextp; |
extern struct context *K00CurrentContextp; |
extern int K00debug0; |
extern int K00debug0; |
if (K00debug0) K00fprintContextAndDictionary(stderr,K00CurrentContextp); |
if (K00debug0) K00fprintContextAndDictionary(stderr,K00CurrentContextp); |
} |
} |
|
|
K00fooPrimitive() { |
void K00fooPrimitive() { |
extern struct context *K00PrimitiveContextp; |
extern struct context *K00PrimitiveContextp; |
extern int K00debug0; |
extern int K00debug0; |
if (K00debug0) { |
if (K00debug0) { |