74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
;;======================================================================
;; RECORDS
;;======================================================================
;; make-vector-record "testing" datastore pkg id area version_name store_type copied source_path iteration submitter datetime storegrp datavol quality disk_id comment
;; testing
(define (make-datashare:pkg)(make-vector 15))
(define-inline (datashare:pkg-get-id vec) (vector-ref vec 0))
(define-inline (datashare:pkg-get-area vec) (vector-ref vec 1))
(define-inline (datashare:pkg-get-version_name vec) (vector-ref vec 2))
(define-inline (datashare:pkg-get-store_type vec) (vector-ref vec 3))
(define-inline (datashare:pkg-get-copied vec) (vector-ref vec 4))
(define-inline (datashare:pkg-get-source_path vec) (vector-ref vec 5))
(define-inline (datashare:pkg-get-iteration vec) (vector-ref vec 6))
(define-inline (datashare:pkg-get-submitter vec) (vector-ref vec 7))
(define-inline (datashare:pkg-get-datetime vec) (vector-ref vec 8))
(define-inline (datashare:pkg-get-storegrp vec) (vector-ref vec 9))
(define-inline (datashare:pkg-get-datavol vec) (vector-ref vec 10))
(define-inline (datashare:pkg-get-quality vec) (vector-ref vec 11))
(define-inline (datashare:pkg-get-disk_id vec) (vector-ref vec 12))
(define-inline (datashare:pkg-get-comment vec) (vector-ref vec 13))
(define-inline (datashare:pkg-get-stored_path vec) (vector-ref vec 14))
(define-inline (datashare:pkg-get-id vec) (safe-vector-ref vec 0))
(define-inline (datashare:pkg-get-area vec) (safe-vector-ref vec 1))
(define-inline (datashare:pkg-get-version_name vec) (safe-vector-ref vec 2))
(define-inline (datashare:pkg-get-store_type vec) (safe-vector-ref vec 3))
(define-inline (datashare:pkg-get-copied vec) (safe-vector-ref vec 4))
(define-inline (datashare:pkg-get-source_path vec) (safe-vector-ref vec 5))
(define-inline (datashare:pkg-get-iteration vec) (safe-vector-ref vec 6))
(define-inline (datashare:pkg-get-submitter vec) (safe-vector-ref vec 7))
(define-inline (datashare:pkg-get-datetime vec) (safe-vector-ref vec 8))
(define-inline (datashare:pkg-get-storegrp vec) (safe-vector-ref vec 9))
(define-inline (datashare:pkg-get-datavol vec) (safe-vector-ref vec 10))
(define-inline (datashare:pkg-get-quality vec) (safe-vector-ref vec 11))
(define-inline (datashare:pkg-get-disk_id vec) (safe-vector-ref vec 12))
(define-inline (datashare:pkg-get-comment vec) (safe-vector-ref vec 13))
(define-inline (datashare:pkg-get-stored_path vec) (safe-vector-ref vec 14))
(define-inline (datashare:pkg-set-id! vec val)(vector-set! vec 0 val))
(define-inline (datashare:pkg-set-area! vec val)(vector-set! vec 1 val))
(define-inline (datashare:pkg-set-version_name! vec val)(vector-set! vec 2 val))
(define-inline (datashare:pkg-set-store_type! vec val)(vector-set! vec 3 val))
(define-inline (datashare:pkg-set-copied! vec val)(vector-set! vec 4 val))
(define-inline (datashare:pkg-set-source_path! vec val)(vector-set! vec 5 val))
(define-inline (datashare:pkg-set-iteration! vec val)(vector-set! vec 6 val))
|
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
|
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
|
-
-
-
-
-
-
+
+
+
+
+
+
|
(db (datashare:open-db configdat))
(versions (datashare:get-versions-for-area db (car args) version-patt: (args:get-arg "-vpatt"))))
;; (print "area-name=" area-name " args=" args " *args-hash*=" (hash-table->alist *args-hash*))
(map (lambda (x)
(if (args:get-arg "-full")
(format #t
"~10a~10a~4a~27a~30a\n"
(vector-ref x 0)
(vector-ref x 1)
(vector-ref x 2)
(conc "\"" (time->string (seconds->local-time (vector-ref x 3))) "\"")
(conc "\"" (vector-ref x 4) "\""))
(print (vector-ref x 0))))
(safe-vector-ref x 0)
(safe-vector-ref x 1)
(safe-vector-ref x 2)
(conc "\"" (time->string (seconds->local-time (safe-vector-ref x 3))) "\"")
(conc "\"" (safe-vector-ref x 4) "\""))
(print (safe-vector-ref x 0))))
versions)
(sqlite3:finalize! db)))))
;; ease debugging by loading ~/.dashboardrc - REMOVE FROM PRODUCTION!
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.datasharerc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
|