mirror of
https://github.com/edeproject/ede.git
synced 2023-08-10 21:13:03 +03:00
192b61316b
Added scheme_error() for error reporting from C code load-extension exists now, althought it does not do what I want Added timeit-start, timeit-end and timeit-result functions for easier timing Some map, and my map timing for comparison
51 lines
1.2 KiB
Scheme
51 lines
1.2 KiB
Scheme
|
|
(load "../lib/common.ss")
|
|
|
|
;(define l (iota 1000))
|
|
|
|
(define i 0)
|
|
|
|
;(for i in l
|
|
; (print "The number is: " i "\n")
|
|
;)
|
|
|
|
;(while (< i 1000)
|
|
; (print "The number is: " i "\n")
|
|
; (set! i (+ i 1))
|
|
;)
|
|
|
|
;(print "Ret from dbus-send is: "
|
|
; (dbus-send "SomeSignal" "org.equinoxproject.Demo" "/org/equinoxproject/Demo" "session" "foo")
|
|
; "\n")
|
|
|
|
;(define m (dbus-proxy "SomeMethod" "org.equinoxproject.Demo" "/org/equinoxproject/Demo" "session"))
|
|
;(m "foo" "baz" "taz"):
|
|
|
|
(define l (re-split "[ \t_]+" "this_is\tsample string that should be tokenized "))
|
|
(for i in l
|
|
(print i "\n")
|
|
)
|
|
|
|
;(print (first (re-match "-" "some-sample-string" 0)) "\n")
|
|
;
|
|
;(define pos (re-match "http://(.*):" "http://www.google.com:8080"))
|
|
;(print pos "\n")
|
|
;(set! i (first pos))
|
|
;
|
|
;(while [< i (first (rest pos))]
|
|
; (print (string-ref "http://www.google.com:8080" i) "\n")
|
|
; (set! i (+ i 1))
|
|
;)
|
|
;;
|
|
;(set! l (re-split "</" "<a href=\"foo\">foo</a>xxx<a href=\"baz\">baz</a>"))
|
|
;(for i in l
|
|
; (print i "\n")
|
|
;)
|
|
|
|
|
|
;(print (re-replace "-" "@this--is-foo" "<p>") "\n")
|
|
|
|
;(println "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=")
|
|
;(println " Capone System 0.1 ")
|
|
;(println "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=")
|