Linux環境では動いていたプログラムがWindows環境では動かない

Question

実現したいこと

Linux環境で以下のプログラムを書き、gccでコンパイルからの実行とした時は、正常に動いたのですが、windows環境で同じプログラムをgccでコンパイルからの実行とすると、上手く動いてくれません。何を変えればWindowsでも正常に動いてくれますか？

以下のプログラムはコンパイラー的なのをc言語で書いてみようというもので、構文解析をするものです。

windows環境だと、”＜＞”が”＜”部分だけ読み込まれされ、その後、なにも読み込まなくなり、"Syntax Error"と表示されます。なので、おそらくcheck_word関数がおかしいのですが、なにぶんLinux環境では最後の”.”まで読み取れ”Complete”できるので、なにがおかしいのか分からずにいます。

#include<stdio.h>
#include<stdlib.h>
#include<string.h>

char outtoken[200][10];  //トークン出力用配列
int tnum;

char token[20];
char res[13][20]={"begin","end","if","then","while","do",
				  "return","function","var","const","odd",
				  "write","writeln"};
char sign[17][10]={"+","-","*","/","(",")","=","<",">",
			      "<>","<=",">=",",",".",";",":="};
FILE *fi;
int a=0;
//関数宣言
void nexttoken(int);  //次のトークンを読み込む関数
int ch(char[]);    //引数の文字列との比較　同じ:1　違う:0
int ttype();       //トークンのタイプを返す 1:予約語 2:記号
		   //		      3:名前   4:整数
void exit_func();  //構文解析エラー　強制終了
void backtoken();  //現在のトークンの番号を1つ前に戻す
void block(), varDecl(), constDecl(), funcDecl(),
	 statement(), condition(), expression(), term(),
	 factor();              //構文規則を指定
void get_token();

int check_word(char c){
	if(c>='0' && c<='9') // 数字なら 
		return 0;
	else if(c>='a' && c<='z')        //アルファベット
		return 1;
	else if(c=='\n' || c==' ' || c=='\t')        //改行，スペース，タブ
		return 2;
	else if(c=='+' || c=='-' || c=='*' || c=='/' || c=='(' || c==')' || c=='=' || c==',' || c=='.' || c==';')        //1文字のみの記号
		return 3;
	else if(c==':')      //コロンは'='と必ず一緒になる
		return 4;
	else if(c=='<' || c=='>'){  //この場合は次の文字を見る必要がある
		c=fgetc(fi);
		fseek(fi,-1,1);   //ファイルポインタを1つ戻す 
		if(c=='=' || c=='>'){
			return 4;
		}else{
			return 3;
		}
	}
}

int main(int argc, char **argv)
{
	get_token();  //トークン分割プログラム
	tnum=0;
	block();
	nexttoken(1);
	if(ch(".")) printf("Complete\n");
	else printf("Syntax Error\n");

	return 0;
}

void block()
{
	int c=0;
	nexttoken(0);
	while(ch("const")||ch("var")||ch("function")){
		c++;
		if(ch("const")) constDecl();
		else if(ch("var")) varDecl();
		else if(ch("function")) funcDecl();
	}
	if(!c) backtoken();
	statement();
}

void varDecl()
{
	nexttoken(1);
	if(ttype()!=3) exit_func("verdecl");
	nexttoken(1);
	while(ch(",")){
		nexttoken(1);
		if(ttype()!=3) nexttoken(1);
		else exit_func("verdecl");
	}
	if(ch(";")){}
	else exit_func("verdecl");
}

void funcDecl()
{
	nexttoken(3);
	if(ttype()!=3) exit_func("funcdecl"); 
	nexttoken(3);
	if(!ch("("))exit_func("funcdecl");
	nexttoken(3);
	if(ttype()!=3) 
			exit_func("funcdecl"); 
	nexttoken(3);
	while(ch(",")){
		nexttoken(3);
		if(ttype()==3) nexttoken(3);
		else exit_func("funcdecl");
	}
	if(ch(")")) block();
	else exit_func("funcdec3");
	nexttoken(3);
	if(ch(";")) nexttoken(3);
	else exit_func("funcdec4");
}

