fix evaluation order bug (patch 1158099)

[wxWidgets.git] / contrib / utils / convertrc / rc2wxr.cpp

// rc2wxr.cpp: implementation of the rc2wxr class.

//

//////////////////////////////////////////////////////////////////////

//Author:  Brian Gavin 9/24/00

//License: wxWindows License

/*

WARNING- I know this code has some bugs to work out but

I don't plan to fix them since I feel that wxr files will

not be used much longer.

This code was used as a starting point for my rc2xml converter

*/

#ifdef __GNUG__

#pragma implementation "rc2wxr.cpp"

#pragma interface "rc2wxr.cpp"

#endif



// For compilers that support precompilation, includes "wx/wx.h".

#include "wx/wxprec.h"



#ifdef __BORLANDC__

#pragma hdrstop

#endif



// for all others, include the necessary headers (this file is usually all you

// need because it includes almost all "standard" wxWidgets headers

#ifndef WX_PRECOMP

#include <wx/wx.h>

#endif





#include "rc2wxr.h"

#include "wx/image.h"

#include "wx/deprecated/setup.h"
#include "wx/deprecated/resource.h"

//////////////////////////////////////////////////////////////////////

// Construction/Destruction

//////////////////////////////////////////////////////////////////////



rc2wxr::rc2wxr()

{

m_done=false;

m_controlid=6000;

}



rc2wxr::~rc2wxr()

{



}



void rc2wxr::Convert(wxString wxrfile, wxString rcfile)
{
    m_rc.Open(rcfile);
    m_filesize=m_rc.Length();
    if( (m_wxr  = wxFopen( wxrfile, _T("wt") )) == NULL )
    {
        return;
    }

    wxString tok,prevtok;

    while (!m_done)
    {
        tok=GetToken();

        if (tok==_T("DIALOG"))
        {
            ParseDialog(prevtok);
        }

        if (tok==_T("MENU"))
        {
            ParseMenu(prevtok);
        }

        prevtok=tok;
    }

    fclose(m_wxr);

    m_rc.Close();
}





/*

Example .rc

Microsoft style as of v5.0

IDD_ABOUTBOX DIALOG DISCARDABLE  0, 0, 217, 55

STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU

CAPTION "About Funimator"

FONT 8, "MS Sans Serif"



  Borland 4.5 style rc

IDD_DIBATTR DIALOG 7, 16, 172, 119

STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU

CAPTION "DIB Attributes"

FONT 8, "MS Sans Serif"

{

 DEFPUSHBUTTON "Ok", IDOK, 114, 8, 50, 14

 PUSHBUTTON "Cancel", IDCANCEL, 114, 28, 50, 14







*/

void rc2wxr::ParseDialog(wxString dlgname)

{

wxString tok;

static int dlgid=999;

dlgid++;

/* Make sure that this really is a dialog

microsoft reuses the keyword DIALOG for other things

*/

tok=PeekToken();

//Microsoft notation?

if (tok==_T("DISCARDABLE"))

{

tok=GetToken();

tok=PeekToken();

}

//This isn't a Dialog resource eject eject

if (!tok.IsNumber())

    return;

//Generate Dialog text

wxFprintf(m_wxr,_T("static char *dialog%i = \"dialog(name = '%s',\\\n"),dlgid,dlgname.c_str());

//be lazy about style for now. add it later

wxFprintf(m_wxr,_T("style = 'wxRAISED_BORDER | wxCAPTION | wxTHICK_FRAME | wxSYSTEM_MENU',\\\n"));



wxFprintf(m_wxr,_T("id = %i,\\\n"),dlgid);



//Record x,y,width,height

int x,y,width,height;

ReadRect(x,y,width,height);

wxFprintf(m_wxr,_T("x = %i, y = %i, width = %i, height = %i,\\\n"),x,y,width,height);





//CAPTION "About Funimator"

//Get Title

tok=GetToken();

wxString title;



while ((tok!=_T("BEGIN"))&(tok!=_T("{")))

{

if (tok==_T("CAPTION"))

{

title=GetQuoteField();

wxFprintf(m_wxr,_T("title = '%s',\\\n"),title.c_str());

}

tok=GetToken();

}

wxFprintf(m_wxr,_T("use_dialog_units = 1,\\\n"));

wxFprintf(m_wxr,_T("use_system_defaults = 0,\\\n"));



wxFprintf(m_wxr,_T("font = [8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif'],\\\n"));

ParseControls();

wxFprintf(m_wxr,_T(").\";\n\n"));

}



