- Conescan working now

- Removed old NETReadTillterm


SKIPPED:
	psi/libpsi.a
	psi/tasdriveo.c

mcstas/dmc/vdmccom.tcl

@@ -6,7 +6,7 @@
 source $home/mcsupport.tcl
 
 if { [info exists vdmcinit] == 0 } {
-  set vdmcinit 1f
+  set vdmcinit 1
   Publish LogBook Spy
   Publish count   User
   Publish Repeat  User
@@ -14,6 +14,7 @@ if { [info exists vdmcinit] == 0 } {
   Publish rundmcsim User
   Publish copydmcdata User
   Publish sample User
+  Publish wwwsics Spy
   mcinstall
 }
 source $home/log.tcl
@@ -266,6 +267,11 @@ proc repeat { num {mode  NULL} {preset NULL} }  {
         }
      }
 }
+#--------------------------------------------------------------------------
+proc GetNum { text } {
+	set list [split $text =]
+        return [lindex $list 1]
+}
 #------------------------------------------------------------------------
 # This implements the wwwsics command which generates a listing of
 # important experiment parameters in html format for the SICS WWW Status
@@ -306,7 +312,70 @@ proc wwwsics {} {
  append result </table>
  return $result
 } 
+#----------------------------------------------------------------------------
+# wwpar formats a parameter for display in the WWW-control. 
+#
+# Mark Koennecke, June 2000
+#---------------------------------------------------------------------------
+set ret [catch {wwwpar motor a4} msg]
+if {$ret != 0} {
+  Publish wwwpar Spy 
+  Publish wwwuser Spy
+} 
+#--------------------------------------------------------------------------
+proc WWWNum { text } {
+	set list [split $text =]
+        return [lindex $list 1]
+}
+#---------------------------------------------------------------------------
+proc wwwpar {type mot} {
+  append txt $mot ,
+#----- get lowerlimit, either from motor or temperature controller
+  if { [string compare $type motor] == 0} { 
+     set ret [catch {$mot softlowerlim} msg]
+  } else {
+      set ret [catch {$mot lowerlimit} msg]
+  }
+  if {$ret != 0 } {
+    append txt UNKNOWN ,
+  } else {
+    append txt [WWWNum $msg] ,
+  }
+#------- get value
+  set ret [catch {$mot} msg]
+  if {$ret == 0} {
+     append txt [WWWNum $msg] ,
+  } else  {
+     append txt UNKNOWN ,
+  } 
+#----- get upperlimit, either from motor or temperature controller 
+  if {[string compare $type motor] == 0} { 
+      set ret [catch {$mot softupperlim} msg]
+  } else {
+      set ret [catch {$mot upperlimit} msg]
+  }
+  if {$ret != 0 } {
+    append txt UNKNOWN 
+  } else {
+    append txt [WWWNum $msg] 
+  }
+  return $txt 
+}
+#------------- wwwuser formats user information into a html table
+proc wwwuser {} {
+  lappend list title sample user email phone adress
+  append txt "<table>"
+  foreach e $list {
+    set ret [catch {$e} msg]
+    if {$ret == 0} {
+      set l [split $msg =]
+      append txt "<tr><th>" [lindex $l 0] "</th><td> \n"
+      append txt "<INPUT type=text name=[lindex $l 0] value=\"[lindex $l 1]\" "
+      append txt "\n LENGTH=40 MAXLENGTH=80></td></tr>\n "
+    }
+  }  
+  return $txt
+}
+
 
-#------------ install command
-catch {Publish wwwsics Spy} msg