From 217de95b297597ed5336ec699e4eebfac0ac349c Mon Sep 17 00:00:00 2001
From: zolliker <zolliker>
Date: Wed, 13 Feb 2008 09:59:23 +0000
Subject: [PATCH] - minor fixes and improvements

---
 ascon.c         |  24 +-
 ascon.h         |  14 +-
 ascon.i         |  12 +-
 conman.c        |   5 +
 scriptcontext.c | 738 +++++++++++++++++-------------------------------
 5 files changed, 294 insertions(+), 499 deletions(-)

diff --git a/ascon.c b/ascon.c
index 243ea0ee..72a6043d 100644
--- a/ascon.c
+++ b/ascon.c
@@ -57,7 +57,7 @@ double DoubleTime(void) {
   return now.tv_sec + now.tv_usec / 1e6;
 }
 
-static void AsconError(AsconPtr a, char *msg, int errorno) {
+static void AsconError(Ascon *a, char *msg, int errorno) {
   static char *stateText[]={
     "state 0", "kill", "state 2", "notConnected",
     "connect", "start connect", "connect finished", "connect failed", 
@@ -80,7 +80,7 @@ static void AsconError(AsconPtr a, char *msg, int errorno) {
   a->state |= AsconFailed;
 }
 
-static void AsconConnect(AsconPtr a) {
+static void AsconConnect(Ascon *a) {
   /* input state: AsconConnectStart
      output state: AsconFailed or AsconConnecting */
   int ret;
@@ -124,7 +124,7 @@ static void AsconConnect(AsconPtr a) {
   return;
 }
 
-void AsconStdInit(AsconPtr a, char *hostport) {
+void AsconStdInit(Ascon *a, char *hostport) {
   a->fd = -1;
   a->state = AsconConnectStart;
   a->timeout = 2.0; /* sec */
@@ -245,7 +245,7 @@ int AsconWriteChars(int fd, char *data, int length) {
 
 static double lastCall = 0;
 
-int AsconStdHandler(AsconPtr a) {
+int AsconStdHandler(Ascon *a) {
   int ret;
   int l;
   char chr;
@@ -354,7 +354,7 @@ void AsconInsertProtocol(AsconProtocol *protocol) {
   AsconProtocolAdd(&protocols, protocol);
 }
 
-AsconHandler AsconSetHandler(AsconPtr a, int argc, char *argv[]) {
+AsconHandler AsconSetHandler(Ascon *a, int argc, char *argv[]) {
   AsconProtocol *p;
   
   if (argc < 1) return NULL;
@@ -378,8 +378,8 @@ char *ConcatArgs(int argc, char *argv[]) {
   return Arg2Tcl(argc, argv, NULL, -1);
 }
 
-AsconPtr AsconMake(SConnection *con, int argc, char *argv[]) {
-  AsconPtr a;
+Ascon *AsconMake(SConnection *con, int argc, char *argv[]) {
+  Ascon *a;
   char *args;
   
   a = calloc(1, sizeof(*a));
@@ -402,7 +402,7 @@ AsconPtr AsconMake(SConnection *con, int argc, char *argv[]) {
   return a;
 }
 
-void AsconKill(AsconPtr a) {
+void AsconKill(Ascon *a) {
   a->state = AsconKillMe;
   a->handler(a);
   if (a->fd > 0) {
@@ -416,7 +416,7 @@ void AsconKill(AsconPtr a) {
   free(a);
 }
 
-AsconStatus AsconTask(AsconPtr a) {  
+AsconStatus AsconTask(Ascon *a) {  
   a->handler(a);
   while (1) {
     switch (a->state) {
@@ -462,7 +462,7 @@ AsconStatus AsconTask(AsconPtr a) {
   }
 }
 
-int AsconWrite(AsconPtr a, char *command, int noResponse) {
+int AsconWrite(Ascon *a, char *command, int noResponse) {
   if (a->state <= AsconConnectFailed || a->state % 4 < AsconFinished) return 0;
   DynStringCopy(a->wrBuffer, command);
   a->noResponse = noResponse;
@@ -472,7 +472,7 @@ int AsconWrite(AsconPtr a, char *command, int noResponse) {
   return 1;
 }
 
-char *AsconRead(AsconPtr a) {
+char *AsconRead(Ascon *a) {
   if (a->noResponse) {
     a->noResponse=0;
     return "";
@@ -488,6 +488,6 @@ char *AsconRead(AsconPtr a) {
   return NULL;
 }
 
-ErrMsgList *AsconGetErrList(AsconPtr a) {
+ErrMsgList *AsconGetErrList(Ascon *a) {
   return &a->errList;
 }
diff --git a/ascon.h b/ascon.h
index 55ae33ae..0378c211 100644
--- a/ascon.h
+++ b/ascon.h
@@ -10,7 +10,7 @@
  
 /** \brief the asynchronous connection
  */
-typedef struct Ascon *AsconPtr;
+typedef struct Ascon Ascon;
 
 /** \brief the possible results of AsconTask
  */
@@ -29,18 +29,18 @@ typedef enum {
  *     are protocol specific, but argv[1] is usually host::port
  *  \return the created connection or NULL on failure
  */
-AsconPtr AsconMake(SConnection *con, int argc, char *argv[]);
+Ascon *AsconMake(SConnection *con, int argc, char *argv[]);
 
 /** \brief kill function
  *  \param a the connection to be killed
  */
-void AsconKill(AsconPtr a);
+void AsconKill(Ascon *a);
 
 /** \brief the task handler. To be called repeatedly.
  *  \param a the connection
  *  \return the state of the connection
  */ 
-AsconStatus AsconTask(AsconPtr a);
+AsconStatus AsconTask(Ascon *a);
 
 /** \brief write to the connection. allowed only when the state is ascon_ready
  *  \param a the connection
@@ -48,7 +48,7 @@ AsconStatus AsconTask(AsconPtr a);
  *  \param noResponse 0 normally, 1 if no reponse is expected
  *  \return 1 on success, 0 when not ready
  */
-int AsconWrite(AsconPtr a, char *command, int noResponse);
+int AsconWrite(Ascon *a, char *command, int noResponse);
 
 /** \brief read from the connection. allowed only when a response is available
  *  \param a the connection
@@ -58,12 +58,12 @@ int AsconWrite(AsconPtr a, char *command, int noResponse);
  *      The result is only valid until the next call to other AsconXxx functions
  *      and has to be duplicated if needed later.
  */
-char *AsconRead(AsconPtr a);
+char *AsconRead(Ascon *a);
 
 /** \brief get the connections error list
  *  \return the error list
  */
-ErrMsgList *AsconGetErrList(AsconPtr a);
+ErrMsgList *AsconGetErrList(Ascon *a);
 
 /** \brief a helper function
  *  \param argc the number of args
diff --git a/ascon.i b/ascon.i
index c941b184..a3f3b625 100644
--- a/ascon.i
+++ b/ascon.i
@@ -50,12 +50,12 @@ typedef enum {
  *
  * custom handlers must have this prototype
  */
-typedef int (* AsconHandler)(AsconPtr connection);
+typedef int (* AsconHandler)(Ascon *connection);
 
 /** Ascon struct
  * all members are public, allowing access by handler wrappers
  */
-typedef struct Ascon {
+struct Ascon {
   AsconState state;   /**< the current state */
   int fd;             /**< socket */
   int readState;      /**< default implementation: 'was cr' */
@@ -70,7 +70,7 @@ typedef struct Ascon {
   int noResponse;     /**< no response expected */
   int responseValid;  /**< a valid response is ready */
   AsconHandler handler; /**< handler function */
-} Ascon;
+};
 
 #define ASCON_SELECT_ERROR -1
 #define ASCON_RECV_ERROR -2
@@ -83,7 +83,7 @@ typedef struct Ascon {
  *
  * In most cases a custom handler may be a wrapper around AsconStdHandler
  */
-int AsconStdHandler(AsconPtr a);
+int AsconStdHandler(Ascon *a);
 
 /** \brief initialize a standard connection
  *  \param a the connection
@@ -91,7 +91,7 @@ int AsconStdHandler(AsconPtr a);
  *
  * In most cases a custom init function may be a wrapper around AsconStdInit
  */
-void AsconStdInit(AsconPtr a, char *hostport);
+void AsconStdInit(Ascon *a, char *hostport);
 
 /** The Ascon Protocol
  */
@@ -111,7 +111,7 @@ void AsconInsertProtocol(AsconProtocol *protocol);
  *  \param a the connection to be closed
  *  remark: the connection struct itself has to be freed manually
  */
-void AsconClose(AsconPtr a);
+void AsconClose(Ascon *a);
 
 /** \brief swallow garbage (utility function)
  *  \param fd the socket
diff --git a/conman.c b/conman.c
index 8f7aa792..f3888ec0 100644
--- a/conman.c
+++ b/conman.c
@@ -1040,6 +1040,11 @@ pDynString SCEndBuffering(SConnection *pCon)
        SICSLogWrite(pBueffel,eInternal);
        SICSLogWrite(buffer,iOut);
        
+     /* put it into the interpreter if present */
+     if(SCinMacro(self))
+     {
+       InterpWrite(pServ->pSics,buffer);
+     }
      return 1;    
   }
 /*--------------------------------------------------------------------------
diff --git a/scriptcontext.c b/scriptcontext.c
index 8f544afc..151a34c3 100644
--- a/scriptcontext.c
+++ b/scriptcontext.c
@@ -26,6 +26,7 @@ typedef enum {
   sct_path_keyword,
   sct_update_keyword,
   sct_take_keyword,
+  sct_get_keyword,
   sct_complete_keyword,
   sct_chain_keyword,
   sct_next_keyword,
@@ -41,6 +42,7 @@ static char *sctKeywords[]={
   "path",
   "update",
   "take",
+  "get",
   "complete",
   "chain",
   "next",
@@ -56,7 +58,7 @@ typedef struct SctChain {
   struct SctChain *next;
   char *command;
   SctList *scriptList;
-  pHdb relatedNode;
+  char *relatedPath;
   ErrMsg *msg;
   int doit;
   char *dynamic;
@@ -91,30 +93,25 @@ typedef struct Sct Sct;
 typedef struct SctParData {
   struct SctParData *next;
   Sct *sct;
-  SctChain *scriptChain;
+  SctChain *setChain;
+  SctChain *updateChain;
   int pending, inprogress;
   int refCnt;
-  hdbValue target;
   SCStore conCtx;
 } SctParData;
 
-typedef struct SctObjectName {
-  struct SctObjectName *next;
-  char *name;
-} SctObjectName;
-
-/* define SctObjectNameList and their functions */
-#define MC_NAME(T) SctObjectName##T
-#include "mclist.c"
+typedef struct SctNode {
+  struct SctNode *next;
+  pHdb node;
+} SctNode;
 
 struct Sct {
   pObjectDescriptor desc;
   char *name;
   SctListList scriptLists;
-  SctObjectNameList names; /* created with the "object" command, needed for kill only */
-  AsconPtr ascon;
-  pHdb currentNode;
-  SctParData *foundData;
+  Ascon *ascon;
+  char *currentPath; /* path for configuration (sct is owner) */
+  char *relatedPath; /* node for scripts (chains are owner) */
   char *cmd;
   char *result;
   char *nextScript;
@@ -127,6 +124,7 @@ struct Sct {
   int killObj;
   int verbose;
   int taskSteps;
+  time_t maxAge;
 };
 
 static Sct *sct = NULL;
@@ -140,173 +138,6 @@ static void SctFreeParData(void *d) {
   }
 }
 
-pHdb SctFindObjNode(char *name) {
-  CommandList *cmd;
-  pDummy obj;
-  
-  cmd = FindCommand(pServ->pSics, name);
-  if (cmd == NULL) return NULL;
-  obj = (void *)cmd->pData;
-  if (obj == NULL || obj->pDescriptor->parNode==NULL) return NULL;
-  return obj->pDescriptor->parNode;
-}
-
-/** \brief find the node with the relative path relpath
- * \param node the root node (where to start)
- * \param relpath an absolute or relative path
- * \param parentPtr a pointer to the found parent (may be NULL if not used)
- * \param nodePtr a pointer to the found node
- * \return the name of the node
- *
- * An abolute path starts with a slash, a relative path equal to "."
- * means that the input node is returned. A syntax like "..", "../down"
- * is also allowed, but the double dots must appear at the start of the path.
- *
- * This routine may also be used in order to find the parent node of
- * a node not yet existing. In this case the nodePtr will point
- * to a NULL pointer on return, and a pointer to the last element
- * in the path is returned.
- *
- * Nodes anchored in the sics object list are also found when
- * the path starts with "/sics/"
- */
-char *SctFindNode(pHdb node, char *relpath, pHdb *parentPtr, pHdb *nodePtr) {
-  char *path;
-  char buffer[MAX_HDB_PATH];
-  pHdb root = NULL;
-  char *name;
-  char *slash;
-  
-  if (strlen(relpath) >= sizeof(buffer)) {
-    *nodePtr = NULL;
-    return NULL; /* relpath too long */
-  }
-  strcpy(buffer, relpath);
-  path = buffer;
-  if (path[0] == '/') {
-    if (strncmp(path, "/sics/", 6) == 0) {
-      /* sics object case */
-      slash = strchr(path+6, '/');
-      if (slash != NULL) {
-        *slash = '\0';
-      }
-      node = SctFindObjNode(path);
-      if (node == NULL) goto notFound;
-      if (slash == NULL) goto nodeFound;
-      path = slash+1;
-      /* root node is sics object, path is relative to it */
-    } else {
-      /* absolute path */
-      node = GetHipadabaRoot();
-      /* strip off first slash, root node is sics root */
-      path++;
-    }
-  } else if (path[0] == '.') {
-    if (path[1] == '\0') {
-      /* this path */ 
-      goto nodeFound;
-    }
-    /* upper node */
-    while (strncmp(path, "..", 2) == 0 && node != NULL) {
-      node = node->mama;
-      if (path[2] == '\0') goto nodeFound;
-      path += 3;
-    }
-    if (node == NULL) goto notFound;
-  }
-  
-  /* now go down in path */
-  while (node != NULL) {
-    root = node;
-    slash = strchr(path, '/');
-    if (slash != NULL) *slash='\0';
-    for (node = root->child; node != NULL; node = node->next) {
-      if (strcasecmp(node->name, path) == 0) {
-        if (slash == NULL) goto nodeFound;
-        path = slash + 1;
-        break;
-      }
-    }
-  }
-
-  if (slash == NULL) {
-    if (parentPtr != NULL) {
-      *parentPtr = root;
-    }
-    *nodePtr = NULL;
-    /* the returned name must be taken from the end of relpath, as path is no longer valid */
-    name = relpath + (path - buffer);
-    goto finish;
-  }
-notFound:
-  node = NULL;
-nodeFound:
-  *nodePtr = node;
-  if (node) {
-    if (parentPtr != NULL) {
-      *parentPtr = node->mama;
-    }
-    name = node->name;
-  } else {
-    if (parentPtr != NULL) {
-      *parentPtr = NULL;
-    }
-    name = NULL;
-  }
-finish:
-  return name;
-}
-
-/** \brief get the absolute path of a node anchored in the
- *     Hipadaba root or in a sics object
- * \param nodeArg the input node
- * \param path the result
- * \param pathlen length of the result
- * \return 1 on success, 0 on failure
- */
-int SctGetPath(pHdb nodeArg, char *path, size_t pathlen) {
-  pHdb node, root;
-  int len, pos, l;
-  static char *sics="/sics";
-  
-  /* determine path length and root node */
-  root = nodeArg;
-  len = 0;
-  for (node = nodeArg; node != NULL; node = node->mama) {
-    len += strlen(node->name) + 1;
-    if (len >= pathlen) return 0; /* buffer overflow (may be recursize path?) */
-    root = node;
-  }
-  
-  /* check root and add prefix */
-  path[0]='\0';
-  if (root != GetHipadabaRoot()) { /* not anchored in root */
-    if (!FindCommand(pServ->pSics, root->name)) {
-      /* not a sicsobject, give up */
-      path[0]='\0';
-      return 0;
-    }
-    /* sics object case */
-    l = strlen(sics);
-    len += l;
-    if (len >= pathlen) return 0;
-    strncpy(path, sics, l);
-  }
-  
-  /* build the path backwards */
-  path[len]='\0';
-  pos = len;
-  for (node = nodeArg; node != NULL; node = node->mama) {
-    len = strlen(node->name);
-    pos -= len;
-    assert(pos>0);
-    strncpy(path+pos, node->name, len);
-    pos--;
-    path[pos]='/';
-  }
-  return 1;
-}
-
 static int UpdateNode(SConnection *con, ErrMsgList *e, pHdb node, int argc, char *argv[]) {
   hdbValue newValue;
   static char errtxt[512];
@@ -349,6 +180,7 @@ static SctChain *SctMakeChain(char *command) {
   sc->dynamic = NULL;
   sc->command = command;
   sc->scriptList = NULL;
+  sc->relatedPath = NULL;
   sc->msg = NULL;
   return sc;
 }
@@ -376,7 +208,7 @@ static int SctUpdateCallback(void *user, void *conn, pHdb node, hdbValue value)
   if (data->inprogress) {
     if (data->sct->operation == sct_complete_keyword) {
       data->inprogress = 0;
-      SctGetPath(node, path, sizeof path);
+      GetHdbPath(node, path, sizeof path);
       con = SCStorePush(data->conCtx);
       str = formatValue(value, node);
       SCPrintf(con, eStatus, "%s = %s", path,
@@ -393,10 +225,11 @@ static int SctSetCallback(void *user, void *conn, pHdb node, hdbValue value) {
   SConnection *oldCon;
   char path[MAX_HDB_PATH];
   pDynString str;
+  pHdb target;
   
-  if (data->scriptChain) {
+  if (data->setChain) {
     if (data->pending) {
-      SctGetPath(node, path, sizeof path);
+      GetHdbPath(node, path, sizeof path);
       oldCon = SCStorePush(data->conCtx);
       str = formatValue(value, node);
       SCPrintf(oldCon, eStatus, "target of %s changed to %s", path,
@@ -406,9 +239,12 @@ static int SctSetCallback(void *user, void *conn, pHdb node, hdbValue value) {
     }
     data->conCtx = SCSave(conn, data->conCtx);
     data->pending = 1;
-    SctSetDirty(data->scriptChain);
-    copyHdbValue(&value, &data->target);
-    return 0;
+    SctSetDirty(data->setChain);
+    target = GetHipadabaNode(node, "target");
+    if (target) {
+      UpdateHipadabaPar(target, value, NULL);
+    }
+    return 1;
   }
   return 1;
 }
@@ -416,20 +252,31 @@ static int SctSetCallback(void *user, void *conn, pHdb node, hdbValue value) {
 static int SctReadCallback(void *user, void *conn, pHdb node, hdbValue value) {
   SctParData *data = user;
   
-  data->sct->foundData = data;
-  if (data->sct->operation == sct_take_keyword && data->pending) {
-    data->pending = 0;
-    data->inprogress = 1;
-    return 0;
-  }
+  /* not used ? */
   return 1;
 }
 
+int SctCallDynamicScript(Sct *sct, char *name, char *script) {
+  SctList *sl;
+  SctChain *sc;
+  for (sl = sct->scriptLists.head; sl != NULL; sl = sl->next) {
+    for (sc = sl->chains.head; sc != NULL; sc = sc->next) { /* don't touch the list pos */
+      if (sc->dynamic && strcasecmp(name, sc->dynamic) == 0) {
+        if (sc->command) free(sc->command);
+        sc->command = script;
+        return 1;
+      }
+    }
+  }
+  return 0;
+}
+
 static int SctExec(SConnection *con, SicsInterp *sics, void *object, int argc, char *argv[]) {
   SctKeyword keyword;
   SctList *sl;
   SctChain *sc;
-  pHdb node;
+  SctParData *data;
+  pHdb node, target;
   hdbValue newValue;
   pDynString result;
   char *args;
@@ -495,11 +342,11 @@ static int SctExec(SConnection *con, SicsInterp *sics, void *object, int argc, c
     SCWrite(con, sct->cmd, eValue);
     goto success;
   case sct_path_keyword:
-    if (SctGetPath(sct->currentNode, path, sizeof path)) {
-      SCWrite(con, path, eValue);
-    } else {
-      SCWrite(con, "ERROR: node not anchored or path name too long", eInError);
+    if (sct->relatedPath == NULL) {
+      SCWrite(con, "ERROR: undefined current path", eInError);
+      goto quit;
     }
+    SCWrite(con, sct->relatedPath, eValue);
     goto success;
   case sct_complete_keyword:
     /* fall through */
@@ -508,29 +355,38 @@ static int SctExec(SConnection *con, SicsInterp *sics, void *object, int argc, c
       SCPrintf(con, eInError, "ERROR: should be: %s %s <par> <value>", argv[0], argv[1]);
       goto quit;
     }
-    SctFindNode(sct->currentNode, argv[2], NULL, &node);
-    if (node == NULL) {
-      goto missingPar;
-    }
+    node = FindHdbNode(sct->relatedPath, argv[2], con);
+    if (node == 0) goto quit;
     return UpdateNode(con, AsconGetErrList(sct->ascon), node, argc-3, argv+3);
+  case sct_get_keyword:
   case sct_take_keyword:
     if (argc < 3) {
-      SCPrintf(con, eInError, "ERROR: should be: %s take <par>", argv[0]);
+      SCPrintf(con, eInError, "ERROR: should be: %s %s <par>", argv[0], argv[1]);
       goto quit;
     }
-    SctFindNode(sct->currentNode, argv[2], NULL, &node);
-    if (node == NULL) {
-      goto missingPar;
-    }
+    node = FindHdbNode(sct->relatedPath, argv[2], con);
+    if (node == 0) goto quit;
     memset(&newValue,0,sizeof(hdbValue));
-    sct->foundData = NULL;
-    GetHipadabaPar(node, &newValue, con);
-    if (sct->foundData) {
-      cloneHdbValue(&sct->foundData->target, &newValue);
+    if (keyword == sct_take_keyword) {
+      data = FindHdbCallbackData(node, HCBUPDATE, SctUpdateCallback, sct);
+      result = NULL;
+      if (data) {
+        if (data->pending) {
+          data->pending = 0;
+          data->inprogress = 1;
+        }
+        target = GetHipadabaNode(node, "target");
+        if (target) {
+          result = formatValue(target->value, node);
+        }
+      }
+    } else {
+      result = formatValue(node->value, node);
+    }
+    if (result == NULL) {
+      SCPrintf(con, eInError, "ERROR: %s has no target value", node->name);
+      goto quit;
     }
-    result = formatValue(newValue, node);
-    ReleaseHdbValue(&newValue);
-    if (result == NULL) goto noMemory;
     if (sct->verbose != 0) {
       dcon = SCStorePush(sct->debugConn);
       SCPrintf(dcon, eWarning, "result: %s", GetCharArray(result));
@@ -557,17 +413,11 @@ static int SctExec(SConnection *con, SicsInterp *sics, void *object, int argc, c
       SCPrintf(con, eInError, "ERROR: should be:  %s chain <name> <script>", argv[0]);
       goto quit;
     }
-    for (sl = sct->scriptLists.head; sl != NULL; sl = sl->next) {
-      for (sc = sl->chains.head; sc != NULL; sc = sc->next) { /* don't touch the list pos */
-        if (sc->dynamic && strcasecmp(argv[2], sc->dynamic) == 0) {
-          if (sc->command) free(sc->command);
-          sc->command = ConcatArgs(argc - 3, argv + 3);
-          goto success;
-        }
-      }
+    if (!SctCallDynamicScript(sct, argv[2], ConcatArgs(argc-3, argv+3))) {
+      SCPrintf(con, eInError, "ERROR: dynamic script %s not found", argv[2]);
+      goto quit;
     }
-    SCPrintf(con, eInError, "ERROR: dynamic script %s not found", argv[2]);
-    goto quit;
+    goto success;
   case sct_next_keyword:
     if (argc < 3) {
       SCPrintf(con, eInError, "ERROR: should be:  %s next <script>", argv[0]);
@@ -590,9 +440,6 @@ static int SctExec(SConnection *con, SicsInterp *sics, void *object, int argc, c
 success:
   sct->operation = sct_no_keyword;
   return 1;
-noMemory:
-  SCWrite(con, "ERROR: no memory", eInError);
-  goto quit;
 missingPar:
   SCPrintf(con, eInError, "ERROR: parameter %s not found", argv[2]);
   goto quit;
@@ -607,85 +454,6 @@ quit:
   return 0;
 }
 
-static int SctWrapper(SConnection *con, SicsInterp *sics, void *object, int argc, char *argv[]) {
-  Sct *sct;
-  SctParData *data;
-  hdbValue val;
-  char *mode;
-  pDynString dyn;
-  pHdb node;
-  ErrMsg *msg;
-  
-  typedef enum {
-    target_keywd,
-    no_keywd
-  } Keyword;
-  /* keywds must have the same order as Keyword */
-  static char *keywds[]={
-    "-t", /* show state and target value */
-    NULL
-  };
-  Keyword keywd;
-  
-  if (argc < 2) {
-    return InvokeSICSOBJ(con, sics, object, argc, argv);
-  };
-  keywd = SctFindKeyword(argv[1], keywds);
-  sct = ((pSICSOBJ)object)->pPrivate;
-  switch (keywd) {
-  case no_keywd: return InvokeSICSOBJ(con, sics, object, argc, argv);
-  case target_keywd:
-    if (argc < 3) {
-      SCWrite(con, "ERROR: missing par", eInError);
-      return 0;
-    }
-    SctFindNode(sct->currentNode, argv[2], NULL, &node);
-    if (node == NULL) {
-      SCPrintf(con, eInError, "ERROR: %s %s not found", argv[0], argv[2]);
-      return 0;
-    }
-    sct->foundData = NULL;
-    GetHipadabaPar(node, &val, con);
-    data = sct->foundData;
-    if (data) {
-      if (data->pending) {
-        if (data->inprogress) {
-          mode = "inprogress pending";
-        } else {
-          mode = "pending";
-        }
-        cloneHdbValue(&data->target, &val);
-      } else {
-        if (data->inprogress) {
-          mode = "inprogress";
-          cloneHdbValue(&data->target, &val);
-        } else {
-          mode = "idle";
-        }
-      }
-      if (data->scriptChain && data->scriptChain->msg) {
-        msg = data->scriptChain->msg;
-        if (msg->data) {
-          SCPrintf(con, eInError, "ERROR:\n%s (%s)\n", msg->text, msg->data);
-        } else {
-          SCPrintf(con, eInError, "ERROR:\n%s\n", msg->text);
-        }
-      }
-    } else {
-      mode = "rdonly";
-    }
-    dyn = formatValue(val, node);
-    ReleaseHdbValue(&val);
-    SCPrintf(con, eValue, "%s %s", mode, GetCharArray(dyn));
-    DeleteDynString(dyn);
-    break;
-  default:
-    SCPrintf(con, eInError, "ERROR: %s %s: untreated keyword", argv[0], argv[1]);
-    return 0;
-  }
-  return 1;
-}
-
 static char *SctChainCmd(char *cmd) {
   static char buf[512];
   
@@ -706,7 +474,7 @@ static char *SctCall(char *command) {
   
   if (sct->verbose != 0) {
     dcon = SCStorePush(sct->debugConn);
-    SCPrintf(dcon, eInError, "script: %s\n", command);
+    SCPrintf(dcon, eInError, "\nscript: %s\n", command);
     SCStorePop(sct->debugConn);
   }
   l = strlen(command);
@@ -725,7 +493,7 @@ static char *SctCall(char *command) {
 
 static char *SctCallChain(SctChain *sc) {
   sct->runningChain = sc;
-  sct->currentNode = sc->relatedNode;
+  sct->relatedPath = sc->relatedPath;
   sc->msg = NULL;
   return SctCall(sc->command);
 }
@@ -767,14 +535,19 @@ static int SctTask(void *object) {
   if (sct->taskSteps == 0) {
     goto quit;
   }
+  /* Sometimes we do not want to give away control if there is a chance,
+     that we can do the next step without waiting. This following label is
+     for this purpose */
 recycle:
   status = AsconTask(sct->ascon);
   if (status == AsconFailure) {
     /* decide what to do on failure */
   } else if (status != AsconReady) {
+    /* we have to wait, give CPU time to other tasks */
     goto quit;
   }
   if (sct->taskSteps > 0) {
+    /* debugging code */
     if (sct->taskSteps == 0) {
       goto quit;
     }
@@ -782,6 +555,7 @@ recycle:
   }
   response = AsconRead(sct->ascon);
   if (response != NULL) {
+    /* there was a response, treat it */
     if (sct->verbose != 0) {
       if (dcon == NULL) dcon = SCStorePush(sct->debugConn);
       SCPrintf(dcon, eWarning, "answer: %s", response);
@@ -789,6 +563,7 @@ recycle:
     if (sct->cmd) free(sct->cmd);
     sct->cmd = NULL;
     if (sct->sent) {
+      /* response to a "<controller> send" command */
       sct->sent = 0;
       if (dcon == NULL) dcon = SCStorePush(sct->debugConn);
       SCPrintf(dcon, eWarning, "response> %s", response);
@@ -796,15 +571,17 @@ recycle:
       sct->debugCommand = NULL;
       goto recycle;
     } else if (sct->nextScript) {
+      /* save the result for the next script */
       sct->result = strdup(response);
     }
   }
   if (sct->debugCommand) {
+    /* the "<controller> send" command was called */
     if (sct->sent) {
-      if (dcon == NULL) dcon = SCStorePush(sct->debugConn);
-      SCPrintf(dcon, eWarning, "state %d", status);
+      /* we are already waiting for ta response */
       goto quit;
     }
+    /* let us send the response */
     sct->sent = 1;
     if (sct->verbose != 0) {
       if (dcon == NULL) dcon = SCStorePush(sct->debugConn);
@@ -814,9 +591,11 @@ recycle:
     goto recycle;
   }
   if (sct->nextScript) {
+    /* treat first the next script of a chain */
     SctCallNext();
-    goto recycle;
+    goto recycle; /* may the script has no send command, so let's look what's next */
   }
+  /* now look for commands in script lists, lists are ordered by priority */
   for (sl = sct->scriptLists.head; sl != NULL; sl = sl->next) {
     if (sl->type == set_type) {
       if (sl->dirty) {
@@ -826,7 +605,7 @@ recycle:
           goto recycle;
         }
         sc = SctChainThis(&sl->chains);
-        if (sc != NULL) {
+        if (sc != NULL && sc->doit) {
           SctChainNext(&sl->chains);
           SctCallChain(sc);
           goto recycle;
@@ -837,7 +616,7 @@ recycle:
         }
         if (sc != NULL) {
           SctChainNext(&sl->chains);
-          if (sl->type == set_type || sc->dynamic) sc->doit = 0;
+          sc->doit = 0;
           SctCallChain(sc);
           goto recycle; /* there are still pending scripts */
         }
@@ -850,7 +629,7 @@ recycle:
         /* go to next scriptlist */
       }
     } else {
-      if (sl->type == timed_type) {
+      if (sl->type == timed_type) { /* check if timed list is due */
         if (!sl->dirty) {
           period = floor(DoubleTime() / sl->interval);
           if (period != sl->lastPeriod) {
@@ -887,6 +666,7 @@ quit:
 
 static void SctKillChain(SctChain *sc) {
   if (sc->command) free(sc->command);
+  if (sc->relatedPath) free(sc->relatedPath);
   if (sc->dynamic) free(sc->dynamic);
   free(sc);
 }
@@ -899,14 +679,7 @@ static void SctKillSL(SctList *sl) {
   free(sl);
 }
 
-static void SctObjectNameKill(SctObjectName *onam) {
-  RemoveCommand(pServ->pSics, onam->name);
-  free(onam->name);
-  free(onam);
-}
-
 static void SctKill(Sct *sct) {
-  SctObjectNameDelete(&sct->names, SctObjectNameKill);
   SctListDelete(&sct->scriptLists, SctKillSL);
   if (sct->ascon) AsconKill(sct->ascon);
   if (sct->name) free(sct->name);
@@ -916,6 +689,8 @@ static void SctKill(Sct *sct) {
   if (sct->debugCommand) free(sct->debugCommand);
   if (sct->debugConn) SCStoreFree(sct->debugConn);
   if (sct->desc) DeleteDescriptor(sct->desc);
+  if (sct->currentPath) free(sct->currentPath);
+  RemoveSICSInternalCallback(sct);
   free(sct);
 }
 
@@ -943,46 +718,103 @@ static void SctKillObj(void *object) {
 int SctAddNode2Script(Sct *sct, SctChain *sc, pHdb node, SConnection *con) {
   hdbValue val;
   char path[MAX_HDB_PATH];
+  pHdbCallback cb;
+  SctParData *data;
+  pHdb child;
+  hdbValue hval;
   
-  memset(&val,0,sizeof(hdbValue));
-  GetHipadabaPar(node, &val, con);
-  ReleaseHdbValue(&val);
-  if (!sct->foundData) {
-    SctGetPath(node, path, sizeof path);
-    SCPrintf(con, eError, "ERROR: %s has no script context data", path);
-    return 0;
+  data = FindHdbCallbackData(node, HCBUPDATE, SctUpdateCallback, sct);
+  if (data == NULL) {
+    data = calloc(1, sizeof(*data));
+    assert(data);
+    data->pending = 0;
+    data->inprogress = 0;
+    data->sct = sct;
+    data->setChain = NULL;
+    data->updateChain = NULL;
+    data->conCtx = NULL;
+    data->refCnt = 3; /* insert 3 times */
+  
+    cb = MakeHipadabaCallback(SctUpdateCallback, data, SctFreeParData, -1, sct);
+    assert(cb);
+    AppendHipadabaCallback(node, HCBUPDATE, cb);
+
+    cb = MakeHipadabaCallback(SctSetCallback, data, SctFreeParData, -1, sct);
+    assert(cb);
+    AppendHipadabaCallback(node, HCBSET, cb);
+
+    cb = MakeHipadabaCallback(SctReadCallback, data, SctFreeParData, -1, sct);
+    assert(cb);
+    AppendHipadabaCallback(node, HCBREAD, cb);
+  } else {
+    if (data->sct != sct) {
+      SCPrintf(con, eError, "ERROR: node is already attached to another script context controller");
+      return 0;
+    }
+  }
+  child = GetHipadabaNode(node, "error");
+  if (child == NULL) {
+    child = MakeSICSHdbPar("error", usInternal, MakeHdbText(""));
+    AddHipadabaChild(node, child, NULL);
+    SetHdbProperty(child, "hidden", "whenempty");
   }
   if (sc->scriptList->type == set_type) {
-    sct->foundData->scriptChain = sc;
+    child = GetHipadabaNode(node, "target");
+    if (child == NULL) {
+      child = MakeSICSHdbPar("target", usInternal, node->value);
+      AddHipadabaChild(node, child, NULL);
+      SetHdbProperty(child, "hidden","target");
+    }
+    data->setChain = sc;
+  } else {
+    data->updateChain = sc;
   }
   return 1;
 }
 
+void SctWriteError(ErrMsg *msg, SConnection *con, time_t maxAge) {
+  time_t age;
+  char timetext[8];
+  age = time(NULL) - msg->last;
+  if (age < maxAge) {
+    if (age < 3600) {
+      snprintf(timetext, sizeof timetext, "%2ldm%2.2lds", age/60, age % 60);
+    } else if (age < 99*3600) {
+      age = age / 60;
+      snprintf(timetext, sizeof timetext, "%2ldh%2.2ldm", age/60, age % 60);
+    } else {
+      snprintf(timetext, sizeof timetext, "%5ldh", age/(24*3600));
+    }
+    if (msg->data) {
+      SCPrintf(con, eStatus, "--- %s ago, cnt %5d %s", timetext, msg->cnt, msg->data);
+    } else {
+      SCPrintf(con, eStatus, "--- %s ago, cnt %5d", timetext, msg->cnt);
+    }
+    SCPrintf(con, eStatus, "%s", msg->text, eStatus);
+  }
+}
+
 static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc, char *argv[]) {
   Sct *sct = object;
   SctList *sl, *slItem;
   SctChain *sc;
   int type = 0, priv = -1;
-  SctParData *data;
   pHdb node, parent;
-  pHdbCallback cb;
   char *fmt;
   char *name;
+  char *text;
   char path[MAX_HDB_PATH];
   pSICSOBJ sicsobj;
   int i;
   ErrMsgList *list;
   ErrMsg *msg;
-  time_t age;
-  char timetext[8];
   double interval;
-  SctObjectName *objname;
   hdbValue val;
+  pDynString str;
+  int doit;
   
   typedef enum {
     connect_keyword,
-    object_keyword,
-    make_keyword,
     path_keyword,
     addscript_keyword,
     addmultiscript_keyword,
@@ -994,14 +826,14 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
     interval_keyword,
     debug_keyword,
     send_keyword,
+    chain_keyword,
+    list_keyword,
     error_keyword,
     no_keyword
   } Keyword;
   /* keywords must have the same order as Keyword */
   static char *keywords[]={
     "connect",
-    "object",
-    "make",
     "path",
     "addscript",
     "addmultiscript",
@@ -1013,6 +845,8 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
     "interval",
     "debug",
     "send",
+    "chain",
+    "list",
     "error",
     NULL
   };
@@ -1027,101 +861,6 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
   sct->operation = keyword;
   switch (keyword) {
   
-  case object_keyword:
-    if (argc < 5) {
-      SCPrintf(con, eError, "ERROR: should be  %s object <name> <priv> <type> [<fmt>]", argv[0]);
-      goto quit;
-    }     
-    sicsobj = MakeSICSOBJ(argv[2], "SctSicsObject");
-    if (!sicsobj) goto noMemory;
-    sicsobj->pPrivate = sct;
-    sct->currentNode = sicsobj->pDes->parNode;
-    sicsobj->KillPrivate = NULL;
-    /*
-    sicsobj->pDes->saveStatus = SctSave;
-    dynamic?
-    */
-    if (!AddCommand(pServ->pSics, argv[2], SctWrapper, KillSICSOBJ, sicsobj)) {
-      SCPrintf(con, eError, "%s already exists", argv[2]);
-      goto quit;
-    }
-    objname = calloc(1, sizeof(*objname));
-    objname->name = strdup(argv[2]);
-    SctObjectNameAdd(&sct->names, objname);
-    /* fall through */
-    
-  case make_keyword:
-    if (argc < 5) {
-      SCPrintf(con, eError, "ERROR: should be  %s make <par> <priv> <type> [<fmt>]", argv[0]);
-      goto quit;
-    }     
-    
-    fmt = NULL;
-    priv = decodeSICSPriv(argv[3]);
-    if (strcasecmp(argv[4], "int") == 0) {
-      type = HIPINT;
-    } else if (strcasecmp(argv[4], "float") == 0) {
-      type = HIPFLOAT;
-      if (argc == 6) {
-        fmt = argv[5];
-      } else {
-        fmt = "%.5g";
-      }
-    } else if (strcasecmp(argv[4], "text") == 0) {
-      type = HIPTEXT;
-    } else if (strcasecmp(argv[4], "none") == 0) {
-      type = HIPNONE;
-    } else {
-      SCWrite(con,
-        "ERROR: invalid type requested: none, int, float, text supported", eError);
-      goto quit;
-    }
-
-    if (keyword == make_keyword) { /* make parameter case */
-      name = SctFindNode(sct->currentNode, argv[2], &parent, &node);
-      if (node != NULL) goto nodeExists;
-      if (name == NULL) goto quit;
-      if (type != HIPNONE){
-        val = makeHdbValue(type,0);
-        node = MakeSICSHdbPar(name, priv, val);
-        ReleaseHdbValue(&val);
-      } else {
-        node = MakeHipadabaNode(name, type, 0);
-      }
-      if (node == NULL) goto noMemory;
-      AddHipadabaChild(parent, node, con);
-    } else { /* make object case */
-      name = argv[2];
-      node = sct->currentNode;
-    }
-    
-    data = calloc(1, sizeof(*data));
-    if (node == NULL || data == NULL) goto noMemory;
-    data->pending = 0;
-    data->inprogress = 0;
-    data->sct = sct;
-    data->scriptChain = NULL;
-    data->conCtx = NULL;
-    data->refCnt = 3; /* insert 3 times */
-    cloneHdbValue(&node->value, &data->target);
-    if (fmt) {
-      SetHdbProperty(node, "fmt", fmt);
-    }
-    
-    cb = MakeHipadabaCallback(SctUpdateCallback, data, SctFreeParData, -1, sct);
-    if (cb == NULL) goto noMemory;
-    AppendHipadabaCallback(node, HCBUPDATE, cb);
-
-    cb = MakeHipadabaCallback(SctSetCallback, data, SctFreeParData, -1, sct);
-    if (cb == NULL) goto noMemory;
-    AppendHipadabaCallback(node, HCBSET, cb);
-
-    cb = MakeHipadabaCallback(SctReadCallback, data, SctFreeParData, -1, sct);
-    if (cb == NULL) goto noMemory;
-    AppendHipadabaCallback(node, HCBREAD, cb);
-
-    break;
-    
   case dynscript_keyword:
     if (argc < 4) {
       SCPrintf(con, eError, "ERROR: should be  %s %s <list> <name>", argv[0], argv[1]);
@@ -1132,17 +871,16 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
   case addmultiscript_keyword:
   
   case addscript_keyword:
-    if (argc < 5) {
+    if (argc < 4) {
       SCPrintf(con, eError, "ERROR: should be  %s %s <list> <par> <script ...>", argv[0], argv[1]);
       goto quit;
     }
     if (keyword == dynscript_keyword) {
       node = NULL;
     } else {
-      SctFindNode(sct->currentNode, argv[3], &parent, &node);
+      node = FindHdbNode(sct->currentPath, argv[3], con);
       if (node == NULL) {
-        name = argv[3];
-        goto nodeNotFound;
+        goto quit;
       }
     }
     for (sl = SctListFirst(&sct->scriptLists); sl != NULL; sl = SctListNext(&sct->scriptLists)) {
@@ -1152,9 +890,8 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
             SCPrintf(con, eError, "ERROR: dynscripts may not be added to a set type list");
             goto quit;
           }
-          node = sct->currentNode;
         }
-        if (argc == 4) { /* take last script */
+        if (argc == 4 && keyword != dynscript_keyword) { /* take last script */
           sc = SctChainThis(&sl->chains);
           if (sc == NULL) {
             SCPrintf(con, eError, "ERROR: script list is empty");
@@ -1162,11 +899,12 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
           }
         } else {
           sc = SctMakeChain(ConcatArgs(argc-4, argv+4));
-          if (sc == NULL) goto noMemory;
+          assert(sc);
           if (node) {
-            sc->relatedNode = node;
+            GetHdbPath(node, path, sizeof(path));
+            sc->relatedPath = strdup(path);
           } else {
-            sc->relatedNode = sct->currentNode;
+            sc->relatedPath = strdup(sct->currentPath);
           }
           sc->scriptList = sl;
           if (keyword == dynscript_keyword) {
@@ -1174,7 +912,6 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
           }
           SctChainAdd(&sl->chains, sc);
         }
-        sct->foundData = NULL;
         if (node && keyword == addscript_keyword) {
           if (!SctAddNode2Script(sct, sc, node, con)) goto quit;
         }
@@ -1203,10 +940,9 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
       SCPrintf(con, eError, "ERROR: no script was specified");
       goto quit;
     }
-    SctFindNode(sct->currentNode, argv[2], &parent, &node);
+    node = FindHdbNode(sct->currentPath, argv[2], con);
     if (node == NULL) {
-      name = argv[2];
-      goto nodeNotFound;
+      goto quit;
     }
     if (!SctAddNode2Script(sct, sc, node, con)) goto quit;
     goto success;
@@ -1226,7 +962,7 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
       if (strcasecmp(sl->name, argv[2]) == 0) goto scriptListExists;
     }
     sl = calloc(1, sizeof(*sl));
-    if (sl == NULL) goto noMemory;
+    assert(sl);
     sl->name = strdup(argv[3]);
     sl->type = type;
     sl->beginScript = NULL;
@@ -1266,7 +1002,6 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
     return 1;
     
   case beginscript_keyword:
-  
   case endscript_keyword:
     if (argc < 4) {
       SCPrintf(con, eError, "ERROR: should be  %s %s <list> <script>", argv[0], argv[1]);
@@ -1277,7 +1012,7 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
     }
     if (sl == NULL) goto scriptListNotFound;
     sc = SctMakeChain(ConcatArgs(argc-3, argv+3));
-    sc->relatedNode = sct->currentNode;
+    sc->relatedPath = strdup(sct->currentPath);
     sc->scriptList = sl;
     if (keyword == beginscript_keyword) {
       sl->beginScript = sc;
@@ -1302,17 +1037,22 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
       goto quit;
     }
     if (argc == 3) {
-      SctFindNode(sct->currentNode, argv[2], &parent, &node);
+      node = FindHdbNode(sct->currentPath, argv[2], con);
       if (node == NULL) {
-        name = argv[2];
-        goto nodeNotFound;
+        goto quit;
       }
+    } else {
+      node = FindHdbNode(sct->currentPath, ".", con);
     }
-    if (!SctGetPath(sct->currentNode, path, sizeof path)) {
-      SCWrite(con, "ERROR: node not anchored or path name too long", eError);
+    if (!GetHdbPath(node, path, sizeof path)) {
+      SCWrite(con, "ERROR: no such path or path name too long", eError);
       goto quit;
     }
-    SCWrite(con, path, eValue);
+    if (argc == 3 && strcmp(path, sct->currentPath) != 0) {
+      free(sct->currentPath);
+      sct->currentPath = strdup(path);
+    }
+    SCWrite(con, sct->currentPath, eValue);
     goto success;
     
   case debug_keyword:
@@ -1339,24 +1079,63 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
     }
     break;
     
+  case list_keyword:
+    if (argc < 3) {
+      str = CreateDynString(60, 63);
+      for (sl = sct->scriptLists.head; sl != NULL; sl = sl->next) {
+        DynStringConcatChar(str, ',');
+        DynStringConcat(str, sl->name);
+      }
+      text = GetCharArray(str);
+      if (text[0] == ',') text++;
+      SCWrite(con, text, eValue);
+      DeleteDynString(str);
+    } else if (strcasecmp(argv[2], "dynscript") == 0) {
+      for (sl = sct->scriptLists.head; sl != NULL; sl = sl->next) {
+        doit = 1;
+        for (sc = sl->chains.head; sc != NULL; sc = sc->next) { /* don't touch the list pos */
+          if (sc->dynamic) {
+            if (doit) {
+              SCPrintf(con, eStatus, "%s", sl->name);
+              doit = 0;
+            }
+            SCPrintf(con, eStatus, "  %s: %s", sc->dynamic, sc->command);
+            if (sc->msg) {
+              SCPrintf(con, eStatus, "ERROR:");
+              SctWriteError(sc->msg, con, sct->maxAge);
+              SCPrintf(con, eStatus, " ");
+            }
+          }
+        }
+      }
+    } else {
+      for (sl = sct->scriptLists.head; sl != NULL; sl = sl->next) {
+        if (strcasecmp(sl->name, argv[2]) == 0 || strcasecmp(argv[2], "all") == 0) {
+          SCPrintf(con, eStatus, "%s", sl->name);
+          for (sc = sl->chains.head; sc != NULL; sc = sc->next) { /* don't touch the list pos */
+            if (sc->dynamic) {
+              SCPrintf(con, eStatus, "  %s: %s", sc->dynamic, sc->command);
+            } else {
+              SCPrintf(con, eStatus, "  %s", sc->command);
+            }
+            if (sc->msg) {
+              SCPrintf(con, eStatus, "ERROR:");
+              SctWriteError(sc->msg, con, sct->maxAge);
+              SCPrintf(con, eStatus, " ");
+            }
+          }
+        }
+      }
+    }
+    goto success;
+    
   case error_keyword:
+    if (argc > 2) {
+      sct->maxAge = atoi(argv[2]);
+    }
     list = AsconGetErrList(sct->ascon);
     for (msg = ErrMsgFirst(list); msg != NULL; msg = msg->next) {
-      age = time(NULL) - msg->last;
-      if (age < 3600) {
-        snprintf(timetext, sizeof timetext, "%2ldm%2.2lds", age/60, age % 60);
-      } else if (age < 99*3600) {
-        age = age / 60;
-        snprintf(timetext, sizeof timetext, "%2ldh%2.2ldm", age/60, age % 60);
-      } else {
-        snprintf(timetext, sizeof timetext, "%5ldh", age/(24*3600));
-      }
-      if (msg->data) {
-        SCPrintf(con, eError, "--- %s ago, cnt %5d %s", timetext, msg->cnt, msg->data);
-      } else {
-        SCPrintf(con, eError, "--- %s ago, cnt %5d", timetext, msg->cnt, msg->data);
-      }
-      SCWrite(con, msg->text, eError);
+      SctWriteError(msg, con, sct->maxAge);
     }
     return 1;
     
@@ -1374,6 +1153,18 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
     sct->debugCommand = ConcatArgs(argc - 2, argv + 2);
     goto success;
     
+
+  case chain_keyword:
+    if (argc < 4) {
+      SCPrintf(con, eError, "ERROR: should be:  %s chain <name> <script>", argv[0]);
+      goto quit;
+    }
+    if (!SctCallDynamicScript(sct, argv[2], ConcatArgs(argc-3, argv+3))) {
+      SCPrintf(con, eError, "ERROR: dynamic script %s not found", argv[2]);
+      goto quit;
+    }
+    goto success;
+    
   case no_keyword:
     SCPrintf(con, eError, "ERROR: %s %s: unknown keyword", argv[0], argv[1]);
     goto quit;
@@ -1386,9 +1177,6 @@ static int SctAction(SConnection *con, SicsInterp *sics, void *object, int argc,
 success:
   sct->operation = sct_no_keyword;
   return 1;
-noMemory:
-  SCWrite(con, "ERROR: no memory", eError);
-  goto quit;
 missingScriptList:
   SCPrintf(con, eError, "ERROR: script list %s not found", argv[2]);
   goto quit;
@@ -1436,6 +1224,8 @@ static int SctInit(SConnection *con, int argc, char *argv[], int dynamic) {
   sct->verbose = 0;
   sct->taskSteps = -1;
   sct->name = strdup(argv[1]);
+  sct->currentPath = strdup("/");
+  sct->maxAge = 600;
   if (!AddCommand(pServ->pSics, argv[1], SctAction, SctKillObj, sct)) {
     SCPrintf(con, eError, "%s already exists", argv[1]);
     SctKill(sct);