180 lines
4.8 KiB
C
180 lines
4.8 KiB
C
//
|
|
// 行列 詞句 轉碼程式
|
|
//
|
|
// 李傅魁 1998/03/15
|
|
//
|
|
|
|
#include <windows.h>
|
|
#include <stdio.h>
|
|
#include "resource.h"
|
|
|
|
#define CharSize 2 //for unicode file format
|
|
|
|
typedef struct {
|
|
DWORD root;
|
|
DWORD position;
|
|
} PHRINFO;
|
|
|
|
int cvtphrase(char *FileName,char *OutName, char *idxName,DWORD *line)
|
|
{
|
|
FILE *fin;
|
|
FILE *fout;
|
|
FILE *fidx;
|
|
BYTE buffer;
|
|
WORD temp;
|
|
PHRINFO code,oldcode;
|
|
DWORD header[4];
|
|
BOOL SortFlag=TRUE;
|
|
int i;
|
|
|
|
*line =1;
|
|
header[0]=header[1]=header[2]=header[3]=0;
|
|
|
|
// open input file
|
|
if((fin = fopen(FileName,"rb")) ==NULL)
|
|
return IDS_ERROPENFILE;
|
|
fread(&temp,CharSize,1,fin); // for unicode prefix character
|
|
|
|
// open output file
|
|
if((fout=fopen(OutName,"wb"))==NULL)
|
|
{
|
|
fclose(fin);
|
|
return IDS_ERRCREATEFILE;
|
|
}
|
|
|
|
// open index file
|
|
if((fidx=fopen(idxName,"wb"))==NULL)
|
|
{
|
|
fclose(fin);
|
|
fclose(fout);
|
|
return IDS_ERRCREATEIDX;
|
|
}
|
|
|
|
|
|
code.position=0;
|
|
oldcode.root=0;
|
|
//fwrite(&code.position,4,sizeof(DWORD),fidx);
|
|
fseek(fidx,16L,0); //header
|
|
|
|
while(fread(&temp,1,CharSize,fin))
|
|
{
|
|
code.root=0;
|
|
|
|
if (temp!=' ' && temp!=10 && temp!=13 && temp!='|') //每列第一字為空白字元(或空白列)時，該列即為註解列
|
|
{
|
|
// get roots
|
|
i=0; // how many roots
|
|
do {
|
|
if(temp==' ') break;
|
|
if (temp>255) //error format
|
|
{
|
|
fclose(fin);
|
|
fclose(fout);
|
|
fclose(fidx);
|
|
return IDS_ERRFORMATROOT;
|
|
}
|
|
buffer=(BYTE)temp;
|
|
if(buffer>='a' && buffer<='z') buffer-=('a'-'A'); // upcase
|
|
|
|
// 將字根轉為編碼
|
|
if(buffer>='A' && buffer<='Z')
|
|
buffer=buffer-'A'+5;
|
|
else
|
|
switch(buffer)
|
|
{
|
|
case ',': buffer=1; break;
|
|
case '.': buffer=2; break;
|
|
case '/': buffer=3; break;
|
|
case ';': buffer=4; break;
|
|
default:
|
|
fclose(fin);
|
|
fclose(fout);
|
|
fclose(fidx);
|
|
return IDS_ERRFORMATROOT;
|
|
}
|
|
code.root <<= 5;
|
|
code.root |= (DWORD)buffer;
|
|
i++;
|
|
} while (fread(&temp,1,CharSize,fin));
|
|
|
|
if (i>=5 || code.root==0) // to many roots!
|
|
{
|
|
fclose(fin);
|
|
fclose(fout);
|
|
fclose(fidx);
|
|
return IDS_ERRFORMATROOTS;
|
|
}
|
|
else
|
|
{
|
|
code.root <<= (5-i)*5;
|
|
if(SortFlag)
|
|
{
|
|
if(code.root<oldcode.root)
|
|
{
|
|
fclose(fin);
|
|
fclose(fout);
|
|
fclose(fidx);
|
|
return IDS_ERRFORMATPHRASE;
|
|
}
|
|
oldcode.root=code.root;
|
|
}
|
|
}
|
|
|
|
// cut space char
|
|
while(fread(&temp,1,CharSize,fin))
|
|
if(temp!=' ') break;
|
|
|
|
if(feof(fin))
|
|
{
|
|
fclose(fin);
|
|
fclose(fout);
|
|
return IDS_ERRFORMATCODE;
|
|
}
|
|
|
|
// 輸出字集
|
|
i=0;
|
|
do {
|
|
if(temp<=13)
|
|
break;
|
|
fwrite (&temp,1,sizeof(temp),fout); // write to output file
|
|
i++;
|
|
} while (fread(&temp,1,CharSize,fin));
|
|
|
|
if (!i)
|
|
{
|
|
fclose(fin);
|
|
fclose(fout);
|
|
return IDS_ERRFORMATCODE;
|
|
}
|
|
|
|
fwrite (&code,1,sizeof(code),fidx); // write to index file
|
|
code.position+=i;
|
|
|
|
}
|
|
|
|
if (SortFlag && temp=='|') // data not sort
|
|
{
|
|
header[0]=*line+1;
|
|
code.root=0xffffffff;
|
|
fwrite (&code,1,sizeof(code),fidx); // write to index file
|
|
SortFlag = FALSE;
|
|
}
|
|
|
|
while(temp!=0x000a) // goto end of line ...
|
|
if(!fread(&temp,1,CharSize,fin))
|
|
break;
|
|
(*line) ++;
|
|
}
|
|
|
|
header[1]=*line+1;
|
|
code.root=0xffffffff;
|
|
fwrite (&code,1,sizeof(code),fidx); // write to index file
|
|
fseek(fidx,0L,0);
|
|
fwrite (header,1,16,fidx); // write header
|
|
|
|
fclose(fin);
|
|
fclose(fout);
|
|
fclose(fidx);
|
|
return 0;
|
|
}
|