aSub support for EnsemblePSOFly.db

2013-04-19 18:25:20 +00:00
parent e07585ba38
commit 0149c8216e
1 changed files with 36 additions and 0 deletions
@@ -0,0 +1,36 @@
+/* aSub support for concatenating strings into a result longer than a
+ * DBF_STRING.  Used by EnsemblePSOFly.db
+ */
+#include <stddef.h>
+#include <string.h>
+#include <stdlib.h>
+#include <math.h>
+#include <stdio.h>
+
+#include <dbDefs.h>
+#include <dbCommon.h>
+#include <recSup.h>
+#include <aSubRecord.h>
+
+static long concatString(aSubRecord *pasub) {
+	/* printf("concatString: entry\n"); */
+	if ((strlen(pasub->a) <= 50) && strlen(pasub->b)) {
+		strcpy(pasub->vala, pasub->a);
+		strcat(pasub->vala, pasub->b);
+		/* printf("concatString: vala='%s'\n", (char *)pasub->vala); */
+	}
+	return(0);
+}
+
+#include <registryFunction.h>
+#include <epicsExport.h>
+
+static registryFunctionRef concatStringRef[] = {
+	{"concatString", (REGISTRYFUNCTION)concatString},
+};
+
+static void concatStringRegister(void) {
+	registryFunctionRefAdd(concatStringRef, NELEMENTS(concatStringRef));
+}
+
+epicsExportRegistrar(concatStringRegister);