summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/lib/uexit.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/lib/uexit.c')
-rw-r--r--Build/source/texk/web2c/lib/uexit.c20
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);
+}