[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Pspp-cvs] Changes to pspp/src/casefile.c
From: |
Ben Pfaff |
Subject: |
[Pspp-cvs] Changes to pspp/src/casefile.c |
Date: |
Sun, 09 Jan 2005 03:19:43 -0500 |
Index: pspp/src/casefile.c
diff -u pspp/src/casefile.c:1.7 pspp/src/casefile.c:1.8
--- pspp/src/casefile.c:1.7 Thu Dec 2 05:52:51 2004
+++ pspp/src/casefile.c Sun Jan 9 07:59:48 2005
@@ -224,6 +224,7 @@
casefile_mode_reader (cf);
casefile_to_disk (cf);
+ flush_buffer (cf);
if (cf->fd != -1)
{
@@ -444,13 +445,14 @@
cf->mode = READ;
reader = xmalloc (sizeof *reader);
- reader->cf = cf;
reader->next = cf->readers;
if (cf->readers != NULL)
reader->next->prev = reader;
- reader->prev = NULL;
cf->readers = reader;
+ reader->prev = NULL;
+ reader->cf = cf;
reader->case_idx = 0;
+ reader->destructive = 0;
reader->fd = -1;
reader->buffer = NULL;
reader->buffer_pos = 0;
@@ -783,7 +785,7 @@
if (token != '.')
return lex_end_of_command ();
- for (pattern = 0; pattern < 5; pattern++)
+ for (pattern = 0; pattern < 6; pattern++)
{
const size_t *size;
@@ -811,13 +813,18 @@
rng = gsl_rng_alloc (gsl_rng_mt19937);
cf = casefile_create (value_cnt);
+ if (pattern == 5)
+ casefile_to_disk (cf);
for (i = 0; i < case_cnt; i++)
write_random_case (cf, i);
+ if (pattern == 5)
+ casefile_sleep (cf);
r1 = casefile_get_reader (cf);
r2 = casefile_get_reader (cf);
switch (pattern)
{
case 0:
+ case 5:
for (i = 0; i < case_cnt; i++)
{
read_and_verify_random_case (cf, r1, i);
- [Pspp-cvs] Changes to pspp/src/casefile.c,
Ben Pfaff <=