Megatest

Changes On Branch v1.6014_fix01
Login

Changes In Branch v1.6014_fix01 Excluding Merge-Ins

This is equivalent to a diff from 50be72f3df to 9e6dfde44c

2015-06-04
22:56
Merged db fix in check-in: e65b212f1d user: matt tags: v1.60
12:35
Removed db fixer Closed-Leaf check-in: 9e6dfde44c user: mrwellan tags: v1.6014_fix01
01:09
Added filtering by field for dumpmode check-in: a3ca55343e user: matt tags: v1.60
2015-06-03
21:57
Changed scary error to the warning it should be, added ability to dump cmdinfo from a value passed in command line, added safety check on access to a testconfig dat in case it wasn't actually read successfully check-in: 50be72f3df user: mrwellan tags: v1.60
00:29
Remove call to release-dot-lock where it is no longer used. Added doc for tracking exception blocks check-in: acce517ea5 user: matt tags: v1.60

Modified db.scm from [165209a3bd] to [8eebff6d98].

529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
     ;; 
     ;;  NOPE: apply this same approach to all db files
     ;;
     (else ;; ((equal? fname "megatest.db") ;; this file can be regenerated if needed
      (handle-exceptions
       exn
       (begin
	 (db:move-and-recreate-db dbdat)
	 (if (> numtries 0)
	     (db:repair-db dbdat numtries: (- numtries 1))
	     #f)
	 (debug:print 0 "FATAL: file " dbpath " was found corrupted, an attempt to fix has been made but you must start over.")
	 (debug:print 0
		      "   check the following:\n"
		      "      1. full directories, look in ~/ /tmp and " dbdir "\n"







|







529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
     ;; 
     ;;  NOPE: apply this same approach to all db files
     ;;
     (else ;; ((equal? fname "megatest.db") ;; this file can be regenerated if needed
      (handle-exceptions
       exn
       (begin
	 ;; (db:move-and-recreate-db dbdat)
	 (if (> numtries 0)
	     (db:repair-db dbdat numtries: (- numtries 1))
	     #f)
	 (debug:print 0 "FATAL: file " dbpath " was found corrupted, an attempt to fix has been made but you must start over.")
	 (debug:print 0
		      "   check the following:\n"
		      "      1. full directories, look in ~/ /tmp and " dbdir "\n"