unsigned word_separator::get_right_word(const formatted_utf32_string& _str, int at, int max_right) const {
if (max_right == -1) max_right = static_cast<int>(_str.size());
if (_str.empty() || at >= int(max_right)) return 0;
unsigned result = get_right_word(_str, at, max_right, word_type(_str[at].utf_unit));
return result == 0 ?
1 /* newline encountered */
: result;
}
unsigned word_separator::get_left_word(const formatted_utf32_string& _str, int at, int max_left) const {
if (max_left == -1) max_left = 0;
if (_str.empty() || at <= int(max_left)) return 0;
unsigned result = get_left_word(_str, at, max_left, word_type(_str[at ? at - 1 : 0].utf_unit));
return result == 0 ?
1 /* newline encountered */
: result;
}
unsigned word_separator::get_right_word(const formatted_utf32_string& _str, int at, int max_right, int wordtype) const {
if (max_right == -1) max_right = static_cast<int>(_str.size());
if (_str.empty() || at >= int(max_right)) return 0;
unsigned offset = 0;
while (at < max_right) {
if (!is_character_newline(_str[at].utf_unit) && word_type(_str[at].utf_unit) == wordtype) {
++offset;
++at;
}
else break;
}
return offset;
}
unsigned word_separator::get_left_word(const formatted_utf32_string& _str, int at, int max_left, int wordtype) const {
if (max_left == -1) max_left = 0;
if (_str.empty() || at <= int(max_left)) return 0;
unsigned offset = 0;
while (at > max_left) {
if (!is_character_newline(_str[at ? at - 1 : 0].utf_unit) && word_type(_str[at ? at - 1 : 0].utf_unit) == wordtype) {
++offset;
--at;
}
else break;
}
return offset;
}
int _tmain(int argc, _TCHAR* argv[])
{
FILE *fpin,*fpout,*fperror;
int c;
//判断字母的值
int is_what;
/**
存放字符串的 变量
*/
// char character;
char ch[17];
ch[0]='\0';
char result[20];
int i=0;
int ch_index=0;
int len;
int is_end=0;
//用来计算行号
int line_number=0;
/**
打开输入输出文件
*/
char fpin_name[80],fpout_name[80],fperror_name[80];
printf("请输入要进行词法分析的文件名:\n");
scanf("%s",fpin_name);
error_out_name(fpin_name, fpout_name, fperror_name);
fpin=fopen(fpin_name,"r");
fpout=fopen(fpout_name,"w");
fperror=fopen(fperror_name,"w");
if(fpin==NULL||fpout==NULL||fperror==NULL)
{
puts("打开文件失败");
puts("\n");
puts("请确认输入的文件名是否合法，文件是否真实存在！");
exit(0);
}
else{
while((c=getc(fpin))!=END )
{
is_what=word_type(c);
if(is_what==BLACK)continue;
//进行字母数字的判断
if(is_what==LETTER)
{
//判断字符的长度 不能超过16
len=strlen(ch);
if(len>=16){
more_than_16(line_number, fpin, fperror);
}
ch_index=0;
ch[ch_index++]=c;//加入字符串
ch[ch_index]='\0'; //加入结束符
while((c=getc(fpin))!=ONECHAR)
{
//判断字符的长度 不能超过16
len=strlen(ch);
if(len>=16){
more_than_16(line_number, fpin, fperror);
break;
}
//-1的时候 是行的末尾
is_what=word_type(c);
if(is_what==BLACK||is_what==OTHER){
//如果是空格 那么一个字母的字符串结束
//把result写到文件里面去
to_result(ch,result,fpout,ONECHAR);
break;//停止这一次的运行
}
else if(is_what==END){
is_end=1;
to_result(ch,result,fpout,END);
break;//停止这一次的运行
}
//写到ch里面
else{
ch[ch_index]=c;
ch[++ch_index]='\0';
}
}
}
//如果当前的是空格或者是回车 或者是换行 那么结束这次
if(is_what==BLACK)continue;
//如果当前的是其他的字符
if(is_what==OTHER){
ch[0]=c;
ch[1]='\0';
int sign=c;
//不是文件的末尾
other( ch, result, sign, fpout,fpin,fperror, OTHER);
//查看是不是文件的末尾操作
if((c=getc(fpin))!=-1)
{
is_what=word_type(c);
//判断读取的字符 是不是为'\n' ' '
if(is_what!=BLACK){
//文件指针回退
int index=ftell(fpin);
fseek(fpin,index-1,0);
is_what=BLACK;//重新开始读取
}
}
else{
endfile( result, fpout);
break;
}
}
if(is_what==NUMBER){
//如果读取到的是数字的话
ch_index=0;
ch[ch_index]=c;
ch[++ch_index]='\0';
while((c=getc(fpin))!=-1){
is_what=word_type(c);
if(is_what==LETTER)
{
number_error(line_number, fpin, fperror);
break;
}
else if(is_what==BLACK||is_what==OTHER){
//做一些数据的处理 读取空格或者是其他的字符
to_result(ch,result,fpout,ONECHAR);
if(is_what!=BLACK){
//文件指针回退
int index=ftell(fpin);
fseek(fpin,index-1,0);
}
break;
}
else if(is_what==NUMBER){
ch[ch_index]=c;
ch[++ch_index]='\0';
}
}
if(c==END){
is_end=1;
toNextLine(result, fpout);
endfile( result, fpout);
break;
}
}
//初始化这两个数组
ch[0]='\0';
result[0]='\0';
}
//进行文件末尾的
}
if(is_end==0){
endfile( result, fpout);
}
//关闭打开的流 释放资源
fclose(fpin);
fclose(fpout);
fclose(fperror);
return 0;
}
value_type cas(value_type value, value_type cmp)
{
return value_type(atomic_cas<sizeof(value_type)>(&this->value_, word_type(value), word_type(cmp)));
}
value_type read_write(value_type value)
{
return value_type(atomic_read_write<sizeof(value_type)>(&this->value_, word_type(value)));
}
