BSD 4_3 development

Work on file usr/contrib/icon/book/04/icwrite.icn
Work on file usr/contrib/icon/book/04/balop.icn
Work on file usr/contrib/icon/book/04/section.icn
Work on file usr/contrib/icon/book/04/inset2.icn
Work on file usr/contrib/icon/book/04/word1.icn
Work on file usr/contrib/icon/book/04/vbars.icn
Work on file usr/contrib/icon/book/04/inset1.icn
Work on file usr/contrib/icon/book/04/lmark.icn
Work on file usr/contrib/icon/book/04/minmax1.icn
Work on file usr/contrib/icon/book/04/minmax2.icn
Work on file usr/contrib/icon/book/04/powers.icn
Work on file usr/contrib/icon/book/04/word2.icn
Work on file usr/contrib/icon/book/04/wordlist1.icn
Work on file usr/contrib/icon/book/04/words1.icn

Synthesized-from: CSRG/cd1/4.3

diff --git a/usr/contrib/icon/book/04/balop.icn b/usr/contrib/icon/book/04/balop.icn
new file mode 100644 (file)
index 0000000..df114b6
--- /dev/null
+++ b/usr/contrib/icon/book/04/balop.icn
@@ -0,0 +1,6 @@
+procedure main()
+   while line := read() do {
+      write(line)
+      write(repl(" ",bal('+-*/',,,line) - 1),"|")
+      }
+end

diff --git a/usr/contrib/icon/book/04/icwrite.icn b/usr/contrib/icon/book/04/icwrite.icn
new file mode 100644 (file)
index 0000000..9c8bbba
--- /dev/null
+++ b/usr/contrib/icon/book/04/icwrite.icn
@@ -0,0 +1,5 @@
+procedure icwrite(c)
+   while line := read() do
+      if any(c,line) then write(line)
+   return
+end

diff --git a/usr/contrib/icon/book/04/inset1.icn b/usr/contrib/icon/book/04/inset1.icn
new file mode 100644 (file)
index 0000000..a5180fd
--- /dev/null
+++ b/usr/contrib/icon/book/04/inset1.icn
@@ -0,0 +1,6 @@
+procedure inset()
+   chars := ''
+   while line := read() do
+      chars := chars ++ line
+   return chars
+end

diff --git a/usr/contrib/icon/book/04/inset2.icn b/usr/contrib/icon/book/04/inset2.icn
new file mode 100644 (file)
index 0000000..92b0386
--- /dev/null
+++ b/usr/contrib/icon/book/04/inset2.icn
@@ -0,0 +1,5 @@
+procedure inset()
+   chars := ''
+   while chars ++:= read()
+   return chars
+end

diff --git a/usr/contrib/icon/book/04/lmark.icn b/usr/contrib/icon/book/04/lmark.icn
new file mode 100644 (file)
index 0000000..ec66a84
--- /dev/null
+++ b/usr/contrib/icon/book/04/lmark.icn
@@ -0,0 +1,7 @@
+procedure lmark(s)
+   while line := read() do {
+      write(line)
+      write(repl(" ",find(s,line) - 1),"|")
+      }
+   return
+end

diff --git a/usr/contrib/icon/book/04/minmax1.icn b/usr/contrib/icon/book/04/minmax1.icn
new file mode 100644 (file)
index 0000000..e5f895d
--- /dev/null
+++ b/usr/contrib/icon/book/04/minmax1.icn
@@ -0,0 +1,8 @@
+procedure main()
+   min := max := read()        # initial min and max
+   while line := read() do
+      if line >> max then max := line
+      else if line << min then min := line
+   write("lexically largest line is: ",max)
+   write("lexically smallest line is: ",min)
+end

