From 9399c662f36c385b0c705eb34e636a9aec450282 Mon Sep 17 00:00:00 2001 From: Jens-Heiner Rechtien Date: Mon, 18 Sep 2000 14:18:43 +0000 Subject: initial import --- sal/workben/testpipe.cxx | 199 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 199 insertions(+) create mode 100644 sal/workben/testpipe.cxx (limited to 'sal/workben/testpipe.cxx') diff --git a/sal/workben/testpipe.cxx b/sal/workben/testpipe.cxx new file mode 100644 index 000000000000..6999b93c3abc --- /dev/null +++ b/sal/workben/testpipe.cxx @@ -0,0 +1,199 @@ +/************************************************************************* + * + * $RCSfile: testpipe.cxx,v $ + * + * $Revision: 1.1.1.1 $ + * + * last change: $Author: hr $ $Date: 2000-09-18 15:17:31 $ + * + * 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 +#include +#include + +#include +#include +#include + +// eindeutiger Name fr die Pipe +const char pszPipeName[] = "TestPipe"; +const char szTestString[] = "This is a test"; +char szBuffer[256]; + +const char * cp; +Size_t n; +sSize_t nChars; + +// osl specific variables +oslPipe Pipe; +oslPipe C1Pipe; +oslProcess Process = NULL; +oslProcessError ProcessError; +oslProcessInfo ProcessInfo; + +void fail( const char * pszText, int retval ) +{ + fprintf( stderr, "TestPipe Server: %s", pszText ); + fprintf( stderr, "TestPipe Server: test failed, ErrNo: %d.\n", retval ); + + if( Process ) osl_freeProcessHandle( Process ); + exit( retval ); +} + + + +/* + * Teste die Pipe-Implementation in osl + */ + +int main (int argc, const char *argv[]) +{ + // erzeuge die Pipe + rtl_uString* ustrPipeName=0; + rtl_uString* ustrExeName=0; + + + rtl_uString_newFromAscii(&ustrPipeName,pszPipeName); + rtl_uString_newFromAscii(&ustrExeName, "//./tmp/testpip2.exe"); + + Pipe = osl_createPipe( ustrPipeName, osl_Pipe_CREATE, 0 ); + + if( !Pipe ) + fail( "unable to create Pipe.\n", + osl_getLastPipeError(NULL)); + + // starte client process + ProcessError = osl_executeProcess( ustrExeName, + NULL, + 0, + osl_Process_NORMAL, + 0, + NULL, + NULL, + 0, + NULL, + &Process ); + + if( ProcessError != osl_Process_E_None ) + fail( "unable to start client.\n", ProcessError ); + + // wait for connection + C1Pipe = osl_acceptPipe( Pipe ); + + if( !C1Pipe ) + fail( "unable to connect to client.\n", + osl_getLastPipeError( Pipe )); + + + if( argc > 1 ) + { + cp = argv[1]; + n = strlen( cp ) + 1; + } + else + { + cp = szTestString; + n = sizeof(szTestString); + } + + // sende TestString zum Client + nChars = osl_sendPipe( C1Pipe, cp, n ); + + if( nChars < 0 ) + fail( "unable to write on pipe.\n", + osl_getLastPipeError( Pipe ) ); + + // empfange Daten vom Server + nChars = osl_receivePipe( C1Pipe, szBuffer, 256 ); + + if( nChars < 0 ) + fail( "unable to read from pipe.\n", + osl_getLastPipeError( C1Pipe ) ); + + printf( "TestPipe Server: received data: %s.\n", szBuffer ); + + // warte bis das Client-Programm sich beendet + ProcessError = osl_joinProcess( Process ); + + if( ProcessError != osl_Process_E_None ) + fail( "unable to wait for client.\n", + ProcessError ); + + // ermittle den Rckgabewert des Client-Programms + ProcessInfo.Size = sizeof( ProcessInfo ); + + ProcessError = osl_getProcessInfo( Process, osl_Process_EXITCODE, &ProcessInfo ); + + if( ProcessError != osl_Process_E_None ) + fail( "unable to receive return value of client process.\n", + ProcessError ); + + if( ProcessInfo.Code != 0 ) + fail( "client aborted.\n", ProcessInfo.Code ); + + // gib das Handle fuer den Client-Prozess frei + osl_freeProcessHandle( Process ); + + // schliesse die Pipes + osl_destroyPipe( C1Pipe ); + osl_destroyPipe( Pipe ); + + printf( "TestPipe Server: test passed.\n" ); + return 0; +} + + + -- cgit