;; TODO check if the semantics of this are correct! (bind-func sys_file_gets (lambda (file maxlen) (let ((buf:i8* (salloc))) (if (= (apr_file_gets buf maxlen file) APR_SUCCESS) (Str buf) null))))