BSD 4_3 development

Work on file usr/contrib/icon/libtest/distr/rsg.out
Work on file usr/contrib/icon/libtest/distr/shuffile.out
Work on file usr/contrib/icon/libtest/distr/tablc.out
Work on file usr/contrib/icon/libtest/distr/tablw.out
Work on file usr/contrib/icon/libtest/distr/trim.out

Synthesized-from: CSRG/cd1/4.3

diff --git a/usr/contrib/icon/libtest/distr/rsg.out b/usr/contrib/icon/libtest/distr/rsg.out
new file mode 100644 (file)
index 0000000..6dc53cd
--- /dev/null
+++ b/usr/contrib/icon/libtest/distr/rsg.out
@@ -0,0 +1,13 @@
+5
+z
+y*S
+((Q+(D)*5*((Y)+U*((V))*3)))+7+x+F*5*A
+X*y+y*H
+J+z+B+7+J+(7+5)*3
+y*z*3+3*z*x
+L
+8*(8+6+3+U+C)+8
+7
+<element>::=<'xyz'>|<'123456789'>|<&ucase>|(<expr>)
+<expr>::=<term>|<term>+<expr>
+<term>::=<element>|<element>|<element>*<term>

diff --git a/usr/contrib/icon/libtest/distr/shuffile.out b/usr/contrib/icon/libtest/distr/shuffile.out
new file mode 100644 (file)
index 0000000..ca8652a
--- /dev/null
+++ b/usr/contrib/icon/libtest/distr/shuffile.out
@@ -0,0 +1,45 @@
+      doll(&input,"standard input")
+            inpt := &input
+
+#      Last modified 6/16/83
+#
+         }
+   tab := "\t"
+               }
+      every arg := !a do
+procedure doll(ifd,name)
+            {
+         {
+               {
+         doll(inpt,arg)
+            arg := "standard input"
+end
+            }
+            if not (inpt := open(arg)) then
+end
+   if *a = 0 then
+#
+      {
+   while line := read(ifd) do
+procedure main(a)
+#      LL(1)
+
+         else
+      long <:= x
+         if arg == "-" then
+   write(right(\short,6),tab,right(\long,6),tab,\name)
+#      Line length
+               next
+   
+#
+   local arg, inpt
+      }
+#      Thomas R. Hicks
+      /short := x
+   else
+      short >:=  x
+               write(&errout,"Cannot open ",arg)
+      x := *line
+   long := 0
+   local line, long, short, tab, x
+#

diff --git a/usr/contrib/icon/libtest/distr/tablc.out b/usr/contrib/icon/libtest/distr/tablc.out
new file mode 100644 (file)
index 0000000..c4619e1
--- /dev/null
+++ b/usr/contrib/icon/libtest/distr/tablc.out
@@ -0,0 +1,54 @@
+"\t"        4
+"\n"       45
+" "       296
+"!"         1
+"\""       10
+"#"         8
+"&"         3
+"("        12
+")"        12
+"*"         2
+","        16
+"-"         1
+"."         1
+"/"         3
+"0"         2
+"1"         2
+"3"         1
+"6"         4
+"8"         1
+":"        11
+"<"         1
+"="        14
+">"         1
+"C"         1
+"H"         1
+"L"         4
+"R"         1
+"T"         1
+"\\"        4
+"a"        27
+"b"         4
+"c"         5
+"d"        18
+"e"        31
+"f"         6
+"g"        14
+"h"        12
+"i"        26
+"k"         1
+"l"        21
+"m"         5
+"n"        33
+"o"        24
+"p"        12
+"r"        25
+"s"        11
+"t"        32
+"u"         7
+"v"         1
+"w"         3
+"x"         6
+"y"         1
+"{"         4
+"}"         4

diff --git a/usr/contrib/icon/libtest/distr/tablw.out b/usr/contrib/icon/libtest/distr/tablw.out
new file mode 100644 (file)
index 0000000..ec618c4
--- /dev/null
+++ b/usr/contrib/icon/libtest/distr/tablw.out
@@ -0,0 +1,40 @@
+Cannot      1
+Hicks       1
+LL          1
+Last        1
+Line        1
+R           1
+Thomas      1
+a           3
+arg         7
+do          2
+doll        3
+else        2
+end         2
+errout      1
+every       1
+if          3
+ifd         2
+inpt        4
+input       4
+length      1
+line        3
+local       2
+long        4
+main        1
+modified    1
+name        2
+next        1
+not         1
+open        2
+procedure   2
+read        1
+right       2
+short       4
+standard    2
+t           1
+tab         4
+then        3
+while       1
+write       2
+x           5

diff --git a/usr/contrib/icon/libtest/distr/trim.out b/usr/contrib/icon/libtest/distr/trim.out
new file mode 100644 (file)
index 0000000..66ac621
--- /dev/null
+++ b/usr/contrib/icon/libtest/distr/trim.out
@@ -0,0 +1,45 @@
+#      LL(1)
+#
+#      Line length
+#
+#      Thomas R. Hicks
+#
+#      Last modified 6/16/83
+#
+
+procedure main(a)
+   local arg, inpt
+   if *a = 0 then
+      doll(&input,"standard input")
+   else
+      every arg := !a do
+         {
+         if arg == "-" then
+            {
+            inpt := &input
+            arg := "standard input"
+            }
+         else
+            if not (inpt := open(arg)) then
+               {
+               write(&errout,"Cannot open ",arg)
+               next
+               }
+         doll(inpt,arg)
+         }
+
+end
+
+procedure doll(ifd,name)
+   local line, long, short, tab, x
+   tab := "\t"
+   long := 0
+   while line := read(ifd) do
+      {
+      x := *line
+      /short := x
+      short >:=  x
+      long <:= x
+      }
+   write(right(\short,6),tab,right(\long,6),tab,\name)
+end