Ticket #1337: easier.scm

; build with:
; csc test.scm

(use irregex)

(define-external
  (my_callback (c-pointer data)) void
  ; on my machine, it dies at the 2nd attempt
  (print "let's try and crash")
  (work)
  (print "done"))

; just to keep the thing busy, this is what triggers the crash
(define (work)
  (do ([i 0 (+ i 1)]) ((< 150000 i) #t)
    (irregex-search "( |_|-|#|\\.)[0 ]*14[^0-9]" "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")))

(foreign-declare
  "
void call_thing (void (*callback) (void* data)) {
  callback(NULL);
}
  "
  )

(define foo (foreign-safe-lambda void "call_thing" c-pointer))

(foo #$my_callback)
(foo #$my_callback)
(foo #$my_callback)
(foo #$my_callback)