[p5sagit/p5-mst-13.2.git] / symbian / PerlApp.cpp

/* Copyright (c) 2004-2005 Nokia. All rights reserved. */

/* The PerlApp application is licensed under the same terms as Perl itself.
 * Note that this PerlApp is for Symbian/Series 60/80 smartphones and it has
 * nothing whatsoever to do with the ActiveState PerlApp. */

#include "PerlApp.h"

#ifdef __SERIES60__
# include <avkon.hrh>
# include <aknnotewrappers.h> 
# include <AknCommonDialogs.h>
# ifndef __SERIES60_1X__
#  include <CAknFileSelectionDialog.h>
# endif
#endif /* #ifdef __SERIES60__ */

#ifdef __SERIES80__
# include <eikon.hrh>
# include <cknflash.h>
# include <ckndgopn.h>
#endif /* #ifdef __SERIES80__ */

#include <apparc.h>
#include <e32base.h>
#include <e32cons.h>
#include <eikenv.h>
#include <bautils.h>
#include <eikappui.h>
#include <utf.h>
#include <f32file.h>

#include <coemain.h>

#ifndef PerlMin

#include "PerlApp.hrh"

#include "PerlApp.rsg"

#endif //#ifndef PerlMin

#include "EXTERN.h"
#include "perl.h"
#include "PerlBase.h"

const TUid KPerlAppUid = {
#ifdef PerlMinUid
  PerlMinUid
#else
  0x102015F6
#endif
};

_LIT(KDefaultScript, "default.pl");

// This is like the Symbian _LIT() but without the embedded L prefix,
// which enables using #defined constants (which need to carry their
// own L prefix).
#ifndef _LIT_NO_L
# define _LIT_NO_L(n, s) static const TLitC<sizeof(s)/2> n={sizeof(s)/2-1,s}
#endif // #ifndef _LIT_NO_L

#ifdef PerlMinName
_LIT_NO_L(KAppName, PerlMinName);
#else
_LIT(KAppName, "PerlApp");
#endif

#ifndef PerlMin

_LIT_NO_L(KFlavor, PERL_SYMBIANSDK_FLAVOR);
_LIT(KAboutFormat,
     "Perl %d.%d.%d, Symbian port %d.%d.%d, built for %S SDK %d.%d");
_LIT(KCopyrightFormat,
     "Copyright 1987-2005 Larry Wall and others, Symbian port Copyright Nokia 2004-2005");
_LIT(KInboxPrefix, "\\System\\Mail\\");
_LIT(KScriptPrefix, "\\Perl\\");

_LIT8(KModulePrefix, SITELIB); // SITELIB from Perl config.h

typedef TBuf<256>  TMessageBuffer;
typedef TBuf8<256> TPeekBuffer;
typedef TBuf8<256> TFileName8;

#endif // #ifndef PerlMin

// Usage: DEBUG_PRINTF((_L("%S"), &aStr))
#if 1
#define DEBUG_PRINTF(s) {TMessageBuffer message; message.Format s; YesNoDialogL(message);}
#endif

static void DoRunScriptL(TFileName aScriptName);

TUid CPerlAppApplication::AppDllUid() const
{
    return KPerlAppUid;
}

enum TPerlAppPanic 
{
    EPerlAppCommandUnknown = 1
};

void Panic(TPerlAppPanic aReason)
{
    User::Panic(KAppName, aReason);
}

void CPerlAppUi::ConstructL()
{
    BaseConstructL();
    iAppView = CPerlAppView::NewL(ClientRect());
    AddToStackL(iAppView);
    iFs = NULL;
    CEikonEnv::Static()->DisableExitChecks(ETrue); // Symbian FAQ-0577.
}

CPerlAppUi::~CPerlAppUi()
{
    if (iAppView) {
        iEikonEnv->RemoveFromStack(iAppView);
        delete iAppView;
        iAppView = NULL;
    }
    if (iFs) {
        delete iFs;
        iFs = NULL;
    }
    if (iDoorObserver) // Otherwise the embedding application waits forever.
        iDoorObserver->NotifyExit(MApaEmbeddedDocObserver::EEmpty);
}

#ifndef PerlMin

#ifdef __SERIES60__

static TBool DlgOk(CAknNoteDialog* dlg)
{
    return dlg && dlg->RunDlgLD() == EAknSoftkeyOk;
}

#endif /* #ifdef __SERIES60__ */

static TBool OkCancelDialogL(TDesC& aMessage)
{
#ifdef __SERIES60__
    CAknNoteDialog* dlg =
        new (ELeave) CAknNoteDialog(CAknNoteDialog::EConfirmationTone);
    dlg->PrepareLC(R_OK_CANCEL_DIALOG);
    dlg->SetTextL(aMessage);
    return DlgOk(dlg);
#endif /* #ifdef __SERIES60__ */
#ifdef __SERIES80__
    return CCknFlashingDialog::RunDlgLD(_L("OK/Cancel"), aMessage, NULL,
                                        CCknFlashingDialog::EShort,
                                        NULL);
#endif /* #ifdef __SERIES80__ */
}

static TBool YesNoDialogL(TDesC& aMessage)
{
#ifdef __SERIES60__
    CAknNoteDialog* dlg =
        new (ELeave) CAknNoteDialog(CAknNoteDialog::EConfirmationTone);
    dlg->PrepareLC(R_YES_NO_DIALOG);
    dlg->SetTextL(aMessage);
    return DlgOk(dlg);
#endif /* #ifdef __SERIES60__ */
#ifdef __SERIES80__
    return CCknFlashingDialog::RunDlgLD(_L("Yes/No"), aMessage, NULL,
                                        CCknFlashingDialog::EShort,
                                        NULL);
#endif /* #ifdef __SERIES80__ */
}

static TInt InformationNoteL(TDesC& aMessage)
{
#ifdef __SERIES60__
    CAknInformationNote* note = new (ELeave) CAknInformationNote;
    return note->ExecuteLD(aMessage);
#endif /* #ifdef __SERIES60__ */
#ifdef __SERIES80__
    return CCknFlashingDialog::RunDlgLD(_L("Info"), aMessage, NULL,
                                        CCknFlashingDialog::ENormal,
                                        NULL);
#endif /* #ifdef __SERIES80__ */
}

static TInt ConfirmationNoteL(TDesC& aMessage)
{
#ifdef __SERIES60__
    CAknConfirmationNote* note = new (ELeave) CAknConfirmationNote;
    return note->ExecuteLD(aMessage);
#endif /* #ifdef __SERIES60__ */
#ifdef __SERIES80__
    return CCknFlashingDialog::RunDlgLD(_L("Confirmation"), aMessage, NULL,
                                        CCknFlashingDialog::ENormal,
                                        NULL);
#endif /* #ifdef __SERIES80__ */
}

