Removed my authorship lines.
[pspp-builds.git] / src / language / xforms / fail.c
index ebc30e9c950e3215194942055a99be273cbba904..b12585a7ac543d71b83e121747941c4089880c53 100644 (file)
@@ -1,6 +1,5 @@
 /* PSPP - computes sample statistics.
    Copyright (C) 2007 Free Software Foundation, Inc.
-   Written by John Darrington <john@darrington.wattle.id.au>
 
    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License as
@@ -27,7 +26,7 @@
 #include <language/command.h>
 #include <language/lexer/lexer.h>
 
-static int trns_fail (void *x, struct ccase *c, casenum_t n);
+static int trns_fail (void *x, struct ccase *c, casenumber n);
 
 
 \f
@@ -35,17 +34,17 @@ static int trns_fail (void *x, struct ccase *c, casenum_t n);
 
 static int 
 trns_fail (void *x UNUSED, struct ccase *c UNUSED, 
-          casenum_t n UNUSED)
+          casenumber n UNUSED)
 {
   return TRNS_ERROR;
 }
 
 
 int
-cmd_debug_xform_fail (void)
+cmd_debug_xform_fail (struct lexer *lexer, struct dataset *ds)
 {
 
-  add_transformation (current_dataset, trns_fail, NULL, NULL);
+  add_transformation (ds, trns_fail, NULL, NULL);
 
-  return lex_end_of_command ();
+  return lex_end_of_command (lexer);
 }