write_block(long v) /* 将 ddd 中内容拷至当前行指定位置 */
{ /* 参数 v 为拷贝后块尾行号 */
int i,g;
char *b;
b=malloc(HC); /* 为 b 分配内存空间 */
strcpy(b,ss[ss_x]+yy); /* 将当前行光标后字符串暂放入 b 中 */
if(ss_max-ss_xQ3+H3) wfp2(); /* 如编辑数组当前行后较多，存一些到 fp2 */
for(;;) { /* 建一个无限循环 */
write_prompt(0); /* 提示请稍候... */
if((g=v-xx)QB-1-ss_max) { /* 如块移入后编辑数组不会溢出 */
mov(ss_x+1,g); /* 将目标行后的编辑数组后移 */
ss_max+=g; /* 编辑数组已用最大行号增加 */
fp_rd+=g; /* fp 已读出最大行号增加 */
ttl_x+=g; /* 文末行行号增加 */
while(*ddd) { /* *ddd 为真则循环 */
ss[ss_x][yy]=*ddd++; /* ddd 中字符读入当前行 yy 处 */
ser++; /* 字序数加 1 */
if(ss[ss_x][yy++]==0x0A) { /* 如读到一换行符后 */
ss[ss_x][yy]=0; /* 串尾加 ' ' 定界 */
ss_x++; xx++; /* 下移一行 */
yy=0; /* 至行首列 */
}
}
strcpy(ss[ss_x]+yy,b); /* b 中字串接到行尾 */
break; /* 跳出 for 循环 */
}
else { /* 如编辑数组装不下 */
if(ss_xQ1) wfp1(); /* 如当前行在后半数组，写一部分到 fp1 */
else { /* 如当前行在前半数组 */
mov(ss_x+1,(g=QB-1-ss_max)); /* 将当前行后的编辑数组后移 */
ss_max=QB-1; /* 定数组已用最大行行号 */
for(i=0;ig;i++) { /* ddd 中字块读入编辑数组共 g 行 */
while(*ddd) { /* *ddd 为真则循环 */
ss[ss_x][yy]=*ddd++; /* ddd 中内容读入数组行当前列 */
ser++; /* 字序号加 1 */
if(ss[ss_x][yy++]==0x0A) { /* 如遇到换行符 */
ss[ss_x][yy]=0; /* 以' '结束本行 */
ss_x++; xx++; /* 行号增 1 */
yy=0; /* 至行首列 */
fp_rd++; /* fp 已读出最大行号增 1 */
ttl_x++; /* 文末行行号加 1 */
break; /* 填完一行,跳出 while 循环 */
}
}
}
}
}
}
free(b); /* 释放内存 */
clear_prompt(); /* 清提示区 */
}
del_block() /* 删除块 */
{
int j;
write_prompt(0); /* 提示请稍候... */
/* 以下计算删除原块后,原光标位置的变化 */
if(!(txxksx||(txx==ksx && tyy=ksy))) {
if(txxkwx) txx-=kwx-ksx;
else {
if(txx==kwx && tyykwy) tyy-=kwy-ksy;
else tyy=ksy;
txx=ksx;
}
}
Ctrl_F(0); /* 移到块首，不显示 */
if(ksx==kwx) strcpy(ss[ss_x]+yy,ss[ss_x]+kwy);
/* 如块首块尾在同一行,将块尾后的字符串拷至块首起 */
else { /* 如块首块尾不在同一行 */
Ctrl_T(0); /* 块首行删至行末，不显示 */
ser+=2; /* 计算字序数 */
xx++; ss_x++; /* 至下行 */
y=0; yy=0; /* 至行首 */
while(xxkwx) Ctrl_Y(0); /* 逐行删除，不显示 */
yy=kwy; /* 当前行已移至块尾行,列号定为块尾列号 */
ser+=yy; /* 计算块尾列的字序号 */
Ctrl_E(0); /* 删至行首，不显示 */
delc(); /* 本行剩余部分接至块前 */
}
ser+=tyy-yy; /* 计算字序数 */
if((j=ss_x+H3-x)ss_max && jttl_x) tj();
/* 屏幕文本区底行超出数组，且未到文末，从 fp 或 fp2 读入 */
mvto(txx); /* 重返原坐标 */
clear_prompt(); /* 清提示区 */
}
int read_block() /* 字块读入缓冲区 ddd */
{
int i,j;
write_prompt(0); /* 提示请稍候... */
txx=xx; /* 保存原文本行号 */
tyy=yy; /* 保存原文本列号 */
Ctrl_F(0); /* 移到块首，不显示 */
if(ksx==kwx) { /* 如块首块尾在同一行 */
j=kwy-ksy; /* 计算块串长 */
ddd=malloc(j+2); /* 给 ddd 分配内存空间 */
dd=ddd; /* 保存 ddd 指针首址 */
for(i=0;ij;i++) *ddd++=ss[ss_x][ksy+i]; /* 块读入 ddd */
*ddd++=0; /* ddd 以 ' ' 结尾 */
vv=i; /* 统计块长字节数 */
yy+=i; /* 移至块尾 */
}
else { /* 如块首块尾不在同一行 */
ddd=malloc(KK); /* 给 ddd 分配内存空间 */
dd=ddd; /* 保存 ddd 首指针 */
first=strlen(ss[ss_x])-ksy; /* 计算块首行中块串长 */
vv=first; /* 计算读入字节数 */
for(i=0;ifirst;i++) *ddd++=ss[ss_x][ksy+i]; /* 首行中块串读入 ddd */
xx++; ss_x++; /* 至下行 */
yy=0; /* 至行首 */
for(;;) { /* 为读入字块建的循环 */
tj(); /* 如当前行在数组后半部,写 Q3 行到 fp1,
数组行数不足数组一半,从 fp1 或 fp2 补充之 */
if(kwx-xx=ss_max-ss_x) { /* 如块尾在当前编辑数组中 */
while(xxkwx) /* 当前行在块尾行前则循环 */
if(hb()) return 1; /* 读入 ddd 中，如块太大返回 1 */
break; /* 退出 for 循环 */
}
else /* 如块尾不在编辑数组中 */
while(ss_xss_max) /* 数组中的字块部分读入ddd */
if(hb()) return 1; /* 计算字节数,读入 ddd，如块太大返回 1 */
}
for(i=0;ikwy;i++) *ddd++=ss[ss_x][i]; /* 读入块末行的块串 */
vv+=i; /* 计算读入的字节数 */
yy=kwy; /* 到块尾 */
*ddd=0; /* ddd 以 ' ' 结尾 */
}
ser+=vv; /* 计算字序数 */
ddd=dd; /* 返回指针头 */
clear_prompt(); /* 清提示区 */
return 0; /* 正常读完，返回 0 */
}
int hb() /* 计算块的字节数，读入 ddd 中 */
{
int i=0;
vv+=strlen(ss[ss_x]); /* 计算读入的字节数 */
if(vv=KK-255) { /* 如字节数超出 ddd 最大空间 */
mvto(txx); /* 重返原坐标 */
comp_disp(); /* 重显原屏幕 */
write_prompt(2); /* 提示块太大! */
clear_ques(); /* 清提问区 */
ddd=dd; /* 返回首指针 */
free(ddd); /* 释放 ddd 占用内存空间 */
return 1; /* 返回 1 */
}
while(ss[ss_x][i]) *ddd++=ss[ss_x][i++]; /* 读一行至 ddd */
ss_x++; xx++; /* 至下一行 */
return 0; /* 返回 0 */
}
int over(int g) /* 行超长处理，g 为当前行长度 */
{
if((kwx==ksx && vv+gHC-4)||
(kwx!=ksx &&(tyy+firstHC-4 || g-tyy+kwyHC-4))) {
mvto(txx); /* 重返原坐标 */
comp_disp(); /* 重显原屏幕 */
ddd=dd; /* 返回指针头 */
free(ddd); /* 释放 ddd 占用的内存空间 */
write_prompt(3); /* 提示：行超长 */
return 1; /* 发生超长返回 1 */
}
return 0; /* 未发生行超长返回 0 */
}
Ctrl_W() /* 字块存盘 */
{
long g;
if(blck==2) { /* 如已定义块 */
g=ser; /* 保存字序号 */
write_ques(1); /* 提问存盘文件名 */
if(key_string(HH,25,hsz,PROM_COLOR)=0) { /* 如为空串或按 ESC */
clear_ques(); /* 清提问区 */
return; /* 退出本功能 */
}
if(findfirst(hsz,pt,0)==0){ /* 如当前目录中已有此文件 */
write_ques(2); /* 提问是否复盖 */
if(key_yn(30)1) { /* 输入 Y 或 N,如按 ESC 键或输入 N */
clear_ques(); /* 清提问区 */
return; /* 退出本功能 */
}
}
fp3=fopen(hsz,"wb+"); /* 以写方式打开文件 hsz,文件指针放入 fp3 */
if(read_block()) { /* 读块到 ddd ,如失败,跳出开关语句 */
ser=g; /* 恢复原参数 */
return; /* 退出本功能 */
}
write_prompt(0); /* 提示请稍候... */
fwrite(ddd,sizeof(char),vv,fp3); /* ddd 中内容写入文件 fp3 */
fputc(0x1A,fp3); /* 加文件结束符 */
fclose(fp3); /* 关闭文件 fp3 */
free(ddd); /* 释放 ddd 占用的内存 */
mvto(txx); /* 重返原坐标 */
ser=g; /* 恢复原参数 */
comp_disp(); /* 重显屏幕 */
clear_prompt(); /* 清提示区 */
clear_ques(); /* 清提问区 */
}
else write_prompt(1); /* 提示：请先定义块 */
}
Ctrl_R() /* 外部文件读入光标处 */
{
int i,j,g,v;
write_ques(3); /* 提问外部文件名 */
if(key_string(HH,23,hsz,PROM_COLOR)=0) { /* 输入字符串,如为空串或按 ESC */
clear_ques(); /* 清提问区 */
return; /* 退出本功能 */
}
if((fp3=fopen(hsz,"rb"))==NULL){ /* 如文件不存在 */
clear_ques(); /* 清提问区 */
write_prompt(6); /* 提示文件未找到 */
return; /* 退出本功能 */
}
chg=1; /* 文件已修改标志置为真 */
txx=xx; /* 保存文本行号 */
tyy=yy; /* 保存文本列号 */
*hsz=0; /* 字符串置为空串 */
g=0; /* 累计读入行数置初值 0 */
for(;;) { /* 分批读入的循环 */
ddd=malloc(KK+1); /* 给 ddd 分配内存 */
dd=ddd; /* 保存 ddd 首指针 */
j=fread(ddd,sizeof(char),KK,fp3); /* 读文件KK字节至ddd */
v=0; /* 本次读入行数置初值 0 */
while(*ddd) { /* *ddd 为真则循环 */
if(*ddd==0x1A) { /* 以 ' ' 代替文件结束符 */
*ddd=0;
break; /* 退出循环 */
}
if(*ddd++==0x0A) { /* 计算读入行数 */
++v; /* 本次循环读入行数加 1 */
++g; /* 累计读入行数加 1 */
}
}
ddd=dd; /* 恢复指针到指针头 */
v+=xx; /* 计算本次拷入后光标行号 */
write_block(v); /* ddd 中内容拷入当前位置 */
ddd=dd; /* 恢复 ddd 指针到指针头 */
free(ddd);
if(jKK) break; /* 读入字节数小于 KK 时，文件已读完 */
}
if(txxksx) ksx+=g; /* 如当前行在块首行前,块首行号增加读入文件行数 */
else { /* 如当前行不在块首行前 */
if(txx==ksx && tyy=ksy) { /* 如当前行为块首行,当前列在块首列前 */
ksx+=g; /* 块首行行号增加 g */
ksy+=yy-tyy; /* 计算块首列列号 */
}
}
if(txxkwx) kwx+=g; /* 如当前行在块尾行后，块尾行行号增加 g */
else { /* 如当前行不在块尾行后 */
if(txx==kwx && tyy=kwy) { /* 如当前行在块尾行，并在块尾列前 */
kwx+=g; /* 块尾行行号加 g */
kwy+=yy-tyy; /* 计算块尾列列号 */
}
}
comp_disp(); /* 计算显示参数，重显当前屏幕 */
fclose(fp3); /* 关闭外部文件 */
clear_ques(); /* 清提问区 */
}
Ctrl_P() /* 当前编辑文本的打印 */
{
FILE *fpw,*fpr;
unsigned char prt[255];
int i,j,k,a,b=0,pg;
write_ques(8); /* 提问每页打印行数 */
if((j=key_digit(22))=0) { /* 输入行数，如为空串或按 ESC 键 */
clear_ques(); /* 清提问区 */
return; /* 退出本功能 */
}
write_ques(12); /* 提问页号位置 */
if((k=key_digit(20))=0) { /* 输入起始列号,如为空串或按 ESC 键 */
clear_ques(); /* 清提问区 */
return; /* 退出本功能 */
}
write_ques(13); /* 提问起始页号 */
if((pg=key_digit(16))=0) { /* 输入起始页号，如为空串或按 ESC 键 */
clear_ques(); /* 清提问区 */
return; /* 退出本功能 */
}
Shift_F1(); /* 存盘不退出 */
if((fpr=fopen(mfile,"rb"))==NULL) { /* 打开主文件，指针赋于 fpr，如失败返回 */
clear_ques(); /* 清提问区 */
return; /* 退出本功能 */
}
fpw=fopen("PRN","w"); /* 打开设备文件(打印机)，指针赋于 fpw */
while(1) { /* 为分页打印设的循环 */
write_ques(10); /* 提示：调整好打印机，按一键开始打印 */
if(gett()==-1||tpt()==-1) { /* 测打印机，如按 Esc 键 */
fclose(fpr); /* 关闭 fpr */
clear_ques(); /* 清提问区 */
return; /* 返回 */
}
for(i=0;ij;i++) { /* 为一页内分行打印设的循环 */
if(fgets(prt,255,fpr)==NULL) { /* 从 fpr 读入一行至 prt, 如失败 */
while(i++j) { /* 未打满一页则循环 */
fprintf(fpw,"n"); /* 打印一空行 */
b=1; /* 文件结束标志置 1 */
}
break; /* 跳出 for 循环 */
}
for(a=0;prt[a];a++) { /* 去除字符串中的回车换行符 */
if(prt[a]==0x0D || prt[a]==0x8D) break;
}
prt[a]=0; /* 字符串以 ' ' 定界 */
fprintf(fpw,"%sn",prt); /* 打印一行 */
}
fprintf(fpw,"n"); /* 走纸一行 */
for(a=0;ak;a++) fprintf(fpw," "); /* 打印页号前空格 */
fprintf(fpw,"%dn",pg++); /* 打印页号 */
if(b) break; /* 如打印完全文,退出循环 */
}
clear_ques(); /* 清提问区 */
fclose(fpr); /* 关闭打印的文本文件 */
fclose(fpw); /* 关闭打印机文件 */
}
int tpt() /* 打印机状态测试 */
{
while(1) { /* 为重复测试建的循环 */
if(inp(0x379)==0xDF) break; /* 取 0x379 端口值，如等于 0xDF, 跳出循环 */
else write_ques(9); /* 否则提示打印机未准备好 */
if(gett()==-1) { /* 等待按键，Esc 键返回 -1，否则继续循环 */
clear_ques(); /* 清提问区 */
return -1; /* 返回 -1 */
}
}
write_ques(11); /* 提示正在打印.... */
return 0; /* 返回 0 */
}
Esc() /* 放弃存盘，退出编辑 */
{
if(chg) { /* 如文本已修改过 */
write_ques(0); /* 提问:是否放弃并退出编辑 */
if(key_yn(26)1) { /* 如输入 N */
clear_ques(); /* 清提问区 */
return; /* 返回，继续编辑 */
}
}
bk(); /* 退出程序，至 DOS 下 */
}
Chr() /* 输入字符 */
{
static bb=0; /* 定义一个静态变量作为全角一、三区字符标志 */
int j,g,k;
if(cc.ch[0]==0xF0 && cc.ch[1]==76) return; /* 屏蔽小键盘中间键 */
if(cc.ch[0]31) { /* 屏蔽控制键 */
chg=1; /* 文件已修改标志置为真 */
qq=0; /* 全角制表符标志变量初始化 */
make_tab(); /* 如表线开关为开，产生表格线 */
AA: z2=cc.ch[0]; /* 将字符放入 z2 */
if(yy=enq) { /* 如在排版宽度以后 */
if(vs(enq-1)==0) { /* 如排版长度处不为全角后半部 */
if(yy==enq) { /* 如写在排版长度处 */
if(z2160) { /* 如为半角字符 */
if(punc1(z2)) goto BB; /* 如为指定标点符号，转写入字符串 */
else k=enq; /* 如不是，在此处折断 */
}
else { /* 如为全角字符 */
if(z2==161 || z2==163) { /* 如第一字节在一、三区 */
z1=z2; /* 输入字符从 z2 移入 z1 暂存 */
bb=1; /* 全角一、三区标志置 1 */
goto BB; /* 先写入字符串 */
}
else k=enq; /* 否则在此处折断 */
}
}
else { /* 如在排版长度之后 */
if(bb && punc2(z1,z2)) goto BB;
/* 如为指定全角标点符号，写入字符串 */
else { /* 否则检查排版长处字符 */
bb=0; /* 全角一、三区标志 bb 恢复初值 */
a1=ss[ss_x][enq]; /* 排版长处取一字节,放入 a1 */
if(a1160) { /* 如为半角字符 */
if(punc1(a1)) k=enq+1; /* 如为指定半角标点,折断处后移一字节 */
else k=enq; /* 否则原处折断 */
}
else { /* 如为全角字符 */
a2=ss[ss_x][enq+1]; /* 再取一字节放入 a2 */
if(punc2(a1,a2)) /* 如为指定全角标点*/
k=enq+2; /* 折断处后移二字节 */
else k=enq; /* 否则原处折断 */
}
}
}
}
else { /* 排版长度处为全角字符后半部 */
z1=ss[ss_x][enq-1]; /* 读出全角前半部 */
if(yy==enq) { /* 如写入处在排版长度处 */
if(punc2(z1,z2)) goto BB; /* 如为指定全角标点, 转写入字符串 */
else k=enq-1; /* 否则折断处前移一字节 */
}
else { /* 如写入在排版长之后 */
a2=ss[ss_x][enq]; /* 检查应折断处字符 */
if(punc2(z1,a2)) /* 如为指定全角标点 */
k=enq+1; /* 折断处后移一字符 */
else k=enq-1; /* 否则，折断处前移一字节 */
}
}
intercept(k); /* 折断字符串换行 */
strcpy(ss[ss_x-1]+k,ra); /* 折断处加软回车符 0x8D0A */
yy-=k; /* 计算列号 */
comp_disp(); /* 计算参数，重显当前屏幕 */
}
BB: g=string_lingth(); /* 计算行长(不包括回车换行符) */
if(ins || yy==g) { /* 如为插入状态或写在行末 */
if(gHC-4) { /* 如行超长退回 */
write_prompt(3); /* 提示：行超长 */
return; /* 退出 */
}
if(xx==ksx && yyksy) ksy++; /* 计算块坐标变化 */
if(xx==kwx && yykwy) kwy++;
for(j=g+3;jyy;j--) ss[ss_x][j]=ss[ss_x][j-1];
} /* 插入字符后的字符依次后移 */
else { /* 如为非插入状态 */
if(cc.ch[0]127 && ss[ss_x][yy]0xA0) ss[ss_x][yy+1]=32;
/* 如为半角复盖全角，全角后半字填空格 */
if(vs(yy)==0 && cc.ch[0]0xA0 && ss[ss_x][yy]127
&& ss[ss_x][yy+1]0xA0){ /* 如为全角复盖一个半角和一个全角的前半部 */
ss[ss_x][yy+2]=32; /* 全角后半字节填空格 */
}
}
