diff options
Diffstat (limited to 'ipl/gpacks/weaving/plugger.icn')
| -rw-r--r-- | ipl/gpacks/weaving/plugger.icn | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/ipl/gpacks/weaving/plugger.icn b/ipl/gpacks/weaving/plugger.icn new file mode 100644 index 0000000..8f20fec --- /dev/null +++ b/ipl/gpacks/weaving/plugger.icn @@ -0,0 +1,45 @@ +############################################################################ +# +# File: plugger.icn +# +# Subject: Program to plug holes in body include file +# +# Author: Ralph E. Griswold +# +# Date: November 17, 1998 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# AD HOC. +# +############################################################################ + +$define LINK "\"GIF/bgener/bgener002.gif\"" +$define THUMB "\"Blocks/ad_hoc1_thumb.gif\"" + +procedure main() + + write("body := [") + + while line := read() do { + if find(LINK, line) then { + line ? { + write(image(tab(find(LINK))), ",") + move(*LINK) + write(",") + write(image(tab(find(THUMB))), ",") + move(*THUMB) + write(",") + write(image(tab(0)), ",") + } + } + else write(image(line), ",") + } + + write("]") + +end |