tests/general/transmit.icn


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

global words, lines, writer

procedure main()
   if not(&features == "co-expressions") then
      stop("co-expressions not supported")
   &trace := -1

   words := create word()
   lines := create reader()
   writer := create output()
   @writer
end

procedure word()
   static letters
   initial letters := &lcase ++ &ucase
   while line := @lines do
      line ? while tab(upto(letters)) do
         tab(many(letters)) @ writer
end

procedure reader()
   while read() @ words
end

procedure output()
   while write(&errout,@words)
   @&main
end