当前位置:网站首页>>电脑技术>>C、C++语言>>我的著作 双击自动滚屏
中西文全屏幕编辑程序的设计和编制(十一)

发表日期:2006年1月1日      已经有3630位读者读过此文

Up()                               /* 上移一行 */
{
  int k;
  if(xx) {                         /* 如不在文首行 */
    if(!ss_x) st();                /* 如到编辑数组第一行,从 fp1 读入 Q3 行 */
    xx--;                          /* 上移一行 */
    ss_x--;                        /* 编辑数组行号减 1 */
    ser-=yy+2;                     /* 计算上行末字序数 */
    k=m;                           /* 保存原屏号 */
    if(x>0)  {                     /* 如不在本屏起始行 */
      x--;                         /* 屏幕光标上移一行 */
      orien();        /* 判断上移后光标是否在串尾后,如在串尾后,光标定于串尾 */
      if(m!=k)  disp_t();          /* 如不在原屏,重显一屏 */
    }
    else  {                        /* 如在本屏起始行 */
      orien();        /* 判断光标是否在串尾后,如在串尾后,定光标于串尾 */
      if(m==k) roll_scr_down(0,H3);/* 如仍在原屏,向下滚屏 */
      else  disp_t();              /* 否则显示串尾所在屏 */
    }
    ser-=string_lingth()-yy;       /* 计算字序数 */
  }
}

Down()                             /* 下移一行 */
{
  int k,l;
  l=string_lingth();               /* 计算行长(不包括回车换行符) */
  if(xx<ttl_x)  {                  /* 如不在文末行 */
    ss_x++;   xx++;                /* 下移一行 */
    ser+=l-yy+2;                   /* 计算下行首字序数 */
    if(ss_x>=ss_max) tj();         /* 如超出编辑数组,从 fp2 或 fp 补充 */
    k=m;                           /* 保存原屏号 */
    if(x<H3)  {                    /* 如不在屏幕文本区最下一行 */
      x++;                         /* 屏幕光标下移一行 */
      orien();           /* 判断光标是否在串尾后,如在串尾后,定光标于串尾 */
      if(m!=k) disp_t();           /* 如不在原屏,重显一屏 */
    }
    else  {                        /* 如光标在屏幕文本区最后一行 */
      orien();                     /* 重定列号 */
      if(m==k) {                   /* 如在原屏 */
        roll_scr_up(0,H3);         /* 向上滚屏 */
        disp(ss_x,x);              /* 屏幕最下行补显一行 */
      }
      else  disp_t();              /* 如不在原屏,重显一屏 */
    }
    ser+=yy;                       /* 计算字序数 */
  }
}

Ins()                                  /* 插入/非插入状态切换 */
{
  if(!ins)  {                          /* 如 ins 为假 */
    ins=1;                             /* 转置 ins 为 1 */
    write_string(H1,0,"插入",0x4E);    /* 在信息行显示“插入”二字 */
  }
  else  {                              /* 如 ins 为真 */
    ins=0;                             /* 转置 ins 为 0 */
    write_space(H1,0,4,0x0E);          /* 用空格盖掉“插入”二字 */
  }
}

Home()                             /* 移至行首 */
{
  ser-=yy;                         /* 计算字序数 */
  yy=0;                            /* 到行首列 */
  if(m)  {                         /* 如不是 0 屏 */
    m=0;
    disp_t();                      /* 显示 0 屏各行 */
  }
}

End()                              /* 到行末 */
{
  int i,g;
  i=m;                             /* 保存屏号 */
  g=string_lingth();               /* 计算字符串长(不包括回车换行符) */
  ser+=g-yy;                       /* 计算字序数 */
  yy=g;                            /* 当前位置移至行末 */
  comput();                        /* 计算各参数 */
  if(i!=m)  disp_t();              /* 如不在原屏,重显一屏 */
}

comp_disp()                        /* 计算参数,重显一屏 */
{
  comput();                        /* 计算各参数 */
  disp_t();                        /* 显示一屏 */
}

