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 Side-by-Side 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

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)
	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




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))
 		     (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))))
 		    (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))
 ;; (raise-error)
 ;; (exit)
 )