/[pspp]/pspp/src/casefile.c
ViewVC logotype

Diff of /pspp/src/casefile.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by jmd, Thu Dec 2 05:52:51 2004 UTC revision 1.8 by blp, Sun Jan 9 07:59:48 2005 UTC
# Line 224  casefile_sleep (const struct casefile *c Line 224  casefile_sleep (const struct casefile *c
224    
225    casefile_mode_reader (cf);    casefile_mode_reader (cf);
226    casefile_to_disk (cf);    casefile_to_disk (cf);
227      flush_buffer (cf);
228    
229    if (cf->fd != -1)    if (cf->fd != -1)
230      {      {
# Line 444  casefile_get_reader (const struct casefi Line 445  casefile_get_reader (const struct casefi
445    cf->mode = READ;    cf->mode = READ;
446    
447    reader = xmalloc (sizeof *reader);    reader = xmalloc (sizeof *reader);
   reader->cf = cf;  
448    reader->next = cf->readers;    reader->next = cf->readers;
449    if (cf->readers != NULL)    if (cf->readers != NULL)
450      reader->next->prev = reader;      reader->next->prev = reader;
   reader->prev = NULL;  
451    cf->readers = reader;    cf->readers = reader;
452      reader->prev = NULL;
453      reader->cf = cf;
454    reader->case_idx = 0;    reader->case_idx = 0;
455      reader->destructive = 0;
456    reader->fd = -1;    reader->fd = -1;
457    reader->buffer = NULL;    reader->buffer = NULL;
458    reader->buffer_pos = 0;    reader->buffer_pos = 0;
# Line 783  cmd_debug_casefile (void) Line 785  cmd_debug_casefile (void)
785    if (token != '.')    if (token != '.')
786      return lex_end_of_command ();      return lex_end_of_command ();
787            
788    for (pattern = 0; pattern < 5; pattern++)    for (pattern = 0; pattern < 6; pattern++)
789      {      {
790        const size_t *size;        const size_t *size;
791    
# Line 811  test_casefile (int pattern, size_t value Line 813  test_casefile (int pattern, size_t value
813    
814    rng = gsl_rng_alloc (gsl_rng_mt19937);    rng = gsl_rng_alloc (gsl_rng_mt19937);
815    cf = casefile_create (value_cnt);    cf = casefile_create (value_cnt);
816      if (pattern == 5)
817        casefile_to_disk (cf);
818    for (i = 0; i < case_cnt; i++)    for (i = 0; i < case_cnt; i++)
819      write_random_case (cf, i);      write_random_case (cf, i);
820      if (pattern == 5)
821        casefile_sleep (cf);
822    r1 = casefile_get_reader (cf);    r1 = casefile_get_reader (cf);
823    r2 = casefile_get_reader (cf);    r2 = casefile_get_reader (cf);
824    switch (pattern)    switch (pattern)
825      {      {
826      case 0:      case 0:
827        case 5:
828        for (i = 0; i < case_cnt; i++)        for (i = 0; i < case_cnt; i++)
829          {          {
830            read_and_verify_random_case (cf, r1, i);            read_and_verify_random_case (cf, r1, i);

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26