diff --git a/usr/contrib/icon/book/04/minmax2.icn b/usr/contrib/icon/book/04/minmax2.icn
new file mode 100644 (file)
index 0000000..0c99484
--- /dev/null
+++ b/usr/contrib/icon/book/04/minmax2.icn
@@ -0,0 +1,8 @@
+procedure main()
+   min := max := read()        # initial min and max
+   while line := read() do
+      if max <<:= line then next
+      else min >>:= line
+   write("lexically largest line is: ",max)
+   write("lexically smallest line is: ",min)
+end

diff --git a/usr/contrib/icon/book/04/powers.icn b/usr/contrib/icon/book/04/powers.icn
new file mode 100644 (file)
index 0000000..241f830
--- /dev/null
+++ b/usr/contrib/icon/book/04/powers.icn
@@ -0,0 +1,8 @@
+procedure main()
+   i := 0
+   while i < 10 do {
+      i +:= 1
+      write(right(i,5),right(i ^ 2,8),right(i ^ 3,8),
+         right(i ^ 4,8))
+      }
+end

diff --git a/usr/contrib/icon/book/04/section.icn b/usr/contrib/icon/book/04/section.icn
new file mode 100644 (file)
index 0000000..828b681
--- /dev/null
+++ b/usr/contrib/icon/book/04/section.icn
@@ -0,0 +1,6 @@
+procedure main()
+   while line := read() do {
+      line := line[1:61]       # truncate
+      write(line)
+      }
+end

diff --git a/usr/contrib/icon/book/04/vbars.icn b/usr/contrib/icon/book/04/vbars.icn
new file mode 100644 (file)
index 0000000..ccd094b
--- /dev/null
+++ b/usr/contrib/icon/book/04/vbars.icn
@@ -0,0 +1,8 @@
+procedure main()
+   s2 := &cset || "AEIOUaeiou"
+   s3 := repl(" ",*&cset) || "||||||||||"
+   while line := read() do {
+      write(line)
+      write(map(line,s2,s3))
+      }
+end

diff --git a/usr/contrib/icon/book/04/word1.icn b/usr/contrib/icon/book/04/word1.icn
new file mode 100644 (file)
index 0000000..5a1d3df
--- /dev/null
+++ b/usr/contrib/icon/book/04/word1.icn
@@ -0,0 +1,8 @@
+procedure main()
+   wchar := &lcase ++ &ucase
+   pchar := '.,:;?! '
+   while line := read() do
+                               # get to first letter
+      if line := line[upto(wchar,line):0]
+      then write(line[1:upto(pchar,line)])
+end

diff --git a/usr/contrib/icon/book/04/word2.icn b/usr/contrib/icon/book/04/word2.icn
new file mode 100644 (file)
index 0000000..8edf147
--- /dev/null
+++ b/usr/contrib/icon/book/04/word2.icn
@@ -0,0 +1,6 @@
+procedure main()
+   wchar := &lcase ++ &ucase
+   while line := read() do
+      if line := line[upto(wchar,line):0]
+      then write(line[1:many(wchar,line)])
+end

diff --git a/usr/contrib/icon/book/04/wordlist1.icn b/usr/contrib/icon/book/04/wordlist1.icn
new file mode 100644 (file)
index 0000000..425e926
--- /dev/null
+++ b/usr/contrib/icon/book/04/wordlist1.icn
@@ -0,0 +1,6 @@
+procedure wordlist()
+   wlist := "" # initialize wlist
+   while word := read() do
+      wlist := wlist || word || ","
+   return wlist
+end

diff --git a/usr/contrib/icon/book/04/words1.icn b/usr/contrib/icon/book/04/words1.icn
new file mode 100644 (file)
index 0000000..8d4e7dc
--- /dev/null
+++ b/usr/contrib/icon/book/04/words1.icn
@@ -0,0 +1,10 @@
+procedure main()
+   wchar := &lcase ++ &ucase ++ '\'-'
+   while line := read() do {
+      i := 1
+      while j := upto(wchar,line,i) do {
+         i := many(wchar,line,j)
+         write(line[i:j])
+         }
+      }
+end