1 添加菜单项 (Text Mode)
(define ti-flab-iterate
(lambda ()
(display "Hello World!")
)
)
(define flowlab-menu
(make-menu
"flowlab"
("iterate" #t ti-flab-iterate "Iterate.")
)
)
(define add-menu
(lambda (name menu test value help)
(ti-menu-insert-item!
menu
(make-menu-item name test value help)
)
#t
)
)
(add-menu "flowlab/" main-menu #t flowlab-menu "")
2 输出当前的迭代次数和参数
(define (export-niters fname parameter)
(let
(
(niter (%iterate 0))
(out-port (open-file fname "w"))
)
(if (not out-port)
(cx-error-dialog "unable to open output file for exporting niters")
)
(format out-port "$~a = ~a~%" parameter niter)
(flush-output-port out-port)
)
)
3 字符串处理
;takes any string as argument 'str', breaks it on the basis of blank-space or
;newline character into multiple strings. These multiple strings are returned
;