gauche_jsonlib.stub

;;;
;;; gauche_jsonlib.stub
;;;

(declcode
 (.include "gauche_json.h"))

;; Parse STR and return the scheme representation of the JSON
;; expression.
(define-cproc parse-json-string (str::<string>)
  (if (== 0 (SCM_STRING_BODY_LENGTH (SCM_STRING_BODY str)))
    (return SCM_EOF)
    (return (parse_json_string (SCM_OBJ str)))))

;; Local variables:
;; mode: scheme
;; end: