Overview
Comment:Install used instead of cp for install, cleaned up stmlrun.scm a bit
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a53376324fd9d8385a3fcfac44b04290f473bb2d
User & Date: kiatoaco on 2012-12-13 05:41:41
Other Links: manifest | tags
Context
2013-01-05
20:42
Added debug-mode helper function check-in: 8a162a1405 user: matt tags: trunk
2012-12-13
05:41
Install used instead of cp for install, cleaned up stmlrun.scm a bit check-in: a53376324f user: kiatoaco tags: trunk
04:57
Added initial implementation of catching errors and presenting data to user check-in: 75298ea6c2 user: matt tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified Makefile from [a2245dae90] to [90d147b144].

︙︙
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37


# stmlrun : stmlrun.scm formdat.scm  misc-stml.scm  session.scm stml.scm \
#           setup.scm html-filter.scm requirements.scm keystore.scm \
#           cookie.scm sqltbl.scm
# 	csc stmlrun.scm

$(TARGDIR)/stmlrun : stmlrun 
	cp stmlrun $(TARGDIR)
	chmod a+rx $(TARGDIR)/stmlrun

$(TARGDIR)/modules :
	mkdir -p $(TARGDIR)/modules

$(MODULES) : $(SOFILES) $(TARGDIR)/modules
	cp $< $@








|








23
24
25
26
27
28
29
30
31
32
33
34
35
36
37


# stmlrun : stmlrun.scm formdat.scm  misc-stml.scm  session.scm stml.scm \
#           setup.scm html-filter.scm requirements.scm keystore.scm \
#           cookie.scm sqltbl.scm
# 	csc stmlrun.scm

$(TARGDIR)/stmlrun : stmlrun 
	install stmlrun $(TARGDIR)
	chmod a+rx $(TARGDIR)/stmlrun

$(TARGDIR)/modules :
	mkdir -p $(TARGDIR)/modules

$(MODULES) : $(SOFILES) $(TARGDIR)/modules
	cp $< $@
︙︙

Modified stmlrun.scm from [ba66a834eb] to [941cdf9333].

︙︙
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65


 (declare (uses misc-stml))
 (declare (uses formdat))
 (declare (uses stml))
 (declare (uses session))
 (declare (uses setup)) ;; s:session gets created here
 (declare (uses sqltbl))
 (declare (uses keystore))

 (sdat-set-log-port! s:session ;; (current-error-port))
		     (open-output-file (sdat-get-logfile s:session) #:append))

 ;; (s:log "HTTP_COOKIE" (get-environment-variable "HTTP_COOKIE"))
 ;; (s:log "stdin-dat=" (slot-ref s:session 'stdin-dat))

 (s:validate-inputs)

 (session:run-actions s:session)

 (sdat-set-pagedat! s:session
		    (append (sdat-get-pagedat s:session)
			    (s:call (sdat-get-toppage s:session))))

 (if (eq? (sdat-get-page-type s:session) 'html) ;; default is html. 
     (session:cgi-out s:session)
     (session:alt-out s:session))

 (session:save-vars s:session)

 (session:close s:session)

 (exit))









|

|
<
<
<
<

<

<

|
|
<



<

<

|
|
>

35
36
37
38
39
40
41
42
43
44




45

46

47
48
49

50
51
52

53

54
55
56
57

 (declare (uses misc-stml))
 (declare (uses formdat))
 (declare (uses stml))
 (declare (uses session))
 (declare (uses setup)) ;; s:session gets created here
 (declare (uses sqltbl))
 (declare (uses keystore))
 
 (sdat-set-log-port! s:session ;; (current-error-port))
 		     (open-output-file (sdat-get-logfile s:session) #:append))




 (s:validate-inputs)

 (session:run-actions s:session)

 (sdat-set-pagedat! s:session
 		    (append (sdat-get-pagedat s:session)
 			    (s:call (sdat-get-toppage s:session))))

 (if (eq? (sdat-get-page-type s:session) 'html) ;; default is html. 
     (session:cgi-out s:session)
     (session:alt-out s:session))

 (session:save-vars s:session)

 (session:close s:session)
 ;; (raise-error)
 ;; (exit)
 )