Megatest

Check-in [24c163e896]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:added usage for typed-records
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | defstruct-srehman
Files: files | file ages | folders
SHA1: 24c163e8960da543198770dd469f8877c007ba0b
User & Date: srehman on 2016-09-14 14:17:21
Other Links: branch diff | manifest | tags
Context
2016-09-15
17:07
fixed var names check-in: 759d0eca16 user: srehman tags: defstruct-srehman
2016-09-14
14:17
added usage for typed-records check-in: 24c163e896 user: srehman tags: defstruct-srehman
13:50
fixed syntax for defstruct declaration check-in: 2abc692fe0 user: srehman tags: defstruct-srehman
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified db_records.scm from [24529c9564] to [d8fe3f2cf4].

︙
61
62
63
64
65
66
67
68
69


70
71
72
73
74
75
76

61
62
63
64
65
66
67


68
69
70
71
72
73
74
75
76








-
-
+
+









(define (dbr:dbstruct-get-localdb v run-id)
  (hash-table-ref/default (dbr:dbstruct-get-locdbs v) run-id #f))

(define (dbr:dbstruct-set-localdb! v run-id db)
  (hash-table-set! (dbr:dbstruct-get-locdbs v) run-id db))


(defstruct db:test ((id -1) : number)
(require-extension typed-records)
(defstruct db:test-rec ((id -1) : number)
					((run_id -1) : number) 
					((testname "") : string)
					((state "") : string)
					((status "") : string)
					((event_time -1) : number)
					((host "") : string)
					((cpuload -1) : number)
︙

This page was generated in about 0.1s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00