;;;; Code generated by CLORB

(IN-PACKAGE :NET.CDDR.CLORB)
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
  (ENSURE-CORBA-PACKAGE "DICTIONARY" :EXPORT
                        '("WORKSHOP/PCOUNT" "WORKSHOP/COUNT" "WORKSHOP/XLIST"
                          "WORKSHOP/PHIND" "WORKSHOP/PLIST" "WORKSHOP/FLIST"
                          "WORKSHOP/ZLIST" "WORKSHOP/LIST" "WORKSHOP/XEDIT"
                          "WORKSHOP/PEDIT" "WORKSHOP/EDIT" "WORKSHOP/XDESTROY"
                          "WORKSHOP/PDESTROY" "WORKSHOP/DESTROY"
                          "WORKSHOP/XCREATE" "WORKSHOP/PCREATE"
                          "WORKSHOP/CREATE" "WORKSHOP/ONCE" "WORKSHOP/M"
                          "WORKSHOP-PROXY" "WORKSHOP-SERVANT" "WORKSHOP"
                          "LOOKUP/ENUMERATE" "LOOKUP/PARADIGM" "LOOKUP/LOCATE"
                          "LOOKUP/FIND" "LOOKUP/INTERPRET" "LOOKUP/ETALSNART"
                          "LOOKUP/TRANSLATE" "LOOKUP-PROXY" "LOOKUP-SERVANT"
                          "LOOKUP" "NOPERMISSION" "OES" "NOTFOUND"
                          "INTERNALERROR" "ENTRIES" "ENTRY" "TRANSLATIONS"
                          "TRANSLATION" "EXAMPLES" "EXAMPLE" "WORDS" "WORD"
                          "BULLS" "OCTETS" "UTF8" "PART" "LANGUAGE" "DID")))

(DEFINE-ALIAS DICTIONARY:DID
  :ID "IDL:cymraeg.ru/Dictionary/Did:1.0"
  :NAME "Did"
  :TYPE OMG.ORG/CORBA:ULONG
  :TYPECODE OMG.ORG/CORBA:TC_ULONG)

(DEFINE-ALIAS DICTIONARY:LANGUAGE
  :ID "IDL:cymraeg.ru/Dictionary/Language:1.0"
  :NAME "Language"
  :TYPE OMG.ORG/CORBA:ULONG
  :TYPECODE OMG.ORG/CORBA:TC_ULONG)

(DEFINE-ALIAS DICTIONARY:PART
  :ID "IDL:cymraeg.ru/Dictionary/Part:1.0"
  :NAME "Part"
  :TYPE OMG.ORG/CORBA:ULONG
  :TYPECODE OMG.ORG/CORBA:TC_ULONG)

(DEFINE-ALIAS DICTIONARY:UTF8
  :ID "IDL:cymraeg.ru/Dictionary/utf8:1.0"
  :NAME "utf8"
  :TYPE SEQUENCE
  :TYPECODE (CREATE-SEQUENCE-TC 0 OMG.ORG/CORBA:TC_OCTET))

(DEFINE-ALIAS DICTIONARY:OCTETS
  :ID "IDL:cymraeg.ru/Dictionary/octets:1.0"
  :NAME "octets"
  :TYPE SEQUENCE
  :TYPECODE (CREATE-SEQUENCE-TC 0 OMG.ORG/CORBA:TC_OCTET))

(DEFINE-ALIAS DICTIONARY:BULLS
  :ID "IDL:cymraeg.ru/Dictionary/bulls:1.0"
  :NAME "bulls"
  :TYPE SEQUENCE
  :TYPECODE (CREATE-SEQUENCE-TC 0 OMG.ORG/CORBA:TC_BOOLEAN))

(DEFINE-STRUCT DICTIONARY:WORD
  :ID "IDL:cymraeg.ru/Dictionary/Word:1.0"
  :NAME "Word"
  :MEMBERS (("id" (SYMBOL-TYPECODE 'DICTIONARY:DID))
            ("lang" (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
            ("prt" (SYMBOL-TYPECODE 'DICTIONARY:PART))
            ("value" (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
            ("pron" (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
            ("attr" (SYMBOL-TYPECODE 'DICTIONARY:UTF8))))

(DEFINE-ALIAS DICTIONARY:WORDS
  :ID "IDL:cymraeg.ru/Dictionary/Words:1.0"
  :NAME "Words"
  :TYPE SEQUENCE
  :TYPECODE (CREATE-SEQUENCE-TC 0 (SYMBOL-TYPECODE 'DICTIONARY:WORD)))

(DEFINE-STRUCT DICTIONARY:EXAMPLE
  :ID "IDL:cymraeg.ru/Dictionary/Example:1.0"
  :NAME "Example"
  :MEMBERS (("id" (SYMBOL-TYPECODE 'DICTIONARY:DID))
            ("first" (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
            ("second" (SYMBOL-TYPECODE 'DICTIONARY:UTF8))))

(DEFINE-ALIAS DICTIONARY:EXAMPLES
  :ID "IDL:cymraeg.ru/Dictionary/Examples:1.0"
  :NAME "Examples"
  :TYPE SEQUENCE
  :TYPECODE (CREATE-SEQUENCE-TC 0 (SYMBOL-TYPECODE 'DICTIONARY:EXAMPLE)))

(DEFINE-STRUCT DICTIONARY:TRANSLATION
  :ID "IDL:cymraeg.ru/Dictionary/Translation:1.0"
  :NAME "Translation"
  :MEMBERS (("id" (SYMBOL-TYPECODE 'DICTIONARY:DID))
            ("first" (SYMBOL-TYPECODE 'DICTIONARY:WORD))
            ("second" (SYMBOL-TYPECODE 'DICTIONARY:WORD))
            ("note" (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
            ("usuality" OMG.ORG/CORBA:TC_ULONG)
            ("usage" (SYMBOL-TYPECODE 'DICTIONARY:EXAMPLES))))

(DEFINE-ALIAS DICTIONARY:TRANSLATIONS
  :ID "IDL:cymraeg.ru/Dictionary/Translations:1.0"
  :NAME "Translations"
  :TYPE SEQUENCE
  :TYPECODE (CREATE-SEQUENCE-TC 0 (SYMBOL-TYPECODE 'DICTIONARY:TRANSLATION)))

(DEFINE-STRUCT DICTIONARY:ENTRY
  :ID "IDL:cymraeg.ru/Dictionary/Entry:1.0"
  :NAME "Entry"
  :MEMBERS (("headword" (SYMBOL-TYPECODE 'DICTIONARY:WORD))
            ("meanings" (SYMBOL-TYPECODE 'DICTIONARY:TRANSLATIONS))))

(DEFINE-ALIAS DICTIONARY:ENTRIES
  :ID "IDL:cymraeg.ru/Dictionary/Entries:1.0"
  :NAME "Entries"
  :TYPE SEQUENCE
  :TYPECODE (CREATE-SEQUENCE-TC 0 (SYMBOL-TYPECODE 'DICTIONARY:ENTRY)))

(DEFINE-USER-EXCEPTION DICTIONARY:INTERNALERROR
  :ID "IDL:cymraeg.ru/Dictionary/InternalError:1.0"
  :NAME "InternalError"
  :VERSION "1.0"
  :DEFINED_IN :DICTIONARY
  :MEMBERS NIL)

(DEFINE-USER-EXCEPTION DICTIONARY:NOTFOUND
  :ID "IDL:cymraeg.ru/Dictionary/NotFound:1.0"
  :NAME "NotFound"
  :VERSION "1.0"
  :DEFINED_IN :DICTIONARY
  :MEMBERS NIL)

(DEFINE-USER-EXCEPTION DICTIONARY:OES
  :ID "IDL:cymraeg.ru/Dictionary/Oes:1.0"
  :NAME "Oes"
  :VERSION "1.0"
  :DEFINED_IN :DICTIONARY
  :MEMBERS NIL)

(DEFINE-USER-EXCEPTION DICTIONARY:NOPERMISSION
  :ID "IDL:cymraeg.ru/Dictionary/NoPermission:1.0"
  :NAME "NoPermission"
  :VERSION "1.0"
  :DEFINED_IN :DICTIONARY
  :MEMBERS NIL)

(DEFINE-INTERFACE DICTIONARY:LOOKUP (OBJECT)
 :PROXY (DICTIONARY:LOOKUP-PROXY DICTIONARY:LOOKUP OMG.ORG/CORBA:PROXY)
 :ID "IDL:cymraeg.ru/Dictionary/Lookup:1.0"
 :NAME "Lookup"
 :VERSION "1.0"
 :DEFINED_IN :DICTIONARY)

(DEFINE-CORBA-CLASS DICTIONARY:LOOKUP-SERVANT
                    (DICTIONARY:LOOKUP OMG.ORG/PORTABLESERVER:SERVANT)
                    :ATTRIBUTES NIL)

(DEFINE-OPERATION DICTIONARY:LOOKUP/TRANSLATE
  :ID "IDL:cymraeg.ru/Dictionary/Lookup/translate:1.0"
  :NAME "translate"
  :DEFINED_IN DICTIONARY:LOOKUP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:ENTRIES)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("word" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("from" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("to" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE)))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "TRANSLATE" ((OBJ DICTIONARY:LOOKUP-PROXY) _WORD _FROM _TO)
               (%JIT-CALL DICTIONARY:LOOKUP/TRANSLATE OBJ _WORD _FROM _TO))

(DEFMETHOD OMG.ORG/FEATURES:TRANSLATE
           ((SELF DICTIONARY:LOOKUP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:LOOKUP/ETALSNART
  :ID "IDL:cymraeg.ru/Dictionary/Lookup/etalsnart:1.0"
  :NAME "etalsnart"
  :DEFINED_IN DICTIONARY:LOOKUP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:ENTRIES)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("word" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("from" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("to" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE)))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "ETALSNART" ((OBJ DICTIONARY:LOOKUP-PROXY) _WORD _FROM _TO)
               (%JIT-CALL DICTIONARY:LOOKUP/ETALSNART OBJ _WORD _FROM _TO))

(DEFMETHOD OMG.ORG/FEATURES:ETALSNART
           ((SELF DICTIONARY:LOOKUP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:LOOKUP/INTERPRET
  :ID "IDL:cymraeg.ru/Dictionary/Lookup/interpret:1.0"
  :NAME "interpret"
  :DEFINED_IN DICTIONARY:LOOKUP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:ENTRIES)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("word" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("from" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("to" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("via" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE)))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "INTERPRET" ((OBJ DICTIONARY:LOOKUP-PROXY) _WORD _FROM _TO _VIA)
               (%JIT-CALL DICTIONARY:LOOKUP/INTERPRET OBJ _WORD _FROM _TO _VIA))

(DEFMETHOD OMG.ORG/FEATURES:INTERPRET
           ((SELF DICTIONARY:LOOKUP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:LOOKUP/FIND
  :ID "IDL:cymraeg.ru/Dictionary/Lookup/find:1.0"
  :NAME "find"
  :DEFINED_IN DICTIONARY:LOOKUP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:ENTRIES)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("word" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("to" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE)))
  :EXCEPTIONS (DICTIONARY:NOTFOUND DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "FIND" ((OBJ DICTIONARY:LOOKUP-PROXY) _WORD _TO)
               (%JIT-CALL DICTIONARY:LOOKUP/FIND OBJ _WORD _TO))

(DEFMETHOD OMG.ORG/FEATURES:FIND
           ((SELF DICTIONARY:LOOKUP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:LOOKUP/LOCATE
  :ID "IDL:cymraeg.ru/Dictionary/Lookup/locate:1.0"
  :NAME "locate"
  :DEFINED_IN DICTIONARY:LOOKUP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:WORDS)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("word" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("from" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE)))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "LOCATE" ((OBJ DICTIONARY:LOOKUP-PROXY) _WORD _FROM)
               (%JIT-CALL DICTIONARY:LOOKUP/LOCATE OBJ _WORD _FROM))

(DEFMETHOD OMG.ORG/FEATURES:LOCATE
           ((SELF DICTIONARY:LOOKUP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:LOOKUP/PARADIGM
  :ID "IDL:cymraeg.ru/Dictionary/Lookup/paradigm:1.0"
  :NAME "paradigm"
  :DEFINED_IN DICTIONARY:LOOKUP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:WORDS)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("word" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:NOTFOUND DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "PARADIGM" ((OBJ DICTIONARY:LOOKUP-PROXY) _WORD)
               (%JIT-CALL DICTIONARY:LOOKUP/PARADIGM OBJ _WORD))

(DEFMETHOD OMG.ORG/FEATURES:PARADIGM
           ((SELF DICTIONARY:LOOKUP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:LOOKUP/ENUMERATE
  :ID "IDL:cymraeg.ru/Dictionary/Lookup/enumerate:1.0"
  :NAME "enumerate"
  :DEFINED_IN DICTIONARY:LOOKUP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:WORDS)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("to" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("from" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE)))
  :EXCEPTIONS NIL)

(DEFINE-METHOD "ENUMERATE" ((OBJ DICTIONARY:LOOKUP-PROXY) _TO _FROM)
               (%JIT-CALL DICTIONARY:LOOKUP/ENUMERATE OBJ _TO _FROM))

(DEFMETHOD OMG.ORG/FEATURES:ENUMERATE
           ((SELF DICTIONARY:LOOKUP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-INTERFACE DICTIONARY:WORKSHOP (OBJECT)
 :PROXY (DICTIONARY:WORKSHOP-PROXY DICTIONARY:WORKSHOP OMG.ORG/CORBA:PROXY)
 :ID "IDL:cymraeg.ru/Dictionary/Workshop:1.0"
 :NAME "Workshop"
 :VERSION "1.0"
 :DEFINED_IN :DICTIONARY)

(DEFINE-CORBA-CLASS DICTIONARY:WORKSHOP-SERVANT
                    (DICTIONARY:WORKSHOP OMG.ORG/PORTABLESERVER:SERVANT)
                    :ATTRIBUTES NIL)

(DEFINE-ENUM DICTIONARY:WORKSHOP/M
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/M:1.0"
  :NAME "M"
  :MEMBERS ("B" "E" "F" "K" "S"))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/ONCE
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/once:1.0"
  :NAME "once"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:DID)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("user" :PARAM_IN OMG.ORG/CORBA:TC_STRING))
  :EXCEPTIONS (DICTIONARY:NOPERMISSION))

(DEFINE-METHOD "ONCE" ((OBJ DICTIONARY:WORKSHOP-PROXY) _USER)
               (%JIT-CALL DICTIONARY:WORKSHOP/ONCE OBJ _USER))

(DEFMETHOD OMG.ORG/FEATURES:ONCE
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/CREATE
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/create:1.0"
  :NAME "create"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:DID)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("table" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:WORKSHOP/M))
               ("c" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:WORD))
               ("check" :PARAM_IN OMG.ORG/CORBA:TC_BOOLEAN)
               ("user" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("digest" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:OCTETS))
               ("once" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:OES DICTIONARY:NOPERMISSION DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "CREATE"
               ((OBJ DICTIONARY:WORKSHOP-PROXY) _TABLE _C _CHECK _USER _DIGEST)
               (%JIT-CALL DICTIONARY:WORKSHOP/CREATE OBJ _TABLE _C _CHECK _USER
                          _DIGEST))

(DEFMETHOD OMG.ORG/FEATURES:CREATE
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/PCREATE
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/pcreate:1.0"
  :NAME "pcreate"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:DID)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("first" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("second" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("comment" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("usuality" :PARAM_IN OMG.ORG/CORBA:TC_ULONG)
               ("user" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("digest" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:OCTETS))
               ("once" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:OES DICTIONARY:NOPERMISSION DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "PCREATE"
               ((OBJ DICTIONARY:WORKSHOP-PROXY) _FIRST _SECOND _COMMENT
                _USUALITY _USER _DIGEST)
               (%JIT-CALL DICTIONARY:WORKSHOP/PCREATE OBJ _FIRST _SECOND
                          _COMMENT _USUALITY _USER _DIGEST))

(DEFMETHOD OMG.ORG/FEATURES:PCREATE
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/XCREATE
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/xcreate:1.0"
  :NAME "xcreate"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:DID)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("c" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:EXAMPLE))
               ("user" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("digest" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:OCTETS))
               ("once" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:NOPERMISSION DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "XCREATE" ((OBJ DICTIONARY:WORKSHOP-PROXY) _C _USER _DIGEST)
               (%JIT-CALL DICTIONARY:WORKSHOP/XCREATE OBJ _C _USER _DIGEST))

(DEFMETHOD OMG.ORG/FEATURES:XCREATE
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/DESTROY
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/destroy:1.0"
  :NAME "destroy"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("table" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:WORKSHOP/M))
               ("id" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("user" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("digest" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:OCTETS))
               ("once" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:NOPERMISSION DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "DESTROY"
               ((OBJ DICTIONARY:WORKSHOP-PROXY) _TABLE _ID _USER _DIGEST)
               (%JIT-CALL DICTIONARY:WORKSHOP/DESTROY OBJ _TABLE _ID _USER
                          _DIGEST))

(DEFMETHOD OMG.ORG/FEATURES:DESTROY
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/PDESTROY
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/pdestroy:1.0"
  :NAME "pdestroy"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("id" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("user" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("digest" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:OCTETS))
               ("once" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:NOPERMISSION DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "PDESTROY" ((OBJ DICTIONARY:WORKSHOP-PROXY) _ID _USER _DIGEST)
               (%JIT-CALL DICTIONARY:WORKSHOP/PDESTROY OBJ _ID _USER _DIGEST))

(DEFMETHOD OMG.ORG/FEATURES:PDESTROY
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/XDESTROY
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/xdestroy:1.0"
  :NAME "xdestroy"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("id" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("user" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("digest" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:OCTETS))
               ("once" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:NOPERMISSION DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "XDESTROY" ((OBJ DICTIONARY:WORKSHOP-PROXY) _ID _USER _DIGEST)
               (%JIT-CALL DICTIONARY:WORKSHOP/XDESTROY OBJ _ID _USER _DIGEST))

(DEFMETHOD OMG.ORG/FEATURES:XDESTROY
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/EDIT
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/edit:1.0"
  :NAME "edit"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("table" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:WORKSHOP/M))
               ("c" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:WORD))
               ("user" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("digest" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:OCTETS))
               ("once" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:NOTFOUND DICTIONARY:NOPERMISSION
                                   DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "EDIT" ((OBJ DICTIONARY:WORKSHOP-PROXY) _TABLE _C _USER _DIGEST)
               (%JIT-CALL DICTIONARY:WORKSHOP/EDIT OBJ _TABLE _C _USER _DIGEST))

(DEFMETHOD OMG.ORG/FEATURES:EDIT
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/PEDIT
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/pedit:1.0"
  :NAME "pedit"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("id" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("first" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("second" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("comment" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("usuality" :PARAM_IN OMG.ORG/CORBA:TC_ULONG)
               ("user" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("digest" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:OCTETS))
               ("once" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:NOTFOUND DICTIONARY:NOPERMISSION
                                   DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "PEDIT"
               ((OBJ DICTIONARY:WORKSHOP-PROXY) _ID _FIRST _SECOND _COMMENT
                _USUALITY _USER _DIGEST)
               (%JIT-CALL DICTIONARY:WORKSHOP/PEDIT OBJ _ID _FIRST _SECOND
                          _COMMENT _USUALITY _USER _DIGEST))

(DEFMETHOD OMG.ORG/FEATURES:PEDIT
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/XEDIT
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/xedit:1.0"
  :NAME "xedit"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_VOID
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("c" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:EXAMPLE))
               ("user" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("digest" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:OCTETS))
               ("once" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:NOTFOUND DICTIONARY:NOPERMISSION
                                   DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "XEDIT" ((OBJ DICTIONARY:WORKSHOP-PROXY) _C _USER _DIGEST)
               (%JIT-CALL DICTIONARY:WORKSHOP/XEDIT OBJ _C _USER _DIGEST))

(DEFMETHOD OMG.ORG/FEATURES:XEDIT
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/LIST
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/list:1.0"
  :NAME "list"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:WORDS)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("table" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:WORKSHOP/M))
               ("lang" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("mask" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("attr" :PARAM_IN OMG.ORG/CORBA:TC_BOOLEAN)
               ("prt" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:PART))
               ("pt" :PARAM_IN OMG.ORG/CORBA:TC_BOOLEAN)
               ("offset" :PARAM_IN OMG.ORG/CORBA:TC_ULONG)
               ("count" :PARAM_IN OMG.ORG/CORBA:TC_ULONG))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "LIST"
               ((OBJ DICTIONARY:WORKSHOP-PROXY) _TABLE _LANG _MASK _ATTR _PRT
                _PT _OFFSET _COUNT)
               (%JIT-CALL DICTIONARY:WORKSHOP/LIST OBJ _TABLE _LANG _MASK _ATTR
                          _PRT _PT _OFFSET _COUNT))

(DEFMETHOD OMG.ORG/FEATURES:LIST
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/ZLIST
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/zlist:1.0"
  :NAME "zlist"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:WORDS)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("lang" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("mask" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("word" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("offset" :PARAM_IN OMG.ORG/CORBA:TC_ULONG)
               ("count" :PARAM_IN OMG.ORG/CORBA:TC_ULONG)
               ("translations" :PARAM_OUT (SYMBOL-TYPECODE 'DICTIONARY:BULLS)))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "ZLIST"
               ((OBJ DICTIONARY:WORKSHOP-PROXY) _LANG _MASK _WORD _OFFSET
                _COUNT)
               (%JIT-CALL DICTIONARY:WORKSHOP/ZLIST OBJ _LANG _MASK _WORD
                          _OFFSET _COUNT))

(DEFMETHOD OMG.ORG/FEATURES:ZLIST
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/FLIST
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/flist:1.0"
  :NAME "flist"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:WORDS)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("word" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID))
               ("fork" :PARAM_IN OMG.ORG/CORBA:TC_BOOLEAN))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "FLIST" ((OBJ DICTIONARY:WORKSHOP-PROXY) _WORD _FORK)
               (%JIT-CALL DICTIONARY:WORKSHOP/FLIST OBJ _WORD _FORK))

(DEFMETHOD OMG.ORG/FEATURES:FLIST
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/PLIST
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/plist:1.0"
  :NAME "plist"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:TRANSLATIONS)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("fro" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("to" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("m" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("off" :PARAM_IN OMG.ORG/CORBA:TC_ULONG)
               ("cou" :PARAM_IN OMG.ORG/CORBA:TC_ULONG))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "PLIST" ((OBJ DICTIONARY:WORKSHOP-PROXY) _FRO _TO _M _OFF _COU)
               (%JIT-CALL DICTIONARY:WORKSHOP/PLIST OBJ _FRO _TO _M _OFF _COU))

(DEFMETHOD OMG.ORG/FEATURES:PLIST
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/PHIND
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/phind:1.0"
  :NAME "phind"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:TRANSLATION)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("tran" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:NOTFOUND DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "PHIND" ((OBJ DICTIONARY:WORKSHOP-PROXY) _TRAN)
               (%JIT-CALL DICTIONARY:WORKSHOP/PHIND OBJ _TRAN))

(DEFMETHOD OMG.ORG/FEATURES:PHIND
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/XLIST
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/xlist:1.0"
  :NAME "xlist"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT (SYMBOL-TYPECODE 'DICTIONARY:EXAMPLES)
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("tran" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:DID)))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "XLIST" ((OBJ DICTIONARY:WORKSHOP-PROXY) _TRAN)
               (%JIT-CALL DICTIONARY:WORKSHOP/XLIST OBJ _TRAN))

(DEFMETHOD OMG.ORG/FEATURES:XLIST
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/COUNT
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/count:1.0"
  :NAME "count"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_ULONG
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("lang" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("letter" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("limit" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8)))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "COUNT" ((OBJ DICTIONARY:WORKSHOP-PROXY) _LANG _LETTER _LIMIT)
               (%JIT-CALL DICTIONARY:WORKSHOP/COUNT OBJ _LANG _LETTER _LIMIT))

(DEFMETHOD OMG.ORG/FEATURES:COUNT
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))

(DEFINE-OPERATION DICTIONARY:WORKSHOP/PCOUNT
  :ID "IDL:cymraeg.ru/Dictionary/Workshop/pcount:1.0"
  :NAME "pcount"
  :DEFINED_IN DICTIONARY:WORKSHOP
  :VERSION "1.0"
  :RESULT OMG.ORG/CORBA:TC_ULONG
  :MODE :OP_NORMAL
  :CONTEXTS NIL
  :PARAMETERS (("from" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("to" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:LANGUAGE))
               ("letter" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8))
               ("limit" :PARAM_IN (SYMBOL-TYPECODE 'DICTIONARY:UTF8)))
  :EXCEPTIONS (DICTIONARY:INTERNALERROR))

(DEFINE-METHOD "PCOUNT"
               ((OBJ DICTIONARY:WORKSHOP-PROXY) _FROM _TO _LETTER _LIMIT)
               (%JIT-CALL DICTIONARY:WORKSHOP/PCOUNT OBJ _FROM _TO _LETTER
                          _LIMIT))

(DEFMETHOD OMG.ORG/FEATURES:PCOUNT
           ((SELF DICTIONARY:WORKSHOP-SERVANT) &REST -ARGS-)
           (DECLARE (IGNORE -ARGS-))
           (RAISE-SYSTEM-EXCEPTION 'OMG.ORG/CORBA:NO_IMPLEMENT))