2　文本阅览器（harib27b）

“纸娃娃系统”中已经有了type.hrb，可以显示出文本文件的内容。不过由于屏幕滚动的速度太快，而且没有办法往回滚动，用起来挺不方便的，而且命令行窗口也太小了。

于是，我们来做一个用来查看文本文件内容的文本阅览器吧。

首先来看程序……话说每次都一上来就先拿一大段程序出来好像挺无聊的，从现在起就先给大家展示一下完成后的运行画面好了。如果事先知道要做出来的程序是什么样，再去看程序的话应该会更容易理解吧。

输入“tview ipl20.nas –w100 –h30”，运行结果如下图。

2　文本阅览器（harib27b） - 图1

咚！显示出来了

用光标键可以上下左右进行滚动，在QEMU中可能速度不是很快，这是由于模拟器性能不佳造成的，在真机环境下速度还是相当快的哦。

滚动的速度也是可以调节的。按“b”可以将纵向滚动的速度设为每次2行，“c”则每次4行，“d”则每次8行。以此类推，可以一直用到“f”，按“a”则恢复为初始状态，每次滚动1行。同样地，用“A”～“F”可以改变横向滚动的速度。

关于启动时的命令行选项，-w和-h代表窗口的大小。-w表示打开一个宽度为100个半角字符的窗口，最大可以指定为126。-h表示行数，最大可以指定为45。如果不指定-w和-h，则默认为-w30、-h10。

此外，用-t选项可以指定制表符的大小，省略的话则按照笔者的习惯默认为-t4。制表符的大小在程序启动后也可以通过“<”和“>”键来进行调节。

按“q”或者“Q”可以退出程序。其实这个键倒没那么重要。即便忘记了，点击“×”按钮或者按Shift+F1强制结束也没什么问题。

■■■■■

下面我们来看程序吧。