/*

BEGIN







    EDITTEXT        IDC_BANDS,36,83,22,14,ES_AUTOHSCROLL | ES_NUMBER | NOT

                    WS_TABSTOP

    LTEXT           "Bands",IDC_STATIC,11,86,21,8

    EDITTEXT        IDC_NAME,10,3,75,14,ES_AUTOHSCROLL

END

*/

void rc2wxr::ParseControls()

{

wxString tok;



tok=GetToken();

while ((tok!=_T("END"))&(tok!=_T("}")))

{

if (tok==_T("LTEXT"))

    ParseStaticText();

if (tok==_T("EDITTEXT"))

    ParseTextCtrl();

if (tok==_T("PUSHBUTTON"))

    ParsePushButton();

if (tok==_T("DEFPUSHBUTTON"))

    ParsePushButton();

if (tok==_T("GROUPBOX"))

    ParseGroupBox();

if (tok==_T("COMBOBOX"))

    ParseComboBox();

if (tok==_T("CONTROL"))

    ParseControlMS();



tok=GetToken();

}



}

//LTEXT           "Radius",IDC_STATIC,9,67,23,8

void rc2wxr::ParseStaticText()

{

wxString tok;

wxString phrase,varname;

phrase=GetQuoteField();

varname=GetToken();

m_controlid++;

int x,y,width,height;

ReadRect(x,y,width,height);

wxFprintf(m_wxr,_T("  control = [%i,wxStaticText,'%s','0','%s',"),m_controlid,phrase.c_str(),varname.c_str());

wxFprintf(m_wxr,_T("%i,%i,%i,%i,'',\\\n"),x,y,width,height);

wxFprintf(m_wxr,_T("[8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif']],\\\n"));

}

//EDITTEXT        IDC_RADIUS,36,65,40,14,ES_AUTOHSCROLL

void rc2wxr::ParseTextCtrl()

{

wxString tok;

wxString varname;

varname=GetToken();

m_controlid++;

int x,y,width,height;

ReadRect(x,y,width,height);

wxFprintf(m_wxr,_T("  control = [%i,wxTextCtrl,'','0','%s',"),m_controlid,varname.c_str());

wxFprintf(m_wxr,_T("%i,%i,%i,%i,'',\\\n"),x,y,width,height);

wxFprintf(m_wxr,_T("[8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif']],\\\n"));



}

//PUSHBUTTON      "Create/Update",IDC_CREATE,15,25,53,13,NOT WS_TABSTOP

void rc2wxr::ParsePushButton()

{

wxString tok;

wxString phrase,varname;

phrase=GetQuoteField();

varname=GetToken();

int c;

m_controlid++;

c=m_controlid;

if (varname==_T("IDOK"))

c=wxID_OK;



if (varname==_T("IDCANCEL"))

c=wxID_CANCEL;



if (varname==_T("IDAPPLY"))

c=wxID_APPLY;



int x,y,width,height;

ReadRect(x,y,width,height);

wxFprintf(m_wxr,_T("  control = [%i,wxButton,'%s','0','%s',"),c,phrase.c_str(),varname.c_str());

wxFprintf(m_wxr,_T("%i,%i,%i,%i,'',\\\n"),x,y,width,height);

wxFprintf(m_wxr,_T("[8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif']],\\\n"));



}





bool rc2wxr::Seperator(int ch)

{

if ((ch==' ')|(ch==',')|(ch==13)|(ch==10)|(ch=='|'))

   return true;



if (ch==EOF)

{

m_done=true;

return true;

}

return false;

}



void rc2wxr::ParseGroupBox()

