digital literacy for everyone
[lit][generate-title]
[lit]
[fig]
#### dircmp
# 2018 mn
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#### usage: dircmp file1-or-folder file2-or-folder
#### compare two folders (or files containing lists)
#### list only files unique to each folder
# $ ls d1
# apple banana d1 orange
# $ ls d2
# apple orange pear
# $ dircmp d1 d2
# d1 only:
# ./d1
# ./banana
# d2 only:
# ./pear
# $ cd d2 ; find > ../d2.txt ; cd ..
# $ dircmp d1 d2.txt
# d1 only:
# ./d1
# ./banana
# d2.txt only:
# ./pear
try
f1 command mid 1 1
f2 command mid 2 1
o "if [ -f '" plus f1 plus "' ] ; then cat " plus f1 plus " ; else cd " plus f1 plus " ; find ; fi" arrshell
p "if [ -f '" plus f2 plus "' ] ; then cat " plus f2 plus " ; else cd " plus f2 plus " ; find ; fi" arrshell
except
z "dircmp: usage: dircmp file1-or-folder file2-or-folder" print end
resume
xc
yc
z f1 prints " only: " print
forin y o
yin instr p y sgn
ifequal yin 0
z y print
fig
next
z "" print
z f2 prints " only: " print
forin x p
xin instr o x sgn
ifequal xin 0
z x print
fig
next
home: [lit]https://freesoftwareresistance.neocities.org[lit]