cosnaming-stub.lisp

;;;; Code generated by CLORB

(IN-PACKAGE :NET.CDDR.CLORB)
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
  (ENSURE-CORBA-PACKAGE
    "COSNAMING"
    :EXPORT
    '("NAMINGCONTEXTEXT/RESOLVE_STR" "NAMINGCONTEXTEXT/TO_URL"
      "NAMINGCONTEXTEXT/INVALIDADDRESS" "NAMINGCONTEXTEXT/TO_NAME"
      "NAMINGCONTEXTEXT/TO_STRING" "NAMINGCONTEXTEXT/URLSTRING"
      "NAMINGCONTEXTEXT/ADDRESS" "NAMINGCONTEXTEXT/STRINGNAME"
      "NAMINGCONTEXTEXT-PROXY" "NAMINGCONTEXTEXT" "NAMINGCONTEXT/LIST"
      "NAMINGCONTEXT/DESTROY" "NAMINGCONTEXT/BIND_NEW_CONTEXT"
      "NAMINGCONTEXT/NEW_CONTEXT" "NAMINGCONTEXT/UNBIND"
      "NAMINGCONTEXT/RESOLVE" "NAMINGCONTEXT/REBIND_CONTEXT"
      "NAMINGCONTEXT/BIND_CONTEXT" "NAMINGCONTEXT/REBIND" "NAMINGCONTEXT/BIND"
      "NAMINGCONTEXT/NOTEMPTY" "NAMINGCONTEXT/ALREADYBOUND"
      "NAMINGCONTEXT/INVALIDNAME" "NAMINGCONTEXT/CANNOTPROCEED"
      "NAMINGCONTEXT/NOTFOUND" "NAMINGCONTEXT/NOTFOUNDREASON"
      "NAMINGCONTEXT-PROXY" "NAMINGCONTEXT" "BINDINGITERATOR/DESTROY"
      "BINDINGITERATOR/NEXT_N" "BINDINGITERATOR/NEXT_ONE"
      "BINDINGITERATOR-PROXY" "BINDINGITERATOR" "BINDINGLIST" "BINDING"
      "BINDINGTYPE" "NAME" "NAMECOMPONENT" "ISTRING")))

(DEFINE-ALIAS COSNAMING:ISTRING
  :ID "IDL:omg.org/CosNaming/Istring:1.0"
  :NAME "Istring"
  :TYPE OMG.ORG/CORBA:STRING
  :TYPECODE OMG.ORG/CORBA:TC_STRING)

(DEFINE-STRUCT COSNAMING:NAMECOMPONENT
  :ID "IDL:omg.org/CosNaming/NameComponent:1.0"
  :NAME "NameComponent"
  :MEMBERS (("id" (%SYMBOL-TYPECODE COSNAMING:ISTRING))
            ("kind" (%SYMBOL-TYPECODE COSNAMING:ISTRING))))

(DEFINE-ALIAS COSNAMING:NAME
  :ID "IDL:omg.org/CosNaming/Name:1.0"
  :NAME "Name"
  :TYPE SEQUENCE
  :TYPECODE (CREATE-SEQUENCE-TC 0 (%SYMBOL-TYPECODE COSNAMING:NAMECOMPONENT)))

(DEFINE-ENUM COSNAMING:BINDINGTYPE
  :ID "IDL:omg.org/CosNaming/BindingType:1.0"
  :NAME "BindingType"
  :MEMBERS ("nobject" "ncontext"))

(DEFINE-STRUCT COSNAMING:BINDING
  :ID "IDL:omg.org/CosNaming/Binding:1.0"
  :NAME "Binding"
  :MEMBERS (("binding_name" (%SYMBOL-TYPECODE COSNAMING:NAME))
            ("binding_type" (%SYMBOL-TYPECODE COSNAMING:BINDINGTYPE))))

(DEFINE-ALIAS COSNAMING:BINDINGLIST
  :ID "IDL:omg.org/CosNaming/BindingList:1.0"
  :NAME "BindingList"
  :TYPE SEQUENCE
  :TYPECODE (CREATE-SEQUENCE-TC 0 (%SYMBOL-TYPECODE COSNAMING:BINDING)))

(DEFINE-INTERFACE COSNAMING:BINDINGITERATOR (OBJECT)
 :PROXY (COSNAMING:BINDINGITERATOR-PROXY COSNAMING:BINDINGITERATOR
         OMG.ORG/CORBA:PROXY)
 :ID "IDL:omg.org/CosNaming/BindingIterator:1.0"
 :NAME "BindingIterator")

(DEFINE-OPERATION COSNAMING:BINDINGITERATOR/NEXT_ONE
  :ID "IDL:omg.org/CosNaming/BindingIterator/next_one:1.0"
  :NAME "next_one"
  :DEFINED_IN COSNAMING:BINDINGITERATOR
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_BOOLEAN
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("b" :PARAM_OUT (%SYMBOL-TYPECODE COSNAMING:BINDING)))
  :EXCEPTIONS NIL)

(DEFINE-METHOD "NEXT_ONE" ((OBJ COSNAMING:BINDINGITERATOR-PROXY))
  (%JIT-CALL COSNAMING:BINDINGITERATOR/NEXT_ONE OBJ))

(DEFINE-OPERATION COSNAMING:BINDINGITERATOR/NEXT_N
  :ID "IDL:omg.org/CosNaming/BindingIterator/next_n:1.0"
  :NAME "next_n"
  :DEFINED_IN COSNAMING:BINDINGITERATOR
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_BOOLEAN
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("how_many" :PARAM_IN OMG.ORG/CORBA:TC_ULONG)
               ("bl" :PARAM_OUT (%SYMBOL-TYPECODE COSNAMING:BINDINGLIST)))
  :EXCEPTIONS NIL)

(DEFINE-METHOD "NEXT_N" ((OBJ COSNAMING:BINDINGITERATOR-PROXY) _HOW_MANY)
  (%JIT-CALL COSNAMING:BINDINGITERATOR/NEXT_N OBJ _HOW_MANY))

(DEFINE-OPERATION COSNAMING:BINDINGITERATOR/DESTROY
  :ID "IDL:omg.org/CosNaming/BindingIterator/destroy:1.0"
  :NAME "destroy"
  :DEFINED_IN COSNAMING:BINDINGITERATOR
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS NIL
  :EXCEPTIONS NIL)

(DEFINE-METHOD "DESTROY" ((OBJ COSNAMING:BINDINGITERATOR-PROXY))
  (%JIT-CALL COSNAMING:BINDINGITERATOR/DESTROY OBJ))

(DEFINE-INTERFACE COSNAMING:NAMINGCONTEXT (OBJECT)
 :PROXY (COSNAMING:NAMINGCONTEXT-PROXY COSNAMING:NAMINGCONTEXT
         OMG.ORG/CORBA:PROXY)
 :ID "IDL:omg.org/CosNaming/NamingContext:1.0"
 :NAME "NamingContext")

(DEFINE-ENUM COSNAMING:NAMINGCONTEXT/NOTFOUNDREASON
  :ID "IDL:omg.org/CosNaming/NamingContext/NotFoundReason:1.0"
  :NAME "NotFoundReason"
  :MEMBERS ("missing_node" "not_context" "not_object"))

(DEFINE-USER-EXCEPTION COSNAMING:NAMINGCONTEXT/NOTFOUND
  :ID "IDL:omg.org/CosNaming/NamingContext/NotFound:1.0"
  :NAME "NotFound"
  :VERSION "1.0"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :MEMBERS (("why" (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXT/NOTFOUNDREASON))
            ("rest_of_name" (%SYMBOL-TYPECODE COSNAMING:NAME))))

(DEFINE-USER-EXCEPTION COSNAMING:NAMINGCONTEXT/CANNOTPROCEED
  :ID "IDL:omg.org/CosNaming/NamingContext/CannotProceed:1.0"
  :NAME "CannotProceed"
  :VERSION "1.0"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :MEMBERS (("cxt" (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXT))
            ("rest_of_name" (%SYMBOL-TYPECODE COSNAMING:NAME))))

(DEFINE-USER-EXCEPTION COSNAMING:NAMINGCONTEXT/INVALIDNAME
  :ID "IDL:omg.org/CosNaming/NamingContext/InvalidName:1.0"
  :NAME "InvalidName"
  :VERSION "1.0"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :MEMBERS NIL)

(DEFINE-USER-EXCEPTION COSNAMING:NAMINGCONTEXT/ALREADYBOUND
  :ID "IDL:omg.org/CosNaming/NamingContext/AlreadyBound:1.0"
  :NAME "AlreadyBound"
  :VERSION "1.0"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :MEMBERS NIL)

(DEFINE-USER-EXCEPTION COSNAMING:NAMINGCONTEXT/NOTEMPTY
  :ID "IDL:omg.org/CosNaming/NamingContext/NotEmpty:1.0"
  :NAME "NotEmpty"
  :VERSION "1.0"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :MEMBERS NIL)

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/BIND
  :ID "IDL:omg.org/CosNaming/NamingContext/bind:1.0"
  :NAME "bind"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("n" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAME))
               ("obj" :PARAM_IN OMG.ORG/CORBA:TC_OBJECT))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/NOTFOUND
                COSNAMING:NAMINGCONTEXT/CANNOTPROCEED
                COSNAMING:NAMINGCONTEXT/INVALIDNAME
                COSNAMING:NAMINGCONTEXT/ALREADYBOUND))

(DEFINE-METHOD "BIND" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY) _N _OBJ)
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/BIND OBJ _N _OBJ))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/REBIND
  :ID "IDL:omg.org/CosNaming/NamingContext/rebind:1.0"
  :NAME "rebind"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("n" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAME))
               ("obj" :PARAM_IN OMG.ORG/CORBA:TC_OBJECT))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/NOTFOUND
                COSNAMING:NAMINGCONTEXT/CANNOTPROCEED
                COSNAMING:NAMINGCONTEXT/INVALIDNAME))

(DEFINE-METHOD "REBIND" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY) _N _OBJ)
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/REBIND OBJ _N _OBJ))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/BIND_CONTEXT
  :ID "IDL:omg.org/CosNaming/NamingContext/bind_context:1.0"
  :NAME "bind_context"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("n" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAME))
               ("nc" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXT)))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/NOTFOUND
                COSNAMING:NAMINGCONTEXT/CANNOTPROCEED
                COSNAMING:NAMINGCONTEXT/INVALIDNAME
                COSNAMING:NAMINGCONTEXT/ALREADYBOUND))

(DEFINE-METHOD "BIND_CONTEXT" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY) _N _NC)
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/BIND_CONTEXT OBJ _N _NC))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/REBIND_CONTEXT
  :ID "IDL:omg.org/CosNaming/NamingContext/rebind_context:1.0"
  :NAME "rebind_context"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("n" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAME))
               ("nc" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXT)))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/NOTFOUND
                COSNAMING:NAMINGCONTEXT/CANNOTPROCEED
                COSNAMING:NAMINGCONTEXT/INVALIDNAME))

(DEFINE-METHOD "REBIND_CONTEXT" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY) _N _NC)
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/REBIND_CONTEXT OBJ _N _NC))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/RESOLVE
  :ID "IDL:omg.org/CosNaming/NamingContext/resolve:1.0"
  :NAME "resolve"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_OBJECT
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("n" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAME)))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/NOTFOUND
                COSNAMING:NAMINGCONTEXT/CANNOTPROCEED
                COSNAMING:NAMINGCONTEXT/INVALIDNAME))

(DEFINE-METHOD "RESOLVE" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY) _N)
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/RESOLVE OBJ _N))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/UNBIND
  :ID "IDL:omg.org/CosNaming/NamingContext/unbind:1.0"
  :NAME "unbind"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("n" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAME)))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/NOTFOUND
                COSNAMING:NAMINGCONTEXT/CANNOTPROCEED
                COSNAMING:NAMINGCONTEXT/INVALIDNAME))

(DEFINE-METHOD "UNBIND" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY) _N)
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/UNBIND OBJ _N))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/NEW_CONTEXT
  :ID "IDL:omg.org/CosNaming/NamingContext/new_context:1.0"
  :NAME "new_context"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXT)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS NIL
  :EXCEPTIONS NIL)

(DEFINE-METHOD "NEW_CONTEXT" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY))
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/NEW_CONTEXT OBJ))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/BIND_NEW_CONTEXT
  :ID "IDL:omg.org/CosNaming/NamingContext/bind_new_context:1.0"
  :NAME "bind_new_context"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXT)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("n" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAME)))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/NOTFOUND
                COSNAMING:NAMINGCONTEXT/ALREADYBOUND
                COSNAMING:NAMINGCONTEXT/CANNOTPROCEED
                COSNAMING:NAMINGCONTEXT/INVALIDNAME))

(DEFINE-METHOD "BIND_NEW_CONTEXT" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY) _N)
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/BIND_NEW_CONTEXT OBJ _N))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/DESTROY
  :ID "IDL:omg.org/CosNaming/NamingContext/destroy:1.0"
  :NAME "destroy"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS NIL
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/NOTEMPTY))

(DEFINE-METHOD "DESTROY" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY))
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/DESTROY OBJ))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXT/LIST
  :ID "IDL:omg.org/CosNaming/NamingContext/list:1.0"
  :NAME "list"
  :DEFINED_IN COSNAMING:NAMINGCONTEXT
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("how_many" :PARAM_IN OMG.ORG/CORBA:TC_ULONG)
               ("bl" :PARAM_OUT (%SYMBOL-TYPECODE COSNAMING:BINDINGLIST))
               ("bi" :PARAM_OUT (%SYMBOL-TYPECODE COSNAMING:BINDINGITERATOR)))
  :EXCEPTIONS NIL)

(DEFINE-METHOD "LIST" ((OBJ COSNAMING:NAMINGCONTEXT-PROXY) _HOW_MANY)
  (%JIT-CALL COSNAMING:NAMINGCONTEXT/LIST OBJ _HOW_MANY))

(DEFINE-INTERFACE COSNAMING:NAMINGCONTEXTEXT (COSNAMING:NAMINGCONTEXT)
 :PROXY (COSNAMING:NAMINGCONTEXTEXT-PROXY COSNAMING:NAMINGCONTEXTEXT
         COSNAMING:NAMINGCONTEXT-PROXY)
 :ID "IDL:omg.org/CosNaming/NamingContextExt:1.0"
 :NAME "NamingContextExt")

(DEFINE-ALIAS COSNAMING:NAMINGCONTEXTEXT/STRINGNAME
  :ID "IDL:omg.org/CosNaming/NamingContextExt/StringName:1.0"
  :NAME "StringName"
  :TYPE OMG.ORG/CORBA:STRING
  :TYPECODE OMG.ORG/CORBA:TC_STRING)

(DEFINE-ALIAS COSNAMING:NAMINGCONTEXTEXT/ADDRESS
  :ID "IDL:omg.org/CosNaming/NamingContextExt/Address:1.0"
  :NAME "Address"
  :TYPE OMG.ORG/CORBA:STRING
  :TYPECODE OMG.ORG/CORBA:TC_STRING)

(DEFINE-ALIAS COSNAMING:NAMINGCONTEXTEXT/URLSTRING
  :ID "IDL:omg.org/CosNaming/NamingContextExt/URLString:1.0"
  :NAME "URLString"
  :TYPE OMG.ORG/CORBA:STRING
  :TYPECODE OMG.ORG/CORBA:TC_STRING)

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXTEXT/TO_STRING
  :ID "IDL:omg.org/CosNaming/NamingContextExt/to_string:1.0"
  :NAME "to_string"
  :DEFINED_IN COSNAMING:NAMINGCONTEXTEXT
  :VERSION "1.0"
  :RESULT (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXTEXT/STRINGNAME)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("n" :PARAM_IN (%SYMBOL-TYPECODE COSNAMING:NAME)))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/INVALIDNAME))

(DEFINE-METHOD "TO_STRING" ((OBJ COSNAMING:NAMINGCONTEXTEXT-PROXY) _N)
  (%JIT-CALL COSNAMING:NAMINGCONTEXTEXT/TO_STRING OBJ _N))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXTEXT/TO_NAME
  :ID "IDL:omg.org/CosNaming/NamingContextExt/to_name:1.0"
  :NAME "to_name"
  :DEFINED_IN COSNAMING:NAMINGCONTEXTEXT
  :VERSION "1.0"
  :RESULT (%SYMBOL-TYPECODE COSNAMING:NAME)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("sn" :PARAM_IN
                (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXTEXT/STRINGNAME)))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/INVALIDNAME))

(DEFINE-METHOD "TO_NAME" ((OBJ COSNAMING:NAMINGCONTEXTEXT-PROXY) _SN)
  (%JIT-CALL COSNAMING:NAMINGCONTEXTEXT/TO_NAME OBJ _SN))

(DEFINE-USER-EXCEPTION COSNAMING:NAMINGCONTEXTEXT/INVALIDADDRESS
  :ID "IDL:omg.org/CosNaming/NamingContextExt/InvalidAddress:1.0"
  :NAME "InvalidAddress"
  :VERSION "1.0"
  :DEFINED_IN COSNAMING:NAMINGCONTEXTEXT
  :MEMBERS NIL)

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXTEXT/TO_URL
  :ID "IDL:omg.org/CosNaming/NamingContextExt/to_url:1.0"
  :NAME "to_url"
  :DEFINED_IN COSNAMING:NAMINGCONTEXTEXT
  :VERSION "1.0"
  :RESULT (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXTEXT/URLSTRING)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("addr" :PARAM_IN
                (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXTEXT/ADDRESS))
               ("sn" :PARAM_IN
                (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXTEXT/STRINGNAME)))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXTEXT/INVALIDADDRESS
                COSNAMING:NAMINGCONTEXT/INVALIDNAME))

(DEFINE-METHOD "TO_URL" ((OBJ COSNAMING:NAMINGCONTEXTEXT-PROXY) _ADDR _SN)
  (%JIT-CALL COSNAMING:NAMINGCONTEXTEXT/TO_URL OBJ _ADDR _SN))

(DEFINE-OPERATION COSNAMING:NAMINGCONTEXTEXT/RESOLVE_STR
  :ID "IDL:omg.org/CosNaming/NamingContextExt/resolve_str:1.0"
  :NAME "resolve_str"
  :DEFINED_IN COSNAMING:NAMINGCONTEXTEXT
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_OBJECT
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("n" :PARAM_IN
                (%SYMBOL-TYPECODE COSNAMING:NAMINGCONTEXTEXT/STRINGNAME)))
  :EXCEPTIONS (COSNAMING:NAMINGCONTEXT/NOTFOUND
                COSNAMING:NAMINGCONTEXT/CANNOTPROCEED
                COSNAMING:NAMINGCONTEXT/INVALIDNAME
                COSNAMING:NAMINGCONTEXT/ALREADYBOUND))

(DEFINE-METHOD "RESOLVE_STR" ((OBJ COSNAMING:NAMINGCONTEXTEXT-PROXY) _N)
  (%JIT-CALL COSNAMING:NAMINGCONTEXTEXT/RESOLVE_STR OBJ _N))