initial import

5 files changed, 1623 insertions, 0 deletions

diff --git a/cpputools/prj/d.lst b/cpputools/prj/d.lst
new file mode 100644
index 000000000000..3b8513d09e44
--- /dev/null
+++ b/cpputools/prj/d.lst
@@ -0,0 +1,4 @@
+..\%__SRC%\bin\regcomp.exe %_DEST%\bin%_EXT%\regcomp.exe
+..\%__SRC%\bin\regcomp %_DEST%\bin%_EXT%\regcomp
+..\%__SRC%\bin\uno.exe %_DEST%\bin%_EXT%\uno.exe
+..\%__SRC%\bin\uno %_DEST%\bin%_EXT%\uno
diff --git a/cpputools/source/registercomponent/makefile.mk b/cpputools/source/registercomponent/makefile.mk
new file mode 100644
index 000000000000..05ef898b4107
--- /dev/null
+++ b/cpputools/source/registercomponent/makefile.mk
@@ -0,0 +1,121 @@
+#*************************************************************************
+#
+#   $RCSfile: makefile.mk,v $
+#
+#   $Revision: 1.1.1.1 $
+#
+#   last change: $Author: hr $ $Date: 2000-09-18 16:14:43 $
+#
+#   The Contents of this file are made available subject to the terms of
+#   either of the following licenses
+#
+#          - GNU Lesser General Public License Version 2.1
+#          - Sun Industry Standards Source License Version 1.1
+#
+#   Sun Microsystems Inc., October, 2000
+#
+#   GNU Lesser General Public License Version 2.1
+#   =============================================
+#   Copyright 2000 by Sun Microsystems, Inc.
+#   901 San Antonio Road, Palo Alto, CA 94303, USA
+#
+#   This library is free software; you can redistribute it and/or
+#   modify it under the terms of the GNU Lesser General Public
+#   License version 2.1, as published by the Free Software Foundation.
+#
+#   This library is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#   Lesser General Public License for more details.
+#
+#   You should have received a copy of the GNU Lesser General Public
+#   License along with this library; if not, write to the Free Software
+#   Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+#   MA  02111-1307  USA
+#
+#
+#   Sun Industry Standards Source License Version 1.1
+#   =================================================
+#   The contents of this file are subject to the Sun Industry Standards
+#   Source License Version 1.1 (the "License"); You may not use this file
+#   except in compliance with the License. You may obtain a copy of the
+#   License at http://www.openoffice.org/license.html.
+#
+#   Software provided under this License is provided on an "AS IS" basis,
+#   WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+#   WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+#   MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+#   See the License for the specific provisions governing your rights and
+#   obligations concerning the Software.
+#
+#   The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+#
+#   Copyright: 2000 by Sun Microsystems, Inc.
+#
+#   All Rights Reserved.
+#
+#   Contributor(s): _______________________________________
+#
+#
+#
+#*************************************************************************
+
+PRJ=..$/..
+
+PRJNAME=cpputools
+TARGET=regcomp
+TARGETTYPE=CUI
+LIBTARGET=NO
+
+ENABLE_EXCEPTIONS=TRUE
+
+# --- Settings -----------------------------------------------------
+.INCLUDE :  svpre.mk
+.INCLUDE :  settings.mk
+.INCLUDE :  sv.mk
+
+UNOUCRDEP=$(SOLARBINDIR)$/applicat.rdb 
+UNOUCRRDB=$(SOLARBINDIR)$/applicat.rdb
+
+# output directory (one dir for each project)
+UNOUCROUT=$(OUT)$/inc
+
+# adding to inludepath
+INCPRE+=$(UNOUCROUT)
+
+UNOTYPES=\
+             com.sun.star.uno.TypeClass \
+             com.sun.star.lang.XMultiServiceFactory \
+             com.sun.star.lang.XSingleServiceFactory \
+             com.sun.star.lang.XComponent \
+            com.sun.star.registry.XImplementationRegistration
+
+# --- Files --------------------------------------------------------
+CDEFS += -DDLL_VERSION=\"$(UPD)$(DLLPOSTFIX)\"
+
+
+CXXFILES=	registercomponent.cxx
+
+
+APP1TARGET= $(TARGET)
+APP1OBJS=   $(OBJ)$/registercomponent.obj 
+
+APP1STDLIBS=\
+            $(SALLIB) \
+            $(VOSLIB) \
+            $(CPPULIB)	\
+            $(CPPUHELPERLIB)
+
+.IF "$(GUI)"=="WNT" || "$(COM)"=="GCC"
+APP1STDLIBS+= \
+            $(CPPULIB)
+.ENDIF
+
+.IF "$(GUI)"=="WNT"
+APP1STDLIBS+= \
+            $(LIBCIMT) \
+            $(LIBCMT)
+.ENDIF
+
+
+.INCLUDE :  target.mk
diff --git a/cpputools/source/registercomponent/registercomponent.cxx b/cpputools/source/registercomponent/registercomponent.cxx
new file mode 100644
index 000000000000..8d648b79e976
--- /dev/null
+++ b/cpputools/source/registercomponent/registercomponent.cxx
@@ -0,0 +1,469 @@
+/*************************************************************************
+ *
+ *  $RCSfile: registercomponent.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: hr $ $Date: 2000-09-18 16:14:43 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#include <stdio.h>
+#include <string.h>
+
+#include <cppuhelper/servicefactory.hxx>
+
+#include <com/sun/star/registry/XImplementationRegistration.hpp>
+#include <com/sun/star/registry/XSimpleRegistry.hpp>
+#include <com/sun/star/lang/XComponent.hpp>
+
+static void usingRegisterImpl()
+{
+    fprintf(stderr, "\nusing: regcomp -register|revoke -r registryfile -c locationUrl [-br registryfile] [-l componentLoaderUrl]\n");
+    fprintf(stderr, " Parameters:\n");
+    fprintf(stderr, "      -register              = register a new extern component.\n");
+    fprintf(stderr, "      -revoke                = revoke an extern component.\n\n");
+    fprintf(stderr, "      -br registryfile       = the name of the registry used for bootstrapping the program.\n"
+                    "                               If the bootstrap registry have the same name as the registration registry\n"
+                    "                               the -r option is optional.\n");
+    fprintf(stderr, "      -r registryfile        = the name of the registry (will be created if not exists).\n");
+    fprintf(stderr, "      -c locationUrls        = the location of a component (DLL, Class name or an url of a jar file)\n"
+                    "                               or a list of urls seperated by ';'. Note if a list of urls is specified, the\n"
+                    "                               components must all need the same loader.\n");
+    fprintf(stderr, "      -l componentLoaderUrl  = the name of the needed loader, if no loader is specified\n"
+                    "                               the 'com.sun.star.loader.SharedLibrary' is used.\n"
+                    "                               loaders: com.sun.star.loader.SharedLibrary | com.sun.star.loader.Java2\n\n");
+}
+
+
+using namespace ::com::sun::star::uno;
+using namespace ::com::sun::star::lang;
+using namespace ::com::sun::star::registry;
+
+using namespace cppu;
+using namespace rtl;
+
+class IllegalArgument
+{
+public:
+    IllegalArgument(const OString& rMessage)
+        : m_message(rMessage)
+        {}
+
+    OString m_message;
+};
+
+struct Options
+{
+    Options()
+        : bRegister(sal_False)
+        , bRevoke(sal_False)
+        , sLoaderName( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.loader.SharedLibrary") )
+        {}
+
+    sal_Bool bRegister;
+    sal_Bool bRevoke;
+    OUString sProgramName;
+    OUString sBootRegName;
+    OUString sRegName;
+    OUString sComponentUrls;
+    OUString sLoaderName;
+};
+
+sal_Bool parseOptions(int ac, char* av[], Options& rOptions, sal_Bool bCmdFile)
+    throw( IllegalArgument )
+{
+    sal_Bool    ret = sal_True;
+    sal_uInt16  i=0;
+
+    rOptions.sProgramName = OUString::createFromAscii(av[i++]);
+
+    if (!bCmdFile)
+    {
+        bCmdFile = sal_True;
+
+        if (ac < 2)
+        {
+            usingRegisterImpl();
+            ret = sal_False;
+        }
+    }
+
+    char    *s=NULL;
+    for (i; i < ac; i++)
+    {
+        if (av[i][0] == '-')
+        {
+            switch (av[i][1])
+            {
+                case 'r':
+                    if (strcmp(av[i], "-register") == 0)
+                    {
+                        rOptions.bRegister = sal_True;
+                    } else
+                    if (strcmp(av[i], "-revoke") == 0)
+                    {
+                        rOptions.bRevoke = sal_True;
+                    } else
+                    if (av[i][2] == '\0')
+                    {
+                        if (i < ac - 1 && av[i+1][0] != '-')
+                        {
+                            i++;
+                            rOptions.sRegName = OUString::createFromAscii(av[i]);
+                        } else
+                        {
+                            OString tmp("'-r', please check");
+                            if (i <= ac - 1)
+                            {
+                                tmp += " your input '" + OString(av[i+1]) + "'";
+                            }
+                            throw IllegalArgument(tmp);
+                        }
+                    } else
+                    {
+                        rOptions.sRegName = OUString::createFromAscii(av[i]+2);
+                    }
+                    break;
+                case 'b':
+                    if (av[i][2] != 'r')
+                    {
+                        OString tmp("'-b', invalid option!");
+                        throw IllegalArgument(tmp);
+                    }
+                    if (av[i][3] == '\0')
+                    {
+                        if (i < ac - 1 && av[i+1][0] != '-')
+                        {
+                            i++;
+                            rOptions.sBootRegName = OUString::createFromAscii(av[i]);
+                        } else
+                        {
+                            OString tmp("'-br', please check");
+                            if (i <= ac - 1)
+                            {
+                                tmp += " your input '" + OString(av[i+1]) + "'";
+                            }
+                            throw IllegalArgument(tmp);
+                        }
+                    } else
+                    {
+                        rOptions.sBootRegName = OUString::createFromAscii(av[i]+3);
+                    }
+                    break;
+                case 'c':
+                {
+                    OUString sUrls;
+                    if (av[i][2] == '\0')
+                    {
+                        if (i < ac - 1 && av[i+1][0] != '-')
+                        {
+                            i++;
+                            sUrls = OUString::createFromAscii(av[i]);
+                        } else
+                        {
+                            OString tmp("'-c', please check");
+                            if (i <= ac - 1)
+                            {
+                                tmp += " your input '" + OString(av[i+1]) + "'";
+                            }
+                            throw IllegalArgument(tmp);
+                        }
+                    } else
+                    {
+                        sUrls = OUString::createFromAscii(av[i]+2);
+                    }
+
+                    if (rOptions.sComponentUrls.getLength())
+                    {
+                        OUString tmp(rOptions.sComponentUrls + OUString(RTL_CONSTASCII_USTRINGPARAM(";")) + sUrls);
+                        rOptions.sComponentUrls = tmp;
+                    } else
+                    {
+                        rOptions.sComponentUrls = sUrls;
+                    }
+                    break;
+                }
+                case 'l':
+                {
+                    if (av[i][2] == '\0')
+                    {
+                        if (i < ac - 1 && av[i+1][0] != '-')
+                        {
+                            i++;
+                            rOptions.sLoaderName = OUString::createFromAscii(av[i]);
+                        } else
+                        {
+                            OString tmp("'-l', please check");
+                            if (i <= ac - 1)
+                            {
+                                tmp += " your input '" + OString(av[i+1]) + "'";
+                            }
+                            throw IllegalArgument(tmp);
+                        }
+                    } else
+                    {
+                        rOptions.sLoaderName = OUString::createFromAscii(av[i]+2);
+                    }
+                    break;
+                }
+            }
+        } else
+        {
+            if (av[i][0] == '@')
+            {
+                FILE* cmdFile = fopen(av[i]+1, "r");
+                  if( cmdFile == NULL )
+                  {
+                    usingRegisterImpl();
+                    ret = sal_False;
+                } else
+                {
+                    int rargc=0;
+                    char* rargv[512];
+                    char  buffer[512];
+
+                    while ( fscanf(cmdFile, "%s", buffer) != EOF )
+                    {
+                        rargv[rargc]= strdup(buffer);
+                        rargc++;
+                    }
+                    fclose(cmdFile);
+
+                    parseOptions(rargc, rargv, rOptions, bCmdFile);
+
+                    for (long i=0; i < rargc; i++)
+                    {
+                        free(rargv[i]);
+                    }
+                }
+            } else
+            {
+                usingRegisterImpl();
+                ret = sal_False;
+            }
+        }
+    }
+
+    return ret;
+}
+
+#if (defined UNX) || (defined OS2)
+int main( int argc, char * argv[] )
+#else
+void _cdecl main( int argc, char * argv[] )
+#endif
+{
+    sal_Bool    bRet = sal_False;
+    sal_uInt32  exitCode = 0;
+    Options     aOptions;
+
+    try
+    {
+        if ( !parseOptions(argc, argv, aOptions, sal_False) )
+        {
+            exit(1);
+        }
+    }
+    catch ( IllegalArgument& e)
+    {
+        fprintf(stderr, "ERROR: %s\n", e.m_message.getStr());
+        exit(1);
+    }
+
+    Reference< XMultiServiceFactory >   xSMgr;
+    Reference< XSimpleRegistry >        xReg;
+
+    try
+    {
+        if ( aOptions.sBootRegName.getLength() )
+        {
+            xSMgr = createRegistryServiceFactory( aOptions.sBootRegName );
+        } else
+          {
+            xSMgr = createServiceFactory();
+        }
+    }
+    catch( Exception& e )
+    {
+        fprintf(stderr, "ERROR: create ServiceManager failed!\n");
+        if ( e.Message.getLength() )
+        {
+            fprintf(stderr, "ERROR description: %s\n", OUStringToOString(e.Message, RTL_TEXTENCODING_ASCII_US).getStr());
+        }
+        exit(1);
+    }
+
+    OString     sRegName;
+    if ( aOptions.sRegName.getLength() )
+    {
+        sRegName = OUStringToOString(aOptions.sRegName, RTL_TEXTENCODING_ASCII_US);
+    } else
+    {
+        sRegName = OUStringToOString(aOptions.sBootRegName, RTL_TEXTENCODING_ASCII_US);
+    }
+
+
+    if ( aOptions.sComponentUrls.getLength() == 0 )
+    {
+        fprintf(stderr, "ERROR: no component url is specified!\n");
+        exit(1);
+    }
+
+    if ( !sRegName.equals(OUStringToOString(aOptions.sBootRegName, RTL_TEXTENCODING_ASCII_US)) )
+    {
+        xReg = Reference< XSimpleRegistry >( xSMgr->createInstance(rtl::OUString::createFromAscii("com.sun.star.registry.SimpleRegistry")), UNO_QUERY);
+
+        if (xReg.is())
+        {
+            try
+            {
+                xReg->open( aOptions.sRegName, sal_False, sal_True);
+                if (!xReg->isValid())
+                {
+                    fprintf(stderr, "ERROR: open|create registry \"%s\" failed!\n", sRegName.getStr());
+                    exit(1);
+                }
+            }
+            catch( InvalidRegistryException&)
+            {
+                fprintf(stderr, "ERROR: create registry \"%s\" failed!\n", sRegName.getStr());
+                exit(1);
+            }
+        }
+    }
+
+    Reference< XImplementationRegistration > xImplRegistration( xSMgr->createInstance(rtl::OUString::createFromAscii("com.sun.star.registry.ImplementationRegistration")), UNO_QUERY);
+
+    if (xImplRegistration.is())
+    {
+        if ( aOptions.bRegister && aOptions.sComponentUrls.getLength() )
+        {
+            OUString    urls( aOptions.sComponentUrls );
+            OUString    url;
+            OString     sUrl;
+            sal_Int32   count = urls.getTokenCount(';');
+
+            for (sal_Int32 i=0; i < count; i++)
+            {
+                try
+                {
+                    url = urls.getToken(i, ';');
+                    sUrl = OUStringToOString(url, RTL_TEXTENCODING_ASCII_US);
+                    xImplRegistration->registerImplementation(aOptions.sLoaderName, url, xReg);
+
+                    fprintf(stderr, "\nregister component \"%s\" in registry \"%s\" succesful!\n", sUrl.getStr(), sRegName.getStr());
+                }
+                catch( CannotRegisterImplementationException& e)
+                {
+                    OString aMessage( OUStringToOString(e.Message, RTL_TEXTENCODING_ASCII_US) );
+                    fprintf(stderr, "\nregister component \"%s\" in registry \"%s\" failed!\n", sUrl.getStr(), sRegName.getStr());
+                    fprintf(stderr, "\nERROR: %s\n", aMessage.getStr() );
+                    exitCode++;
+                }
+            }
+        } else
+        if ( aOptions.bRevoke && aOptions.sComponentUrls.getLength() )
+        {
+            OUString    urls( aOptions.sComponentUrls );
+            OUString    url;
+            OString     sUrl;
+            sal_Int32   count = urls.getTokenCount(';');
+
+            for (sal_Int32 i=0; i < count; i++)
+            {
+                try
+                {
+                    url = urls.getToken(i, ';');
+                    sUrl = OUStringToOString(url, RTL_TEXTENCODING_ASCII_US);
+                    bRet = xImplRegistration->revokeImplementation(url, xReg);
+
+                    if (bRet)
+                        fprintf(stderr, "\nrevoke component \"%s\" from registry \"%s\" succesful!\n", sUrl.getStr(), sRegName.getStr());
+                    else
+                    {
+                        fprintf(stderr, "\nrevoke component \"%s\" from registry \"%s\" failed!\n", sUrl.getStr(), sRegName.getStr());
+                        exitCode++;
+                    }
+                }
+                catch( CannotRegisterImplementationException& e )
+                {
+                    OString aMessage( OUStringToOString(e.Message, RTL_TEXTENCODING_ASCII_US) );
+                    fprintf(stderr, "\nrevoke component \"%s\" from registry \"%s\" failed!\n", sUrl.getStr(), sRegName.getStr());
+                    fprintf(stderr, "\nERROR: %s\n", aMessage.getStr() );
+                    exitCode++;
+                }
+            }
+        } else
+        {
+            usingRegisterImpl();
+            exitCode++;
+        }
+    } else
+    {
+        fprintf(stderr, "\nComponent registration service could not be loaded!\n");
+        exitCode++;
+    }
+
+    if (!bRet && xReg.is() && xReg->isValid())
+        xReg->close();
+
+    Reference< XComponent > xComponent( xSMgr, UNO_QUERY );
+    if ( xComponent.is() )
+        xComponent->dispose();
+
+    exit(exitCode);
+}
+
+
diff --git a/cpputools/source/unoexe/makefile.mk b/cpputools/source/unoexe/makefile.mk
new file mode 100644
index 000000000000..11490ed7d00c
--- /dev/null
+++ b/cpputools/source/unoexe/makefile.mk
@@ -0,0 +1,123 @@
+#*************************************************************************
+#
+#   $RCSfile: makefile.mk,v $
+#
+#   $Revision: 1.1.1.1 $
+#
+#   last change: $Author: hr $ $Date: 2000-09-18 16:14:43 $
+#
+#   The Contents of this file are made available subject to the terms of
+#   either of the following licenses
+#
+#          - GNU Lesser General Public License Version 2.1
+#          - Sun Industry Standards Source License Version 1.1
+#
+#   Sun Microsystems Inc., October, 2000
+#
+#   GNU Lesser General Public License Version 2.1
+#   =============================================
+#   Copyright 2000 by Sun Microsystems, Inc.
+#   901 San Antonio Road, Palo Alto, CA 94303, USA
+#
+#   This library is free software; you can redistribute it and/or
+#   modify it under the terms of the GNU Lesser General Public
+#   License version 2.1, as published by the Free Software Foundation.
+#
+#   This library is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#   Lesser General Public License for more details.
+#
+#   You should have received a copy of the GNU Lesser General Public
+#   License along with this library; if not, write to the Free Software
+#   Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+#   MA  02111-1307  USA
+#
+#
+#   Sun Industry Standards Source License Version 1.1
+#   =================================================
+#   The contents of this file are subject to the Sun Industry Standards
+#   Source License Version 1.1 (the "License"); You may not use this file
+#   except in compliance with the License. You may obtain a copy of the
+#   License at http://www.openoffice.org/license.html.
+#
+#   Software provided under this License is provided on an "AS IS" basis,
+#   WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+#   WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+#   MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+#   See the License for the specific provisions governing your rights and
+#   obligations concerning the Software.
+#
+#   The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+#
+#   Copyright: 2000 by Sun Microsystems, Inc.
+#
+#   All Rights Reserved.
+#
+#   Contributor(s): _______________________________________
+#
+#
+#
+#*************************************************************************
+PRJ=..$/..
+
+PRJNAME=cpputools
+TARGET=uno
+TARGETTYPE=CUI
+LIBTARGET=NO
+ENABLE_EXCEPTIONS=TRUE
+NO_BSYMBOLIC=TRUE
+
+# --- Settings -----------------------------------------------------
+
+.INCLUDE :  svpre.mk
+.INCLUDE :  settings.mk
+.INCLUDE :  sv.mk
+
+UNOUCRDEP=$(SOLARBINDIR)$/applicat.rdb 
+UNOUCRRDB=$(SOLARBINDIR)$/applicat.rdb
+
+UNOUCROUT=$(OUT)$/inc
+INCPRE+=$(OUT)$/inc
+
+UNOTYPES= \
+     com.sun.star.uno.TypeClass \
+     com.sun.star.uno.XAggregation \
+     com.sun.star.uno.XWeak \
+     com.sun.star.lang.XTypeProvider \
+    com.sun.star.lang.XMain \
+     com.sun.star.lang.XInitialization \
+     com.sun.star.lang.XComponent \
+     com.sun.star.lang.XSingleServiceFactory \
+     com.sun.star.lang.XMultiServiceFactory \
+     com.sun.star.container.XSet \
+    com.sun.star.loader.XImplementationLoader \
+    com.sun.star.registry.XSimpleRegistry \
+    com.sun.star.registry.XRegistryKey \
+    com.sun.star.connection.XAcceptor \
+    com.sun.star.connection.XConnection \
+    com.sun.star.bridge.XBridgeFactory \
+    com.sun.star.bridge.XBridge
+
+# --- Files --------------------------------------------------------
+
+CXXFILES= \
+    unoexe.cxx
+
+APP1TARGET=$(TARGET)
+APP1OBJS=$(OBJ)$/unoexe.obj 
+
+# NETBSD: somewhere we have to instantiate the static data members.
+# NETBSD-1.2.1 doesn't know about weak symbols so the default mechanism for GCC won't work.
+# SCO and MACOSX: the linker does know about weak symbols, but we can't ignore multiple defined symbols
+.IF "$(OS)"=="NETBSD" || "$(OS)"=="SCO" || "$(OS)$(COM)"=="OS2GCC" || "$(OS)"=="MACOSX"
+APP1OBJS+=$(OBJ)$/staticmb.obj
+.ENDIF
+
+APP1STDLIBS= \
+    $(SALLIB)		\
+    $(CPPULIB)		\
+    $(CPPUHELPERLIB)
+
+.INCLUDE :  target.mk
+
diff --git a/cpputools/source/unoexe/unoexe.cxx b/cpputools/source/unoexe/unoexe.cxx
new file mode 100644
index 000000000000..4f5e4aca1844
--- /dev/null
+++ b/cpputools/source/unoexe/unoexe.cxx
@@ -0,0 +1,906 @@
+/*************************************************************************
+ *
+ *  $RCSfile: unoexe.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: hr $ $Date: 2000-09-18 16:14:43 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#include <stdio.h>
+#include <stl/vector>
+
+#include <osl/diagnose.h>
+#include <osl/mutex.hxx>
+#include <osl/conditn.hxx>
+#include <osl/module.h>
+
+#include <rtl/string.h>
+#include <rtl/strbuf.hxx>
+#include <rtl/ustrbuf.hxx>
+
+#include <uno/environment.h>
+#include <uno/mapping.hxx>
+
+#include <cppuhelper/factory.hxx>
+#include <cppuhelper/servicefactory.hxx>
+#include <cppuhelper/implbase1.hxx>
+
+#include <com/sun/star/lang/XMain.hpp>
+#include <com/sun/star/lang/XInitialization.hpp>
+#include <com/sun/star/lang/XComponent.hpp>
+#include <com/sun/star/lang/XSingleServiceFactory.hpp>
+#include <com/sun/star/lang/XMultiServiceFactory.hpp>
+#include <com/sun/star/lang/XEventListener.hpp>
+#include <com/sun/star/container/XSet.hpp>
+#include <com/sun/star/loader/XImplementationLoader.hpp>
+#include <com/sun/star/registry/XSimpleRegistry.hpp>
+#include <com/sun/star/registry/XRegistryKey.hpp>
+#include <com/sun/star/connection/XAcceptor.hpp>
+#include <com/sun/star/connection/XConnection.hpp>
+#include <com/sun/star/bridge/XBridgeFactory.hpp>
+#include <com/sun/star/bridge/XBridge.hpp>
+
+using namespace std;
+using namespace rtl;
+using namespace osl;
+using namespace cppu;
+using namespace com::sun::star::uno;
+using namespace com::sun::star::lang;
+using namespace com::sun::star::loader;
+using namespace com::sun::star::registry;
+using namespace com::sun::star::connection;
+using namespace com::sun::star::bridge;
+using namespace com::sun::star::container;
+
+
+namespace unoexe
+{
+
+//--------------------------------------------------------------------------------------------------
+static inline void out( const sal_Char * pText )
+{
+    fprintf( stderr, pText );
+}
+//--------------------------------------------------------------------------------------------------
+static inline void out( const OUString & rText )
+{
+    OString aText( OUStringToOString( rText, RTL_TEXTENCODING_ASCII_US ) );
+    fprintf( stderr, aText.getStr() );
+}
+
+//--------------------------------------------------------------------------------------------------
+static const char arUsingText[] =
+"\nusing:\n\n"
+"uno (-c ComponentImplementationName -l LocationUrl | -s ServiceName)\n"
+"    [-r Registry1] [-r Registry2] ...\n"
+"    [-u uno:(socket[,host=HostName][,port=nnn]|pipe[,name=PipeName]);iiop;Name\n"
+"        [--singleaccept] [--singleinstance]]\n"
+"    [-- Argument1 Argument2 ...]\n";
+
+//--------------------------------------------------------------------------------------------------
+static sal_Bool readOption( OUString * pValue, sal_Char cOpt,
+                            sal_Int32 * pnIndex, const sal_Char * argv[], sal_Int32 argc )
+    throw (RuntimeException)
+{
+    const sal_Char * pArg = argv[ *pnIndex ];
+
+    cOpt |= 0x20; // ascii lower case
+    if (pArg[0] && pArg[0] == '-' && (pArg[1] | 0x20) == cOpt) // right option
+    {
+        if (pArg[2])
+        {
+            *pValue = OUString::createFromAscii( pArg+2 );
+        }
+        else // take next argument
+        {
+            ++(*pnIndex);
+            if (*pnIndex >= argc || argv[ *pnIndex ][0] == '-')
+            {
+                OUStringBuffer buf( 32 );
+                buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("incomplete option \"-") );
+                buf.appendAscii( &cOpt, 1 );
+                buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" given!") );
+                throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
+            }
+            *pValue = OUString::createFromAscii( argv[ *pnIndex ] );
+        }
+        ++(*pnIndex);
+        return sal_True;
+    }
+    return sal_False;
+}
+//--------------------------------------------------------------------------------------------------
+static sal_Bool readOption( sal_Bool * pbOpt, const sal_Char * pOpt,
+                            sal_Int32 * pnIndex, const sal_Char * argv[], sal_Int32 argc )
+{
+    const sal_Char * pArg = argv[ *pnIndex ];
+    if (pArg[0] == '-' && pArg[1] == '-' && rtl_str_equalsIgnoreCase( pArg+2, pOpt ))
+    {
+        ++(*pnIndex);
+        *pbOpt = sal_True;
+        return sal_True;
+    }
+    return sal_False;
+}
+
+
+//##################################################################################################
+//##################################################################################################
+//##################################################################################################
+
+
+//==================================================================================================
+Reference< XSingleServiceFactory > loadLibComponentFactory(
+    const OUString & rLibName, const OUString & rImplName,
+    const Reference< XMultiServiceFactory > & xSF, const Reference< XRegistryKey > & xKey )
+{
+    Reference< XSingleServiceFactory > xRet;
+
+    OUStringBuffer aLibNameBuf( 32 );
+#ifdef SAL_UNX
+    aLibNameBuf.appendAscii( RTL_CONSTASCII_STRINGPARAM("lib") );
+    aLibNameBuf.append( rLibName );
+    aLibNameBuf.appendAscii( RTL_CONSTASCII_STRINGPARAM(".so") );
+#else
+    aLibNameBuf.append( rLibName );
+    aLibNameBuf.appendAscii( RTL_CONSTASCII_STRINGPARAM(".dll") );
+#endif
+    OUString aLibName( aLibNameBuf.makeStringAndClear() );
+    oslModule lib = osl_loadModule( aLibName.pData, SAL_LOADMODULE_LAZY | SAL_LOADMODULE_GLOBAL );
+
+    if (lib)
+    {
+        void * pSym;
+
+        // ========================= LATEST VERSION =========================
+        OUString aGetEnvName( RTL_CONSTASCII_USTRINGPARAM(COMPONENT_GETENV) );
+        if (pSym = osl_getSymbol( lib, aGetEnvName.pData ))
+        {
+            uno_Environment * pCurrentEnv = 0;
+            uno_Environment * pEnv = 0;
+            const sal_Char * pEnvTypeName = 0;
+            (*((component_getImplementationEnvironmentFunc)pSym))( &pEnvTypeName, &pEnv );
+
+            sal_Bool bNeedsMapping =
+                (pEnv || 0 != rtl_str_compare( pEnvTypeName, CPPU_CURRENT_LANGUAGE_BINDING_NAME ));
+
+            OUString aEnvTypeName( OUString::createFromAscii( pEnvTypeName ) );
+
+            if (bNeedsMapping)
+            {
+                if (! pEnv)
+                    uno_getEnvironment( &pEnv, aEnvTypeName.pData, 0 );
+                if (pEnv)
+                {
+                    OUString aCppEnvTypeName( RTL_CONSTASCII_USTRINGPARAM(CPPU_CURRENT_LANGUAGE_BINDING_NAME) );
+                    uno_getEnvironment( &pCurrentEnv, aCppEnvTypeName.pData, 0 );
+                    if (pCurrentEnv)
+                        bNeedsMapping = (pEnv != pCurrentEnv);
+                }
+            }
+
+            OUString aGetFactoryName( RTL_CONSTASCII_USTRINGPARAM(COMPONENT_GETFACTORY) );
+            if (pSym = osl_getSymbol( lib, aGetFactoryName.pData ))
+            {
+                OString aImplName( OUStringToOString( rImplName, RTL_TEXTENCODING_ASCII_US ) );
+
+                if (bNeedsMapping)
+                {
+                    if (pEnv && pCurrentEnv)
+                    {
+                        Mapping aCurrent2Env( pCurrentEnv, pEnv );
+                        Mapping aEnv2Current( pEnv, pCurrentEnv );
+
+                        if (aCurrent2Env.is() && aEnv2Current.is())
+                        {
+                            void * pSMgr = aCurrent2Env.mapInterface(
+                                xSF.get(), ::getCppuType( (const Reference< XMultiServiceFactory > *)0 ) );
+                            void * pKey = aCurrent2Env.mapInterface(
+                                xKey.get(), ::getCppuType( (const Reference< XRegistryKey > *)0 ) );
+
+                            void * pSSF = (*((component_getFactoryFunc)pSym))(
+                                aImplName.getStr(), pSMgr, pKey );
+
+                            if (pKey)
+                                (*pEnv->pExtEnv->releaseInterface)( pEnv->pExtEnv, pKey );
+                            if (pSMgr)
+                                (*pEnv->pExtEnv->releaseInterface)( pEnv->pExtEnv, pSMgr );
+
+                            if (pSSF)
+                            {
+                                aEnv2Current.mapInterface(
+                                    reinterpret_cast< void ** >( &xRet ),
+                                    pSSF, ::getCppuType( (const Reference< XSingleServiceFactory > *)0 ) );
+                                (*pEnv->pExtEnv->releaseInterface)( pEnv->pExtEnv, pSSF );
+                            }
+                        }
+                    }
+                }
+                else
+                {
+                    XSingleServiceFactory * pRet = (XSingleServiceFactory *)
+                        (*((component_getFactoryFunc)pSym))(
+                            aImplName.getStr(), xSF.get(), xKey.get() );
+                    if (pRet)
+                    {
+                        xRet = pRet;
+                        pRet->release();
+                    }
+                }
+            }
+
+            if (pEnv)
+                (*pEnv->release)( pEnv );
+            if (pCurrentEnv)
+                (*pCurrentEnv->release)( pCurrentEnv );
+        }
+
+        // ========================= PREVIOUS VERSION =========================
+        else
+        {
+            OUString aGetFactoryName( RTL_CONSTASCII_USTRINGPARAM(CREATE_COMPONENT_FACTORY_FUNCTION) );
+            if (pSym = osl_getSymbol( lib, aGetFactoryName.pData ))
+            {
+                OUString aCppEnvTypeName( RTL_CONSTASCII_USTRINGPARAM(CPPU_CURRENT_LANGUAGE_BINDING_NAME) );
+                OUString aUnoEnvTypeName( RTL_CONSTASCII_USTRINGPARAM(UNO_LB_UNO) );
+                Mapping aUno2Cpp( aUnoEnvTypeName, aCppEnvTypeName );
+                Mapping aCpp2Uno( aCppEnvTypeName, aUnoEnvTypeName );
+                OSL_ENSHURE( aUno2Cpp.is() && aCpp2Uno.is(), "### cannot get uno mappings!" );
+
+                if (aUno2Cpp.is() && aCpp2Uno.is())
+                {
+                    uno_Interface * pUComponentFactory = 0;
+
+                    uno_Interface * pUSFactory = (uno_Interface *)aCpp2Uno.mapInterface(
+                        xSF.get(), ::getCppuType( (const Reference< XMultiServiceFactory > *)0 ) );
+                    uno_Interface * pUKey = (uno_Interface *)aCpp2Uno.mapInterface(
+                        xKey.get(), ::getCppuType( (const Reference< XRegistryKey > *)0 ) );
+
+                    pUComponentFactory = (*((CreateComponentFactoryFunc)pSym))(
+                        rImplName.getStr(), pUSFactory, pUKey );
+
+                    if (pUKey)
+                        (*pUKey->release)( pUKey );
+                    if (pUSFactory)
+                        (*pUSFactory->release)( pUSFactory );
+
+                    if (pUComponentFactory)
+                    {
+                        XSingleServiceFactory * pXFactory =
+                            (XSingleServiceFactory *)aUno2Cpp.mapInterface(
+                                pUComponentFactory, ::getCppuType( (const Reference< XSingleServiceFactory > *)0 ) );
+                        (*pUComponentFactory->release)( pUComponentFactory );
+
+                        if (pXFactory)
+                        {
+                            xRet = pXFactory;
+                            pXFactory->release();
+                        }
+                    }
+                }
+            }
+        }
+
+        if (! xRet.is())
+            osl_unloadModule( lib );
+    }
+
+    return xRet;
+}
+//--------------------------------------------------------------------------------------------------
+template< class T >
+void createInstance( Reference< T > & rxOut,
+                            const Reference< XMultiServiceFactory > & xMgr,
+                            const OUString & rServiceName )
+    throw (Exception)
+{
+    Reference< XInterface > x( xMgr->createInstance( rServiceName ), UNO_QUERY );
+
+    if (! x.is())
+    {
+        static sal_Bool s_bSet = sal_False;
+        if (! s_bSet)
+        {
+            MutexGuard aGuard( Mutex::getGlobalMutex() );
+            if (! s_bSet)
+            {
+                Reference< XSet > xSet( xMgr, UNO_QUERY );
+                if (xSet.is())
+                {
+                    // acceptor
+                    xSet->insert( makeAny( loadLibComponentFactory(
+                        OUString( RTL_CONSTASCII_USTRINGPARAM("acceptor") ),
+                        OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.io.Acceptor") ),
+                        xMgr, Reference< XRegistryKey >() ) ) );
+                    // connector
+                    xSet->insert( makeAny( loadLibComponentFactory(
+                        OUString( RTL_CONSTASCII_USTRINGPARAM("connectr") ),
+                        OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.io.Connector") ),
+                        xMgr, Reference< XRegistryKey >() ) ) );
+                    // iiop bridge
+                    xSet->insert( makeAny( loadLibComponentFactory(
+                        OUString( RTL_CONSTASCII_USTRINGPARAM("iiopbrdg") ),
+                        OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.remotebridges.Bridge.various") ),
+                        xMgr, Reference< XRegistryKey >() ) ) );
+                    // bridge factory
+                    xSet->insert( makeAny( loadLibComponentFactory(
+                        OUString( RTL_CONSTASCII_USTRINGPARAM("brdgfctr") ),
+                        OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.remotebridges.BridgeFactory") ),
+                        xMgr, Reference< XRegistryKey >() ) ) );
+                }
+                s_bSet = sal_True;
+            }
+        }
+        x = xMgr->createInstance( rServiceName );
+    }
+
+    if (! x.is())
+    {
+        OUStringBuffer buf( 64 );
+        buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("cannot get service instance \"") );
+        buf.append( rServiceName );
+        buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
+        throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
+    }
+
+    rxOut = Reference< T >::query( x );
+    if (! rxOut.is())
+    {
+        OUStringBuffer buf( 64 );
+        buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("service instance \"") );
+        buf.append( rServiceName );
+        buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" does not support demanded interface \"") );
+        const Type & rType = ::getCppuType( (const Reference< T > *)0 );
+        buf.append( rType.getTypeName() );
+        buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
+        throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
+    }
+}
+//--------------------------------------------------------------------------------------------------
+static Reference< XSimpleRegistry > nestRegistries(
+    const Reference< XMultiServiceFactory > & xMgr,
+    const Reference< XSimpleRegistry > & xReadWrite,
+    const Reference< XSimpleRegistry > & xReadOnly )
+    throw (Exception)
+{
+    Reference< XSimpleRegistry > xReg;
+    createInstance(
+        xReg, xMgr,
+        OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.registry.NestedRegistry") ) );
+
+    Reference< XInitialization > xInit( xReg, UNO_QUERY );
+    if (! xInit.is())
+        throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("nested registry does not export interface \"com.sun.star.lang.XInitialization\"!" ) ), Reference< XInterface >() );
+
+    Sequence< Any > aArgs( 2 );
+    aArgs[0] = makeAny( xReadWrite );
+    aArgs[1] = makeAny( xReadOnly );
+    xInit->initialize( aArgs );
+
+    return xReg;
+}
+//--------------------------------------------------------------------------------------------------
+static Reference< XSimpleRegistry > openRegistry(
+    const Reference< XMultiServiceFactory > & xMgr,
+    const OUString & rURL,
+    sal_Bool bReadOnly, sal_Bool bCreate )
+    throw (Exception)
+{
+    Reference< XSimpleRegistry > xNewReg;
+    createInstance(
+        xNewReg, xMgr,
+        OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.registry.SimpleRegistry") ) );
+
+    try
+    {
+        xNewReg->open( rURL, bReadOnly, bCreate );
+        if (xNewReg->isValid())
+            return xNewReg;
+        else
+            xNewReg->close();
+    }
+    catch (Exception &)
+    {
+    }
+    out( "\n> warning: cannot open registry \"" );
+    out( rURL );
+    if (bReadOnly)
+        out( "\" for reading, ignoring!" );
+    else
+        out( "\" for reading and writing, ignoring!" );
+    return Reference< XSimpleRegistry >();
+}
+//--------------------------------------------------------------------------------------------------
+static Reference< XInterface > loadComponent(
+    const Reference< XMultiServiceFactory > & xMgr,
+    const OUString & rImplName, const OUString & rLocation )
+    throw (Exception)
+{
+    // determine loader to be used
+    sal_Int32 nDot = rLocation.lastIndexOf( '.' );
+    if (nDot > 0 && nDot < rLocation.getLength())
+    {
+        Reference< XImplementationLoader > xLoader;
+
+        OUString aExt( rLocation.copy( nDot +1 ) );
+
+        if (aExt.compareToAscii( "dll" ) == 0 ||
+            aExt.compareToAscii( "exe" ) == 0 ||
+            aExt.compareToAscii( "so" ) == 0)
+        {
+            createInstance(
+                xLoader, xMgr,
+                OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.loader.SharedLibrary") ) );
+        }
+        else if (aExt.compareToAscii( "jar" ) == 0 ||
+                 aExt.compareToAscii( "class" ) == 0)
+        {
+            createInstance(
+                xLoader, xMgr,
+                OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.loader.Java") ) );
+        }
+        else
+        {
+            OUStringBuffer buf( 64 );
+            buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("unknown extension of \"") );
+            buf.append( rLocation );
+            buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!  No loader available!") );
+            throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
+        }
+
+        Reference< XInterface > xInstance;
+
+        // activate
+        Reference< XSingleServiceFactory > xFactory( xLoader->activate(
+            rImplName, OUString(), rLocation, Reference< XRegistryKey >() ), UNO_QUERY );
+        if (xFactory.is())
+            xInstance = xFactory->createInstance();
+
+        if (! xInstance.is())
+        {
+            OUStringBuffer buf( 64 );
+            buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("activating component \"") );
+            buf.append( rImplName );
+            buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" from location \"") );
+            buf.append( rLocation );
+            buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" failed!") );
+            throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
+        }
+
+        return xInstance;
+    }
+    else
+    {
+        OUStringBuffer buf( 64 );
+        buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("location \"") );
+        buf.append( rLocation );
+        buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" has no extension!  Cannot determine loader to be used!") );
+        throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
+    }
+}
+
+
+//##################################################################################################
+//##################################################################################################
+//##################################################################################################
+
+
+//==================================================================================================
+class OInstanceProvider
+    : public WeakImplHelper1< XInstanceProvider >
+{
+    Reference< XMultiServiceFactory > _xMgr;
+
+    Mutex                             _aSingleInstanceMutex;
+    Reference< XInterface >           _xSingleInstance;
+    sal_Bool                          _bSingleInstance;
+
+    OUString                          _aImplName;
+    OUString                          _aLocation;
+    OUString                          _aServiceName;
+    Sequence< Any >                   _aInitParams;
+
+    OUString                          _aInstanceName;
+
+    inline Reference< XInterface > createInstance() throw (Exception);
+
+public:
+    OInstanceProvider( const Reference< XMultiServiceFactory > & xMgr,
+                       const OUString & rImplName, const OUString & rLocation,
+                       const OUString & rServiceName, const Sequence< Any > & rInitParams,
+                       sal_Bool bSingleInstance, const OUString & rInstanceName )
+        : _xMgr( xMgr )
+        , _bSingleInstance( bSingleInstance )
+        , _aImplName( rImplName )
+        , _aLocation( rLocation )
+        , _aServiceName( rServiceName )
+        , _aInstanceName( rInstanceName )
+        {}
+
+    // XInstanceProvider
+    virtual Reference< XInterface > SAL_CALL getInstance( const OUString & rName )
+        throw (NoSuchElementException, RuntimeException);
+};
+//__________________________________________________________________________________________________
+inline Reference< XInterface > OInstanceProvider::createInstance()
+    throw (Exception)
+{
+    Reference< XInterface > xRet;
+    if (_aImplName.getLength()) // manually via loader
+        xRet = loadComponent( _xMgr, _aImplName, _aLocation );
+    else // via service manager
+        unoexe::createInstance( xRet, _xMgr, _aServiceName );
+
+    // opt XInit
+    Reference< XInitialization > xInit( xRet, UNO_QUERY );
+    if (xInit.is())
+        xInit->initialize( _aInitParams );
+
+    return xRet;
+}
+//__________________________________________________________________________________________________
+Reference< XInterface > OInstanceProvider::getInstance( const OUString & rName )
+    throw (NoSuchElementException, RuntimeException)
+{
+    try
+    {
+        if (_aInstanceName == rName)
+        {
+            Reference< XInterface > xRet;
+
+            if (_bSingleInstance)
+            {
+                if (! _xSingleInstance.is())
+                {
+                    MutexGuard aGuard( _aSingleInstanceMutex );
+                    if (! _xSingleInstance.is())
+                    {
+                        _xSingleInstance = createInstance();
+                    }
+                }
+                xRet = _xSingleInstance;
+            }
+            else
+            {
+                xRet = createInstance();
+            }
+
+            return xRet;
+        }
+    }
+    catch (Exception & rExc)
+    {
+        out( "\n> error: " );
+        out( rExc.Message );
+    }
+    OUStringBuffer buf( 64 );
+    buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("no such element \"") );
+    buf.append( rName );
+    buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
+    throw NoSuchElementException( buf.makeStringAndClear(), Reference< XInterface >() );
+}
+
+//==================================================================================================
+struct ODisposingListener : public WeakImplHelper1< XEventListener >
+{
+    Condition cDisposed;
+
+    // XEventListener
+    virtual void SAL_CALL disposing( const EventObject & rEvt )
+        throw (RuntimeException);
+
+    //----------------------------------------------------------------------------------------------
+    static void waitFor( const Reference< XComponent > & xComp );
+};
+//__________________________________________________________________________________________________
+void ODisposingListener::disposing( const EventObject & rEvt )
+    throw (RuntimeException)
+{
+    cDisposed.set();
+}
+//--------------------------------------------------------------------------------------------------
+void ODisposingListener::waitFor( const Reference< XComponent > & xComp )
+{
+    ODisposingListener * pListener = new ODisposingListener();
+    Reference< XEventListener > xListener( pListener );
+
+    xComp->addEventListener( xListener );
+    pListener->cDisposed.wait();
+}
+
+
+//##################################################################################################
+//##################################################################################################
+//##################################################################################################
+
+
+//##################################################################################################
+#ifdef SOLARIS
+    extern "C" void ChangeGlobalInit();
+#endif
+
+extern "C" int SAL_CALL main( int argc, const char * argv[] )
+{
+#ifdef SOLARIS
+    ChangeGlobalInit();
+#endif
+
+    if (argc <= 1)
+    {
+        out( arUsingText );
+        return 0;
+    }
+
+    sal_Int32 nRet = 0;
+    Reference< XMultiServiceFactory > xMgr;
+    Reference< XSimpleRegistry > xRegistry;
+
+    try
+    {
+        OUString aImplName, aLocation, aServiceName, aUnoUrl;
+        vector< OUString > aRegistries;
+        Sequence< OUString > aParams;
+        sal_Bool bSingleAccept = sal_False;
+        sal_Bool bSingleInstance = sal_False;
+
+        //#### read command line arguments #########################################################
+
+        sal_Int32 nPos = 1;
+        // read up to arguments
+        while (nPos < argc)
+        {
+            if (rtl_str_compare( argv[nPos], "--" ) == 0)
+            {
+                ++nPos;
+                break;
+            }
+
+            if (readOption( &aImplName, 'c', &nPos, argv, argc )                ||
+                readOption( &aLocation, 'l', &nPos, argv, argc )                ||
+                readOption( &aServiceName, 's', &nPos, argv, argc )             ||
+                readOption( &aUnoUrl, 'u', &nPos, argv, argc )                  ||
+                readOption( &bSingleAccept, "singleaccept", &nPos, argv, argc ) ||
+                readOption( &bSingleInstance, "singleinstance", &nPos, argv, argc ))
+            {
+                continue;
+            }
+            OUString aRegistry;
+            if (readOption( &aRegistry, 'r', &nPos, argv, argc ))
+            {
+                aRegistries.push_back( aRegistry );
+                continue;
+            }
+
+            // else illegal argument
+            OUStringBuffer buf( 64 );
+            buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("unexpected parameter \"") );
+            buf.appendAscii( argv[nPos] );
+            buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
+            throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
+        }
+
+        if ((aImplName.getLength() != 0) == (aServiceName.getLength() != 0))
+            throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("give component exOR service name!" ) ), Reference< XInterface >() );
+        if (aImplName.getLength() && !aLocation.getLength())
+            throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("give component location!" ) ), Reference< XInterface >() );
+        if (aServiceName.getLength() && aLocation.getLength())
+            out( "\n> warning: service name given, will ignore location!" );
+
+        // read component params
+        aParams.realloc( argc - nPos );
+        OUString * pParams = aParams.getArray();
+
+        sal_Int32 nOffset = nPos;
+        for ( ; nPos < argc; ++nPos )
+        {
+            pParams[nPos -nOffset] = OUString::createFromAscii( argv[nPos] );
+        }
+
+        //#### create registry #####################################################################
+
+          xMgr = createServiceFactory();
+        if (! xMgr.is())
+            throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("cannot boot strap service manager!" ) ), Reference< XInterface >() );
+
+        // registries to be used
+        if (aRegistries.size())
+        {
+            // ReadOnly registries
+            sal_Int32 nPos = 0;
+            sal_Int32 nReadOnly = aRegistries.size() -1;
+
+            for ( ; nPos < nReadOnly; ++nPos )
+            {
+                Reference< XSimpleRegistry > xNewReg(
+                    openRegistry( xMgr, aRegistries[nPos], sal_True, sal_False ) );
+                if (xNewReg.is())
+                    xRegistry = (xRegistry.is() ? nestRegistries( xMgr, xNewReg, xRegistry ) : xNewReg);
+            }
+            if (! nReadOnly) // todo
+            {
+            // ReadWrite registry
+            Reference< XSimpleRegistry > xNewReg(
+                openRegistry( xMgr, aRegistries[nPos], sal_False, sal_True ) );
+            if (xNewReg.is())
+                xRegistry = (xRegistry.is() ? nestRegistries( xMgr, xNewReg, xRegistry ) : xNewReg);
+            }
+        }
+
+        // init service manager with registry
+        if (xRegistry.is())
+        {
+            Reference< XInitialization > xInit( xMgr, UNO_QUERY );
+            if (! xInit.is())
+                throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("service manager does not export interface \"com.sun.star.lang.XInitialization\"!" ) ), Reference< XInterface >() );
+
+            Any aReg( makeAny( xRegistry ) );
+            xInit->initialize( Sequence< Any >( &aReg, 1 ) );
+        }
+        else
+        {
+            out( "\n> warning: no registry given!" );
+        }
+
+        //#### accept, instanciate, etc. ###########################################################
+
+        if (aUnoUrl.getLength()) // accepting connections
+        {
+            if (aUnoUrl.getTokenCount( ';' ) != 3 || aUnoUrl.getLength() < 10 ||
+                !aUnoUrl.copy( 0, 4 ).equalsIgnoreCase( OUString( RTL_CONSTASCII_USTRINGPARAM("uno:") ) ))
+            {
+                throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("illegal uno url given!" ) ), Reference< XInterface >() );
+            }
+            OUString aConnectDescr( aUnoUrl.getToken( 0 ).copy( 4 ) ); // uno:CONNECTDESCR;iiop;InstanceName
+            OUString aInstanceName( aUnoUrl.getToken( 2 ) );
+
+            Reference< XAcceptor > xAcceptor;
+            createInstance(
+                xAcceptor, xMgr,
+                OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.connection.Acceptor") ) );
+
+            // init params
+            Sequence< Any > aInitParams( aParams.getLength() );
+            const OUString * pParams = aParams.getConstArray();
+            Any * pInitParams = aInitParams.getArray();
+            for ( sal_Int32 nPos = aParams.getLength(); nPos--; )
+            {
+                pInitParams[nPos] = makeAny( pParams[nPos] );
+            }
+
+            // instance provider
+            Reference< XInstanceProvider > xInstanceProvider( new OInstanceProvider(
+                xMgr, aImplName, aLocation, aServiceName, aInitParams,
+                bSingleInstance, aInstanceName ) );
+
+            for (;;)
+            {
+                // accepting
+                out( "\n> accepting " );
+                out( aConnectDescr );
+                out( "..." );
+                Reference< XConnection > xConnection( xAcceptor->accept( aConnectDescr ) );
+                out( "connection established." );
+
+                Reference< XBridgeFactory > xBridgeFactory;
+                createInstance(
+                    xBridgeFactory, xMgr,
+                    OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.BridgeFactory") ) );
+
+                // bridge
+                Reference< XBridge > xBridge( xBridgeFactory->createBridge(
+                    OUString(), aUnoUrl.getToken(1),
+                    xConnection, xInstanceProvider ) );
+
+                if (bSingleAccept)
+                {
+                    Reference< XComponent > xComp( xBridge, UNO_QUERY );
+                    if (! xComp.is())
+                        throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("bridge factory does not export interface \"com.sun.star.lang.XComponent\"!" ) ), Reference< XInterface >() );
+                    ODisposingListener::waitFor( xComp );
+                    break;
+                }
+            }
+        }
+        else // no uno url
+        {
+            Reference< XInterface > xInstance;
+            if (aImplName.getLength()) // manually via loader
+                xInstance = loadComponent( xMgr, aImplName, aLocation );
+            else // via service manager
+                createInstance( xInstance, xMgr, aServiceName );
+
+            // execution
+            Reference< XMain > xMain( xInstance, UNO_QUERY );
+            if (xMain.is())
+            {
+                nRet = xMain->run( aParams );
+            }
+            else
+            {
+                Reference< XComponent > xComp( xInstance, UNO_QUERY );
+                if (xComp.is())
+                    xComp->dispose();
+                throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("component does not export interface interface \"com.sun.star.lang.XMain\"!" ) ), Reference< XInterface >() );
+            }
+        }
+    }
+    catch (Exception & rExc)
+    {
+        out( "\n> error: " );
+        out( rExc.Message );
+        out( "\n> dying..." );
+        nRet = 1;
+    }
+
+    // cleanup
+    if (xMgr.is())
+    {
+        Reference< XComponent > xComp( xMgr, UNO_QUERY );
+        if (xComp.is())
+            xComp->dispose();
+    }
+    if (xRegistry.is())
+    {
+        xRegistry->close();
+    }
+
+    out( "\n" );
+    return nRet;
+}
+
+}
+
+