Random Bits of Open Code

Check-in [48ce9ce1f4]
Login

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

Overview
Comment:Updated margs to be a chicken 5 compatible egg
Timelines: family | ancestors | descendants | both | margs-chicken-5
Files: files | file ages | folders
SHA1:48ce9ce1f40d46df30a19da6613b63a2c014b32c
User & Date: jmoon18 2019-05-10 21:04:27
Context
2019-05-13
20:34
Initial cut at stacked team charts. Not fully working yet check-in: 490491d199 user: jmoon18 tags: margs-chicken-5
2019-05-10
21:04
Updated margs to be a chicken 5 compatible egg check-in: 48ce9ce1f4 user: jmoon18 tags: margs-chicken-5
2019-05-01
17:20
Added detailed manager level graphs with sub-users, still missing sub-manager summaries check-in: e89d9090b5 user: jmoon18 tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added mtutils/margs/margs.egg.















>
>
>
>
>
>
>
1
2
3
4
5
6
7
((license "LGPL")
 (version 0.1)
 (category misc)
 (dependencies srfi-69 srfi-1)
 (author "Matt Welland")
 (synopsis "Primitive argument processor.")
 (components (extension margs)))

Changes to mtutils/margs/margs.scm.

23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
     usage
     get-args
     print-args
     any-defined?
     help
     )

(import scheme chicken data-structures extras posix ports files)

(use srfi-69 srfi-1)

(define arg-hash (make-hash-table))
(define help "")

(define (get-arg arg . default)
  (if (null? default)
      (hash-table-ref/default arg-hash arg #f)







|
<
<







23
24
25
26
27
28
29
30


31
32
33
34
35
36
37
     usage
     get-args
     print-args
     any-defined?
     help
     )

(import srfi-69 srfi-1 scheme (chicken base) (chicken process-context))



(define arg-hash (make-hash-table))
(define help "")

(define (get-arg arg . default)
  (if (null? default)
      (hash-table-ref/default arg-hash arg #f)