added cinst to pformat decl so we match ansi C

individual flags for IO_INTR processing of inputs

Makefile

@@ -12,6 +12,9 @@
 #         install because the release.% syntax is illegal.
 #
 # $Log$
+# Revision 1.22  1994/11/14  23:12:17  tang
+# Replace ARCH_TYPE with .
+#
 # Revision 1.1.1.1  1994/11/09  01:08:53  epics
 # Import of R3.12.0Beta
 #
@@ -46,7 +49,7 @@
 #
 
 EPICS=..
-include $(EPICS)/config/CONFIG_SITE
+include $(EPICS)/config/CONFIG
 
 all: install
 

README

@@ -16,14 +16,12 @@ set path = ( $path EPICS/base/tools EPICS/base/bin/HOST_ARCH )
 
 set path = ( $path /home/epics/base/tools /home/epics/base/bin/sun4 )
 
-2. If you are using GNU make (which is now THE supported make utility
-	for the build), you probably want to invoke it with the
-	--no-print-directory option when you are building at the TOP level:
+2. You must use GNU make (which is now THE supported make utility) for
+   the build. A script, gmake,  exists in the base/tools directory to invoke
+   it with the --no-print-directory option.  This option will turn off the
+   annoying messages GNU make produces upon entering a directory.
 
-make --no-print-directory
-
-This is to turn off the annoying messages GNU make produces upon
-	entering a directory.
+gmake
 
 ----------------------------------------------------------------------------
    Part 1 - Configuring and Building EPICS Base
@@ -31,13 +29,13 @@ This is to turn off the annoying messages GNU make produces upon
 
 1.1  To configure EPICS, edit the following files:
 
-   base/config/CONFIG_SITE	- Build choices/HOST_ARCH/Vx location.
-   base/config/CONFIG_SITE.*    - Location of X, etc.
-   base/config/CONFIG		- For overriding specific variables.
+   config/CONFIG_SITE      - Build choices/HOST_ARCH/Vx location.
+   config/CONFIG_SITE.*    - Location of X, etc.
+   config/CONFIG           - For overriding specific variables.
 
 1.2  To add a target architecture to EPICS:
 
-   cd epics/base/config
+   cd epics/config
    cp CONFIG_ARCH.mv167 CONFIG_ARCH.YOUR_ARCH
    edit CONFIG_ARCH.YOUR_ARCH	- For compiler flags / etc.
 
@@ -50,25 +48,27 @@ This is to turn off the annoying messages GNU make produces upon
 
 1.3  To build EPICS:
 
-   make			- To build and install EPICS.
-   make clean		- To clean temporary object files.  Clean will
-				remove files from ALL O.ARCH dirs, not
-				only those specified in BUILD_ARCHS.
+   cd epics/base
+   gmake             - To build and install EPICS.
+   gmake clean       - To clean temporary object files.  Clean will
+                       remove files from ALL O.ARCH dirs, not
+                       only those specified in BUILD_ARCHS.
 
 1.4  To create an EPICS release:
 
-   edit include/version.h	- ONLY IF you need to change the EPICS
+   edit base/include/version.h	- ONLY IF you need to change the EPICS
 					version number.
 
-   make release			- Will create Tar file, but only after
-					generating dependencies.
-   make built_release		- Same as above, but INCLUDING BINARIES.
+   gmake release			- Will create Tar file
+
+   gmake built_release         - Will create Tar file, after generating
+                                dependencies, INCLUDING BINARIES.
 
 1.5  "Partial" build commands:
 
