(bind-func file_size (lambda (fp) (fseek fp 0 SEEK_END) (let ((size (ftell fp))) (fseek fp 0 SEEK_SET) ;; set fp back to beginning size)))