diff options
Diffstat (limited to 'ipl/progs/comfiles.icn')
| -rw-r--r-- | ipl/progs/comfiles.icn | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/ipl/progs/comfiles.icn b/ipl/progs/comfiles.icn new file mode 100644 index 0000000..faabc61 --- /dev/null +++ b/ipl/progs/comfiles.icn @@ -0,0 +1,46 @@ +############################################################################ +# +# File: comfiles.icn +# +# Subject: Program to list common files in two directories +# +# Author: Ralph E. Griswold +# +# Date: March 21, 1994 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# This program lists common file names in two directories given as +# command-line arguments. +# +############################################################################ +# +# Requires: UNIX +# +############################################################################ + +procedure main(args) + local dir1, dir2, set1, set2, set3, input1, input2 + + dir1 := args[1] | stop("*** no directories specified") + dir2 := args[2] | stop("*** no second directory specified") + + set1 := set() + set2 := set() + + input1 := open("ls " || dir1, "p") + input2 := open("ls " || dir2, "p") + + every insert(set1, !input1) + every insert(set2, !input2) + + set3 := set1 ** set2 + + if *set3 = 0 then write("no common file names") + else every write(!set3) + +end |