Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Streamlined sections |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c2869d0d6dacce1f7f0e7713fdb59342 |
| User & Date: | murphy 2015-05-03 17:45:52 |
Context
|
2015-05-03
| ||
| 20:06 | Avoid useless shadowing of identifiers in recent file menu code check-in: 2e2a7ad35a user: murphy tags: trunk | |
| 17:45 | Streamlined sections check-in: c2869d0d6d user: murphy tags: trunk | |
| 17:32 | CHICKEN bindings for IUP configuration file support check-in: 46189b0ff5 user: murphy tags: trunk | |
Changes
Changes to chicken/iup-config.scm.
12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
;; {{{ Configuration component
(define config
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupConfig")))
;; }}}
;; {{{ Configuration I/O
(define (config-error location handle status)
(let ([message
(case status
[(-1) "Error opening configuration file"]
[(-2) "Error accessing configuration file"]
[(-3) "Error locating configuration file"]
[else "Error concerning configuration file"])])
|
< < < < |
12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
;; {{{ Configuration component
(define config
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupConfig")))
(define (config-error location handle status)
(let ([message
(case status
[(-1) "Error opening configuration file"]
[(-2) "Error accessing configuration file"]
[(-3) "Error locating configuration file"]
[else "Error concerning configuration file"])])
|