db/test: add simple processing callback to xRecord

src/ioc/db/test/xRecord.c

@@ -45,6 +45,8 @@ static long process(xRecord *prec)
 {
     long ret = 0;
     xdset *xset = (xdset*)prec->dset;
+    if(prec->clbk)
+        (*prec->clbk)(prec);
     prec->pact = TRUE;
     if(xset  && xset->process)
         ret = (*xset->process)(prec);

src/ioc/db/test/xRecord.dbd

@@ -11,4 +11,9 @@ recordtype(x) {
   field(INP, DBF_INLINK) {
     prompt("Input Link")
   }
+  field(CLBK, DBF_NOACCESS) {
+    prompt("Processing callback")
+    special(SPC_NOMOD)
+    extra("void (*clbk)(struct xRecord*)")
+  }
 }