static TInt WarningNoteL(TDesC& aMessage)
{
#ifdef __SERIES60__
    CAknWarningNote* note = new (ELeave) CAknWarningNote;
    return note->ExecuteLD(aMessage);
#endif /* #ifdef __SERIES60__ */
#ifdef __SERIES80__
    CEikonEnv::Static()->AlertWin(aMessage);
    return ETrue;
#endif /* #ifdef __SERIES80__ */
}

static TInt TextQueryDialogL(const TDesC& aPrompt, TDes& aData, const TInt aMaxLength)
{
#ifdef __SERIES60__
    CAknTextQueryDialog* dlg =
        new (ELeave) CAknTextQueryDialog(aData);
    dlg->SetPromptL(aPrompt);
    dlg->SetMaxLength(aMaxLength);
    return dlg->ExecuteLD(R_TEXT_QUERY_DIALOG);
#endif /* #ifdef __SERIES60__ */
#ifdef __SERIES80__
    /* TODO */
    return ETrue;
#endif
}

// The isXXX() come from the Perl headers.
#define FILENAME_IS_ABSOLUTE(n) \
        (isALPHA(((n)[0])) && ((n)[1]) == ':' && ((n)[2]) == '\\')

static TBool IsInPerl(TFileName aFileName)
{
    TInt offset = aFileName.FindF(KScriptPrefix);
    return ((offset == 0 && // \foo
             aFileName[0] == '\\')
            ||
            (offset == 2 && // x:\foo
             FILENAME_IS_ABSOLUTE(aFileName)));
}

static TBool IsInInbox(TFileName aFileName)
{
    TInt offset = aFileName.FindF(KInboxPrefix);
    return ((offset == 0 && // \foo
             aFileName[0] == '\\')
            ||
            (offset == 2 && // x:\foo
             FILENAME_IS_ABSOLUTE(aFileName)));
}

static TBool IsPerlModule(TParsePtrC aParsed)
{
    return aParsed.Ext().CompareF(_L(".pm")) == 0; 
}

static TBool IsPerlScript(TParsePtrC aParsed)
{
    return aParsed.Ext().CompareF(_L(".pl")) == 0; 
}

static void CopyFromInboxL(RFs aFs, const TFileName& aSrc, const TFileName& aDst)
{
    TBool proceed = ETrue;
    TMessageBuffer message;

    message.Format(_L("%S is untrusted. Install only if you trust provider."), &aDst);
    if (OkCancelDialogL(message)) {
        message.Format(_L("Install as %S?"), &aDst);
        if (OkCancelDialogL(message)) {
            if (BaflUtils::FileExists(aFs, aDst)) {
                message.Format(_L("Replace old %S?"), &aDst);
                if (!OkCancelDialogL(message))
                    proceed = EFalse;
            }
            if (proceed) {
                // Create directory?
                TInt err = BaflUtils::CopyFile(aFs, aSrc, aDst);
                if (err == KErrNone) {
                    message.Format(_L("Installed %S"), &aDst);
                    ConfirmationNoteL(message);
                }
                else {
                    message.Format(_L("Failure %d installing %S"), err, &aDst);
                    WarningNoteL(message);
                }
            }
        }
    }
}

static TBool FindPerlPackageName(TPeekBuffer aPeekBuffer, TInt aOff, TFileName& aFn)
{
    aFn.SetMax();
    TInt m = aFn.MaxLength();
    TInt n = aPeekBuffer.Length();
    TInt i = 0;
    TInt j = aOff;

    aFn.SetMax();
    // The following is a little regular expression
    // engine that matches Perl package names.
    if (j < n && isSPACE(aPeekBuffer[j])) {
        while (j < n && isSPACE(aPeekBuffer[j])) j++;
        if (j < n && isALPHA(aPeekBuffer[j])) {
            while (j < n && isALNUM(aPeekBuffer[j])) {
                while (j < n &&
                       isALNUM(aPeekBuffer[j]) &&
                       i < m)
                    aFn[i++] = aPeekBuffer[j++];
                if (j + 1 < n &&
                    aPeekBuffer[j    ] == ':' &&
                    aPeekBuffer[j + 1] == ':' &&
                    i < m) {
                    aFn[i++] = '\\';
                    j += 2;
                    if (j < n &&
                        isALPHA(aPeekBuffer[j])) {
                        while (j < n &&
                               isALNUM(aPeekBuffer[j]) &&
                               i < m) 
                            aFn[i++] = aPeekBuffer[j++];
                    }
                }
            }
            while (j < n && isSPACE(aPeekBuffer[j])) j++;
            if (j < n && aPeekBuffer[j] == ';' && i + 3 < m) {
                aFn.SetLength(i);
                aFn.Append(_L(".pm"));
                return ETrue;
            }
        }
    }
    return EFalse;
}

static void GuessPerlModule(TFileName& aGuess, TPeekBuffer aPeekBuffer, TParse aDrive)
{
   TInt offset = aPeekBuffer.Find(_L8("package"));
   if (offset != KErrNotFound) {
       const TInt KPackageLen = 7;
       TFileName q;

       if (!FindPerlPackageName(aPeekBuffer, offset + KPackageLen, q))
           return;

       TFileName8 p;
       p.Copy(aDrive.Drive());
       p.Append(KModulePrefix);

       aGuess.SetMax();
       if (p.Length() + 1 + q.Length() < aGuess.MaxLength()) {
           TInt i = 0, j;

           for (j = 0; j < p.Length(); j++)
               aGuess[i++] = p[j];
           aGuess[i++] = '\\';
           for (j = 0; j < q.Length(); j++)
               aGuess[i++] = q[j];
           aGuess.SetLength(i);
       }
       else
           aGuess.SetLength(0);
   }
}

static TBool LooksLikePerlL(TPeekBuffer aPeekBuffer)
{
    return aPeekBuffer.Left(2).Compare(_L8("#!")) == 0 &&
           aPeekBuffer.Find(_L8("perl")) != KErrNotFound;
}

static TBool InstallStuffL(const TFileName &aSrc, TParse aDrive, TParse aFile, TPeekBuffer aPeekBuffer, RFs aFs)
{
    TFileName aDst;
    TPtrC drive  = aDrive.Drive();
    TPtrC namext = aFile.NameAndExt(); 

    aDst.Format(_L("%S%S%S"), &drive, &KScriptPrefix, &namext);
    if (!IsPerlScript(aDst) && !LooksLikePerlL(aPeekBuffer)) {
        aDst.SetLength(0);
        if (IsPerlModule(aDst))
            GuessPerlModule(aDst, aPeekBuffer, aDrive);
    }
    if (aDst.Length() > 0) {
        CopyFromInboxL(aFs, aSrc, aDst);
        return ETrue;
    }

    return EFalse;
}