void constDecl()
{
	do{
		nexttoken(2);
		if(ttype()!=3) exit_func("constdecl");
		nexttoken(2);
		if(!ch("=")) exit_func("constdecl");
		nexttoken(2);
		if(ttype()!=4) exit_func("constdecl");
		nexttoken(2);
	}while(ch(","));
	if(ch(";"))nexttoken(2);
	else exit_func("constdecl");
}

void statement()
{
	int a,b,n;
	int t_now, t_next;

	nexttoken(4);
	if(ttype()==3){
		nexttoken(4);
		//if(ch(":=")!=) exit_func("Syntax Error");
		if(!ch(":=")) exit_func("Syntax Error");
		expression();
	}
	else if(ch("begin")){
		statement();
		nexttoken(4);
		while(ch(";")){
			statement();
			nexttoken(4);
		}
		if(!ch("end")) exit_func("Syntax Error");

	}
	else if(ch("if")){
		condition();
		nexttoken(4);
		if(!ch("then")) exit_func("Syntax Error");
		statement();
	}
	else if(ch("while")){
		condition();
		nexttoken(4);
		if(!ch("do")) exit_func("Syntax Error");
		statement();
	}
	else if(ch("return")){
		expression();
	}else if(ch("write")){
		expression();
	}else if(ch("writeln")){
	}else{   //何もせずにスルー 
		backtoken();
	}
}

void condition()
{
	nexttoken(5);
	if(!ch("odd")){
		backtoken();
		expression();
	}else expression();
	if(!ch("=")&&!ch("<>")&&!ch("<")&&!ch(">")&&!ch("<=")&&!ch(">=")){
		exit_func("Syntax Error");
	}else{
		nexttoken(5);
		expression();
	}
}

void expression()
{
	nexttoken(6);
	if(!ch("+")&&!ch("-")){
		backtoken();
		term();
	}else{
		term();
	}
	nexttoken(6);
	while(ch("+")||ch("-")){
		term();
		nexttoken(6);
	}
	backtoken();
}

void term()
{
	factor();
	nexttoken(7);
	while(ch("*")||ch("/")){
		factor();
		nexttoken(7);
	}
	backtoken();
}

void factor()
{
	nexttoken(8);
	if(ttype()==4){
	}else if(ttype()==3){
			nexttoken(8);
			if(!ch("(")){
				backtoken();
			}else{
				nexttoken(8);
				if(ch(")")){
					backtoken();
				}else{
					backtoken();
					expression();
					nexttoken(8);
					while(ch(",")){
						expression();
						nexttoken(8);
					}
				}
				if(ch(")")){
				}else{
					exit_func("factor1");
				}
			}
	}else if(ch("(")){
		expression();
		nexttoken(8);
		if(ch(")")){
		}else{
		exit_func("factor2");
		}
	}
}

void nexttoken(int s)
{
	char state[30];
	switch(s){
		case 0: sprintf(state,"block");
				break;
		case 1: sprintf(state, "constDecl");
				break;
		case 2: sprintf(state, "verDecl");
				break;
		case 3: sprintf(state, "funcDecl");
				break;
		case 4: sprintf(state, "statement");
				break;
		case 5: sprintf(state, "condition");
				break;
		case 6: sprintf(state, "expression");
				break;
		case 7: sprintf(state, "term");
				break;
		case 8: sprintf(state, "factor");
				break;
	}
	strcpy(token,outtoken[tnum]);
	tnum++;
	printf("%-13s : [%s]\n",state,token);
}

int ch(char str[20]) //文字列の比較
{
	if(strcmp(token,str)==0) return 1;
	else return 0;
}

