Fluent Scheme 脚本收集

 

 

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
;