comput()                           /* 根据 yy 计算屏号 m、y 等参数 */
{
  m=yy/BP;                         /* 计算屏号 */
  if(m)  m--;                      /* 如不为 0 屏,屏号减 1 */
  y=yy-m*BP;                       /* 计算屏幕显示列坐标 y */
  if(xx-x<0) x=xx;       /* 如 xx-x 小于屏幕行坐标,行坐标取内存数组当前行号 */
}

mvto(long a)                       /* 移到指定行 a */
{
  yy=tyy;                          /* 恢复原列号 */
  if(a<=xx)  upto(a);              /* 如目标行在当前行或之前,前移至目标行 */
  else  dnto(a);                   /* 如目标行在当前行后,后移至目标行 */
}

F1(int a)                          /* 文本存盘,a=1 退出,a=0 不退出 */
{
  unsigned int i,j;
  long b;
  if(chg) {                        /* 如文件已修改过 */
    write_prompt(0);               /* 提示“请稍候...” */
    if(!findfirst(bfile,pt,0))     /* 如有后备文件 */
      remove(bfile);               /* 删除原后备文件 */
    if(old) {                      /* 如原有老文件 */
      b=ftell(fp);                 /* 测出老文件当前读写指针位置 */
      fclose(fp);                  /* 关闭老文件 */
      rename(mfile,bfile);         /* 改为带扩展名 BAK 的后备文件 */
    }
    fp3=fopen(bfile,"rb");         /* 打开后备文件,文件指针赋于 fp3 */
    fp=fopen(mfile,"wb+");         /* 重建正文文件,文件指针仍放 fp 中 */
    ddd=malloc(KK);                /* 为 ddd 分配内存 */
    i=0;                           /* i 置初值 0 */
    while(i<oa)  {                 /* fp1 中记录并入 fp */
      fseek(fp1,wra[i++],SEEK_SET);/* fp1 指针移到读写起始处 */
      j=wra[i]-wra[i-1];           /* 计算读入字节数 */
      fread(ddd,sizeof(char),j,fp1);  /* 从 fp1 读入 j 字节至 ddd */
      fwrite(ddd,sizeof(char),j,fp);  /* 将 ddd 中内容写入 fp */
    }
    write_to(0,ss_max+1,fp);       /* 缓冲区数组的记录写入 fp */
    write_prompt(0);               /* 提示“请稍候...” */
    i=ob;                          /* ob 为 fp2 中最后一次读写指针数组序号 */
    while(i)  {                    /* fp2 中记录并入 fp */
      fseek(fp2,wrb[--i],SEEK_SET);/* fp2 指针移到前一读写起始处 */
      j=wrb[i+1]-wrb[i];           /* 计算读入字节数 */
      fread(ddd,sizeof(char),j,fp2);   /* 从 fp2 读入 j 字节至 ddd */
      if(*(ddd+j)==0)  j-=1;           /* 消除 wfp2() 读入文末部分时加的 ''\0'' */
      fwrite(ddd,sizeof(char),j,fp);   /* 将 ddd 中内容写入 fp */
    }
    vw=ftell(fp);                  /* 保存 fp 指针位置 */
    if(!fp_end) {                  /* 如原文件未全部读完,剩余部分拷入 fp */
      fseek(fp3,b,SEEK_SET);       /* 移至原老文件当前读写位置 */
      for(;;)  {
        j=fread(ddd,sizeof(char),KK,fp3);  /* 每次从 fp3 读入 KK 字节到 ddd */
        fwrite(ddd,sizeof(char),j,fp);     /* 将 ddd 中内容写入 fp */
        if(j<KK)  break;           /* 如读出字节数不足 KK,文件已读完,退出 */
      }
    }
    else   fputc(0x1A,fp);         /* 否则加文件结束标志 */
    fclose(fp3);                   /* 关闭 fp3 */
    fclose(fp);                    /* 关闭 fp */
    free(ddd);                     /* 释放 ddd 占用的内存空间 */
  }
  if(a)  bk();                     /* 如 a 为真,退出运行 */
}

Shift_F1()                         /* 存盘,不退出编辑 */
{
  int i,j;
  if(chg) {                        /* 如果文件已修改过 */
    F1(0);                         /* 存盘 */
    old=1;                         /* 有老文件标志置 1 */
    fp=fopen(mfile,"rb");          /* 重新打开正文文件 */
    fseek(fp,vw,SEEK_SET);         /* fp 读写指针复原 */
  }
  clear_prompt();                  /* 清提示区 */
  chg=0;                           /* 文件已修改标志置 0 */
}