int ttype()  //トークンのタイプを返す
{
	int i,c;
	for(i=0;i<13;i++){
		c=strcmp(token,res[i]);
		if(c==0){
			return 1;
			break;
		}
	}

	for(i=0;i<16;i++){
		c=strcmp(token,sign[i]);
		if(c==0){
			return 2;
			break;
		}
	}

	if(token[0] >='0' && token[0]<='9')
		return 4;
	else
		return 3;
}

void backtoken() //トークン番号を1つ前に戻す
{
	tnum--;
}

void exit_func(char str[20])  //文法規則に合わないため終了
{
	printf("Syntax Error Near the Word \"%s\"\n",token);
	printf("%s\n",str);
	exit(1);  //強制終了
}


void get_token()
{
	int i,j,token_num;
	char c;
	fi=fopen("2.txt","r");
	token_num=0;  //トークンの数の初期化
	j=0;
	while(1){
		c=fgetc(fi);  //1文字ずつ入力
		printf("%c\n",c);
		if(c==EOF)break;

		if(check_word(c)==0){//数字なら
			outtoken[token_num][j]=c;
			j++;
			a=1;
		}
		else if(check_word(c)==1){//文字なら
			if(a==1){
				outtoken[token_num][j]='\0';
				j=0;
				token_num++;
				a=0;
			}
			outtoken[token_num][j]=c;
			j++;
		}
		else if(check_word(c)==2){  //改行，スペース，タブなら
			if(j!=0){
				outtoken[token_num][j]='\0';
				j=0;
				token_num++;
			}
			else{
				//do nothing!!
			}
		}else if(check_word(c)==3){  //記号なら(1文字)
			if(j!=0){
				outtoken[token_num][j]='\0';
				j=0;
				token_num++;
			}
			outtoken[token_num][j]=c;
			j++;
			outtoken[token_num][j]='\0';
			j=0;
			token_num++;
			a=0;
		} else if(check_word(c)==4){  //記号なら(2文字)
			if(j!=0){
				outtoken[token_num][j]='\0';
				j=0;
				token_num++;
			}
			outtoken[token_num][j]=c;
			j++;
			c=fgetc(fi);
			printf("%c\n",c);
			outtoken[token_num][j]=c;
			j++;
			outtoken[token_num][j]='\0';
			j=0;
			token_num++;
			a=0;
		}
	}
	
	for(i=0;i<token_num;i++){
		printf("%3d  %s  ",i,outtoken[i]);
	if(check_word(outtoken[i][0])==0){
		printf("整数\n");
	}else if(check_word(outtoken[i][0])==3 || check_word(outtoken[i][0])==4){
		printf("記号\n");
	}else if(check_word(outtoken[i][0])==1){
		if(strcmp(outtoken[i],"begin")==0 || strcmp(outtoken[i],"end")==0 || strcmp(outtoken[i],"if")==0 || strcmp(outtoken[i],"then")==0 || strcmp(outtoken[i],"while")==0 || strcmp(outtoken[i],"do")==0 || strcmp(outtoken[i],"return")==0 || strcmp(outtoken[i],"function")==0 || strcmp(outtoken[i],"var")==0 || strcmp(outtoken[i],"const")==0 || strcmp(outtoken[i],"odd")==0 || strcmp(outtoken[i],"write")==0 || strcmp(outtoken[i],"writeln")==0){
			printf("予約語\n");
		}
		else {
			printf("名前\n");
		}
	}
	}

}

入力するテキストファイル↓

function gcd(x,y)
begin
	while x <> y do
		begin if x < y then y:=y-x;
			if y<x then x:=x-y;
		end;
	return x
end;

const bunsi=32,bunbo=88;
var g;

begin
	g:=gcd(bunsi,bunbo);
	write bunsi/g; write bunbo/g; writeln
end.

Comments

[y_waiwai]

エラーが出るならエラーメッセージを提示しましょう。

[otn]

関数ごとの単体テストをやっていないなら、やった方がいいです。

Answer 1

