texk 1

git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 20 insertions, 0 deletions

diff --git a/Build/source/texk/web2c/lib/uexit.c b/Build/source/texk/web2c/lib/uexit.c
new file mode 100644
index 00000000000..21f34ded35f
--- /dev/null
+++ b/Build/source/texk/web2c/lib/uexit.c
@@ -0,0 +1,20 @@
+/* uexit.c: define uexit to do an exit with the right status.  We can't
+   just call `exit' from the web files, since the webs use `exit' as a
+   loop label.  Public domain. */
+
+#include "config.h"
+
+void
+uexit P1C(int, unix_code)
+{
+  int final_code;
+  
+  if (unix_code == 0)
+    final_code = EXIT_SUCCESS;
+  else if (unix_code == 1)
+    final_code = EXIT_FAILURE;
+  else
+    final_code = unix_code;
+  
+  exit (final_code);
+}