+#! /bin/sh
+#
+# @(#)updatedb.csh 4.1 (Berkeley) 83/07/21
+#
+set LIBDIR = /usr/lib/find # for subprograms
+set FINDHONCHO = root # for error messages
+set FCODES = /etc/find.codes # the database
+
+set path = ( $LIBDIR /usr/ucb /bin /usr/bin )
+set bigrams = /tmp/f.bigrams$$
+set filelist = /tmp/f.list$$
+set errs = /tmp/f.errs$$
+
+# Make a file list and compute common bigrams.
+# Alphabetize '/' before any other char with 'tr'.
+# If the system is very short of sort space, 'bigram' can be made
+# smarter to accumulate common bigrams directly without sorting
+# ('awk', with its associative memory capacity, can do this in several
+# lines, but is too slow, and runs out of string space on small machines).
+
+nice +10
+find / -print | tr '/' '\001' | \
+ (sort -f; echo $status > $errs) | \
+ tr '\001' '/' | tee $filelist | $LIBDIR/bigram | \
+ (sort; echo $status >> $errs) | uniq -c | sort -nr | \
+ awk '{ if (NR <= 128) print $2 }' | tr -d '\012' > $bigrams
+
+# code the file list
+
+if { grep -s -v 0 $errs } then
+ echo 'squeeze error: out of sort space' | mail $FINDHONCHO
+else
+ $LIBDIR/code $bigrams < $filelist > $FCODES
+ rm $bigrams $filelist $errs
+endif