全体を見たわけではないですがぱっと目についたところだけ。

テキストモードで開いたストリームに対して fseek で現在位置から -1 するというのは C の言語仕様では保証されない動作です。

マイクロソフトのサイトにある Visual Studio のドキュメントでも保証されないということは明記されています。 Windows 用の GCC でも実行環境としては MSVCRT (Windows 用の C ランタイムライブラリ) を使うコードを生成するのでこの説明が適用されます。

一方で、 Linux ではストリームのテキストモードとバイナリモードの区別がありませんので、 fseek は成功するでしょう。

<> の付近で動作が違うのであれば、これが関係しているのかもしれません。

Comments

[GLa1192]

fseekがあやしいと思って調べても、-方向にも進められるという記述があったりで、困っていたところだったので助かりました！ありがとうございます！どうやらご指摘の内容が原因だったようです。
さらに質問したいのですが、ファイルポインタを1つ戻すという動作をwindows環境で行う場合、何か別の手段があるのでしょうか？　先頭から何文字目という方法で実質的に戻すしかないのでしょうか？

[tatsu99]

１．fp=fopen("2.txt","r");を
fp=fopen("2.txt","rb");にかえてください。
そうするとバイナリーモードになるのでwindowsでもfseekで-1が使用可能です。
linuxの場合は、デフォルトでバイナリーモードなので、問題ありませんでした。
尚、linuxでfp=fopen("2.txt","rb");としても問題ありません。（同じ結果になります）
２．windowsの改行コードはCR(0x0d)LF(0x0a)なので
check_wordの改行判定に'\r'を追加してください。
'\n'=0x0a '\r'=0x0dです。

[SaitoAtsushi]

ストリームがパイプなどのキャラクターデバイスに接続されているときはシークできませんし、質問中の事例では先読みが必要なのは一文字だけですからシーク可能であることを要求するのは強すぎる制限に感じます。
ungetc を使うのが一般的です。

[GLa1192]

tatsu99様の方法で、無事に想定通りの動きをさせることができました。ありがとうございます！　テキストモード、バイナリモードについての理解不足が身に染みて分かりました。環境差による影響も勉強になりました。
SaitoAtsushi様の回答にあるungetcは存在自体知らなかったので、これもまた勉強になりました。同様のことをする時があれば使っていこうと思います。
回答者の皆様、本当にありがとうございました！

[otn]

> fseekがあやしいと思って調べても、
そもそも、返り値をチェックしていないというのもまずかったですね。

Answer 2

GCCであるなら、Windows環境でもEcripseでデバッグできます
ブレークポイントを設定すれば、ソースコードの任意の行で実行を止め、変数のナカミを見ることが出来ます。
また、ワンステップ実行で１行づつ実行させ、変数のナカミの変化を見ることが出来ます。
そうやって動作のおかしいところを特定していきましょう。

そうすれば、なにもわからないのでどーにかしろ、という質問をしなくて済むようになります

Comments

[GLa1192]

そのようなデバック方法があったのですね！不勉強でした。今後使っていこうと思います。
加えて、曖昧な質問をしてしまいすみませんでした。

[SaitoAtsushi]

漠然としすぎた質問というのは結局のところかわりにやってくれというのと同じなのであまりよい気はしませんが、わからないなりの質問の仕方としては良くできていると思います。 自分なりに絞り込んだつもりでその範囲の情報しか挙げずに、しかし実は質問文にない箇所が原因だったというのはかなり頻繁にあることなので、再現可能なソースコードと具体的な現象を提示できているのは良い質問です。

ただ、 fseek について調べてみても記述が色々あったというのがググってみたという意味だとしたらあまりよい方法とは言えません。 C の規格は ISO や JIS になっているのでまずはそれを見る、各環境ごとのドキュメントにあたるといった一次情報を見るべきです。 規格で決まっていることは規格を見るのが確実です。 ピンポイントで関数の仕様を見るだけならそれほど難解なものではありませんので。