new version of TecsServer and conversion utility M.Z.

tecs/didi

@@ -4,24 +4,34 @@ set what="$1"
 set where="$2"
 
 set destlist=( type@osf1 \
-AMOR@lnsa14:bin/ DMC@lnsa05:bin/ FOCUS@lnsa16:bin/ \
-HRPT@lnsa11:bin/ TRICS@lnsa18:bin/ \
-lnslib@lnsa15:bin/ \
+AMOR@lnsa14:tecs/ FOCUS@lnsa16:tecs/ TRICS@lnsa18:tecs/ \
+lnsg@lnsa15:tecs/ \
+alpha=/afs/psi.ch/project/sinq/tru64/stow/tecs/bin/ \
 type@linux \
-zolliker@llc3:/afs/psi.ch/project/sinq/linux/bin/ \
-TASP@pc4478:tasp_sics/ \
-TOPSI@pc4120:topsi_sics/ SANS@pc3965:sans_sics/ SANS2@sans2:sans2_sics/ \
+linux=/afs/psi.ch/project/sinq/linux/stow/tecs/bin/ \
+TASP@pc4478:tecs/ DMC@pc4629:tecs/ HRPT@hrpt:tecs/ \
+MORPHEUS@pc4120:tecs/ SANS@pc3965:tecs/ SANS2@sans2:tecs/ \
+type@darwin \
+macosx=/afs/psi.ch/project/sinq/mac_os/stow/tecs/bin/ \
 )
 
 set dests=""
 set destl=""
 foreach dest ($destlist)
+  set ext="${dest:s/=/ /}"
+  set ext=($ext)
+  if ("$ext" != "$dest") then
+    set dest="$ext[2]"
+    set d="$ext[1]"
+  else
+    set d=""
+  endif
   set ext=${dest:s/@/ /}
   set ext=($ext) 
   if ("$ext[1]" == type) then
     set type=$ext[2]
   else
-    set d=$ext[1]
+    if ("$d" == "") set d=$ext[1]
     if ($?type) then
       set t_$d=$type
     else
@@ -29,7 +39,7 @@ foreach dest ($destlist)
       exit
     endif
     set d_$d=$dest
-    set dests=($dests $ext[1])
+    set dests=($dests $d)
   endif
 end
 
@@ -67,15 +77,16 @@ foreach dest ($where)
   alias get 'set d=$'"d_$dest;"'set t=$'"t_$dest"
   get
   foreach item ($what)
+    echo $item D $d T $t
     if ($item == cfg) then
        if ($makeit) then
          make config
          set makeit=0
        endif
        echo tecs $d
-       rsync -e ssh -rCtv --delete-excluded $obj/tecs $d
+       rsync -e ssh -rCtv --delete-excluded $obj/cfg $d
     else if ("$t" == "$OSTYPE") then
-       echo $item $d
+       echo $item to $d
        rsync -e ssh -vt $obj/$item $d
     endif
   end