{

//    GROUPBOX        "Rotate",IDC_STATIC,1,1,71,79

wxString tok;

wxString phrase,varname;

phrase=GetQuoteField();

varname=GetToken();

m_controlid++;

int x,y,width,height;

ReadRect(x,y,width,height);

wxFprintf(m_wxr,_T("  control = [%i,wxStaticBox,'%s','0','%s',"),m_controlid,phrase.c_str(),varname.c_str());

wxFprintf(m_wxr,_T("%i,%i,%i,%i,'',\\\n"),x,y,width,height);

wxFprintf(m_wxr,_T("[8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif']],\\\n"));





}



void rc2wxr::ReadRect(int & x, int & y, int & width, int & height)

{

x=wxAtoi(GetToken());

y=wxAtoi(GetToken());

width=wxAtoi(GetToken());

height=wxAtoi(GetToken());



}



wxString rc2wxr::GetToken()

{

wxString tok=wxEmptyString;



if (m_rc.Eof())

{

m_done=true;

return tok;

}



int ch=0;

ReadChar(ch);

if (ch==EOF)

{

m_done=true;

return tok;

}



while (Seperator(ch))

{

  ReadChar(ch);

  if (m_done)

  return tok;

}



if (ch==EOF)

{

m_done=true;



}





while (!Seperator(ch))

{

tok+=(char)ch;

ReadChar(ch);



}



if (ch==EOF)

   m_done=true;





return tok;

}



wxString rc2wxr::GetQuoteField()

{

wxString phrase;

//ASCII code 34 "

int ch=0;

ReadChar(ch);



while (ch!=34)

  ReadChar(ch);



  ReadChar(ch);



while (ch!=34)

{

  phrase+=(char)ch;

  ReadChar(ch);

}

return phrase;

}



void rc2wxr::ReadChar(int &ch)
{
    wxFileOffset result = m_rc.Tell();

    if ( result >= m_filesize )
        m_done=true;

    result = m_rc.Read(&ch,1);

    if ( result==wxInvalidOffset )
        m_done=true;

    if(ch==EOF)
        m_done=true;
}



void rc2wxr::ParseComboBox()
{

/* COMBOBOX        IDC_SCALECOMBO,10,110,48,52,CBS_DROPDOWNLIST | CBS_SORT |

                    WS_VSCROLL | WS_TABSTOP */

wxString tok;

wxString varname;

varname=GetToken();

m_controlid++;

int x,y,width,height;

ReadRect(x,y,width,height);



wxFprintf(m_wxr,_T("  control = [%i,wxChoice,'','0','%s',"),m_controlid,varname.c_str());

wxFprintf(m_wxr,_T("%i,%i,%i,%i,[],\\\n"),x,y,width,height);

wxFprintf(m_wxr,_T("[8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif']],\\\n"));





}



void rc2wxr::ParseMenu(wxString name)

{

wxString tok=wxEmptyString;

static int menuid=0;

menuid++;

wxFprintf(m_wxr,_T("static char *MenuBar%i = \"menu(name = '%s',\\\n"),menuid,name.c_str());

wxFprintf(m_wxr,_T("menu = \\\n"));

wxFprintf(m_wxr,_T("[\\\n"));



while ((tok!=_T("BEGIN"))&(tok!=_T("{")))

   tok=GetToken();



while ((tok!=_T("END"))&(tok!=_T("}")))

{

   tok=GetToken();

if (tok==_T("POPUP"))

    {

    ParsePopupMenu();

    wxFprintf(m_wxr,_T("  ],\\\n"));

    }

}



wxFprintf(m_wxr,_T("]).\";\n\n"));

}



void rc2wxr::ParsePopupMenu()

{

static int menuitem=99;

menuitem++;



wxString tok;

tok=GetQuoteField();

int spot;

//Remove /t because it causes problems

spot=tok.First(_T("\\t"));

tok=tok.Left(spot);

wxFprintf(m_wxr,_T("  ['%s',%i,'',\\\n"),tok.c_str(),menuitem);

while ((tok!=_T("BEGIN"))&(tok!=_T("{")))

   tok=GetToken();



while ((tok!=_T("END"))&(tok!=_T("}")))

{

   tok=GetToken();

if (tok==_T("MENUITEM"))

{

if (PeekToken()==_T("SEPARATOR"))

wxFprintf(m_wxr,_T("      [],\\\n"));

else

{

tok=GetQuoteField();

//Remove /t because it causes problems

spot=tok.First(_T("\\t"));

tok=tok.Left(spot);

menuitem++;

wxFprintf(m_wxr,_T("      ['%s',%i,''],\\\n"),tok.c_str(),menuitem);

}

}



}





}



