IUP

Check-in [c2869d0d6d]
Login

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

Overview
Comment:Streamlined sections
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c2869d0d6dacce1f7f0e7713fdb593423aaaf526
User & Date: murphy 2015-05-03 17:45:52.862
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
Unified Diff Ignore Whitespace Patch
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"])])