===================================================================
RCS file: /home/cvs/OpenXM/src/ox_toolkit/parse.c,v
retrieving revision 1.5
retrieving revision 1.8
diff -u -p -r1.5 -r1.8
--- OpenXM/src/ox_toolkit/parse.c	2000/10/10 05:23:21	1.5
+++ OpenXM/src/ox_toolkit/parse.c	2003/01/11 11:42:31	1.8
@@ -1,9 +1,9 @@
 /* -*- mode: C; coding: euc-japan -*- */
-/* $OpenXM: OpenXM/src/ox_toolkit/parse.c,v 1.4 2000/03/10 12:24:39 ohara Exp $ */
+/* $OpenXM: OpenXM/src/ox_toolkit/parse.c,v 1.7 2002/05/02 10:32:08 ohara Exp $ */
 
 /* 
    This module is a parser for OX/CMO expressions.
-   Some commnets is written in Japanese by using the EUC-JP coded 
+   Some commnets are written in Japanese by using the EUC-JP coded 
    character set.
 */
 
@@ -96,7 +96,7 @@ static jmp_buf env_parse;
 /* This is a parsing fault. */
 static void parse_error(char *s)
 {
-    fprintf(stderr, "syntax error: %s\n", s);
+    fprintf(ox_stderr, "syntax error: %s\n", s);
     longjmp(env_parse, 1);
 }
 
@@ -577,6 +577,7 @@ static int mygetc()
 
 static void init_lex(char *s)
 {
+    c=' ';
     mygetc_ptr=s;
 }
 
@@ -710,7 +711,7 @@ static char *lex_quoted_string()
         }
         buffer[i]=c;
     }
-    fprintf(stderr, "buffer overflow!\n");
+    fprintf(ox_stderr, "buffer overflow!\n");
     exit(1);
     /* return NULL; */
 }
@@ -723,7 +724,7 @@ static int token_of_symbol(char *key)
         return symp->token;
     }
 #if DEBUG
-    fprintf(stderr, "lex error:: \"%s\" is unknown symbol.\n", key);
+    fprintf(ox_stderr, "lex error:: \"%s\" is unknown symbol.\n", key);
 #endif
     return 0;
 }
@@ -739,11 +740,11 @@ static int lex_symbol()
         buffer[i]=c;
         c = mygetc();
     }
-    fprintf(stderr, "buffer overflow!\n");
+    fprintf(ox_stderr, "buffer overflow!\n");
     return 0;
 }
 
-/* return する前に一文字先読みしておく. */
+/* Remark: prefetching a character before return. */
 static int lex()
 {
     int c_dash = 0;