F2()                                  /* 移动当前行至指定行 */
{
  long i;
  write_ques(6);                      /* 提问要移到的行号 */
  if((i=key_digit(19))<=0) {          /* 输入行号,如为空串或按 ESC 键 */
    clear_ques();                     /* 清提问区 */
    return;                           /* 退出本功能 */
  }
  i--;                                /* 输入行号转换为数组行号 */
  if(fp_end && i>ttl_x)  i=ttl_x;
                           /* 如 fp 已读完,目标行大于文末行号,移到文末行 */
  tyy=yy;                             /* 保存列号 */
  mvto(i);                            /* 移到目标行 */
  comp_disp();                        /* 重显一屏 */
  clear_ques();                       /* 清提问区 */
}

F3()                                  /* 输入排版行宽 */
{
  int i;
  write_ques(4);                      /* 提问排版行宽 */
  if((i=key_digit(16))<=0) {          /* 在提问行输入行宽,如为空串或按 ESC 键 */
    clear_ques();                     /* 清提问区 */
    return;                           /* 退出本功能 */
  }
  enq=i;                              /* 行宽值赋给全局变量 enq */
  if(enq>HC-4)  {                     /* 行宽值如超过允许字节数 */
    enq=HC-4;                         /* 取最大允许字节数为排版行宽 */
    itoa(enq,hsz,10);                 /* 变数值为字符串 */
    write_prompt(7);                  /* 提示:排版超宽 */
    write_space(HH,16,30,PROM_COLOR); /* 清输入区 */
    write_string(HH,16,hsz,PROM_COLOR);  /* 重显行宽 */
  }
}

F4()                                  /* 排版至段末 */
{
  if(enq<HC-4) {                      /* 如已设置排版宽度 */
    chg=1;                            /* 文件已修改标志置为真 */
    reform();                         /* 排版至段末 */
    comp_disp();                      /* 计算参数并重显一页 */
  }
  else  write_prompt(8);              /* 否则,提示:未设置排版宽度 */
}

Shift_F4()                            /* 连续排版至文末 */
{
  if(enq<HC-4) {                      /* 如已设置排版宽度 */
    chg=1;                            /* 文件已修改标志置为真 */
    while(reform());                  /* 从当前光标行排版至文末 */
    comp_disp();                      /* 计算参数并重显一页 */
  }
  else  write_prompt(8);              /* 否则,提示:未设置排版宽度 */
}

int reform()                          /* 从当前位置排版至本段末 */
{
  int k,g;
  write_prompt(0);                    /* 提示“请稍候...” */
  for(;;)  {                          /* 为段排版设置的循环 */
    g=string_lingth();                /* 计算字符串长(不包括回车换行符) */
    if(g>enq) {                       /* 如串尾在排版宽后 */
      if(vs(enq-1)==0)  {             /* 如排版宽度处不为全角字符前半字 */
        if(ss[ss_x][enq]<0xA0) {      /* 如排版宽度后一字节为半角字符 */
          if(punc1(ss[ss_x][enq]))    /* 如为指定半角标点 */
            k=enq+1;                  /* 折断处后移 1 字节 */
          else k=enq;                 /* 否则原处折断 */
        }
        else  {                       /* 如排版宽度处字符为全角 */
          if(punc2(ss[ss_x][enq],ss[ss_x][enq+1]))   /* 如为指定全角标点 */
            k=enq+2;                  /* 折断处后移 2 字节 */
          else  k=enq;                /* 否则原处折断 */
        }
      }
      else  {                         /* 如排版宽度处为全角字符前半字 */
        if(punc2(ss[ss_x][enq-1],ss[ss_x][enq]))    /* 如为指定的全角标点 */
          k=enq+1;                    /* 折断处后移一字节 */
        else k=enq-1;                 /* 否则, 折断处前移一字节 */
      }
      ser+=k-yy;                      /* 计算字序数 */
      if(ss[ss_x][k]!=0x0D) {         /* 如折断处不在段末 */
        intercept(k);                 /* 在 k 处折断行 */
        strcpy(ss[ss_x-1]+k,ra);      /* 折断处加软回车 */
      }
      else {                          /* 如折断处已到串尾 */
        xx++;   ss_x++;               /* 到下一行 */
        ser+=2;                       /* 计算字序数 */
        yy=0;                         /* 到行首 */
        break;                        /* 退出循环 */
      }
      yy=0;                           /* 到行首 */
    }
    else  {                           /* 如串尾在排版宽前 */
      if(xx<ttl_x) {                  /* 如未到文末 */
        ser+=g-yy+2;                  /* 计算字序数 */
        ss_x++;   xx++;               /* 到下行 */
        yy=0;   y=0;                  /* 到行首 */
        if(ss_x>ss_max)  tj();        /* 如超出缓冲区数组,读入一部分 */
        if(ss[ss_x-1][g]==0x8D) {     /* 如上行末为软回车 */
          if(delc()==-1)   return 0;  /* 本行接至上行末,行超长返回 */
        }
        else  break;                  /* 否则退出 */
      }
      else {                          /* 如已到文末行 */
        clear_prompt();               /* 清提示区 */
        return 0;                     /* 返回 0 */
      }
    }
  }
  clear_prompt();                     /* 清提示区 */
  return 1;                           /* 返回 1 */
}

