Random Bits of Open Code

Check-in [483da61de7]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Adapted to mtargs from margs
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:483da61de703caeeb2a65f3474898e5bb4672413
User & Date: matt 2019-06-04 04:09:10
Context
2019-08-21
04:29
updates to chicken-build Leaf check-in: 56bb32aaab user: matt tags: trunk
2019-06-13
17:05
merged with trunk Leaf check-in: f204d66423 user: pjhatwal tags: pjhatwal
2019-06-04
04:09
Adapted to mtargs from margs check-in: 483da61de7 user: matt tags: trunk
03:30
Added work week to options.cfg* to avoid accidentally clobbering a good install check-in: 349cb2f495 user: matt tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to chicken-build/common.sh.

395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
    #cd ../dbi 
    #$PREFIX/bin/chicken-install
    # NOTE: Need to skip iuputils unless IUP has been installed
    cd $OPENSRC_WORKSPACE/pkts
    CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL
    cd $OPENSRC_WORKSPACE/mtutils
    # NOTE: Order here is important
    for d in margs  mtconfigf mtcommon mtdb ;do
	(cd $d;CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL)
    done
    if [[ $have_iup == "yes" ]];then
	(cd iup_utils;CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL)
    fi
    cd $OPENSRC_WORKSPACE/histstore
    $PREFIX/bin/csc histstore.scm -o hs 







|







395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
    #cd ../dbi 
    #$PREFIX/bin/chicken-install
    # NOTE: Need to skip iuputils unless IUP has been installed
    cd $OPENSRC_WORKSPACE/pkts
    CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL
    cd $OPENSRC_WORKSPACE/mtutils
    # NOTE: Order here is important
    for d in mtargs  mtconfigf mtcommon mtdb ;do
	(cd $d;CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL)
    done
    if [[ $have_iup == "yes" ]];then
	(cd iup_utils;CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL)
    fi
    cd $OPENSRC_WORKSPACE/histstore
    $PREFIX/bin/csc histstore.scm -o hs 

Changes to histstore/histstore.scm.

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
;;   License GPL.

(use sqlite3 posix srfi-13 srfi-1 regex format)

(import (prefix sqlite3 sqlite3:))

;; (use (prefix margs args:))
(include "../mtutils/margs/margs.scm")
(import (prefix margs args:))

(define getenv get-environment-variable)

(define help 
"Usage: 

SAVE HISTORY IN DB:







|
|







3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
;;   License GPL.

(use sqlite3 posix srfi-13 srfi-1 regex format)

(import (prefix sqlite3 sqlite3:))

;; (use (prefix margs args:))
(include "../mtutils/mtargs/mtargs.scm")
(import (prefix mtargs args:))

(define getenv get-environment-variable)

(define help 
"Usage: 

SAVE HISTORY IN DB:

Changes to mtutils/mtcommon/mtcommon.scm.

76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
	 get-area-path-signature
	 )

(import scheme chicken data-structures extras posix ports files)
(use 
     ;; (prefix sql-de-lite sql:)
      md5 message-digest posix typed-records format srfi-1 srfi-69 pkts regex (prefix dbi dbi:) regex-case matchable)
(use (prefix mtconfigf configf:) srfi-13 (prefix margs args:))

(defstruct ctrldat
  (port      (current-error-port))
  (verbosity 1)
  (vcache    (make-hash-table))
  (logging   #f) ;; keep the flag and the db handle separate to enable overriding
  (logdb     #f) ;; might need to make this a stack of handles for threaded access







|







76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
	 get-area-path-signature
	 )

(import scheme chicken data-structures extras posix ports files)
(use 
     ;; (prefix sql-de-lite sql:)
      md5 message-digest posix typed-records format srfi-1 srfi-69 pkts regex (prefix dbi dbi:) regex-case matchable)
(use (prefix mtconfigf configf:) srfi-13 (prefix mtargs args:))

(defstruct ctrldat
  (port      (current-error-port))
  (verbosity 1)
  (vcache    (make-hash-table))
  (logging   #f) ;; keep the flag and the db handle separate to enable overriding
  (logdb     #f) ;; might need to make this a stack of handles for threaded access