Megatest

Changes On Branch v1.81-better sync
Login

Changes In Branch v1.81-better sync Excluding Merge-Ins

This is equivalent to a diff from 98f3441b4f to fab9bf9c5c

2024-08-19
11:42
CI/CD: Automated commit after successful test, build, and deploy for v1.81-fix-extract-scripts check-in: 29155bc147 user: fdiskadm tags: v1.81
2024-08-16
13:34
Patched forward the adjutant code that got lost in v1.65 Leaf check-in: 13060ce126 user: matt tags: v1.81-adjutant
2024-08-13
12:55
removed extra copy of launch:extract-scripts-logpro and corrected it to add .logpro to the logpro filenames check-in: e829926867 user: mmgraham tags: v1.81-fix-extract-scripts
2024-07-17
19:21
Changed Megatest version to v1.8181 check-in: a748f29739 user: icfadm tags: v1.81
19:17
Lower gating on test launch to 0.05 journal load. Add exception handler for file-modification-time on .servinfo files check-in: 7c315bd32d user: mrwellan tags: v1.81-fixes
17:13
Move sync transaction in an attempt to free up bound time in .mtdb/*.db files Leaf check-in: fab9bf9c5c user: mrwellan tags: v1.81-better sync
2024-07-15
15:47
Changed Megatest version to 1.8102 check-in: 98f3441b4f user: icfadm tags: v1.81
15:12
CI/CD: Automated commit after successful test, build, and deploy for v1.81-bump-server-load check-in: 1fff14fbea user: fdiskadm tags: v1.81

Modified dbmod.scm from [7686817692] to [18e9c24629].

407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431




432
433

434
435
436


437
438
439
440
441
442
443
444
445
                (is-trigger-dropped (if has-last-update
                                        (db:is-trigger-dropped db tablename)
					#f)) 
		(stmth  (sqlite3:prepare db full-ins))
                (changed-rows 0))
	   (for-each
	    (lambda (fromdat-lst)
	      (mutex-lock! *db-transaction-mutex*)
	      (sqlite3:with-transaction
	       db
	       (lambda ()
		 (for-each ;; 
		  (lambda (fromrow)
		    (let* ((a    (vector-ref fromrow 0))
			   (curr (hash-table-ref/default todat a #f))
			   (same #t))
		      (let loop ((i 0))
			(if (or (not curr)
				(not (equal? (vector-ref fromrow i)(vector-ref curr i))))
			    (set! same #f))
			(if (and same
				 (< i (- num-fields 1)))
			    (loop (+ i 1))))
		      (if (not same)
			  (begin




			    (apply sqlite3:execute stmth (vector->list fromrow))
			    (hash-table-set! numrecs tablename (+ 1 (hash-table-ref/default numrecs tablename 0)))

			    (set! changed-rows (+ changed-rows 1))))))
		  fromdat-lst)))
	      (mutex-unlock! *db-transaction-mutex*))


	    fromdats)
		       ;; (debug:print 0 *default-log-port* "row="row)
	   
	   (sqlite3:finalize! stmth)
           (if (member "last_update" field-names)
               (db:create-trigger db tablename)))
	 ))
     tbls)
    (let* ((runtime      (- (current-milliseconds) start-time))







<
<
<
<
|













>
>
>
>
|
|
>
|
<
|
>
>

|







407
408
409
410
411
412
413




414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435

436
437
438
439
440
441
442
443
444
445
446
447
                (is-trigger-dropped (if has-last-update
                                        (db:is-trigger-dropped db tablename)
					#f)) 
		(stmth  (sqlite3:prepare db full-ins))
                (changed-rows 0))
	   (for-each
	    (lambda (fromdat-lst)




	      	 (for-each ;; 
		  (lambda (fromrow)
		    (let* ((a    (vector-ref fromrow 0))
			   (curr (hash-table-ref/default todat a #f))
			   (same #t))
		      (let loop ((i 0))
			(if (or (not curr)
				(not (equal? (vector-ref fromrow i)(vector-ref curr i))))
			    (set! same #f))
			(if (and same
				 (< i (- num-fields 1)))
			    (loop (+ i 1))))
		      (if (not same)
			  (begin
			    (mutex-lock! *db-transaction-mutex*)
			    (sqlite3:with-transaction
			     db
			     (lambda ()
			       (apply sqlite3:execute stmth (vector->list fromrow))
			       (hash-table-set! numrecs tablename
						(+ 1 (hash-table-ref/default numrecs tablename 0)))
			       (set! changed-rows (+ changed-rows 1))))

			    (mutex-unlock! *db-transaction-mutex*)
			    ))))
		  fromdat-lst))
	    fromdats)
	   ;; (debug:print 0 *default-log-port* "row="row)
	   
	   (sqlite3:finalize! stmth)
           (if (member "last_update" field-names)
               (db:create-trigger db tablename)))
	 ))
     tbls)
    (let* ((runtime      (- (current-milliseconds) start-time))

Modified matt/buttontest.scm from [4c1acbf3a4] to [7bf96cb14f].

43
44
45
46
47
48
49
50
51
52
53
    (iup:attribute-set! img1 "2" bgcolor) ;; "BGCOLOR")
    (iup:attribute-set! img1 "3" tcolor)
    name))

(iup:show
 (iup:dialog
  (iup:vbox
   (iup:button " " image: (make-image "GreenBlack" "0 255 0" "0 0 0")))))

(iup:main-loop)
)







|



43
44
45
46
47
48
49
50
51
52
53
    (iup:attribute-set! img1 "2" bgcolor) ;; "BGCOLOR")
    (iup:attribute-set! img1 "3" tcolor)
    name))

(iup:show
 (iup:dialog
  (iup:vbox
   (iup:button " " image: (make-image "YellowBlack" "255 255 0" "0 0 0")))))

(iup:main-loop)
)