Athlon64買いました。とってもキビキビですpart5

このエントリーをはてなブックマークに追加
117 ◆Rb.XJ8VXow
ちなみに下記は三菱製作所へ納品したソースの一部だ。
このソース1300ステップで250万円の値が付いた優れものである。
もちろん、コボラー様でも読めるように配慮している。

void MAIN_SUB()
{
char sStr[256];
int i,iSw,iCnt;

CreWorkA_SUB(); /* 展開WorkA作成 */
CreWorkB_SUB(); /* 展開WorkB作成 */
CreStrf0_SUB(); /* 出力 合作振向F作成 */

strcpy(P_Strf0,getenv("WORKDIR")); strcat( P_Strf0, "/STRF.txt" );
F_Strf0 = fopen( P_Strf0, "r" );
if( F_Strf0 == NULL ){
fprintf(stdout,PROG);
fprintf(stdout,": (MAIN_SUB)STRF.txt open Error!\n");
exit(-1);
}

/*----------------------*/
/* 自動/手動 分割処理 */
/*----------------------*/
iSw=0;iCnt=0;
for(J_Strf0.cnt = 0; J_Strf0.cnt < J_Strf0.max; J_Strf0.cnt++){
fseek(F_Strf0, J_Strf0.cnt * J_Strf0.size, SEEK_SET);
if( fread(&R_Strf0,J_Strf0.size,1,F_Strf0) != 1 ) AccessErr("001");
if( strncmp(R_Strf0.ORDER_ARANGE_NO,"#" ,1) == 0 ) {
/* fseek( F_Strf1, J_Strf1.cnt * J_Strf1.size, SEEK_SET ); /* */
fwrite( &R_Strf0, J_Strf1.size, 1,F_Strf1 );
J_Strf1.cnt++;
} else {
/* fseek( F_Strf2, J_Strf2.cnt * J_Strf2.size, SEEK_SET ); /* */
fwrite( &R_Strf0, J_Strf2.size, 1,F_Strf2 );
J_Strf2.cnt++;
}
}
J_Strf1.max=J_Strf1.cnt; /* 最大件数記憶 */
J_Strf2.max=J_Strf2.cnt; /* 最大件数記憶 */
fclose(F_Strf0);
}