(module (libfyaml libfyaml.h) * (import scheme (chicken base)) (import (chicken foreign)) (foreign-declare "#include ") (define fy_version_compare (foreign-lambda int "fy_version_compare" c-pointer c-pointer)) (define fy_version_default (foreign-lambda c-pointer "fy_version_default")) (define fy_version_is_supported (foreign-lambda int "fy_version_is_supported" c-pointer)) (define fy_version_supported_iterate (foreign-lambda c-pointer "fy_version_supported_iterate" c-pointer)) (define fy_shutdown (foreign-lambda void "fy_shutdown")) (define FYET_DEBUG (foreign-value "(FYET_DEBUG)" int)) (define FYET_INFO (foreign-value "(FYET_INFO)" int)) (define FYET_NOTICE (foreign-value "(FYET_NOTICE)" int)) (define FYET_WARNING (foreign-value "(FYET_WARNING)" int)) (define FYET_ERROR (foreign-value "(FYET_ERROR)" int)) (define FYET_MAX (foreign-value "(FYET_MAX)" int)) (define FYEM_UNKNOWN (foreign-value "(FYEM_UNKNOWN)" int)) (define FYEM_ATOM (foreign-value "(FYEM_ATOM)" int)) (define FYEM_SCAN (foreign-value "(FYEM_SCAN)" int)) (define FYEM_PARSE (foreign-value "(FYEM_PARSE)" int)) (define FYEM_DOC (foreign-value "(FYEM_DOC)" int)) (define FYEM_BUILD (foreign-value "(FYEM_BUILD)" int)) (define FYEM_INTERNAL (foreign-value "(FYEM_INTERNAL)" int)) (define FYEM_SYSTEM (foreign-value "(FYEM_SYSTEM)" int)) (define FYEM_EMIT (foreign-value "(FYEM_EMIT)" int)) (define FYEM_TYPESET (foreign-value "(FYEM_TYPESET)" int)) (define FYEM_DECODE (foreign-value "(FYEM_DECODE)" int)) (define FYEM_ENCODE (foreign-value "(FYEM_ENCODE)" int)) (define FYEM_REFLECTION (foreign-value "(FYEM_REFLECTION)" int)) (define FYEM_MAX (foreign-value "(FYEM_MAX)" int)) (define FYPCF_QUIET (foreign-value "(FYPCF_QUIET)" int)) (define FYPCF_COLLECT_DIAG (foreign-value "(FYPCF_COLLECT_DIAG)" int)) (define FYPCF_RESOLVE_DOCUMENT (foreign-value "(FYPCF_RESOLVE_DOCUMENT)" int)) (define FYPCF_DISABLE_MMAP_OPT (foreign-value "(FYPCF_DISABLE_MMAP_OPT)" int)) (define FYPCF_DISABLE_RECYCLING (foreign-value "(FYPCF_DISABLE_RECYCLING)" int)) (define FYPCF_KEEP_COMMENTS (foreign-value "(FYPCF_KEEP_COMMENTS)" int)) (define FYPCF_DISABLE_DEPTH_LIMIT (foreign-value "(FYPCF_DISABLE_DEPTH_LIMIT)" int)) (define FYPCF_DISABLE_ACCELERATORS (foreign-value "(FYPCF_DISABLE_ACCELERATORS)" int)) (define FYPCF_DISABLE_BUFFERING (foreign-value "(FYPCF_DISABLE_BUFFERING)" int)) (define FYPCF_DEFAULT_VERSION_AUTO (foreign-value "(FYPCF_DEFAULT_VERSION_AUTO)" int)) (define FYPCF_DEFAULT_VERSION_1_1 (foreign-value "(FYPCF_DEFAULT_VERSION_1_1)" int)) (define FYPCF_DEFAULT_VERSION_1_2 (foreign-value "(FYPCF_DEFAULT_VERSION_1_2)" int)) (define FYPCF_DEFAULT_VERSION_1_3 (foreign-value "(FYPCF_DEFAULT_VERSION_1_3)" int)) (define FYPCF_SLOPPY_FLOW_INDENTATION (foreign-value "(FYPCF_SLOPPY_FLOW_INDENTATION)" int)) (define FYPCF_PREFER_RECURSIVE (foreign-value "(FYPCF_PREFER_RECURSIVE)" int)) (define FYPCF_JSON_AUTO (foreign-value "(FYPCF_JSON_AUTO)" int)) (define FYPCF_JSON_NONE (foreign-value "(FYPCF_JSON_NONE)" int)) (define FYPCF_JSON_FORCE (foreign-value "(FYPCF_JSON_FORCE)" int)) (define FYPCF_YPATH_ALIASES (foreign-value "(FYPCF_YPATH_ALIASES)" int)) (define FYPCF_ALLOW_DUPLICATE_KEYS (foreign-value "(FYPCF_ALLOW_DUPLICATE_KEYS)" int)) (define FYPCF_CREATE_MARKERS (foreign-value "(FYPCF_CREATE_MARKERS)" int)) (define FYPCF_KEEP_STYLE (foreign-value "(FYPCF_KEEP_STYLE)" int)) (define FYPCF_RELAXED_FLOW_DOC (foreign-value "(FYPCF_RELAXED_FLOW_DOC)" int)) (define FYET_NONE (foreign-value "(FYET_NONE)" int)) (define FYET_STREAM_START (foreign-value "(FYET_STREAM_START)" int)) (define FYET_STREAM_END (foreign-value "(FYET_STREAM_END)" int)) (define FYET_DOCUMENT_START (foreign-value "(FYET_DOCUMENT_START)" int)) (define FYET_DOCUMENT_END (foreign-value "(FYET_DOCUMENT_END)" int)) (define FYET_MAPPING_START (foreign-value "(FYET_MAPPING_START)" int)) (define FYET_MAPPING_END (foreign-value "(FYET_MAPPING_END)" int)) (define FYET_SEQUENCE_START (foreign-value "(FYET_SEQUENCE_START)" int)) (define FYET_SEQUENCE_END (foreign-value "(FYET_SEQUENCE_END)" int)) (define FYET_SCALAR (foreign-value "(FYET_SCALAR)" int)) (define FYET_ALIAS (foreign-value "(FYET_ALIAS)" int)) (define fy_event_type_get_text (foreign-lambda c-string "fy_event_type_get_text" int)) (define FYCS_ANY (foreign-value "(FYCS_ANY)" int)) (define FYCS_BLOCK (foreign-value "(FYCS_BLOCK)" int)) (define FYCS_FLOW (foreign-value "(FYCS_FLOW)" int)) (define FYCS_MAX (foreign-value "(FYCS_MAX)" int)) (define FYSS_ANY (foreign-value "(FYSS_ANY)" int)) (define FYSS_PLAIN (foreign-value "(FYSS_PLAIN)" int)) (define FYSS_SINGLE_QUOTED (foreign-value "(FYSS_SINGLE_QUOTED)" int)) (define FYSS_DOUBLE_QUOTED (foreign-value "(FYSS_DOUBLE_QUOTED)" int)) (define FYSS_LITERAL (foreign-value "(FYSS_LITERAL)" int)) (define FYSS_FOLDED (foreign-value "(FYSS_FOLDED)" int)) (define FYSS_MAX (foreign-value "(FYSS_MAX)" int)) (define FYEP_VALUE (foreign-value "(FYEP_VALUE)" int)) (define FYEP_TAG (foreign-value "(FYEP_TAG)" int)) (define FYEP_ANCHOR (foreign-value "(FYEP_ANCHOR)" int)) (define fy_event_get_type (foreign-lambda int "fy_event_get_type" c-pointer)) (define fy_event_data (foreign-lambda c-pointer "fy_event_data" c-pointer)) (define fy_library_version (foreign-lambda c-string "fy_library_version")) (define fy_string_to_error_type (foreign-lambda int "fy_string_to_error_type" c-string)) (define fy_error_type_to_string (foreign-lambda c-string "fy_error_type_to_string" int)) (define fy_string_to_error_module (foreign-lambda int "fy_string_to_error_module" c-string)) (define fy_error_module_to_string (foreign-lambda c-string "fy_error_module_to_string" int)) (define fy_event_is_implicit (foreign-lambda int "fy_event_is_implicit" c-pointer)) (define fy_document_event_is_implicit (foreign-lambda int "fy_document_event_is_implicit" c-pointer)) (define fy_parser_create (foreign-lambda c-pointer "fy_parser_create" c-pointer)) (define fy_parser_destroy (foreign-lambda void "fy_parser_destroy" c-pointer)) (define fy_parser_get_cfg (foreign-lambda c-pointer "fy_parser_get_cfg" c-pointer)) (define fy_parser_get_diag (foreign-lambda c-pointer "fy_parser_get_diag" c-pointer)) (define fy_parser_set_diag (foreign-lambda int "fy_parser_set_diag" c-pointer c-pointer)) (define fy_parser_reset (foreign-lambda int "fy_parser_reset" c-pointer)) (define fy_parser_set_input_file (foreign-lambda int "fy_parser_set_input_file" c-pointer c-string)) (define fy_parser_set_string (foreign-lambda int "fy_parser_set_string" c-pointer c-string size_t)) (define fy_parser_set_malloc_string (foreign-lambda int "fy_parser_set_malloc_string" c-pointer c-string size_t)) (define fy_parser_set_input_fp (foreign-lambda int "fy_parser_set_input_fp" c-pointer c-string c-pointer)) (define fy_parser_set_input_callback (foreign-lambda int "fy_parser_set_input_callback" c-pointer c-pointer c-pointer)) (define fy_parser_set_input_fd (foreign-lambda int "fy_parser_set_input_fd" c-pointer int)) (define fy_parser_parse (foreign-lambda c-pointer "fy_parser_parse" c-pointer)) (define fy_parser_parse_peek (foreign-lambda c-pointer "fy_parser_parse_peek" c-pointer)) (define fy_parser_skip (foreign-lambda int "fy_parser_skip" c-pointer)) (define fy_parser_count_sequence_items (foreign-lambda int "fy_parser_count_sequence_items" c-pointer)) (define fy_parser_count_mapping_items (foreign-lambda int "fy_parser_count_mapping_items" c-pointer)) (define fy_parser_event_free (foreign-lambda void "fy_parser_event_free" c-pointer c-pointer)) (define fy_parser_get_stream_error (foreign-lambda int "fy_parser_get_stream_error" c-pointer)) (define fypm_invalid (foreign-value "(fypm_invalid)" int)) (define fypm_none (foreign-value "(fypm_none)" int)) (define fypm_yaml_1_1 (foreign-value "(fypm_yaml_1_1)" int)) (define fypm_yaml_1_2 (foreign-value "(fypm_yaml_1_2)" int)) (define fypm_yaml_1_3 (foreign-value "(fypm_yaml_1_3)" int)) (define fypm_json (foreign-value "(fypm_json)" int)) (define fy_parser_mode_is_yaml (foreign-lambda int "fy_parser_mode_is_yaml" int)) (define fy_parser_get_mode (foreign-lambda int "fy_parser_get_mode" c-pointer)) (define fy_parser_is_in_yaml_mode (foreign-lambda int "fy_parser_is_in_yaml_mode" c-pointer)) (define fy_parser_is_in_json_mode (foreign-lambda int "fy_parser_is_in_json_mode" c-pointer)) (define fy_parser_vlog (foreign-lambda void "fy_parser_vlog" c-pointer int c-string c-pointer)) (define fy_parser_log (foreign-lambda void "fy_parser_log" c-pointer int c-string)) (define fy_parser_vreport (foreign-lambda void "fy_parser_vreport" c-pointer int c-pointer c-string c-pointer)) (define fy_parser_report (foreign-lambda void "fy_parser_report" c-pointer int c-pointer c-string)) (define fy_token_scalar_style (foreign-lambda int "fy_token_scalar_style" c-pointer)) (define fy_token_collection_style (foreign-lambda int "fy_token_collection_style" c-pointer)) (define fy_token_scalar_is_null (foreign-lambda int "fy_token_scalar_is_null" c-pointer)) (define fy_token_get_text (foreign-lambda c-string "fy_token_get_text" c-pointer c-pointer)) (define fy_token_get_text0 (foreign-lambda c-string "fy_token_get_text0" c-pointer)) (define fy_token_get_text_length (foreign-lambda size_t "fy_token_get_text_length" c-pointer)) (define fycp_top (foreign-value "(fycp_top)" int)) (define fycp_right (foreign-value "(fycp_right)" int)) (define fycp_bottom (foreign-value "(fycp_bottom)" int)) (define fy_token_get_comment (foreign-lambda c-string "fy_token_get_comment" c-pointer int)) (define fy_token_get_comments (foreign-lambda c-string "fy_token_get_comments" c-pointer)) (define fy_token_set_comment (foreign-lambda int "fy_token_set_comment" c-pointer int c-string size_t)) (define fy_event_get_comments (foreign-lambda c-string "fy_event_get_comments" c-pointer)) (define fy_node_get_comment (foreign-lambda c-string "fy_node_get_comment" c-pointer int)) (define fy_node_get_comments (foreign-lambda c-string "fy_node_get_comments" c-pointer)) (define fy_token_iter_create (foreign-lambda c-pointer "fy_token_iter_create" c-pointer)) (define fy_token_iter_destroy (foreign-lambda void "fy_token_iter_destroy" c-pointer)) (define fy_token_iter_start (foreign-lambda void "fy_token_iter_start" c-pointer c-pointer)) (define fy_token_iter_finish (foreign-lambda void "fy_token_iter_finish" c-pointer)) (define fy_token_iter_peek_chunk (foreign-lambda c-pointer "fy_token_iter_peek_chunk" c-pointer)) (define fy_token_iter_chunk_next (foreign-lambda c-pointer "fy_token_iter_chunk_next" c-pointer c-pointer c-pointer)) (define fy_token_iter_advance (foreign-lambda void "fy_token_iter_advance" c-pointer size_t)) (define fy_token_iter_read (foreign-lambda size_t "fy_token_iter_read" c-pointer c-pointer size_t)) (define fy_token_iter_getc (foreign-lambda int "fy_token_iter_getc" c-pointer)) (define fy_token_iter_ungetc (foreign-lambda int "fy_token_iter_ungetc" c-pointer int)) (define fy_token_iter_peekc (foreign-lambda int "fy_token_iter_peekc" c-pointer)) (define fy_token_iter_utf8_get (foreign-lambda int "fy_token_iter_utf8_get" c-pointer)) (define fy_token_iter_utf8_unget (foreign-lambda int "fy_token_iter_utf8_unget" c-pointer int)) (define fy_token_iter_utf8_peek (foreign-lambda int "fy_token_iter_utf8_peek" c-pointer)) (define fy_parse_load_document (foreign-lambda c-pointer "fy_parse_load_document" c-pointer)) (define fy_parse_document_destroy (foreign-lambda void "fy_parse_document_destroy" c-pointer c-pointer)) (define fy_document_resolve (foreign-lambda int "fy_document_resolve" c-pointer)) (define fy_document_has_directives (foreign-lambda int "fy_document_has_directives" c-pointer)) (define fy_document_has_explicit_document_start (foreign-lambda int "fy_document_has_explicit_document_start" c-pointer)) (define fy_document_has_explicit_document_end (foreign-lambda int "fy_document_has_explicit_document_end" c-pointer)) (define fy_node_document (foreign-lambda c-pointer "fy_node_document" c-pointer)) (define fyewt_document_indicator (foreign-value "(fyewt_document_indicator)" int)) (define fyewt_tag_directive (foreign-value "(fyewt_tag_directive)" int)) (define fyewt_version_directive (foreign-value "(fyewt_version_directive)" int)) (define fyewt_indent (foreign-value "(fyewt_indent)" int)) (define fyewt_indicator (foreign-value "(fyewt_indicator)" int)) (define fyewt_whitespace (foreign-value "(fyewt_whitespace)" int)) (define fyewt_plain_scalar (foreign-value "(fyewt_plain_scalar)" int)) (define fyewt_single_quoted_scalar (foreign-value "(fyewt_single_quoted_scalar)" int)) (define fyewt_double_quoted_scalar (foreign-value "(fyewt_double_quoted_scalar)" int)) (define fyewt_literal_scalar (foreign-value "(fyewt_literal_scalar)" int)) (define fyewt_folded_scalar (foreign-value "(fyewt_folded_scalar)" int)) (define fyewt_anchor (foreign-value "(fyewt_anchor)" int)) (define fyewt_tag (foreign-value "(fyewt_tag)" int)) (define fyewt_linebreak (foreign-value "(fyewt_linebreak)" int)) (define fyewt_alias (foreign-value "(fyewt_alias)" int)) (define fyewt_terminating_zero (foreign-value "(fyewt_terminating_zero)" int)) (define fyewt_plain_scalar_key (foreign-value "(fyewt_plain_scalar_key)" int)) (define fyewt_single_quoted_scalar_key (foreign-value "(fyewt_single_quoted_scalar_key)" int)) (define fyewt_double_quoted_scalar_key (foreign-value "(fyewt_double_quoted_scalar_key)" int)) (define fyewt_comment (foreign-value "(fyewt_comment)" int)) (define fyewt_indicator_question_mark (foreign-value "(fyewt_indicator_question_mark)" int)) (define fyewt_indicator_colon (foreign-value "(fyewt_indicator_colon)" int)) (define fyewt_indicator_dash (foreign-value "(fyewt_indicator_dash)" int)) (define fyewt_indicator_left_bracket (foreign-value "(fyewt_indicator_left_bracket)" int)) (define fyewt_indicator_right_bracket (foreign-value "(fyewt_indicator_right_bracket)" int)) (define fyewt_indicator_left_brace (foreign-value "(fyewt_indicator_left_brace)" int)) (define fyewt_indicator_right_brace (foreign-value "(fyewt_indicator_right_brace)" int)) (define fyewt_indicator_comma (foreign-value "(fyewt_indicator_comma)" int)) (define fyewt_indicator_bar (foreign-value "(fyewt_indicator_bar)" int)) (define fyewt_indicator_greater (foreign-value "(fyewt_indicator_greater)" int)) (define fyewt_indicator_single_quote_start (foreign-value "(fyewt_indicator_single_quote_start)" int)) (define fyewt_indicator_single_quote_end (foreign-value "(fyewt_indicator_single_quote_end)" int)) (define fyewt_indicator_double_quote_start (foreign-value "(fyewt_indicator_double_quote_start)" int)) (define fyewt_indicator_double_quote_end (foreign-value "(fyewt_indicator_double_quote_end)" int)) (define fyewt_indicator_ambersand (foreign-value "(fyewt_indicator_ambersand)" int)) (define fyewt_indicator_star (foreign-value "(fyewt_indicator_star)" int)) (define fyewt_indicator_chomp (foreign-value "(fyewt_indicator_chomp)" int)) (define fyewt_indicator_explicit_indent (foreign-value "(fyewt_indicator_explicit_indent)" int)) (define FYECF_SORT_KEYS (foreign-value "(FYECF_SORT_KEYS)" int)) (define FYECF_OUTPUT_COMMENTS (foreign-value "(FYECF_OUTPUT_COMMENTS)" int)) (define FYECF_STRIP_LABELS (foreign-value "(FYECF_STRIP_LABELS)" int)) (define FYECF_STRIP_TAGS (foreign-value "(FYECF_STRIP_TAGS)" int)) (define FYECF_STRIP_DOC (foreign-value "(FYECF_STRIP_DOC)" int)) (define FYECF_NO_ENDING_NEWLINE (foreign-value "(FYECF_NO_ENDING_NEWLINE)" int)) (define FYECF_STRIP_EMPTY_KV (foreign-value "(FYECF_STRIP_EMPTY_KV)" int)) (define FYECF_EXTENDED_CFG (foreign-value "(FYECF_EXTENDED_CFG)" int)) (define FYECF_INDENT_DEFAULT (foreign-value "(FYECF_INDENT_DEFAULT)" int)) (define FYECF_INDENT_1 (foreign-value "(FYECF_INDENT_1)" int)) (define FYECF_INDENT_2 (foreign-value "(FYECF_INDENT_2)" int)) (define FYECF_INDENT_3 (foreign-value "(FYECF_INDENT_3)" int)) (define FYECF_INDENT_4 (foreign-value "(FYECF_INDENT_4)" int)) (define FYECF_INDENT_5 (foreign-value "(FYECF_INDENT_5)" int)) (define FYECF_INDENT_6 (foreign-value "(FYECF_INDENT_6)" int)) (define FYECF_INDENT_7 (foreign-value "(FYECF_INDENT_7)" int)) (define FYECF_INDENT_8 (foreign-value "(FYECF_INDENT_8)" int)) (define FYECF_INDENT_9 (foreign-value "(FYECF_INDENT_9)" int)) (define FYECF_WIDTH_DEFAULT (foreign-value "(FYECF_WIDTH_DEFAULT)" int)) (define FYECF_WIDTH_80 (foreign-value "(FYECF_WIDTH_80)" int)) (define FYECF_WIDTH_132 (foreign-value "(FYECF_WIDTH_132)" int)) (define FYECF_WIDTH_INF (foreign-value "(FYECF_WIDTH_INF)" int)) (define FYECF_MODE_ORIGINAL (foreign-value "(FYECF_MODE_ORIGINAL)" int)) (define FYECF_MODE_BLOCK (foreign-value "(FYECF_MODE_BLOCK)" int)) (define FYECF_MODE_FLOW (foreign-value "(FYECF_MODE_FLOW)" int)) (define FYECF_MODE_FLOW_ONELINE (foreign-value "(FYECF_MODE_FLOW_ONELINE)" int)) (define FYECF_MODE_JSON (foreign-value "(FYECF_MODE_JSON)" int)) (define FYECF_MODE_JSON_TP (foreign-value "(FYECF_MODE_JSON_TP)" int)) (define FYECF_MODE_JSON_ONELINE (foreign-value "(FYECF_MODE_JSON_ONELINE)" int)) (define FYECF_MODE_DEJSON (foreign-value "(FYECF_MODE_DEJSON)" int)) (define FYECF_MODE_PRETTY (foreign-value "(FYECF_MODE_PRETTY)" int)) (define FYECF_MODE_MANUAL (foreign-value "(FYECF_MODE_MANUAL)" int)) (define FYECF_MODE_FLOW_COMPACT (foreign-value "(FYECF_MODE_FLOW_COMPACT)" int)) (define FYECF_MODE_JSON_COMPACT (foreign-value "(FYECF_MODE_JSON_COMPACT)" int)) (define FYECF_DOC_START_MARK_AUTO (foreign-value "(FYECF_DOC_START_MARK_AUTO)" int)) (define FYECF_DOC_START_MARK_OFF (foreign-value "(FYECF_DOC_START_MARK_OFF)" int)) (define FYECF_DOC_START_MARK_ON (foreign-value "(FYECF_DOC_START_MARK_ON)" int)) (define FYECF_DOC_END_MARK_AUTO (foreign-value "(FYECF_DOC_END_MARK_AUTO)" int)) (define FYECF_DOC_END_MARK_OFF (foreign-value "(FYECF_DOC_END_MARK_OFF)" int)) (define FYECF_DOC_END_MARK_ON (foreign-value "(FYECF_DOC_END_MARK_ON)" int)) (define FYECF_VERSION_DIR_AUTO (foreign-value "(FYECF_VERSION_DIR_AUTO)" int)) (define FYECF_VERSION_DIR_OFF (foreign-value "(FYECF_VERSION_DIR_OFF)" int)) (define FYECF_VERSION_DIR_ON (foreign-value "(FYECF_VERSION_DIR_ON)" int)) (define FYECF_TAG_DIR_AUTO (foreign-value "(FYECF_TAG_DIR_AUTO)" int)) (define FYECF_TAG_DIR_OFF (foreign-value "(FYECF_TAG_DIR_OFF)" int)) (define FYECF_TAG_DIR_ON (foreign-value "(FYECF_TAG_DIR_ON)" int)) (define FYECF_DEFAULT (foreign-value "(FYECF_DEFAULT)" int)) (define FYEXCF_COLOR_AUTO (foreign-value "(FYEXCF_COLOR_AUTO)" int)) (define FYEXCF_COLOR_NONE (foreign-value "(FYEXCF_COLOR_NONE)" int)) (define FYEXCF_COLOR_FORCE (foreign-value "(FYEXCF_COLOR_FORCE)" int)) (define FYEXCF_OUTPUT_STDOUT (foreign-value "(FYEXCF_OUTPUT_STDOUT)" int)) (define FYEXCF_OUTPUT_STDERR (foreign-value "(FYEXCF_OUTPUT_STDERR)" int)) (define FYEXCF_OUTPUT_FILE (foreign-value "(FYEXCF_OUTPUT_FILE)" int)) (define FYEXCF_OUTPUT_FD (foreign-value "(FYEXCF_OUTPUT_FD)" int)) (define FYEXCF_NULL_OUTPUT (foreign-value "(FYEXCF_NULL_OUTPUT)" int)) (define FYEXCF_OUTPUT_FILENAME (foreign-value "(FYEXCF_OUTPUT_FILENAME)" int)) (define FYEXCF_VISIBLE_WS (foreign-value "(FYEXCF_VISIBLE_WS)" int)) (define FYEXCF_EXTENDED_INDICATORS (foreign-value "(FYEXCF_EXTENDED_INDICATORS)" int)) (define FYEXCF_INDENTED_SEQ_IN_MAP (foreign-value "(FYEXCF_INDENTED_SEQ_IN_MAP)" int)) (define FYEXCF_PRESERVE_FLOW_LAYOUT (foreign-value "(FYEXCF_PRESERVE_FLOW_LAYOUT)" int)) (define fy_emitter_create (foreign-lambda c-pointer "fy_emitter_create" c-pointer)) (define fy_emitter_destroy (foreign-lambda void "fy_emitter_destroy" c-pointer)) (define fy_emitter_get_cfg (foreign-lambda c-pointer "fy_emitter_get_cfg" c-pointer)) (define fy_emitter_get_diag (foreign-lambda c-pointer "fy_emitter_get_diag" c-pointer)) (define fy_emitter_set_diag (foreign-lambda int "fy_emitter_set_diag" c-pointer c-pointer)) (define fy_emitter_set_finalizer (foreign-lambda void "fy_emitter_set_finalizer" c-pointer c-pointer)) (define fy_emitter_default_output (foreign-lambda int "fy_emitter_default_output" c-pointer int c-string int c-pointer)) (define fy_document_default_emit_to_fp (foreign-lambda int "fy_document_default_emit_to_fp" c-pointer c-pointer)) (define fy_emit_event (foreign-lambda int "fy_emit_event" c-pointer c-pointer)) (define fy_emit_vevent (foreign-lambda int "fy_emit_vevent" c-pointer int c-pointer)) (define fy_emit_eventf (foreign-lambda int "fy_emit_eventf" c-pointer int)) (define fy_emit_scalar_write (foreign-lambda int "fy_emit_scalar_write" c-pointer int c-string c-string c-string size_t)) (define fy_emit_scalar_vprintf (foreign-lambda int "fy_emit_scalar_vprintf" c-pointer int c-string c-string c-string c-pointer)) (define fy_emit_scalar_printf (foreign-lambda int "fy_emit_scalar_printf" c-pointer int c-string c-string c-string)) (define fy_emit_event_from_parser (foreign-lambda int "fy_emit_event_from_parser" c-pointer c-pointer c-pointer)) (define fy_emit_document (foreign-lambda int "fy_emit_document" c-pointer c-pointer)) (define fy_emit_document_start (foreign-lambda int "fy_emit_document_start" c-pointer c-pointer c-pointer)) (define fy_emit_document_end (foreign-lambda int "fy_emit_document_end" c-pointer)) (define fy_emit_node (foreign-lambda int "fy_emit_node" c-pointer c-pointer)) (define fy_emit_root_node (foreign-lambda int "fy_emit_root_node" c-pointer c-pointer)) (define fy_emit_body_node (foreign-lambda int "fy_emit_body_node" c-pointer c-pointer)) (define fy_emit_explicit_document_end (foreign-lambda int "fy_emit_explicit_document_end" c-pointer)) (define fy_emit_document_to_fp (foreign-lambda int "fy_emit_document_to_fp" c-pointer int c-pointer)) (define fy_emit_document_to_file (foreign-lambda int "fy_emit_document_to_file" c-pointer int c-string)) (define fy_emit_document_to_fd (foreign-lambda int "fy_emit_document_to_fd" c-pointer int int)) (define fy_emit_document_to_buffer (foreign-lambda int "fy_emit_document_to_buffer" c-pointer int c-string size_t)) (define fy_emit_document_to_string (foreign-lambda c-string "fy_emit_document_to_string" c-pointer int)) (define fy_emit_node_to_buffer (foreign-lambda int "fy_emit_node_to_buffer" c-pointer int c-string size_t)) (define fy_emit_node_to_string (foreign-lambda c-string "fy_emit_node_to_string" c-pointer int)) (define fy_emit_to_buffer (foreign-lambda c-pointer "fy_emit_to_buffer" int c-string size_t)) (define fy_emit_to_buffer_collect (foreign-lambda c-string "fy_emit_to_buffer_collect" c-pointer c-pointer)) (define fy_emit_to_string (foreign-lambda c-pointer "fy_emit_to_string" int)) (define fy_emit_to_string_collect (foreign-lambda c-string "fy_emit_to_string_collect" c-pointer c-pointer)) (define fy_node_copy (foreign-lambda c-pointer "fy_node_copy" c-pointer c-pointer)) (define fy_document_clone (foreign-lambda c-pointer "fy_document_clone" c-pointer)) (define fy_node_insert (foreign-lambda int "fy_node_insert" c-pointer c-pointer)) (define fy_node_delete (foreign-lambda int "fy_node_delete" c-pointer)) (define fy_document_insert_at (foreign-lambda int "fy_document_insert_at" c-pointer c-string size_t c-pointer)) (define FYNT_SCALAR (foreign-value "(FYNT_SCALAR)" int)) (define FYNT_SEQUENCE (foreign-value "(FYNT_SEQUENCE)" int)) (define FYNT_MAPPING (foreign-value "(FYNT_MAPPING)" int)) (define FYNS_ANY (foreign-value "(FYNS_ANY)" int)) (define FYNS_FLOW (foreign-value "(FYNS_FLOW)" int)) (define FYNS_BLOCK (foreign-value "(FYNS_BLOCK)" int)) (define FYNS_PLAIN (foreign-value "(FYNS_PLAIN)" int)) (define FYNS_SINGLE_QUOTED (foreign-value "(FYNS_SINGLE_QUOTED)" int)) (define FYNS_DOUBLE_QUOTED (foreign-value "(FYNS_DOUBLE_QUOTED)" int)) (define FYNS_LITERAL (foreign-value "(FYNS_LITERAL)" int)) (define FYNS_FOLDED (foreign-value "(FYNS_FOLDED)" int)) (define FYNS_ALIAS (foreign-value "(FYNS_ALIAS)" int)) (define FYNWF_DONT_FOLLOW (foreign-value "(FYNWF_DONT_FOLLOW)" int)) (define FYNWF_FOLLOW (foreign-value "(FYNWF_FOLLOW)" int)) (define FYNWF_PTR_YAML (foreign-value "(FYNWF_PTR_YAML)" int)) (define FYNWF_PTR_JSON (foreign-value "(FYNWF_PTR_JSON)" int)) (define FYNWF_PTR_RELJSON (foreign-value "(FYNWF_PTR_RELJSON)" int)) (define FYNWF_PTR_YPATH (foreign-value "(FYNWF_PTR_YPATH)" int)) (define FYNWF_URI_ENCODED (foreign-value "(FYNWF_URI_ENCODED)" int)) (define FYNWF_MAXDEPTH_DEFAULT (foreign-value "(FYNWF_MAXDEPTH_DEFAULT)" int)) (define FYNWF_MARKER_DEFAULT (foreign-value "(FYNWF_MARKER_DEFAULT)" int)) (define FYNWF_PTR_DEFAULT (foreign-value "(FYNWF_PTR_DEFAULT)" int)) (define fy_node_style_from_scalar_style (foreign-lambda int "fy_node_style_from_scalar_style" int)) (define fy_node_compare (foreign-lambda int "fy_node_compare" c-pointer c-pointer)) (define fy_node_compare_user (foreign-lambda int "fy_node_compare_user" c-pointer c-pointer c-pointer c-pointer c-pointer c-pointer)) (define fy_node_compare_string (foreign-lambda int "fy_node_compare_string" c-pointer c-string size_t)) (define fy_node_compare_token (foreign-lambda int "fy_node_compare_token" c-pointer c-pointer)) (define fy_node_compare_text (foreign-lambda int "fy_node_compare_text" c-pointer c-string size_t)) (define fy_document_create (foreign-lambda c-pointer "fy_document_create" c-pointer)) (define fy_document_destroy (foreign-lambda void "fy_document_destroy" c-pointer)) (define fy_document_get_cfg (foreign-lambda c-pointer "fy_document_get_cfg" c-pointer)) (define fy_document_get_diag (foreign-lambda c-pointer "fy_document_get_diag" c-pointer)) (define fy_document_set_diag (foreign-lambda int "fy_document_set_diag" c-pointer c-pointer)) (define fy_document_set_parent (foreign-lambda int "fy_document_set_parent" c-pointer c-pointer)) (define fy_document_build_from_string (foreign-lambda c-pointer "fy_document_build_from_string" c-pointer c-string size_t)) (define fy_document_build_from_malloc_string (foreign-lambda c-pointer "fy_document_build_from_malloc_string" c-pointer c-string size_t)) (define fy_document_build_from_file (foreign-lambda c-pointer "fy_document_build_from_file" c-pointer c-string)) (define fy_document_build_from_fp (foreign-lambda c-pointer "fy_document_build_from_fp" c-pointer c-pointer)) (define fy_document_vbuildf (foreign-lambda c-pointer "fy_document_vbuildf" c-pointer c-string c-pointer)) (define fy_document_buildf (foreign-lambda c-pointer "fy_document_buildf" c-pointer c-string)) (define fy_flow_document_build_from_string (foreign-lambda c-pointer "fy_flow_document_build_from_string" c-pointer c-string size_t c-pointer)) (define fy_block_document_build_from_string (foreign-lambda c-pointer "fy_block_document_build_from_string" c-pointer c-string size_t c-pointer)) (define fy_document_root (foreign-lambda c-pointer "fy_document_root" c-pointer)) (define fy_document_set_root (foreign-lambda int "fy_document_set_root" c-pointer c-pointer)) (define fy_node_get_type (foreign-lambda int "fy_node_get_type" c-pointer)) (define fy_node_get_style (foreign-lambda int "fy_node_get_style" c-pointer)) (define fy_node_set_style (foreign-lambda int "fy_node_set_style" c-pointer int)) (define fy_node_get_start_token (foreign-lambda c-pointer "fy_node_get_start_token" c-pointer)) (define fy_node_get_end_token (foreign-lambda c-pointer "fy_node_get_end_token" c-pointer)) (define fy_node_is_scalar (foreign-lambda int "fy_node_is_scalar" c-pointer)) (define fy_node_is_sequence (foreign-lambda int "fy_node_is_sequence" c-pointer)) (define fy_node_is_mapping (foreign-lambda int "fy_node_is_mapping" c-pointer)) (define fy_node_is_alias (foreign-lambda int "fy_node_is_alias" c-pointer)) (define fy_node_is_null (foreign-lambda int "fy_node_is_null" c-pointer)) (define fy_node_is_attached (foreign-lambda int "fy_node_is_attached" c-pointer)) (define fy_node_get_tag_token (foreign-lambda c-pointer "fy_node_get_tag_token" c-pointer)) (define fy_node_get_scalar_token (foreign-lambda c-pointer "fy_node_get_scalar_token" c-pointer)) (define fy_node_resolve_alias (foreign-lambda c-pointer "fy_node_resolve_alias" c-pointer)) (define fy_node_dereference (foreign-lambda c-pointer "fy_node_dereference" c-pointer)) (define fy_node_free (foreign-lambda int "fy_node_free" c-pointer)) (define fy_node_build_from_string (foreign-lambda c-pointer "fy_node_build_from_string" c-pointer c-string size_t)) (define fy_node_build_from_malloc_string (foreign-lambda c-pointer "fy_node_build_from_malloc_string" c-pointer c-string size_t)) (define fy_node_build_from_file (foreign-lambda c-pointer "fy_node_build_from_file" c-pointer c-string)) (define fy_node_build_from_fp (foreign-lambda c-pointer "fy_node_build_from_fp" c-pointer c-pointer)) (define fy_node_vbuildf (foreign-lambda c-pointer "fy_node_vbuildf" c-pointer c-string c-pointer)) (define fy_node_buildf (foreign-lambda c-pointer "fy_node_buildf" c-pointer c-string)) (define fy_node_by_path (foreign-lambda c-pointer "fy_node_by_path" c-pointer c-string size_t int)) (define fy_node_get_path (foreign-lambda c-string "fy_node_get_path" c-pointer)) (define fy_node_get_parent (foreign-lambda c-pointer "fy_node_get_parent" c-pointer)) (define fy_node_get_document_parent (foreign-lambda c-pointer "fy_node_get_document_parent" c-pointer)) (define fy_node_get_parent_address (foreign-lambda c-string "fy_node_get_parent_address" c-pointer)) (define fy_node_get_path_relative_to (foreign-lambda c-string "fy_node_get_path_relative_to" c-pointer c-pointer)) (define fy_node_get_short_path (foreign-lambda c-string "fy_node_get_short_path" c-pointer)) (define fy_node_get_reference (foreign-lambda c-string "fy_node_get_reference" c-pointer)) (define fy_node_create_reference (foreign-lambda c-pointer "fy_node_create_reference" c-pointer)) (define fy_node_get_relative_reference (foreign-lambda c-string "fy_node_get_relative_reference" c-pointer c-pointer)) (define fy_node_create_relative_reference (foreign-lambda c-pointer "fy_node_create_relative_reference" c-pointer c-pointer)) (define fy_node_create_scalar (foreign-lambda c-pointer "fy_node_create_scalar" c-pointer c-string size_t)) (define fy_node_create_scalar_copy (foreign-lambda c-pointer "fy_node_create_scalar_copy" c-pointer c-string size_t)) (define fy_node_create_vscalarf (foreign-lambda c-pointer "fy_node_create_vscalarf" c-pointer c-string c-pointer)) (define fy_node_create_scalarf (foreign-lambda c-pointer "fy_node_create_scalarf" c-pointer c-string)) (define fy_node_create_sequence (foreign-lambda c-pointer "fy_node_create_sequence" c-pointer)) (define fy_node_create_mapping (foreign-lambda c-pointer "fy_node_create_mapping" c-pointer)) (define fy_node_set_tag (foreign-lambda int "fy_node_set_tag" c-pointer c-string size_t)) (define fy_node_remove_tag (foreign-lambda int "fy_node_remove_tag" c-pointer)) (define fy_node_get_tag (foreign-lambda c-string "fy_node_get_tag" c-pointer c-pointer)) (define fy_node_get_tag0 (foreign-lambda c-string "fy_node_get_tag0" c-pointer)) (define fy_node_get_tag_length (foreign-lambda size_t "fy_node_get_tag_length" c-pointer)) (define fy_node_get_scalar (foreign-lambda c-string "fy_node_get_scalar" c-pointer c-pointer)) (define fy_node_get_scalar0 (foreign-lambda c-string "fy_node_get_scalar0" c-pointer)) (define fy_node_get_scalar_length (foreign-lambda size_t "fy_node_get_scalar_length" c-pointer)) (define fy_node_get_scalar_utf8_length (foreign-lambda size_t "fy_node_get_scalar_utf8_length" c-pointer)) (define fy_node_sequence_iterate (foreign-lambda c-pointer "fy_node_sequence_iterate" c-pointer c-pointer)) (define fy_node_sequence_reverse_iterate (foreign-lambda c-pointer "fy_node_sequence_reverse_iterate" c-pointer c-pointer)) (define fy_node_sequence_item_count (foreign-lambda int "fy_node_sequence_item_count" c-pointer)) (define fy_node_sequence_is_empty (foreign-lambda int "fy_node_sequence_is_empty" c-pointer)) (define fy_node_sequence_get_by_index (foreign-lambda c-pointer "fy_node_sequence_get_by_index" c-pointer int)) (define fy_node_sequence_append (foreign-lambda int "fy_node_sequence_append" c-pointer c-pointer)) (define fy_node_sequence_prepend (foreign-lambda int "fy_node_sequence_prepend" c-pointer c-pointer)) (define fy_node_sequence_insert_before (foreign-lambda int "fy_node_sequence_insert_before" c-pointer c-pointer c-pointer)) (define fy_node_sequence_insert_after (foreign-lambda int "fy_node_sequence_insert_after" c-pointer c-pointer c-pointer)) (define fy_node_sequence_remove (foreign-lambda c-pointer "fy_node_sequence_remove" c-pointer c-pointer)) (define fy_node_sequence_sort (foreign-lambda int "fy_node_sequence_sort" c-pointer c-pointer c-pointer)) (define fy_node_mapping_iterate (foreign-lambda c-pointer "fy_node_mapping_iterate" c-pointer c-pointer)) (define fy_node_mapping_reverse_iterate (foreign-lambda c-pointer "fy_node_mapping_reverse_iterate" c-pointer c-pointer)) (define fy_node_mapping_item_count (foreign-lambda int "fy_node_mapping_item_count" c-pointer)) (define fy_node_mapping_is_empty (foreign-lambda int "fy_node_mapping_is_empty" c-pointer)) (define fy_node_mapping_get_by_index (foreign-lambda c-pointer "fy_node_mapping_get_by_index" c-pointer int)) (define fy_node_mapping_lookup_pair_by_string (foreign-lambda c-pointer "fy_node_mapping_lookup_pair_by_string" c-pointer c-string size_t)) (define fy_node_mapping_lookup_by_string (foreign-lambda c-pointer "fy_node_mapping_lookup_by_string" c-pointer c-string size_t)) (define fy_node_mapping_lookup_value_by_string (foreign-lambda c-pointer "fy_node_mapping_lookup_value_by_string" c-pointer c-string size_t)) (define fy_node_mapping_lookup_key_by_string (foreign-lambda c-pointer "fy_node_mapping_lookup_key_by_string" c-pointer c-string size_t)) (define fy_node_mapping_lookup_pair_by_simple_key (foreign-lambda c-pointer "fy_node_mapping_lookup_pair_by_simple_key" c-pointer c-string size_t)) (define fy_node_mapping_lookup_value_by_simple_key (foreign-lambda c-pointer "fy_node_mapping_lookup_value_by_simple_key" c-pointer c-string size_t)) (define fy_node_mapping_lookup_pair_by_null_key (foreign-lambda c-pointer "fy_node_mapping_lookup_pair_by_null_key" c-pointer)) (define fy_node_mapping_lookup_value_by_null_key (foreign-lambda c-pointer "fy_node_mapping_lookup_value_by_null_key" c-pointer)) (define fy_node_mapping_lookup_scalar_by_simple_key (foreign-lambda c-string "fy_node_mapping_lookup_scalar_by_simple_key" c-pointer c-pointer c-string size_t)) (define fy_node_mapping_lookup_scalar0_by_simple_key (foreign-lambda c-string "fy_node_mapping_lookup_scalar0_by_simple_key" c-pointer c-string size_t)) (define fy_node_mapping_lookup_pair (foreign-lambda c-pointer "fy_node_mapping_lookup_pair" c-pointer c-pointer)) (define fy_node_mapping_lookup_value_by_key (foreign-lambda c-pointer "fy_node_mapping_lookup_value_by_key" c-pointer c-pointer)) (define fy_node_mapping_lookup_key_by_key (foreign-lambda c-pointer "fy_node_mapping_lookup_key_by_key" c-pointer c-pointer)) (define fy_node_mapping_get_pair_index (foreign-lambda int "fy_node_mapping_get_pair_index" c-pointer c-pointer)) (define fy_node_pair_key (foreign-lambda c-pointer "fy_node_pair_key" c-pointer)) (define fy_node_pair_value (foreign-lambda c-pointer "fy_node_pair_value" c-pointer)) (define fy_node_pair_set_key (foreign-lambda int "fy_node_pair_set_key" c-pointer c-pointer)) (define fy_node_pair_set_value (foreign-lambda int "fy_node_pair_set_value" c-pointer c-pointer)) (define fy_node_mapping_append (foreign-lambda int "fy_node_mapping_append" c-pointer c-pointer c-pointer)) (define fy_node_mapping_prepend (foreign-lambda int "fy_node_mapping_prepend" c-pointer c-pointer c-pointer)) (define fy_node_mapping_remove (foreign-lambda int "fy_node_mapping_remove" c-pointer c-pointer)) (define fy_node_mapping_sort (foreign-lambda int "fy_node_mapping_sort" c-pointer c-pointer c-pointer)) (define fy_node_mapping_remove_by_key (foreign-lambda c-pointer "fy_node_mapping_remove_by_key" c-pointer c-pointer)) (define fy_node_sort (foreign-lambda int "fy_node_sort" c-pointer c-pointer c-pointer)) (define fy_node_vscanf (foreign-lambda int "fy_node_vscanf" c-pointer c-string c-pointer)) (define fy_node_scanf (foreign-lambda int "fy_node_scanf" c-pointer c-string)) (define fy_document_vscanf (foreign-lambda int "fy_document_vscanf" c-pointer c-string c-pointer)) (define fy_document_scanf (foreign-lambda int "fy_document_scanf" c-pointer c-string)) (define fy_document_tag_directive_iterate (foreign-lambda c-pointer "fy_document_tag_directive_iterate" c-pointer c-pointer)) (define fy_document_tag_directive_lookup (foreign-lambda c-pointer "fy_document_tag_directive_lookup" c-pointer c-string)) (define fy_tag_directive_token_handle (foreign-lambda c-string "fy_tag_directive_token_handle" c-pointer c-pointer)) (define fy_tag_directive_token_prefix (foreign-lambda c-string "fy_tag_directive_token_prefix" c-pointer c-pointer)) (define fy_document_tag_directive_add (foreign-lambda int "fy_document_tag_directive_add" c-pointer c-string c-string)) (define fy_document_tag_directive_remove (foreign-lambda int "fy_document_tag_directive_remove" c-pointer c-string)) (define fy_document_lookup_anchor (foreign-lambda c-pointer "fy_document_lookup_anchor" c-pointer c-string size_t)) (define fy_document_lookup_anchor_by_token (foreign-lambda c-pointer "fy_document_lookup_anchor_by_token" c-pointer c-pointer)) (define fy_document_lookup_anchor_by_node (foreign-lambda c-pointer "fy_document_lookup_anchor_by_node" c-pointer c-pointer)) (define fy_anchor_get_text (foreign-lambda c-string "fy_anchor_get_text" c-pointer c-pointer)) (define fy_anchor_node (foreign-lambda c-pointer "fy_anchor_node" c-pointer)) (define fy_document_anchor_iterate (foreign-lambda c-pointer "fy_document_anchor_iterate" c-pointer c-pointer)) (define fy_document_set_anchor (foreign-lambda int "fy_document_set_anchor" c-pointer c-pointer c-string size_t)) (define fy_node_set_anchor (foreign-lambda int "fy_node_set_anchor" c-pointer c-string size_t)) (define fy_node_set_anchor_copy (foreign-lambda int "fy_node_set_anchor_copy" c-pointer c-string size_t)) (define fy_node_set_vanchorf (foreign-lambda int "fy_node_set_vanchorf" c-pointer c-string c-pointer)) (define fy_node_set_anchorf (foreign-lambda int "fy_node_set_anchorf" c-pointer c-string)) (define fy_node_remove_anchor (foreign-lambda int "fy_node_remove_anchor" c-pointer)) (define fy_node_get_anchor (foreign-lambda c-pointer "fy_node_get_anchor" c-pointer)) (define fy_node_get_nearest_anchor (foreign-lambda c-pointer "fy_node_get_nearest_anchor" c-pointer)) (define fy_node_get_nearest_child_of (foreign-lambda c-pointer "fy_node_get_nearest_child_of" c-pointer c-pointer)) (define fy_node_create_alias (foreign-lambda c-pointer "fy_node_create_alias" c-pointer c-string size_t)) (define fy_node_create_alias_copy (foreign-lambda c-pointer "fy_node_create_alias_copy" c-pointer c-string size_t)) (define fy_node_get_meta (foreign-lambda c-pointer "fy_node_get_meta" c-pointer)) (define fy_node_set_meta (foreign-lambda int "fy_node_set_meta" c-pointer c-pointer)) (define fy_node_clear_meta (foreign-lambda void "fy_node_clear_meta" c-pointer)) (define fy_document_register_meta (foreign-lambda int "fy_document_register_meta" c-pointer c-pointer c-pointer)) (define fy_document_unregister_meta (foreign-lambda void "fy_document_unregister_meta" c-pointer)) (define fy_node_set_marker (foreign-lambda int "fy_node_set_marker" c-pointer unsigned-int)) (define fy_node_clear_marker (foreign-lambda int "fy_node_clear_marker" c-pointer unsigned-int)) (define fy_node_is_marker_set (foreign-lambda int "fy_node_is_marker_set" c-pointer unsigned-int)) (define fy_node_vreport (foreign-lambda void "fy_node_vreport" c-pointer int c-string c-pointer)) (define fy_node_report (foreign-lambda void "fy_node_report" c-pointer int c-string)) (define fy_node_override_vreport (foreign-lambda void "fy_node_override_vreport" c-pointer int c-string int int c-string c-pointer)) (define fy_node_override_report (foreign-lambda void "fy_node_override_report" c-pointer int c-string int int c-string)) (define fy_event_vreport (foreign-lambda void "fy_event_vreport" c-pointer c-pointer int int c-string c-pointer)) (define fy_event_report (foreign-lambda void "fy_event_report" c-pointer c-pointer int int c-string)) (define fy_diag_create (foreign-lambda c-pointer "fy_diag_create" c-pointer)) (define fy_diag_destroy (foreign-lambda void "fy_diag_destroy" c-pointer)) (define fy_diag_get_cfg (foreign-lambda c-pointer "fy_diag_get_cfg" c-pointer)) (define fy_diag_set_cfg (foreign-lambda void "fy_diag_set_cfg" c-pointer c-pointer)) (define fy_diag_set_level (foreign-lambda void "fy_diag_set_level" c-pointer int)) (define fy_diag_set_colorize (foreign-lambda void "fy_diag_set_colorize" c-pointer int)) (define fy_diag_ref (foreign-lambda c-pointer "fy_diag_ref" c-pointer)) (define fy_diag_unref (foreign-lambda void "fy_diag_unref" c-pointer)) (define fy_diag_got_error (foreign-lambda int "fy_diag_got_error" c-pointer)) (define fy_diag_set_error (foreign-lambda void "fy_diag_set_error" c-pointer int)) (define fy_diag_reset_error (foreign-lambda void "fy_diag_reset_error" c-pointer)) (define fy_diag_set_collect_errors (foreign-lambda void "fy_diag_set_collect_errors" c-pointer int)) (define fy_diag_get_collect_errors (foreign-lambda int "fy_diag_get_collect_errors" c-pointer)) (define fy_diag_cfg_default (foreign-lambda void "fy_diag_cfg_default" c-pointer)) (define fy_diag_cfg_from_parser_flags (foreign-lambda void "fy_diag_cfg_from_parser_flags" c-pointer int)) (define fy_diag_vprintf (foreign-lambda int "fy_diag_vprintf" c-pointer c-string c-pointer)) (define fy_diag_printf (foreign-lambda int "fy_diag_printf" c-pointer c-string)) (define fy_vdiag (foreign-lambda int "fy_vdiag" c-pointer c-pointer c-string c-pointer)) (define fy_diagf (foreign-lambda int "fy_diagf" c-pointer c-pointer c-string)) (define fy_diag_token_vreport (foreign-lambda void "fy_diag_token_vreport" c-pointer c-pointer int c-string c-pointer)) (define fy_diag_token_report (foreign-lambda void "fy_diag_token_report" c-pointer c-pointer int c-string)) (define fy_diag_token_override_vreport (foreign-lambda void "fy_diag_token_override_vreport" c-pointer c-pointer int c-string int int c-string c-pointer)) (define fy_diag_token_override_report (foreign-lambda void "fy_diag_token_override_report" c-pointer c-pointer int c-string int int c-string)) (define fy_diag_node_vreport (foreign-lambda void "fy_diag_node_vreport" c-pointer c-pointer int c-string c-pointer)) (define fy_diag_node_report (foreign-lambda void "fy_diag_node_report" c-pointer c-pointer int c-string)) (define fy_diag_node_override_vreport (foreign-lambda void "fy_diag_node_override_vreport" c-pointer c-pointer int c-string int int c-string c-pointer)) (define fy_diag_node_override_report (foreign-lambda void "fy_diag_node_override_report" c-pointer c-pointer int c-string int int c-string)) (define fy_diag_event_vreport (foreign-lambda void "fy_diag_event_vreport" c-pointer c-pointer int int c-string c-pointer)) (define fy_diag_event_report (foreign-lambda void "fy_diag_event_report" c-pointer c-pointer int int c-string)) (define fy_diag_errors_iterate (foreign-lambda c-pointer "fy_diag_errors_iterate" c-pointer c-pointer)) (define fy_parser_checkpoint_create (foreign-lambda c-pointer "fy_parser_checkpoint_create" c-pointer)) (define fy_parser_checkpoint_destroy (foreign-lambda void "fy_parser_checkpoint_destroy" c-pointer)) (define fy_parser_rollback (foreign-lambda int "fy_parser_rollback" c-pointer c-pointer)) (define FYTT_NONE (foreign-value "(FYTT_NONE)" int)) (define FYTT_STREAM_START (foreign-value "(FYTT_STREAM_START)" int)) (define FYTT_STREAM_END (foreign-value "(FYTT_STREAM_END)" int)) (define FYTT_VERSION_DIRECTIVE (foreign-value "(FYTT_VERSION_DIRECTIVE)" int)) (define FYTT_TAG_DIRECTIVE (foreign-value "(FYTT_TAG_DIRECTIVE)" int)) (define FYTT_DOCUMENT_START (foreign-value "(FYTT_DOCUMENT_START)" int)) (define FYTT_DOCUMENT_END (foreign-value "(FYTT_DOCUMENT_END)" int)) (define FYTT_BLOCK_SEQUENCE_START (foreign-value "(FYTT_BLOCK_SEQUENCE_START)" int)) (define FYTT_BLOCK_MAPPING_START (foreign-value "(FYTT_BLOCK_MAPPING_START)" int)) (define FYTT_BLOCK_END (foreign-value "(FYTT_BLOCK_END)" int)) (define FYTT_FLOW_SEQUENCE_START (foreign-value "(FYTT_FLOW_SEQUENCE_START)" int)) (define FYTT_FLOW_SEQUENCE_END (foreign-value "(FYTT_FLOW_SEQUENCE_END)" int)) (define FYTT_FLOW_MAPPING_START (foreign-value "(FYTT_FLOW_MAPPING_START)" int)) (define FYTT_FLOW_MAPPING_END (foreign-value "(FYTT_FLOW_MAPPING_END)" int)) (define FYTT_BLOCK_ENTRY (foreign-value "(FYTT_BLOCK_ENTRY)" int)) (define FYTT_FLOW_ENTRY (foreign-value "(FYTT_FLOW_ENTRY)" int)) (define FYTT_KEY (foreign-value "(FYTT_KEY)" int)) (define FYTT_VALUE (foreign-value "(FYTT_VALUE)" int)) (define FYTT_ALIAS (foreign-value "(FYTT_ALIAS)" int)) (define FYTT_ANCHOR (foreign-value "(FYTT_ANCHOR)" int)) (define FYTT_TAG (foreign-value "(FYTT_TAG)" int)) (define FYTT_SCALAR (foreign-value "(FYTT_SCALAR)" int)) (define FYTT_INPUT_MARKER (foreign-value "(FYTT_INPUT_MARKER)" int)) (define FYTT_PE_SLASH (foreign-value "(FYTT_PE_SLASH)" int)) (define FYTT_PE_ROOT (foreign-value "(FYTT_PE_ROOT)" int)) (define FYTT_PE_THIS (foreign-value "(FYTT_PE_THIS)" int)) (define FYTT_PE_PARENT (foreign-value "(FYTT_PE_PARENT)" int)) (define FYTT_PE_MAP_KEY (foreign-value "(FYTT_PE_MAP_KEY)" int)) (define FYTT_PE_SEQ_INDEX (foreign-value "(FYTT_PE_SEQ_INDEX)" int)) (define FYTT_PE_SEQ_SLICE (foreign-value "(FYTT_PE_SEQ_SLICE)" int)) (define FYTT_PE_SCALAR_FILTER (foreign-value "(FYTT_PE_SCALAR_FILTER)" int)) (define FYTT_PE_COLLECTION_FILTER (foreign-value "(FYTT_PE_COLLECTION_FILTER)" int)) (define FYTT_PE_SEQ_FILTER (foreign-value "(FYTT_PE_SEQ_FILTER)" int)) (define FYTT_PE_MAP_FILTER (foreign-value "(FYTT_PE_MAP_FILTER)" int)) (define FYTT_PE_UNIQUE_FILTER (foreign-value "(FYTT_PE_UNIQUE_FILTER)" int)) (define FYTT_PE_EVERY_CHILD (foreign-value "(FYTT_PE_EVERY_CHILD)" int)) (define FYTT_PE_EVERY_CHILD_R (foreign-value "(FYTT_PE_EVERY_CHILD_R)" int)) (define FYTT_PE_ALIAS (foreign-value "(FYTT_PE_ALIAS)" int)) (define FYTT_PE_SIBLING (foreign-value "(FYTT_PE_SIBLING)" int)) (define FYTT_PE_COMMA (foreign-value "(FYTT_PE_COMMA)" int)) (define FYTT_PE_BARBAR (foreign-value "(FYTT_PE_BARBAR)" int)) (define FYTT_PE_AMPAMP (foreign-value "(FYTT_PE_AMPAMP)" int)) (define FYTT_PE_LPAREN (foreign-value "(FYTT_PE_LPAREN)" int)) (define FYTT_PE_RPAREN (foreign-value "(FYTT_PE_RPAREN)" int)) (define FYTT_PE_EQEQ (foreign-value "(FYTT_PE_EQEQ)" int)) (define FYTT_PE_NOTEQ (foreign-value "(FYTT_PE_NOTEQ)" int)) (define FYTT_PE_LT (foreign-value "(FYTT_PE_LT)" int)) (define FYTT_PE_GT (foreign-value "(FYTT_PE_GT)" int)) (define FYTT_PE_LTE (foreign-value "(FYTT_PE_LTE)" int)) (define FYTT_PE_GTE (foreign-value "(FYTT_PE_GTE)" int)) (define FYTT_SE_PLUS (foreign-value "(FYTT_SE_PLUS)" int)) (define FYTT_SE_MINUS (foreign-value "(FYTT_SE_MINUS)" int)) (define FYTT_SE_MULT (foreign-value "(FYTT_SE_MULT)" int)) (define FYTT_SE_DIV (foreign-value "(FYTT_SE_DIV)" int)) (define FYTT_PE_METHOD (foreign-value "(FYTT_PE_METHOD)" int)) (define FYTT_SE_METHOD (foreign-value "(FYTT_SE_METHOD)" int)) (define FYTT_PE_BANG (foreign-value "(FYTT_PE_BANG)" int)) (define FYTT_PE_AT (foreign-value "(FYTT_PE_AT)" int)) (define fy_token_type_is_valid (foreign-lambda int "fy_token_type_is_valid" int)) (define fy_token_type_is_yaml (foreign-lambda int "fy_token_type_is_yaml" int)) (define fy_token_type_is_content (foreign-lambda int "fy_token_type_is_content" int)) (define fy_token_type_is_path_expr (foreign-lambda int "fy_token_type_is_path_expr" int)) (define fy_token_type_is_scalar_expr (foreign-lambda int "fy_token_type_is_scalar_expr" int)) (define fy_token_get_type (foreign-lambda int "fy_token_get_type" c-pointer)) (define fy_token_start_mark (foreign-lambda c-pointer "fy_token_start_mark" c-pointer)) (define fy_token_end_mark (foreign-lambda c-pointer "fy_token_end_mark" c-pointer)) (define fy_token_style_start_mark (foreign-lambda c-pointer "fy_token_style_start_mark" c-pointer)) (define fy_token_style_end_mark (foreign-lambda c-pointer "fy_token_style_end_mark" c-pointer)) (define fy_scan (foreign-lambda c-pointer "fy_scan" c-pointer)) (define fy_scan_token_free (foreign-lambda void "fy_scan_token_free" c-pointer c-pointer)) (define fy_tag_directive_token_prefix0 (foreign-lambda c-string "fy_tag_directive_token_prefix0" c-pointer)) (define fy_tag_directive_token_handle0 (foreign-lambda c-string "fy_tag_directive_token_handle0" c-pointer)) (define fy_tag_token_handle (foreign-lambda c-string "fy_tag_token_handle" c-pointer c-pointer)) (define fy_tag_token_suffix (foreign-lambda c-string "fy_tag_token_suffix" c-pointer c-pointer)) (define fy_tag_token_short (foreign-lambda c-string "fy_tag_token_short" c-pointer c-pointer)) (define fy_tag_token_handle0 (foreign-lambda c-string "fy_tag_token_handle0" c-pointer)) (define fy_tag_token_short0 (foreign-lambda c-string "fy_tag_token_short0" c-pointer)) (define fy_tag_token_suffix0 (foreign-lambda c-string "fy_tag_token_suffix0" c-pointer)) (define fy_version_directive_token_version (foreign-lambda c-pointer "fy_version_directive_token_version" c-pointer)) (define fy_scalar_token_get_style (foreign-lambda int "fy_scalar_token_get_style" c-pointer)) (define fy_tag_token_tag (foreign-lambda c-pointer "fy_tag_token_tag" c-pointer)) (define fy_tag_directive_token_tag (foreign-lambda c-pointer "fy_tag_directive_token_tag" c-pointer)) (define fy_event_get_token (foreign-lambda c-pointer "fy_event_get_token" c-pointer)) (define fy_event_get_anchor_token (foreign-lambda c-pointer "fy_event_get_anchor_token" c-pointer)) (define fy_event_get_tag_token (foreign-lambda c-pointer "fy_event_get_tag_token" c-pointer)) (define fy_event_start_mark (foreign-lambda c-pointer "fy_event_start_mark" c-pointer)) (define fy_event_end_mark (foreign-lambda c-pointer "fy_event_end_mark" c-pointer)) (define fy_event_style_start_mark (foreign-lambda c-pointer "fy_event_style_start_mark" c-pointer)) (define fy_event_style_end_mark (foreign-lambda c-pointer "fy_event_style_end_mark" c-pointer)) (define fy_event_get_node_style (foreign-lambda int "fy_event_get_node_style" c-pointer)) (define fy_document_start_event_version (foreign-lambda c-pointer "fy_document_start_event_version" c-pointer)) (define fy_document_state_version (foreign-lambda c-pointer "fy_document_state_version" c-pointer)) (define fy_document_state_start_mark (foreign-lambda c-pointer "fy_document_state_start_mark" c-pointer)) (define fy_document_state_end_mark (foreign-lambda c-pointer "fy_document_state_end_mark" c-pointer)) (define fy_document_state_version_explicit (foreign-lambda int "fy_document_state_version_explicit" c-pointer)) (define fy_document_state_tags_explicit (foreign-lambda int "fy_document_state_tags_explicit" c-pointer)) (define fy_document_state_start_implicit (foreign-lambda int "fy_document_state_start_implicit" c-pointer)) (define fy_document_state_end_implicit (foreign-lambda int "fy_document_state_end_implicit" c-pointer)) (define fy_document_state_start_explicit (foreign-lambda int "fy_document_state_start_explicit" c-pointer)) (define fy_document_state_end_explicit (foreign-lambda int "fy_document_state_end_explicit" c-pointer)) (define fy_document_state_json_mode (foreign-lambda int "fy_document_state_json_mode" c-pointer)) (define fy_document_state_tag_directive_iterate (foreign-lambda c-pointer "fy_document_state_tag_directive_iterate" c-pointer c-pointer)) (define fy_document_state_tag_directives (foreign-lambda c-pointer "fy_document_state_tag_directives" c-pointer)) (define fy_document_state_tag_is_default (foreign-lambda int "fy_document_state_tag_is_default" c-pointer c-pointer)) (define fy_parser_get_document_state (foreign-lambda c-pointer "fy_parser_get_document_state" c-pointer)) (define fy_document_get_document_state (foreign-lambda c-pointer "fy_document_get_document_state" c-pointer)) (define fy_document_set_document_state (foreign-lambda int "fy_document_set_document_state" c-pointer c-pointer)) (define fy_document_create_from_event (foreign-lambda c-pointer "fy_document_create_from_event" c-pointer c-pointer)) (define fy_document_update_from_event (foreign-lambda int "fy_document_update_from_event" c-pointer c-pointer c-pointer)) (define fy_node_create_from_event (foreign-lambda c-pointer "fy_node_create_from_event" c-pointer c-pointer c-pointer)) (define fy_node_update_from_event (foreign-lambda int "fy_node_update_from_event" c-pointer c-pointer c-pointer)) (define fy_node_pair_create_with_key (foreign-lambda c-pointer "fy_node_pair_create_with_key" c-pointer c-pointer c-pointer)) (define fy_node_pair_update_with_value (foreign-lambda int "fy_node_pair_update_with_value" c-pointer c-pointer)) (define fy_node_sequence_add_item (foreign-lambda int "fy_node_sequence_add_item" c-pointer c-pointer)) (define fy_emitter_get_document_state (foreign-lambda c-pointer "fy_emitter_get_document_state" c-pointer)) (define fy_emit_event_create (foreign-lambda c-pointer "fy_emit_event_create" c-pointer int)) (define fy_emit_event_vcreate (foreign-lambda c-pointer "fy_emit_event_vcreate" c-pointer int c-pointer)) (define fy_emit_event_free (foreign-lambda void "fy_emit_event_free" c-pointer c-pointer)) (define fy_parse_event_create (foreign-lambda c-pointer "fy_parse_event_create" c-pointer int)) (define fy_parse_event_vcreate (foreign-lambda c-pointer "fy_parse_event_vcreate" c-pointer int c-pointer)) ) ;module