You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
libtqt-perl/puic/embed.cpp

265 lines
8.6 KiB

/**********************************************************************
** Copyright (C) 2000 Trolltech AS. All rights reserved.
** Copyright (c) 2001 Phil Thompson <phil@river-bank.demon.co.uk>
** Copyright (c) 2002 Riverbank Computing Limited <info@riverbankcomputing.co.uk>
** Copyright (c) 2002 Germain Garand <germain@ebooksfrance.com>
**
** This file is part of TQt Designer.
**
** This file may be distributed and/or modified under the terms of the
** GNU General Public License version 2 as published by the Free Software
** Foundation and appearing in the file LICENSE.GPL included in the
** packaging of this file.
**
** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
**
** See http://www.trolltech.com/gpl/ for GPL licensing information.
**
** Contact info@trolltech.com if any conditions of this licensing are
** not clear to you.
**
**********************************************************************/
/*
** 06/2002 : Initial release of puic, the PerlTQt User Interface Compiler,
** a work derivated from uic (the TQt User Interface Compiler)
** and pyuic (the PyTQt User Interface Compiler).
**
** G.Garand
**
**********************************************************************/
#include "uic.h"
#include <qfile.h>
#include <qimage.h>
#include <qstringlist.h>
#include <qdatetime.h>
#include <qfileinfo.h>
#define NO_STATIC_COLORS
#include <globaldefs.h>
#include <qregexp.h>
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
struct EmbedImage
{
int width, height, depth;
int numColors;
TQRgb* colorTable;
TQString name;
TQString cname;
bool alpha;
};
static TQString convertToCIdentifier( const char *s )
{
TQString r = s;
int len = r.length();
if ( len > 0 && !isalpha( (char)r[0].latin1() ) )
r[0] = '_';
for ( int i=1; i<len; i++ ) {
if ( !isalnum( (char)r[i].latin1() ) )
r[i] = '_';
}
return r;
}
static void embedData( TQTextStream& out, const uchar* input, int nbytes )
{
static const char hexdigits[] = "0123456789abcdef";
TQString s;
for ( int i=0; i<nbytes; i++ )
{
if ( (i%14) == 0 )
{
s += "\n ";
out << (const char*)s;
s.truncate( 0 );
}
uint v = input[i];
s += "0x";
s += hexdigits[(v >> 4) & 15];
s += hexdigits[v & 15];
if ( i < nbytes-1 )
s += ", ";
else
s += "\n";
}
if ( s.length() )
out << (const char*)s;
}
static void embedData( TQTextStream& out, const TQRgb* input, int n )
{
out << hex;
const TQRgb *v = input;
for ( int i=0; i<n; i++ ) {
if ( (i%6) == 0 )
out << endl << " ";
out << "0x";
out << hex << *v++;
if ( i < n-1 )
out << ", ";
else
out << ";" << endl;
}
out << dec; // back to decimal mode
}
void Uic::embed( TQTextStream& out, const char* project, const TQStringList& images )
{
TQString cProject = convertToCIdentifier( project );
TQStringList::ConstIterator it;
out << "# Image collection for project '" << project << "'." << endl;
out << "#" << endl;
out << "# Generated from reading image files: " << endl;
for ( it = images.begin(); it != images.end(); ++it )
out << "# " << *it << endl;
out << "#" << endl;
out << "# Created: " << TQDateTime::currentDateTime().toString() << endl;
out << "# by: The PerlTQt User Interface Compiler (puic)" << endl;
out << "#" << endl;
out << "# WARNING! All changes made in this file will be lost!" << endl;
out << endl;
out << "use strict;" << endl;
out << "use utf8;" << endl;
out << endl;
out << indent << "package DesignerMimeSourceFactory_" << cProject << ";" << endl;
out << indent << "use TQt;" << endl;
out << indent << "use TQt::isa qw(TQt::MimeSourceFactory);" << endl;
out << endl;
TQPtrList<EmbedImage> list_image;
int image_count = 0;
for ( it = images.begin(); it != images.end(); ++it ) {
TQImage img;
if ( !img.load( *it ) ) {
fprintf( stderr, "puic: cannot load image file %s\n", (*it).latin1() );
continue;
}
EmbedImage *e = new EmbedImage;
e->width = img.width();
e->height = img.height();
e->depth = img.depth();
e->numColors = img.numColors();
e->colorTable = new TQRgb[e->numColors];
e->alpha = img.hasAlphaBuffer();
memcpy(e->colorTable, img.colorTable(), e->numColors*sizeof(TQRgb));
TQFileInfo fi( *it );
e->name = fi.fileName();
e->cname = TQString("$image_%1").arg( image_count++);
list_image.append( e );
out << "# " << *it << endl;
TQString s;
TQString imgname = (const char *)e->cname;
//my $i0 = TQt::Image($image_0_data, 22, 22, 32, undef, &TQt::Image::BigEndian);
//$i0->setAlphaBuffer(1);
//my $image0 = TQt::Pixmap($i0);
if ( e->depth == 32 ) {
out << indent << "my " << imgname << "_data = pack 'L*'," << endl;
embedData( out, (TQRgb*)img.bits(), e->width*e->height );
} else {
if ( e->depth == 1 )
img = img.convertBitOrder(TQImage::BigEndian);
out << indent << "my " << imgname << "_data = pack 'C*'," << endl;
embedData( out, img.bits(), img.numBytes() );
}
out << endl;
if ( e->numColors ) {
out << indent << "my " << imgname << "_ctable = " << endl;
out << indent << "[" << endl;
embedData( out, e->colorTable, e->numColors );
out << endl;
out << indent << "];" << endl;
}
}
if ( !list_image.isEmpty() ) {
out << indent << "my %embed_images = (\n";
++indent;
EmbedImage *e = list_image.first();
while ( e )
{
out << indent << "\"" << e->name << "\"" << " => [" << e->cname << "_data, "
<< e->width << ", " << e->height << ", " << e->depth << ", "
<< (e->numColors ? e->cname + "_ctable" : TQString::fromLatin1("undef") ) << ", "
<< (e->alpha ? "1" : "0") << "]," << endl;
e = list_image.next();
}
--indent;
out << indent << ");" << endl;
out << endl;
out << indent << "my %images = ();" << endl;
out << endl;
out << endl;
out << indent << "sub uic_findImage" << endl;
out << indent << "{" << endl;
++indent;
out << indent << "my $name = shift;" << endl;
out << indent << "return $images{$name} if exists $images{$name};" << endl;
out << indent << "return TQt::Image() unless exists $embed_images{$name};" << endl;
out << indent << endl;
out << indent << "my $img = TQt::Image(@{$embed_images{$name}}[0..4], &TQt::Image::BigEndian);" << endl;
out << indent << "${$embed_images{$name}}[5] && $img->setAlphaBuffer(1);" << endl;
out << indent << "$images{$name} = $img;" << endl;
out << indent << "return $img;" << endl;
--indent;
out << indent << "}" << endl;
out << endl;
out << indent << "sub data" << endl;
out << indent << "{" << endl;
++indent;
out << indent << "my $abs_name = shift;" << endl;
out << indent << "my $img = uic_findImage($abs_name);" << endl;
out << indent << "if($img->isNull())" << endl;
out << indent << "{" << endl;
++indent;
out << indent << "TQt::MimeSourceFactory::removeFactory(this);" << endl;
out << indent << "my $s = TQt::MimeSourceFactory::defaultFactory()->data($abs_name);" << endl;
out << indent << "TQt::MimeSourceFactory::addFactory(this);" << endl;
out << indent << "return $s;" << endl;
--indent;
out << indent << "}" << endl;
out << indent << "TQt::MimeSourceFactory::defaultFactory()->setImage($abs_name, $img);" << endl;
out << indent << "return TQt::MimeSourceFactory::defaultFactory()->data($abs_name);" << endl;
--indent;
out << indent << "}" << endl;
out << endl;
out << endl;
out << indent << "package staticImages;" << endl;
out << indent << "use TQt;" << endl;
out << indent << "use DesignerMimeSourceFactory_" << cProject << ";" << endl;
out << indent << "our %factories;" << endl;
out << indent << endl;
out << indent << "my $factory = DesignerMimeSourceFactory_" << cProject << ";" << endl;
out << indent << "TQt::MimeSourceFactory::defaultFactory()->addFactory($factory);" << endl;
out << indent << "$factories{'DesignerMimeSourceFactory_" << cProject << "'} = $factory;" << endl;
out << endl;
out << indent << "END" << endl;
out << indent << "{" << endl;
++indent;
out << indent << "for( values %factories )" << endl;
out << indent << "{" << endl;
++indent;
out << indent << "TQt::MimeSourceFactory::defaultFactory()->removeFactory($_);" << endl;
--indent;
out << indent << "}" << endl;
out << indent << "%factories = ();" << endl;
--indent;
out << indent << "}" << endl;
out << indent << "1;" << endl;;
out << endl;
}
}