1 files changed, 84 insertions, 0 deletions
diff --git a/lib/complete.pl b/lib/complete.pl
new file mode 100644
index 0000000000..fd50674086
--- /dev/null
+++ b/lib/complete.pl
@@ -0,0 +1,84 @@
+;#
+;#	@(#)complete.pl	1.0 (sun!waynet) 11/11/88
+;#
+;# Author: Wayne Thompson
+;#
+;# Description:
+;#     This routine provides word completion.
+;#     (TAB) attempts word completion.
+;#     (^D)  prints completion list.
+;#
+;# Diagnostics:
+;#     Bell when word completion fails.
+;#
+;# Dependencies:
+;#     The tty driver is put into raw mode.
+;#
+;# Bugs:
+;#     The erase and kill characters are hard coded.
+;#
+;# Usage:
+;#     $input = do Complete('prompt_string', @completion_list);
+;#
+
+sub Complete {
+    local ($prompt) = shift (@_);
+    local ($c, $cmp, $l, $r, $ret, $return, $test);
+    @_ = sort @_;
+    system 'stty raw -echo';
+    loop: {
+	print $prompt, $return;
+	while (($c = getc(stdin)) ne "\r") {
+	    if ($c eq "\t") {			# (TAB) attempt completion
+		@_match = ();
+		foreach $cmp (@_) {
+		    push (@_match, $cmp) if $cmp =~ /^$return/;
+		}
+    	    	$test = $_match[0];
+    	    	$l = length ($test);
+		unless ($#_match == 0) {
+    	    	    shift (@_match);
+    	    	    foreach $cmp (@_match) {
+    	    	    	until (substr ($cmp, 0, $l) eq substr ($test, 0, $l)) {
+    	    	    	    $l--;
+    	    	    	}
+    	    	    }
+    	    	    print "\007";
+    	    	}
+    	    	print $test = substr ($test, $r, $l - $r);
+    	    	$r = length ($return .= $test);
+	    }
+	    elsif ($c eq "\004") {		# (^D) completion list
+		print "\r\n";
+		foreach $cmp (@_) {
+		    print "$cmp\r\n" if $cmp =~ /^$return/;
+		}
+		redo loop;
+	    }
+    	    elsif ($c eq "\025" && $r) {	# (^U) kill
+    	    	$return = '';
+    	    	$r = 0;
+    	    	print "\r\n";
+    	    	redo loop;
+    	    }
+	    	    	    	    	    	# (DEL) || (BS) erase
+	    elsif ($c eq "\177" || $c eq "\010") {
+		if($r) {
+		    print "\b \b";
+		    chop ($return);
+		    $r--;
+		}
+	    }
+	    elsif ($c =~ /\S/) {    	    	# printable char
+		$return .= $c;
+		$r++;
+		print $c;
+	    }
+	}
+    }
+    system 'stty -raw echo';
+    print "\n";
+    $return;
+}
+
+1;