- 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/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