static TBool RunStuffL(const TFileName& aScriptName, TPeekBuffer aPeekBuffer)
{
    TBool isModule = EFalse;

    if (IsInPerl(aScriptName) &&
        (IsPerlScript(aScriptName) ||
         (isModule = IsPerlModule(aScriptName)) ||
         LooksLikePerlL(aPeekBuffer))) {
        TMessageBuffer message;

        if (isModule)
            message.Format(_L("Really run module %S?"), &aScriptName);
        else 
            message.Format(_L("Run %S?"), &aScriptName);
        if (YesNoDialogL(message))
            DoRunScriptL(aScriptName);

        return ETrue;
    }

    return EFalse;
}

void CPerlAppUi::InstallOrRunL(const TFileName& aFileName)
{
    TParse aFile;
    TParse aDrive;
    TMessageBuffer message;

    aFile.Set(aFileName, NULL, NULL);
    if (FILENAME_IS_ABSOLUTE(aFileName)) {
        aDrive.Set(aFileName, NULL, NULL);
    } else {
        TFileName appName =
          CEikonEnv::Static()->EikAppUi()->Application()->AppFullName();
        aDrive.Set(appName, NULL, NULL);
    }
    if (!iFs)
        iFs = &CEikonEnv::Static()->FsSession();
    RFile f;
    TInt err = f.Open(*iFs, aFileName, EFileRead);
    if (err == KErrNone) {
        TPeekBuffer aPeekBuffer;
        err = f.Read(aPeekBuffer);
        f.Close();  // Release quickly.
        if (err == KErrNone) {
            if (!(IsInInbox(aFileName) ?
                  InstallStuffL(aFileName, aDrive, aFile, aPeekBuffer, *iFs) :
                  RunStuffL(aFileName, aPeekBuffer))) {
                message.Format(_L("Failed for file %S"), &aFileName);
                WarningNoteL(message);
            }
        } else {
            message.Format(_L("Error %d reading %S"), err, &aFileName);
            WarningNoteL(message);
        }
    } else {
        message.Format(_L("Error %d opening %S"), err, &aFileName);
        WarningNoteL(message);
    }
    if (iDoorObserver)
        delete CEikonEnv::Static()->EikAppUi();
    else
        Exit();
}

#endif // #ifndef PerlMin

static void DoRunScriptL(TFileName aScriptName)
{
    CPerlBase* perl = CPerlBase::NewInterpreterLC();
    TRAPD(error, perl->RunScriptL(aScriptName));
#ifndef PerlMin
    if (error != KErrNone) {
        TMessageBuffer message;
        message.Format(_L("Error %d"), error);
        YesNoDialogL(message);
    }
#endif // #ifndef PerlMin
    CleanupStack::PopAndDestroy(perl);
}

#ifndef PerlMin

void CPerlAppUi::OpenFileL(const TDesC& aFileName)
{
    InstallOrRunL(aFileName);
    return;
}

#endif // #ifndef PerlMin

TBool CPerlAppUi::ProcessCommandParametersL(TApaCommand aCommand, TFileName& /* aDocumentName */, const TDesC8& /* aTail */)
{
    if (aCommand == EApaCommandRun) {
        TFileName appName = Application()->AppFullName();
        TParse p;
        p.Set(KDefaultScript, &appName, NULL);
        TEntry aEntry;
        RFs aFs;
        aFs.Connect();
        if (aFs.Entry(p.FullName(), aEntry) == KErrNone) {
            DoRunScriptL(p.FullName());
            Exit();
        }
    }
    return aCommand == EApaCommandOpen ? ETrue : EFalse;
}

#ifndef PerlMin

void CPerlAppUi::SetFs(const RFs& aFs)
{
    iFs = (RFs*) &aFs;
}

#endif // #ifndef PerlMin

