[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Pspp-cvs] Changes to pspp/src/sample.c
From: |
Ben Pfaff |
Subject: |
[Pspp-cvs] Changes to pspp/src/sample.c |
Date: |
Thu, 03 Nov 2005 01:22:04 -0500 |
Index: pspp/src/sample.c
diff -u pspp/src/sample.c:1.12 pspp/src/sample.c:1.13
--- pspp/src/sample.c:1.12 Sun Jul 31 21:42:46 2005
+++ pspp/src/sample.c Thu Nov 3 06:21:46 2005
@@ -45,7 +45,6 @@
/* SAMPLE transformation. */
struct sample_trns
{
- struct trns_header h;
int type; /* One of TYPE_*. */
int n, N; /* TYPE_A_FROM_B: n from N. */
int m, t; /* TYPE_A_FROM_B: # picked so far; # so far. */
@@ -53,6 +52,7 @@
};
static trns_proc_func sample_trns_proc;
+static trns_free_func sample_trns_free;
int
cmd_sample (void)
@@ -104,24 +104,22 @@
lex_get ();
trns = xmalloc (sizeof *trns);
- trns->h.proc = sample_trns_proc;
- trns->h.free = NULL;
trns->type = type;
trns->n = a;
trns->N = b;
trns->m = trns->t = 0;
trns->frac = frac;
- add_transformation ((struct trns_header *) trns);
+ add_transformation (sample_trns_proc, sample_trns_free, trns);
return lex_end_of_command ();
}
/* Executes a SAMPLE transformation. */
static int
-sample_trns_proc (struct trns_header * trns, struct ccase *c UNUSED,
+sample_trns_proc (void *t_, struct ccase *c UNUSED,
int case_num UNUSED)
{
- struct sample_trns *t = (struct sample_trns *) trns;
+ struct sample_trns *t = t_;
double U;
if (t->type == TYPE_FRACTION)
@@ -147,4 +145,11 @@
t->t++;
return -1;
}
+}
+
+static void
+sample_trns_free (void *t_)
+{
+ struct sample_trns *t = t_;
+ free (t);
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Pspp-cvs] Changes to pspp/src/sample.c,
Ben Pfaff <=