F5()                                 /* 搜索字符串 */
{
  write_ques(5);                     /* 提问要找的字符串 */
  *fnd=0;                            /* fnd 清为空串 */
  if(key_string(HH,19,fnd,PROM_COLOR)<=0)  {
                                     /* 输入字符串,如为空串或按 ESC 键 */
    clear_ques();                    /* 清提问区 */
    return;                          /* 退出本功能 */
  }
  Shift_F5();                        /* 进行搜索 */
}

Shift_F5()                           /* 进行搜索 */
{
  if(*fnd)  {                        /* 如搜索字符串不为空串 */
    if(find(fnd)) *fnd=0;            /* 搜索,如到文末,字符串 fnd 清为空串 */
    comp_disp();                     /* 计算参数并重显一屏 */
  }
}

int find(char *a)                    /* 寻找字符串 */
{
  int i,j,b;
  j=strlen(a);                       /* 计算要找的字符串长 */
  while(xx<=ttl_x)  {                /* 在总行数范围内找 */
    if(ss_x+H3-x>=ss_max) tj();      /* 本屏最下行如超出缓冲区最大行,数组
                                       上部存 Q3 行到 fp1,下部读入 Q3 行 */
    b=string_lingth();               /* 计算本行除行末回车换行符外的字符数 */
    for(i=0;i<j;i++)  {              /* 对比 j 个字符 */
      if(b-yy+1<j)  {                /* 如本串剩下已不足要找的串长 */
        if(xx<ttl_x)  {              /* 如未到文末行 */
          ss_x++;    xx++;           /* 下移一行 */
          ser+=b-yy+2;               /* 计算字序数 */
          yy=0;                      /* 至行首 */
          break;                     /* 退出 for 循环 */
        }
        else  {                      /* 如到文末行 */
          ser+=b-yy;                 /* 计算字序数 */
          yy=b;                      /* 至行末列 */
          clear_ques();              /* 清提问区 */
          return  1;                 /* 返回 1 */
        }
      }
      if(ss[ss_x][yy+i]!=*(a+i)) {   /* 如有一个字符对不上 */
        yy++;   ser++;               /* 后移一字符 */
        i=-1;                    /* i 加步长进入循环后变为初值 1,重新对比 */
      }
      else if(i==j-1)  {             /* 如 j 个字符都对上 */
             if(!vs(yy+j-1)) {       /* 如找到的串尾不在前半个汉字 */
               yy+=j;                /* 当前位置移至对上的最后一字符后 */
               ser+=j;               /* 计算字序数 */
               return  0;            /* 返回 0 */
             }
             else {                  /* 否则后移一字节 */
               yy++;  ser++;
               i=-1;             /* i 加步长进入循环后变为初值 1,重新对比 */
             }
           }
    }
  }
}