wxString rc2wxr::PeekToken()

{

wxString tok;

int p;

p=m_rc.Tell();

tok=GetToken();



m_rc.Seek(p);

return tok;

}

//Windows pain in the butt CONTROL

void rc2wxr::ParseControlMS()

{

wxString label,varname,kindctrl,tok;

label=GetQuoteField();

varname=GetToken();

kindctrl=GetQuoteField();

kindctrl.MakeUpper();





if (kindctrl==_T("MSCTLS_TRACKBAR32"))

   ParseSlider(label,varname);

if (kindctrl==_T("MSCTLS_PROGRESS32"))

   ParseProgressBar(label,varname);

if (kindctrl==_T("BUTTON"))

   ParseCtrlButton(label,varname);

}

/*    CONTROL         "Slider1",IDC_SLIDER1,"msctls_trackbar32",TBS_BOTH |

                    TBS_NOTICKS | WS_TABSTOP,52,73,100,15

*/



void rc2wxr::ParseSlider(wxString WXUNUSED(label), wxString varname)

{

wxString tok;

while (ReadOrs(tok))
    ;

wxFprintf(m_wxr,_T("  control = [%i,wxSlider,'','wxSL_HORIZONTAL','%s',"),m_controlid,varname.c_str());

int x,y,width,height;

ReadRect(x,y,width,height);

wxFprintf(m_wxr,_T("%i,%i,%i,%i,"),x,y,width,height);

wxFprintf(m_wxr,_T(" 1, 1, 10,\\\n"));

wxFprintf(m_wxr,_T("[8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif']],\\\n"));

}

/*

CONTROL         "Progress1",CG_IDC_PROGDLG_PROGRESS,"msctls_progress32",

                    WS_BORDER,15,52,154,13

*/

void rc2wxr::ParseProgressBar(wxString WXUNUSED(label), wxString varname)

{

wxString tok;

while (ReadOrs(tok))
    ;

wxFprintf(m_wxr,_T("  control = [%i,wxGauge,'','wxGA_HORIZONTAL','%s',"),m_controlid,varname.c_str());

int x,y,width,height;

ReadRect(x,y,width,height);

wxFprintf(m_wxr,_T("%i,%i,%i,%i,"),x,y,width,height);

wxFprintf(m_wxr,_T(" 0, 10,\\\n"));

wxFprintf(m_wxr,_T("[8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif']],\\\n"));

}



bool rc2wxr::ReadOrs(wxString & w)

{

wxString tok;

tok=PeekToken();

if (tok.IsNumber())

   return false;

w=GetToken();

return true;

}



//Is it a check button or a radio button

void rc2wxr::ParseCtrlButton(wxString label, wxString varname)

{

wxString tok;

tok=GetToken();



m_controlid++;

int x,y,width,height;



if (tok==_T("BS_AUTOCHECKBOX"))

{

    wxFprintf(m_wxr,_T("  control = [%i,wxCheckBox,'%s','0','%s',"),m_controlid,label.c_str(),varname.c_str());

    while (ReadOrs(tok))
        ;

    ReadRect(x,y,width,height);

    wxFprintf(m_wxr,_T("%i,%i,%i,%i,0,\\\n"),x,y,width,height);

    wxFprintf(m_wxr,_T("[8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif']],\\\n"));

}



if (tok==_T("BS_AUTORADIOBUTTON"))

{

    wxFprintf(m_wxr,_T("  control = [%i,wxRadioButton,'%s','0','%s',"),m_controlid,label.c_str(),varname.c_str());

    while(ReadOrs(tok))
        ;

    ReadRect(x,y,width,height);

    wxFprintf(m_wxr,_T("%i,%i,%i,%i,0,\\\n"),x,y,width,height);

    wxFprintf(m_wxr,_T("[8, 'wxSWISS', 'wxNORMAL', 'wxNORMAL', 0, 'MS Sans Serif']],\\\n"));

}







}