#!/usr/bin/perl

#############################################################################

##

## Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).

## All rights reserved.

## Contact: Nokia Corporation (qt-info@nokia.com)

##

## This file is part of the Qt Mobility Components.

##

## $QT_BEGIN_LICENSE:LGPL$

## No Commercial Usage

## This file contains pre-release code and may not be distributed.

## You may use this file in accordance with the terms and conditions

## contained in the Technology Preview License Agreement accompanying

## this package.

##

## GNU Lesser General Public License Usage

## Alternatively, this file may be used under the terms of the GNU Lesser

## General Public License version 2.1 as published by the Free Software

## Foundation and appearing in the file LICENSE.LGPL included in the

## packaging of this file.  Please review the following information to

## ensure the GNU Lesser General Public License version 2.1 requirements

## will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.

##

## In addition, as a special exception, Nokia gives you certain additional

## rights.  These rights are described in the Nokia Qt LGPL Exception

## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.

##

## If you have questions regarding the use of this file, please contact

## Nokia at qt-info@nokia.com.

##

##

##

##

##

##

##

##

## $QT_END_LICENSE$

##

#############################################################################

use strict;

use warnings;

use Carp;

local $Carp::CarpLevel;# = 1;

my $sensor = get_arg();

my $sensorbase = $sensor;

$sensorbase =~ s/Sensor$//;

my $reading = $sensorbase.'Reading';

my $reading_private = $reading.'Private';

my $filter = $sensorbase.'Filter';

my $filebase;

eval {

    $filebase = get_arg();

};

if ($@) {

    $filebase = lc($sensor);

}

my $pheader = $filebase."_p.h";

my $header = $filebase.".h";

my $source = $filebase.".cpp";

my $pguard = uc($pheader);

$pguard =~ s/\./_/g;

my $guard = uc($header);

$guard =~ s/\./_/g;

if (! -e $pheader) {

    print "Creating $pheader\n";

    open OUT, ">$pheader" or die $!;

    print OUT '

#ifndef '.$pguard.'

#define '.$pguard.'

//

//  W A R N I N G

//  -------------

//

// This file is not part of the Qt API. It exists purely as an

// implementation detail. This header file may change from version to

// version without notice, or even be removed.

//

// We mean it.

//

#include "qsensor_p.h"

QTM_BEGIN_NAMESPACE

class '.$reading_private.' : public QSensorReadingPrivate

{

public:

    '.$reading_private.'()

        : myprop(0)

    {

    }

    /*

     * Note that this class is copied so you may need to implement

     * a copy constructor if you have complex types or pointers

     * as values.

     */

    qreal myprop;

};

QTM_END_NAMESPACE

#endif

';

    close OUT;

}

if (! -e $header) {

    print "Creating $header\n";

    open OUT, ">$header" or die $!;

    print OUT '

#ifndef '.$guard.'

#define '.$guard.'

#include <qsensor.h>

QTM_BEGIN_NAMESPACE

class '.$reading_private.';

class Q_SENSORS_EXPORT '.$reading.' : public QSensorReading

{

    Q_OBJECT

    Q_PROPERTY(qreal myprop READ myprop)

    DECLARE_READING('.$reading.')

public:

    qreal myprop() const;

    void setMyprop(qreal myprop);

};

// begin generated code

// end generated code

QTM_END_NAMESPACE

#endif

';

    close OUT;

}