F6()                                 /* 字符串替代 */
{
  int i,j,g,k;
  write_ques(7);                     /* 提问搜索和替代的字符串 */
  if(key_string(HH,6,hsz,PROM_COLOR)<=0)  {
                                     /* 输入要找的字符串,如为空串或按 ESC 键 */
    clear_ques();                    /* 清提问区 */
    return;                          /* 退出本功能 */
  }
  ddd=malloc(HC);                    /* 给 ddd 分配内存 */
  dd=ddd;                            /* 保存 ddd 的首指针 */
  if(key_string(HH,32,ddd,PROM_COLOR)<=0)  {
                                     /* 输入替代的字符串,如为空串或按 ESC 键 */
    free(ddd);                       /* 释放 ddd 占用的内存空间 */
    clear_ques();                    /* 清提问区 */
    return;                          /* 退出本功能 */
  }
  g=strlen(hsz);                     /* 计算搜索的字符串长 */
  k=strlen(ddd);                     /* 计算替代的字符串长 */
  while(1)  {                        /* 为连续找设的循环 */
    if(find(hsz)) {                  /* 如到文末 */
      comp_disp();                   /* 计算参数,显示一屏 */
      break;                         /* 退出本功能 */
    }
    xh();                            /* 在 H1 行重显当前行、列、序号 */
    comp_disp();                     /* 计算参数,显示一屏 */
    if((j=key_yn(59))==-1) {         /* 回答是否替换,如按 ESC */
      clear_ques();                  /* 清提问区 */
      break;                         /* 退出本功能 */
    }
    if(j) {                          /* 如按 Y,进行替换操作 */
      chg=1;                         /* 文件已修改标志置为真 */
      i=yy-g;                        /* 删除原字符串后光标处列号 */
      while(yy>i)  delc();           /* 删除原字符串 */
      if(xx==ksx && yy<ksy) ksy+=k;  /* 计算字块坐标变化 */
      if(xx==kwx && yy<kwy) kwy+=k;
      write_block(xx);               /* ddd 中字符串拷入 */
      ddd=dd;                        /* ddd 返回指针头 */
    }
  }
  free(ddd);                         /* 释放 ddd 占用的内存空间 */
}

F7()                                 /* 定义块首行、列号 */
{
  ksx=xx;                            /* 块首标志行号等于当前光标行号 */
  ksy=yy;                            /* 块首标志列号等于当前光标列号 */
  if(blck==0) {                      /* 如尚未定义块 */
    blck=1;                          /* 块标志置 1 */
    kwx=ksx;                         /* 块尾标志同块首重合 */
    kwy=ksy;
    disp(ss_x,x);                    /* 重显当前行 */
    return;                          /* 返回 */
  }
  if(kwx<ksx||(kwx==ksx && kwy<=ksy)) { /* 如当前光标在原块尾后 */
    kwx=ksx;                         /* 块尾行号移至块首行 */
    kwy=ksy;                         /* 块尾列号移至块首列 */
    blck=1;                          /* 块标志置 1 */
  }
  else blck=2;                       /* 块标志置 2 */
  disp_t();                          /* 重显一屏 */
}

Shift_F7()                           /* 清除块定义 */
{
  blck=0;                            /* 块标志置 0 */
  ksx=kwx=-1;                        /* 块标行号置初值 */
  ksy=kwy=-1;                        /* 块标列号置初值 */
  comp_disp();                       /* 重显一屏 */
}


相关专题: 我的著作
专题信息:
  C语言速成(第三章 程序控制语句)(2006-1-1 13:51:28)[9418]
  C语言速成(第七章 联合、枚举和自定义数据类型)(2006-1-1 13:51:46)[10048]
  C语言速成(第六章 结构)(2006-1-1 13:52:05)[8827]
  C语言速成(第五章 指针)(2006-1-1 17:28:54)[4568]
  C语言速成(第四章 数组)(2006-1-1 13:52:42)[4712]

相关信息:
 没有相关信息
  打印本页
设为首页 | 加入收藏 | 联系我们 | 管理入口
皖ICP备05018956号
Copyright © 2003 J.W.SHEN All Rights Reserved
后台管理系统 V1.0 制作