- /* We need to do this, because DEC C converts exit code 0 to 1, but not 1
- to 0. We will convert 1 to 3! Also, add the inhibit message bit... */
-# ifndef MONOLITH
-# define EXIT(n) do { int __VMS_EXIT = n; \
- if (__VMS_EXIT == 1) __VMS_EXIT = 3; \
- __VMS_EXIT |= 0x10000000; \
- exit(n); return(n); } while(0)
-# else
-# define EXIT(n) do { int __VMS_EXIT = n; \
- if (__VMS_EXIT == 1) __VMS_EXIT = 3; \
+ /* We don't have any well-defined random devices on VMS, yet... */
+# undef DEVRANDOM
+ /* We need to do this since VMS has the following coding on status codes:
+
+ Bits 0-2: status type: 0 = warning, 1 = success, 2 = error, 3 = info ...
+ The important thing to know is that odd numbers are considered
+ good, while even ones are considered errors.
+ Bits 3-15: actual status number
+ Bits 16-27: facility number. 0 is considered "unknown"
+ Bits 28-31: control bits. If bit 28 is set, the shell won't try to
+ output the message (which, for random codes, just looks ugly)
+
+ So, what we do here is to change 0 to 1 to get the default success status,
+ and everything else is shifted up to fit into the status number field, and
+ the status is tagged as an error, which I believe is what is wanted here.
+ -- Richard Levitte
+ */
+# define EXIT(n) do { int __VMS_EXIT = n; \
+ if (__VMS_EXIT == 0) \
+ __VMS_EXIT = 1; \
+ else \
+ __VMS_EXIT = (n << 3) | 2; \