VERIFY.C
上传用户:xiantiandi
上传日期:2007-01-06
资源大小:21k
文件大小:1k
源码类别:

编辑器/阅读器

开发平台:

DOS

  1. #include <ctype.h>
  2. #include <stdio.h>
  3. #include <string.h>
  4. verify()
  5. {
  6. #include "teco.h"
  7. int tmp; /* First  scratch */
  8. int wrk; /* Second scratch */
  9. number=abs(number); /* Take magnitude */
  10. tmp=bufptx; /* Save temporary */
  11. wrk=number; /* Save   counter */
  12. while (1) { /* Position back  */
  13. if (!tmp) goto type; /* Scan back line */
  14. if (toascii(buffer[--tmp]) == 13) {
  15. if (! --wrk) {
  16. if (toascii(buffer[tmp+1]) == 10){
  17. tmp++;
  18. }
  19. goto type;
  20. }
  21. }
  22. }
  23. type: wrk=bufptx; /* Save  context  */
  24. while (1) { /* Position front */
  25. if (wrk > bufptr) { /* Type out stuff */
  26. while (++tmp < wrk) {
  27. echo(buffer[tmp]);
  28. }
  29. return; /* all done  type */
  30. }
  31. if (toascii(buffer[++wrk]) == 13) {
  32. if (toascii(buffer[tmp]) == 10) ++wrk;
  33. if (! --number) {
  34. while (tmp++ < wrk) {
  35. echo(buffer[tmp]);
  36. }
  37. return;
  38. }
  39. }
  40. }
  41. }