Initial revision

hardsup/geterrno.c

@@ -0,0 +1,96 @@
+#define	    ident	"1B01"
+#ifdef VAXC
+#module	    GetErrno	ident
+#endif
+#ifdef __DECC
+#pragma	    module	    GetErrno	ident
+#endif
+/*
+** +--------------------------------------------------------------+
+** |                  Paul Scherrer Institute                     |
+** |                     Computing Section                        |
+** |                                                              |
+** | This software may be used freely by non-profit organizations.|
+** | It may be copied provided that the name of P.S.I. and of the |
+** | author is included. Neither P.S.I. nor the author assume any |
+** | responsibility for the use of this software outside of P.S.I.|
+** +--------------------------------------------------------------+
+**
+** Module Name  . . . . . . . . : [...LIB.SINQ]GETERRNO.C
+**
+** Author   . . . . . . . . . . : D. Maden
+** Date of creation . . . . . . : Nov 1995
+**
+**  To compile this module, use:
+
+	$ import tasmad
+	$ define/group sinq_c_tlb mad_lib:sinq_c.tlb
+	$ cc /debug /noopt /obj=[]GetErrno -
+			tasmad_disk:[mad.lib.sinq]GetErrno +
+			sinq_c_tlb/lib
+
+**  To include this module in SINQ.OLB, use:
+
+  $ import tasmad
+  $ define/group sinq_c_tlb mad_lib:sinq_c.tlb
+  $
+  $ define/group sinq_olb mad_lib:sinq_dbg.olb
+  $ @tasmad_disk:[mad.lib.sinq]sinq_olb GetErrno debug
+  $
+  $ define/group sinq_olb mad_lib:sinq.olb
+  $ @tasmad_disk:[mad.lib.sinq]sinq_olb GetErrno
+**
+** Updates:
+**  1A01  2-Nov-1995 DM.	Initial version.
+**  1B01 21-Mar-1996 DM.	Move from DELTAT.OLB to SINQ.OLB.
+**============================================================================
+** The following entry points are included:
+**
+    #include <sinq_prototypes.h>
+
+    void GetErrno (int *his_errno, int *his_vaxc_errno)
+**	 --------
+**  Input Args:
+**	none
+**  Output Args:
+**	his_errno	- value of "errno".
+**	his_vaxc_errno	- on VMS systems only, value of "vaxc$errno". Otherwise
+**			    set to 1.
+**  Modified Args:
+**	none
+**  Return status:
+**	none
+**  Global variables modified:
+**	none
+**  Description:
+**	GetErrno returns a copy of the universal error variable "errno" (and,
+**	on VMS systems, vaxc$errno) to a local variable supplied by the user.
+**	This can occasionally be useful when debugging since the debugger on
+**	VMS can't easily examine them.
+**============================================================================
+**			Global Definitions
+*/
+#ifdef VAXC
+#include    errno
+#else
+#include    <errno.h>
+#endif
+/*--------------------------------------------------------------------------
+**			Global Variables
+*/
+
+/*--------------------------------------------------------------------------
+**		GetErrno:  Make copies of errno and vaxc$errno for debug.
+*/
+  void	GetErrno (int *his_errno, int *his_vaxc_errno) {
+/*      ========
+*/
+    *his_errno = errno;	    /* Make copy of errno   */
+#ifdef __VMS
+    *his_vaxc_errno = vaxc$errno; /* Make copy of vaxc$errno	*/
+#else
+    *his_vaxc_errno = 1;
+#endif
+    return;
+  }
+/*------------------------------------------------- End of GETERRNO.C =======*/