- Introduced a new trace facility

- Fixed performance problems in many protocol drivers.


SKIPPED:
	psi/julprot.c
	psi/phytron.c
	psi/pmacprot.c
	psi/polterwrite.c
	psi/spss7.c

test/DataNumber

@@ -1,3 +1,3 @@
- 318 
+ 324 
 NEVER, EVER modify or delete this file
 You'll risk eternal damnation and a reincarnation as a cockroach!

test/sicsstat.tcl

@@ -44,6 +44,12 @@ lieselotte SetMode Timer
 # Counter multi
 multi SetPreset 0.000000
 multi SetMode Timer
+sicsdatapath ./
+sicsdatapath setAccess 1
+sicsdataprefix regression
+sicsdataprefix setAccess 1
+sicsdatapostfix .dat
+sicsdatapostfix setAccess 1
 # Motor a1
 a1 sign 1.000000
 a1 SoftZero 0.000000
@@ -251,7 +257,5 @@ cone qscale 1
 cone center unknown
 simidx sttlim 0.2
 simidx anglim 0.5
-apple preset 0
-apple mode monitor
 simi preset 0
 simi mode monitor

test/testini.tcl

@@ -215,6 +215,48 @@ hattach target a3 /target/ta3
 
 restore
 
+#==================================================
+# ScriptContext testing 
+#==================================================
+proc sendtest {} {
+    set test [catch {sct target} msg]
+    if {$test == 0} {
+	set data $msg
+    } else {
+	set data TestDuta
+    }
+    sct send $data
+    return testreply
+}
+#-------------------------------------------------
+proc readtest {} {
+    set t [doubletime]
+    sct send "Read:$t"
+    return testreply
+}
+#-------------------------------------------------
+proc testreply {} {
+    sct print [sct result]
+    sct update [sct result]
+    return idle
+}
+makesctcontroller testsct testprot
+MakeSICSObj testnode Test spy text
+hsetprop /sics/testnode read readtest
+hsetprop /sics/testnode write sendtest
+hsetprop /sics/testnode testreply testreply
+
+proc testprio {} {
+    testsct queue /sics/testnode read read
+    testsct queue /sics/testnode read read 
+    testsct queue /sics/testnode read read 
+    testsct queue /sics/testnode halt write
+    testsct queue /sics/testnode read read 
+    testsct queue /sics/testnode read read
+    return [testnode]
+}
+Publish testprio Spy
+
 #-------------------------------------------------
 proc farmFormat {par num} {
     hsetprop /sics/farm/$par lastError none
@@ -345,7 +387,7 @@ hsetprop /sics/farm/schneggecon readCommand   schget
 hsetprop /sics/farm/schneggecon replyCommand  schreply
 }
 
-set farm 0
+set farm 1
 
 if {$farm == 1} {
 #-------------- Test new async protocol controller
@@ -432,7 +474,7 @@ farmser poll /sics/farm/schneggerunning
 hfactory /sics/farm/stone plain spy int  
 hsetprop /sics/farm/stone read farmparcom stone
 hsetprop /sics/farm/stone parread farmparread
-#farmser poll /sics/farm/stone
+farmser poll /sics/farm/stone
 
 farmser debug -1