1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
;;; /changes
;; Using sed would be very fast, but not portable.
;; This version is a bit more complex, but portable and reasonably fast.
/def -i changes = \
/let _ver=%{*-$(/ver)}%; \
/let _pat=%{_ver} *%; \
/let _name=%TFLIBDIR/CHANGES%; \
/let _fd=$[tfopen(_name, "r")]%; \
/let _line=%; \
/while (1) \
/while (1) \
/if (tfread(_fd, _line) < 0) /break 2%; /endif%; \
/if (_line =~ _ver | _line =/ _pat) /break 1%; /endif%; \
/done%; \
/test echo(_line)%; \
/while (1) \
/if (tfread(_fd, _line) < 0) /break 2%; /endif%; \
/test echo(_line)%; \
/if (_line =~ "") /break 1%; /endif%; \
/done%; \
/done%; \
/test tfclose(_fd)
|
