path: root/mcon/U/Extractall.U
diff options
Diffstat (limited to 'mcon/U/Extractall.U')
1 files changed, 54 insertions, 0 deletions
diff --git a/mcon/U/Extractall.U b/mcon/U/Extractall.U
new file mode 100644
index 0000000..eb69b75
--- /dev/null
+++ b/mcon/U/Extractall.U
@@ -0,0 +1,54 @@
+?RCS: $Id: Extractall.U,v 1997/02/28 15:00:43 ram Exp $
+?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?RCS: as specified in the README file that comes with the distribution.
+?RCS: You may reuse parts of this distribution only within the terms of
+?RCS: that same Artistic Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 3.0.
+?RCS: $Log: Extractall.U,v $
+?RCS: Revision 1997/02/28 15:00:43 ram
+?RCS: patch61: created
+?X: If extraction has been requested, load the configuration file, perform
+?X: the extraction and exit.
+?X: This unit was originally a part of Options.U. It had to be removed from
+?X: it to prevent a dependency cycle: Extract -> src -> Options -> Extract
+?X: The Begin.U unit now requires us before beginning to do anything
+?X: interesting, to ensure proper semantics. -- RAM, 15/03/96
+?MAKE:Extractall: Extract Options rsrc
+?MAKE: -pick wipe $@ %<
+: extract files and exit if asked to do so
+case "$extractsh" in
+?X: Undo the forced silent=true when -S was supplied, by probing realsilent
+?X: which was set iff -s was also given. See Options.U for details.
+ case "$realsilent" in
+ true) ;;
+ *) exec 1>&4;;
+ esac
+ case "$config_sh" in
+ '') config_sh=''; config="$rsrc/";;
+ /*) config="$config_sh";;
+ *) config="$rsrc/$config_sh";;
+ esac
+ echo " "
+ echo "Fetching answers from $config_sh..."
+ . $config
+ test "$override" && . ./
+ echo " "
+?X: extract has to be run from the top directory, not within UU.
+ cd ..
+ . UU/extract
+ rm -rf UU
+ echo "Done."
+ exit 0
+ ;;