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.
tdegraphics/kghostview/infodialog.cpp

132 lines
4.1 KiB

/*
* Copyright (C) 2000 the KGhostView authors. See file AUTHORS.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
*/
#include <tqframe.h>
#include <tqlabel.h>
#include <tqlayout.h>
#include <tqdatetime.h>
#include <tqregexp.h>
#include <kdebug.h>
#include <klocale.h>
#include <kstdguiitem.h>
#include "infodialog.h"
//
// Using KDialogBase in message box mode (gives centered action button)
//
InfoDialog::InfoDialog( TQWidget *parent, const char *name, bool modal )
:KDialogBase( i18n("Document Information"), Yes, Yes, Yes, parent,
name, modal, true, KStdGuiItem::ok() )
{
TQFrame *page = makeMainWidget();
TQVBoxLayout *topLayout = new TQVBoxLayout( page, 0, spacingHint() );
TQGridLayout *glay = new TQGridLayout( topLayout, 3, 2 );
glay->setColStretch(1,1);
TQLabel *label = new TQLabel( i18n("File name:" ), page );
glay->addWidget( label, 0, 0, AlignRight|AlignVCenter );
mFileLabel = new TQLabel( page );
glay->addWidget( mFileLabel, 0, 1 );
label = new TQLabel( i18n("Document title:" ), page );
glay->addWidget( label, 1, 0, AlignRight|AlignVCenter );
mTitleLabel = new TQLabel( page );
glay->addWidget( mTitleLabel, 1, 1 );
label = new TQLabel( i18n("Publication date:" ), page );
glay->addWidget( label, 2, 0, AlignRight|AlignVCenter );
mDateLabel = new TQLabel( page );
glay->addWidget( mDateLabel, 2, 1 );
topLayout->addStretch(1);
}
namespace {
/* For PDF files, the dates are in a standard format.
*
* According to the spec at http://partners.adobe.com/asn/tech/pdf/specifications.jsp
* That format is "(D:YYYYMMDDHHmmSSOHH'mm')", where
* YYYY is year,
* MM month
* DD day
* HH hour
* mm minute
* SS second
* O is "+" or "-"
* HH is hour
* mm is minute
*
* OHH'mm' form together the desviation to UCT time ( the timezone ).
* Everything after the YYYY is optional.
* The D: is "highly recommended", but legally optional
*
* For PS files, there is no such standard and dates appear
* in any format they desire.
*/
TQString parseDate( const TQString& dateStr ) {
kdDebug( 4500 ) << "parseDate( \"" << dateStr << "\" )" << endl;
TQRegExp exp( "\\((?:D:)?"
"(\\d\\d\\d\\d)"
"(\\d\\d)?(\\d\\d)?(\\d\\d)?.*"
"(\\d\\d)?(\\d\\d)?.*"
"(?:(\\+|\\-)(\\d\\d)\'?(\\d\\d)\'?)?"
"\\)" );
if ( exp.exactMatch( dateStr ) ) {
TQStringList list = exp.capturedTexts();
TQStringList::iterator iter = list.begin();
++iter; // whole string!
#undef GET
#define GET( variable, def ) \
unsigned variable = def; \
if ( iter != list.end() ) { \
variable = ( *iter ).toUInt();\
++iter; \
}
GET( year, 1 )
GET( month, 1 )
GET( day, 1 )
GET( hour, 0 )
GET( min, 0 )
GET( sec, 0 )
#undef GET
// FIXME: this ignores the timezone
TQDate date( year, month, day );
TQTime time( hour, min, sec );
KLocale locale( "kghostview" );
return locale.formatDateTime( TQDateTime( date, time ) );
}
kdDebug( 4500 ) << "parseDate failed." << endl;
return dateStr;
}
}
void InfoDialog::setup( const TQString &fileName, const TQString &documentTitle,
const TQString &publicationDate )
{
mFileLabel->setText( fileName );
mTitleLabel->setText( documentTitle );
mDateLabel->setText( parseDate( publicationDate ) );
}
#include "infodialog.moc"
// vim:sw=4:sts=4:ts=8:noet