Overview
Comment:Improved message for broken stml
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8f51206e587d5ae3511401fcae96411559cb9670
User & Date: matt on 2012-08-04 18:56:06
Other Links: manifest | tags
Context
2012-08-04
20:55
Basic twiki now working but still buggy check-in: 1a58be0746 user: matt tags: trunk
18:56
Improved message for broken stml check-in: 8f51206e58 user: matt tags: trunk
03:48
Moved back to built in date calc instead of unix calls, test fix (doesn't work) check-in: b0c8348626 user: matt tags: trunk
Changes

Modified stml.scm from [e67e34e067] to [20cb989f12].

33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
         ((symbol? head)
          (let ((new-params (cons (list head (car tail)) params))
                (new-tail  (cdr tail)))
            (if (null? new-tail) ;; we are done, no more params etc.
                (list data new-params)
                (loop data new-params (car new-tail)(cdr new-tail)))))
         (else
          (s:log "WARNING: Malformed input, you have broken stml, probably in a form: head=" head 
	          "\ntail=" tail 
                  "\ninlst=" inlst 
                  "\nparams=" params)
	  (if (null? tail)
	      (list data params)
	      (loop data params (car tail)(cdr tail))))))))

;; most tags can be handled by this routine
(define (s:common-tag tagname args)
  (let* ((inputs (s:extract args))







|
|
|
|







33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
         ((symbol? head)
          (let ((new-params (cons (list head (car tail)) params))
                (new-tail  (cdr tail)))
            (if (null? new-tail) ;; we are done, no more params etc.
                (list data new-params)
                (loop data new-params (car new-tail)(cdr new-tail)))))
         (else
          (s:log "WARNING: Malformed input, you have broken stml, remember that all stml calls should return a result (null list or empty string is ok):\n  head=" head 
	          "\n  tail=" tail 
                  "\n  inlst=" inlst 
                  "\n  params=" params)
	  (if (null? tail)
	      (list data params)
	      (loop data params (car tail)(cdr tail))))))))

;; most tags can be handled by this routine
(define (s:common-tag tagname args)
  (let* ((inputs (s:extract args))