-   make clean.sun4		- Cleans sun4 binaries in O.sun4 dirs only.
-   make install.sun4		- Builds sun4 only.
-   make install.mv167		- Builds mv167 only (a HOST_ARCH build must
+   gmake clean.sun4		- Cleans sun4 binaries in O.sun4 dirs only.
+   gmake install.sun4		- Builds sun4 only.
+   gmake install.mv167		- Builds mv167 only (a HOST_ARCH build must
 					be complete before this can be issued).
 
 NOTES:
@@ -81,8 +81,8 @@ NOTES:
 
    3. During a normal build (a "make" or "make install"), the "depends"
         dependency will NOT be invoked.  Only if "make depends" is run
-        explicitly, or a "make release" is performed will dependencies be
-        generated automatically.
+        explicitly, or a "make built_release" is performed will dependencies
+        be generated automatically.
    
    4. Temporary objects are stored in src/DIR/O.ARCH, This allows objects
 	for multiple architectures to be maintained at the same time.
@@ -229,9 +229,6 @@ RULES.Unix                   -         -             -             -
  Dependencies supported by lower level Makefiles:
 
     depends		- Generate include dependencies
-    pre_build		- Build e_flex / antelope
-    build_libs		- Builds libraries for use in "build"
-    install_libs	- Installs these libraries in lib/ARCH
     build		- Builds objects, using libraries from "build_libs"
     install		- Installs executables in bin/ARCH
     clean		- Cleans objects

README.solaris

@@ -0,0 +1,29 @@
+----------------------------------------------------------------------------
+EPICS R3.12 Notes for Solaris 2.3
+	- By Andrew Johnson
+----------------------------------------------------------------------------
+
+Notes:
+
+1. In order to build and use EPICS under Solaris 2, you must include
+various directories in your path in the order given below, in addition
+to those named in base/README. Some of these directories may already be
+included in your path from your .login script or .cshrc file, so be
+careful that the ordering is correct.
+
+	setenv PATH /usr/ucb:/usr/bin:/usr/ccs/bin:$PATH
+
+2. It is not possible to compile the whole of EPICS under Solaris 2
+using only the GNU gcc compiler - some routines which are needed (for
+example quiet_nan()) have been unbundled by Sun and are provided with
+their ANSI C compiler.  The path to the Sun compiler is explicitly set
+using the SPARCWORKS definition in the file CONFIG_SITE.Unix.solaris
+
+3. EPICS must be compiled and linked using the UCB compatability
+libraries.  The definitions UCB_LIB and UCB_INCLUDE are used here to
+refer to these libraries and their header files, and the tools provided
+within /usr/ucb must be used in preference to the System V ones, hence
+the above path ordering.
+
+--
+anj@mail.ast.cam.ac.uk

src/as/Makefile.Unix

@@ -3,7 +3,7 @@ include Target.include
 include $(EPICS)/config/CONFIG_BASE
 
 USR_CFLAGS = -D_NO_PROTO
-USR_LDLIBS = -lAs -lCom -lDb -lCom -s
+USR_LDLIBS = -lAs -lCom -lDb -lCom -lm -s
 USR_LDFLAGS = -L.
 
 DEPLIBS_BASE = $(EPICS_BASE_LIB)

src/ca/BUILD_VMS.COM

@@ -15,7 +15,7 @@ $!             - You are using Multinet for TCP/IP access. If not, the logical
 $!               name definitions below will need to be changed
 $!              
 $!
-$! Arguments : None
+$! Arguments : 	optional source file name 
 $!
 $! Created  	16-NOV-1993   	Mark L. Rivers
 $!		05-MAY-1994	Jeff O. Hill	Updated for EPICS 3.12
@@ -30,11 +30,13 @@ $ define /nolog arpa multinet_root:[multinet.include.arpa]
 $ define /nolog tcp multinet_root:[multinet.include]
 $!
 $! Compile the functions and test programs
+$! Define symbol for the CC command
+$ call set_cc_command
 $ if (p1 .nes. "")
 $ then
-$ cc /defines=(__STDC__)/include=([]) 'p1' 
+$ cc_command 'p1'
 $ else 
-$ cc /defines=(__STDC__)/include=([])  -
+$ cc_command -
 ACCESS, -
 CONN, -  
 CONVERT, -  
@@ -51,6 +53,8 @@ VMS_DEPEN, -
 ELLLIB, - 
 BUCKETLIB, -
 ENVSUBR, -
+TSSUBR, -
+NEXTFIELDSUBR, -
 CATIME, - 
 ACCTST 
 $ endif
@@ -71,7 +75,9 @@ IF_DEPEN, -
 VMS_DEPEN, -
 BSD_DEPEN, -
 BUCKETLIB, -
+TSSUBR, -
 ENVSUBR, -
+NEXTFIELDSUBR, -
 ELLLIB
 $! Link the test programs
 $ call link acctst
@@ -84,10 +90,32 @@ $ catime == "$ EPICS_EXE:catime.exe"
 $
 $!
 $ link: subroutine
-$ link 'p1', sys$input/options
-channel_access/lib
-multinet_socket_library/share
-sys$share:vaxcrtl/share
+$! Link differently for VAX and AXP
+$ if f$getsyi("HW_MODEL") .ge. 1024
+$ then
+$   link 'p1', sys$input/options
+    channel_access/lib
+    multinet_socket_library/share
+$ else
+$   link 'p1', sys$input/options
+    channel_access/lib
+    multinet_socket_library/share
+    sys$share:vaxcrtl/share
+$ endif
+$ endsubroutine
+$
+$
+$! This subroutine sets up "cc_command" to use different switches for 
+$! VAX (assumes VAX C compiler) and AXP (DEC C compiler).
+$ set_cc_command : subroutine
+$ if f$getsyi("HW_MODEL") .ge. 1024
+$ then
+$! turn of no prototype messages because MULTINET does not
+$! supply prototypes.
+$ cc_command:== cc /warn=(disable=IMPLICITFUNC)/float=d_float /include=([], [-.include], [-.libcom]) 
+$ else
+$ cc_command:== cc /include=([], [-.include], [-.libcom]) 
+$ endif
 $ endsubroutine
 $! ************************************************************
 

src/ca/Makefile.Unix

@@ -3,25 +3,27 @@ include Target.include
 include $(EPICS)/config/CONFIG_BASE
 
 USR_CFLAGS = -DACCESS_SECURITY -D_NO_PROTO
-USR_LDLIBS = -lca -lCom
+USR_LDLIBS = -lca -lCom -lm
 USR_LDFLAGS = -L.
 
 DEPLIBS_BASE = $(EPICS_BASE_LIB)
 DEPLIBS = ./libca.a\
 	$(DEPLIBS_BASE)/libCom.a
 
+
 SRCS.c = \
 	../iocinf.c ../access.c ../test_event.c ../service.c \
-	../flow_control.c ../repeater.c ../conn.c ../acctst.c \
+	../flow_control.c ../repeater.c ../conn.c \
 	../syncgrp.c ../if_depen.c ../netdb_depen.c ../bsd_depen.c \
-	../posix_depen.c ../caRepeater.c ../acctst.c
+	../posix_depen.c ../caRepeater.c ../acctst.c ../catime.c \
+	../convert.c
 
 OBJS = caRepeater.o 
 
 LIBOBJS = \
 	iocinf.o access.o test_event.o service.o flow_control.o repeater.o \
 	conn.o syncgrp.o if_depen.o netdb_depen.o \
-	bsd_depen.o posix_depen.o
+	bsd_depen.o posix_depen.o convert.o
 
 LIBNAME = libca.a
 
@@ -35,3 +37,9 @@ acctst: acctst.o $(DEPLIBS_BASE)/libCom.a libca.a
 acctst.o: ../acctst.c
 	$(COMPILE.c) $<
 
+catime: catime.o $(DEPLIBS_BASE)/libCom.a libca.a
+
+catime.o: ../catime.c
+	$(COMPILE.c) $<
+
+

src/ca/access.c

@@ -134,6 +134,8 @@ static char *sccsId = "@(#) $Id$";
 
 #include 	"iocinf.h"
 #include	"net_convert.h"
+#include	<epicsPrint.h>
+#include	<stdarg.h> /* for VMS old CC include order madness */
 
 
 /****************************************************************/
@@ -142,19 +144,6 @@ static char *sccsId = "@(#) $Id$";
 #define EXTMSGPTR(PIIU)\
  	((struct extmsg *) &(PIIU)->send.buf[(PIIU)->send.wtix])
 
-/*
- * Performs worst case message alignment
- */
-#define CAC_ADD_MSG(PIIU) \
-{ \
-	unsigned long	size; \
-	struct extmsg *mp = EXTMSGPTR(PIIU); \
-	size = mp->m_postsize = CA_MESSAGE_ALIGN(mp->m_postsize); \
-	mp->m_postsize = htons(mp->m_postsize); \
-	CAC_RING_BUFFER_WRITE_ADVANCE( \
-		&(PIIU)->send, sizeof(struct extmsg) + size); \
-}
-
 
 
 
@@ -189,12 +178,14 @@ static struct extmsg	nullmsg;
 /*
  * local functions
  */
-
+#if 0
 LOCAL int cac_alloc_msg(
 struct ioc_in_use 	*piiu,
 unsigned		extsize,
 struct extmsg		**ppMsg
 );
+#endif
+
 LOCAL int cac_alloc_msg_no_flush(
 struct ioc_in_use 	*piiu,
 unsigned		extsize,
@@ -230,6 +221,8 @@ struct extmsg		*pmsg,
 void			*pext
 );
 
+LOCAL void cac_add_msg (IIU *piiu);
+
 #ifdef CONVERSION_REQUIRED 
 LOCAL void *malloc_put_convert(unsigned long size);
 LOCAL void free_put_convert(void *pBuf);
@@ -253,15 +246,15 @@ void			*pext
 )
 {
 	struct extmsg	msg;
-	unsigned long	bytesAvailable;
-	unsigned long	actualextsize;
-	unsigned long	extsize;
-	unsigned long	bytesSent;
+	unsigned 	bytesAvailable;
+	unsigned 	actualextsize;
+	unsigned 	extsize;
+	unsigned 	bytesSent;
 
 	msg = *pmsg;
 	actualextsize = pmsg->m_postsize;
 	extsize = CA_MESSAGE_ALIGN(pmsg->m_postsize);
-	msg.m_postsize = htons(extsize);
+	msg.m_postsize = htons((ca_uint16_t)extsize);
 
 
 	LOCK;
@@ -347,8 +340,8 @@ void			*pext
 	 * if present
 	 */
 	{
-		static 	nullBuff[32];
-		int	n;
+		static 		nullBuff[32];
+		unsigned	n;
 
 		n = extsize-actualextsize;
 		if(n){
@@ -421,6 +414,7 @@ struct extmsg		**ppMsg
  *	LOCK should be on
  *
  */ 
+#if 0
 LOCAL int cac_alloc_msg(
 struct ioc_in_use 	*piiu,
 unsigned		extsize,
@@ -480,13 +474,33 @@ struct extmsg		**ppMsg
 
 	return ECA_NORMAL;
 }
+#endif
+
+
+/*
+ * cac_add_msg ()
+ */
+LOCAL void cac_add_msg (IIU *piiu)
+{
+	unsigned long	size; 
+	struct extmsg 	*mp = EXTMSGPTR(piiu); 
+
+	/*
+	 * Performs worst case message alignment
+	 */
+	mp->m_postsize = (unsigned short) 
+		CA_MESSAGE_ALIGN(mp->m_postsize); 
+	size = mp->m_postsize;
+	mp->m_postsize = htons(mp->m_postsize); 
+	CAC_RING_BUFFER_WRITE_ADVANCE( 
+		&piiu->send, 
+		sizeof(struct extmsg) + size); 
+}
+
 
 
 /*
- *
  *	CA_TASK_INITIALIZE
- *
- *
  */
 int APIENTRY ca_task_initialize(void)
 {
@@ -518,6 +532,8 @@ int ca_os_independent_init (void)
 	ca_static->ca_exception_func = ca_default_exception_handler;
 	ca_static->ca_exception_arg = NULL;
 
+	caSetDefaultPrintfHandler();
+
 	/* record a default user name */
 	ca_static->ca_pUserName = localUserName();
 	if(!ca_static->ca_pUserName){
@@ -541,10 +557,10 @@ int ca_os_independent_init (void)
 	 */
 	ca_static->ca_search_retry = 0;
 	ca_static->ca_conn_next_retry = CA_CURRENT_TIME;
-	sec = CA_RECAST_DELAY;
+	sec = (unsigned) CA_RECAST_DELAY;
 	ca_static->ca_conn_retry_delay.tv_sec = sec;
 	ca_static->ca_conn_retry_delay.tv_usec = 
-	(CA_RECAST_DELAY-sec)*USEC_PER_SEC;
+		(long) ((CA_RECAST_DELAY-sec)*USEC_PER_SEC);
 
 	ellInit(&ca_static->ca_iiuList);
 	ellInit(&ca_static->ca_ioeventlist);
@@ -597,8 +613,6 @@ int ca_os_independent_init (void)
  */
 LOCAL void create_udp_fd()
 {
-	int     pri;
-	char	name[64];
 	int	status;
 
 	if(ca_static->ca_piiuCast){
@@ -615,38 +629,43 @@ LOCAL void create_udp_fd()
 	}
 
 #ifdef vxWorks
-	status = taskPriorityGet(VXTASKIDSELF, &pri);
-	if(status<0)
-		ca_signal(ECA_INTERNAL,NULL);
+	{
+		int     pri;
+		char	name[64];
 
-	strcpy(name,"RD ");
-	strncat(
-		name,
-		taskName(VXTHISTASKID),
-		sizeof(name)-strlen(name)-1);
+		status = taskPriorityGet(VXTASKIDSELF, &pri);
+		if(status<0)
+			ca_signal(ECA_INTERNAL,NULL);
+
+		strcpy(name,"RD ");
+		strncat(
+			name,
+			taskName(VXTHISTASKID),
+			sizeof(name)-strlen(name)-1);
+
+		status = taskSpawn(
+					name,
+					pri-1,
+					VX_FP_TASK,
+					4096,
+					(FUNCPTR)cac_recv_task,
+					(int)taskIdCurrent,
+					0,
+					0,
+					0,
+					0,
+					0,
+					0,
+					0,
+					0,
+					0);
+		if (status<0) {
+			ca_signal(ECA_INTERNAL,NULL);
+		}
+
+		ca_static->recv_tid = status;
 
-	status = taskSpawn(
-				name,
-                           	pri-1,
-                               	VX_FP_TASK,
-                                4096,
-                                (FUNCPTR)cac_recv_task,
-                                (int)taskIdCurrent,
-                                0,
-                                0,
-                                0,
-                                0,
-                                0,
-                                0,
-                                0,
-                                0,
-                                0);
-	if (status<0) {
-		ca_signal(ECA_INTERNAL,NULL);
 	}
-
-	ca_static->recv_tid = status;
-
 #endif
 }
 
@@ -1072,7 +1091,7 @@ int APIENTRY ca_search_and_connect
 	chix->pConnFunc = conn_func;
 	chix->type = TYPENOTCONN; /* invalid initial type 	 */
 	chix->count = 0; 	/* invalid initial count	 */
-	chix->id.sid = ~0L;	/* invalid initial server id 	 */
+	chix->id.sid = ~0U;	/* invalid initial server id 	 */
 
 	chix->state = cs_never_conn;
 	ellInit(&chix->eventq);
@@ -1088,10 +1107,10 @@ int APIENTRY ca_search_and_connect
 	 */
 	ca_static->ca_search_retry = 0;
 	ca_static->ca_conn_next_retry = CA_CURRENT_TIME;
-	sec = CA_RECAST_DELAY;
+	sec = (int) CA_RECAST_DELAY;
 	ca_static->ca_conn_retry_delay.tv_sec = sec;
 	ca_static->ca_conn_retry_delay.tv_usec = 
-		(CA_RECAST_DELAY-sec)*USEC_PER_SEC;
+		(long) ((CA_RECAST_DELAY-sec)*USEC_PER_SEC);
 
 	UNLOCK;
 
@@ -1152,7 +1171,7 @@ int             reply_type
 	mptr++;
 	strncpy((char *)mptr, (char *)(chix + 1), size);
 
-	CAC_ADD_MSG(piiu);
+	cac_add_msg(piiu);
 
 	/*
 	 * increment the number of times we have tried this
@@ -1721,7 +1740,7 @@ void				*pvalue
 	struct extmsg		hdr;
   	int  			postcnt;
   	unsigned		size_of_one;
-  	int 			i;
+  	unsigned		i;
 #	ifdef CONVERSION_REQUIRED 
 	void			*pCvrtBuf;
   	void			*pdest;
@@ -1777,6 +1796,8 @@ void				*pvalue
 
       		case	DBR_ENUM:
       		case	DBR_SHORT:
+		case	DBR_PUT_ACKT:
+		case	DBR_PUT_ACKS:
 #		if DBR_INT != DBR_SHORT
       		case	DBR_INT:
 #		endif /*DBR_INT != DBR_SHORT*/
@@ -1812,10 +1833,10 @@ void				*pvalue
 
     	hdr.m_cmmd 		= htons(cmd);
    	hdr.m_type		= htons(type);
-    	hdr.m_count 		= htons(count);
+    	hdr.m_count 		= htons((ca_uint16_t)count);
     	hdr.m_cid 		= chix->id.sid;
     	hdr.m_available 	= id;
-	hdr.m_postsize 		= postcnt;
+	hdr.m_postsize 		= (ca_uint16_t) postcnt;
 
 	status = cac_push_msg(piiu, &hdr, pvalue);
 
@@ -2033,7 +2054,6 @@ long		mask
 {
   	evid		monix;
   	int		status;
-  	int		size;
 
   	INITCHK;
   	LOOSECHIXCHK(chix);
@@ -2063,7 +2083,8 @@ long		mask
 
   	if (!chix->piiu) {
 # 		ifdef vxWorks
-    		static int			dbevsize;
+  		int		size;
+    		static int	dbevsize;
 
       		if(!dbevsize){
         		dbevsize = db_sizeof_event_block();
@@ -2098,7 +2119,7 @@ long		mask
   	monix->p_delta	= p_delta;
   	monix->n_delta	= n_delta;
   	monix->timeout	= timeout;
-  	monix->mask	= mask;
+  	monix->mask	= (unsigned short) mask;
 
 # 	ifdef vxWorks
 	if(!chix->piiu){
@@ -2169,8 +2190,10 @@ int ca_request_event(evid monix)
 	unsigned        	count;
 	struct monops		msg;
 	struct ioc_in_use	*piiu;
+	ca_float32_t		p_delta;
+	ca_float32_t		n_delta;
+	ca_float32_t		tmo;
 	
-
 	piiu = chix->piiu;
 
   	/* 
@@ -2201,9 +2224,12 @@ int ca_request_event(evid monix)
 	msg.m_header.m_postsize = sizeof(msg.m_info);
 
 	/* msg body	 */
-	htonf(&monix->p_delta, &msg.m_info.m_hval);
-	htonf(&monix->n_delta, &msg.m_info.m_lval);
-	htonf(&monix->timeout, &msg.m_info.m_toval);
+	p_delta = (ca_float32_t) monix->p_delta;
+	n_delta = (ca_float32_t) monix->n_delta;
+	tmo = (ca_float32_t) monix->timeout;
+	htonf(&p_delta, &msg.m_info.m_hval);
+	htonf(&n_delta, &msg.m_info.m_lval);
+	htonf(&tmo, &msg.m_info.m_toval);
 	msg.m_info.m_mask = htons(monix->mask);
 
 	status = cac_push_msg(piiu, &msg.m_header, &msg.m_info);
@@ -2563,9 +2589,9 @@ int APIENTRY ca_clear_channel (chid chix)
 	/* msg header	 */
 	hdr.m_cmmd = htons(IOC_CLEAR_CHANNEL);
 	hdr.m_available = chix->cid;
+	hdr.m_cid = chix->id.sid;
 	hdr.m_type = htons(0);
 	hdr.m_count = htons(0);
-	hdr.m_cid = chix->id.sid;
 	hdr.m_postsize = 0;
 	
 	status = cac_push_msg(piiu, &hdr, NULL);
@@ -2700,8 +2726,8 @@ int APIENTRY ca_pend(ca_real timeout, int early)
 			remaining = min(SELECT_POLL, remaining);
   		}    
 
-		tmo.tv_sec = remaining;
-		tmo.tv_usec = (remaining-tmo.tv_sec)*USEC_PER_SEC;
+		tmo.tv_sec = (long) remaining;
+		tmo.tv_usec = (long) ((remaining-tmo.tv_sec)*USEC_PER_SEC);
 		cac_block_for_io_completion(&tmo);
 	}
 }
@@ -3015,7 +3041,7 @@ int echo_request(struct ioc_in_use *piiu, ca_time *pCurrentTime)
 	phdr->m_available = htons(0);
 	phdr->m_postsize = 0;
 
-	CAC_ADD_MSG(piiu);
+	cac_add_msg(piiu);
 	
 	piiu->echoPending = TRUE;
 	piiu->send_needed = TRUE;
@@ -3214,7 +3240,7 @@ LOCAL void ca_default_exception_handler(struct exception_handler_args args)
 	 */
 	LOCK;
 	sprintf(sprintf_buf, 
-		"%s - with request chan=%s op=%d data type=%s count=%d\n", 
+		"%s - with request chan=%s op=%d data type=%s count=%d", 
 		args.ctx,
 		pName,
 		args.op,
@@ -3265,7 +3291,7 @@ int ca_defunct()
  *	currently implemented as a function 
  *	(may be implemented as a MACRO in the future)
  */
-char APIENTRY *ca_host_name_function(chid chix)
+char * APIENTRY ca_host_name_function(chid chix)
 {
 	IIU	*piiu;
 
@@ -3353,3 +3379,51 @@ int ca_channel_status(int tid)
 	return ECA_NORMAL;
 }
 #endif /*vxWorks*/
+
+
+/*
+ * ca_replace_printf_handler ()
+ */
+int APIENTRY ca_replace_printf_handler (
+int (*ca_printf_func)(const char *pformat, va_list args)
+)
+{
+	if (ca_printf_func) {
+		ca_static->ca_printf_func = ca_printf_func;
+	}
+	else {
+		/*
+		 * os dependent
+		 */
+		caSetDefaultPrintfHandler();
+	}
+
+	return ECA_NORMAL;
+}
+
+
+/*
+ *      ca_printf()
+ */
+int ca_printf(char *pformat, ...)
+{
+	int		(*ca_printf_func)(const char *pformat, va_list args);
+	va_list		theArgs;
+	int		status;
+
+	va_start(theArgs, pformat);
+
+	ca_printf_func = epicsVprintf;
+	if (ca_static) {
+		if (ca_static->ca_printf_func) {
+			ca_printf_func = ca_static->ca_printf_func;
+		}
+	}
+
+	status = (*ca_printf_func) (pformat, theArgs);
+
+	va_end(theArgs);
+
+	return status;
+}
+

src/ca/acctst.c

@@ -9,8 +9,14 @@ static char *sccsId = "@(#) $Id$";
 #include <LIB$ROUTINES.H>
 #endif
 
+/*
+ * ANSI
+ */
 #include	<stdio.h>
+#include	<stdlib.h>
 #include	<assert.h>
+#include	<math.h>
+#include	<float.h>
 
 #include	"os_depen.h"
 
@@ -218,22 +224,22 @@ int doacctst(char *pname)
 
 		double 	dval = 3.3;
 		float	fval = -8893.3;
-		double	dret;
-		float	fret;
+		double	dret = DBL_MAX;
+		float	fret = FLT_MAX;
 
 		status = ca_put(DBR_DOUBLE, chix1, &dval);
 		SEVCHK(status, NULL);
 		status = ca_get(DBR_DOUBLE, chix1, &dret);
 		SEVCHK(status, NULL);
 		ca_pend_io(30.0);
-		assert(dval - dret < .000001);
+		assert( fabs(dval-dret) < DBL_EPSILON*4);
 
 		status = ca_put(DBR_FLOAT, chix1, &fval);
 		SEVCHK(status, NULL);
 		status = ca_get(DBR_FLOAT, chix1, &fret);
 		SEVCHK(status, NULL);
 		ca_pend_io(30.0);
-		assert(fval - fret < .0001);
+		assert( fabs(fval-fret) < FLT_EPSILON*4);
 	}
 
 	/*

src/ca/addrList.h

@@ -18,8 +18,8 @@ void caAddConfiguredAddr(
         SOCKET socket,
         int port);
 
-int	local_addr(SOCKET socket, struct sockaddr_in *plcladdr);
-
+int local_addr(SOCKET socket, struct sockaddr_in *plcladdr);
+int caFetchPortConfig(ENV_PARAM *pEnv, int defaultPort);
 
 union caAddr{
         struct sockaddr_in      inetAddr;

src/ca/bsd_depen.c

@@ -45,10 +45,9 @@ int cac_select_io(struct timeval *ptimeout, int flags)
         long            status;
         IIU             *piiu;
         unsigned long   freespace;
-	int		maxfd;
+	SOCKET		maxfd;
 	caFDInfo	*pfdi;
 
-
         LOCK;
 	pfdi = (caFDInfo *) ellGet(&ca_static->fdInfoFreeList);
 

src/ca/ca_printf.c

@@ -52,12 +52,7 @@ static char *sccsId = "@(#) $Id$";
  *	Dump error messages to the appropriate place
  *
  */
-#ifdef __STDC__
 int ca_printf(char *pformat, ...)
-#else
-int ca_printf(va_alist)
-va_dcl
-#endif
 {
 	va_list		args;
 	int		status;
@@ -65,29 +60,9 @@ va_dcl
 	va_start(args, pformat);
 
 #if defined(vxWorks)
-	{
-		int	logMsgArgs[6];
-		int	i;
-
-		for(i=0; i< NELEMENTS(logMsgArgs); i++){
-			logMsgArgs[i] = va_arg(args, int);	
-		}
-
-		status = logMsg(
-				pformat,
-				logMsgArgs[0],
-				logMsgArgs[1],
-				logMsgArgs[2],
-				logMsgArgs[3],
-				logMsgArgs[4],
-				logMsgArgs[5]);
-			
-	}
+	status = mprintf(pformat, args);
 #else
-	status = vfprintf(
-			stderr,
-			pformat,
-			args);
+	status = vfprintf(stderr, pformat, args);
 #endif 
 
 	va_end(args);

src/ca/catime.c

@@ -1,29 +1,24 @@
 /*
+ *
+ *	CA performance test 
+ *
+ *	History 
+ *	joh	09-12-89 Initial release
+ *	joh	12-20-94 portability
+ *
+ * 
+ */
 
-
-	CA performance test 
-
-	History 
-	joh	09-12-89	Initial release
-
-
-
-*/
-
-#ifdef VMS
-#include <LIB$ROUTINES.H>
-#endif
-
-
-/*	System includes		*/
-#ifdef vxWorks
-#include		<vxWorks.h>
-#include		<taskLib.h>
-#endif
+#include <stdio.h>
+#include <string.h>
+#include <assert.h>
+#include <stdlib.h>
 
 #include 		<cadef.h>
-#include 		<caerr.h>
-#include		<db_access.h>
+
+#ifndef LOCAL
+#define LOCAL static
+#endif
 
 #ifndef OK
 #define OK 0
@@ -41,17 +36,44 @@
 #define NELEMENTS(A) (sizeof (A) / sizeof ((A) [0]))
 #endif
 
-#define NUM 1
 #define ITERATION_COUNT 10000
 
 #define WAIT_FOR_ACK
 
-chid chan_list[min(10000,ITERATION_COUNT)];
+typedef struct testItem {
+	chid 			chix;
+	char 			name[40];
+	int 			type;
+	int			count;
+	union db_access_val	val;	
+}ti;
+
+ti itemList[ITERATION_COUNT];
+
+int catime(char *channelName);
+
+typedef void tf (ti *pItems, unsigned iterations);
+
+LOCAL void test (
+	ti		*pItems,
+	unsigned	iterations
+);
+
+LOCAL tf 	test_search;
+LOCAL tf	test_free;
+LOCAL tf	test_wait;
+LOCAL tf	test_put;
+LOCAL tf	test_wait;
+LOCAL tf	test_get;
+
+void timeIt(
+	tf		*pfunc,
+	ti		*pItem,
+	unsigned	iterations
+);
 
 #ifndef vxWorks
-main(argc, argv)
-int	argc;
-char	**argv;
+int main(int argc, char **argv)
 {
 	char	*pname;
 
@@ -61,167 +83,251 @@ char	**argv;
 	}
 	else{
 		printf("usage: %s <channel name>", argv[0]);
+		return -1;
 	}
+	return 0;
 }
 #endif
 
-catime(channelName)
-char     *channelName;
+
+/*
+ * catime ()
+ */
+int catime (char *channelName)
 {
-  chid			ai_1;
+	long		status;
+  	long		i,j;
+	unsigned 	strsize;
 
-  long			status;
-  long			i,j;
-  void			*ptr;
-  int			test_search(), test_free();
+  	SEVCHK (ca_task_initialize(),"Unable to initialize");
 
-  SEVCHK(ca_task_initialize(),"Unable to initialize");
+	strsize = sizeof(itemList[i].name)-1;
+	for (i=0; i<NELEMENTS(itemList); i++) {
+		strncpy (
+			itemList[i].name, 
+			channelName, 
+			strsize);
+		itemList[i].name[strsize]= '\0';
+		itemList[i].count = 1;
+	}
 
+	printf ("search test\n");
+	timeIt (test_search, itemList, NELEMENTS(itemList));
 
-  SEVCHK(ca_search(channelName,&ai_1),NULL);
-  status = ca_pend_io(5.0);
-  SEVCHK(status,NULL);
-  if(status == ECA_TIMEOUT)
-    exit(OK);
+  	printf (
+		"channel name=%s, native type=%d, native count=%d\n",
+		ca_name(itemList[0].chix),
+		ca_field_type(itemList[0].chix),
+		ca_element_count(itemList[0].chix));
 
-  ptr = (void *) malloc(NUM*sizeof(union db_access_val)+NUM*MAX_STRING_SIZE);
-  if(!ptr)
-    exit(OK);
+  	for (i=0; i<NELEMENTS(itemList); i++) {
+		itemList[i].val.fltval = 0.0;
+		itemList[i].type = DBR_FLOAT; 
+  	}
+	printf ("float test\n");
+  	test (itemList, NELEMENTS(itemList));
 
-  printf("channel name %s native type %d native count %d\n",ai_1+1,ai_1->type,ai_1->count);
-  printf("search test\n");
-  timex(test_search,channelName);
-  printf("free test\n");
-  timex(test_free,ai_1);
+  	for (i=0; i<NELEMENTS(itemList); i++) {
+    		strcpy(itemList[i].val.strval, "0.0");
+		itemList[i].type = DBR_STRING; 
+	}
+	printf ("string test\n");
+  	test (itemList, NELEMENTS(itemList));
 
+  	for (i=0; i<NELEMENTS(itemList); i++) {
+		itemList[i].val.intval = 0;
+		itemList[i].type = DBR_INT; 
+	}
+	printf ("interger test\n");
+  	test (itemList, NELEMENTS(itemList));
 
-  for(i=0;i<NUM;i++)
-    ((float *)ptr)[i] = 0.0;
-  test(ai_1, "DBR_FLOAT", DBR_FLOAT, NUM, ptr);
+  	printf ("free test\n");
+	timeIt (test_free, itemList, NELEMENTS(itemList));
 
-  for(i=0;i<NUM;i++)
-    strcpy((char *)ptr+(MAX_STRING_SIZE*i),"0.0");
-  test(ai_1, "DBR_STRING", DBR_STRING, NUM, ptr);
-
-  for(i=0;i<NUM;i++)
-    ((int *)ptr)[i]=0;
-  test(ai_1, "DBR_INT", DBR_INT, NUM, ptr);
-
-  free(ptr);
-
-  exit(OK);
+  	return OK;
 }
 
 
-test(chix, name, type, count, ptr)
-chid chix;
-char *name;
-int type,count;
-void *ptr;
+
+/*
+ * test ()
+ */
+LOCAL void test (
+	ti		*pItems,
+	unsigned	iterations
+)
 {
-  int test_put(), test_get(), test_wait();
-
-  printf("%s\n",name);
-  timex(test_put,chix, name, type, count, ptr);
-  timex(test_get,chix, name, type, count, ptr);
-  timex(test_wait,chix, name, type, count, ptr);
+	printf ("\tasync put test\n");
+  	timeIt(test_put, pItems, iterations);
+	printf ("\tasync get test\n");
+  	timeIt(test_get, pItems, iterations);
+	printf ("\tsynch get test\n");
+  	timeIt(test_wait, pItems, iterations);
 }
 
-#ifndef vxWorks
-timex(pfunc, arg1, arg2, arg3, arg4, arg5, arg6, arg7)
-void (*pfunc)(); 
-int arg1;
-int arg2; 
-int arg3; 
-int arg4; 
-int arg5; 
-int arg6; 
-int arg7;
+
+/*
+ * timeIt ()
+ */
+void timeIt(
+	tf		*pfunc,
+	ti		*pItems,
+	unsigned	iterations
+)
 {
-	(*pfunc)(arg1, arg2, arg3, arg4, arg5, arg6, arg7);
+	TS_STAMP	end_time;
+	TS_STAMP	start_time;
+	double		delay;
+	int		status;
 
-}
-#endif
-
-test_search(name)
-char *name;
-{
-  int i;
-
-  for(i=0; i< NELEMENTS(chan_list);i++){
-    SEVCHK(ca_search(name,&chan_list[i]),NULL);
-  }
-  SEVCHK(ca_pend_io(0.0),NULL);
+	status = tsLocalTime(&start_time);
+	assert (status == S_ts_OK);
+	(*pfunc) (pItems, iterations);
+	status = tsLocalTime(&end_time);
+	assert (status == S_ts_OK);
+	TsDiffAsDouble(&delay,&end_time,&start_time);
+	printf ("Elapsed Per Item = %f\n", delay/iterations);
 }
 
-test_free(chix)
-chid chix;
+
+/*
+ * test_search ()
+ */
+LOCAL void test_search(
+ti		*pItems,
+unsigned	iterations
+)
 {
-  int 			i;
-  union db_access_val	ival;
+  	int 	i;
+	int	status;
+	chid	chan;
 
-  for(i=0; i< NELEMENTS(chan_list);i++){
-    SEVCHK(ca_clear_channel(chan_list[i]),NULL);
-  }
+	status = ca_search (
+			pItems[0].name, 
+			&chan);
+    	SEVCHK (status, NULL);
+	status = ca_pend_io(0.0);
+
+  	for (i=0; i< iterations;i++) {
+		pItems[i].chix = chan;
+  	}
+
+    	SEVCHK (status, NULL);
+}
+
+
+/*
+ * test_free ()
+ */
+LOCAL void test_free(
+ti		*pItems,
+unsigned	iterations
+)
+{
+  	int 		i;
+	int		status;
+	dbr_int_t	val;
+
+	status = ca_clear_channel (pItems[0].chix);
+    	SEVCHK (status, NULL);
+
+#if 0
 #ifdef WAIT_FOR_ACK
-  SEVCHK(ca_array_get(DBR_INT,1,chix,&ival),NULL);
-  SEVCHK(ca_pend_io(0.0),NULL);
-#else
-  SEVCHK(ca_flush_io(),NULL);
+	status = ca_array_get (DBR_INT, 1, pItems[0].chix, &val);
+    	SEVCHK (status, NULL);
+  	status = ca_pend_io(100.0);
+    	SEVCHK (status, NULL);
+#endif
+
+	status = ca_clear_channel (pItems[0].chix);
+    	SEVCHK (status, NULL);
+  	status = ca_flush_io();
+    	SEVCHK (status, NULL);
 #endif
 }
 
-test_put(chix, name, type, count, ptr)
-chid chix;
-char *name;
-int type,count;
-void *ptr;
+
+/*
+ * test_put ()
+ */
+LOCAL void test_put(
+ti		*pItems,
+unsigned	iterations
+)
 {
-  int i;
+  	int 		i;
+	int		status;
+	dbr_int_t	val;
   
-  for(i=0; i< ITERATION_COUNT;i++){
-    SEVCHK(ca_array_put(type,count,chix,ptr),NULL);
-#if 0
-    ca_flush_io();
-#endif
-  }
+  	for (i=1; i<iterations; i++) {
+		status = ca_array_put(
+				pItems[i].type,
+				pItems[i].count,
+				pItems[i].chix,
+				&pItems[i].val);
+    		SEVCHK (status, NULL);
+  	}
 #ifdef WAIT_FOR_ACK
-  SEVCHK(ca_array_get(type,count,chix,ptr),NULL);
-  SEVCHK(ca_pend_io(0.0),NULL);
-#else
-  SEVCHK(ca_flush_io(),NULL);
+	status = ca_array_get (DBR_INT, 1, pItems[0].chix, &val);
+    	SEVCHK (status, NULL);
+  	status = ca_pend_io(100.0);
 #endif
+	status = ca_array_put(
+			pItems[0].type,
+			pItems[0].count,
+			pItems[0].chix,
+			&pItems[0].val);
+    	SEVCHK (status, NULL);
+  	status = ca_flush_io();
+    	SEVCHK (status, NULL);
 }
 
-test_get(chix, name, type, count, ptr)
-chid chix;
-char *name;
-int type,count;
-void *ptr;
+
+/*
+ * test_get ()
+ */
+LOCAL void test_get(
+ti		*pItems,
+unsigned	iterations
+)
 {
-  int i;
-
-  for(i=0; i< ITERATION_COUNT;i++){
-    SEVCHK(ca_array_get(type,count,chix,ptr),NULL);
-#if 0
-    ca_flush_io();
-#endif
-  }
-  SEVCHK(ca_pend_io(0.0),NULL);
+  	int 	i;
+	int	status;
+  
+  	for (i=0; i<iterations; i++) {
+		status = ca_array_get(
+				pItems[i].type,
+				pItems[i].count,
+				pItems[i].chix,
+				&pItems[i].val);
+    		SEVCHK (status, NULL);
+  	}
+  	status = ca_pend_io(100.0);
+    	SEVCHK (status, NULL);
 }
 
 
-test_wait(chix, name, type, count, ptr)
-chid chix;
-char *name;
-int type,count;
-void *ptr;
+
+/*
+ * test_wait ()
+ */
+LOCAL void test_wait (
+ti		*pItems,
+unsigned	iterations
+)
 {
-  int i;
-
-  for(i=0; i< ITERATION_COUNT;i++){
-    SEVCHK(ca_array_get(type,count,chix,ptr),NULL);
-    SEVCHK(ca_pend_io(0.0),NULL);
-  }
+  	int 	i;
+	int	status;
+  
+  	for (i=1; i<iterations; i++) {
+		status = ca_array_get(
+				pItems[i].type,
+				pItems[i].count,
+				pItems[i].chix,
+				&pItems[i].val);
+    		SEVCHK (status, NULL);
+		status = ca_pend_io(100.0);
+		SEVCHK (status, NULL);
+  	}
 }
 

src/ca/conn.c

@@ -68,7 +68,7 @@ void manage_conn(int silent)
 	IIU		*piiu;
 	ca_time		current;
 	ca_real		delay;
-	unsigned long	idelay;
+	long		idelay;
 
 	/*
 	 * prevent recursion
@@ -214,10 +214,10 @@ void manage_conn(int silent)
 	idelay = idelay << ca_static->ca_search_retry;
 	delay = idelay * CA_RECAST_DELAY; /* sec */	
 	delay = min (CA_RECAST_PERIOD, delay);
-	idelay = delay;
+	idelay = (long) delay;
 	ca_static->ca_conn_retry_delay.tv_sec = idelay;
 	ca_static->ca_conn_retry_delay.tv_usec = 
-		(delay-idelay)*USEC_PER_SEC;
+		(long) ((delay-idelay)*USEC_PER_SEC);
 	ca_static->ca_conn_next_retry = 
 		cac_time_sum (
 			&current,
@@ -347,12 +347,7 @@ LOCAL void logRetryInterval(char *pFN, unsigned lineno)
 
 
 /*
- *
- *
  *	MARK_SERVER_AVAILABLE
- *
- *
- *
  */
 void mark_server_available(struct in_addr *pnet_addr)
 {
@@ -465,16 +460,16 @@ void mark_server_available(struct in_addr *pnet_addr)
 	{
 		ca_real		diff;
 		ca_real		delay;
-		unsigned	idelay;
+		long		idelay;
 		ca_time		ca_delay;
 		ca_time		next;
 
 		delay = (port&CA_RECAST_PORT_MASK);
 		delay /= MSEC_PER_SEC;
 		delay += CA_RECAST_DELAY;
-		idelay = delay;
+		idelay = (long) delay;
 		ca_delay.tv_sec = idelay;
-		ca_delay.tv_usec = (delay-idelay) * USEC_PER_SEC; 
+		ca_delay.tv_usec = (long) ((delay-idelay) * USEC_PER_SEC); 
 		next = cac_time_sum(&currentTime, &ca_delay);
 
 		diff = cac_time_diff(
@@ -484,10 +479,10 @@ void mark_server_available(struct in_addr *pnet_addr)
 			ca_static->ca_conn_next_retry = next;
 			LOGRETRYINTERVAL 
 		}
-		idelay = CA_RECAST_DELAY;
+		idelay = (long) CA_RECAST_DELAY;
 		ca_static->ca_conn_retry_delay.tv_sec = idelay;
 		ca_static->ca_conn_retry_delay.tv_usec = 
-			(CA_RECAST_DELAY-idelay) * USEC_PER_SEC;
+			(long) ((CA_RECAST_DELAY-idelay) * USEC_PER_SEC);
 		ca_static->ca_search_retry = 0;
 	}
 

src/ca/convert.c

@@ -35,11 +35,6 @@ static char	*sccsId = "@(#) $Id$";
 #include	"iocinf.h"
 #include	"net_convert.h"
 
-void htond(double *pHost, double *pNet);
-void ntohd(double *pNet, double *pHost);
-void htonf(float *pHost, float *pNet);
-void ntohf(float *pNet, float *pHost);
-
 /*
  * if hton is true then it is a host to network conversion
  * otherwise vise-versa
@@ -1374,7 +1369,7 @@ unsigned long	num			/* number of values		*/
 }
 
 
-#ifdef CA_FLOAT_MIT
+#if defined(CA_FLOAT_MIT) 
 /************************************************************************/
 /*      double convert 				                        */
 /*      (THIS ASSUMES IEEE IS THE NETWORK FLOATING POINT FORMAT)        */
@@ -1383,7 +1378,7 @@ unsigned long	num			/* number of values		*/
 /* (this includes mapping of fringe reals to zero or infinity) */
 /* (byte swaps included in conversion */
 
-struct ieeedbl{
+struct ieeedbl {
         unsigned int    mant2 : 32;
         unsigned int    mant1 : 20;
         unsigned int    exp   : 11;
@@ -1396,7 +1391,7 @@ struct ieeedbl{
 /*      -1022<exp<1024  with mantissa of form 1.mant                    */
 #define DBLEXPMINIEEE   -1022   /* min for norm # IEEE exponent */
 
-struct mitdbl{
+struct mitdbl {
         unsigned int    mant1 : 7;
         unsigned int    exp   : 8;
         unsigned int    sign  : 1;
@@ -1413,7 +1408,6 @@ struct mitdbl{
 #define        DBLEXPMAXMIT    126     /* max MIT exponent             */
 #define        DBLEXPMINMIT    -128    /* min MIT exponent             */
 
-
 void htond(double *pHost, double *pNet)
 {
 	double		copyin;
@@ -1538,19 +1532,19 @@ struct mitflt{
 
 void htonf(float *pHost, float *pNet)
 {
-	struct mitflt	*pMIT = pHost;
-	struct ieeeflt	*pIEEE = pNet;
+	struct mitflt	*pMIT = (struct mitflt *) pHost;
+	struct ieeeflt	*pIEEE = (struct ieeeflt *) pNet;
     	long  		exp,mant,sign;
 
-    	sign = pHost->sign;
+    	sign = pMIT->sign;
 
-	if( (short)(pMIT->exp < EXPMINIEEE + MIT_SB){
+	if( ((int)pMIT->exp) < EXPMINIEEE + MIT_SB){
 		exp       = 0;
 		mant      = 0;
 		sign      = 0;
 	}
 	else{
-		exp = (short)pMIT->exp-MIT_SB+IEEE_SB;
+		exp = ((int)pMIT->exp)-MIT_SB+IEEE_SB;
 		mant = (pMIT->mant1<<16) | pMIT->mant2;
     	}
     	pIEEE->mant   = mant;
@@ -1566,12 +1560,12 @@ void htonf(float *pHost, float *pNet)
  */
 void ntohf(float *pNet, float *pHost)
 {
-	struct mitflt	*pMIT = pHost;
-	struct ieeeflt	*pIEEE = pNet;
+	struct mitflt	*pMIT = (struct mitflt *) pHost;
+	struct ieeeflt	*pIEEE = (struct ieeeflt *) pNet;
   	long  		exp,mant2,mant1,sign;
 
     	*(ca_uint32_t *)pIEEE = ntohl(*(ca_uint32_t *)pIEEE);
-    	if( (short) pIEEE->exp > EXPMAXMIT + IEEE_SB){
+    	if( ((int)pIEEE->exp) > EXPMAXMIT + IEEE_SB){
 		sign      = pIEEE->sign;
 		exp       = EXPMAXMIT + MIT_SB;
 		mant2     = ~0;
@@ -1598,7 +1592,7 @@ void ntohf(float *pNet, float *pHost)
 
 #endif /*CA_FLOAT_MIT*/
 
-#ifndef CA_FLOAT_MIT
+#if defined(CA_FLOAT_IEEE) && 0
 
 /*
  * htond ()
@@ -1606,6 +1600,7 @@ void ntohf(float *pNet, float *pHost)
  */
 void htond (double *IEEEhost, double *IEEEnet)
 {
+#ifdef CA_LITTLE_ENDIAN
     	ca_uint32_t	*pHost = (ca_uint32_t *) IEEEhost;
     	ca_uint32_t	*pNet = (ca_uint32_t *) IEEEnet;
 	ca_uint32_t	tmp;
@@ -1618,6 +1613,9 @@ void htond (double *IEEEhost, double *IEEEnet)
 	tmp = pHost[0];
 	pNet[0] = htonl (pHost[1]);
 	pNet[1] = htonl (tmp);	
+#else
+	*IEEEnet = *IEEEhost;
+#endif
 }
 
 /*
@@ -1626,6 +1624,7 @@ void htond (double *IEEEhost, double *IEEEnet)
  */
 void ntohd (double *IEEEnet, double *IEEEhost)
 {
+#ifdef CA_LITTLE_ENDIAN
     	ca_uint32_t	*pHost = (ca_uint32_t *) IEEEhost;
     	ca_uint32_t	*pNet = (ca_uint32_t *) IEEEnet;
 	ca_uint32_t	tmp;
@@ -1638,6 +1637,9 @@ void ntohd (double *IEEEnet, double *IEEEhost)
 	tmp = pNet[0];
 	pHost[0] = ntohl (pNet[1]);
 	pHost[1] = htonl (tmp);	
+#else
+	*IEEEhost = *IEEEnet;
+#endif
 }
 
 /*
@@ -1664,7 +1666,7 @@ void htonf (float *IEEEhost, float *IEEEnet)
     	*pNet = htonl (*pHost);
 }
 
-#endif /* not CA_MIT_FLOAT*/
+#endif /* IEEE float and little endian */
 
 
 

src/ca/flow_control.c

@@ -50,8 +50,8 @@ static char	*sccsId = "@(#) $Id$";
 void flow_control(struct ioc_in_use *piiu)
 {
 	unsigned        nbytes;
-	register int    status;
-	register int    busy = piiu->client_busy;
+	int    		status;
+	int    		busy = piiu->client_busy;
 
 	LOCK;
 

src/ca/if_depen.c

@@ -79,7 +79,9 @@ int local_addr(int s, struct sockaddr_in *plcladdr)
 	ifconf.ifc_req = ifreq;
 	status = socket_ioctl(s, SIOCGIFCONF, &ifconf);
 	if (status < 0 || ifconf.ifc_len == 0) {
-		ca_printf("CAC: ioctl failed %s\n", strerror(MYERRNO));
+		ca_printf(
+			"CAC: ioctl failed because \"%s\"\n", 
+			strerror(MYERRNO));
 		ifconf.ifc_len = 0;
 	}
 
@@ -145,7 +147,7 @@ int local_addr(int s, struct sockaddr_in *plcladdr)
 
 #if 0
 /*
- * An alternate sloution
+ * An alternate solution
  * for os without the if routines
  */
 /*

src/ca/iocinf.c

@@ -73,7 +73,6 @@ static char *sccsId = "@(#) $Id$";
 #define		CA_GLBLSOURCE
 #include	"iocinf.h"
 #include	"net_convert.h"
-#include	<netinet/tcp.h>
 
 LOCAL void 	tcp_recv_msg(struct ioc_in_use *piiu);
 LOCAL void 	cac_tcp_send_msg_piiu(struct ioc_in_use *piiu);
@@ -188,6 +187,7 @@ int			net_proto
 			UNLOCK;
 			return ECA_ALLOCMEM;
 		}
+      		memset((char *)&pNode->destAddr,0,sizeof(pNode->destAddr));
   		pNode->destAddr.inetAddr.sin_family = AF_INET;
 		pNode->destAddr.inetAddr.sin_addr = *pnet_addr;
   		pNode->destAddr.inetAddr.sin_port = 
@@ -219,7 +219,7 @@ int			net_proto
 				IPPROTO_TCP,
 				TCP_NODELAY,
 				(char *)&true,
-				sizeof true);
+				sizeof(true));
       		if(status < 0){
 			free(piiu);
         		status = socket_close(sock);
@@ -443,7 +443,6 @@ int			net_proto
 			piiu->host_name_str, 
 			"<<unknown host>>", 
 			sizeof(piiu->host_name_str)-1);
-
       		break;
 
 	default:
@@ -641,6 +640,8 @@ LOCAL void cac_udp_send_msg_piiu(struct ioc_in_use *piiu)
 
 	pNode = (caAddrNode *) piiu->destAddr.node.next;
 	while(pNode){
+		unsigned long	actualSendCnt;
+
 		status = sendto(
 				piiu->sock_chan,
 				&piiu->send.buf[piiu->send.rdix],	
@@ -649,18 +650,23 @@ LOCAL void cac_udp_send_msg_piiu(struct ioc_in_use *piiu)
 				&pNode->destAddr.sockAddr,
 				sizeof(pNode->destAddr.sockAddr));
 		if(status<0){
-			if(	MYERRNO != EWOULDBLOCK && 
-				MYERRNO != ENOBUFS && 
-				MYERRNO != EINTR){
+			int	localErrno;
+
+			localErrno = MYERRNO;
+
+			if(	localErrno != EWOULDBLOCK && 
+				localErrno != ENOBUFS && 
+				localErrno != EINTR){
 				ca_printf(
 					"CAC: error on socket send() %s\n",
-					strerror(MYERRNO));
+					strerror(localErrno));
 			}
 
 			TAG_CONN_DOWN(piiu);
 			break;
 		}
-		assert(status == sendCnt);
+		actualSendCnt = (unsigned long) status;
+		assert (actualSendCnt == sendCnt);
 		pNode = (caAddrNode *) pNode->node.next;
 	}
 
@@ -687,6 +693,7 @@ LOCAL void cac_tcp_send_msg_piiu(struct ioc_in_use *piiu)
 {
 	unsigned long	sendCnt;
   	int		status;
+	int		localError;
 
 	/*
 	 * check for shutdown in progress
@@ -715,8 +722,6 @@ LOCAL void cac_tcp_send_msg_piiu(struct ioc_in_use *piiu)
 			sendCnt,
 			0);
 	if(status>=0){
-		assert(status<=sendCnt);
-
 		piiu->sendPending = FALSE;
 		CAC_RING_BUFFER_READ_ADVANCE(&piiu->send, status);
 		
@@ -729,9 +734,11 @@ LOCAL void cac_tcp_send_msg_piiu(struct ioc_in_use *piiu)
 		return;
 	}
 
-	if(	MYERRNO == EWOULDBLOCK ||
-		MYERRNO == ENOBUFS ||
-		MYERRNO == EINTR){
+	localError = MYERRNO;
+
+	if(	localError == EWOULDBLOCK ||
+		localError == ENOBUFS ||
+		localError == EINTR){
 			UNLOCK;
 			if(!piiu->sendPending){
 				cac_gettimeval(&piiu->timeAtSendBlock);
@@ -740,12 +747,12 @@ LOCAL void cac_tcp_send_msg_piiu(struct ioc_in_use *piiu)
 			return;
 	}
 
-	if(	MYERRNO != EPIPE && 
-		MYERRNO != ECONNRESET &&
-		MYERRNO != ETIMEDOUT){
+	if(	localError != EPIPE && 
+		localError != ECONNRESET &&
+		localError != ETIMEDOUT){
 		ca_printf(	
 			"CAC: error on socket send() %s\n",
-			strerror(MYERRNO));
+			strerror(localError));
 	}
 
 	TAG_CONN_DOWN(piiu);
@@ -890,7 +897,6 @@ LOCAL void tcp_recv_msg(struct ioc_in_use *piiu)
 		return;
     	}
 
-
   	if(status>MAX_MSG_SIZE){
     		ca_printf(	"CAC: recv_msg(): message overflow %l\n",
 				status-MAX_MSG_SIZE);
@@ -1174,15 +1180,15 @@ void close_ioc (struct ioc_in_use *piiu)
 		chix = (chid) &piiu->chidlist.node.next;
 		while (chix = (chid) chix->node.next) {
 			chix->type = TYPENOTCONN;
-			chix->count = 0;
+			chix->count = 0U;
 			chix->state = cs_prev_conn;
-			chix->id.sid = ~0L;
+			chix->id.sid = ~0U;
 			chix->ar.read_access = FALSE;
 			chix->ar.write_access = FALSE;
 			/*
 			 * try to reconnect
 			 */
-			chix->retry = 0;
+			chix->retry = 0U;
 		}
 
 		if (piiu->chidlist.count) {
@@ -1507,6 +1513,8 @@ unsigned long cacRingBufferWriteSize(struct ca_buffer *pBuf, int contiguous)
  * vxWorks user will need to configure a DNS format name for the
  * host name if they wish to be cnsistent with UNIX and VMS hosts.
  *
+ * this needs to attempt to determine if the process is a remote 
+ * login - hard to do under UNIX
  */
 char *localHostName()
 {
@@ -1564,6 +1572,7 @@ void caAddConfiguredAddr(ELLLIST *pList, ENV_PARAM *pEnv,
 	}
 
         while(pToken = getToken(&pStr)){
+      		memset((char *)&addr,0,sizeof(addr));
 		addr.inetAddr.sin_family = AF_INET;
   		addr.inetAddr.sin_port = htons(port);
                 addr.inetAddr.sin_addr.s_addr = inet_addr(pToken);
@@ -1654,32 +1663,38 @@ void caPrintAddrList(ELLLIST *pList)
 /*
  * caFetchPortConfig()
  */
-unsigned caFetchPortConfig(ENV_PARAM *pEnv, unsigned defaultPort)
+int caFetchPortConfig(ENV_PARAM *pEnv, int defaultPort)
 {
 	long		longStatus;
-	long		port;
+	long		epicsParam;
+	int 		port;
 
-	longStatus = envGetLongConfigParam(pEnv, &port);
+	longStatus = envGetLongConfigParam(pEnv, &epicsParam);
 	if (longStatus!=0) {
-		port = defaultPort;
+		epicsParam = defaultPort;
 		ca_printf ("EPICS \"%s\" integer fetch failed\n", pEnv->name);
-		ca_printf ("setting \"%s\" = %ld\n", pEnv->name, port);
+		ca_printf ("setting \"%s\" = %ld\n", pEnv->name, epicsParam);
 	}
 
 	/*
-	 * Thus must be a server port that will fit in a signed
+	 * This must be a server port that will fit in a signed
 	 * short
 	 */
-	if (port <= IPPORT_USERRESERVED || port>SHRT_MAX) {
+	if (epicsParam<=IPPORT_USERRESERVED || epicsParam>SHRT_MAX) {
 		ca_printf ("EPICS \"%s\" out of range\n", pEnv->name);
 		/*
 		 * Quit if the port is wrong due CA coding error
 		 */
-		assert (port != defaultPort);
-		port = defaultPort;
-		ca_printf ("Setting \"%s\" = %ld\n", pEnv->name, port);
+		assert (epicsParam != defaultPort);
+		epicsParam = defaultPort;
+		ca_printf ("Setting \"%s\" = %ld\n", pEnv->name, epicsParam);
 	}
 
+	/*
+	 * ok to clip to int here because we checked the range
+	 */
+	port = (int) epicsParam;
+
 	return port;
 }
 

src/ca/iocinf.h

@@ -85,6 +85,7 @@ HDRVERSIONID(iocinfh, "$Id$")
 #include <signal.h>
 #include <stdlib.h>
 #include <limits.h>
+#include <stdarg.h>
 
 
 /*
@@ -99,6 +100,7 @@ HDRVERSIONID(iocinfh, "$Id$")
 #include <bucketLib.h>
 #include <ellLib.h> 
 #include <envDefs.h> 
+#include <epicsPrint.h> 
 
 /*
  * CA private includes 
@@ -168,8 +170,8 @@ struct pending_io_event{
 typedef struct timeval ca_time;
 
 #define LD_CA_TIME(FLOAT_TIME,PCATIME) \
-((PCATIME)->tv_sec = (FLOAT_TIME), \
-(PCATIME)->tv_usec = ((FLOAT_TIME)-(PCATIME)->tv_sec)*USEC_PER_SEC)
+((PCATIME)->tv_sec = (long) (FLOAT_TIME), \
+(PCATIME)->tv_usec = (long) ((FLOAT_TIME)-(PCATIME)->tv_sec)*USEC_PER_SEC)
 
 /*
  * dont adjust
@@ -409,6 +411,7 @@ struct  ca_static{
 	void		(*ca_connection_func)
 				(struct connection_handler_args);
 	void		*ca_connection_arg;
+	int		(*ca_printf_func)(const char *pformat, va_list args);
 	void		(*ca_fd_register_func)
 				(void *, SOCKET, int);
 	void		*ca_fd_register_arg;
@@ -591,6 +594,7 @@ ca_real cac_time_diff(ca_time *pTVA, ca_time *pTVB);
 ca_time cac_time_sum(ca_time *pTVA, ca_time *pTVB);
 void caIOBlockFree(evid pIOBlock);
 void clearChannelResources(unsigned id);
+void caSetDefaultPrintfHandler ();
 
 /*
  * !!KLUDGE!!

src/ca/iocmsg.h

@@ -82,7 +82,7 @@ typedef float           ca_float32_t;
 #define IOC_WRITE		4	/* write a channel value */
 #define IOC_SNAPSHOT		5	/* snapshot of the system */
 #define	IOC_SEARCH		6	/* IOC channel search */
-/*				7				*/
+#define IOC_BUILD		7	/* build - obsolete */
 #define IOC_EVENTS_OFF		8	/* flow control */ 
 #define IOC_EVENTS_ON		9	/* flow control */ 
 #define IOC_READ_SYNC		10	/* purge old reads */ 
@@ -91,7 +91,7 @@ typedef float           ca_float32_t;
 #define IOC_RSRV_IS_UP		13	/* CA server has joined the net */
 #define IOC_NOT_FOUND		14	/* channel not found */
 #define IOC_READ_NOTIFY		15	/* add a one shot event */
-/*				16				*/
+#define IOC_READ_BUILD		16	/* read and build - obsolete */
 #define REPEATER_CONFIRM	17	/* registration confirmation */
 #define IOC_CLAIM_CIU		18	/* client claims resource in server */
 #define IOC_WRITE_NOTIFY	19	/* notify after write chan value */

src/ca/net_convert.h

@@ -63,10 +63,30 @@
 #  	endif
 #endif
 
-#if !defined(MIT_FLOAT) && !defined(CA_LITTLE_ENDIAN)
-#define htond(IEEEhost, IEEEnet) (*(double *)(IEEEnet) = *(double *)(IEEEhost))
-#define ntohd(IEEEnet, IEEEhost) (*(double *)(IEEEhost) = *(double *)(IEEEnet))
-#define htonf(IEEEhost, IEEEnet) (*(float *)(IEEEnet) = *(float *)(IEEEhost))
-#define ntohf(IEEEnet, IEEEhost) (*(float *)(IEEEhost) = *(float *)(IEEEnet))
+#if defined(CA_FLOAT_IEEE) && !defined(CA_LITTLE_ENDIAN)
+#	define htond(IEEEhost, IEEEnet) \
+		(*(double *)(IEEEnet) = *(double *)(IEEEhost))
+#	define ntohd(IEEEnet, IEEEhost) \
+		(*(double *)(IEEEhost) = *(double *)(IEEEnet))
+#	define htonf(IEEEhost, IEEEnet) \
+		(*(float *)(IEEEnet) = *(float *)(IEEEhost))
+#	define ntohf(IEEEnet, IEEEhost) \
+		(*(float *)(IEEEhost) = *(float *)(IEEEnet))
+#elif defined(CA_FLOAT_IEEE) && defined(CA_LITTLE_ENDIAN)
+#	define ntohf(NET,HOST)  \
+		{*((u_long *)(HOST)) = ntohl(*((u_long *)(NET )));}
+#	define htonf(HOST,NET) \
+		{*((u_long *)(NET) ) = htonl(*((u_long *)(HOST)));}
+#	define ntohd(NET,HOST) \
+		{ ((u_long *)(HOST))[1] = ntohl(((u_long *)(NET))[0]) ; \
+		((u_long *)(HOST))[0] = ntohl(((u_long *)(NET))[1]) ;}
+#	define htond(HOST,NET) \
+		{ ((u_long *)(NET))[1] = htonl(((u_long *)(HOST))[0]) ; \
+		((u_long *)(NET))[0] = htonl(((u_long *)(HOST))[1]) ;}
+#else
+	void htond(double *pHost, double *pNet);
+	void ntohd(double *pNet, double *pHost);
+	void htonf(float *pHost, float *pNet);
+	void ntohf(float *pNet, float *pHost);
 #endif
 

src/ca/netdb_depen.c

@@ -39,11 +39,15 @@ static char	*sccsId = "@(#) $Id$";
 #include <string.h>
 #include <assert.h>
 
-#include <sys/types.h>
-#include <sys/socket.h>
-#include <netinet/in.h>
-#include <arpa/inet.h>
-#include <netdb.h>
+#ifdef _WINDOWS
+#	include <winsock.h>
+#else
+#	include <sys/types.h>
+#	include <sys/socket.h>
+#	include <netinet/in.h>
+#	include <arpa/inet.h>
+#	include <netdb.h>
+#endif
 
 
 /*
@@ -55,7 +59,7 @@ void caHostFromInetAddr(struct in_addr *pnet_addr, char *pBuf, unsigned size)
         struct hostent  *ent;
 
         ent = gethostbyaddr(
-                        pnet_addr,
+                        (char *) pnet_addr,
                         sizeof(*pnet_addr),
                         AF_INET);
         if(ent){

src/ca/os_depen.h

@@ -24,6 +24,7 @@
  *			pairs reside at the same C bracket level
  *      .11 GeG 120992	support VMS/UCX
  *      .12 CJM 130794  define MYERRNO properly for UCX
+ *	.13 CJM 311094  mods to support DEC C compiler
  *
  */
 
@@ -46,6 +47,7 @@ static char *os_depenhSccsId = "$Id$";
 #	include <sys/param.h>
 #	include <sys/socket.h>
 #	include <netinet/in.h>
+#	include <netinet/tcp.h>
 #	include <net/if.h>
 #	define CA_OS_CONFIGURED
 #endif
@@ -57,6 +59,7 @@ static char *os_depenhSccsId = "$Id$";
 #	include <sys/ioctl.h>
 #	include <sys/socket.h>
 #	include <netinet/in.h>
+#	include <netinet/tcp.h>
 #	include <net/if.h>
 
 #	include <systime.h>
@@ -93,9 +96,13 @@ static char *os_depenhSccsId = "$Id$";
 #	include <sys/types.h>
 #	include <sys/socket.h>
 #	include <netinet/in.h>
-#       define  __TIME_LOADED /* dont include VMS CC time.h under MULTINET */
+#	include <netinet/tcp.h>
+#if !defined(UCX) 
 #	include <sys/time.h>
-#       include <tcp/errno.h>
+#	include <tcp/errno.h>
+#else
+#       include <errno>
+#endif
 #	include <ssdef>
 #	include <stsdef>
 #	include <iodef.h>
@@ -104,12 +111,12 @@ static char *os_depenhSccsId = "$Id$";
 #       include <descrip.h>
 #	define MAXHOSTNAMELEN 75
 #ifdef UCX /* GeG 09-DEC-1992 */
-#       include         <sys/ucx$inetdef.h>
-#       include         <ucx.h>
+#       include <sys/ucx$inetdef.h>
+#       include <ucx.h>
 #else
-#	include		<net/if.h>
-#       include         <vms/inetiodef.h>
-#       include         <sys/ioctl.h>
+#	include	<net/if.h>
+#       include <vms/inetiodef.h>
+#       include <sys/ioctl.h>
 #endif
 #	define CA_OS_CONFIGURED
 #endif /*VMS*/
@@ -123,15 +130,12 @@ static char *os_depenhSccsId = "$Id$";
 #endif /*_WINDOWS*/
 
 #ifndef CA_OS_CONFIGURED
-#error Please define one of vxWorks, UNIX or VMS 
+#error Please define one of vxWorks, UNIX VMS, or _WINDOWS
 #endif
 
 /*
- * Big endin architecture is assumed. Otherwise set "CA_LITTLE_ENDIAN". 
- *
- * IEEE floating point architecture assumed. Set "CA_FLOAT_MIT" if
- * appropriate. No other floating point formats currently
- * supported.
+ * Here are the definitions for architecture dependent byte ordering 
+ * and floating point format
  */
 #if defined(VAX) 
 #	define CA_FLOAT_MIT
@@ -139,10 +143,10 @@ static char *os_depenhSccsId = "$Id$";
 #elif defined(_X86_)
 #	define CA_FLOAT_IEEE
 #	define CA_LITTLE_ENDIAN
-#elif (defined(__ALPHA) || defined(__alpha)) && defined(VMS)
+#elif (defined(__ALPHA) && defined(VMS) || defined(__alpha)) && defined(VMS)
 #	define CA_FLOAT_MIT
 #	define CA_LITTLE_ENDIAN
-#elif (defined(__ALPHA) || defined(__alpha)) && defined(UNIX)
+#elif (defined(__ALPHA) && defined(UNIX) || defined(__alpha)) && defined(UNIX)
 #	define CA_FLOAT_IEEE
 #	define CA_LITTLE_ENDIAN
 #else
@@ -269,7 +273,6 @@ static char *os_depenhSccsId = "$Id$";
 #	else
 #           ifdef UCX
 #               define MYERRNO errno
-                extern volatile int noshare errno ;
 #           else
 # 		define MYERRNO	socket_errno
 #           endif
@@ -286,6 +289,12 @@ static char *os_depenhSccsId = "$Id$";
 #endif
 
 #ifdef _WINDOWS
+#  	define LOCK
+#  	define UNLOCK  
+#  	define LOCKEVENTS
+#  	define UNLOCKEVENTS
+#	define EVENTLOCKTEST		(post_msg_active)
+#	define MAXHOSTNAMELEN 		75
 #	define IPPORT_USERRESERVED	5000
 #	define EWOULDBLOCK		WSAEWOULDBLOCK
 #	define ENOBUFS			WSAENOBUFS

src/ca/posix_depen.c

@@ -31,14 +31,6 @@
  *
  */
 
-/*
- * ANSI includes
- */
-#include <assert.h>
-#include <string.h>
-#include <stdlib.h>
-#include <stdarg.h>
-
 #include <unistd.h>
 #include <pwd.h>
 #include <sys/param.h>
@@ -98,12 +90,10 @@ void cac_mux_io(struct timeval  *ptimeout)
                         timeout.tv_sec = 0;
                 }
                 while(count>0);
-
                 ca_process_input_queue();
 
         }
         while(newInput);
-
 }
 
 log_time(char *pStr)
@@ -220,7 +210,7 @@ char *localUserName()
 	if(!pName){
 		pName = getpwuid(getuid())->pw_name;
 		if(!pName){
-			return NULL;
+			pName = "";
 		}
 	}
 
@@ -281,25 +271,14 @@ void ca_spawn_repeater()
 	exit(0);
 }
 
-
 
 /*
- *      ca_printf()
+ * caSetDefaultPrintfHandler ()
+ * use the normal default here
+ * ( see access.c )
  */
-int ca_printf(char *pformat, ...)
+void caSetDefaultPrintfHandler ()
 {
-        va_list         args;
-        int             status;
-
-        va_start(args, pformat);
-
-        status = vfprintf(
-                        stderr,
-                        pformat,
-                        args);
-
-        va_end(args);
-
-        return status;
+        ca_static->ca_printf_func = epicsVprintf;
 }
 

src/ca/repeater.c

@@ -20,11 +20,11 @@
  *	Los Alamos National Laboratory
  *
  *	Direct inqueries to:
- *	Andy Kozubal, AT-8, Mail Stop H820
+ *	Jeff HIll, AT-8, Mail Stop H820
  *	Los Alamos National Laboratory
  *	Los Alamos, New Mexico 87545
- *	Phone: (505) 667-6508
- *	E-mail: kozubal@k2.lanl.gov
+ *	Phone: (505) 665-1831
+ *	E-mail: johill@lanl.gov
  *
  *	PURPOSE:
  *	Broadcasts fan out over the LAN, but UDP does not allow
@@ -141,8 +141,9 @@ void ca_repeater()
 
 	status = local_addr(sock, &local);
 	if(status != OK){
-		ca_printf("CA Repeater: no inet interfaces online?\n");
-		assert(0);
+		ca_printf(
+	"CA Repeater: failed during initialization - no local IP address\n");
+		exit (0);
 	}
 
 #ifdef DEBUG

src/ca/service.c

@@ -688,7 +688,7 @@ struct in_addr  	*pnet_addr
 		}
 
 		if (CA_V44(CA_PROTOCOL_VERSION,piiu->minor_version_number)) {
-        		chan->id.sid = ntohl (piiu->curMsg.m_available);
+        		chan->id.sid = piiu->curMsg.m_available;
 		}
 		reconnect_channel(piiu, chan);
 		break;

src/ca/syncgrp.c

@@ -97,7 +97,7 @@ void ca_sg_shutdown(struct ca_static *ca_temp)
 /*
  * ca_sg_create()
  */
-int ca_sg_create(CA_SYNC_GID *pgid)
+int APIENTRY ca_sg_create(CA_SYNC_GID *pgid)
 {
 	int	status;
 	CASG 	*pcasg;
@@ -162,7 +162,7 @@ int ca_sg_create(CA_SYNC_GID *pgid)
 /*
  * ca_sg_delete()
  */
-int ca_sg_delete(CA_SYNC_GID gid)
+int APIENTRY ca_sg_delete(CA_SYNC_GID gid)
 {
 	int	status;
 	CASG 	*pcasg;
@@ -200,7 +200,7 @@ int ca_sg_delete(CA_SYNC_GID gid)
 /*
  * ca_sg_block()
  */
-int ca_sg_block(CA_SYNC_GID gid, ca_real timeout)
+int APIENTRY ca_sg_block(CA_SYNC_GID gid, ca_real timeout)
 {
 	struct timeval	beg_time;
 	struct timeval	cur_time;
@@ -270,8 +270,8 @@ int ca_sg_block(CA_SYNC_GID gid, ca_real timeout)
 		/*
 		 * wait for asynch notification
 		 */
-		tmo.tv_sec = remaining;
-		tmo.tv_usec = (remaining-tmo.tv_sec)*USEC_PER_SEC;
+		tmo.tv_sec = (long) remaining;
+		tmo.tv_usec = (long) ((remaining-tmo.tv_sec)*USEC_PER_SEC);
 		cac_block_for_sg_completion (pcasg, &tmo);
 	}
 	pcasg->opPendCount = 0;
@@ -283,7 +283,7 @@ int ca_sg_block(CA_SYNC_GID gid, ca_real timeout)
 /*
  * ca_sg_reset
  */
-int ca_sg_reset(CA_SYNC_GID gid)
+int APIENTRY ca_sg_reset(CA_SYNC_GID gid)
 {
 	CASG 	*pcasg;
 
@@ -305,7 +305,7 @@ int ca_sg_reset(CA_SYNC_GID gid)
 /*
  * ca_sg_test
  */
-int ca_sg_test(CA_SYNC_GID gid)
+int APIENTRY ca_sg_test(CA_SYNC_GID gid)
 {
 	CASG 	*pcasg;
 
@@ -331,7 +331,7 @@ int ca_sg_test(CA_SYNC_GID gid)
 /*
  * ca_sg_array_put()
  */
-int     ca_sg_array_put(
+int APIENTRY ca_sg_array_put(
 CA_SYNC_GID 	gid, 
 chtype		type,
 unsigned long 	count, 
@@ -396,7 +396,7 @@ void 		*pvalue)
 /*
  * ca_sg_array_get()
  */
-int     ca_sg_array_get(
+int APIENTRY ca_sg_array_get(
 CA_SYNC_GID 	gid, 
 chtype		type,
 unsigned long 	count, 

src/ca/test_event.c

@@ -19,7 +19,7 @@ static char *sccsId = "$Id$";
 #include	"iocinf.h"
 
 
-void ca_test_event(struct event_handler_args args)
+void APIENTRY ca_test_event(struct event_handler_args args)
 {
   ca_printf("CAC: ~~~### in test event for [%s] ###~~~\n",args.chid+1);
   ca_printf("CAC: User argument\t%x\n", args.usr);

src/ca/ucx.h

@@ -6,6 +6,8 @@
  *
  *      GeG	09-DEC-1992	initial edit
  *      CJM     13-Jul-1994     add fd_set etc for R3.12
+ *      CJM     09-Dec-1994     define fd_set etc. so it will compile for
+ *                              both DEC C and Vax C
  *
  */
 #ifndef _UCX_H_
@@ -70,13 +72,14 @@ typedef long fd_mask ;
 #define howmany(x, y)  (((x)+((y)-1))/(y))
 #endif
 
-typedef struct fd_set {
-        fd_mask fds_bits[howmany(FD_SETSIZE, NFDBITS)] ;
-} fd_set ;
+/*
+ * Both DEC C and VAX C only allow 32 fd's at once
+ */
+typedef int fd_set ;
 
-#define FD_SET(n, p)    ((p)->fds_bits[(n)/NFDBITS] |= (1 << ((n) % NFDBITS)))
-#define FD_CLR(n, p)    ((p)->fds_bits[(n)/NFDBITS] &= ~(1 << ((n) % NFDBITS)))
-#define FD_ISSET(n, p)  ((p)->fds_bits[(n)/NFDBITS] & (1 << ((n) % NFDBITS)))
+#define FD_SET(n, p)    (*(p) |= (1 << ((n) % NFDBITS)))
+#define FD_CLR(n, p)    (*(p) &= ~(1 << ((n) % NFDBITS)))
+#define FD_ISSET(n, p)  (*(p) & (1 << ((n) % NFDBITS)))
 #define FD_ZERO(p)      bzero((char *)(p), sizeof (*(p)))
 
 #include <iodef.h>

src/ca/vms_depen.c

@@ -31,15 +31,6 @@
  *
  */
 
-/*
- * ANSI includes
- */
-#include <stdio.h>
-#include <assert.h>
-#include <string.h>
-#include <stdLib.h>
-#include <stdarg.h>
-
 /*
  * VMS includes
  */
@@ -147,7 +138,7 @@ void os_specific_sg_io_complete(CASG *pcasg)
 /*
  * cac_block_for_sg_completion()
  */
-void cac_block_for_sg_completion(pTV)
+void cac_block_for_sg_completion(CASG *pcasg, struct timeval *pTV)
 {
 	cac_mux_io(pTV);
 }
@@ -183,11 +174,7 @@ void cac_os_depen_exit (struct ca_static *pcas)
 
 
 /*
- *
  * localUserName() - for VMS 
- *
- * o Indicates failure by setting ptr to nill
- *
  */
 char *localUserName()
 {
@@ -230,24 +217,13 @@ char *localUserName()
 			NULL,
 			NULL,
 			NULL);
+
 	if(status != SS$_NORMAL){
-		return NULL;
+		strcpy (pName, "");
 	}
 
-	/*
-	 * test for remote login
-	 */
 	if(jobTypeSize != sizeof(jobType)){
-		return NULL;
-	}
-
-/*
- * This does not appear to change when it is
- * a remote login ??
- */
-	if(jobType != JPI$K_LOCAL && jobType != JPI$K_DETACHED){
-		pTmp = "REMOTE";
-		return pTmp;
+		strcpy (pName, "");
 	}
 
 	/*
@@ -335,19 +311,12 @@ void caHostFromInetAddr(struct in_addr *pnet_addr, char *pBuf, unsigned size)
 
 
 /*
- *      ca_printf()
+ * caSetDefaultPrintfHandler ()
+ * use the normal default here
+ * ( see access.c )
  */
-int ca_printf(char *pformat, ...)
+void caSetDefaultPrintfHandler ()
 {
-        va_list         args;
-        int             status;
-
-        va_start(args, pformat);
-
-        status = vfprintf(stderr, pformat, args);
-
-        va_end(args);
-
-        return status;
+        ca_static->ca_printf_func = epicsVprintf;
 }
 

src/ca/vxWorks_depen.c

@@ -31,8 +31,6 @@
  *
  */
 
-#include <stdarg.h>
-
 #include <callback.h>
 #include "iocinf.h"
 #include "remLib.h"
@@ -379,6 +377,7 @@ int cac_os_depen_init(struct ca_static *pcas)
 		return status;
 	}
 
+
 	evuser = (void *) db_init_events();
 	assert(evuser);
 
@@ -881,40 +880,17 @@ void cac_recv_task(int  tid)
 
 
 /*
+ * caSetDefaultPrintfHandler()
  *
+ * replace the default printf handler with a 
+ * vxWorks specific one that calls logMsg ()
+ * so that:
  *
- *      ca_printf()
- *
- *
+ * o messages go to the log file
+ * o messages dont get intermixed
  */
-int ca_printf(char *pformat, ...)
+void caSetDefaultPrintfHandler ()
 {
-        va_list         args;
-        int             status;
-
-        va_start(args, pformat);
-
-        {
-                int     logMsgArgs[6];
-                int     i;
-
-                for(i=0; i< NELEMENTS(logMsgArgs); i++){
-                        logMsgArgs[i] = va_arg(args, int);
-                }
-
-                status = logMsg(
-                                pformat,
-                                logMsgArgs[0],
-                                logMsgArgs[1],
-                                logMsgArgs[2],
-                                logMsgArgs[3],
-                                logMsgArgs[4],
-                                logMsgArgs[5]);
-
-        }
-
-        va_end(args);
-
-        return status;
+	ca_static->ca_printf_func = epicsVprintf;
 }
 

src/ca/windows_depen.c

@@ -1,7 +1,8 @@
 /*
  *	$Id$	
- *      Author: Jeffrey O. Hill
+ *      Author: Jeffrey O. Hill, Chris Timossi
  *              hill@luke.lanl.gov
+ *		CATimossi@lbl.gov
  *              (505) 665 1831
  *      Date:  9-93
  *
@@ -32,12 +33,9 @@
  */
 
 /*
- * ANSI includes
+ * Windows includes
  */
-#include <assert.h>
-#include <string.h>
-#include <stdlib.h>
-#include <stdarg.h>
+#include <process.h>
 
 #include "iocinf.h"
 
@@ -45,6 +43,11 @@
 #error This source is specific to DOS/WINDOS
 #endif
 
+static int get_subnet_mask ( char SubNetMaskStr[256]);
+static int RegTcpParams (char IpAddr[256], char SubNetMask[256]);
+static int RegKeyData (CHAR *RegPath, HANDLE hKeyRoot, LPSTR lpzValueName, 
+                      LPDWORD lpdwType, LPBYTE lpbData, LPDWORD lpcbData );
+
 
 /*
  * cac_gettimeval
@@ -143,9 +146,10 @@ void cac_block_for_sg_completion(CASG *pcasg, struct timeval *pTV)
  */
 int cac_os_depen_init(struct ca_static *pcas)
 {
-        int status;
+    	int status;
+	WSADATA WsaData;
 
-	ca_static = ca_temp;
+	ca_static = pcas;
 
 	/*
 	 * dont allow disconnect to terminate process
@@ -154,16 +158,17 @@ int cac_os_depen_init(struct ca_static *pcas)
 	 * allow error to be returned to sendto()
 	 * instead of handling disconnect at interrupt
 	 */
-	signal(SIGPIPE,SIG_IGN);
+
+	/* signal(SIGPIPE,SIG_IGN); */
 
 #	ifdef _WINSOCKAPI_
-		status = WSAStartup(MAKEWORD(1,1), &WsaData));
+		status = WSAStartup(MAKEWORD(1,1), &WsaData);
 		assert (status==0);
 #	endif
 
 	status = ca_os_independent_init ();
 
-        return status;
+    	return status;
 }
 
 
@@ -188,12 +193,16 @@ void cac_os_depen_exit (struct ca_static *pcas)
  */
 char *localUserName()
 {
-        int     length;
-        char    *pName;
-        char    *pTmp;
+    	int     length;
+    	char    *pName;
+    	char    *pTmp;
+	char    Uname[] = "";
 
-        pName = "Joe PC";
-        length = strlen(pName)+1;
+    	pName = getenv("USERNAME");
+	if (!pName) {
+		pName = Uname;
+	}
+    	length = strlen(pName)+1;
 
 	pTmp = malloc(length);
 	if(!pTmp){
@@ -219,8 +228,13 @@ void ca_spawn_repeater()
  	 * running in the repeater process
 	 * if here
 	 */
-	pImageName = "caRepeater";
-	status = system(pImageName);
+	pImageName = "caRepeater.exe";
+	//status = system(pImageName);
+	//Need to check if repeater is already loaded
+	//For now, start Repeater from a command line, not here
+	status = 0;
+	//status = _spawnlp(_P_DETACH,pImageName,"");
+
 	if(status<0){	
 		ca_printf("!!WARNING!!\n");
 		ca_printf("Unable to locate the executable \"%s\".\n", 
@@ -229,26 +243,241 @@ void ca_spawn_repeater()
 	}
 }
 
+
+/*
+ * caSetDefaultPrintfHandler ()
+ * use the normal default here
+ * ( see access.c )
+ */
+void caSetDefaultPrintfHandler ()
+{
+        ca_static->ca_printf_func = epicsVprintf;
+}
 
 
 
 /*
- *      ca_printf()
+ *
+ * Network interface routines
+ *
  */
-int ca_printf(char *pformat, ...)
+
+/*
+ * local_addr()
+ *
+ * return 127.0.0.1
+ * (the loop back address)
+ */
+int local_addr (SOCKET s, struct sockaddr_in *plcladdr)
 {
-        va_list         args;
-        int             status;
+	ca_uint32_t	loopBackAddress = 0x7f000001;
 
-        va_start(args, pformat);
-
-        status = vfprintf(
-                        stderr,
-                        pformat,
-                        args);
-
-        va_end(args);
-
-        return status;
+	plcladdr->sin_family = AF_INET;
+	plcladdr->sin_port = 0;
+	plcladdr->sin_addr.s_addr = ntohl (loopBackAddress);
+	return OK;
 }
 
+
+/*
+ *  	caDiscoverInterfaces()
+ *
+ *	This routine is provided with the address of an ELLLIST a socket
+ * 	and a destination port number. When the routine returns there
+ *	will be one additional inet address (a caAddrNode) in the list 
+ *	for each inet interface found that is up and isnt a loop back 
+ *	interface. If the interface supports broadcast then I add its
+ *	broadcast address to the list. If the interface is a point to 
+ *	point link then I add the destination address of the point to
+ *	point link to the list. In either case I set the port number
+ *	in the address node to the port supplied in the argument
+ *	list.
+ *
+ * 	LOCK should be applied here for (pList)
+ * 	(this is also called from the server)
+ */
+void caDiscoverInterfaces(ELLLIST *pList, SOCKET socket, int port)
+{
+	struct sockaddr_in 	localAddr;
+	struct sockaddr_in 	InetAddr;
+	struct in_addr bcast_addr;
+	caAddrNode		*pNode;
+	int             	status;
+
+	pNode = (caAddrNode *) calloc(1,sizeof(*pNode));
+	if(!pNode){
+		return;
+	}
+	broadcast_addr(&bcast_addr);
+	pNode->destAddr.inetAddr.sin_addr.s_addr = bcast_addr.s_addr;	//broadcast addr
+	pNode->destAddr.inetAddr.sin_port = htons(port);
+	pNode->destAddr.inetAddr.sin_family = AF_INET;
+	//pNode->srcAddr.inetAddr = 0 ;//localAddr;
+
+	/*
+	 * LOCK applied externally
+	 */
+	 ellAdd(pList, &pNode->node);
+}
+
+int
+broadcast_addr( struct in_addr *pcastaddr )
+{
+	char netmask[256], lhostname[80];
+	static struct in_addr castaddr;
+	int status;
+	static char     	init = FALSE;
+	struct hostent *phostent;
+	unsigned long laddr;
+
+	if (init) {
+		*pcastaddr = castaddr;
+		return OK;
+	}
+   gethostname(lhostname,sizeof(lhostname));
+   phostent = gethostbyname(lhostname);
+   if (!phostent) {
+   		return MYERRNO;
+   }
+
+   if (status = get_subnet_mask(netmask))
+   		return ERROR;
+
+   laddr = *( (unsigned long *) phostent->h_addr_list[0]);
+   castaddr.s_addr = (laddr & inet_addr(netmask)) | ~inet_addr(netmask);
+
+	if (!init){
+		init = TRUE;
+		*pcastaddr = castaddr;
+	}
+	return OK;
+}
+
+static int get_subnet_mask ( char SubNetMaskStr[256])
+{
+   char localadr[256];
+   
+   return RegTcpParams (localadr, SubNetMaskStr);
+}
+
+static int RegTcpParams (char IpAddrStr[256], char SubNetMaskStr[256])
+{
+#define MAX_VALUE_NAME              128
+  static CHAR   ValueName[MAX_VALUE_NAME];
+  static CHAR   RegPath[256];
+  DWORD  cbDataLen;
+  CHAR   cbData[256];
+  DWORD  dwType;
+  int status;
+	static char IpAddr[256], SubNetMask[256];
+
+	cbDataLen = sizeof(cbData);
+	strcpy(RegPath,"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\NetworkCards\\1");
+	status = RegKeyData (RegPath, HKEY_LOCAL_MACHINE, "ServiceName", &dwType, cbData, &cbDataLen);
+	if (status) {
+		strcpy(RegPath,"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\NetworkCards\\01");
+		status = RegKeyData (RegPath, HKEY_LOCAL_MACHINE, "ServiceName", &dwType, cbData, &cbDataLen);
+		if (status)
+			return status;
+	}
+
+	strcpy(RegPath,"SYSTEM\\CurrentControlSet\\Services\\");
+	strcat(RegPath,cbData);
+	strcat(RegPath,"\\Parameters\\Tcpip");
+
+	cbDataLen = sizeof(IpAddr);
+   status = RegKeyData (RegPath, HKEY_LOCAL_MACHINE, "IPAddress", &dwType, IpAddr, &cbDataLen);
+   if (status)
+      return status;
+   strcpy(IpAddrStr,IpAddr);
+   
+   cbDataLen = sizeof(SubNetMask);
+	status = RegKeyData (RegPath, HKEY_LOCAL_MACHINE, "SubnetMask", &dwType, SubNetMask, &cbDataLen);
+   if (status)
+      return status;
+
+   strcpy(SubNetMaskStr,SubNetMask);
+
+	return 0;
+}
+
+
+static int RegKeyData (CHAR *RegPath, HANDLE hKeyRoot, LPSTR lpzValueName, 
+                      LPDWORD lpdwType, LPBYTE lpbData, LPDWORD lpcbData )
+  {
+  HKEY   hKey;
+   DWORD  retCode;
+
+  DWORD  dwcClassLen = MAX_PATH;
+
+  // OPEN THE KEY.
+
+  retCode = RegOpenKeyEx (hKeyRoot,    // Key handle at root level.
+                          RegPath,     // Path name of child key.
+                          0,           // Reserved.
+                          KEY_QUERY_VALUE, // Requesting read access.
+                          &hKey);      // Address of key to be returned.
+
+  if (retCode)
+    {
+    //wsprintf (Buf, "Error: RegOpenKeyEx = %d", retCode);
+    return -1;
+    }
+
+
+  retCode = RegQueryValueEx (hKey,        // Key handle returned from RegOpenKeyEx.
+                          lpzValueName,   // Name of value.
+                          NULL,        // Reserved, dword = NULL.
+                          lpdwType,     // Type of data.
+                          lpbData,       // Data buffer.
+                          lpcbData);    // Size of data buffer.
+
+   if (retCode)
+    {
+    //wsprintf (Buf, "Error: RegQIK = %d, %d", retCode, __LINE__);
+    return -2;
+    }
+
+   return 0;
+
+ }
+
+BOOL APIENTRY DllMain(HANDLE hModule, DWORD dwReason, LPVOID lpReserved)
+{
+	int status;
+	WSADATA WsaData;
+
+	switch (dwReason)  {
+
+	case DLL_PROCESS_ATTACH:
+
+		if ((status = WSAStartup(MAKEWORD(1,1), &WsaData)) != 0)
+			return FALSE;
+		if (AllocConsole())	{
+			SetConsoleTitle("Channel Access Status");
+    		freopen( "CONOUT$", "a", stderr );
+			fprintf(stderr, "Process attached to ca.dll R12\n");
+		}
+		break;
+
+	case DLL_PROCESS_DETACH:
+		
+		if ((status = WSACleanup()) !=0)
+			return FALSE;
+		break;
+
+	case DLL_THREAD_ATTACH:
+		fprintf(stderr, "Thread attached to ca.dll R12\n");
+		break;
+
+	case DLL_THREAD_DETACH:
+		fprintf(stderr, "Thread detached from ca.dll R12\n");
+		break;
+
+	default:
+		break;
+	}
+
+return TRUE;
+
+}

src/db/Makefile.Unix

@@ -2,7 +2,7 @@ EPICS = ../../../..
 include Target.include
 include $(EPICS)/config/CONFIG_BASE
 
-USR_LDLIBS = -lDb -lCom
+USR_LDLIBS = -lDb -lCom -lm
 USR_LDFLAGS = -L.
 
 LEX = $(ELEX)

src/db/atdb_lex.l

@@ -1,6 +1,6 @@
 b       [a-zA-Z0-9_]
 a	[ \t]
-d       [a-zA-Z0-9_\,\./\*#\[\]%:;!|\'\-&\(\)@\?\+<>=$]
+d       [a-zA-Z0-9_\,\./\*#\[\]%:;!|\'\-&\(\)@\?\+<>=$\^\~]
 
 %{
 

src/db/dbAccess.c

@@ -190,8 +190,8 @@ void dbScanLock(struct dbCommon *precord)
 
        /* Move range check to iocInit */
 	if(lset < 0 || lset >= dbScanPvt.nset) {
-		errMessage(S_db_badLset, "Lock Set out of range");
-		exit(1);
+		errMessage(S_db_badLset, "Lock Set out of range:dbScanLock");
+		taskSuspend(taskIdSelf());
 	}
 	pscanLock = dbScanPvt.pscanLock + lset;
 	FASTLOCK(&pscanLock->lock);
@@ -212,10 +212,9 @@ void dbScanUnlock(struct dbCommon *precord)
 
        /* Put check in iocInit() */
 	if(lset<0 || lset>=dbScanPvt.nset) {
-		errMessage(S_db_badLset,"Lock Set out of range");
-		return;
+		errMessage(S_db_badLset,"Lock Set out of range:dbScanUnlock");
+		taskSuspend(taskIdSelf());
 	}
-
 	pscanLock = dbScanPvt.pscanLock + lset;
 	pscanLock->precord = NULL;
 	FASTUNLOCK(&pscanLock->lock);

src/db/dbEvent.c

@@ -591,12 +591,12 @@ int db_post_single_event(struct event_block	*pevent)
 			ev_que->valque[putix].sevr = sevr;
 			ev_que->valque[putix].time = precord->time;
 			/*
-		 	* use bcopy to avoid a bus error on
+		 	* use memcpy to avoid a bus error on
 		 	* union copy of char in the db at an odd 
 		 	* address
 		 	*/
-			bcopy(	pevent->paddr->pfield,
-				(char *)&ev_que->valque[putix].field,
+			memcpy(	(char *)&ev_que->valque[putix].field,
+				pevent->paddr->pfield,
 				dbr_size[pevent->paddr->field_type]);
 		}
     		/* notify the event handler */
@@ -669,12 +669,12 @@ unsigned int		select
 					ev_que->valque[putix].time = precord->time;
 
 					/*
-				 	* use bcopy to avoid a bus error on
+				 	* use memcpy to avoid a bus error on
 				 	* union copy of char in the db at an odd 
 				 	* address
 				 	*/
-					bcopy(	(char *)event->paddr->pfield,
-						(char *)&ev_que->valque[putix].field,
+					memcpy(	(char *)&ev_que->valque[putix].field,
+						(char *)event->paddr->pfield,
 						dbr_size[event->paddr->field_type]);
 
 				}

src/db/dbLink.c

@@ -182,7 +182,6 @@ long dbPutField(
 	}
 	dbScanLock(precord);
 	status=dbPut(paddr,dbrType,pbuffer,nRequest);
-	if(status) recGblDbaddrError(status,paddr,"dbPutField");
 	if(status==0){
         	if((paddr->pfield==(void *)&precord->proc)
 		||(pfldDes->process_passive && precord->scan==0 && dbrType<DBR_PUT_ACKT)) {
@@ -266,7 +265,6 @@ long dbPutNotify(PUTNOTIFY *ppn)
     }
     dbScanLock(precord);
     status=dbPut(paddr,dbrType,pbuffer,nRequest);
-    if(status) recGblDbaddrError(status,paddr,"dbPutField");
     ppn->status = status;
     if(status==0){
        	if((paddr->pfield==(void *)&precord->proc)
@@ -3530,7 +3528,7 @@ long		offset;
     }
     return(0);
 }
-
+
 static long putStringEnum(paddr,pbuffer,nRequest,no_elements,offset)
 struct dbAddr	*paddr;
 char		*pbuffer;
@@ -3538,15 +3536,41 @@ long		nRequest;
 long		no_elements;
 long		offset;
 {
-    struct rset *prset;
-    short       record_type=(paddr->record_type);
-    long        status;
+    struct rset 	*prset;
+    short       	record_type=(paddr->record_type);
+    unsigned short      *pfield= (unsigned short*)(paddr->pfield);
+    long        	status;
+    unsigned int	nchoices,ind;
+    int			nargs,nchars;
+    struct dbr_enumStrs enumStrs;
 
-    if((prset=GET_PRSET(pdbBase->precSup,record_type)) && (prset->put_enum_str))
-        return( (*prset->put_enum_str)(paddr,pbuffer) );
-    status=S_db_noRSET;
-    recGblRecSupError(status,paddr,"dbPutField","put_enum_str");
-    return(S_db_badDbrtype);
+    if((prset=GET_PRSET(pdbBase->precSup,record_type))
+    && (prset->put_enum_str)) {
+	status = (*prset->put_enum_str)(paddr,pbuffer);
+	if(!status) return(0);
+	if(prset->get_enum_strs) {
+	    status = (*prset->get_enum_strs)(paddr,&enumStrs);
+	    if(!status) {
+		nchoices = enumStrs.no_str;
+		nargs = sscanf(pbuffer," %u %n",&ind,&nchars);
+		if(nargs==1 && nchars==strlen(pbuffer) && ind<nchoices) {
+		    *pfield = ind;
+		    return(0);
+		}
+		status = S_db_badChoice;
+	    }
+	}else {
+	    status=S_db_noRSET;
+	}
+    } else {
+	status=S_db_noRSET;
+    }
+    if(status == S_db_noRSET) {
+	recGblRecSupError(status,paddr,"dbPutField","put_enum_str");
+    } else {
+	recGblDbaddrError(status,paddr,"dbPut(putStringEnum)");
+    }
+    return(status);
 }
 
 static long putStringGchoice(paddr,pbuffer,nRequest,no_elements,offset)
@@ -3560,20 +3584,27 @@ long		offset;
     unsigned short      *pfield= (unsigned short*)(paddr->pfield);
     char                *pchoice;
     struct choiceSet    *pchoiceSet;
-    unsigned short	i;
+    unsigned int	nchoices,ind;
+    int			nargs,nchars;
 
     if(no_elements!=1){
         recGblDbaddrError(S_db_onlyOne,paddr,"dbPut(putStringGchoice)");
         return(S_db_onlyOne);
     }
     if(pchoiceSet=GET_PCHOICE_SET(pdbBase->pchoiceGbl,choice_set)) {
-	for(i=0; i<pchoiceSet->number; i++) {
-	    if(!(pchoice=pchoiceSet->papChoice[i])) continue;
+	nchoices = pchoiceSet->number;
+	for(ind=0; ind<nchoices; ind++) {
+	    if(!(pchoice=pchoiceSet->papChoice[ind])) continue;
 	    if(strcmp(pchoice,pbuffer)==0) {
-		*pfield=i;
+		*pfield = ind;
 		return(0);
 	    }
 	}
+	nargs = sscanf(pbuffer," %u %n",&ind,&nchars);
+	if(nargs==1 && nchars==strlen(pbuffer) && ind<nchoices) {
+	    *pfield = ind;
+	    return(0);
+	}
     }
     recGblDbaddrError(S_db_badChoice,paddr,"dbPut(putStringGchoice)");
     return(S_db_badChoice);
@@ -3589,20 +3620,27 @@ long		offset;
     unsigned short      *pfield= (unsigned short*)(paddr->pfield);
     char                *pchoice;
     struct choiceSet    *pchoiceSet;
-    unsigned short	i;
+    unsigned int	nchoices,ind;
+    int			nargs,nchars;
 
     if(no_elements!=1){
         recGblDbaddrError(S_db_onlyOne,paddr,"dbPut(putStringCchoice)");
         return(S_db_onlyOne);
     }
     if(pchoiceSet=pdbBase->pchoiceCvt) {
-	for(i=0; i<pchoiceSet->number; i++) {
-	    if(!(pchoice=pchoiceSet->papChoice[i])) continue;
+	nchoices = pchoiceSet->number;
+	for(ind=0; ind<nchoices; ind++) {
+	    if(!(pchoice=pchoiceSet->papChoice[ind])) continue;
 	    if(strcmp(pchoice,pbuffer)==0) {
-		*pfield=i;
+		*pfield=ind;
 		return(0);
 	    }
 	}
+	nargs = sscanf(pbuffer," %u %n",&ind,&nchars);
+	if(nargs==1 && nchars==strlen(pbuffer) && ind<nchoices) {
+	    *pfield = ind;
+	    return(0);
+	}
     }
     recGblDbaddrError(S_db_badChoice,paddr,"dbPut(putStringCchoice)");
     return(S_db_badChoice);
@@ -3620,7 +3658,8 @@ long		offset;
     char                *pchoice;
     struct choiceSet    *pchoiceSet;
     struct arrChoiceSet *parrChoiceSet;
-    unsigned short	i;
+    unsigned int	nchoices,ind;
+    int			nargs,nchars;
 
     if(no_elements!=1){
         recGblDbaddrError(S_db_onlyOne,paddr,"dbPut(putStringRchoice)");
@@ -3628,13 +3667,19 @@ long		offset;
     }
     if((parrChoiceSet=GET_PARR_CHOICE_SET(pdbBase->pchoiceRec,(paddr->record_type)))
     && (pchoiceSet=GET_PCHOICE_SET(parrChoiceSet,choice_set))) {
-	for(i=0; i<pchoiceSet->number; i++) {
-	    if(!(pchoice=pchoiceSet->papChoice[i])) continue;
+	nchoices = pchoiceSet->number;
+	for(ind=0; ind<nchoices; ind++) {
+	    if(!(pchoice=pchoiceSet->papChoice[ind])) continue;
 	    if(strcmp(pchoice,pbuffer)==0) {
-		*pfield=i;
+		*pfield=ind;
 		return(0);
 	    }
 	}
+	nargs = sscanf(pbuffer," %u %n",&ind,&nchars);
+	if(nargs==1 && nchars==strlen(pbuffer) && ind<nchoices) {
+	    *pfield = ind;
+	    return(0);
+	}
     }
     recGblDbaddrError(S_db_badChoice,paddr,"dbPut(putStringRchoice)");
     return(S_db_badChoice);
@@ -3650,20 +3695,27 @@ long		offset;
     unsigned short      *pfield= (unsigned short*)(paddr->pfield);
     struct devChoiceSet *pdevChoiceSet;
     char		*pchoice;
-    unsigned short	i;
+    unsigned int	nchoices,ind;
+    int			nargs,nchars;
 
     if(no_elements!=1){
         recGblDbaddrError(S_db_onlyOne,paddr,"dbPut(putStringDchoice)");
         return(S_db_onlyOne);
     }
     if(pdevChoiceSet=GET_PDEV_CHOICE_SET(pdbBase->pchoiceDev,paddr->record_type)) {
-	for(i=0; i<pdevChoiceSet->number; i++) {
-	    if(!(pchoice=pdevChoiceSet->papDevChoice[i]->pchoice)) continue;
+	nchoices = pdevChoiceSet->number;
+	for(ind=0; ind<nchoices; ind++) {
+	    if(!(pchoice=pdevChoiceSet->papDevChoice[ind]->pchoice)) continue;
 	    if(strcmp(pchoice,pbuffer)==0) {
-		*pfield=i;
+		*pfield=ind;
 		return(0);
 	    }
 	}
+	nargs = sscanf(pbuffer," %u %n",&ind,&nchars);
+	if(nargs==1 && nchars==strlen(pbuffer) && ind<nchoices) {
+	    *pfield = ind;
+	    return(0);
+	}
     }
     recGblDbaddrError(S_db_badChoice,paddr,"dbPut(putStringDchoice)");
     return(S_db_badChoice);
@@ -5875,7 +5927,9 @@ long dbPut(
 	if(special) {
 	    if(special<100) { /*global processing*/
 		if(special==SPC_NOMOD) {
-		    return(S_db_noMod);
+		    status = S_db_noMod;
+		    recGblDbaddrError(status,paddr,"dbPut");
+		    return(status);
 		}else if(special==SPC_SCAN){
 		    scanDelete(precord);
 		}

src/db/dbScan.c

@@ -486,7 +486,7 @@ got_record:
 		recGblDbaddrError(status,&dbAddr,"initPeriodic");
 		exit(1);
 	}
-	papPeriodic = dbCalloc(nPeriodic,sizeof(struct scan_list));
+	papPeriodic = dbCalloc(nPeriodic,sizeof(struct scan_list*));
 	periodicTaskId = dbCalloc(nPeriodic,sizeof(int));
 	for(i=0; i<nPeriodic; i++) {
 		psl = dbCalloc(1,sizeof(struct scan_list));

src/db/dbStaticLib.c

@@ -1669,12 +1669,18 @@ char *pstring;
 		    if(!(end = strchr(pstr,'N'))) return (S_dbLib_badField);
 		    pstr = end + 1;
 		    sscanf(pstr,"%hd",&plink->value.camacio.n);
-		    if(!(end = strchr(pstr,'A'))) return (S_dbLib_badField);
-		    pstr = end + 1;
-		    sscanf(pstr,"%hd",&plink->value.camacio.a);
-		    if(!(end = strchr(pstr,'F'))) return (S_dbLib_badField);
-		    pstr = end + 1;
-		    sscanf(pstr,"%hd",&plink->value.camacio.f);
+		    if(!(end = strchr(pstr,'A')))  {
+			plink->value.camacio.a = 0;
+		    } else {
+		        pstr = end + 1;
+		        sscanf(pstr,"%hd",&plink->value.camacio.a);
+		    }
+		    if(!(end = strchr(pstr,'F'))) {
+			plink->value.camacio.f = 0;
+		    } else {
+		        pstr = end + 1;
+		        sscanf(pstr,"%hd",&plink->value.camacio.f);
+		    }
 		    plink->value.camacio.parm[0] = 0;
 		    if(end = strchr(pstr,'@')) {
 		        pstr = end + 1;

src/db/dbTest.c

@@ -813,6 +813,7 @@ int dbhcr(void)
 	return(0);
     }
     dbReportDeviceConfig(pdbBase,stdout);
+    fflush(stdout);
     return(0);
 }
 

src/db/dbl.c

@@ -109,7 +109,7 @@ char *filename;
 	
 	/* load data base record name to pvName */
 	str = pvName[0];
-	bzero(str,1000*31);
+	memset(str,0,1000*31);
 
 	pdbbase=dbAllocBase();
 	pdbentry=dbAllocEntry(pdbbase);

src/db/devLib.c

@@ -1,5 +1,5 @@
 /* devLib.c - support for allocation of common device resources */
-/* @(#)devLib.c	1.2	3/30/94 */
+/* @(#)$Id$*/
 
 /*
  *	Original Author: Marty Kraimer
@@ -50,7 +50,7 @@
  * .01	06-14-93 	joh	needs devAllocInterruptVector() routine
  */
 
-static char *sccsID = "@(#)devLib.c	1.2\t3/30/94";
+static char *sccsID = "@(#) $Id$";
 
 
 #include	<vxWorks.h>

src/db/drvTS.c

@@ -1,6 +1,17 @@
 
 /*
  * $Log$
+ * Revision 1.7  1995/02/02  17:15:55  jbk
+ * Removed the stinking message "Cannot contact master timing IOC ".
+ *
+ * Revision 1.6  1995/02/01  15:29:54  winans
+ * Added a type field to the configure command to disable the use of the event
+ * system hardware if desired.
+ *
+ * Revision 1.5  1994/12/16  15:51:21  winans
+ * Changed error message in the event system error handler & added a conditional
+ * based on a debug flag to print it... defaults to off.  (Per request from MRK.)
+ *
  * Revision 1.4  1994/10/28  20:15:10  jbk
  * increased the USP packet time-out to 250ms, added a parm to the configure()
  * routine to let user specify it.
@@ -66,7 +77,12 @@ LICENSING INQUIRIES MAY BE DIRECTED TO THE INDUSTRIAL TECHNOLOGY
 DEVELOPMENT CENTER AT ARGONNE NATIONAL LABORATORY (708-252-2000).
 */
 
+#if 1
+#define NODEBUG
+#define MAKE_DEBUG 0
+#else
 #define MAKE_DEBUG TSdriverDebug
+#endif
 #define TS_DRIVER
 
 #include <vxWorks.h>
@@ -103,8 +119,12 @@ DEVELOPMENT CENTER AT ARGONNE NATIONAL LABORATORY (708-252-2000).
 #include <drvTS.h>
 
 /* #define FL M_drvSup,__FILE__,__LINE__ */
+#if 0
 #define FL stderr
 #define errPrintf fprintf
+#else
+#define FL M_drvSup,__FILE__,__LINE__ 
+#endif
 
 /* functions used by this driver */
 static long TSgetUnixTime(struct timespec*);
@@ -177,7 +197,7 @@ TSinfo TSdata = { TS_master_dead, TS_async_slave, TS_async_none,
 					0,NULL,
 					TS_SYNC_RATE_SEC,TS_CLOCK_RATE_HZ,0,TS_TIME_OUT_MS,0,
 					TS_MASTER_PORT,TS_SLAVE_PORT,1,0,0,
-					NULL, NULL,NULL };
+					NULL, NULL,NULL, 0 };
 
 extern char* sysBootLine;
 
@@ -248,9 +268,12 @@ long TSreport()
 	TSconfigure() - This is the configuration routine which is meant to 
 	be called from the vxWorks startup.cmd script before iocInit.
 	It's job is to set operating parameters for the time stamp support code.
+
+    JRW -- if type = 0, then try to config using event system
+           if type = 1, then permanantly inhibit use of the event system
 */
 void TSconfigure(int master, int sync_rate_sec, int clock_rate_hz,
-				int master_port, int slave_port, unsigned long time_out)
+				int master_port, int slave_port, unsigned long time_out, int type)
 {
 	if(master) TSdata.master_timing_IOC=1;
 	else TSdata.master_timing_IOC=0;
@@ -272,6 +295,8 @@ void TSconfigure(int master, int sync_rate_sec, int clock_rate_hz,
 	if(time_out) TSdata.time_out=time_out;
 	else TSdata.time_out=TS_TIME_OUT_MS;
 
+	TSdata.UserRequestedType = type;
+
 	return;
 }
 
@@ -346,39 +371,56 @@ long TSinit()
 	SYM_TYPE stype;
 
 	Debug(5,"In TSinit()\n",0);
-	/* ------------------------------------------------------------- */
-	/* find the lower level event system functions */
-	if(symFindByName(sysSymTbl,"_ErHaveReceiver",
-					(char**)&TShaveReceiver,&stype)==ERROR)
-		TShaveReceiver = TShaveReceiverError;
 
-	if(symFindByName(sysSymTbl,"_ErGetTicks",
-					(char**)&TSgetTicks,&stype)==ERROR)
-		TSgetTicks = TSgetTicksError;
-
-	if(symFindByName(sysSymTbl,"_ErRegisterEventHandler",
-					(char**)&TSregisterEventHandler,&stype)==ERROR)
-		TSregisterEventHandler = TSregisterEventHandlerError;
-
-	if(symFindByName(sysSymTbl,"_ErRegisterErrorHandler",
-					(char**)&TSregisterErrorHandler,&stype)==ERROR)
-		TSregisterErrorHandler = TSregisterErrorHandlerError;
-
-	if(symFindByName(sysSymTbl,"_ErForceSync",
-					(char**)&TSforceSync,&stype)==ERROR)
-		TSforceSync = TSforceSoftSync;
-
-	if(symFindByName(sysSymTbl,"_ErGetTime",
-					(char**)&TSgetTime,&stype)==ERROR)
-		TSgetTime = TSgetCurrentTime;
-
-	if(symFindByName(sysSymTbl,"_ErSyncEvent",
-					(char**)&TSsyncEvent,&stype)==ERROR)
-		TSdata.sync_event=ER_EVENT_RESET_TICK;
+	if (TSdata.UserRequestedType == 0)
+	{	/* default configuration probe */
+		/* ------------------------------------------------------------- */
+		/* find the lower level event system functions */
+		if(symFindByName(sysSymTbl,"_ErHaveReceiver",
+						(char**)&TShaveReceiver,&stype)==ERROR)
+			TShaveReceiver = TShaveReceiverError;
+	
+		if(symFindByName(sysSymTbl,"_ErGetTicks",
+						(char**)&TSgetTicks,&stype)==ERROR)
+			TSgetTicks = TSgetTicksError;
+	
+		if(symFindByName(sysSymTbl,"_ErRegisterEventHandler",
+						(char**)&TSregisterEventHandler,&stype)==ERROR)
+			TSregisterEventHandler = TSregisterEventHandlerError;
+	
+		if(symFindByName(sysSymTbl,"_ErRegisterErrorHandler",
+						(char**)&TSregisterErrorHandler,&stype)==ERROR)
+			TSregisterErrorHandler = TSregisterErrorHandlerError;
+	
+		if(symFindByName(sysSymTbl,"_ErForceSync",
+						(char**)&TSforceSync,&stype)==ERROR)
+			TSforceSync = TSforceSoftSync;
+	
+		if(symFindByName(sysSymTbl,"_ErGetTime",
+						(char**)&TSgetTime,&stype)==ERROR)
+			TSgetTime = TSgetCurrentTime;
+	
+		if(symFindByName(sysSymTbl,"_ErSyncEvent",
+						(char**)&TSsyncEvent,&stype)==ERROR)
+			TSdata.sync_event=ER_EVENT_RESET_TICK;
+		else
+			TSdata.sync_event=TSsyncEvent();
+	
+		/* ------------------------------------------------------------- */
+	}
 	else
-		TSdata.sync_event=TSsyncEvent();
+	{	/* inhibit probe and use of the event system */
 
-	/* ------------------------------------------------------------- */
+		printf("WARNING: drvTS event hardware probe inhibited by user\n");
+
+		TShaveReceiver = TShaveReceiverError;
+		TSgetTicks = TSgetTicksError;
+		TSregisterEventHandler = TSregisterEventHandlerError;
+		TSregisterErrorHandler = TSregisterErrorHandlerError;
+		TSforceSync = TSforceSoftSync;
+		TSgetTime = TSgetCurrentTime;
+		TSdata.sync_event=ER_EVENT_RESET_TICK;
+	}
 
 	/* set all the known information about the system */
 	TSdata.event_table=NULL;
@@ -488,12 +530,14 @@ long TSinit()
 		{
 			struct timespec tp;
 			clock_gettime(CLOCK_REALTIME,&tp);
+			/* this should work */
 			errPrintf(FL,"Failed to set time from Unix server\n");
 		}
 
 		if( TSsetClockFromMaster()<0 )
 		{
-			errPrintf(FL,"Could not contact a master timing IOC\n");
+			/* do nothing here */
+			/* errPrintf(FL,"Could not contact a master timing IOC\n"); */
 		}
 		else
 			TSdata.state = TS_master_alive;

src/db/iocInit.c

@@ -57,20 +57,26 @@
  * .27	03-18-94	mcn	added comments
  * .28	03-23-94	mrk	Added asInit
  * .29	04-04-94	mcn	added code for uninitialized conversions (link conversion field)
+ * .30	01-10-95	joh	Fixed no quoted strings in resource.def problem
+ * .31	02-10-95	joh	static => LOCAL 
  */
 
-#include	<vxWorks.h>
 #include	<stdlib.h>
 #include	<stdarg.h>
 #include	<stdio.h>
 #include	<string.h>
-#include	<ellLib.h>
+#include 	<errno.h>
+
+#include	<vxWorks.h>
 #include	<sysLib.h>
 #include	<symLib.h>
 #include	<sysSymTbl.h>	/* for sysSymTbl*/
 #include	<logLib.h>
 #include	<taskLib.h>
+#include	<envLib.h>
+#include	<errnoLib.h>
 
+#include	<ellLib.h>
 #include	<sdrHeader.h>
 #include	<fast_lock.h>
 #include	<choice.h>
@@ -97,7 +103,7 @@
 #define MODULE_TYPES_INIT 1
 #include        <module_types.h>
 
-static initialized=FALSE;
+LOCAL int initialized=FALSE;
 
 /* The following is for use by interrupt routines */
 int interruptAccept=FALSE;
@@ -108,15 +114,18 @@ struct dbBase *pdbBase=NULL;
 long dbCommonInit();
 
 /* define forward references*/
-static long initDrvSup(void);
-static long initRecSup(void);
-static long initDevSup(void);
-static long finishDevSup(void);
-static long initDatabase(void);
-static void createLockSets(void);
-static short makeSameSet(struct dbAddr *paddr,short set);
-static long initialProcess(void);
-static long getResources(char  *fname);
+LOCAL long initDrvSup(void);
+LOCAL long initRecSup(void);
+LOCAL long initDevSup(void);
+LOCAL long finishDevSup(void);
+LOCAL long initDatabase(void);
+LOCAL void createLockSets(void);
+LOCAL short makeSameSet(struct dbAddr *paddr,short set);
+LOCAL long initialProcess(void);
+LOCAL long getResources(char  *fname);
+LOCAL int getResourceToken(FILE *fp, char *pToken, unsigned maxToken);
+LOCAL int getResourceTokenInternal(FILE *fp, char *pToken, unsigned maxToken);
+
 
 /*
  *  Initialize EPICS on the IOC.
@@ -139,13 +148,7 @@ int iocInit(char * pResourceFilename)
 	return(-1);
     }
 
-   /*
-    *  Build the data structure for error reporting
-    */
-    if ((errSymBld()) != 0) {
-	logMsg("iocInit aborting because errSymBld failed to initialize \n",0,0,0,0,0,0);
-	return(-1);
-    }
+    errInit(); /*Initialize errPrintf task*/
 
    /*
     *  Setup initialization hooks, but only if an initHooks routine has been defined.
@@ -316,7 +319,7 @@ int iocInit(char * pResourceFilename)
  *      Call the initialization routine (init) for each
  *        driver type.
  */
-static long initDrvSup(void) /* Locate all driver support entry tables */
+LOCAL long initDrvSup(void) /* Locate all driver support entry tables */
 {
     char	*pname;
     char	name[40];
@@ -335,7 +338,7 @@ static long initDrvSup(void) /* Locate all driver support entry tables */
     
     if (!(pdrvSup=pdbBase->pdrvSup)) {
 	status = S_drv_noDrvSup;
-	errMessage(status,"No device drivers are defined");
+	errMessage(status,"");
 	return(status);
     }
 
@@ -354,7 +357,7 @@ static long initDrvSup(void) /* Locate all driver support entry tables */
 	vxstatus = symFindByName(sysSymTbl, name, (void *) &(pdrvSup->papDrvet[i]), &type);
 
 	if (vxstatus != OK) {
-	    strcpy(message,"driver entry table not found for ");
+	    strcpy(message,": ");
 	    strcat(message,pname);
 	    status = S_drv_noDrvet;
 	    errMessage(status,message);
@@ -383,7 +386,7 @@ static long initDrvSup(void) /* Locate all driver support entry tables */
  *      Call the initialization routine (init) for each
  *        record type.
  */
-static long initRecSup(void)
+LOCAL long initRecSup(void)
 {
     char	name[40];
     int		i;
@@ -398,7 +401,7 @@ static long initRecSup(void)
     
     if(!(precType=pdbBase->precType)) {
 	status = S_rectype_noRecs;
-	errMessage(status,"No record types defined");
+	errMessage(status,"");
 	return(status);
     }
 
@@ -444,7 +447,7 @@ static long initRecSup(void)
             (void *) (&precSup->papRset[i]), &type);
 
 	if (vxstatus != OK) {
-	    strcpy(message,"record support entry table not found for ");
+	    strcpy(message,": ");
 	    strcat(message,name);
 	    status = S_rec_noRSET;
 	    errMessage(status,message);
@@ -470,7 +473,7 @@ static long initRecSup(void)
  *      Call the initialization routine (init) for each
  *        device type (First Pass).
  */
-static long initDevSup(void)
+LOCAL long initDevSup(void)
 {
     char	*pname;
     char	name[40];
@@ -485,7 +488,7 @@ static long initDevSup(void)
     
     if (!(precDevSup = pdbBase->precDevSup)) {
 	status = S_dev_noDevSup;
-	errMessage(status,"No device support is defined");
+	errMessage(status,"");
 	return(status);
     }
 
@@ -517,7 +520,7 @@ static long initDevSup(void)
 
 	    if (vxstatus != OK) {
                 pdevSup->papDset[j]=NULL;
-		strcpy(message, "device support entry table not found for ");
+		strcpy(message, ": ");
 		strcat(message, pname);
 		status = S_dev_noDSET;
 		errMessage(status, message);
@@ -543,7 +546,7 @@ static long initDevSup(void)
  *    after the database records have been initialized and
  *    placed into lock sets.
  */
-static long finishDevSup(void) 
+LOCAL long finishDevSup(void) 
 {
     int		i,j;
     struct recDevSup	*precDevSup;
@@ -575,7 +578,7 @@ static long finishDevSup(void)
     return(0);
 }
 
-static long initDatabase(void)
+LOCAL long initDatabase(void)
 {
     char		name[PVNAME_SZ+FLDNAME_SZ+2];
     short		i,j;
@@ -609,7 +612,7 @@ static long initDatabase(void)
     */
     if (!(precHeader = pdbBase->precHeader)) {
 	status = S_record_noRecords;
-	errMessage(status,"No database records are defined");
+	errMessage(status,"");
 	return(status);
     }
 
@@ -654,7 +657,7 @@ static long initDatabase(void)
 	    if (!prset) {
 		strcpy(name,precType->papName[i]);
 		strcat(name,"RSET");
-		strcpy(message,"record support entry table not found for ");
+		strcpy(message,": ");
 		strcat(message,name);
 		status = S_rec_noRSET;
 		errMessage(status,message);
@@ -837,7 +840,7 @@ static long initDatabase(void)
  *    lock set.  Records connected by forward links are
  *    definately considered part of the same lockset.
  */
-static void createLockSets(void)
+LOCAL void createLockSets(void)
 {
     int			i,link;
     struct recLoc	*precLoc;
@@ -930,7 +933,7 @@ static void createLockSets(void)
     dbScanLockInit(nset);
 }
 
-static short makeSameSet(struct dbAddr *paddr, short lset)
+LOCAL short makeSameSet(struct dbAddr *paddr, short lset)
 {
     struct dbCommon 	*precord = paddr->precord;
     short  		link;
@@ -1001,7 +1004,7 @@ static short makeSameSet(struct dbAddr *paddr, short lset)
  *  Process database records at initialization if
  *     their pini (process at init) field is set.
  */
-static long initialProcess(void)
+LOCAL long initialProcess(void)
 {
     short	i;
     struct recHeader	*precHeader;
@@ -1025,199 +1028,362 @@ static long initialProcess(void)
     return(0);
 }
 
-#define MAX 128
+#define MAX 256 
 #define SAME 0
-static char    *cvt_str[] = {
+
+enum resType {
+	resDBF_STRING,
+	resDBF_SHORT,
+	resDBF_LONG,
+	resDBF_FLOAT,
+	resDBF_DOUBLE,
+	resInvalid}; 
+LOCAL char    *cvt_str[] = {
     "DBF_STRING",
     "DBF_SHORT",
     "DBF_LONG",
     "DBF_FLOAT",
-    "DBF_DOUBLE"
+    "DBF_DOUBLE",
+    "Invalid",
 };
-#define CVT_COUNT (sizeof(cvt_str) / sizeof(char*))
-static long getResources(char  *fname)
+
+#define EPICS_ENV_PREFIX "EPICS_"
+
+long getResources(char  *fname)
 {
-    FILE            *fp;
-    int             len;
-    int             len2;
-    int             lineNum = 0;
-    int             i = 0;
-    int             found = 0;
-    int             cvType = 0;
-    int		    epicsFlag;
-    char            buff[MAX + 1];
-    char            name[40];
     char            s1[MAX];
     char            s2[MAX];
     char            s3[MAX];
-    char            message[100];
-    long            rtnval = 0;
+    char            name[40];
+    FILE            *fp;
+    enum resType    cvType = resInvalid;
+    int		    epicsFlag;
     SYM_TYPE	    type;
-    char           *pSymAddr;
+    char            *pSymAddr;
     short           n_short;
     long            n_long;
     float           n_float;
     double          n_double;
+    int		    status;
 
     if (!fname) return (0);
+
     if ((fp = fopen(fname, "r")) == 0) {
-	errMessage(-1L, "getResources: No such Resource file");
+	errPrintf(
+		-1L,
+		__FILE__, 
+		__LINE__,
+		"No such Resource file - %s",
+		fname);
 	return (-1);
     }
-    while ( fgets( buff, MAX, fp) != NULL) {
-	len = strlen(buff);
-	lineNum++;
-	if (len < 2)
-	    goto CLEAR;
-	if (len >= MAX) {
-	    sprintf(message,
-		    "getResources: Line too long - line=%d", lineNum);
-	    errMessage(-1L, message);
-	    continue;
-	}
-	for (i = 0; i < len; i++) {
-	    if (buff[i] == '!') {
-		goto CLEAR;
-	    }
-	}
-	/* extract the 3 fields as strings */
-	if ((sscanf(buff, "%s %s %s", s1, s2, s3)) != 3) {
-	    sprintf(message,
-		    "getResources: Not enough fields - line=%d", lineNum);
-	    errMessage(-1L, message);
-	    continue;
-	}
-	found = 0;
-	len2 = strlen(s2);
-	for (i = 0; i < CVT_COUNT; i++) {
 
+    while (TRUE) {
+	status = getResourceToken (fp, s1, sizeof(s1));
+	if (status<0) {
+		/*
+		 * EOF
+		 */
+		break; 
+	}
+	status = getResourceToken (fp, s2, sizeof(s2));
+	if (status<0) {
+		errPrintf (
+			-1L,
+			__FILE__,
+			__LINE__,
+	"Missing resource data type field for resource=%s in file=%s",
+			s1,
+			fname);
+		break; 
+	}
+	status = getResourceToken (fp, s3, sizeof(s3));
+	if (status<0) {
+		errPrintf (
+			-1L,
+			__FILE__,
+			__LINE__,
+	"Missing resource value field for resource=%s data type=%s file=%s",
+			s1,
+			s2,
+			fname);
+		break; /* EOF */
+	}
 
-	    if ((strncmp(s2, cvt_str[i], len2)) == SAME) {
-		found = 1;
-		cvType = i;
+	for (cvType = 0; cvType < resInvalid; cvType++) {
+	    if (strcmp(s2, cvt_str[cvType]) == SAME) {
 		break;
 	    }
 	}
-	if (!found) {
-	    sprintf(message,
-		    "getResources: Field 2 not defined - line=%d", lineNum);
-	    errMessage(-1L, message);
-	    continue;
-	}
+
+
 	strcpy(name, "_");
 	strcat(name, s1);
-	rtnval = symFindByName(sysSymTbl, name, &pSymAddr, &type);
-	if (rtnval != OK) {
-	    sprintf(message,
-		  "getResources: Symbol name not found - line=%d", lineNum);
-	    errMessage(-1L, message);
+	status = symFindByName(sysSymTbl, name, &pSymAddr, &type);
+	if (status!= OK) {
+	    errPrintf (
+		-1L,
+		__FILE__,
+		__LINE__,
+	"Matching Symbol name not found for resource=%s",
+		s1);
 	    continue;
 	}
-	if ( (strncmp(s1,"EPICS_",6)) == SAME)
-            epicsFlag = 1;
-        else
-            epicsFlag = 0;
+
+	status = strncmp (
+			s1,
+			EPICS_ENV_PREFIX,
+			strlen (EPICS_ENV_PREFIX));
+	if (status == SAME) {
+            	epicsFlag = 1;
+		if (cvType != resDBF_STRING) {
+			errPrintf (
+				-1L,
+				__FILE__,
+				__LINE__,
+"%s should be set with type DBF_STRING not type %s",
+				s1,
+				s2);
+			continue;
+		}
+	}
+	else {
+		epicsFlag = 0;
+	}
 
 	switch (cvType) {
-	case 0:	/* DBF_STRING */
-	    len = strlen(s3);
-	    len2 = 20;
-	    if (len >= len2) {
-		sprintf(message,
-			"getResources: Warning, string might exceed previous reserved space - line=%d",
-			lineNum);
-		errMessage(-1L, message);
-	    }
-            if ( epicsFlag )
-                strncpy(pSymAddr+sizeof(void *), s3, len + 1);
-            else
-                strncpy(pSymAddr, s3, len + 1);
-	    break;
-	case 1:	/* DBF_SHORT */
-	    if ((sscanf(s3, "%hd", &n_short)) != 1) {
-		sprintf(message,
-		      "getResources: conversion failed - line=%d", lineNum);
-		errMessage(-1L, message);
-	        continue;
-	    }
+	case resDBF_STRING:
             if ( epicsFlag ) {
-                sprintf(message,
-                       "getResources: %s is of type DBF_STRING - line =%d",
-			name,lineNum);
-                errMessage(-1L, message);
-            }
-            else
-                *(short *) pSymAddr = n_short;
+		char		*pEnv;
 
-	    break;
-	case 2:	/* DBF_LONG */
-	    if ((sscanf(s3, "%ld", &n_long)) != 1) {
-		sprintf(message,
-		      "getResources: conversion failed - line=%d", lineNum);
-		errMessage(-1L, message);
-	        continue;
+		/*
+		 * space for two strings, an '=' character,
+		 * and a null termination
+		 */
+		pEnv = malloc (strlen (s3) + strlen (s1) + 2);	
+		if (!pEnv) {
+			errPrintf(
+				-1L,
+				__FILE__,
+				__LINE__,
+"Failed to set environment parameter \"%s\" to \"%s\" because \"%s\"\n",
+				s1,
+				s3,
+				strerror (errnoGet()));
+			break;
+		}
+		strcpy (pEnv, s1);
+		strcat (pEnv, "=");
+		strcat (pEnv, s3);
+		status = putenv (pEnv);
+		if (status<0) {
+			errPrintf(
+				-1L,
+				__FILE__,
+				__LINE__,
+"Failed to set environment parameter \"%s\" to \"%s\" because \"%s\"\n",
+				s1,
+				s3,
+				strerror (errnoGet()));
+		}
+		/*
+		 * vxWorks copies into a private buffer
+		 * (this does not match UNIX behavior)
+		 */
+		free (pEnv);
 	    }
-            if ( epicsFlag ) {
-                sprintf(message,
-                       "getResources: %s is of type DBF_STRING - line =%d",
-			name,lineNum);
-                errMessage(-1L, message);
-            }
-            else
-                *(long *) pSymAddr = n_long;
-	    break;
-	case 3:	/* DBF_FLOAT */
-	    if ((sscanf(s3, "%e", &n_float)) != 1) {
-		sprintf(message,
-		      "getResources: conversion failed - line=%d", lineNum);
-		errMessage(-1L, message);
-	        continue;
+            else{
+                strcpy(pSymAddr, s3);
 	    }
-            if ( epicsFlag ) {
-                sprintf(message,
-                       "getResources: %s is of type DBF_STRING - line =%d",
-			name,lineNum);
-                errMessage(-1L, message);
-            }
-            else
-                *(float *) pSymAddr = n_float;
+	    break;
 
-	    break;
-	case 4:	/* DBF_DOUBLE */
-	    if ((sscanf(s3, "%le", &n_double)) != 1) {
-		sprintf(message,
-		      "getResources: conversion failed - line=%d", lineNum);
-		errMessage(-1L, message);
+	case resDBF_SHORT:	
+	    if (sscanf(s3, "%hd", &n_short) != 1) {
+	    	errPrintf (
+			-1L,
+			__FILE__,
+			__LINE__,
+		      "Resource=%s value=%s conversion to %s failed", 
+			s1,
+			s3,
+			cvt_str[cvType]);
 	        continue;
 	    }
-            if ( epicsFlag ) {
-                sprintf(message,
-                       "getResources: %s is of type DBF_STRING - line =%d",
-			name,lineNum);
-                errMessage(-1L, message);
-            }
-            else
-                *(double *) pSymAddr = n_double;
-
+            *(short *) pSymAddr = n_short;
 	    break;
+
+	case resDBF_LONG:
+	    if (sscanf(s3, "%ld", &n_long) != 1) {
+	    	errPrintf (
+			-1L,
+			__FILE__,
+			__LINE__,
+		      "Resource=%s value=%s conversion to %s failed", 
+			s1,
+			s3,
+			cvt_str[cvType]);
+	        continue;
+	    }
+            *(long *) pSymAddr = n_long;
+	    break;
+
+	case resDBF_FLOAT:
+	    if (sscanf(s3, "%e", &n_float) != 1) {
+	    	errPrintf (
+			-1L,
+			__FILE__,
+			__LINE__,
+		      "Resource=%s value=%s conversion to %s failed", 
+			s1,
+			s3,
+			cvt_str[cvType]);
+	        continue;
+	    }
+            *(float *) pSymAddr = n_float;
+	    break;
+
+	case resDBF_DOUBLE:
+	    if (sscanf(s3, "%le", &n_double) != 1) {
+	    	errPrintf (
+			-1L,
+			__FILE__,
+			__LINE__,
+		      "Resource=%s value=%s conversion to %s failed", 
+			s1,
+			s3,
+			cvt_str[cvType]);
+	        continue;
+	    }
+            *(double *) pSymAddr = n_double;
+	    break;
+
 	default:
-	    sprintf(message,
-		 "getResources: switch default reached - line=%d", lineNum);
-	    errMessage(-1L, message);
+		errPrintf (
+			-1L,
+			__FILE__,
+			__LINE__,
+	"Invalid data type field=%s for resource=%s", 
+			s2,
+			s1);
 	    continue;
-	    break;
 	}
-CLEAR:	memset(buff, '\0',  MAX);
-	memset(s1, '\0', MAX);
-	memset(s2, '\0', MAX);
-	memset(s3, '\0', MAX);
     }
     fclose(fp);
     return (0);
 }
+
+
 
-static gotSdrSum=FALSE;
-static struct sdrSum sdrSum;
+/*
+ * getResourceToken
+ */
+LOCAL int getResourceToken(FILE *fp, char *pToken, unsigned maxToken)
+{
+	int status;
+
+	/*
+	 * keep reading until we get a token
+	 * (and comments have been stripped)
+	 */
+	while (TRUE) {
+		status = getResourceTokenInternal (fp, pToken, maxToken);
+		if (status < 0) {
+			return status;
+		}
+
+		if (pToken[0] != '\0') {
+			return status;
+		}
+	}
+}
+
+
+/*
+ * getResourceTokenInternal
+ */
+LOCAL int getResourceTokenInternal(FILE *fp, char *pToken, unsigned maxToken)
+{
+        char    formatString[32];
+        char    quoteCharString[2];
+        int     status;
+
+        quoteCharString[0] = '\0';
+        status = fscanf (fp, " %1[\"`'!]", quoteCharString);
+	if (status<0) {
+		return status;
+	}
+
+	switch (quoteCharString[0]) {
+	/*
+	 * its a comment 
+	 * (consume everything up to the next new line) 
+	 */
+	case '!':
+	{
+		char tmp[MAX];
+
+                sprintf(formatString, "%%%d[^\n\r\v\f]", sizeof(tmp)-1);
+                status = fscanf (fp, "%[^\n\r\v\f]",tmp);
+		pToken[0] = '\0';
+		if (status<0) {
+			return status;
+		}
+		break;
+	}
+
+	/*
+	 * its a plain token
+	 */
+	case '\0':
+                sprintf(formatString, " %%%ds", maxToken-1);
+
+                status = fscanf (fp, formatString, pToken);
+                if (status!=1) {
+			if (status < 0){
+				pToken[0] = '\0';
+				return status;
+			}
+                }
+		break;
+
+	/*
+	 * it was a quoted string
+	 */
+	default:
+                sprintf(
+			formatString, 
+			"%%%d[^%c]", 
+			maxToken-1, 
+			quoteCharString[0]);
+                status = fscanf (fp, formatString, pToken);
+		if (status!=1) {
+			if (status < 0){
+				pToken[0] = '\0';
+				return status;
+			}
+		}
+                sprintf(formatString, "%%1[%c]", quoteCharString[0]);
+                status = fscanf (fp, formatString, quoteCharString);
+		if (status!=1) {
+			errPrintf (
+				-1L,
+				__FILE__,
+				__LINE__,
+	"Resource file syntax error: unterminated string \"%s\"",
+				pToken);
+			pToken[0] = '\0';
+			if (status < 0){
+				return status;
+			}
+		}
+		break;
+        }
+	return 0;
+}
+
+
+LOCAL int gotSdrSum=FALSE;
+LOCAL struct sdrSum sdrSum;
 int dbLoad(char * pfilename)
 {
     long	status;

src/dbtools/dbLoadRecords.y

@@ -259,13 +259,22 @@ int dbLoadRecords(char* pfilename, char* pattern, char* container)
 
 	if(is_not_inited)
 	{
+#ifdef ERROR_STUFF
+		fprintf(stderr,"initing parser\n");
+#endif
 		yyin=fp;
 		is_not_inited=0;
 	}
 	else
 	{
+#ifdef ERROR_STUFF
+		fprintf(stderr,"restarting parser\n");
+#endif
 		yyrestart(fp);
 	}
+#ifdef ERROR_STUFF
+		fprintf(stderr,"before parser startup\n");
+#endif
 	yyparse();
 
 #ifndef vxWorks

src/dbtools/dbLoadTemplate.y

@@ -105,11 +105,11 @@ subst: PATTERN pattern subs
 
 pattern: O_BRACE vars C_BRACE
 	{ 
-	/*
+#ifdef ERROR_STUFF
 		int i;
 		for(i=0;i<var_count;i++) fprintf(stderr,"variable=(%s)\n",vars[i]);
 		fprintf(stderr,"var_count=%d\n",var_count);
-	*/
+#endif
 	}
     ;
 
@@ -130,7 +130,9 @@ subs: subs sub
 sub: WORD O_BRACE vals C_BRACE
 	{
 		sub_collect[strlen(sub_collect)-1]='\0';
-		/* fprintf(stderr,"dbLoadRecords(%s)\n",sub_collect); */
+#ifdef ERROR_STUFF
+		fprintf(stderr,"dbLoadRecords(%s)\n",sub_collect);
+#endif
 #ifndef SUB_TOOL
 		if(db_file_name)
 			dbLoadRecords(db_file_name,sub_collect,$1);
@@ -147,7 +149,9 @@ sub: WORD O_BRACE vals C_BRACE
 	| O_BRACE vals C_BRACE
 	{
 		sub_collect[strlen(sub_collect)-1]='\0';
-		/* fprintf(stderr,"dbLoadRecords(%s)\n",sub_collect); */
+#ifdef ERROR_STUFF
+		fprintf(stderr,"dbLoadRecords(%s)\n",sub_collect);
+#endif
 #ifndef SUB_TOOL
 		if(db_file_name)
 			dbLoadRecords(db_file_name,sub_collect,NULL);
@@ -199,7 +203,9 @@ var_subs: var_subs var_sub
 var_sub: WORD O_BRACE sub_pats C_BRACE
 	{
 		sub_collect[strlen(sub_collect)-1]='\0';
-		/* fprintf(stderr,"dbLoadRecords(%s)\n",sub_collect); */
+#ifdef ERROR_STUFF
+		fprintf(stderr,"dbLoadRecords(%s)\n",sub_collect);
+#endif
 #ifndef SUB_TOOL
 		if(db_file_name)
 			dbLoadRecords(db_file_name,sub_collect,$1);
@@ -216,7 +222,9 @@ var_sub: WORD O_BRACE sub_pats C_BRACE
 	| O_BRACE sub_pats C_BRACE
 	{
 		sub_collect[strlen(sub_collect)-1]='\0';
-		/* fprintf(stderr,"dbLoadRecords(%s)\n",sub_collect); */
+#ifdef ERROR_STUFF
+		fprintf(stderr,"dbLoadRecords(%s)\n",sub_collect);
+#endif
 #ifndef SUB_TOOL
 		if(db_file_name)
 			dbLoadRecords(db_file_name,sub_collect,NULL);
@@ -292,7 +300,10 @@ int dbLoadTemplate(char* sub_file)
 		yyin=fp;
 		is_not_inited=0;
 	}
-	else yyrestart(fp);
+	else
+	{
+		yyrestart(fp);
+	}
 
 	yyparse();
 
@@ -328,8 +339,18 @@ int sub_it()
 {
 	FILE* fp;
 	char var_buff[500];
+
+#ifdef ERROR_STUFF
+	fprintf(stderr,"In sub_it()\n");
+#endif
+
 	if( *sub_collect )
+	{
+#ifdef ERROR_STUFF
+	fprintf(stderr," dbInitSubst() calling\n");
+#endif
 		dbInitSubst(sub_collect);
+	}
 	else
 	{
 		fprintf(stderr,"No valid substitutions found in table\n");
@@ -345,10 +366,16 @@ int sub_it()
 	/* do the work here */
 	while( fgets(var_buff,200,fp)!=(char*)NULL )
 	{
+#ifdef ERROR_STUFF
+		fprintf(stderr," calling dbDoSubst()\n");
+#endif
 		dbDoSubst(var_buff,500,NULL);
 		fputs(var_buff,stdout);
 	}
 
+#ifdef ERROR_STUFF
+	fprintf(stderr," calling dbFreeSubst()\n");
+#endif
 	dbFreeSubst();
 	fclose(fp);
 	return 0;

src/dbtools/dbVarSub.c

@@ -191,13 +191,18 @@ long dbInitSubst(char* parm_pattern)
 			/* find vars and subs */
 			switch(*pp)
 			{
-			case '\\': pp++; break;
+			case '\\': pp++; break; /* skip the next character */
 			case '=': subst_total++; break;
-			case '\"': for(++pp;*pp!='\"';pp++) if(*pp=='\\') pp++; pp++; break;
+			case '\"':
+				for(++pp;*pp && *pp!='\"';pp++)
+					if(*pp=='\\') pp++;
+				break;
 			default: break;
 			}
 		}
-		/* fprintf(stderr,"total = %d\n",subst_total); */
+#ifdef ERROR_STUFF
+		fprintf(stderr,"total = %d\n",subst_total);
+#endif
  
 		/* allocate the substitution table */
 		subst = (struct var_sub*)malloc( sizeof(struct var_sub)*subst_total );
@@ -235,12 +240,12 @@ long dbInitSubst(char* parm_pattern)
 		}
 
 		/* debug code */
-		/*
+#ifdef ERROR_STUFF
 		for(pi=0;pi<subst_total;pi++)
 		{
-			printf("table[%d]=(%s,%s)\n",pi,subst[pi].var,subst[pi].sub);
+			fprintf(stderr,"table[%d]=(%s,%s)\n",pi,subst[pi].var,subst[pi].sub);
 		}
-		*/
+#endif
 
 		/* resolve the multiple substitutions now */
 		for(pi=0;pi<subst_total;pi++)
@@ -253,12 +258,12 @@ long dbInitSubst(char* parm_pattern)
 		}
 
 		/* more debug code */
-		/*
+#ifdef ERROR_STUFF
 		for(pi=0;pi<subst_total;pi++)
 		{
-			printf("table[%d]=(%s,%s)\n",pi,subst[pi].var,subst[pi].sub);
+			fprintf(stderr,"table[%d]=(%s,%s)\n",pi,subst[pi].var,subst[pi].sub);
 		}
-		*/
+#endif
 	}
 	else
 	{
@@ -276,7 +281,9 @@ static char* get_var(char** to, char* from)
 	pp = strpbrk(from," \t=");
 	*pp = '\0';
 	pp++;
-	/* fprintf(stderr,"get_var: (%s)\n",from); */
+#ifdef ERROR_STUFF
+	fprintf(stderr,"get_var: (%s)\n",from);
+#endif
 	*to=from;
 	return pp;
 }
@@ -297,7 +304,9 @@ static char* get_sub(char* to, char* from)
 			else *cp++ = *pp;
 		}
 		*cp='\0';
-		/* fprintf(stderr,"get_sub: quote (%s)\n",to); */
+#ifdef ERROR_STUFF
+		fprintf(stderr,"get_sub: quote (%s)\n",to);
+#endif
 		pp++;
 	}
 	else
@@ -307,7 +316,9 @@ static char* get_sub(char* to, char* from)
 		{
 			*hold = '\0';
 			hold++;
-			/* fprintf(stderr,"get_sub: regular (%s)\n",pp); */
+#ifdef ERROR_STUFF
+			fprintf(stderr,"get_sub: regular (%s)\n",pp);
+#endif
 		}
 
 		strcpy(to,pp);

src/dev/devApsEr.c

@@ -774,6 +774,9 @@ STATIC int ErResetAll(ApsErStruct *pParm)
  *
  * Receive a hardware IRQ from an ER board.
  *
+ * BUG -- should add errMessage calls for problem events & include storm
+ *        control on them.
+ *
  ******************************************************************************/
 STATIC void ErIrqHandler(ErLinkStruct *pLink)
 {

src/dev/devAvme9440.c

@@ -181,6 +181,8 @@ struct ioCard {
 #define 	CONST_NUM_LINKS	6
 #define         STATIC
 
+STATIC int devAvme9440Report();
+
 static unsigned short BASEADD;
 #define         LED_INIT        0x02
 #define         LED_OKRUN       0x03
@@ -206,7 +208,7 @@ struct {
 	DEVSUPFUN	write_bo;	/* output command goes here */
 }devBoAvme9440={
 	5,
-	NULL,
+	(DEVSUPFUN) devAvme9440Report,
 	init,
 	init_bo_record,
 	NULL,
@@ -263,7 +265,36 @@ struct {
 	NULL,
         read_mbbi
 };
+
+/**************************************************************************
+ *
+ * Ultra groovy and useful reporting function called from 'dbior'.
+ *
+ **************************************************************************/
+STATIC int devAvme9440Report()
+{
+	int		LinkNum = 0;
+	int		CardBase = BASEADD;
+	int		IntVec = INT_VEC_BASE;
 
+	while (LinkNum < avme9440_num_links)
+	{
+		if (cards[LinkNum].card != NULL)
+		{
+			printf("    Link %02.2d at 0x%4.4X, IRQ 0x%2.2X, input 0x%04.4X, output 0x%04.4X\n", 
+					LinkNum, 
+					CardBase, 
+					IntVec, 
+					cards[LinkNum].card->inputData, 
+					cards[LinkNum].card->outputData);
+
+		}
+		LinkNum++;
+		CardBase += sizeof(struct avme9440);
+		IntVec++;
+	}
+	return(0);
+}
 
 /**************************************************************************
 *

src/dev/devBoSoftRaw.c

@@ -77,10 +77,7 @@ struct boRecord *pbo;
     long status;
  
     status = recGblInitFastOutLink(&(pbo->out), (void *) pbo, DBR_LONG, "RVAL");
-
-    if (pbo->out.type != CA_LINK)
-        status = 2;
- 
+    status = 2;
     return status;
  
 } /* end init_record() */

src/dev/devCommonGpib.c

@@ -2,6 +2,8 @@
 /* base/src/dev $Id$ */
 
 /*
+ * $Log$
+ *
  *      Author: 		John Winans
  *      Origional Author:	Ned D. Arnold
  *      Date:   		11-20-91

src/dev/devMbboSoftRaw.c

@@ -77,10 +77,7 @@ struct mbboRecord *pmbbo;
     long status;
  
     status = recGblInitFastOutLink(&(pmbbo->out), (void *) pmbbo, DBR_ULONG, "RVAL");
-
-    if (pmbbo->out.type == CA_LINK)
-       status = 2;
- 
+    status = 2;
     return status;
  
 } /* end init_record() */

src/devOpt/devGpibInteract.c

@@ -246,16 +246,20 @@ static int timingStudy(void)
         pCmd[i]->busy = 0;		/* mark message 'not in queue' */
 	pCmd[i]->count = 0;
 
+#ifdef USE_162_STUFF
         if (pCmd[i]->linkId < MVME162_LINK_NUM_BASE)
         {
+#endif
           (*(drvGpib.ioctl))(pCmd[i]->linkType, pCmd[i]->linkId, pCmd[i]->bug, IBGENLINK, 0, NULL);
           (*(drvGpib.ioctl))(pCmd[i]->linkType, pCmd[i]->linkId, pCmd[i]->bug, IBGETLINK, 0, &(pCmd[i]->head.pibLink));
+#ifdef USE_162_STUFF
         }
         else
         {
           drv162IB_InitLink(pCmd[i]->linkId);
           drv162IB_GetLink(pCmd[i]->linkId, &(pCmd[i]->head.pibLink));
         }
+#endif
       }
       else
       {
@@ -291,11 +295,14 @@ static int timingStudy(void)
 	  pCmd[i]->count++;
 	  pCmd[i]->busy = 1;	/* mark the xact as busy */
 
+#ifdef USE_162_STUFF
           if (pCmd[i]->linkId < MVME162_LINK_NUM_BASE)
+#endif
             (*(drvGpib.qGpibReq))(pCmd[i], IB_Q_LOW);
+#ifdef USE_162_STUFF
           else
             drv162IB_QueueReq(pCmd[i], IB_Q_LOW);
-
+#endif
 	  reps--;
 	  if (reps%10000 == 0)
 	  {
@@ -361,11 +368,16 @@ static int sendMsg(void)
   replyIsBack = FALSE;
   ticks = 0;
 
+#ifdef USE_162_STUFF
   if (pCmd->linkId < MVME162_LINK_NUM_BASE)
   {
+#endif
+
     (*(drvGpib.ioctl))(pCmd->linkType, pCmd->linkId, pCmd->bug, IBGENLINK, 0, NULL);
     (*(drvGpib.ioctl))(pCmd->linkType, pCmd->linkId, pCmd->bug, IBGETLINK, 0, &(pCmd->head.pibLink));
     (*(drvGpib.qGpibReq))(pCmd, IB_Q_LOW); /* queue the msg */
+
+#ifdef USE_162_STUFF
   }
   else
   {
@@ -373,6 +385,7 @@ static int sendMsg(void)
     drv162IB_GetLink(pCmd->linkId, &(pCmd->head.pibLink));
     drv162IB_QueueReq(pCmd, IB_Q_LOW);
   }
+#endif
 
   while (!replyIsBack && (ticks < maxTicks))      /* wait for reply msg */
   {
@@ -403,10 +416,15 @@ static int gpibWork(struct gpibIntCmd *pCmd)
   switch (pCmd->type) {
     case 'w':
     case 'W':         /* write the message to the GPIB listen adrs */
+#ifdef USE_162_STUFF
       if (pCmd->linkId < MVME162_LINK_NUM_BASE)
+#endif
         status =(*(drvGpib.writeIb))(pCmd->head.pibLink, pCmd->head.device, pCmd->cmd, strlen(pCmd->cmd), GITime);
+
+#ifdef USE_162_STUFF
       else
         status = drv162IB_write(pCmd->head.pibLink, pCmd->head.device, pCmd->cmd, strlen(pCmd->cmd), GITime);
+#endif
 
       if (status == ERROR)
 	strcpy(pCmd->resp, "GPIB TIMEOUT (while talking)");
@@ -415,10 +433,14 @@ static int gpibWork(struct gpibIntCmd *pCmd)
       break;
     case 'r':
     case 'R':               /* write the command string */
+#ifdef USE_162_STUFF
       if (pCmd->linkId < MVME162_LINK_NUM_BASE)
+#endif
         status = (*(drvGpib.writeIb))(pCmd->head.pibLink, pCmd->head.device, pCmd->cmd, strlen(pCmd->cmd), GITime);
+#ifdef USE_162_STUFF
       else
         status = drv162IB_write(pCmd->head.pibLink, pCmd->head.device, pCmd->cmd, strlen(pCmd->cmd), GITime);
+#endif
 
       if (status == ERROR)
       {
@@ -430,10 +452,14 @@ static int gpibWork(struct gpibIntCmd *pCmd)
     case 'i':
       /* read the instrument  */
       pCmd->resp[0] = 0;          /* clear response string */
+#ifdef USE_162_STUFF
       if (pCmd->linkId < MVME162_LINK_NUM_BASE)
+#endif
         status = (*(drvGpib.readIb))(pCmd->head.pibLink, pCmd->head.device, pCmd->resp, MAX_MSG_LENGTH, GITime);
+#ifdef USE_162_STUFF
       else
         status = drv162IB_read(pCmd->head.pibLink, pCmd->head.device, pCmd->resp, MAX_MSG_LENGTH, GITime);
+#endif
 
       if (status == ERROR)
       {

src/drv/Makefile.Vx

@@ -35,9 +35,10 @@ SRCS.c = \
 	../drvComet.c\
 	../drvJgvtr1.c\
 	../drvFp.c\
-	../drvMvme162.c\
 	../drvFpm.c
 
+#	../drvTranServ.c\
+
 OBJS = \
 	module_types.o\
 	drvXy010.o\
@@ -69,9 +70,10 @@ OBJS = \
 	drvComet.o\
 	drvJgvtr1.o\
 	drvFp.o\
-	drvMvme162.o\
 	drvFpm.o
 
+#	drvTranServ.o\
+
 PROD = drvSup
 
 include $(EPICS)/config/RULES.Vx

src/drv/VXI_SETUP_README

@@ -1,5 +1,6 @@
+
 The CPU030 may need to have the nivxi path set correctly:
-	From the vxWorks shell type vxitedit
+	From the vxWorks shell type "vxitedit"
 	take option 2
 	take option 3
 	type list
@@ -8,6 +9,7 @@ The CPU030 may need to have the nivxi path set correctly:
 		(the path should end in nivxi 
 		and should traverse the niCpu030
 		directories shipped with the 030
+		ie somethin of the form "???/config/niCPU030/nivxi"
 	type save
 	type exit
 	.

src/drv/drvAb.c

@@ -551,10 +551,10 @@ unsigned short 	card;
 	printf("Allen Bradley: abBtCallback Logic Error");
 	return;
     }
-    (preq->callback)(preq);
+    pabbtrequest[link][adapter][card] = NULL;
     pcard = &ab_config[link][adapter][card];
     *pcard &= ~(AB_INTERFACE_TYPE|AB_INIT_BIT|AB_SENT_INIT);
-    pabbtrequest[link][adapter][card] = NULL;
+    (preq->callback)(preq);
 }
 
 int ab_bt_read(link,adapter,card,preq)

src/drv/drvAt5Vxi.c

@@ -450,10 +450,10 @@ struct  at5vxi_model{
 #define AT5VXI_MODEL_FROM_INDEX(INDEX) ((unsigned)((INDEX)|0xf00))
 
 /*
-        NOTE: The macro AT5VXI_INDEX_FROM_MODEL(MODEL) defined above
-        should return an index into the correct data given the
-        VXI device's model code.
-*/
+ *       NOTE: The macro AT5VXI_INDEX_FROM_MODEL(MODEL) defined above
+ *       should return an index into the correct data given the
+ *       VXI device's model code.
+ */
 struct at5vxi_model at5vxi_models[] = {
         {"INTERFACE SIMULATOR",         "112Y-280158"},
         {"I CONTROLLER",                "112Y-280176"},
@@ -477,6 +477,16 @@ struct at5vxi_model at5vxi_models[] = {
         {"DOWNCONVERTER",               "112Y-280456"},
         {"COAX MONITOR TRANSMITTER",    "112Y-280587"},
         {"CAVITY SIMULATOR",            "112Y-280232"},
+	{"CABLE CONTROLLER (2 CHANNEL)","112Y-280539"},
+	{"BREADBOARD",			"112Y-280358"},
+	{"I/O INTERFACE",		"112Y-280359"},
+	{"DIAGNOSTIC - BPM",		"112Y-280422-1"},
+	{"FAST ENVELOPE DETECTOR",	"112Y-280421"},
+	{"DIAGNOSTIC - CM",		"112Y-280422-2"},
+	{"DIAGNOSTIC - MISC",		"112Y-280422-3"},
+	{"FAST VECTOR DETECTOR",	"112Y-280651"},
+	{"SINGLE-WIDE VECTOR DETECTOR",	"112Y-280672"},
+	{"FM / AM",			"112Y-280xxx"}
 };
 
 #define AT5VXI_VALID_MODEL(MODEL) \

src/drv/drvDvx.c

@@ -120,6 +120,9 @@
  * BUGS:
  *  The driver should inspect the VXI make and model codes and use a data type
  *  for the DMA buffer that is appropriate.
+ *
+ * $Log$
+ *
  */ 
 
 static char *SccsId = "$Id$";
@@ -884,14 +887,13 @@ int sramld(int card)
   if (dvxDebug)
     printf("Total channels read in %d\n", dvx[card].numChan);
 
-#if 0 /* Force the user to reference board 7 on their own */
-  /* Make the extender system reset by referencing board 7 (No sample taken) */
-  *ramptr++ = GAIN_CHANNEL | ((0xF0 >> 3) & 3);
-  *ramptr++ = (((0xF0 & 7) << 3) | ((0xF0 & 0xE0) >> 5));
-#endif
-
+#if 1	/* This causes an extra sample to be taken at the end of the scan */
   *ramptr++ = 0;	/* mark the end of the sequence program */
   *ramptr++ = 0;
+#else	/* This was supposed to get rid of the extra one, but does not work */
+  *(ramptr-1) &= 0xff3f;
+  *ramptr = *(ramptr-1);
+#endif
 
   /* set scan rate and run it once */
   dvx[card].pdvx2502->samp_rate = DVX_DRATE;

src/drv/drvGpib.c

@@ -62,6 +62,12 @@
  *
  *
  * $Log$
+ * Revision 1.27  1994/12/14  22:29:14  winans
+ * Removed DMAC command chaining structure(s) from the ibLink
+ * structure so they can be malloc'd seperately.  This keeps
+ * the usage of A24 space restricted to ONLY those structures
+ * that have to be there.
+ *
  * Revision 1.26  1994/12/12  16:03:00  winans
  * Rewrote the init code so that it always returns a zero (don't kill the
  * startup.cmd file.)  It is possible that this could cause some confusion
@@ -151,11 +157,11 @@ STATIC	char	*ram_base;		/* Base of the ram on the CPU board */
 STATIC  int timeoutSquelch = 0;	/* Used to quiet timeout msgs during polling */
 
 /* DMA timing bus error problem debugging in niPhysIo */
-int     ibDmaDebug = 0;         /* Turns on DMA debug messages from this driver */
-int     ibDmaTimingError = 0;           /* count "bad memProbes"/call of niPhysIo */
-int     ibDmaTimingErrorTotal = 0;      /* count total "bad memProbes" in niPhysIo */
-int     ibDmaMaxError = 0 ;             /* max # bad calls per call of niPhysIo */
-STATIC char     testWrite;              /* test char to write to 1014 card */
+int	ibDmaDebug = 0;			/* Turns on DMA debug messages from this driver */
+int	ibDmaTimingError = 0;	/* count "bad memProbes"/call of niPhysIo */
+int	ibDmaTimingErrorTotal = 0;	/* count total "bad memProbes" in niPhysIo */
+int	ibDmaMaxError = 0;		/* max # bad calls per call of niPhysIo */
+STATIC char     testWrite;	/* test char to write to 1014 card */
 
 
 /******************************************************************************
@@ -221,12 +227,7 @@ struct	niLink {
   WDOG_ID	watchDogId;	/* watchdog for timeouts */
   struct	ibregs	*ibregs;/* pointer to board registers */
 
-#if 0
-  char		cc_byte;
-  struct	cc_ary	cc_array;
-#else
   DmaStuffStruct *DmaStuff;
-#endif
 
   char		r_isr1;
   char		r_isr2;
@@ -1094,6 +1095,7 @@ int	time;		/* time to wait on the DMA operation */
   else
     b->ch1.ccr = D_EINT;
 
+#ifdef INCLUDE_LANL_DMA_TIMING_CHECKER
    /*************************************************************************
    *    DMAC BUS ERROR CATCH
    * The following lines are included because of a possible VME protocol
@@ -1115,9 +1117,11 @@ int	time;		/* time to wait on the DMA operation */
     logMsg("DMA timing: error = %d, total = %d, max = %d\n",
         ibDmaTimingError, ibDmaTimingErrorTotal, ibDmaMaxError);
   /***************************************************************************/
+#endif
 
   b->ch0.ccr = D_SRT;
 
+#ifdef INCLUDE_LANL_DMA_TIMING_CHECKER
    /****************************
    *    DMAC BUS ERROR CATCH
    *****************************/
@@ -1131,6 +1135,7 @@ int	time;		/* time to wait on the DMA operation */
     logMsg("DMA timing: error = %d, total = %d, max = %d\n",
         ibDmaTimingError, ibDmaTimingErrorTotal, ibDmaMaxError);
   /***************************************************************************/
+#endif
 
   b->imr2 = w_imr2;				/* this must be done last */
 
@@ -2041,102 +2046,6 @@ int     length; 	/* number of bytes to write out from the data buffer */
   return(ERROR);
 }
 
-#ifdef INCLUDE_HIDEOS_INTERFACE
-/******************************************************************************
- *
- * Interface functions for HiDEOS access.
- *
- ******************************************************************************/
-/******************************************************************************
- *
- * Read up to <length> bytes into <*buffer>.
- *
- ******************************************************************************/
-STATIC int
-HideosGpibRead(struct ibLink *pibLink, int device, char *buffer, int length, int time)
-{
-	logMsg("HideosGpibRead() entered\n");
-	return(bytes read | error);
-}
-/******************************************************************************
- *
- * Write <length> bytes from <*buffer> in data mode.
- *
- ******************************************************************************/
-STATIC int
-HideosGpibWrite(struct ibLink *pibLink, int device, char *buffer, int length, int time)
-{
-	logMsg("HideosGpibWrite() entered\n");
-	return(bytes sent | error);
-}
-/******************************************************************************
- *
- * Write <length> bytes from <*buffer> in command mode.
- *
- ******************************************************************************/
-STATIC int
-HideosGpibCmd(struct ibLink *pibLink, char *buffer, int length)
-{
-	logMsg("HideosGpibCmd() entered\n");
-	return(bytes sent | error);
-}
-/******************************************************************************
- *
- * Verify that the given GPIB port exists.
- *
- ******************************************************************************/
-STATIC int
-HideosGpibCheckLink(int link, int bug)
-{
-	logMsg("HideosGpibCheckLink() entered\n");
-	return(OK | ERROR);
-}
-/******************************************************************************
- *
- * Prevent SRQs from being polled on a given GPIB port.
- *
- ******************************************************************************/
-STATIC int
-HideosGpibSrqPollInhibit(int link, int bug, int gpibAddr)
-{
-	logMsg("HideosGpibSrqPollInhibit() entered -- NOT SUPPORTED YET\n");
-	return(ERROR);
-}
-/******************************************************************************
- *
- * Generate a GPIB link for a HiDEOS port.
- *
- ******************************************************************************/
-STATIC int
-HideosGpibGenLink(int link, int bug)
-{
-	logMsg("HideosGpibGenLink() entered\n");
-	return(ibLinkStart() | ERROR);
-}
-/******************************************************************************
- *
- * Handle a GPIB IOCTL call.
- *
- ******************************************************************************/
-STATIC int
-HideosGpibIoctl(int link, int bug, int cmd, int v, caddr_t p)
-{
-	logMsg("HideosGpibIoctl() entered\n");
-	return(OK | ERROR);
-}
-/******************************************************************************
- *
- * Given the port information, return a link structure.
- *
- ******************************************************************************/
-struct	bbIbLink *
-HideosGpibFindLink(int link, int bug)
-{
-	logMsg("HideosGpibFindLink() entered\n");
-	return(bbIbLink* | NULL);
-}
-#endif
-
 /******************************************************************************
  *
  * These are the BitBus architecture specific functions.
@@ -2674,9 +2583,9 @@ IBHistDump(int type, int link, int bug)
 }
 #endif
 
-#if 1
+#if 0
 /* A way to stop the CPU when idle... run from shell at prio 250 */
-BigFFT()
+cpuStopperThingy()
 {
   while (1)
   	asm(" stop #0x3000");

src/drv/drvXy240.c

@@ -338,8 +338,8 @@ register unsigned int	val;
 	/* use structure to handle high and low short swap */
 	/* get current output */
 
-	work = (dio[card].dptr->port4_5 << 16)
-			 + dio[card].dptr->port6_7;
+	work = (dio[card].dptr->port6_7 << 16)
+			 + dio[card].dptr->port4_5;
 
 	work = (work & ~mask) | (val & mask);
 

src/drv/module_types.c

@@ -237,8 +237,5 @@ NIGPIB_SHORT_OFF	= 0x5000;
 NIGPIB_IVEC_BASE	= 100;
 NIGPIB_IRQ_LEVEL	= 5;
 
-MVME162_EXT_OFF		= 0x40000000;
-MVME162_IVEC_BASE	= 104;
-MVME162_IRQ_LEVEL	= 5;
 return(0);
 }

src/iocCore/Makefile.Vx

@@ -22,12 +22,12 @@ PROD = iocCore vxWorks vxWorks.sym
 include $(EPICS)/config/RULES.Vx
 
 vxWorks: $(VX_IMAGE)
-	$(RM) $@
-	cp $< .
+	@$(RM) $@
+	@cp -p  $< .
 
 vxWorks.sym: $(VX_IMAGE_SYM)
-	$(RM) $@
-	cp $< .
+	@$(RM) $@
+	@cp -p $< .
 
 iocCore: $(IOC_CORE_OBJS)
 	$(LINK.c) $@ $(IOC_CORE_OBJS)

src/libCom/Makefile.Unix

@@ -5,26 +5,25 @@ include $(EPICS)/config/CONFIG_BASE
 USR_CFLAGS = -D_NO_PROTO
 
 SRCS.c = \
-	../arAccessLib.c ../arCSCheck.c ../arChanIO.c ../bfSubr.c \
-	../bucketLib.c ../calcPerform.c ../cmdSubr.c ../cvtFast.c \
-	../cvtNumbers.c ../ellLib.c ../envSubr.c ../errMtst.c ../errSymLib.c \
-	../ezsSockSubr.c ../fdmgr.c ../freeListLib.c ../genSubr.c \
-	../genTaskSubr.c ../gpHashLib.c ../helpSubr.c ../memDebugLib.c \
-	../nextFieldSubr.c ../postfix.c ../sydSubr.c ../sydSubrCA.c \
-	../sydSubrCF.c ../sydSubrSSF.c ../tsSubr.c errSymTbl.c ../errInc.c \
-	../realpath.c
+	../bucketLib.c ../calcPerform.c ../cvtFast.c \
+	../ellLib.c ../envSubr.c ../errMtst.c ../errSymLib.c \
+	../fdmgr.c  ../freeListLib.c \
+	../gpHashLib.c ../memDebugLib.c \
+	../nextFieldSubr.c ../postfix.c \
+	../tsSubr.c errSymTbl.c ../errInc.c \
+	../realpath.c  ../errPrintfUNIX.c
 
 LIBOBJS = \
-	tsSubr.o arAccessLib.o arCSCheck.o arChanIO.o bfSubr.o bucketLib.o \
-        calcPerform.o cmdSubr.o cvtFast.o cvtNumbers.o ellLib.o \
-        envSubr.o errMtst.o errSymLib.o errSymTbl.o ezsSockSubr.o fdmgr.o \
-        freeListLib.o genSubr.o genTaskSubr.o gpHashLib.o helpSubr.o \
-        memDebugLib.o nextFieldSubr.o postfix.o sydSubr.o sydSubrCA.o \
-        sydSubrCF.o sydSubrSSF.o realpath.o
+	tsSubr.o bucketLib.o calcPerform.o\
+	cvtFast.o ellLib.o\
+	envSubr.o errMtst.o errSymLib.o errSymTbl.o fdmgr.o \
+	freeListLib.o gpHashLib.o \
+	memDebugLib.o  nextFieldSubr.o postfix.o \
+	realpath.o  errPrintfUNIX.o
 
 LIBNAME = libCom.a
 
-#TARGETS = cvtTest tsTest sydTest
+#TARGETS = tsTest 
 
 include $(EPICS)/config/RULES.Unix
 
@@ -38,15 +37,9 @@ errSymTbl.c errInc.o: errInc.c
 pre_build:
 	@test -f errInc.c || ln -s ../errInc.c errInc.c
 
-cvtTest: cvtNumbers.o
-	$(LINK.c) -o $@ cvtNumbers.o -lCom -lDb -lCom -lm -s
-
 tsTest: tsSubr.o
 	$(LINK.c) -o $@ tsSubr.o -lCom -lDb -lCom -lm -s
 
-sydTest: sydSubr.o
-	$(LINK.c) -o $@ sydSubr.o -lCom -lca -lDb -lCom -lm -s
-
 clean::
 	@$(RM) errInc.c errSymTbl.c
 

src/libCom/Makefile.Vx

@@ -3,27 +3,22 @@ include Target.include
 include $(EPICS)/config/CONFIG_BASE
 
 SRCS.c = \
-	../calcPerform.c ../cmdSubr.c ../cvtBpt.c ../cvtFast.c \
-	../cvtNumbers.c ../gpHashLib.c ../freeListLib.c ../ellLib.c \
-	../envSubr.c ../errSymLib.c ../ezsSockSubr.c ../genSubr.c \
-	../genTaskSubr.c ../helpSubr.c ../nextFieldSubr.c ../postfix.c \
-	../sydSubr.c ../sydSubrCA.c ../sydSubrCF.c ../sydSubrSSF.c \
+	../calcPerform.c ../cvtBpt.c ../cvtFast.c \
+	../gpHashLib.c ../freeListLib.c ../ellLib.c \
+	../envSubr.c ../errSymLib.c \
+	../nextFieldSubr.c ../postfix.c \
 	../bucketLib.c ../memDebugLib.c ../tsSubr.c ../pal.c \
-	../paldef.c errSymTbl.c
+	../paldef.c  errSymTbl.c ../errPrintfVX.c
 
 
 OBJS = \
-        calcPerform.o cvtBpt.o cvtFast.o ellLib.o envSubr.o errSymLib.o \
-	errSymTbl.o genSubr.o genTaskSubr.o nextFieldSubr.o postfix.o \
-	bucketLib.o tsSubr.o gpHashLib.o freeListLib.o pal.o paldef.o 
+	calcPerform.o cvtBpt.o cvtFast.o ellLib.o envSubr.o errSymLib.o \
+	errSymTbl.o nextFieldSubr.o postfix.o \
+	bucketLib.o tsSubr.o gpHashLib.o freeListLib.o pal.o paldef.o \
+	errPrintfVX.o
 
-OBJS1 = \
-	cmdSubr.o cvtNumbers.o cvtFast.o ezsSockSubr.o helpSubr.o
 
-OBJS2 = \
-	sydSubr.o sydSubrCA.o sydSubrCF.o sydSubrSSF.o
-
-PROD = libCom libCom1 libCom2
+PROD = libCom
 
 include $(EPICS)/config/RULES.Vx
 
@@ -43,10 +38,3 @@ libCom: $(OBJS)
 	$(RM) $@
 	$(LINK.c) $@ $(OBJS) $(LDLIBS)
 
-libCom1: $(OBJS1)
-	$(RM) $@
-	$(LINK.c) $@ $(OBJS1) $(LDLIBS)
-
-libCom2: $(OBJS2)
-	$(RM) $@
-	$(LINK.c) $@ $(OBJS2) $(LDLIBS)

src/libCom/bucketLib.c

@@ -37,6 +37,7 @@
 #include <stdio.h>
 #include <assert.h>
 #include <stdlib.h>
+#include <string.h>
 #include <math.h>
 #include <time.h>
 
@@ -196,7 +197,7 @@ LOCAL ITEM **bucketUnsignedCompare (ITEM **ppi, const void *pId)
 /*
  * bucketPointerCompare()
  */
-ITEM **bucketPointerCompare (ITEM **ppi, const void *pId)
+LOCAL ITEM **bucketPointerCompare (ITEM **ppi, const void *pId)
 {
 	void		*ptr;	
 	void		**pItemId;
@@ -219,7 +220,7 @@ ITEM **bucketPointerCompare (ITEM **ppi, const void *pId)
 /*
  * bucketStringCompare ()
  */
-ITEM **bucketStringCompare (ITEM **ppi, const void *pId)
+LOCAL ITEM **bucketStringCompare (ITEM **ppi, const void *pId)
 {
 	const char	*pStr = pId;	
 	ITEM		*pi;
@@ -241,7 +242,7 @@ ITEM **bucketStringCompare (ITEM **ppi, const void *pId)
 /*
  * bucketUnsignedHash ()
  */
-BUCKETID bucketUnsignedHash (BUCKET *pb, const void *pId)
+LOCAL BUCKETID bucketUnsignedHash (BUCKET *pb, const void *pId)
 {
 	const unsigned	*pUId = pId;	
 	unsigned 	src;
@@ -262,11 +263,10 @@ BUCKETID bucketUnsignedHash (BUCKET *pb, const void *pId)
 
 /*
  * bucketPointerHash ()
- *
  */
-BUCKETID bucketPointerHash (BUCKET *pb, const void *pId)
+LOCAL BUCKETID bucketPointerHash (BUCKET *pb, const void *pId)
 {
-	void * const	*ppId = pId;	
+	void * const	*ppId = (void * const *) pId;	
 	unsigned long	src;
 	BUCKETID	hashid;
 
@@ -292,7 +292,7 @@ BUCKETID bucketPointerHash (BUCKET *pb, const void *pId)
 /*
  * bucketStringHash ()
  */
-BUCKETID bucketStringHash (BUCKET *pb, const void *pId)
+LOCAL BUCKETID bucketStringHash (BUCKET *pb, const void *pId)
 {
 	const char	*pStr = pId;	
 	BUCKETID	hashid;

src/libCom/bucketLib/bucketLib.c

@@ -37,6 +37,7 @@
 #include <stdio.h>
 #include <assert.h>
 #include <stdlib.h>
+#include <string.h>
 #include <math.h>
 #include <time.h>
 
@@ -196,7 +197,7 @@ LOCAL ITEM **bucketUnsignedCompare (ITEM **ppi, const void *pId)
 /*
  * bucketPointerCompare()
  */
-ITEM **bucketPointerCompare (ITEM **ppi, const void *pId)
+LOCAL ITEM **bucketPointerCompare (ITEM **ppi, const void *pId)
 {
 	void		*ptr;	
 	void		**pItemId;
@@ -219,7 +220,7 @@ ITEM **bucketPointerCompare (ITEM **ppi, const void *pId)
 /*
  * bucketStringCompare ()
  */
-ITEM **bucketStringCompare (ITEM **ppi, const void *pId)
+LOCAL ITEM **bucketStringCompare (ITEM **ppi, const void *pId)
 {
 	const char	*pStr = pId;	
 	ITEM		*pi;
@@ -241,7 +242,7 @@ ITEM **bucketStringCompare (ITEM **ppi, const void *pId)
 /*
  * bucketUnsignedHash ()
  */
-BUCKETID bucketUnsignedHash (BUCKET *pb, const void *pId)
+LOCAL BUCKETID bucketUnsignedHash (BUCKET *pb, const void *pId)
 {
 	const unsigned	*pUId = pId;	
 	unsigned 	src;
@@ -262,11 +263,10 @@ BUCKETID bucketUnsignedHash (BUCKET *pb, const void *pId)
 
 /*
  * bucketPointerHash ()
- *
  */
-BUCKETID bucketPointerHash (BUCKET *pb, const void *pId)
+LOCAL BUCKETID bucketPointerHash (BUCKET *pb, const void *pId)
 {
-	void * const	*ppId = pId;	
+	void * const	*ppId = (void * const *) pId;	
 	unsigned long	src;
 	BUCKETID	hashid;
 
@@ -292,7 +292,7 @@ BUCKETID bucketPointerHash (BUCKET *pb, const void *pId)
 /*
  * bucketStringHash ()
  */
-BUCKETID bucketStringHash (BUCKET *pb, const void *pId)
+LOCAL BUCKETID bucketStringHash (BUCKET *pb, const void *pId)
 {
 	const char	*pStr = pId;	
 	BUCKETID	hashid;

src/libCom/calc/calcPerform.c

@@ -472,6 +472,10 @@ printf ("*FINISHED*\n");
 			*pstacktop = floor(*pstacktop);
 			break;
 
+		case NINT:
+			*pstacktop = (double)(long)((*pstacktop) >= 0 ? (*pstacktop)+0.5 : (*pstacktop)-0.5);
+			break;
+
 		case REL_NOT:
 			*pstacktop = ((*pstacktop)?0:1);
 			break;

src/libCom/calc/postfix.c

@@ -115,7 +115,14 @@
 #define	SEPERATOR	8
 #define	TRASH		9
 #define	FLOAT_PT_CONST	10
+#define	MINUS_OPERATOR	11
 
+#define UNARY_MINUS_I_S_P  7
+#define UNARY_MINUS_I_C_P  8
+#define UNARY_MINUS_CODE   UNARY_NEG
+#define BINARY_MINUS_I_S_P 4
+#define BINARY_MINUS_I_C_P 4
+#define BINARY_MINUS_CODE  SUB
 
 /* flags end of element table */
 #define	END_ELEMENTS	-1
@@ -149,9 +156,12 @@ static struct expression_element	elements[] = {
 /* element	i_s_p	i_c_p	type_element	internal_rep */
 "ABS",		7,	8,	UNARY_OPERATOR,	ABS_VAL,   /* absolute value */
 "NOT",		7,	8,	UNARY_OPERATOR,	UNARY_NEG, /* unary negate */
+"-",		7,	8,	MINUS_OPERATOR,	UNARY_NEG, /* unary negate (or binary op) */
+"SQRT",		7,	8,	UNARY_OPERATOR,	SQU_RT,    /* square root */
 "SQR",		7,	8,	UNARY_OPERATOR,	SQU_RT,    /* square root */
 "EXP",		7,	8,	UNARY_OPERATOR,	EXP,       /* exponential function */
 "LOGE",		7,	8,	UNARY_OPERATOR,	LOG_E,     /* log E */
+"LN",		7,	8,	UNARY_OPERATOR,	LOG_E,     /* log E */
 "LOG",		7,	8,	UNARY_OPERATOR,	LOG_10,    /* log 10 */
 "ACOS",		7,	8,	UNARY_OPERATOR,	ACOS,      /* arc cosine */
 "ASIN",		7,	8,	UNARY_OPERATOR,	ASIN,      /* arc sine */
@@ -160,6 +170,7 @@ static struct expression_element	elements[] = {
 "MIN",		7,	8,	UNARY_OPERATOR,	MIN,       /* minimum of 2 args */
 "CEIL",		7,	8,	UNARY_OPERATOR,	CEIL,      /* smallest integer >= */
 "FLOOR",	7,	8,	UNARY_OPERATOR,	FLOOR,     /* largest integer <=  */
+"NINT",		7,	8,	UNARY_OPERATOR,	NINT,      /* nearest integer */
 "COSH",		7,	8,	UNARY_OPERATOR,	COSH,      /* hyperbolic cosine */
 "COS",		7,	8,	UNARY_OPERATOR,	COS,       /* cosine */
 "SINH",		7,	8,	UNARY_OPERATOR,	SINH,      /* hyperbolic sine */
@@ -216,7 +227,9 @@ static struct expression_element	elements[] = {
 "^",		6,	6,	BINARY_OPERATOR,EXPON,     /* exponentiation */
 "**",		6,	6,	BINARY_OPERATOR,EXPON,     /* exponentiation */
 "+",		4,	4,	BINARY_OPERATOR,ADD,       /* addition */
+#if 0
 "-",		4,	4,	BINARY_OPERATOR,SUB,       /* subtraction */
+#endif
 "*",		5,	5,	BINARY_OPERATOR,MULT,      /* multiplication */
 "/",		5,	5,	BINARY_OPERATOR,DIV,       /* division */
 "%",		5,	5,	BINARY_OPERATOR,MODULO,    /* modulo */
@@ -305,6 +318,7 @@ short		*perror;
 	register struct expression_element	*pstacktop;
 	double		constant;
 	register char   *pposthold, *pc;	
+	char in_stack_pri, in_coming_pri, code;
 
 	/* convert infix expression to upper case */
 	for (pc=pinfix; *pc; pc++) {
@@ -416,6 +430,38 @@ short		*perror;
 		new_expression = FALSE;
 		break;
 
+	    case MINUS_OPERATOR:
+		if (operand_needed){
+			/* then assume minus was intended as a unary operator */
+			in_coming_pri = UNARY_MINUS_I_C_P;
+			in_stack_pri = UNARY_MINUS_I_S_P;
+			code = UNARY_MINUS_CODE;
+			new_expression = FALSE;
+		}
+		else {
+			/* then assume minus was intended as a binary operator */
+			in_coming_pri = BINARY_MINUS_I_C_P;
+			in_stack_pri = BINARY_MINUS_I_S_P;
+			code = BINARY_MINUS_CODE;
+			operand_needed = TRUE;
+		}
+
+		/* add operators of higher or equal priority to	*/
+		/* postfix notation				*/
+		while ((pstacktop->in_stack_pri >= in_coming_pri)
+		  && (pstacktop >= &stack[1])){
+		    *ppostfix++ = pstacktop->code;
+		    pstacktop--;
+		}
+
+		/* add new operator to stack */
+		pstacktop++;
+		*pstacktop = *pelement;
+		pstacktop->in_stack_pri = in_stack_pri;
+		pstacktop->code = code;
+
+		break;
+
 	    case SEPERATOR:
 		if (operand_needed){
 		    *perror = 4;

src/libCom/calcPerform.c

@@ -472,6 +472,10 @@ printf ("*FINISHED*\n");
 			*pstacktop = floor(*pstacktop);
 			break;
 
+		case NINT:
+			*pstacktop = (double)(long)((*pstacktop) >= 0 ? (*pstacktop)+0.5 : (*pstacktop)-0.5);
+			break;
+
 		case REL_NOT:
 			*pstacktop = ((*pstacktop)?0:1);
 			break;

src/libCom/cvtFast.c

@@ -100,7 +100,7 @@ int cvtFloatToString(
 
 	/* whole numbers */
         got_one = 0;
-        for (iplace = 1000000; iplace >= 1; iplace /= 10){
+        for (iplace = 10000000; iplace >= 1; iplace /= 10){
                 if (whole >= iplace){
                         got_one = 1;
                         number = whole / iplace;
@@ -178,7 +178,7 @@ int cvtDoubleToString(
 
 	/* whole numbers */
         got_one = 0;
-        for (iplace = 1000000; iplace >= 1; iplace /= 10){
+        for (iplace = 10000000; iplace >= 1; iplace /= 10){
                 if (whole >= iplace){
                         got_one = 1;
                         number = whole / iplace;

src/libCom/cvtFast/cvtFast.c

@@ -100,7 +100,7 @@ int cvtFloatToString(
 
 	/* whole numbers */
         got_one = 0;
-        for (iplace = 1000000; iplace >= 1; iplace /= 10){
+        for (iplace = 10000000; iplace >= 1; iplace /= 10){
                 if (whole >= iplace){
                         got_one = 1;
                         number = whole / iplace;
@@ -178,7 +178,7 @@ int cvtDoubleToString(
 
 	/* whole numbers */
         got_one = 0;
-        for (iplace = 1000000; iplace >= 1; iplace /= 10){
+        for (iplace = 10000000; iplace >= 1; iplace /= 10){
                 if (whole >= iplace){
                         got_one = 1;
                         number = whole / iplace;

src/libCom/ellLib.c

@@ -32,6 +32,8 @@
 
 /* #define	DEBUG_DRIVER */
 
+#include <stdlib.h>
+
 #include <ellLib.h>
 
 #if     !defined(NULL) 

src/libCom/ellLib/ellLib.c

@@ -32,6 +32,8 @@
 
 /* #define	DEBUG_DRIVER */
 
+#include <stdlib.h>
+
 #include <ellLib.h>
 
 #if     !defined(NULL) 

src/libCom/env/envSubr.c

@@ -28,6 +28,8 @@
  * .01	07-20-91	rac	initial version
  * .02	08-07-91	joh	added config get for long and double C types
  * .03	08-07-91	joh	added config get for struct in_addr type
+ * .04	01-11-95	joh	use getenv()/putenv() to fetch/write env 
+ *				vars under vxWorks	
  *
  * make options
  *	-DvxWorks	makes a version for VxWorks
@@ -60,20 +62,26 @@
 *
 *-***************************************************************************/
 
-#ifdef vxWorks
-#   include <vxWorks.h>
-#   include <stdioLib.h>
-#   include <in.h>
-#   include <types.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#ifdef _WINDOWS
+#	include <winsock.h>
 #else
-#   include <stdio.h>
-#   include <stdlib.h>
-#   include <sys/types.h>
-#   include <netinet/in.h>
+#	include <sys/types.h>
+#	include <netinet/in.h>
+#endif
+
+#ifdef vxWorks
+#include <inetLib.h>
+#include <envLib.h>
+#include <errnoLib.h>
 #endif
 
 #define ENV_PRIVATE_DATA
 #include <envDefs.h>
+#include <errMdef.h>
 #include <epicsEnvParams.h>
 
 
@@ -122,11 +130,8 @@ char	*pBuf;		/* I pointer to parameter buffer  */
     char	*pEnv;		/* pointer to environment string */
     long	i;
 
-#ifndef vxWorks
     pEnv = getenv(pParam->name);
-#else
-    pEnv = NULL;
-#endif
+
     if (pEnv == NULL)
 	pEnv = pParam->dflt;
     if (strlen(pEnv) <= 0)
@@ -363,26 +368,64 @@ ENV_PARAM *pParam;	/* I pointer to config param structure */
 *
 *-*/
 long
-envSetConfigParam(pParam, value)
-ENV_PARAM *pParam;	/* I pointer to config param structure */
-char	*value;		/* I pointer to value string */
+envSetConfigParam (pParam, value)
+ENV_PARAM 	*pParam;	/* I pointer to config param structure */
+char		*value;		/* I pointer to value string */
 {
 #ifndef vxWorks
-    printf("envSetConfigParam can't be used in UNIX\n");
+    	printf("envSetConfigParam can only be used under vxWorks\n");
+	return -1L;
 #else
-    if (strlen(value) < 80)
-	strcpy(pParam->dflt, value);
-    else {
-	strncpy(pParam->dflt, value, 79);
-	pParam->dflt[79] = '\0';
-    }
+	long	retCode = 0;
+	int	status;
+	char	*pEnv;
+
+	/*
+	 * space for two strings, an '=' character,
+	 * and a null termination
+	 */
+	pEnv = malloc (strlen (pParam->name) + strlen (value) + 2);
+	if (!pEnv) {
+		errPrintf(
+			-1L,
+			__FILE__,
+			__LINE__,
+"Failed to set environment parameter \"%s\" to \"%s\" because \"%s\"\n",
+			pParam->name,
+			value,
+			strerror (errnoGet()));
+		return -1L;
+	}
+
+	strcpy (pEnv, pParam->name);
+	strcat (pEnv, "=");
+	strcat (pEnv, value);
+	status = putenv (pEnv);
+	if (status<0) {
+		errPrintf(
+			-1L,
+			__FILE__,
+			__LINE__,
+"Failed to set environment parameter \"%s\" to \"%s\" because \"%s\"\n",
+			pParam->name,
+			value,
+			strerror (errnoGet()));
+		retCode = -1L;
+	}
+	/*
+ 	 * vxWorks copies into a private buffer
+	 * (this does not match UNIX behavior)
+	 */
+	free (pEnv);
+	
+	return retCode;
 #endif
-    return 0;
 }
+
 
 /*parameters meant to be modified in epicsEnvParams.h*/
 
-epicsSetEnvParams()
+int epicsSetEnvParams()
 {
     printf("setting EPICS environment parameters\n");
     envSetConfigParam(&EPICS_TS_MIN_WEST, EPICS_TS_MIN_VALUE);
@@ -393,7 +436,8 @@ epicsSetEnvParams()
     envSetConfigParam(&EPICS_IOC_LOG_FILE_NAME, EPICS_IOC_LOG_FILE_TXT);
     return 0;
 }
-epicsPrtEnvParams()
+
+int epicsPrtEnvParams()
 {
     envPrtConfigParam(&EPICS_TS_MIN_WEST);
     envPrtConfigParam(&EPICS_CMD_PROTO_PORT);

src/libCom/envSubr.c

@@ -28,6 +28,8 @@
  * .01	07-20-91	rac	initial version
  * .02	08-07-91	joh	added config get for long and double C types
  * .03	08-07-91	joh	added config get for struct in_addr type
+ * .04	01-11-95	joh	use getenv()/putenv() to fetch/write env 
+ *				vars under vxWorks	
  *
  * make options
  *	-DvxWorks	makes a version for VxWorks
@@ -60,20 +62,26 @@
 *
 *-***************************************************************************/
 
-#ifdef vxWorks
-#   include <vxWorks.h>
-#   include <stdioLib.h>
-#   include <in.h>
-#   include <types.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#ifdef _WINDOWS
+#	include <winsock.h>
 #else
-#   include <stdio.h>
-#   include <stdlib.h>
-#   include <sys/types.h>
-#   include <netinet/in.h>
+#	include <sys/types.h>
+#	include <netinet/in.h>
+#endif
+
+#ifdef vxWorks
+#include <inetLib.h>
+#include <envLib.h>
+#include <errnoLib.h>
 #endif
 
 #define ENV_PRIVATE_DATA
 #include <envDefs.h>
+#include <errMdef.h>
 #include <epicsEnvParams.h>
 
 
@@ -122,11 +130,8 @@ char	*pBuf;		/* I pointer to parameter buffer  */
     char	*pEnv;		/* pointer to environment string */
     long	i;
 
-#ifndef vxWorks
     pEnv = getenv(pParam->name);
-#else
-    pEnv = NULL;
-#endif
+
     if (pEnv == NULL)
 	pEnv = pParam->dflt;
     if (strlen(pEnv) <= 0)
@@ -363,26 +368,64 @@ ENV_PARAM *pParam;	/* I pointer to config param structure */
 *
 *-*/
 long
-envSetConfigParam(pParam, value)
-ENV_PARAM *pParam;	/* I pointer to config param structure */
-char	*value;		/* I pointer to value string */
+envSetConfigParam (pParam, value)
+ENV_PARAM 	*pParam;	/* I pointer to config param structure */
+char		*value;		/* I pointer to value string */
 {
 #ifndef vxWorks
-    printf("envSetConfigParam can't be used in UNIX\n");
+    	printf("envSetConfigParam can only be used under vxWorks\n");
+	return -1L;
 #else
-    if (strlen(value) < 80)
-	strcpy(pParam->dflt, value);
-    else {
-	strncpy(pParam->dflt, value, 79);
-	pParam->dflt[79] = '\0';
-    }
+	long	retCode = 0;
+	int	status;
+	char	*pEnv;
+
+	/*
+	 * space for two strings, an '=' character,
+	 * and a null termination
+	 */
+	pEnv = malloc (strlen (pParam->name) + strlen (value) + 2);
+	if (!pEnv) {
+		errPrintf(
+			-1L,
+			__FILE__,
+			__LINE__,
+"Failed to set environment parameter \"%s\" to \"%s\" because \"%s\"\n",
+			pParam->name,
+			value,
+			strerror (errnoGet()));
+		return -1L;
+	}
+
+	strcpy (pEnv, pParam->name);
+	strcat (pEnv, "=");
+	strcat (pEnv, value);
+	status = putenv (pEnv);
+	if (status<0) {
+		errPrintf(
+			-1L,
+			__FILE__,
+			__LINE__,
+"Failed to set environment parameter \"%s\" to \"%s\" because \"%s\"\n",
+			pParam->name,
+			value,
+			strerror (errnoGet()));
+		retCode = -1L;
+	}
+	/*
+ 	 * vxWorks copies into a private buffer
+	 * (this does not match UNIX behavior)
+	 */
+	free (pEnv);
+	
+	return retCode;
 #endif
-    return 0;
 }
+
 
 /*parameters meant to be modified in epicsEnvParams.h*/
 
-epicsSetEnvParams()
+int epicsSetEnvParams()
 {
     printf("setting EPICS environment parameters\n");
     envSetConfigParam(&EPICS_TS_MIN_WEST, EPICS_TS_MIN_VALUE);
@@ -393,7 +436,8 @@ epicsSetEnvParams()
     envSetConfigParam(&EPICS_IOC_LOG_FILE_NAME, EPICS_IOC_LOG_FILE_TXT);
     return 0;
 }
-epicsPrtEnvParams()
+
+int epicsPrtEnvParams()
 {
     envPrtConfigParam(&EPICS_TS_MIN_WEST);
     envPrtConfigParam(&EPICS_CMD_PROTO_PORT);

src/libCom/errInc.c

@@ -12,8 +12,6 @@
 #include "dbRecType.h"
 #include "dbRecords.h"
 #include "tsDefs.h"
-#include "arAccessLib.h"
-#include "sydDefs.h"
 #include "drvGpibErr.h"
 #include "drvBitBusErr.h"
 #include "calink.h"

src/libCom/errPrintfUNIX.c

@@ -0,0 +1,79 @@
+/* $Id$
+ * errPrintfUNIX.c
+ *      Author:          Marty Kraimer
+ *      Date:            02-16-95
+ *
+ *      Experimental Physics and Industrial Control System (EPICS)
+ *
+ *      Copyright 1991, the Regents of the University of California,
+ *      and the University of Chicago Board of Governors.
+ *
+ *      This software was produced under  U.S. Government contracts:
+ *      (W-7405-ENG-36) at the Los Alamos National Laboratory,
+ *      and (W-31-109-ENG-38) at Argonne National Laboratory.
+ *
+ *      Initial development by:
+ *              The Controls and Automation Group (AT-8)
+ *              Ground Test Accelerator
+ *              Accelerator Technology Division
+ *              Los Alamos National Laboratory
+ *
+ *      Co-developed with
+ *              The Controls and Computing Group
+ *              Accelerator Systems Division
+ *              Advanced Photon Source
+ *              Argonne National Laboratory
+ *
+ * Modification Log: errPrintfUNIX.c
+ * -----------------
+ * .01  02-16-95	mrk	Extracted from errSymLib.c
+ ***************************************************************************
+ * This must ultimately be replaced by a facility that allows remote
+ * nodes access to the error messages. A message handling communication
+ * task should be written that allows multiple remote nodes to request
+ * notification of all error messages.
+ * For now lets just print messages and last errno via logMsg or printf
+ ***************************************************************************
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
+#include <dbDefs.h>
+#include <errMdef.h>
+#include "errSymTbl.h"
+
+
+/****************************************************************
+ * ERRMESSAGE - now a macro to call errPrintf
+ * ERRPRINTF  - print an error symbol message
+ ***************************************************************/
+void errPrintf(long status, const char *pFileName, 
+	int lineno, const char *pformat, ...)
+{
+    va_list 	   pvar;
+
+    va_start(pvar, pformat);
+    if(pFileName && errVerbose){
+      	printf("filename=\"%s\" line number=%d\n", pFileName, lineno);
+    }
+    if(status==0) status = errno;
+    if(status>0) {
+	int rtnval;
+	unsigned short modnum,errnum;
+	char	name[256];
+
+	rtnval = errSymFind(status,name);
+	modnum = status >> 16;
+	errnum = status & 0xffff;
+	if(rtnval) {
+	    printf( "Error status (module %hu, number %hu) not in symbol table",
+		modnum, errnum);
+	} else {
+	    printf("%s ",name);
+	}
+    }
+    vprintf(pformat,pvar);
+    printf("\n");
+}

src/libCom/errPrintfVX.c

@@ -0,0 +1,264 @@
+/* $Id$
+ * errPrintfVX.c
+ *      Author:          Marty Kraimer and Jeff Hill
+ *      Date:            6-1-90
+ *
+ *      Experimental Physics and Industrial Control System (EPICS)
+ *
+ *      Copyright 1991, the Regents of the University of California,
+ *      and the University of Chicago Board of Governors.
+ *
+ *      This software was produced under  U.S. Government contracts:
+ *      (W-7405-ENG-36) at the Los Alamos National Laboratory,
+ *      and (W-31-109-ENG-38) at Argonne National Laboratory.
+ *
+ *      Initial development by:
+ *              The Controls and Automation Group (AT-8)
+ *              Ground Test Accelerator
+ *              Accelerator Technology Division
+ *              Los Alamos National Laboratory
+ *
+ *      Co-developed with
+ *              The Controls and Computing Group
+ *              Accelerator Systems Division
+ *              Advanced Photon Source
+ *              Argonne National Laboratory
+ *
+ * Modification Log: errPrintfVX.c
+ * -----------------
+ * .01  02-16-95        mrk     Extracted from errSymLib.c
+ ***************************************************************************
+ */
+
+#include <stdio.h>
+#include <assert.h>
+#include <stdarg.h>
+#include <string.h>
+#include <errno.h>
+
+#include <vxWorks.h>
+#include <taskLib.h>
+#include <errnoLib.h>
+#include <intLib.h>
+#include <types.h>
+#include <symLib.h>
+#include <semLib.h>
+#include <error.h>
+#include <logLib.h>
+
+#include <ellLib.h>
+#include <dbDefs.h>
+#include <task_params.h>
+#include <errMdef.h>
+#include <epicsPrint.h>
+#ifndef LOCAL
+#define LOCAL static
+#endif /* LOCAL */
+
+static int mprintf (const char *pFormat, ...);
+static int vmprintf (const char *pFormat, va_list pvar);
+
+extern FILE *iocLogFile;
+
+LOCAL SEM_ID clientWaitForTask;
+LOCAL SEM_ID clientWaitForCompletion;
+LOCAL SEM_ID serverWaitForWork;
+
+LOCAL void epicsPrintTask(void);
+LOCAL void errPrintfPVT(void);
+
+typedef enum{cmdErrPrintf,cmdEpicsPrint} cmdType;
+
+LOCAL struct {
+	cmdType		cmd;
+	int		taskid;
+	long		status;
+	const char	*pFileName;
+	int		lineno;
+	const char	*pformat;
+	va_list		pvar;
+	int		oldtaskid;
+	int		printfStatus;
+}pvtData;
+
+void errInit(void)
+{
+    pvtData.oldtaskid = 0;
+    if((clientWaitForTask=semBCreate(SEM_Q_FIFO,SEM_EMPTY))==NULL)
+	logMsg("semBcreate failed in errInit",0,0,0,0,0,0);
+    if((clientWaitForCompletion=semBCreate(SEM_Q_FIFO,SEM_EMPTY))==NULL)
+	logMsg("semBcreate failed in errInit",0,0,0,0,0,0);
+    if((serverWaitForWork=semBCreate(SEM_Q_FIFO,SEM_EMPTY))==NULL)
+	logMsg("semBcreate failed in errInit",0,0,0,0,0,0);
+    taskSpawn(EPICSPRINT_NAME,EPICSPRINT_PRI,EPICSPRINT_OPT,
+	EPICSPRINT_STACK,(FUNCPTR)epicsPrintTask,
+	0,0,0,0,0,0,0,0,0,0);
+    if ((errSymBld()) != 0) {
+	logMsg("errSymBld failed to initialize\n",0,0,0,0,0,0);
+    }
+}
+
+LOCAL void epicsPrintTask(void)
+{
+    semGive(clientWaitForTask);
+    while(TRUE) {
+	if(semTake(serverWaitForWork,WAIT_FOREVER)!=OK)
+	    logMsg("epicsPrint: semTake returned error\n",0,0,0,0,0,0);
+	switch(pvtData.cmd) {
+	case (cmdErrPrintf) :
+		errPrintfPVT();
+		break;
+	case (cmdEpicsPrint) :
+		pvtData.printfStatus = vmprintf(pvtData.pformat,pvtData.pvar);
+		break;
+	}
+	semGive(clientWaitForCompletion);
+    }
+}
+	
+
+void errPrintf(long status, const char *pFileName, 
+	int lineno, const char *pformat, ...)
+{
+    va_list	pvar;
+
+    if(INT_CONTEXT()) {
+	int	logMsgArgs[6];
+	int	i;
+
+	va_start (pvar, pformat);
+	for (i=0; i<NELEMENTS(logMsgArgs); i++) {
+	    logMsgArgs[i] = va_arg(pvar, int);
+	}
+	logMsg ((char *)pformat,logMsgArgs[0],logMsgArgs[1],
+		logMsgArgs[2],logMsgArgs[3],logMsgArgs[4],
+		logMsgArgs[5]);
+	va_end (pvar);
+	return;
+    }
+    va_start (pvar, pformat);
+    if(semTake(clientWaitForTask,WAIT_FOREVER)!=OK) {
+	logMsg("epicsPrint: semTake returned error\n",0,0,0,0,0,0);
+	taskSuspend(taskIdSelf());
+    }
+    pvtData.cmd = cmdErrPrintf;
+    pvtData.taskid = taskIdSelf();
+    pvtData.status = status;
+    pvtData.pFileName = pFileName;
+    pvtData.lineno = lineno;
+    pvtData.pformat = pformat;
+    pvtData.pvar = pvar;
+    semGive(serverWaitForWork);
+    if(semTake(clientWaitForCompletion,WAIT_FOREVER)!=OK) {
+	logMsg("epicsPrint: semTake returned error\n",0,0,0,0,0,0);
+	taskSuspend(taskIdSelf());
+    }
+    semGive(clientWaitForTask);
+}
+
+LOCAL void errPrintfPVT(void)
+{
+    long	status		= pvtData.status;
+    const char	*pFileName	= pvtData.pFileName;
+    int		lineno		= pvtData.lineno;
+    const char	*pformat	= pvtData.pformat;
+    va_list	pvar		= pvtData.pvar;
+
+
+    if(pvtData.taskid != pvtData.oldtaskid) {
+	mprintf("task: 0X%x %s\n",pvtData.taskid,taskName(pvtData.taskid));
+	pvtData.oldtaskid = pvtData.taskid;
+    }
+    if(pFileName && errVerbose){
+      	mprintf("filename=\"%s\" line number=%d\n", pFileName, lineno);
+    }
+    if(status==0) status = MYERRNO;
+    if(status>0) {
+	int rtnval;
+	unsigned short modnum,errnum;
+	char    name[256];
+
+	rtnval = errSymFind(status,name);
+	modnum = status >> 16;
+	errnum = status & 0xffff;
+	if(rtnval) {
+	    mprintf("Error status (module %hu, number %hu) not in symbol table\n",
+		modnum, errnum);
+	} else {
+	    mprintf("%s ",name);
+	}
+    }
+    vmprintf(pformat,pvar);
+    mprintf("\n");
+    return;
+}
+
+int epicsPrintf(const char *pformat, ...)
+{
+    va_list	pvar;
+
+    va_start(pvar, pformat);
+    return epicsVprintf(pformat,pvar);
+}
+
+int epicsVprintf(const char *pformat, va_list pvar)
+{
+    int status;
+
+    if(INT_CONTEXT()) {
+	int	logMsgArgs[6];
+	int	i;
+
+	for (i=0; i<NELEMENTS(logMsgArgs); i++) {
+	    logMsgArgs[i] = va_arg(pvar, int);
+	}
+	status = logMsg ((char *)pformat,logMsgArgs[0],logMsgArgs[1],
+		logMsgArgs[2],logMsgArgs[3],logMsgArgs[4],
+		logMsgArgs[5]);
+	va_end (pvar);
+	return status;
+    }
+    if(semTake(clientWaitForTask,WAIT_FOREVER)!=OK) {
+	logMsg("epicsPrint: semTake returned error\n",0,0,0,0,0,0);
+	taskSuspend(taskIdSelf());
+    }
+    pvtData.cmd = cmdEpicsPrint;
+    pvtData.pformat = pformat;
+    pvtData.pvar = pvar;
+    semGive(serverWaitForWork);
+    if(semTake(clientWaitForCompletion,WAIT_FOREVER)!=OK) {
+	logMsg("epicsPrint: semTake returned error\n",0,0,0,0,0,0);
+	taskSuspend(taskIdSelf());
+    }
+    status = pvtData.printfStatus;
+    semGive(clientWaitForTask);
+
+    return status;
+}
+
+LOCAL int mprintf (const char *pFormat, ...)
+{
+	va_list		pvar;
+
+	va_start (pvar, pFormat);
+
+	return vmprintf (pFormat, pvar);
+}
+
+
+LOCAL int vmprintf (const char *pFormat, va_list pvar)
+{
+	int	s0;
+	int	s1;
+
+	s0 = vfprintf(stdout,pFormat,pvar);
+	fflush(stdout);
+	s1 = vfprintf(iocLogFile,pFormat,pvar);
+	fflush(iocLogFile);
+	va_end(pvar);
+	if (s1<0) {
+		return s1;
+	}
+	return s0;
+}
+

src/libCom/errSymLib.c

@@ -61,27 +61,31 @@
  * .01  09-04-93        rcz     Merged errMessage.c, errPrint.c, errSymFind.c
  *			rcz	into one file (errSymLib.c) and changed method
  *			rcz	of errSymTable lookup.
+ * .02 	01-13-95	joh	call mprintf() instead of logMsg()	
+ *				and eliminated errToLogMsg variable
  */
 
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
 #include <ellLib.h>
 #include <dbDefs.h>
 #include <errMdef.h>
 #include "errSymTbl.h"
-#include <stdio.h>
 
 #ifdef vxWorks
 #include <vxWorks.h>
 #include <taskLib.h>
-#include <logLib.h>
 #include <types.h>
 #include <symLib.h>
+#include <errnoLib.h>
+
 
 extern SYMTAB_ID  statSymTbl;
 
 #else
-#include <string.h>
-extern int errno;
-extern int      sys_nerr;
+extern int     sys_nerr;
 extern char    *sys_errlist[];
 #endif
 
@@ -108,15 +112,10 @@ static int initialized = FALSE;
 extern ERRSYMTAB_ID errSymTbl;
 
 
-#ifdef vxWorks
-int errToLogMsg = TRUE;
-#endif
-
 /*Declare storage for errVerbose( defined in errMdef.h)*/
 int errVerbose=0;
 
 
-
 
 /****************************************************************
  * ERRSYMBLD
@@ -192,215 +191,6 @@ unsigned short errnum;
 	return((unsigned short)(((modnum - 500) * 20) + errnum) % NHASH);
 }
 
-/****************************************************************
- * ERRMESSAGE - now a macro to call errPrintf
- * ERRPRINTF  - print an error symbol message
- ***************************************************************/
-#ifdef __STDC__
-void errPrintf(long status, char *pFileName, int lineno, char *pformat, ...)
-#else
-void errPrintf(va_alist)
-va_dcl
-#endif
-{
-    va_list 	   pvar;
-    static char    *pReformat;
-    static int	   reformatSize;
-    static char	   pAdd[] = {'\n', '\0'};
-#ifndef __STDC__
-    long     	   status;
-    char           *pformat;
-    char	   *pFileName;
-    int		   lineno;
-#endif
-#ifdef vxWorks
-    int             id;
-    static int      saveid = -1;
-    char           *pname;
-#endif
-
-#ifdef __STDC__
-    va_start(pvar, pformat);
-#else
-    va_start(pvar);
-    status = va_arg(pvar, long);
-    pFileName = va_arg(pvar, char *);
-    lineno = va_arg(pvar, int);
-    pformat = va_arg(pvar, char *);
-#endif
-
-#ifdef vxWorks
-    if(!errToLogMsg) {
-	id = taskIdSelf();
-	if (saveid != id) {
-	    saveid = id;
-	    pname = taskName(id);
-	    printf("taskid=%x taskname=%s ", id, pname);
-	}
-    }
-#endif
-
-    if(pFileName && errVerbose){
-#ifdef vxWorks
-      	if(errToLogMsg) {
-        	logMsg("filename=\"%s\" line number=%d\n", pFileName, lineno,
-		NULL, NULL, NULL, NULL);
-      	}
-      	else{
-        	printf("filename=\"%s\" line number=%d\n", pFileName, lineno);
-      	}
-#else
-      	printf("filename=\"%s\" line number=%d\n", pFileName, lineno);
-#endif
-    }
-
-    if (pformat != NULL) {
-	int		size;
-
-	size = strlen(pformat)+NELEMENTS(pAdd);
-	
-	if(reformatSize < size){
-		/*
-		 * use a reasonable size string
-		 */
-		size = max(0xff, size);
-		if(pReformat){
-			free(pReformat);
-		}
-
-		pReformat = (char *) malloc(size);
-		if(pReformat){
-			reformatSize = size;
-		}
-		else{
-#ifdef vxWorks
-		    logMsg("%s: calloc error\n", __FILE__,
-		    NULL, NULL, NULL, NULL, NULL);
-#else
-		    printf("%s: calloc error\n", __FILE__);
-#endif
-		    return;
-		}
-	}
-	strcpy(pReformat, pformat);
-	strcat(pReformat, pAdd);
-
-    }
-
-    verrPrintStatus(status, pReformat, pvar);
-
-    return;
-}
-
-/****************************************************************
- * ERRPRINTSTATUS
- ***************************************************************/
-#ifdef __STDC__
-int errPrintStatus(long status, char *pFormat, ...)
-#else
-int errPrintStatus(va_alist)
-va_dcl
-#endif
-{
-	va_list        pvar;
-#ifndef __STDC__
-	long		status;
-	char		*pFormat;
-#endif
-
-#ifdef __STDC__
-	va_start(pvar, pFormat);
-#else
-	va_start(pvar);
-	status = va_arg(pvar, long);
-	pFormat = va_arg(pvar, char *);
-#endif
-
-	return verrPrintStatus(status, pFormat, pvar);
-}
-
-/****************************************************************
- * VERRPRINTSTATUS
- ***************************************************************/
-#ifdef __STDC__
-int verrPrintStatus(long status, char *pFormatString, va_list pvar)
-#else
-int verrPrintStatus(status, pFormatString, pvar)
-long 	status;
-char	*pFormatString;
-va_list	pvar;
-#endif
-{
-	static char	ctxToLarge[] = "** Context String Overflow **";
-	char 		name[256];
-	int 		rtnval;
-	int		namelen;
-	int		formatlen;
-	unsigned short modnum;
-	unsigned short errnum;
-
-
-	name[0] = '\0';
-	if(status==0) status = MYERRNO;
-	if(status >= -1){
-		rtnval = 0;
-	}
-	else {
-		rtnval = status;
-	}
-	if(status>0) {
-	    rtnval = errSymFind(status,name);
-	    modnum = status >> 16;
-	    errnum = status & 0xffff;
-	    if(rtnval) {
-		sprintf(name, 
-			"Error status (module %hu, number %hu) not in symbol table", 
-			modnum, errnum);
-	    }
-	}
-	if(pFormatString){
-		namelen = strlen(name);
-		formatlen = strlen(pFormatString);
-		strcat(name," ");
-		if(sizeof(name)-namelen-1 > formatlen){
-			strcat(name, pFormatString);
-		}
-		else if(sizeof(name)-namelen-1 > sizeof(ctxToLarge)){
-			strcat(name, ctxToLarge);
-		}
-		else{
-			fprintf(stderr,ctxToLarge);
-		}
-	}
-
-#ifdef vxWorks
-	if(errToLogMsg){
-		int     i;
-		int     logMsgArgs[6];
-
-		for(i=0; i< NELEMENTS(logMsgArgs); i++){
-			logMsgArgs[i] = va_arg(pvar, int);
-		}
-
-		logMsg(
-			name,
-			logMsgArgs[0],
-			logMsgArgs[1],
-			logMsgArgs[2],
-			logMsgArgs[3],
-			logMsgArgs[4],
-			logMsgArgs[5]);
-	}
-	else{
-		vprintf(name, pvar);
-	}
-#else
-	vprintf(name, pvar);
-#endif
-
-	return rtnval;
-}
-
 /****************************************************************
  * ERRSYMBOLADD
  * adds symbols to the master errnumlist as compiled from errSymTbl.c
@@ -623,3 +413,5 @@ unsigned short endErrNum;
 	errSymTestPrint(errNum);
     }
 }
+
+

src/libCom/error/errSymLib.c

@@ -61,27 +61,31 @@
  * .01  09-04-93        rcz     Merged errMessage.c, errPrint.c, errSymFind.c
  *			rcz	into one file (errSymLib.c) and changed method
  *			rcz	of errSymTable lookup.
+ * .02 	01-13-95	joh	call mprintf() instead of logMsg()	
+ *				and eliminated errToLogMsg variable
  */
 
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
 #include <ellLib.h>
 #include <dbDefs.h>
 #include <errMdef.h>
 #include "errSymTbl.h"
-#include <stdio.h>
 
 #ifdef vxWorks
 #include <vxWorks.h>
 #include <taskLib.h>
-#include <logLib.h>
 #include <types.h>
 #include <symLib.h>
+#include <errnoLib.h>
+
 
 extern SYMTAB_ID  statSymTbl;
 
 #else
-#include <string.h>
-extern int errno;
-extern int      sys_nerr;
+extern int     sys_nerr;
 extern char    *sys_errlist[];
 #endif
 
@@ -108,15 +112,10 @@ static int initialized = FALSE;
 extern ERRSYMTAB_ID errSymTbl;
 
 
-#ifdef vxWorks
-int errToLogMsg = TRUE;
-#endif
-
 /*Declare storage for errVerbose( defined in errMdef.h)*/
 int errVerbose=0;
 
 
-
 
 /****************************************************************
  * ERRSYMBLD
@@ -192,215 +191,6 @@ unsigned short errnum;
 	return((unsigned short)(((modnum - 500) * 20) + errnum) % NHASH);
 }
 
-/****************************************************************
- * ERRMESSAGE - now a macro to call errPrintf
- * ERRPRINTF  - print an error symbol message
- ***************************************************************/
-#ifdef __STDC__
-void errPrintf(long status, char *pFileName, int lineno, char *pformat, ...)
-#else
-void errPrintf(va_alist)
-va_dcl
-#endif
-{
-    va_list 	   pvar;
-    static char    *pReformat;
-    static int	   reformatSize;
-    static char	   pAdd[] = {'\n', '\0'};
-#ifndef __STDC__
-    long     	   status;
-    char           *pformat;
-    char	   *pFileName;
-    int		   lineno;
-#endif
-#ifdef vxWorks
-    int             id;
-    static int      saveid = -1;
-    char           *pname;
-#endif
-
-#ifdef __STDC__
-    va_start(pvar, pformat);
-#else
-    va_start(pvar);
-    status = va_arg(pvar, long);
-    pFileName = va_arg(pvar, char *);
-    lineno = va_arg(pvar, int);
-    pformat = va_arg(pvar, char *);
-#endif
-
-#ifdef vxWorks
-    if(!errToLogMsg) {
-	id = taskIdSelf();
-	if (saveid != id) {
-	    saveid = id;
-	    pname = taskName(id);
-	    printf("taskid=%x taskname=%s ", id, pname);
-	}
-    }
-#endif
-
-    if(pFileName && errVerbose){
-#ifdef vxWorks
-      	if(errToLogMsg) {
-        	logMsg("filename=\"%s\" line number=%d\n", pFileName, lineno,
-		NULL, NULL, NULL, NULL);
-      	}
-      	else{
-        	printf("filename=\"%s\" line number=%d\n", pFileName, lineno);
-      	}
-#else
-      	printf("filename=\"%s\" line number=%d\n", pFileName, lineno);
-#endif
-    }
-
-    if (pformat != NULL) {
-	int		size;
-
-	size = strlen(pformat)+NELEMENTS(pAdd);
-	
-	if(reformatSize < size){
-		/*
-		 * use a reasonable size string
-		 */
-		size = max(0xff, size);
-		if(pReformat){
-			free(pReformat);
-		}
-
-		pReformat = (char *) malloc(size);
-		if(pReformat){
-			reformatSize = size;
-		}
-		else{
-#ifdef vxWorks
-		    logMsg("%s: calloc error\n", __FILE__,
-		    NULL, NULL, NULL, NULL, NULL);
-#else
-		    printf("%s: calloc error\n", __FILE__);
-#endif
-		    return;
-		}
-	}
-	strcpy(pReformat, pformat);
-	strcat(pReformat, pAdd);
-
-    }
-
-    verrPrintStatus(status, pReformat, pvar);
-
-    return;
-}
-
-/****************************************************************
- * ERRPRINTSTATUS
- ***************************************************************/
-#ifdef __STDC__
-int errPrintStatus(long status, char *pFormat, ...)
-#else
-int errPrintStatus(va_alist)
-va_dcl
-#endif
-{
-	va_list        pvar;
-#ifndef __STDC__
-	long		status;
-	char		*pFormat;
-#endif
-
-#ifdef __STDC__
-	va_start(pvar, pFormat);
-#else
-	va_start(pvar);
-	status = va_arg(pvar, long);
-	pFormat = va_arg(pvar, char *);
-#endif
-
-	return verrPrintStatus(status, pFormat, pvar);
-}
-
-/****************************************************************
- * VERRPRINTSTATUS
- ***************************************************************/
-#ifdef __STDC__
-int verrPrintStatus(long status, char *pFormatString, va_list pvar)
-#else
-int verrPrintStatus(status, pFormatString, pvar)
-long 	status;
-char	*pFormatString;
-va_list	pvar;
-#endif
-{
-	static char	ctxToLarge[] = "** Context String Overflow **";
-	char 		name[256];
-	int 		rtnval;
-	int		namelen;
-	int		formatlen;
-	unsigned short modnum;
-	unsigned short errnum;
-
-
-	name[0] = '\0';
-	if(status==0) status = MYERRNO;
-	if(status >= -1){
-		rtnval = 0;
-	}
-	else {
-		rtnval = status;
-	}
-	if(status>0) {
-	    rtnval = errSymFind(status,name);
-	    modnum = status >> 16;
-	    errnum = status & 0xffff;
-	    if(rtnval) {
-		sprintf(name, 
-			"Error status (module %hu, number %hu) not in symbol table", 
-			modnum, errnum);
-	    }
-	}
-	if(pFormatString){
-		namelen = strlen(name);
-		formatlen = strlen(pFormatString);
-		strcat(name," ");
-		if(sizeof(name)-namelen-1 > formatlen){
-			strcat(name, pFormatString);
-		}
-		else if(sizeof(name)-namelen-1 > sizeof(ctxToLarge)){
-			strcat(name, ctxToLarge);
-		}
-		else{
-			fprintf(stderr,ctxToLarge);
-		}
-	}
-
-#ifdef vxWorks
-	if(errToLogMsg){
-		int     i;
-		int     logMsgArgs[6];
-
-		for(i=0; i< NELEMENTS(logMsgArgs); i++){
-			logMsgArgs[i] = va_arg(pvar, int);
-		}
-
-		logMsg(
-			name,
-			logMsgArgs[0],
-			logMsgArgs[1],
-			logMsgArgs[2],
-			logMsgArgs[3],
-			logMsgArgs[4],
-			logMsgArgs[5]);
-	}
-	else{
-		vprintf(name, pvar);
-	}
-#else
-	vprintf(name, pvar);
-#endif
-
-	return rtnval;
-}
-
 /****************************************************************
  * ERRSYMBOLADD
  * adds symbols to the master errnumlist as compiled from errSymTbl.c
@@ -623,3 +413,5 @@ unsigned short endErrNum;
 	errSymTestPrint(errNum);
     }
 }
+
+

src/libCom/genSubr.c

@@ -124,6 +124,8 @@ int lineNum;
 #else
     abort();
 #endif
+
+    return (0); 
 }
 
 /*+/subr**********************************************************************

src/libCom/mprintf.c

@@ -0,0 +1,305 @@
+/* 
+ * mprintf.c
+ *      Author:         Jeffrey Hill 
+ *      Date:          	1-13-95 
+ *
+ *      Experimental Physics and Industrial Control System (EPICS)
+ *
+ *      Copyright 1991, the Regents of the University of California,
+ *      and the University of Chicago Board of Governors.
+ *
+ *      This software was produced under  U.S. Government contracts:
+ *      (W-7405-ENG-36) at the Los Alamos National Laboratory,
+ *      and (W-31-109-ENG-38) at Argonne National Laboratory.
+ *
+ *      Initial development by:
+ *              The Controls and Automation Group (AT-8)
+ *              Ground Test Accelerator
+ *              Accelerator Technology Division
+ *              Los Alamos National Laboratory
+ *
+ *      Co-developed with
+ *              The Controls and Computing Group
+ *              Accelerator Systems Division
+ *              Advanced Photon Source
+ *              Argonne National Laboratory
+ *
+ * 
+ * This source provides a similar service to logMsg() that 
+ * solves some of its fundamental problems.
+ *
+ * Known problems with logMsg()
+ * o Does not have variable arguments.
+ * o Prints output at the highest priority in the system.
+ * o Does not queue the format string so problems result
+ *	if the calling task reuses the format string.
+ * o Problems result if the format string was allocated
+ *	on the stack (a C automatic variable).
+ *
+ */
+
+/*
+ * ANSI includes
+ */
+#include <stdio.h>
+#include <assert.h>
+#include <stdarg.h>
+#include <string.h>
+
+/*
+ * OS dependent includes
+ */
+#ifdef vxWorks
+#include <semLib.h>
+#include <logLib.h>
+#include <intLib.h>
+#include <taskLib.h>
+#endif
+
+#ifndef LOCAL
+#define LOCAL static
+#endif
+
+#ifndef TRUE
+#define TRUE 1
+#endif
+
+#ifndef FALSE
+#define FALSE 0
+#endif 
+
+/*
+ * mprintf header file
+ */
+#include <mprintf.h>
+
+#ifdef vxWorks
+	typedef struct {
+		FILE	**pppFileList[3];
+		SEM_ID	sem;
+	}osDepen;
+#else
+	typedef struct {
+		FILE 	**pppFileList[2]; 
+	}osDepen;
+#endif
+
+
+typedef struct mprintfContext {
+	int	(*pPrintfISR) (char *pFormat, va_list pvar); 
+	void	(*pInit) (struct mprintfContext *pCtx);
+	void	(*pPrintThreadName) (struct mprintfContext *pCtx, FILE *pfile);
+	void	(*pMutexLock) (struct mprintfContext *pCtx);
+	void	(*pMutexUnlock) (struct mprintfContext *pCtx);
+	FILE	***pppFileList;
+	osDepen	os;
+	int	initComplete;
+}mpc;
+
+LOCAL int vmprintfISR (char *pFormat, va_list pvar);
+LOCAL void mprintfInit (mpc *pCtx);
+LOCAL void printThreadName (mpc *pCtx, FILE *pfile);
+LOCAL void mprintfMutexLock (mpc *pCtx);
+LOCAL void mprintfMutexUnlock (mpc *pCtx);
+
+#ifdef vxWorks
+	LOCAL FILE	*stdoutRef;		
+	extern FILE	*iocLogFile;
+	LOCAL mpc ctx = {
+		vmprintfISR,
+		mprintfInit,
+		printThreadName,
+		mprintfMutexLock,
+		mprintfMutexUnlock,
+		ctx.os.pppFileList,
+		{&stdoutRef, &iocLogFile, NULL} 		
+	};
+#else
+	LOCAL FILE	*stdoutRef;		
+	LOCAL mpc ctx = {
+		vmprintfISR,
+		mprintfInit,
+		printThreadName,
+		mprintfMutexLock,
+		mprintfMutexUnlock,
+		ctx.os.pppFileList,
+		{&stdoutRef, NULL} 		
+	};
+#endif
+
+LOCAL mpc *pCtx = &ctx;
+
+
+/*
+ * mprintf ()
+ */
+int mprintf (char *pFormat, ...)
+{
+	va_list		pvar;
+
+	va_start (pvar, pFormat);
+
+	return vmprintf (pFormat, pvar);
+}
+
+
+/*
+ * vmprintf ()
+ */
+int vmprintf (char *pFormat, va_list pvar)
+{
+	int	status;
+	FILE	***pppFile;
+
+	status = (*pCtx->pPrintfISR) (pFormat, pvar);
+	if (status) {
+		return 0;
+	}
+
+	if (!pCtx->initComplete) {
+		(*pCtx->pInit) (pCtx);		
+		assert (pCtx->initComplete);
+	}
+
+	(*pCtx->pMutexLock) (pCtx);
+	for (pppFile = pCtx->pppFileList; *pppFile; pppFile++){
+		FILE	*pFile;
+
+		pFile = **pppFile;
+
+		if (pFile) {
+			(*pCtx->pPrintThreadName) (pCtx, pFile);
+			vfprintf (
+				pFile,
+				pFormat,
+				pvar);
+			fflush (pFile);
+		}
+	}
+	(*pCtx->pMutexUnlock) (pCtx);
+
+	return 0;
+}
+
+
+
+/*
+ * mprintfInit ()
+ */
+#ifdef vxWorks
+LOCAL void mprintfInit (mpc *pCtx)
+{
+	pCtx->os.sem = semMCreate (
+				SEM_Q_PRIORITY | 
+				SEM_DELETE_SAFE | 
+				SEM_INVERSION_SAFE);
+	if (pCtx->os.sem == NULL) {
+		return;
+	}
+
+	stdoutRef = stdout;		
+	
+	pCtx->initComplete = TRUE;
+}
+#else
+LOCAL void mprintfInit (mpc *pCtx)
+{
+	stdoutRef = stdout;		
+
+	pCtx->initComplete = TRUE;
+}
+#endif
+
+
+/*
+ * mprintfMutexLock ()
+ */
+#ifdef vxWorks
+LOCAL void mprintfMutexLock (mpc *pCtx)
+{
+	int	status;
+
+	status = semTake (pCtx->os.sem, WAIT_FOREVER);
+	assert (status == OK);
+}
+#else
+LOCAL void mprintfMutexLock (mpc *pCtx)
+{
+	return;
+}
+#endif
+
+
+/*
+ * mprintfMutexUnlock ()
+ */
+#ifdef vxWorks
+LOCAL void mprintfMutexUnlock (mpc *pCtx)
+{
+	int	status;
+
+	status = semGive (pCtx->os.sem);
+	assert (status == OK);
+}
+#else
+LOCAL void mprintfMutexUnlock (mpc *pCtx)
+{
+	return;
+}
+#endif
+
+#if defined(vxWorks)  
+LOCAL int vmprintfISR (char *pFormat, va_list pvar)
+{
+	unsigned 	i;
+	int		status;
+	int		logMsgArgs[6];
+
+	if (!INT_CONTEXT()) {
+		return FALSE;
+	}
+
+	va_start (pvar, pFormat);
+	for (i=0; i<NELEMENTS(logMsgArgs); i++) {
+		logMsgArgs[i] = va_arg(pvar, int);
+	}
+	status = logMsg (pFormat,
+			logMsgArgs[0],
+			logMsgArgs[1],
+			logMsgArgs[2],
+			logMsgArgs[3],
+			logMsgArgs[4],
+			logMsgArgs[5]);
+	va_end (pvar);
+
+	return TRUE;
+}
+#else
+LOCAL int vmprintfISR (char *pFormat, va_list pvar)
+{
+	return FALSE;
+}
+#endif
+
+#if defined(vxWorks) 
+LOCAL void printThreadName (mpc *pCtx, FILE *pfile)
+{
+	int	id;
+
+	id = taskIdSelf();
+
+	fprintf (
+		pfile, 
+		"0X%x %s ", 
+		id,
+		taskName(id));
+
+	return;
+}
+#else
+LOCAL void printThreadName (mpc *pCtx, FILE *pfile)
+{
+	return;
+}
+#endif
+

src/libCom/nextFieldSubr.c

@@ -132,12 +132,15 @@
 *	printf("command=%s, count=%d, units=%s\n", pCmd, count, pUnits);
 *
 *-***************************************************************************/
-#include <genDefs.h>
 #ifdef vxWorks
+#    include <vxWorks.h>
+#    include <stdioLib.h>
 #   include <ctype.h>
 #else
 #   include <ctype.h>
+#   include <stdio.h>
 #endif
+#include <assert.h>
 
 /*-----------------------------------------------------------------------------
 *    the preamble skips over leading white space, stopping either at

src/libCom/post.h

@@ -32,7 +32,6 @@
  * .05  03-06-92        jba     added multiple conditional expressions ?
  * .06  04-02-92        jba     added CONSTANT for floating pt constants in expression
  * .07  05-11-94        jba     added CONST_PI, CONST_D2R, and CONST_R2D
-
  */
 
 /*	defines for element table      */
@@ -111,4 +110,5 @@
 #define		CONST_PI	72
 #define		CONST_D2R	73
 #define		CONST_R2D	74
+#define		NINT		75
 #define		END_STACK	-1

src/libCom/postfix.c

@@ -115,7 +115,14 @@
 #define	SEPERATOR	8
 #define	TRASH		9
 #define	FLOAT_PT_CONST	10
+#define	MINUS_OPERATOR	11
 
+#define UNARY_MINUS_I_S_P  7
+#define UNARY_MINUS_I_C_P  8
+#define UNARY_MINUS_CODE   UNARY_NEG
+#define BINARY_MINUS_I_S_P 4
+#define BINARY_MINUS_I_C_P 4
+#define BINARY_MINUS_CODE  SUB
 
 /* flags end of element table */
 #define	END_ELEMENTS	-1
@@ -149,9 +156,12 @@ static struct expression_element	elements[] = {
 /* element	i_s_p	i_c_p	type_element	internal_rep */
 "ABS",		7,	8,	UNARY_OPERATOR,	ABS_VAL,   /* absolute value */
 "NOT",		7,	8,	UNARY_OPERATOR,	UNARY_NEG, /* unary negate */
+"-",		7,	8,	MINUS_OPERATOR,	UNARY_NEG, /* unary negate (or binary op) */
+"SQRT",		7,	8,	UNARY_OPERATOR,	SQU_RT,    /* square root */
 "SQR",		7,	8,	UNARY_OPERATOR,	SQU_RT,    /* square root */
 "EXP",		7,	8,	UNARY_OPERATOR,	EXP,       /* exponential function */
 "LOGE",		7,	8,	UNARY_OPERATOR,	LOG_E,     /* log E */
+"LN",		7,	8,	UNARY_OPERATOR,	LOG_E,     /* log E */
 "LOG",		7,	8,	UNARY_OPERATOR,	LOG_10,    /* log 10 */
 "ACOS",		7,	8,	UNARY_OPERATOR,	ACOS,      /* arc cosine */
 "ASIN",		7,	8,	UNARY_OPERATOR,	ASIN,      /* arc sine */
@@ -160,6 +170,7 @@ static struct expression_element	elements[] = {
 "MIN",		7,	8,	UNARY_OPERATOR,	MIN,       /* minimum of 2 args */
 "CEIL",		7,	8,	UNARY_OPERATOR,	CEIL,      /* smallest integer >= */
 "FLOOR",	7,	8,	UNARY_OPERATOR,	FLOOR,     /* largest integer <=  */
+"NINT",		7,	8,	UNARY_OPERATOR,	NINT,      /* nearest integer */
 "COSH",		7,	8,	UNARY_OPERATOR,	COSH,      /* hyperbolic cosine */
 "COS",		7,	8,	UNARY_OPERATOR,	COS,       /* cosine */
 "SINH",		7,	8,	UNARY_OPERATOR,	SINH,      /* hyperbolic sine */
@@ -216,7 +227,9 @@ static struct expression_element	elements[] = {
 "^",		6,	6,	BINARY_OPERATOR,EXPON,     /* exponentiation */
 "**",		6,	6,	BINARY_OPERATOR,EXPON,     /* exponentiation */
 "+",		4,	4,	BINARY_OPERATOR,ADD,       /* addition */
+#if 0
 "-",		4,	4,	BINARY_OPERATOR,SUB,       /* subtraction */
+#endif
 "*",		5,	5,	BINARY_OPERATOR,MULT,      /* multiplication */
 "/",		5,	5,	BINARY_OPERATOR,DIV,       /* division */
 "%",		5,	5,	BINARY_OPERATOR,MODULO,    /* modulo */
@@ -305,6 +318,7 @@ short		*perror;
 	register struct expression_element	*pstacktop;
 	double		constant;
 	register char   *pposthold, *pc;	
+	char in_stack_pri, in_coming_pri, code;
 
 	/* convert infix expression to upper case */
 	for (pc=pinfix; *pc; pc++) {
@@ -416,6 +430,38 @@ short		*perror;
 		new_expression = FALSE;
 		break;
 
+	    case MINUS_OPERATOR:
+		if (operand_needed){
+			/* then assume minus was intended as a unary operator */
+			in_coming_pri = UNARY_MINUS_I_C_P;
+			in_stack_pri = UNARY_MINUS_I_S_P;
+			code = UNARY_MINUS_CODE;
+			new_expression = FALSE;
+		}
+		else {
+			/* then assume minus was intended as a binary operator */
+			in_coming_pri = BINARY_MINUS_I_C_P;
+			in_stack_pri = BINARY_MINUS_I_S_P;
+			code = BINARY_MINUS_CODE;
+			operand_needed = TRUE;
+		}
+
+		/* add operators of higher or equal priority to	*/
+		/* postfix notation				*/
+		while ((pstacktop->in_stack_pri >= in_coming_pri)
+		  && (pstacktop >= &stack[1])){
+		    *ppostfix++ = pstacktop->code;
+		    pstacktop--;
+		}
+
+		/* add new operator to stack */
+		pstacktop++;
+		*pstacktop = *pelement;
+		pstacktop->in_stack_pri = in_stack_pri;
+		pstacktop->code = code;
+
+		break;
+
 	    case SEPERATOR:
 		if (operand_needed){
 		    *perror = 4;

src/libCom/sun4ansi.c

@@ -0,0 +1,138 @@
+#ifdef SUNOS4
+
+/*
+ * $Log$
+ * Revision 1.1  1995/01/11  10:34:21  anj
+ * Added sun4ansi.c for those without sun4 ACC.
+ *
+ * 
+ * 
+ * Routines which are needed but SunOS 4.x doesn't provide.
+ * These definitions obtained from GNU libiberty directory.
+ * Note that Sun's Ansi C compiler provides these routines,
+ * so there ought to be a way of excluding this file if you
+ * have that...
+ *
+ */
+
+/*
+ * strtol : convert a string to long.
+ *
+ * Andy Wilson, 2-Oct-89.
+ */
+
+#include <errno.h>
+#include <ctype.h>
+#include <stdio.h>
+#include <limits.h>
+
+extern int errno;
+extern int sys_nerr;
+extern char *sys_errlist[];
+
+
+unsigned long
+strtoul(const char *s, char **ptr, int base)
+{
+  unsigned long total = 0, tmp = 0;
+  unsigned digit;
+  const char *start=s;
+  int did_conversion=0;
+  int negate = 0;
+
+  if (s==NULL)
+    {
+      errno = ERANGE;
+      if (!ptr)
+	*ptr = (char *)start;
+      return 0L;
+    }
+
+  while (isspace(*s))
+    s++;
+  if (*s == '+')
+    s++;
+  else if (*s == '-')
+    s++, negate = 1;
+  if (base==0 || base==16) /*  the 'base==16' is for handling 0x */
+    {
+      /*
+       * try to infer base from the string
+       */
+      if (*s != '0')
+        tmp = 10;	/* doesn't start with 0 - assume decimal */
+      else if (s[1] == 'X' || s[1] == 'x')
+	tmp = 16, s += 2; /* starts with 0x or 0X - hence hex */
+      else
+	tmp = 8;	/* starts with 0 - hence octal */
+      if (base==0)
+	base = (int)tmp;
+    }
+
+  while ( digit = *s )
+    {
+      if (digit >= '0' && digit < ('0'+base))
+	digit -= '0';
+      else
+	if (base > 10)
+	  {
+	    if (digit >= 'a' && digit < ('a'+(base-10)))
+	      digit = digit - 'a' + 10;
+	    else if (digit >= 'A' && digit < ('A'+(base-10)))
+	      digit = digit - 'A' + 10;
+	    else
+	      break;
+	  }
+	else
+	  break;
+      did_conversion = 1;
+      tmp = (total * base) + digit;
+      if (tmp < total)	/* check overflow */
+	{
+	  errno = ERANGE;
+	  if (ptr != NULL)
+	    *ptr = (char *)s;
+	  return (ULONG_MAX);
+	}
+      total = tmp;
+      s++;
+    }
+  if (ptr != NULL)
+    *ptr = (char *) ((did_conversion) ? (char *)s : (char *)start);
+  return negate ? -total : total;
+}
+
+/*
+ * strerror
+ *
+ * convert an error number into a string
+ */
+
+char *
+strerror (errnoval)
+  int errnoval;
+{
+  char *msg;
+  static char buf[32];
+
+  if ((errnoval < 0) || (errnoval >= sys_nerr))
+    {
+      /* Out of range, just return NULL */
+      msg = NULL;
+    }
+  else if ((sys_errlist == NULL) || (sys_errlist[errnoval] == NULL))
+    {
+      /* In range, but no sys_errlist or no entry at this index. */
+      sprintf (buf, "Error %d", errnoval);
+      msg = buf;
+    }
+  else
+    {
+      /* In range, and a valid message.  Just return the message. */
+      msg = sys_errlist[errnoval];
+    }
+  
+  return (msg);
+}
+
+#endif

src/libCom/tsSubr.c

@@ -37,6 +37,7 @@
  *  .09 02-09-94 jbk 	tsLocalTime() now calls TScurrentTimeStamp() vxWorks
  *			for the EPOCH year
  *  .10	05-04-94 pg	HPUX cpp changes. (elif to else and if)
+ *  .11	01-09-95 joh	fixed ts min west out of range test	
  *
  * make options
  *	-DvxWorks	makes a version for VxWorks
@@ -107,25 +108,28 @@
 * 4.2 BSD.)
 *-***************************************************************************/
 
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <string.h>
+
 #ifdef vxWorks
 #   include <vxWorks.h>
 #   include <stdioLib.h>
 #   include <strLib.h>
-#   include <ctype.h>
 #else
 #if VMS
+#   include <sys/time.h>
 #else
 #   include <sys/time.h>
-#   include <stdio.h>
-#   include <string.h>
+#if 0
 #   include <strings.h>
-#   include <ctype.h>
+#endif
 #endif
 #endif
 
-#ifndef INC_genDefs_h
-#   include <genDefs.h>		/* provides assert() */
-#endif
+#   include <assert.h>
+
 #include <envDefs.h>
 #define TS_PRIVATE_DATA
 #include <tsDefs.h>
@@ -361,7 +365,7 @@ date()
 *
 *-*/
 static
-sunday(day, leap, dayYear, dayOfWeek)
+int sunday(day, leap, dayYear, dayOfWeek)
 int	day;		/* I day of year to find closest Sunday */
 int	leap;		/* I 0, 1 for not leap year, leap year, respectively */
 int	dayYear;	/* I known day of year */
@@ -600,10 +604,6 @@ TS_STAMP *pStamp;	/* O pointer to time stamp buffer */
 	return TScurrentTimeStamp((struct timespec*)pStamp);
 #  endif
 #else
-#if VMS
-    assert(0);		/* not available on VMS */
-    assert(pStamp != NULL);
-#else		/* SunOS */
     struct timeval curtime;
 
     assert(pStamp != NULL);
@@ -613,7 +613,6 @@ TS_STAMP *pStamp;	/* O pointer to time stamp buffer */
 	pStamp->nsec = ( curtime.tv_usec/1000 ) * 1000000;
 	pStamp->secPastEpoch = curtime.tv_sec - TS_EPOCH_SEC_PAST_1970;
     }
-#endif
 #endif
 
     pStamp->nsec = pStamp->nsec - (pStamp->nsec % TS_TRUNC);
@@ -874,7 +873,7 @@ tsInitMinWest()
     if (envGetLongConfigParam(&EPICS_TS_MIN_WEST, &tsMinWest) != 0)
 	error = 1;
     else
-	if (tsMinWest > 1380 && tsMinWest < -1380)
+	if (tsMinWest >  720 || tsMinWest < -720 )
 	    error = 1;
     if (error) {
 	    (void)printf(
@@ -899,7 +898,9 @@ struct tsDetail *pT;	/* pointer to time structure for conversion */
 	tsInitMinWest();
 
     assert(pStamp != NULL);
-    assert(pStamp->secPastEpoch >= tsMinWest * 60);
+	assert( (tsMinWest >= -720 && tsMinWest <=  720 ));
+	assert( (tsMinWest >= 0 && (pStamp->secPastEpoch >= (unsigned long)(tsMinWest * 60))) ||
+            (tsMinWest < 0) );
     assert(pT != NULL);
 
 /*----------------------------------------------------------------------------
@@ -1373,10 +1374,8 @@ TS_STAMP *pStamp;	/* O time stamp corresponding to text */
 char	**pText;	/* IO ptr to ptr to string containing time and date */
 {
     long	retStat=S_ts_OK;/* status return to caller */
-    long	stat;		/* status from calls */
     struct tsDetail t;		/* detailed breakdown of text */
     TS_STAMP	stamp;		/* temp for building time stamp */
-    char	*pField;	/* pointer to field */
     char	delim;		/* delimiter character */
     int		count;		/* count from scan of next field */
     long	nsec;		/* temp for nano-seconds */

src/libvxWorks/Makefile.Vx

@@ -3,9 +3,9 @@ include Target.include
 include $(EPICS)/config/CONFIG_BASE
 
 
-SRCS.c = ../iocLogClient.c ../veclist.c
+SRCS.c = ../iocLogClient.c ../veclist.c 
 
-OBJS = veclist.o iocLogClient.o
+OBJS = veclist.o iocLogClient.o 
 
 PROD = vxComLib
 

src/libvxWorks/iocLogClient.c

@@ -32,19 +32,31 @@
  * -----------------
  * .00 joh 080791  	Created
  * .01 joh 081591	Added epics env config
+ * .02 joh 011995	Allow stdio also	
  */
 
+#include <string.h>
+#include <stdio.h>
+
 #include <vxWorks.h>
 #include <ioLib.h>
 #include <taskLib.h>
+
 #include <socket.h>
 #include <in.h>
+
 #include <inetLib.h>
+#include <errnoLib.h>
+#include <logLib.h>
+#include <sockLib.h>
+
+
 #include <envDefs.h>
 
 
-int 			iocLogFD = ERROR;
-int 			iocLogDisable;
+FILE	*iocLogFile = NULL;
+int 	iocLogFD = ERROR;
+int 	iocLogDisable;
 
 static long 		ioc_log_port;
 static struct in_addr 	ioc_log_addr;
@@ -73,8 +85,12 @@ iocLogInit()
 
 	status = getConfig();
 	if(status<0){
-		logMsg("iocLogClient: EPICS environment under specified\n");
-		logMsg("iocLogClient: failed to initialize\n");
+		logMsg (
+			"iocLogClient: EPICS environment under specified\n",
+			0,0,0,0,0,0);
+		logMsg (
+			"iocLogClient: failed to initialize\n",
+			0,0,0,0,0,0);
 		return ERROR;
 	}
 
@@ -83,7 +99,9 @@ iocLogInit()
 		      SOCK_STREAM,	/* type         */
 		      0);		/* deflt proto  */
 	if (sock < 0){
-		logMsg("iocLogClient: no socket errno %d\n", errnoGet(0));
+		logMsg(	"iocLogClient: no socket errno %d\n", 
+			errnoGet(),
+			0,0,0,0,0);
 		return ERROR;
 	}
 
@@ -99,21 +117,26 @@ iocLogInit()
 	/* connect */
 	status = connect(
 			 sock,
-			 &addr,
-			 sizeof addr);
+			 (struct sockaddr *)&addr,
+			 sizeof(addr));
 	if (status < 0) {
 		char name[INET_ADDR_LEN];
 
 		inet_ntoa_b(addr.sin_addr, name);
-		logMsg("iocLogClient: unable to connect to `%s' at port %d\n", 
-			name,
-			addr.sin_port);
-		printErrno(errnoGet(0));
+		logMsg(
+	"iocLogClient: unable to connect to %s port %d because \"%s\"\n", 
+			(int) name,
+			addr.sin_port,
+			(int) strerror(errnoGet()),
+			0,0,0);
 		close(sock);
 		return ERROR;
 	}
 
-	logFdAdd(sock);
+	logFdAdd (sock);
+
+	iocLogFile = fdopen (sock, "a");
+
 	iocLogFD = sock;
 
 	return OK;
@@ -131,9 +154,7 @@ iocLogInit()
 static int
 getConfig()
 {
-	char	inet_address_string[64];
 	long	status;
-	char	*pstring;
 
 	status = envGetLongConfigParam(
 			&EPICS_IOC_LOG_PORT, 
@@ -166,8 +187,9 @@ static void
 failureNoptify(pparam)
 ENV_PARAM       *pparam;
 {
-	logMsg(	"IocLogClient: EPICS environment variable `%s' undefined\n",
-		pparam->name);
+	logMsg(	"IocLogClient: EPICS environment variable \"%s\" undefined\n",
+		(int) pparam->name,
+		0,0,0,0,0);
 }
 
 

src/libvxWorks/veclist.c

@@ -33,7 +33,7 @@
 #include "sysSymTbl.h"
 
 static char *sccsID = 
-	"@(#)veclist.c	1.10\t1/3/94 J. Hill hill@atdiv.lanl.gov";
+	"@(#) $Id$";
 
 /*
  *

src/misc/epicsRelease.c

@@ -1,5 +1,8 @@
 /* $Id$
  * $Log$
+ * Revision 1.5  1994/10/05  18:28:17  jba
+ * Renamed version.h to epicsVersion.h
+ *
  * Revision 1.4  1994/08/18  04:34:42  bordua
  * Added some spaces to make output look good.
  *
@@ -15,7 +18,7 @@
 
 #include    <epicsVersion.h>
 
-    char *epicsRelease= "@(#)EPICS IOC CORE $Date$";
+    char *epicsRelease= "@(#)EPICS IOC CORE";
     char *epicsRelease1 = epicsReleaseVersion;
 coreRelease()
 {

src/rec/Makefile.Vx

@@ -42,7 +42,7 @@ SRCS.c = \
 	../recTimer.c\
 	../recWaveform.c\
 	../recWait.c\
-	../caMonitor.c
+	../recWaitCa.c
 #	../recPal.c\
 #	../recSwitch.c\
 #	../recGsub.c\
@@ -89,7 +89,7 @@ OBJS = \
 	recDfanout.o\
 	recMbbiDirect.o\
 	recMbboDirect.o\
-	caMonitor.o
+	recWaitCa.o
 #	recPal.o\
 #	recSwitch.o\
 #	recGsub.o\

src/rec/recDfanout.c

@@ -304,6 +304,7 @@ struct dfanoutRecord *pdfanout;
         long            status;
 
         for(i=0, plink=&(pdfanout->outa); i<OUT_ARG_MAX; i++, plink++) {
+                nRequest=1;
                 status=recGblPutLinkValue(plink,(void *)pdfanout,DBR_LONG,
                         &(pdfanout->val),&nRequest);
                 if (!RTN_SUCCESS(status)) return(-1);

src/rec/recGsub.c

@@ -387,6 +387,7 @@ struct gsubRecord *psub;
 	long		status;
 
         for(i=0, plink=&psub->inpa, pvalue=&psub->a; i<ARG_MAX; i++, plink++, pvalue++) {
+		nRequest=1;
 		status=recGblGetLinkValue(plink,(void *)psub,DBR_FLOAT,
 			pvalue,&options,&nRequest);
 		if (!RTN_SUCCESS(status)) return(-1);

src/rec/recMbbi.c

@@ -128,13 +128,14 @@ static void init_common(pmbbi)
     struct mbbiRecord	*pmbbi;
 {
         unsigned long 	*pstate_values;
+	char		*pstate_string;
         short  		i;
 
         /* determine if any states are defined */
-        pstate_values = &(pmbbi->zrvl);
+        pstate_values = &(pmbbi->zrvl); pstate_string = pmbbi->zrst;
         pmbbi->sdef = FALSE;
-        for (i=0; i<16; i++) {
-                if (*(pstate_values+i) != 0) {
+        for (i=0; i<16; i++, pstate_string += sizeof(pmbbi->zrst)) {
+                if((*(pstate_values+i) != 0) || (*pstate_string !='\0')) {
 			pmbbi->sdef = TRUE;
 			return;
 		}

src/rec/recMbbiDirect.c

@@ -301,6 +301,7 @@ static long readValue(pmbbiDirect)
 		return(status);
 	}
 	if (pmbbiDirect->simm == YES){
+		nRequest=1;
 		status=recGblGetLinkValue(&(pmbbiDirect->siol),
 			(void *)pmbbiDirect,DBR_USHORT,&(pmbbiDirect->sval),&options,&nRequest);
 		if (status==0){

src/rec/recMbbo.c

@@ -136,13 +136,14 @@ static void init_common(pmbbo)
     struct mbboRecord   *pmbbo;
 {
         unsigned long   *pstate_values;
+	char		*pstate_string;
         short           i;
 
         /* determine if any states are defined */
-        pstate_values = &(pmbbo->zrvl);
+        pstate_values = &(pmbbo->zrvl); pstate_string = pmbbo->zrst;
         pmbbo->sdef = FALSE;
-        for (i=0; i<16; i++) {
-                if (*(pstate_values+i)!= 0) {
+        for (i=0; i<16; i++, pstate_string += sizeof(pmbbo->zrst)) {
+                if((*(pstate_values+i)!= 0) || (*pstate_string !='\0')) {
                         pmbbo->sdef = TRUE;
                         return;
                 }

src/rec/recMbboDirect.c

@@ -347,6 +347,7 @@ static long writeValue(pmbboDirect)
 		return(status);
 	}
 	if (pmbboDirect->simm == YES){
+		nRequest=1;
 		status=recGblPutLinkValue(&(pmbboDirect->siol),
 				(void *)pmbboDirect,DBR_USHORT,&(pmbboDirect->val),&nRequest);
 	} else {

src/rec/recScan.c

@@ -45,9 +45,12 @@
  *                        seems more intuitive.
  * .08  12-06-94  nda     added support for .FFO .When set to 1, frzFlag values
  *                        are saved in recPvtStruct. Restored when FFO set to 0.
+ * .09  02-02-95  nda     fixed order of posting monitors to be what people
+ *                        expect (i.e. .cpt, .pxdv, .dxcv)
+ * .10  02-10-95  nda     fixed on-the-fly so 1st step is to end position
  */
 
-#define VERSION 1.08
+#define VERSION 1.10
 
 
 
@@ -360,8 +363,10 @@ static long process(pscan)
 	}
 
         pscan->pxsc = pscan->exsc;
-	pscan->pact = FALSE;
         recGblResetAlarms(pscan);
+        recGblGetTimeStamp(pscan);
+
+	pscan->pact = FALSE;
 	return(status);
 }
 
@@ -793,6 +798,22 @@ static void checkMonitors(pscan)
     if(((now - pscan->tolp) > MIN_MON) || 
        ((pscan->pxsc == 1) && (pscan->exsc == 0))) {
         pscan->tolp = now;
+        if(fabs(pscan->d1lv - pscan->d1cv) > 0) {
+            db_post_events(pscan,&pscan->d1cv, DBE_VALUE);
+            pscan->d1lv = pscan->d1cv;
+        }
+        if(fabs(pscan->d2lv - pscan->d2cv) > 0) {
+            db_post_events(pscan,&pscan->d2cv, DBE_VALUE);
+            pscan->d2lv = pscan->d2cv;
+        }
+        if(fabs(pscan->d3lv - pscan->d3cv) > 0) {
+            db_post_events(pscan,&pscan->d3cv, DBE_VALUE);
+            pscan->d3lv = pscan->d3cv;
+        }
+        if(fabs(pscan->d4lv - pscan->d4cv) > 0) {
+            db_post_events(pscan,&pscan->d4cv, DBE_VALUE);
+            pscan->d4lv = pscan->d4cv;
+        }
         if(pscan->pcpt != pscan->cpt) {
             db_post_events(pscan,&pscan->cpt, DBE_VALUE);
             pscan->pcpt = pscan->cpt;
@@ -829,22 +850,6 @@ static void checkMonitors(pscan)
             db_post_events(pscan,&pscan->r4cv, DBE_VALUE);
             pscan->r4lv = pscan->r4cv;
         }
-        if(fabs(pscan->d1lv - pscan->d1cv) > 0) {
-            db_post_events(pscan,&pscan->d1cv, DBE_VALUE);
-            pscan->d1lv = pscan->d1cv;
-        }
-        if(fabs(pscan->d2lv - pscan->d2cv) > 0) {
-            db_post_events(pscan,&pscan->d2cv, DBE_VALUE);
-            pscan->d2lv = pscan->d2cv;
-        }
-        if(fabs(pscan->d3lv - pscan->d3cv) > 0) {
-            db_post_events(pscan,&pscan->d3cv, DBE_VALUE);
-            pscan->d3lv = pscan->d3cv;
-        }
-        if(fabs(pscan->d4lv - pscan->d4cv) > 0) {
-            db_post_events(pscan,&pscan->d4cv, DBE_VALUE);
-            pscan->d4lv = pscan->d4cv;
-        }
     }
 
     if (pscan->pxsc != pscan->exsc) 
@@ -1008,6 +1013,7 @@ struct scanRecord *pscan;
             }
         }
         if(!pscan->r2nv) {
+            nRequest = 1;
             status = dbGet(pscan->r2db, DBR_FLOAT, &(pscan->r2cv),
                            &options, &nRequest, NULL);
             if((pscan->r2dl > 0) &&
@@ -1019,6 +1025,7 @@ struct scanRecord *pscan;
             }
         }
         if(!pscan->r3nv) {
+            nRequest = 1;
             status = dbGet(pscan->r3db, DBR_FLOAT, &(pscan->r3cv),
                            &options, &nRequest, NULL);
             if((pscan->r3dl > 0) &&
@@ -1030,6 +1037,7 @@ struct scanRecord *pscan;
             }
         }
         if(!pscan->r4nv) {
+            nRequest = 1;
             status = dbGet(pscan->r4db, DBR_FLOAT, &(pscan->r4cv),
                            &options, &nRequest, NULL);
             if((pscan->r4dl > 0) &&
@@ -1060,18 +1068,22 @@ struct scanRecord *pscan;
         status = 0;
         if(!pscan->d1nv) {
             /* dbAddr is valid */
+            nRequest = 1;
             status |= dbGet(pscan->d1db, DBR_FLOAT, &(pscan->d1cv),
                             &options, &nRequest, NULL);
         } else pscan->d1cv = 0;
         if(!pscan->d2nv) {
+            nRequest = 1;
             status |= dbGet(pscan->d2db, DBR_FLOAT,
                             &(pscan->d2cv), &options, &nRequest, NULL);
         } else pscan->d2cv = 0;
         if(!pscan->d3nv) {
+            nRequest = 1;
             status |= dbGet(pscan->d3db, DBR_FLOAT, &(pscan->d3cv),
                             &options, &nRequest, NULL);
         } else pscan->d3cv = 0;
         if(!pscan->d4nv) {
+            nRequest = 1;
             status |= dbGet(pscan->d4db, DBR_FLOAT, &(pscan->d4cv),
                             &options, &nRequest, NULL);
         } else pscan->d4cv = 0;
@@ -1096,8 +1108,8 @@ struct scanRecord *pscan;
                 pscan->p1dv = pscan->p1pa[pscan->cpt];
             } 
             else {
-                /* this is on-the-fly, so set to second position */
-                pscan->p1dv = pscan->p1sp + pscan->p1si;
+                /* this is on-the-fly, so set to end position */
+                pscan->p1dv = pscan->p1ep;
                 pscan->p1pa[pscan->cpt] = pscan->p1dv;
             }
             if(pscan->p2sm == REC_SCAN_MO_LIN) {
@@ -1108,8 +1120,8 @@ struct scanRecord *pscan;
                 pscan->p2dv = pscan->p2pa[pscan->cpt];
             } 
             else {
-                /* this is on-the-fly, so set to second position */
-                pscan->p2dv = pscan->p2sp + pscan->p2si;
+                /* this is on-the-fly, so set to end position */
+                pscan->p2dv = pscan->p2ep;
                 pscan->p2pa[pscan->cpt] = pscan->p2dv;
             }
             if(pscan->p3sm == REC_SCAN_MO_LIN) {
@@ -1120,8 +1132,8 @@ struct scanRecord *pscan;
                 pscan->p3dv = pscan->p3pa[pscan->cpt];
             } 
             else {
-                /* this is on-the-fly, so set to second position */
-                pscan->p3dv = pscan->p3sp + pscan->p3si;
+                /* this is on-the-fly, so set to end position */
+                pscan->p3dv = pscan->p3ep;
                 pscan->p3pa[pscan->cpt] = pscan->p3dv;
             }
             if(pscan->p4sm == REC_SCAN_MO_LIN) {
@@ -1132,8 +1144,8 @@ struct scanRecord *pscan;
                 pscan->p4dv = pscan->p4pa[pscan->cpt];
             } 
             else {
-                /* this is on-the-fly, so set to second position */
-                pscan->p4dv = pscan->p4sp + pscan->p4si;
+                /* this is on-the-fly, so set to end position */
+                pscan->p4dv = pscan->p4ep;
                 pscan->p4pa[pscan->cpt] = pscan->p4dv;
             }
 
@@ -1859,14 +1871,17 @@ static void checkScanLimits(pscan)
                      &options, &nRequest, NULL);
   }
   if(!pscan->p2nv) {
+      nRequest = 1;
       status = dbGet(pscan->p2db, DBR_FLOAT, precPvt->pP2Limits,
                      &options, &nRequest, NULL);
   }
   if(!pscan->p3nv) {
+      nRequest = 1;
       status = dbGet(pscan->p3db, DBR_FLOAT, precPvt->pP3Limits,
                      &options, &nRequest, NULL);
   }
   if(!pscan->p4nv) {
+      nRequest = 1;
       status = dbGet(pscan->p4db, DBR_FLOAT, precPvt->pP4Limits,
                      &options, &nRequest, NULL);
   }

src/rec/recSeq.c

@@ -452,6 +452,7 @@ CALLBACK *pCallback;
   }
 
   /* Dump the value to the destination field */
+  nRequest = 1;
   recGblPutLinkValue(&(pcb->plinks[pcb->index]->lnk), (void *)pseq, DBR_DOUBLE, &(pcb->plinks[pcb->index]->dov), &nRequest);
 
   if (myDouble != pcb->plinks[pcb->index]->dov)