AmigActive 3/AACD03.BIN/AACD/Programming/sofa/archive/exml.lha/exml/compiler_specific/ise/exml_externals.e

Text File | 1999-04-13 | 5KB | 197 lines

class
    EXML_EXTERNALS
inherit
    EXML_EXTERNALS_ABS
feature {NONE} -- externals
    exml_register_start_end_tag_hook (parser_handle: POINTER) is
        do
            c_exml_register_start_end_tag_hook (parser_handle)
        end

    exml_register_content_hook (parser_handle: POINTER) is
        do
            c_exml_register_content_hook (parser_handle)
        end

    exml_register_processing_instruction_hook (parser_handle: POINTER) is
        do
            c_exml_register_processing_instruction_hook (parser_handle)
        end


    exml_register_default_hook (parser_handle: POINTER) is
        do
            c_exml_register_default_hook (parser_handle)
        end

    exml_register_unparsed_entity_declaration_hook (parser_handle: POINTER) is
        do
            c_exml_register_unparsed_entity_declaration_hook (parser_handle)
        end

    exml_register_notation_declaration_hook (parser_handle: POINTER) is
        do
            c_exml_register_notation_declaration_hook (parser_handle)
        end

    exml_register_external_entity_reference_hook (parser_handle: POINTER) is
        do
            c_exml_register_external_entity_reference_hook (parser_handle)
        end

    exml_register_unkown_encoding (parser_handle: POINTER) is
        do
            c_exml_register_unkown_encoding (parser_handle)
        end

feature {NONE}
    c_exml_register_unkown_encoding (parser_handle: POINTER) is
        external
            "C"
        alias
            "exml_register_unkown_encoding"
        end
    c_exml_register_external_entity_reference_hook (parser_handle: POINTER) is
        external
            "C"
        alias
            "exml_register_external_entity_reference_hook"
        end
    c_exml_register_notation_declaration_hook (parser_handle: POINTER) is
        external
            "C"
        alias
            "exml_register_notation_declaration_hook"
        end
    c_exml_register_start_end_tag_hook (parser_handle: POINTER) is
        external
            "C"
        alias
            "exml_register_start_end_tag_hook"
        end
    c_exml_register_content_hook (parser_handle: POINTER) is
        external
            "C"
        alias
            "exml_register_content_hook"
        end
    c_exml_register_processing_instruction_hook (parser_handle: POINTER) is
        external
            "C"
        alias
            "exml_register_processing_instruction_hook"
        end
    c_exml_register_default_hook (parser_handle: POINTER) is
            -- if this hook is registered internal entity references
            -- are not expanded !!!
        external
            "C"
        alias
            "exml_register_default_hook"
        end
    c_exml_register_unparsed_entity_declaration_hook (parser_handle: POINTER) is
        external
            "C"
        alias
            "exml_register_unparsed_entity_declaration_hook"
        end


    c_exml_set_on_start_tag_procedure_address (address: POINTER) is
        external
            "C"
        alias
            "exml_set_on_start_tag_procedure_address"
        end

    c_exml_set_on_end_tag_procedure_address (address: POINTER) is
        external
            "C"
        alias
            "exml_set_on_end_tag_procedure_address"
        end

    c_exml_set_on_content_procedure_address (address: POINTER) is
        external
            "C"
        alias
            "exml_set_on_content_procedure_address"
        end

    c_exml_set_on_processing_instruction_procedure_address (address: POINTER) is
        external
            "C"
        alias
            "exml_set_on_processing_instruction_procedure_address"
        end

    c_exml_set_on_default_procedure_address (address: POINTER) is
        external
            "C"
        alias
            "exml_set_on_default_procedure_address"
        end

    c_exml_set_on_unparsed_entity_declaration_procedure_address (address: POINTER) is
        external
            "C"
        alias
            "exml_set_on_unparsed_entity_declaration_procedure_address"
        end

    c_exml_set_on_notation_declaration_procedure_address (address: POINTER) is
        external
            "C"
        alias
            "exml_set_on_notation_declaration_procedure_address"
        end

    c_exml_set_on_external_entity_reference_procedure_address (address: POINTER) is
        external
            "C"
        alias
            "exml_set_on_external_entity_reference_procedure_address"
        end

    c_exml_set_on_unkown_encoding_procedure_address (address: POINTER) is
        external
            "C"
        alias
            "exml_set_on_unkown_encoding_procedure_address"
        end




    -- Since ISE Eiffel has got a garbage collector that is able to move objects
    -- we need to tell it that the parser must not move.
    -- This way, we make sure the external C code can call the Eiffel code correct


    exml_release_object (object: POINTER) is
        external
            "C"
        end

    exml_adopt_object (object: like Current): POINTER is
        external
            "C"
        end



end
--|-------------------------------------------------------------------------
--| eXML, Eiffel XML Parser Toolkit
--| Copyright (C) 1999  Andreas Leitner
--| See the file forum.txt included in this package for licensing info.
--|
--| Comments, Questions, Additions to this library? please contact:
--|
--| Andreas Leitner
--| Arndtgasse 1/3/5
--| 8010 Graz
--| Austria
--| email: [e-mail]
--| web: http://exml.dhs.org
--|-------------------------------------------------------------------------