static void DoHandleCommandL(TInt aCommand) {
#ifndef PerlMin
    TMessageBuffer message;
#endif // #ifndef PerlMin

    switch(aCommand)
    {
#ifndef PerlMin
    case EPerlAppCommandAbout:
        {
            message.Format(KAboutFormat,
                           PERL_REVISION,
                           PERL_VERSION,
                           PERL_SUBVERSION,
                           PERL_SYMBIANPORT_MAJOR,
                           PERL_SYMBIANPORT_MINOR,
                           PERL_SYMBIANPORT_PATCH,
                           &KFlavor,
                           PERL_SYMBIANSDK_MAJOR,
                           PERL_SYMBIANSDK_MINOR
                           );
            InformationNoteL(message);
        }
        break;
    case EPerlAppCommandTime:
        {
            CPerlBase* perl = CPerlBase::NewInterpreterLC();
            const char *const argv[] =
              { "perl", "-le",
                "print 'Running in ', $^O, \"\\n\", scalar localtime" };
            perl->ParseAndRun(sizeof(argv)/sizeof(char*), (char **)argv, 0);
            CleanupStack::PopAndDestroy(perl);
        }
        break;
     case EPerlAppCommandRunFile:
        {
            TFileName aScriptUtf16;
#ifdef __SERIES60__
            if (AknCommonDialogs::RunSelectDlgLD(aScriptUtf16,
                                                 R_MEMORY_SELECTION_DIALOG))
                DoRunScriptL(aScriptUtf16);
#endif /* #ifdef __SERIES60__ */
#ifdef __SERIES80__
	    aScriptUtf16.Copy(_L("C:\\"));
	    if (CCknOpenFileDialog::RunDlgLD(aScriptUtf16,
		CCknOpenFileDialog::EShowSystemFilesAndFolders |
		CCknOpenFileDialog::EShowHiddenFilesAndFolders |
		CCknOpenFileDialog::EShowAllDrives             |
		CCknOpenFileDialog::EShowExtendedView          |
		CCknOpenFileDialog::EShowNoFilesText) {
	      /* TODO: despite all the above flags still does not seem
	       * to allow navigating outside the default directory. */
	      TEntry aEntry;
	      RFs aFs;
	      aFs.Connect();
	      if (aFs.Entry(aScriptUtf16, aEntry) == KErrNone)
                DoRunScriptL(aScriptUtf16);
	      /* else show error message? */
	    }
#endif /* #ifdef __SERIES80__ */
	}
        break;
     case EPerlAppCommandOneLiner:
        {
            _LIT(prompt, "Oneliner:");
            CPerlAppUi* cAppUi =
              STATIC_CAST(CPerlAppUi*, CEikonEnv::Static()->EikAppUi());
            if (TextQueryDialogL(prompt,
				 cAppUi->iOneLiner,
                                 KPerlAppOneLinerSize)) {
               const TUint KPerlAppUtf8Multi = 3;
                TBuf8<KPerlAppUtf8Multi * KPerlAppOneLinerSize> utf8;

                CnvUtfConverter::ConvertFromUnicodeToUtf8(utf8, cAppUi->iOneLiner);
                CPerlBase* perl = CPerlBase::NewInterpreterLC();
                int argc = 3;
                char **argv = (char**) malloc(argc * sizeof(char *));
                User::LeaveIfNull(argv);

                TCleanupItem argvCleanupItem = TCleanupItem(free, argv);
                CleanupStack::PushL(argvCleanupItem);
                argv[0] = (char *) "perl";
                argv[1] = (char *) "-le";
                argv[2] = (char *) utf8.PtrZ();
                perl->ParseAndRun(argc, argv);
                CleanupStack::PopAndDestroy(2, perl);
            }
        }
        break;
     case EPerlAppCommandCopyright:
        {
            message.Format(KCopyrightFormat);
            InformationNoteL(message);
        }
        break;
     case EPerlAppCommandAboutCopyright:
        {
	    TMessageBuffer m1;
	    TMessageBuffer m2;
            m1.Format(KAboutFormat,
		      PERL_REVISION,
		      PERL_VERSION,
		      PERL_SUBVERSION,
		      PERL_SYMBIANPORT_MAJOR,
		      PERL_SYMBIANPORT_MINOR,
		      PERL_SYMBIANPORT_PATCH,
		      &KFlavor,
		      PERL_SYMBIANSDK_MAJOR,
		      PERL_SYMBIANSDK_MINOR
		      );
            InformationNoteL(message);
            m2.Format(KCopyrightFormat);
	    message.Format(_L("%S %S"), &m1, &m2);
            InformationNoteL(message);
        }
        break;
#endif // #ifndef PerlMin
    default:
        Panic(EPerlAppCommandUnknown);
    }
}

#ifdef __SERIES60__

void CPerlAppUi::HandleCommandL(TInt aCommand)
{
    switch(aCommand)
    {
    case EEikCmdExit:
    case EAknSoftkeyExit:
        Exit();
        break;
    default:
        DoHandleCommandL(aCommand);
        break;
    }
}

#endif /* #ifdef __SERIES60__ */

#ifdef __SERIES80__

void CPerlAppView::HandleCommandL(TInt aCommand) {
    DoHandleCommandL(aCommand);
}

void CPerlAppUi::HandleCommandL(TInt aCommand) {
    switch(aCommand)
    {
    case EEikCmdExit:
        Exit();
        break;
    default:
        iAppView->HandleCommandL(aCommand);
        break;
    }
}

#endif /* #ifdef __SERIES80__ */

CPerlAppView* CPerlAppView::NewL(const TRect& aRect)
{
    CPerlAppView* self = CPerlAppView::NewLC(aRect);
    CleanupStack::Pop(self);
    return self;
}

CPerlAppView* CPerlAppView::NewLC(const TRect& aRect)
{
    CPerlAppView* self = new (ELeave) CPerlAppView;
    CleanupStack::PushL(self);
    self->ConstructL(aRect);
    return self;
}

void CPerlAppView::ConstructL(const TRect& aRect)
{
    CreateWindowL();
    SetRect(aRect);
    ActivateL();
}

CPerlAppView::~CPerlAppView()
{
}

void CPerlAppView::Draw(const TRect& /*aRect*/) const
{
    CWindowGc& gc = SystemGc();
    TRect rect = Rect();
    gc.Clear(rect);
}

CApaDocument* CPerlAppApplication::CreateDocumentL() 
{
    CPerlAppDocument* document = new (ELeave) CPerlAppDocument(*this);
    return document;
}

CEikAppUi* CPerlAppDocument::CreateAppUiL()
{
    CPerlAppUi* appui = new (ELeave) CPerlAppUi();
    return appui;
}


#ifndef PerlMin

CFileStore* CPerlAppDocument::OpenFileL(TBool aDoOpen, const TDesC& aFileName, RFs& aFs)
{
    CPerlAppUi* appui =
      STATIC_CAST(CPerlAppUi*, CEikonEnv::Static()->EikAppUi());
    appui->SetFs(aFs);
    if (aDoOpen)
        appui->OpenFileL(aFileName);
    return NULL;
}

#endif // #ifndef PerlMin

EXPORT_C CApaApplication* NewApplication() 
{
    return new CPerlAppApplication;
}

GLDEF_C TInt E32Dll(TDllReason /*aReason*/)
{
    return KErrNone;
}
Commit	Line	Data
27da23d5	1	/* Copyright (c) 2004-2005 Nokia. All rights reserved. */
27da23d5	2
0added8b	3	/* The PerlApp application is licensed under the same terms as Perl itself.
ed76c0e4	4	* Note that this PerlApp is for Symbian/Series 60/80 smartphones and it has
ed76c0e4	5	* nothing whatsoever to do with the ActiveState PerlApp. */
0added8b	6
27da23d5	7	#include "PerlApp.h"
27da23d5	8
ed76c0e4	9	#ifdef __SERIES60__
	10	# include <avkon.hrh>
	11	# include <aknnotewrappers.h>
	12	# include <AknCommonDialogs.h>
	13	# ifndef __SERIES60_1X__
	14	# include <CAknFileSelectionDialog.h>
	15	# endif
	16	#endif /* #ifdef __SERIES60__ */
	17
	18	#ifdef __SERIES80__
	19	# include <eikon.hrh>
	20	# include <cknflash.h>
	21	# include <ckndgopn.h>
	22	#endif /* #ifdef __SERIES80__ */
	23
27da23d5	24	#include <apparc.h>
	25	#include <e32base.h>
	26	#include <e32cons.h>
	27	#include <eikenv.h>
	28	#include <bautils.h>
	29	#include <eikappui.h>
	30	#include <utf.h>
	31	#include <f32file.h>
	32
27da23d5	33	#include <coemain.h>
27da23d5	34
0added8b	35	#ifndef PerlMin
0added8b	36
27da23d5	37	#include "PerlApp.hrh"
ed76c0e4	38
27da23d5	39	#include "PerlApp.rsg"
27da23d5	40
f26f4a2f	41	#endif //#ifndef PerlMin
0added8b	42
3c09d611	43	#include "EXTERN.h"
e0f47ab0	44	#include "perl.h"
27da23d5	45	#include "PerlBase.h"
27da23d5	46
0added8b	47	const TUid KPerlAppUid = {
	48	#ifdef PerlMinUid
	49	PerlMinUid
	50	#else
	51	0x102015F6
	52	#endif
	53	};
	54
	55	_LIT(KDefaultScript, "default.pl");
27da23d5	56
	57	// This is like the Symbian _LIT() but without the embedded L prefix,
	58	// which enables using #defined constants (which need to carry their
	59	// own L prefix).
	60	#ifndef _LIT_NO_L
0added8b	61	# define _LIT_NO_L(n, s) static const TLitC<sizeof(s)/2> n={sizeof(s)/2-1,s}
27da23d5	62	#endif // #ifndef _LIT_NO_L
27da23d5	63
0added8b	64	#ifdef PerlMinName
	65	_LIT_NO_L(KAppName, PerlMinName);
	66	#else
27da23d5	67	_LIT(KAppName, "PerlApp");
0added8b	68	#endif
	69
	70	#ifndef PerlMin
f26f4a2f	71
27da23d5	72	_LIT_NO_L(KFlavor, PERL_SYMBIANSDK_FLAVOR);
	73	_LIT(KAboutFormat,
	74	"Perl %d.%d.%d, Symbian port %d.%d.%d, built for %S SDK %d.%d");
	75	_LIT(KCopyrightFormat,
	76	"Copyright 1987-2005 Larry Wall and others, Symbian port Copyright Nokia 2004-2005");
	77	_LIT(KInboxPrefix, "\\System\\Mail\\");
	78	_LIT(KScriptPrefix, "\\Perl\\");
	79
	80	_LIT8(KModulePrefix, SITELIB); // SITELIB from Perl config.h
	81
	82	typedef TBuf<256> TMessageBuffer;
	83	typedef TBuf8<256> TPeekBuffer;
	84	typedef TBuf8<256> TFileName8;
	85
f26f4a2f	86	#endif // #ifndef PerlMin
f26f4a2f	87
27da23d5	88	// Usage: DEBUG_PRINTF((_L("%S"), &aStr))
	89	#if 1
	90	#define DEBUG_PRINTF(s) {TMessageBuffer message; message.Format s; YesNoDialogL(message);}
	91	#endif
	92
f26f4a2f	93	static void DoRunScriptL(TFileName aScriptName);
f26f4a2f	94
27da23d5	95	TUid CPerlAppApplication::AppDllUid() const
	96	{
	97	return KPerlAppUid;
	98	}
	99
	100	enum TPerlAppPanic
	101	{
	102	EPerlAppCommandUnknown = 1
	103	};
	104
	105	void Panic(TPerlAppPanic aReason)
	106	{
	107	User::Panic(KAppName, aReason);
	108	}
	109
	110	void CPerlAppUi::ConstructL()
	111	{
	112	BaseConstructL();
	113	iAppView = CPerlAppView::NewL(ClientRect());
	114	AddToStackL(iAppView);
	115	iFs = NULL;
	116	CEikonEnv::Static()->DisableExitChecks(ETrue); // Symbian FAQ-0577.
	117	}
	118
	119	CPerlAppUi::~CPerlAppUi()
	120	{
	121	if (iAppView) {
	122	iEikonEnv->RemoveFromStack(iAppView);
	123	delete iAppView;
	124	iAppView = NULL;
	125	}
	126	if (iFs) {
	127	delete iFs;
	128	iFs = NULL;
	129	}
	130	if (iDoorObserver) // Otherwise the embedding application waits forever.
	131	iDoorObserver->NotifyExit(MApaEmbeddedDocObserver::EEmpty);
	132	}
	133
0added8b	134	#ifndef PerlMin
0added8b	135
ed76c0e4	136	#ifdef __SERIES60__
ed76c0e4	137
27da23d5	138	static TBool DlgOk(CAknNoteDialog* dlg)
	139	{
	140	return dlg && dlg->RunDlgLD() == EAknSoftkeyOk;
	141	}
	142
ed76c0e4	143	#endif /* #ifdef __SERIES60__ */
ed76c0e4	144
27da23d5	145	static TBool OkCancelDialogL(TDesC& aMessage)
27da23d5	146	{
ed76c0e4	147	#ifdef __SERIES60__
27da23d5	148	CAknNoteDialog* dlg =
	149	new (ELeave) CAknNoteDialog(CAknNoteDialog::EConfirmationTone);
	150	dlg->PrepareLC(R_OK_CANCEL_DIALOG);
	151	dlg->SetTextL(aMessage);
	152	return DlgOk(dlg);
ed76c0e4	153	#endif /* #ifdef __SERIES60__ */
	154	#ifdef __SERIES80__
	155	return CCknFlashingDialog::RunDlgLD(_L("OK/Cancel"), aMessage, NULL,
	156	CCknFlashingDialog::EShort,
	157	NULL);
	158	#endif /* #ifdef __SERIES80__ */
27da23d5	159	}
	160
	161	static TBool YesNoDialogL(TDesC& aMessage)
	162	{
ed76c0e4	163	#ifdef __SERIES60__
27da23d5	164	CAknNoteDialog* dlg =
	165	new (ELeave) CAknNoteDialog(CAknNoteDialog::EConfirmationTone);
	166	dlg->PrepareLC(R_YES_NO_DIALOG);
	167	dlg->SetTextL(aMessage);
	168	return DlgOk(dlg);
ed76c0e4	169	#endif /* #ifdef __SERIES60__ */
	170	#ifdef __SERIES80__
	171	return CCknFlashingDialog::RunDlgLD(_L("Yes/No"), aMessage, NULL,
	172	CCknFlashingDialog::EShort,
	173	NULL);
	174	#endif /* #ifdef __SERIES80__ */
27da23d5	175	}
	176
	177	static TInt InformationNoteL(TDesC& aMessage)
	178	{
ed76c0e4	179	#ifdef __SERIES60__
27da23d5	180	CAknInformationNote* note = new (ELeave) CAknInformationNote;
27da23d5	181	return note->ExecuteLD(aMessage);
ed76c0e4	182	#endif /* #ifdef __SERIES60__ */
	183	#ifdef __SERIES80__
	184	return CCknFlashingDialog::RunDlgLD(_L("Info"), aMessage, NULL,
	185	CCknFlashingDialog::ENormal,
	186	NULL);
	187	#endif /* #ifdef __SERIES80__ */
27da23d5	188	}
	189
	190	static TInt ConfirmationNoteL(TDesC& aMessage)
	191	{
ed76c0e4	192	#ifdef __SERIES60__
27da23d5	193	CAknConfirmationNote* note = new (ELeave) CAknConfirmationNote;
27da23d5	194	return note->ExecuteLD(aMessage);
ed76c0e4	195	#endif /* #ifdef __SERIES60__ */
	196	#ifdef __SERIES80__
	197	return CCknFlashingDialog::RunDlgLD(_L("Confirmation"), aMessage, NULL,
	198	CCknFlashingDialog::ENormal,
	199	NULL);
	200	#endif /* #ifdef __SERIES80__ */
27da23d5	201	}
	202
	203	static TInt WarningNoteL(TDesC& aMessage)
	204	{
ed76c0e4	205	#ifdef __SERIES60__
27da23d5	206	CAknWarningNote* note = new (ELeave) CAknWarningNote;
27da23d5	207	return note->ExecuteLD(aMessage);
ed76c0e4	208	#endif /* #ifdef __SERIES60__ */
	209	#ifdef __SERIES80__
	210	CEikonEnv::Static()->AlertWin(aMessage);
	211	return ETrue;
	212	#endif /* #ifdef __SERIES80__ */
27da23d5	213	}
	214
	215	static TInt TextQueryDialogL(const TDesC& aPrompt, TDes& aData, const TInt aMaxLength)
	216	{
ed76c0e4	217	#ifdef __SERIES60__
27da23d5	218	CAknTextQueryDialog* dlg =
	219	new (ELeave) CAknTextQueryDialog(aData);
	220	dlg->SetPromptL(aPrompt);
	221	dlg->SetMaxLength(aMaxLength);
	222	return dlg->ExecuteLD(R_TEXT_QUERY_DIALOG);
ed76c0e4	223	#endif /* #ifdef __SERIES60__ */
	224	#ifdef __SERIES80__
	225	/* TODO */
	226	return ETrue;
	227	#endif
27da23d5	228	}
	229
	230	// The isXXX() come from the Perl headers.
	231	#define FILENAME_IS_ABSOLUTE(n) \
	232	(isALPHA(((n)[0])) && ((n)[1]) == ':' && ((n)[2]) == '\\')
	233
	234	static TBool IsInPerl(TFileName aFileName)
	235	{
	236	TInt offset = aFileName.FindF(KScriptPrefix);
	237	return ((offset == 0 && // \foo
	238	aFileName[0] == '\\')
	239	\|\|
	240	(offset == 2 && // x:\foo
	241	FILENAME_IS_ABSOLUTE(aFileName)));
	242	}
	243
	244	static TBool IsInInbox(TFileName aFileName)
	245	{
	246	TInt offset = aFileName.FindF(KInboxPrefix);
	247	return ((offset == 0 && // \foo
	248	aFileName[0] == '\\')
	249	\|\|
	250	(offset == 2 && // x:\foo
	251	FILENAME_IS_ABSOLUTE(aFileName)));
	252	}
	253
	254	static TBool IsPerlModule(TParsePtrC aParsed)
	255	{
	256	return aParsed.Ext().CompareF(_L(".pm")) == 0;
	257	}
	258
	259	static TBool IsPerlScript(TParsePtrC aParsed)
	260	{
	261	return aParsed.Ext().CompareF(_L(".pl")) == 0;
	262	}
	263
	264	static void CopyFromInboxL(RFs aFs, const TFileName& aSrc, const TFileName& aDst)
	265	{
	266	TBool proceed = ETrue;
	267	TMessageBuffer message;
	268
	269	message.Format(_L("%S is untrusted. Install only if you trust provider."), &aDst);
	270	if (OkCancelDialogL(message)) {
	271	message.Format(_L("Install as %S?"), &aDst);
	272	if (OkCancelDialogL(message)) {
	273	if (BaflUtils::FileExists(aFs, aDst)) {
	274	message.Format(_L("Replace old %S?"), &aDst);
	275	if (!OkCancelDialogL(message))
	276	proceed = EFalse;
	277	}
	278	if (proceed) {
	279	// Create directory?
	280	TInt err = BaflUtils::CopyFile(aFs, aSrc, aDst);
	281	if (err == KErrNone) {
	282	message.Format(_L("Installed %S"), &aDst);
	283	ConfirmationNoteL(message);
	284	}
	285	else {
	286	message.Format(_L("Failure %d installing %S"), err, &aDst);
	287	WarningNoteL(message);
	288	}
	289	}
	290	}
	291	}
292	}
293
294	static TBool FindPerlPackageName(TPeekBuffer aPeekBuffer, TInt aOff, TFileName& aFn)
295	{
296	aFn.SetMax();
297	TInt m = aFn.MaxLength();
298	TInt n = aPeekBuffer.Length();
299	TInt i = 0;
300	TInt j = aOff;
301
302	aFn.SetMax();
303	// The following is a little regular expression
304	// engine that matches Perl package names.
305	if (j < n && isSPACE(aPeekBuffer[j])) {
306	while (j < n && isSPACE(aPeekBuffer[j])) j++;
307	if (j < n && isALPHA(aPeekBuffer[j])) {
308	while (j < n && isALNUM(aPeekBuffer[j])) {
309	while (j < n &&
310	isALNUM(aPeekBuffer[j]) &&
311	i < m)
312	aFn[i++] = aPeekBuffer[j++];
313	if (j + 1 < n &&
314	aPeekBuffer[j ] == ':' &&
315	aPeekBuffer[j + 1] == ':' &&
316	i < m) {
317	aFn[i++] = '\\';
318	j += 2;
319	if (j < n &&
320	isALPHA(aPeekBuffer[j])) {
321	while (j < n &&
322	isALNUM(aPeekBuffer[j]) &&
323	i < m)
324	aFn[i++] = aPeekBuffer[j++];
325	}
326	}
327	}
328	while (j < n && isSPACE(aPeekBuffer[j])) j++;
329	if (j < n && aPeekBuffer[j] == ';' && i + 3 < m) {
330	aFn.SetLength(i);
331	aFn.Append(_L(".pm"));
332	return ETrue;
333	}
334	}
335	}
336	return EFalse;
337	}
338
339	static void GuessPerlModule(TFileName& aGuess, TPeekBuffer aPeekBuffer, TParse aDrive)
340	{
341	TInt offset = aPeekBuffer.Find(_L8("package"));
342	if (offset != KErrNotFound) {
343	const TInt KPackageLen = 7;
344	TFileName q;
345
346	if (!FindPerlPackageName(aPeekBuffer, offset + KPackageLen, q))
347	return;
348
349	TFileName8 p;
350	p.Copy(aDrive.Drive());
351	p.Append(KModulePrefix);
352
353	aGuess.SetMax();
354	if (p.Length() + 1 + q.Length() < aGuess.MaxLength()) {
355	TInt i = 0, j;
356
357	for (j = 0; j < p.Length(); j++)
358	aGuess[i++] = p[j];
359	aGuess[i++] = '\\';
360	for (j = 0; j < q.Length(); j++)
361	aGuess[i++] = q[j];
362	aGuess.SetLength(i);
363	}
364	else
365	aGuess.SetLength(0);
366	}
367	}
368
369	static TBool LooksLikePerlL(TPeekBuffer aPeekBuffer)
370	{
371	return aPeekBuffer.Left(2).Compare(_L8("#!")) == 0 &&
372	aPeekBuffer.Find(_L8("perl")) != KErrNotFound;
373	}
374
375	static TBool InstallStuffL(const TFileName &aSrc, TParse aDrive, TParse aFile, TPeekBuffer aPeekBuffer, RFs aFs)
376	{
377	TFileName aDst;
378	TPtrC drive = aDrive.Drive();
379	TPtrC namext = aFile.NameAndExt();
380
381	aDst.Format(_L("%S%S%S"), &drive, &KScriptPrefix, &namext);
382	if (!IsPerlScript(aDst) && !LooksLikePerlL(aPeekBuffer)) {
383	aDst.SetLength(0);
384	if (IsPerlModule(aDst))
385	GuessPerlModule(aDst, aPeekBuffer, aDrive);
386	}
387	if (aDst.Length() > 0) {
388	CopyFromInboxL(aFs, aSrc, aDst);
389	return ETrue;
390	}
391
392	return EFalse;
393	}
394
27da23d5	395	static TBool RunStuffL(const TFileName& aScriptName, TPeekBuffer aPeekBuffer)
	396	{
	397	TBool isModule = EFalse;
	398
	399	if (IsInPerl(aScriptName) &&
	400	(IsPerlScript(aScriptName) \|\|
	401	(isModule = IsPerlModule(aScriptName)) \|\|
	402	LooksLikePerlL(aPeekBuffer))) {
	403	TMessageBuffer message;
	404
	405	if (isModule)
	406	message.Format(_L("Really run module %S?"), &aScriptName);
	407	else
	408	message.Format(_L("Run %S?"), &aScriptName);
	409	if (YesNoDialogL(message))
	410	DoRunScriptL(aScriptName);
	411
	412	return ETrue;
	413	}
	414
	415	return EFalse;
	416	}
	417
	418	void CPerlAppUi::InstallOrRunL(const TFileName& aFileName)
	419	{
	420	TParse aFile;
	421	TParse aDrive;
	422	TMessageBuffer message;
	423
	424	aFile.Set(aFileName, NULL, NULL);
	425	if (FILENAME_IS_ABSOLUTE(aFileName)) {
	426	aDrive.Set(aFileName, NULL, NULL);
	427	} else {
	428	TFileName appName =
	429	CEikonEnv::Static()->EikAppUi()->Application()->AppFullName();
	430	aDrive.Set(appName, NULL, NULL);
	431	}
	432	if (!iFs)
	433	iFs = &CEikonEnv::Static()->FsSession();
	434	RFile f;
	435	TInt err = f.Open(*iFs, aFileName, EFileRead);
	436	if (err == KErrNone) {
	437	TPeekBuffer aPeekBuffer;
	438	err = f.Read(aPeekBuffer);
	439	f.Close(); // Release quickly.
	440	if (err == KErrNone) {
	441	if (!(IsInInbox(aFileName) ?
	442	InstallStuffL(aFileName, aDrive, aFile, aPeekBuffer, *iFs) :
	443	RunStuffL(aFileName, aPeekBuffer))) {
	444	message.Format(_L("Failed for file %S"), &aFileName);
	445	WarningNoteL(message);
	446	}
	447	} else {
	448	message.Format(_L("Error %d reading %S"), err, &aFileName);
	449	WarningNoteL(message);
	450	}
	451	} else {
	452	message.Format(_L("Error %d opening %S"), err, &aFileName);
	453	WarningNoteL(message);
	454	}
	455	if (iDoorObserver)
	456	delete CEikonEnv::Static()->EikAppUi();
	457	else
	458	Exit();
459	}
460
0added8b	461	#endif // #ifndef PerlMin
	462
	463	static void DoRunScriptL(TFileName aScriptName)
	464	{
	465	CPerlBase* perl = CPerlBase::NewInterpreterLC();
	466	TRAPD(error, perl->RunScriptL(aScriptName));
	467	#ifndef PerlMin
	468	if (error != KErrNone) {
	469	TMessageBuffer message;
	470	message.Format(_L("Error %d"), error);
	471	YesNoDialogL(message);
	472	}
f26f4a2f	473	#endif // #ifndef PerlMin
0added8b	474	CleanupStack::PopAndDestroy(perl);
	475	}
	476
f26f4a2f	477	#ifndef PerlMin
f26f4a2f	478
27da23d5	479	void CPerlAppUi::OpenFileL(const TDesC& aFileName)
	480	{
	481	InstallOrRunL(aFileName);
	482	return;
	483	}
	484
f26f4a2f	485	#endif // #ifndef PerlMin
f26f4a2f	486
27da23d5	487	TBool CPerlAppUi::ProcessCommandParametersL(TApaCommand aCommand, TFileName& /* aDocumentName /, const TDesC8& / aTail */)
27da23d5	488	{
0added8b	489	if (aCommand == EApaCommandRun) {
0added8b	490	TFileName appName = Application()->AppFullName();
ed76c0e4	491	TParse p;
	492	p.Set(KDefaultScript, &appName, NULL);
	493	TEntry aEntry;
	494	RFs aFs;
	495	aFs.Connect();
	496	if (aFs.Entry(p.FullName(), aEntry) == KErrNone) {
	497	DoRunScriptL(p.FullName());
	498	Exit();
	499	}
0added8b	500	}
27da23d5	501	return aCommand == EApaCommandOpen ? ETrue : EFalse;
	502	}
	503
f26f4a2f	504	#ifndef PerlMin
f26f4a2f	505
27da23d5	506	void CPerlAppUi::SetFs(const RFs& aFs)
	507	{
	508	iFs = (RFs*) &aFs;
	509	}
	510
f26f4a2f	511	#endif // #ifndef PerlMin
f26f4a2f	512
ed76c0e4	513	static void DoHandleCommandL(TInt aCommand) {
0added8b	514	#ifndef PerlMin
27da23d5	515	TMessageBuffer message;
0added8b	516	#endif // #ifndef PerlMin
27da23d5	517
	518	switch(aCommand)
	519	{
0added8b	520	#ifndef PerlMin
27da23d5	521	case EPerlAppCommandAbout:
	522	{
	523	message.Format(KAboutFormat,
	524	PERL_REVISION,
	525	PERL_VERSION,
	526	PERL_SUBVERSION,
	527	PERL_SYMBIANPORT_MAJOR,
	528	PERL_SYMBIANPORT_MINOR,
	529	PERL_SYMBIANPORT_PATCH,
	530	&KFlavor,
	531	PERL_SYMBIANSDK_MAJOR,
	532	PERL_SYMBIANSDK_MINOR
	533	);
	534	InformationNoteL(message);
	535	}
	536	break;
	537	case EPerlAppCommandTime:
	538	{
	539	CPerlBase* perl = CPerlBase::NewInterpreterLC();
	540	const char *const argv[] =
	541	{ "perl", "-le",
	542	"print 'Running in ', $^O, \"\\n\", scalar localtime" };
	543	perl->ParseAndRun(sizeof(argv)/sizeof(char), (char *)argv, 0);
	544	CleanupStack::PopAndDestroy(perl);
	545	}
	546	break;
	547	case EPerlAppCommandRunFile:
	548	{
27da23d5	549	TFileName aScriptUtf16;
ed76c0e4	550	#ifdef __SERIES60__
27da23d5	551	if (AknCommonDialogs::RunSelectDlgLD(aScriptUtf16,
	552	R_MEMORY_SELECTION_DIALOG))
	553	DoRunScriptL(aScriptUtf16);
ed76c0e4	554	#endif /* #ifdef __SERIES60__ */
	555	#ifdef __SERIES80__
	556	aScriptUtf16.Copy(_L("C:\\"));
	557	if (CCknOpenFileDialog::RunDlgLD(aScriptUtf16,
	558	CCknOpenFileDialog::EShowSystemFilesAndFolders \|
	559	CCknOpenFileDialog::EShowHiddenFilesAndFolders \|
	560	CCknOpenFileDialog::EShowAllDrives \|
	561	CCknOpenFileDialog::EShowExtendedView \|
	562	CCknOpenFileDialog::EShowNoFilesText) {
	563	/* TODO: despite all the above flags still does not seem
	564	* to allow navigating outside the default directory. */
	565	TEntry aEntry;
	566	RFs aFs;
	567	aFs.Connect();
	568	if (aFs.Entry(aScriptUtf16, aEntry) == KErrNone)
	569	DoRunScriptL(aScriptUtf16);
	570	/* else show error message? */
	571	}
	572	#endif /* #ifdef __SERIES80__ */
	573	}
27da23d5	574	break;
	575	case EPerlAppCommandOneLiner:
	576	{
	577	_LIT(prompt, "Oneliner:");
ed76c0e4	578	CPerlAppUi* cAppUi =
	579	STATIC_CAST(CPerlAppUi*, CEikonEnv::Static()->EikAppUi());
	580	if (TextQueryDialogL(prompt,
	581	cAppUi->iOneLiner,
	582	KPerlAppOneLinerSize)) {
	583	const TUint KPerlAppUtf8Multi = 3;
27da23d5	584	TBuf8<KPerlAppUtf8Multi * KPerlAppOneLinerSize> utf8;
27da23d5	585
ed76c0e4	586	CnvUtfConverter::ConvertFromUnicodeToUtf8(utf8, cAppUi->iOneLiner);
27da23d5	587	CPerlBase* perl = CPerlBase::NewInterpreterLC();
	588	int argc = 3;
	589	char argv = (char) malloc(argc * sizeof(char *));
	590	User::LeaveIfNull(argv);
	591
	592	TCleanupItem argvCleanupItem = TCleanupItem(free, argv);
	593	CleanupStack::PushL(argvCleanupItem);
	594	argv[0] = (char *) "perl";
	595	argv[1] = (char *) "-le";
	596	argv[2] = (char *) utf8.PtrZ();
	597	perl->ParseAndRun(argc, argv);
	598	CleanupStack::PopAndDestroy(2, perl);
	599	}
	600	}
	601	break;
	602	case EPerlAppCommandCopyright:
	603	{
	604	message.Format(KCopyrightFormat);
	605	InformationNoteL(message);
	606	}
	607	break;
ed76c0e4	608	case EPerlAppCommandAboutCopyright:
	609	{
	610	TMessageBuffer m1;
	611	TMessageBuffer m2;
	612	m1.Format(KAboutFormat,
	613	PERL_REVISION,
	614	PERL_VERSION,
	615	PERL_SUBVERSION,
	616	PERL_SYMBIANPORT_MAJOR,
	617	PERL_SYMBIANPORT_MINOR,
	618	PERL_SYMBIANPORT_PATCH,
	619	&KFlavor,
	620	PERL_SYMBIANSDK_MAJOR,
	621	PERL_SYMBIANSDK_MINOR
	622	);
	623	InformationNoteL(message);
	624	m2.Format(KCopyrightFormat);
	625	message.Format(_L("%S %S"), &m1, &m2);
	626	InformationNoteL(message);
	627	}
	628	break;
0added8b	629	#endif // #ifndef PerlMin
27da23d5	630	default:
27da23d5	631	Panic(EPerlAppCommandUnknown);
ed76c0e4	632	}
	633	}
	634
	635	#ifdef __SERIES60__
	636
	637	void CPerlAppUi::HandleCommandL(TInt aCommand)
	638	{
	639	switch(aCommand)
	640	{
	641	case EEikCmdExit:
	642	case EAknSoftkeyExit:
	643	Exit();
	644	break;
	645	default:
	646	DoHandleCommandL(aCommand);
	647	break;
	648	}
	649	}
	650
	651	#endif /* #ifdef __SERIES60__ */
	652
	653	#ifdef __SERIES80__
	654
	655	void CPerlAppView::HandleCommandL(TInt aCommand) {
	656	DoHandleCommandL(aCommand);
	657	}
	658
	659	void CPerlAppUi::HandleCommandL(TInt aCommand) {
	660	switch(aCommand)
	661	{
	662	case EEikCmdExit:
	663	Exit();
	664	break;
	665	default:
	666	iAppView->HandleCommandL(aCommand);
27da23d5	667	break;
	668	}
	669	}
	670
ed76c0e4	671	#endif /* #ifdef __SERIES80__ */
ed76c0e4	672
27da23d5	673	CPerlAppView* CPerlAppView::NewL(const TRect& aRect)
	674	{
	675	CPerlAppView* self = CPerlAppView::NewLC(aRect);
	676	CleanupStack::Pop(self);
	677	return self;
	678	}
	679
	680	CPerlAppView* CPerlAppView::NewLC(const TRect& aRect)
	681	{
	682	CPerlAppView* self = new (ELeave) CPerlAppView;
	683	CleanupStack::PushL(self);
	684	self->ConstructL(aRect);
	685	return self;
	686	}
	687
	688	void CPerlAppView::ConstructL(const TRect& aRect)
	689	{
	690	CreateWindowL();
	691	SetRect(aRect);
	692	ActivateL();
	693	}
	694
ed76c0e4	695	CPerlAppView::~CPerlAppView()
	696	{
	697	}
	698
27da23d5	699	void CPerlAppView::Draw(const TRect& /aRect/) const
	700	{
	701	CWindowGc& gc = SystemGc();
	702	TRect rect = Rect();
	703	gc.Clear(rect);
	704	}
	705
	706	CApaDocument* CPerlAppApplication::CreateDocumentL()
	707	{
	708	CPerlAppDocument* document = new (ELeave) CPerlAppDocument(*this);
	709	return document;
	710	}
	711
	712	CEikAppUi* CPerlAppDocument::CreateAppUiL()
	713	{
	714	CPerlAppUi* appui = new (ELeave) CPerlAppUi();
	715	return appui;
	716	}
	717
f26f4a2f	718
	719	#ifndef PerlMin
	720
ed76c0e4	721	CFileStore* CPerlAppDocument::OpenFileL(TBool aDoOpen, const TDesC& aFileName, RFs& aFs)
27da23d5	722	{
	723	CPerlAppUi* appui =
	724	STATIC_CAST(CPerlAppUi*, CEikonEnv::Static()->EikAppUi());
	725	appui->SetFs(aFs);
ed76c0e4	726	if (aDoOpen)
ed76c0e4	727	appui->OpenFileL(aFileName);
27da23d5	728	return NULL;
	729	}
	730
f26f4a2f	731	#endif // #ifndef PerlMin
f26f4a2f	732
27da23d5	733	EXPORT_C CApaApplication* NewApplication()
	734	{
	735	return new CPerlAppApplication;
	736	}
	737
	738	GLDEF_C TInt E32Dll(TDllReason /aReason/)
	739	{
	740	return KErrNone;
	741	}
	742