digital literacy for everyone
[lit][generate-title]
[lit]
[fig]
# 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.
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]