/ Hex Artifact Content
Login

Artifact d94ca4114fd1504f7e0ae724bcd83d4b40931d86:


0000: 2f 2a 0a 2a 2a 20 32 30 30 34 20 4a 61 6e 75 61  /*.** 2004 Janua
0010: 72 79 20 31 33 0a 2a 2a 0a 2a 2a 20 54 68 65 20  ry 13.**.** The 
0020: 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73  author disclaims
0030: 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68   copyright to th
0040: 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20  is source code. 
0050: 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20   In place of.** 
0060: 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20  a legal notice, 
0070: 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 69  here is a blessi
0080: 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79  ng:.**.**    May
0090: 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64   you do good and
00a0: 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20   not evil..**   
00b0: 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f   May you find fo
00c0: 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f  rgiveness for yo
00d0: 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69  urself and forgi
00e0: 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20  ve others..**   
00f0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66   May you share f
0100: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b  reely, never tak
0110: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f  ing more than yo
0120: 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a  u give..**.*****
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c  ****.** This fil
0180: 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61 20 73  e implements a s
0190: 69 6d 70 6c 65 20 73 74 61 6e 64 61 6c 6f 6e 65  imple standalone
01a0: 20 70 72 6f 67 72 61 6d 20 75 73 65 64 20 74 6f   program used to
01b0: 20 74 65 73 74 20 77 68 65 74 68 65 72 0a 2a 2a   test whether.**
01c0: 20 6f 72 20 6e 6f 74 20 74 68 65 20 53 51 4c 69   or not the SQLi
01d0: 74 65 20 6c 69 62 72 61 72 79 20 69 73 20 74 68  te library is th
01e0: 72 65 61 64 73 61 66 65 2e 0a 2a 2a 0a 2a 2a 20  readsafe..**.** 
01f0: 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54  This file is NOT
0200: 20 70 61 72 74 20 6f 66 20 74 68 65 20 73 74 61   part of the sta
0210: 6e 64 61 72 64 20 53 51 4c 69 74 65 20 6c 69 62  ndard SQLite lib
0220: 72 61 72 79 2e 20 20 49 74 20 69 73 20 75 73 65  rary.  It is use
0230: 64 20 66 6f 72 0a 2a 2a 20 74 65 73 74 69 6e 67  d for.** testing
0240: 20 6f 6e 6c 79 2e 0a 2a 2f 0a 23 69 6e 63 6c 75   only..*/.#inclu
0250: 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 6e  de <stdio.h>.#in
0260: 63 6c 75 64 65 20 3c 75 6e 69 73 74 64 2e 68 3e  clude <unistd.h>
0270: 0a 23 69 6e 63 6c 75 64 65 20 3c 70 74 68 72 65  .#include <pthre
0280: 61 64 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  ad.h>.#include <
0290: 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75  string.h>.#inclu
02a0: 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69  de <stdlib.h>.#i
02b0: 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 2e 68  nclude "sqlite.h
02c0: 22 0a 0a 2f 2a 0a 2a 2a 20 4e 61 6d 65 20 6f 66  "../*.** Name of
02d0: 20 74 68 65 20 64 61 74 61 62 61 73 65 0a 2a 2f   the database.*/
02e0: 0a 23 64 65 66 69 6e 65 20 44 42 5f 46 49 4c 45  .#define DB_FILE
02f0: 20 22 74 65 73 74 2e 64 62 22 0a 0a 2f 2a 20 0a   "test.db"../* .
0300: 2a 2a 20 57 68 65 6e 20 74 68 69 73 20 76 61 72  ** When this var
0310: 69 61 62 6c 65 20 62 65 63 6f 6d 65 73 20 6e 6f  iable becomes no
0320: 6e 2d 7a 65 72 6f 2c 20 61 6c 6c 20 74 68 72 65  n-zero, all thre
0330: 61 64 73 20 73 74 6f 70 0a 2a 2a 20 77 68 61 74  ads stop.** what
0340: 20 74 68 65 79 20 61 72 65 20 64 6f 69 6e 67 2e   they are doing.
0350: 0a 2a 2f 0a 76 6f 6c 61 74 69 6c 65 20 69 6e 74  .*/.volatile int
0360: 20 61 6c 6c 5f 73 74 6f 70 20 3d 20 30 3b 0a 0a   all_stop = 0;..
0370: 2f 2a 20 0a 2a 2a 20 43 61 6c 6c 62 61 63 6b 20  /* .** Callback 
0380: 66 72 6f 6d 20 74 68 65 20 69 6e 74 65 67 72 69  from the integri
0390: 74 79 20 63 68 65 63 6b 2e 20 20 49 66 20 74 68  ty check.  If th
03a0: 65 20 72 65 73 75 6c 74 20 69 73 20 61 6e 79 74  e result is anyt
03b0: 68 69 6e 67 20 6f 74 68 65 72 0a 2a 2a 20 74 68  hing other.** th
03c0: 61 6e 20 22 6f 6b 22 20 69 74 20 6d 65 61 6e 73  an "ok" it means
03d0: 20 74 68 65 20 69 6e 74 65 67 72 69 74 79 20 63   the integrity c
03e0: 68 65 63 6b 20 68 61 73 20 66 61 69 6c 65 64 2e  heck has failed.
03f0: 20 20 53 65 74 20 74 68 65 20 22 61 6c 6c 5f 73    Set the "all_s
0400: 74 6f 70 22 0a 2a 2a 20 67 6c 6f 62 61 6c 20 76  top".** global v
0410: 61 72 69 61 62 6c 65 20 74 6f 20 73 74 6f 70 20  ariable to stop 
0420: 61 6c 6c 20 6f 74 68 65 72 20 61 63 74 69 76 69  all other activi
0430: 74 79 2e 20 20 50 72 69 6e 74 20 74 68 65 20 65  ty.  Print the e
0440: 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 2a 2a 20  rror message.** 
0450: 6f 72 20 70 72 69 6e 74 20 4f 4b 20 69 66 20 74  or print OK if t
0460: 68 65 20 73 74 72 69 6e 67 20 22 6f 6b 22 20 69  he string "ok" i
0470: 73 20 73 65 65 6e 2e 0a 2a 2f 0a 69 6e 74 20 63  s seen..*/.int c
0480: 68 65 63 6b 5f 63 61 6c 6c 62 61 63 6b 28 76 6f  heck_callback(vo
0490: 69 64 20 2a 6e 6f 74 55 73 65 64 2c 20 69 6e 74  id *notUsed, int
04a0: 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72   argc, char **ar
04b0: 67 76 2c 20 63 68 61 72 20 2a 2a 6e 6f 74 55 73  gv, char **notUs
04c0: 65 64 32 29 7b 0a 20 20 69 66 28 20 73 74 72 63  ed2){.  if( strc
04d0: 6d 70 28 61 72 67 76 5b 30 5d 2c 22 6f 6b 22 29  mp(argv[0],"ok")
04e0: 20 29 7b 0a 20 20 20 20 61 6c 6c 5f 73 74 6f 70   ){.    all_stop
04f0: 20 3d 20 31 3b 0a 20 20 20 20 66 70 72 69 6e 74   = 1;.    fprint
0500: 66 28 73 74 64 65 72 72 2c 22 70 69 64 3d 25 64  f(stderr,"pid=%d
0510: 2e 20 25 73 5c 6e 22 2c 20 67 65 74 70 69 64 28  . %s\n", getpid(
0520: 29 2c 20 61 72 67 76 5b 30 5d 29 3b 0a 20 20 7d  ), argv[0]);.  }
0530: 65 6c 73 65 7b 0a 20 20 20 20 2f 2a 20 66 70 72  else{.    /* fpr
0540: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 70 69 64  intf(stderr,"pid
0550: 3d 25 64 2e 20 4f 4b 5c 6e 22 2c 20 67 65 74 70  =%d. OK\n", getp
0560: 69 64 28 29 29 3b 20 2a 2f 0a 20 20 7d 0a 20 20  id()); */.  }.  
0570: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a  return 0;.}../*.
0580: 2a 2a 20 44 6f 20 61 6e 20 69 6e 74 65 67 72 69  ** Do an integri
0590: 74 79 20 63 68 65 63 6b 20 6f 6e 20 74 68 65 20  ty check on the 
05a0: 64 61 74 61 62 61 73 65 2e 20 20 49 66 20 74 68  database.  If th
05b0: 65 20 66 69 72 73 74 20 69 6e 74 65 67 72 69 74  e first integrit
05c0: 79 20 63 68 65 63 6b 0a 2a 2a 20 66 61 69 6c 73  y check.** fails
05d0: 2c 20 74 72 79 20 69 74 20 61 20 73 65 63 6f 6e  , try it a secon
05e0: 64 20 74 69 6d 65 2e 0a 2a 2f 0a 69 6e 74 20 69  d time..*/.int i
05f0: 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 28 73  ntegrity_check(s
0600: 71 6c 69 74 65 20 2a 64 62 29 7b 0a 20 20 69 6e  qlite *db){.  in
0610: 74 20 72 63 3b 0a 20 20 69 66 28 20 61 6c 6c 5f  t rc;.  if( all_
0620: 73 74 6f 70 20 29 20 72 65 74 75 72 6e 20 30 3b  stop ) return 0;
0630: 0a 20 20 2f 2a 20 66 70 72 69 6e 74 66 28 73 74  .  /* fprintf(st
0640: 64 65 72 72 2c 22 70 69 64 3d 25 64 3a 20 43 48  derr,"pid=%d: CH
0650: 45 43 4b 5c 6e 22 2c 20 67 65 74 70 69 64 28 29  ECK\n", getpid()
0660: 29 3b 20 2a 2f 0a 20 20 72 63 20 3d 20 73 71 6c  ); */.  rc = sql
0670: 69 74 65 5f 65 78 65 63 28 64 62 2c 20 22 70 72  ite_exec(db, "pr
0680: 61 67 6d 61 20 69 6e 74 65 67 72 69 74 79 5f 63  agma integrity_c
0690: 68 65 63 6b 22 2c 20 63 68 65 63 6b 5f 63 61 6c  heck", check_cal
06a0: 6c 62 61 63 6b 2c 20 30 2c 20 30 29 3b 0a 20 20  lback, 0, 0);.  
06b0: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f  if( rc!=SQLITE_O
06c0: 4b 20 26 26 20 72 63 21 3d 53 51 4c 49 54 45 5f  K && rc!=SQLITE_
06d0: 42 55 53 59 20 29 7b 0a 20 20 20 20 66 70 72 69  BUSY ){.    fpri
06e0: 6e 74 66 28 73 74 64 65 72 72 2c 22 70 69 64 3d  ntf(stderr,"pid=
06f0: 25 64 2c 20 49 6e 74 65 67 72 69 74 79 20 63 68  %d, Integrity ch
0700: 65 63 6b 20 72 65 74 75 72 6e 73 20 25 64 5c 6e  eck returns %d\n
0710: 22 2c 20 67 65 74 70 69 64 28 29 2c 20 72 63 29  ", getpid(), rc)
0720: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 6c 6c 5f  ;.  }.  if( all_
0730: 73 74 6f 70 20 29 7b 0a 20 20 20 20 73 71 6c 69  stop ){.    sqli
0740: 74 65 5f 65 78 65 63 28 64 62 2c 20 22 70 72 61  te_exec(db, "pra
0750: 67 6d 61 20 69 6e 74 65 67 72 69 74 79 5f 63 68  gma integrity_ch
0760: 65 63 6b 22 2c 20 63 68 65 63 6b 5f 63 61 6c 6c  eck", check_call
0770: 62 61 63 6b 2c 20 30 2c 20 30 29 3b 0a 20 20 7d  back, 0, 0);.  }
0780: 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a  .  return 0;.}..
0790: 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 74 68  /*.** This is th
07a0: 65 20 77 6f 72 6b 65 72 20 74 68 72 65 61 64 0a  e worker thread.
07b0: 2a 2f 0a 76 6f 69 64 20 2a 77 6f 72 6b 65 72 28  */.void *worker(
07c0: 76 6f 69 64 20 2a 6e 6f 74 55 73 65 64 29 7b 0a  void *notUsed){.
07d0: 20 20 73 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20    sqlite *db;.  
07e0: 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 63 6e  int rc;.  int cn
07f0: 74 20 3d 20 30 3b 0a 20 20 77 68 69 6c 65 28 20  t = 0;.  while( 
0800: 21 61 6c 6c 5f 73 74 6f 70 20 26 26 20 63 6e 74  !all_stop && cnt
0810: 2b 2b 3c 31 30 30 30 30 20 29 7b 0a 20 20 20 20  ++<10000 ){.    
0820: 69 66 28 20 63 6e 74 25 31 30 30 30 3d 3d 30 20  if( cnt%1000==0 
0830: 29 20 70 72 69 6e 74 66 28 22 70 69 64 3d 25 64  ) printf("pid=%d
0840: 3a 20 25 64 5c 6e 22 2c 20 67 65 74 70 69 64 28  : %d\n", getpid(
0850: 29 2c 20 63 6e 74 29 3b 0a 20 20 20 20 77 68 69  ), cnt);.    whi
0860: 6c 65 28 20 28 64 62 20 3d 20 73 71 6c 69 74 65  le( (db = sqlite
0870: 5f 6f 70 65 6e 28 44 42 5f 46 49 4c 45 2c 20 30  _open(DB_FILE, 0
0880: 2c 20 30 29 29 3d 3d 30 20 29 20 73 63 68 65 64  , 0))==0 ) sched
0890: 5f 79 69 65 6c 64 28 29 3b 0a 20 20 20 20 73 71  _yield();.    sq
08a0: 6c 69 74 65 5f 65 78 65 63 28 64 62 2c 20 22 50  lite_exec(db, "P
08b0: 52 41 47 4d 41 20 73 79 6e 63 68 72 6f 6e 6f 75  RAGMA synchronou
08c0: 73 3d 4f 46 46 22 2c 20 30 2c 20 30 2c 20 30 29  s=OFF", 0, 0, 0)
08d0: 3b 0a 20 20 20 20 69 6e 74 65 67 72 69 74 79 5f  ;.    integrity_
08e0: 63 68 65 63 6b 28 64 62 29 3b 0a 20 20 20 20 69  check(db);.    i
08f0: 66 28 20 61 6c 6c 5f 73 74 6f 70 20 29 7b 20 73  f( all_stop ){ s
0900: 71 6c 69 74 65 5f 63 6c 6f 73 65 28 64 62 29 3b  qlite_close(db);
0910: 20 62 72 65 61 6b 3b 20 7d 0a 20 20 20 20 2f 2a   break; }.    /*
0920: 20 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c   fprintf(stderr,
0930: 20 22 70 69 64 3d 25 64 3a 20 42 45 47 49 4e 5c   "pid=%d: BEGIN\
0940: 6e 22 2c 20 67 65 74 70 69 64 28 29 29 3b 20 2a  n", getpid()); *
0950: 2f 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74  /.    rc = sqlit
0960: 65 5f 65 78 65 63 28 64 62 2c 20 22 49 4e 53 45  e_exec(db, "INSE
0970: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
0980: 53 28 27 62 6f 67 75 73 20 64 61 74 61 27 29 22  S('bogus data')"
0990: 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20  , 0, 0, 0);.    
09a0: 2f 2a 20 66 70 72 69 6e 74 66 28 73 74 64 65 72  /* fprintf(stder
09b0: 72 2c 20 22 70 69 64 3d 25 64 3a 20 45 4e 44 20  r, "pid=%d: END 
09c0: 72 63 3d 25 64 5c 6e 22 2c 20 67 65 74 70 69 64  rc=%d\n", getpid
09d0: 28 29 2c 20 72 63 29 3b 20 2a 2f 0a 20 20 20 20  (), rc); */.    
09e0: 73 71 6c 69 74 65 5f 63 6c 6f 73 65 28 64 62 29  sqlite_close(db)
09f0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30  ;.  }.  return 0
0a00: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69  ;.}../*.** Initi
0a10: 61 6c 69 7a 65 20 74 68 65 20 64 61 74 61 62 61  alize the databa
0a20: 73 65 20 61 6e 64 20 73 74 61 72 74 20 74 68 65  se and start the
0a30: 20 74 68 72 65 61 64 73 0a 2a 2f 0a 69 6e 74 20   threads.*/.int 
0a40: 6d 61 69 6e 28 69 6e 74 20 61 72 67 63 2c 20 63  main(int argc, c
0a50: 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 73  har **argv){.  s
0a60: 71 6c 69 74 65 20 2a 64 62 3b 0a 20 20 69 6e 74  qlite *db;.  int
0a70: 20 69 2c 20 72 63 3b 0a 20 20 70 74 68 72 65 61   i, rc;.  pthrea
0a80: 64 5f 74 20 61 54 68 72 65 61 64 5b 35 5d 3b 0a  d_t aThread[5];.
0a90: 0a 20 20 69 66 28 20 73 74 72 63 6d 70 28 44 42  .  if( strcmp(DB
0aa0: 5f 46 49 4c 45 2c 22 3a 6d 65 6d 6f 72 79 3a 22  _FILE,":memory:"
0ab0: 29 20 29 20 75 6e 6c 69 6e 6b 28 44 42 5f 46 49  ) ) unlink(DB_FI
0ac0: 4c 45 29 3b 0a 20 20 64 62 20 3d 20 73 71 6c 69  LE);.  db = sqli
0ad0: 74 65 5f 6f 70 65 6e 28 44 42 5f 46 49 4c 45 2c  te_open(DB_FILE,
0ae0: 20 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 64 62   0, 0);.  if( db
0af0: 3d 3d 30 20 29 7b 0a 20 20 20 20 66 70 72 69 6e  ==0 ){.    fprin
0b00: 74 66 28 73 74 64 65 72 72 2c 22 75 6e 61 62 6c  tf(stderr,"unabl
0b10: 65 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20  e to initialize 
0b20: 64 61 74 61 62 61 73 65 5c 6e 22 29 3b 0a 20 20  database\n");.  
0b30: 20 20 65 78 69 74 28 31 29 3b 0a 20 20 7d 0a 20    exit(1);.  }. 
0b40: 20 72 63 20 3d 20 73 71 6c 69 74 65 5f 65 78 65   rc = sqlite_exe
0b50: 63 28 64 62 2c 20 22 43 52 45 41 54 45 20 54 41  c(db, "CREATE TA
0b60: 42 4c 45 20 74 31 28 78 29 3b 22 2c 20 30 2c 30  BLE t1(x);", 0,0
0b70: 2c 30 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b  ,0);.  if( rc ){
0b80: 0a 20 20 20 20 66 70 72 69 6e 74 66 28 73 74 64  .    fprintf(std
0b90: 65 72 72 2c 22 63 61 6e 6e 6f 74 20 63 72 65 61  err,"cannot crea
0ba0: 74 65 20 74 61 62 6c 65 20 74 31 3a 20 25 64 5c  te table t1: %d\
0bb0: 6e 22 2c 20 72 63 29 3b 0a 20 20 20 20 65 78 69  n", rc);.    exi
0bc0: 74 28 31 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69  t(1);.  }.  sqli
0bd0: 74 65 5f 63 6c 6f 73 65 28 64 62 29 3b 0a 20 20  te_close(db);.  
0be0: 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f  for(i=0; i<sizeo
0bf0: 66 28 61 54 68 72 65 61 64 29 2f 73 69 7a 65 6f  f(aThread)/sizeo
0c00: 66 28 61 54 68 72 65 61 64 5b 30 5d 29 3b 20 69  f(aThread[0]); i
0c10: 2b 2b 29 7b 0a 20 20 20 20 70 74 68 72 65 61 64  ++){.    pthread
0c20: 5f 63 72 65 61 74 65 28 26 61 54 68 72 65 61 64  _create(&aThread
0c30: 5b 69 5d 2c 20 30 2c 20 77 6f 72 6b 65 72 2c 20  [i], 0, worker, 
0c40: 30 29 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d  0);.  }.  for(i=
0c50: 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 54 68 72  0; i<sizeof(aThr
0c60: 65 61 64 29 2f 73 69 7a 65 6f 66 28 61 54 68 72  ead)/sizeof(aThr
0c70: 65 61 64 5b 69 5d 29 3b 20 69 2b 2b 29 7b 0a 20  ead[i]); i++){. 
0c80: 20 20 20 70 74 68 72 65 61 64 5f 6a 6f 69 6e 28     pthread_join(
0c90: 61 54 68 72 65 61 64 5b 69 5d 2c 20 30 29 3b 0a  aThread[i], 0);.
0ca0: 20 20 7d 0a 20 20 69 66 28 20 21 61 6c 6c 5f 73    }.  if( !all_s
0cb0: 74 6f 70 20 29 7b 0a 20 20 20 20 70 72 69 6e 74  top ){.    print
0cc0: 66 28 22 45 76 65 72 79 74 68 69 6e 67 20 73 65  f("Everything se
0cd0: 65 6d 73 20 6f 6b 2e 5c 6e 22 29 3b 0a 20 20 20  ems ok.\n");.   
0ce0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 65 6c   return 0;.  }el
0cf0: 73 65 7b 0a 20 20 20 20 70 72 69 6e 74 66 28 22  se{.    printf("
0d00: 57 65 20 68 69 74 20 61 6e 20 65 72 72 6f 72 2e  We hit an error.
0d10: 5c 6e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  \n");.    return
0d20: 20 31 3b 0a 20 20 7d 0a 7d 0a                     1;.  }.}.