tview.c

  1. #include "apilib.h"
  3. #include <stdio.h>
  5. int strtol(char *s, char **endp, int base); /*标准函数(stdlib.h) */
  7. char *skipspace(char *p);
  8. void textview(int win, int w, int h, int xskip, char *p, int tab, int lang);
  9. char *lineview(int win, int w, int y, int xskip, unsigned char *p, int tab, int lang);
  10. int puttab(int x, int w, int xskip, char *s, int tab);
  12. void HariMain(void)
  13. {
  14.     char winbuf[1024 * 757], txtbuf[240 * 1024];
  15.     int w = 30, h = 10, t = 4, spd_x = 1, spd_y = 1;
  16.     int win, i, j, lang = api_getlang(), xskip = 0;
  17.     char s[30], *p, *q = 0, *r = 0;
  19.     /*命令行解析*/
  20.     api_cmdline(s, 30);
  21.     for (p = s; *p > ' '; p++) { }  /*一直读到空格为止*/
  22.     for (; *p != 0; ) {
  23.         p = skipspace(p);
  24.         if (*p == '-') {
  25.             if (p[1] == 'w') {
  26.                 w = strtol(p + 2, &p, 0);
  27.                 if (w < 20) {
  28.                     w = 20;
  29.                 }
  30.                 if (w > 126) {
  31.                     w = 126;
  32.                 }
  33.             } else if (p[1] == 'h') {
  34.                 h = strtol(p + 2, &p, 0);
  35.                 if (h < 1) {
  36.                     h = 1;
  37.                 }
  38.                 if (h > 45) {
  39.                     h = 45;
  40.                 }
  41.             } else if (p[1] == 't') {
  42.                 t = strtol(p + 2, &p, 0);
  43.                 if (t < 1) {
  44.                     t = 4;
  45.                 }
  46.             } else {
  47. err:
  49.                 api_putstr0(" >tview file [-w30 -h10 -t4]\n");
  50.                 api_end();
  51.             }
  52.         } else {    /*找到文件名*/
  53.             if (q != 0) {
  54.                 goto err;
  55.             }
  56.             q = p;
  57.             for (; *p > ' '; p++) { }   /*一直读到空格为止*/
  58.             r = p;
  59.         }
  60.     }
  61.     if (q == 0) {
  62.         goto err;
  63.     }
  65.     /*准备窗口*/
  66.     win = api_openwin(winbuf, w * 8 + 16, h * 16 + 37, -1, "tview");
  67.     api_boxfilwin(win, 6, 27, w * 8 + 9, h * 16 + 30, 7);
  69.     /*载入文件*/
  70.     *r = 0;
  71.     i = api_fopen(q);
  72.     if (i == 0) {
  73.         api_putstr0("file open error.\n");
  74.         api_end();
  75.     }
  76.     j = api_fsize(i, 0);
  77.     if (j >= 240 * 1024 - 1) {
  78.         j = 240 * 1024 - 2;
  79.     }
  80.     txtbuf[0] = 0x0a; /*卫兵用的换行代码*/
  81.     api_fread(txtbuf + 1, j, i);
  82.     api_fclose(i);
  83.     txtbuf[j + 1] = 0;
  84.     q = txtbuf + 1;
  85.     for (p = txtbuf + 1; *p != 0; p++) {    /*为了让处理变得简单，删掉0x0d的代码*/
  86.         if (*p != 0x0d) {
  87.             *q = *p;
  88.             q++;
  89.         }
  90.     }
  91.     *q = 0;
  93.     /*主体*/
  94.     p = txtbuf + 1;
  95.     for (;;) {
  96.         textview(win, w, h, xskip, p, t, lang);
  97.         i = api_getkey(1);
  98.         if (i == 'Q' || i == 'q') {
  99.             api_end();
  100.         }
  101.         if ('A' <= i && i <= 'F') {
  102.             spd_x = 1 << (i - 'A'); /* 1, 2, 4, 8, 16, 32 */
  103.         }
  104.         if ('a' <= i && i <= 'f') {
  105.             spd_y = 1 << (i - 'a'); /* 1, 2, 4, 8, 16, 32 */
  106.         }
  107.         if (i == '<' && t > 1) {
  108.             t /= 2;
  109.         }
  110.         if (i == '>' && t < 256) {
  111.             t *= 2;
  112.         }
  113.         if (i == '4') {
  115.             for (;;) {
  116.                 xskip -= spd_x;
  117.                 if (xskip < 0) {
  118.                     xskip = 0;
  119.                 }
  120.                 if (api_getkey(0) != '4') { /*如果没有按下“4”则处理结束*/
  121.                     break;
  122.                 }
  123.             }
  124.         }
  125.         if (i == '6') {
  126.             for (;;) {
  127.                 xskip += spd_x;
  128.                 if (api_getkey(0) != '6') {
  129.                     break;
  130.                 }
  131.             }
  132.         }
  133.         if (i == '8') {
  134.             for (;;) {
  135.                 for (j = 0; j < spd_y; j++) {
  136.                     if (p == txtbuf + 1) {
  137.                         break;
  138.                     }
  139.                     for (p--; p[-1] != 0x0a; p--) { } /*回溯到上一个字符为0x0a为止*/
  140.                 }
  141.                 if (api_getkey(0) != '8') {
  142.                     break;
  143.                 }
  144.             }
  145.         }
  146.         if (i == '2') {
  147.             for (;;) {
  148.                 for (j = 0; j < spd_y; j++) {
  149.                     for (q = p; *q != 0 && *q != 0x0a; q++) { }
  150.                     if (*q == 0) {
  151.                         break;
  152.                     }
  153.                     p = q + 1;
  154.                 }
  155.                 if (api_getkey(0) != '2') {
  156.                     break;
  157.                 }
  158.             }
  159.         }
  160.     }
  161. }
  163. char *skipspace(char *p)
  164. {
  165.     for (; *p == ' '; p++) { }  /*跳过空格*/
  166.     return p;
  167. }
  169. void textview(int win, int w, int h, int xskip, char *p, int tab, int lang)
  170. {
  171.     int i;
  172.     api_boxfilwin(win + 1, 8, 29, w * 8 + 7, h * 16 + 28, 7);
  173.     for (i = 0; i < h; i++) {
  174.         p = lineview(win, w, i * 16 + 29, xskip, p, tab, lang);
  175.     }
  176.     api_refreshwin(win, 8, 29, w * 8 + 8, h * 16 + 29);
  177.     return;
  178. }
  180. char *lineview(int win, int w, int y, int xskip, unsigned char *p, int tab, int lang)
  181. {
  182.     int x = - xskip;
  183.     char s[130];
  184.     for (;;) {
  185.         if (*p == 0) {
  186.             break;
  187.         }
  188.         if (*p == 0x0a) {
  189.             p++;
  190.             break;
  191.         }
  192.         if (lang == 0) {    /* ASCII */
  193.             if (*p == 0x09) {
  194.                 x = puttab(x, w, xskip, s, tab);
  195.             } else {
  196.                 if (0 <= x && x < w) {
  197.                     s[x] = *p;
  198.                 }
  199.                 x++;
  200.             }
  201.             p++;
  202.         }
  203.         if (lang == 1) {    /* SJIS */
  204.             if (*p == 0x09) {
  205.                 x = puttab(x, w, xskip, s, tab);
  206.                 p++;
  207.             } else if ((0x81 <= *p && *p <= 0x9f) || (0xe0 <= *p && *p <= 0xfc)) {
  208.                 /*全角字符*/
  209.                 if (x == -1) {
  210.                     s[0] = ' ';
  211.                 }
  212.                 if (0 <= x && x < w - 1) {
  213.                     s[x]     = *p;
  214.                     s[x + 1] = p[1];
  215.                 }
  216.                 if (x == w - 1) {
  217.                     s[x] = ' ';
  218.                 } 
  219.                 x += 2;
  220.                 p += 2;
  221.             } else {
  222.                 if (0 <= x && x < w) {
  223.                     s[x] = *p;
  224.                 }
  225.                 x++;
  226.                 p++;
  227.             }
  228.         }
  229.         if (lang == 2) {    /* EUC */
  230.             if (*p == 0x09) {
  231.                 x = puttab(x, w, xskip, s, tab);
  232.                 p++;
  233.             } else if (0xa1 <= *p && *p <= 0xfe) {
  234.                 /*全角字符*/
  235.                 if (x == -1) {
  236.                     s[0] = ' ';
  237.                 }
  238.                 if (0 <= x && x < w - 1) {
  239.                     s[x]     = *p;
  240.                     s[x + 1] = p[1];
  241.                 }
  242.                 if (x == w - 1) {
  243.                     s[x] = ' ';
  244.                 } 
  246.                 x += 2;
  247.                 p += 2;
  248.             } else {
  249.                 if (0 <= x && x < w) {
  250.                     s[x] = *p;
  251.                 }
  252.                 x++;
  253.                 p++;
  254.             }
  255.         }
  256.     }
  257.     if (x > w) {
  258.         x = w;
  259.     }
  260.     if (x > 0) {
  261.         s[x] = 0;
  262.         api_putstrwin(win + 1, 8, y, 0, x, s);
  263.     }
  264.     return p;
  265. }
  267. int puttab(int x, int w, int xskip, char *s, int tab)
  268. {
  269.     for (;;) {
  270.         if (0 <= x && x < w) {
  271.             s[x] = ' ';
  272.         }
  273.         x++;
  274.         if ((x + xskip) % tab == 0) {
  275.             break;
  276.         }
  277.     }
  278.     return x;
  279. }

程序基本上没有什么难点（虽然看上去很长），只要慢慢读应该能看懂。和calc.hrb一样，即便看不懂也问题不大。

在屏幕滚动的处理上用了api_getkey(0)，这是为了在QEMU上运行时可以尽量减少延迟。当同一个键被连续按下时，程序会将按键数据全部读取之后，再计算出总的移动量，然后再进行显示。

这个tview.hrb只有1753字节，跟calc.hrb大小差不多。嗯，也是短小精悍的。这么小的应用程序可以拥有如此不错的功能，我们的“纸娃娃系统”还真是挺强大的系统呢。

有人可能会说，既然都做到这一步了，还不如干脆做成文本编辑器呢。其实笔者也是这么想的，只不过现在的“纸娃娃系统”中还没有用于写入文件的API，即便做了文本编辑器也无法保存，感觉没有什么意义。看来“纸娃娃系统”还不太给力啊（笑）。