From 940b4d1848e8c70ab7642901a68594e8016caffc Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 27 Apr 2024 18:51:28 +0200 Subject: Adding upstream version 1:7.0.4. Signed-off-by: Daniel Baumann --- vcl/workben/svpclient.cxx | 283 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 283 insertions(+) create mode 100644 vcl/workben/svpclient.cxx (limited to 'vcl/workben/svpclient.cxx') diff --git a/vcl/workben/svpclient.cxx b/vcl/workben/svpclient.cxx new file mode 100644 index 000000000..5d7cf8b9a --- /dev/null +++ b/vcl/workben/svpclient.cxx @@ -0,0 +1,283 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/* + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + * This file incorporates work covered by the following license notice: + * + * Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed + * with this work for additional information regarding copyright + * ownership. The ASF licenses this file to you under the Apache + * License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 . + */ + +#include +#include + +#include +#include + +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include +#include + +#include + +#include +#include +#include +#include +#include +#include + +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; +using namespace cppu; + +// Forward declaration +static void Main(); + +SAL_IMPLEMENT_MAIN() +{ + try + { + tools::extendApplicationEnvironment(); + + // create the global service-manager + Reference< XComponentContext > xContext = defaultBootstrap_InitialComponentContext(); + Reference< XMultiServiceFactory > xServiceManager( xContext->getServiceManager(), UNO_QUERY ); + + if( !xServiceManager.is() ) + Application::Abort( "Failed to bootstrap" ); + + comphelper::setProcessServiceFactory( xServiceManager ); + + InitVCL(); + ::Main(); + DeInitVCL(); + } + catch (const Exception&) + { + TOOLS_WARN_EXCEPTION("vcl", "Fatal"); + return 1; + } + catch (const std::exception& e) + { + SAL_WARN("vcl", "Fatal: " << e.what()); + return 1; + } + + return 0; +} + +namespace { + +class MyWin : public WorkWindow +{ + VclPtr m_aListButton; + VclPtr m_aSvpBitmaps; + VclPtr m_aImage; + VclPtr m_aQuitButton; +public: + MyWin( vcl::Window* pParent, WinBits nWinStyle ); + + virtual bool Close() override; + virtual ~MyWin() override { disposeOnce(); } + virtual void dispose() override; + + void parseList( const OString& rList ); + static OString processCommand( const OString& rCommand ); + + DECL_LINK( ListHdl, Button*, void ); + DECL_LINK( SelectHdl, ListBox&, void ); + DECL_STATIC_LINK( MyWin, QuitHdl, Button*, void ); +}; + +} + +void Main() +{ + ScopedVclPtrInstance< MyWin > aMainWin( nullptr, WB_STDWORK ); + aMainWin->SetText( "SvpClient" ); + aMainWin->Show(); + + Application::Execute(); +} + +MyWin::MyWin( vcl::Window* pParent, WinBits nWinStyle ) : + WorkWindow( pParent, nWinStyle ), + m_aListButton(VclPtr::Create(this, 0)), + m_aSvpBitmaps(VclPtr::Create(this, WB_BORDER)), + m_aImage(VclPtr::Create(this, WB_BORDER)), + m_aQuitButton(VclPtr::Create(this, 0)) +{ + m_aListButton->SetPosSizePixel( Point( 10, 10 ), Size( 120, 25 ) ); + m_aListButton->SetText( "List Elements" ); + m_aListButton->SetClickHdl( LINK( this, MyWin, ListHdl ) ); + m_aListButton->Show(); + + m_aSvpBitmaps->SetPosSizePixel( Point( 10, 40 ), Size( 150, 150 ) ); + m_aSvpBitmaps->SetSelectHdl( LINK( this, MyWin, SelectHdl ) ); + m_aSvpBitmaps->Show(); + + m_aImage->SetPosSizePixel( Point( 170, 10 ), Size( 400, 400 ) ); + m_aImage->Show(); + + m_aQuitButton->SetPosSizePixel( Point( 10, 300 ), Size( 120,25 ) ); + m_aQuitButton->SetText( "Quit SVP server" ); + m_aQuitButton->SetClickHdl( LINK( this, MyWin, QuitHdl ) ); + m_aQuitButton->Show(); +} + +bool MyWin::Close() +{ + bool bRet = WorkWindow::Close(); + if( bRet ) + Application::Quit(); + return bRet; +} + +void MyWin::dispose() +{ + m_aListButton.disposeAndClear(); + m_aSvpBitmaps.disposeAndClear(); + m_aImage.disposeAndClear(); + m_aQuitButton.disposeAndClear(); + WorkWindow::dispose(); +} + +void MyWin::parseList( const OString& rList ) +{ + sal_Int32 nTokenPos = 0; + OUString aElementType; + m_aSvpBitmaps->Clear(); + while( nTokenPos >= 0 ) + { + OString aLine = rList.getToken( 0, '\n', nTokenPos ); + if( ! aLine.getLength() || *aLine.getStr() == '#' ) + continue; + + if( aLine.startsWith( "ElementType: " ) ) + aElementType = OStringToOUString( aLine.copy( 13 ), RTL_TEXTENCODING_ASCII_US ); + else + { + OUString aNewElement = + aElementType + ": " + + OStringToOUString( aLine, RTL_TEXTENCODING_ASCII_US ); + m_aSvpBitmaps->InsertEntry( aNewElement ); + } + } +} + +OString MyWin::processCommand( const OString& rCommand ) +{ + static const char* pEnv = getenv("SVP_LISTENER_PORT"); + OStringBuffer aAnswer; + int nPort = (pEnv && *pEnv) ? atoi(pEnv) : 8000; + int nSocket = socket( PF_INET, SOCK_STREAM, 0 ); + if( nSocket >= 0) + { + struct sockaddr_in addr; + memset(&addr, 0, sizeof(struct sockaddr_in)); + addr.sin_family = AF_INET; + addr.sin_port = htons(nPort); + addr.sin_addr.s_addr = INADDR_ANY; + if( connect( nSocket, reinterpret_cast(&addr), sizeof(addr) ) ) + { + perror( "SvpElementContainer: connect() failed" ); + } + else + { + ssize_t nBytes = 0; + ssize_t fd = write( nSocket, rCommand.getStr(), rCommand.getLength() ); + + if (fd == 0) + SAL_WARN("vcl", "Connection closed on other end"); + else if (fd < 0) + SAL_WARN("vcl", "Error writing to socket: " << strerror( errno )); + + fd = write( nSocket, "\n", 1 ); + + if (fd == 0) + SAL_WARN("vcl", "Connection closed on other end"); + else if (fd < 0) + SAL_WARN("vcl", "Error writing to socket: " << strerror( errno )); + + + char buf[256]; + do + { + nBytes = read( nSocket, buf, sizeof(buf) ); + aAnswer.append( buf, nBytes ); + } while( nBytes == sizeof( buf ) ); + } + close(nSocket); + } + else + perror( "SvpElementContainer: socket() failed\n" ); + return aAnswer.makeStringAndClear(); +} + +IMPL_LINK_NOARG( MyWin, ListHdl, Button*, void) +{ + parseList( processCommand( "list" ) ); +} + +IMPL_STATIC_LINK_NOARG( MyWin, QuitHdl, Button*, void) +{ + processCommand( "quit" ); +} + +IMPL_LINK_NOARG( MyWin, SelectHdl, ListBox&, void) +{ + OUString aEntry = m_aSvpBitmaps->GetSelectedEntry(); + sal_Int32 nPos = aEntry.indexOf( ": " ); + if( nPos == -1 ) + return; + + OString aCommand = + "get " + + OUStringToOString( aEntry.copy( nPos+2 ), RTL_TEXTENCODING_ASCII_US ); + OString aAnswer( processCommand( aCommand ) ); + SvMemoryStream aStream( aAnswer.getLength() ); + aStream.WriteBytes( aAnswer.getStr(), aAnswer.getLength() ); + aStream.Seek( STREAM_SEEK_TO_BEGIN ); + + Graphic aGraphicResult; + GraphicFilter &rFilter = GraphicFilter::GetGraphicFilter(); + rFilter.ImportGraphic( aGraphicResult, OUString("import"), aStream ); + + BitmapEx aBitmap = aGraphicResult.GetBitmapEx(); + + SAL_INFO("vcl", "got bitmap of size " << aBitmap.GetSizePixel().Width() << "x" << aBitmap.GetSizePixel().Height()); + Size aFixedSize( aBitmap.GetSizePixel() ); + aFixedSize.AdjustWidth(10 ); + aFixedSize.AdjustHeight(10 ); + m_aImage->SetSizePixel( aFixedSize ); + m_aImage->SetImage( Image( aBitmap ) ); + +} + + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ -- cgit v1.2.3