PSI sics-cvs-psi_pre-ansto

2003-06-13 00:00:00 +00:00
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
--- a/tcl/tail.tcl
+++ b/tcl/tail.tcl
@@ -0,0 +1,12 @@
+#--------------------------------------------------------------------------
+# Implementation of the SICS tail command. This uses the unix sicstail
+# command which is defined for the instrument user.
+#
+# Mark Koennecke, June 1999
+#-------------------------------------------------------------------------
+
+proc tail { {n 20} } {
+  set txt [exec sicstail $n]
+  ClientPut $txt
+  return
+}