refactor introspection interfaces. replace epicsTypes by pvData types.

test/testAll.pl

@@ -0,0 +1,5 @@
+eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-
+    if $running_under_some_shell; # testIntTypes.pl
+$EPICS_HOST_ARCH = "linux-x86";
+system ("./testIntTypes.pl");
+system ("./testIntrospect.pl");

test/testIntTypes

@@ -0,0 +1,4 @@
+int8 max 127 min -128
+int8 max 32767 min -32768
+int8 max 2147483647 min -2147483648
+int8 max 9223372036854775807 min -9223372036854775808

test/testIntTypes.pl

@@ -0,0 +1,12 @@
+eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-
+    if $running_under_some_shell; # testIntTypes.pl
+$EPICS_HOST_ARCH = "linux-x86";
+system ("rm testIntTypes");
+system ("rm testIntTypesDiff");
+system ("../bin/${EPICS_HOST_ARCH}/testIntTypes testIntTypes");
+system ("diff testIntTypes testIntTypesGold >> testIntTypesDiff");
+if(-z "testIntTypesDiff") {
+    print "testIntTypes OK\n";
+} else {
+    print "testIntTypes Failed\n";
+}

test/testIntTypesGold

@@ -0,0 +1,4 @@
+int8 max 127 min -128
+int8 max 32767 min -32768
+int8 max 2147483647 min -2147483648
+int8 max 9223372036854775807 min -9223372036854775808

test/testIntrospect

@@ -77,3 +77,5 @@ structure value
     structure timeStamp
         long secondsPastEpoch
         int nanoSeconds
+Field:   totalConstruct 156 totalDestruct 63 totalReferenceCount 93
+PVField: totalConstruct 55 totalDestruct 55

test/testIntrospectGold

@@ -77,3 +77,5 @@ structure value
     structure timeStamp
         long secondsPastEpoch
         int nanoSeconds
+Field:   totalConstruct 156 totalDestruct 63 totalReferenceCount 93
+PVField: totalConstruct 55 totalDestruct 55