if (-e $header) {

    open IN, "$header" or die $!;

    my @data = <IN>;

    close IN;

    my @tags = grep /^\/\/ (begin|end) generated code/, @data;

    if (scalar(@tags) == 2 &&

    $tags[0] eq "// begin generated code\n" &&

    $tags[1] eq "// end generated code\n") {

        print "Updating generated code in $header\n";

        open OUT, ">$header" or die $!;

        my $skip = 0;

        for (@data) {

            if ($_ eq $tags[0]) {

                print OUT $_;

                print OUT '

class Q_SENSORS_EXPORT '.$filter.' : public QSensorFilter

{

public:

    virtual bool filter('.$reading.' *reading) = 0;

private:

    bool filter(QSensorReading *reading) { return filter(static_cast<'.$reading.'*>(reading)); }

};

class Q_SENSORS_EXPORT '.$sensor.' : public QSensor

{

    Q_OBJECT

public:

    explicit '.$sensor.'(QObject *parent = 0) : QSensor(parent)

    { setType('.$sensor.'::type); }

    virtual ~'.$sensor.'() {}

    '.$reading.' *reading() const { return static_cast<'.$reading.'*>(QSensor::reading()); }

    static const char *type;

};

';

                $skip = 1;

            }

            if ($_ eq $tags[1]) {

                $skip = 0;

            }

            if (!$skip) {

                print OUT $_;

            }

        }

    }

}

if (! -e $source) {

    print "Creating $source\n";

    open OUT, ">$source" or die $!;

    print OUT '

#include <'.$header.'>

#include "'.$pheader.'"

QTM_BEGIN_NAMESPACE

IMPLEMENT_READING('.$reading.')

/*!

    \class '.$reading.'

    \ingroup sensors_reading

    \preliminary

    \brief The '.$reading.' class holds readings from the [X] sensor.

    [Fill this out]

    \section2 '.$reading.' Units

    [Fill this out]

*/

/*!

    \property '.$reading.'::myprop

    \brief [what does it hold?]

    [What are the units?]

    \sa {'.$reading.' Units}

*/

qreal '.$reading.'::myprop() const

{

    return d->myprop;

}

/*!

    Sets [what?] to \a myprop.

*/

void '.$reading.'::setMyprop(qreal myprop)

{

    d->myprop = myprop;

}

// =====================================================================

// begin generated code

// end generated code

#include "moc_'.$source.'"

QTM_END_NAMESPACE

';

    close OUT;

}

if (-e $source) {

    open IN, "$source" or die $!;

    my @data = <IN>;

    close IN;

    my @tags = grep /^\/\/ (begin|end) generated code/, @data;

    if (scalar(@tags) == 2 &&

    $tags[0] eq "// begin generated code\n" &&

    $tags[1] eq "// end generated code\n") {

        print "Updating generated code in $source\n";

        open OUT, ">$source" or die $!;

        my $skip = 0;

        for (@data) {

            if ($_ eq $tags[0]) {

                print OUT $_;

                print OUT '

/*!

    \class '.$filter.'

    \ingroup sensors_filter

    \preliminary

    \brief The '.$filter.' class is a convenience wrapper around QSensorFilter.

    The only difference is that the filter() method features a pointer to '.$reading.'

    instead of QSensorReading.

*/

/*!

    \fn '.$filter.'::filter('.$reading.' *reading)

    Called when \a reading changes. Returns false to prevent the reading from propagating.

    \sa QSensorFilter::filter()

*/

const char *'.$sensor.'::type("'.$sensor.'");

/*!

    \class '.$sensor.'

    \ingroup sensors_type

    \preliminary

    \brief The '.$sensor.' class is a convenience wrapper around QSensor.

    The only behavioural difference is that this class sets the type properly.

    This class also features a reading() function that returns a '.$reading.' instead of a QSensorReading.

    For details about how the sensor works, see \l '.$reading.'.

    \sa '.$reading.'

*/

/*!

    \fn '.$sensor.'::'.$sensor.'(QObject *parent)

    Construct the sensor as a child of \a parent.

*/

/*!

    \fn '.$sensor.'::~'.$sensor.'()

    Destroy the sensor. Stops the sensor if it has not already been stopped.

*/

/*!

    \fn '.$sensor.'::reading() const

    Returns the reading class for this sensor.

    \sa QSensor::reading()

*/

';

                $skip = 1;

            }

            if ($_ eq $tags[1]) {

                $skip = 0;

            }

            if (!$skip) {

                print OUT $_;

            }

        }

    }

}

exit 0;

sub get_arg

{

    if (scalar(@ARGV) == 0) {

        croak "Missing arg(s)";

    }

    return shift(@ARGV);

}