Category : Files from Magazines
Archive   : BYTE0389.ZIP
Filename : BRIEF.LST
#define bufTag "bufTag"
#define patFunction "<[a-zA-Z0-9_][a-zA-Z0-9 _\*]+(*)>"
#define patDefine "<#define"
(macro tag
(
(int bufCur bufT)
(global bufCur bufT)
(= bufCur (inq_buffer))
(= bufT (create_buffer bufTag NULL 0))
(top_of_buffer)
(while (> (tag_find_df) 0)
(tag_clip_line)
)
(top_of_buffer)
(while (> (tag_find_fn) 0)
(tag_clip_line)
)
(set_buffer bufT)
(attach_buffer bufT)
(top_of_buffer)
)
)
(macro tag_find_df
(
(return (search_fwd patDefine))
)
)
(macro tag_find_fn
(
(return (search_fwd patFunction))
)
)
(macro tag_clip_line
(
(string line)
(= line (read))
(set_buffer bufT)
(insert line)
(set_buffer bufCur)
(move_rel 1 0)
)
)
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/