X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Ftransformations.c;h=f77c24f8b95095a832b416a756ac26fd53a4a13e;hb=84d8b182e81aea6cd7422611888192bcc1ac6980;hp=51fddb197e2fa2fe4642c99b8bc15730f247847e;hpb=5d1348cd3e1f9dbf631ce9f67f2748eaa216dc45;p=pspp-builds.git

diff --git a/src/data/transformations.c b/src/data/transformations.c
index 51fddb19..f77c24f8 100644
--- a/src/data/transformations.c
+++ b/src/data/transformations.c
@@ -1,6 +1,5 @@
 /* PSPP - computes sample statistics.
    Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc.
-   Written by Ben Pfaff <blp@gnu.org>.
 
    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License as
@@ -189,13 +188,13 @@ trns_chain_next (struct trns_chain *chain)
    terminate, or TRNS_CONTINUE if the transformations finished
    due to "falling off the end" of the set of transformations. */
 enum trns_result
-trns_chain_execute (struct trns_chain *chain, struct ccase *c,
-                    const size_t *case_nr) 
+trns_chain_execute (struct trns_chain *chain, enum trns_result start,
+                    struct ccase *c, const size_t *case_nr) 
 {
   size_t i;
 
   assert (chain->finalized);
-  for (i = 0; i < chain->trns_cnt; )
+  for (i = start < 0 ? 0 : start; i < chain->trns_cnt; )
     {
       struct transformation *trns = &chain->trns[i];
       int retval = trns->execute (trns->aux, c, *case_nr);
@@ -203,8 +202,8 @@ trns_chain_execute (struct trns_chain *chain, struct ccase *c,
         i++;
       else if (retval >= 0)
         i = retval + trns->idx_ofs;
-      else
-        return retval; 
+      else 
+        return retval == TRNS_END_CASE ? i + 1 : retval; 
     }
 
   return TRNS_CONTINUE;