int main(int argc, char *argv[])
{
initGlobalParser();
setRegisterRootName("apoEditor");
if (argc == 1) {
return runDevelopTool(argc, argv);
}
parser_args(argc, argv);
if (__run_type == 1) {
return runGm(argc, argv);
}
else if (__run_type == 2) {
return runEditor(argc, argv);
}
else {
return runDevelopTool(argc, argv);
}
}
int main(int argc, char *argv[])
{
int doScale=0; // 0=Undefined, 1=320x240, -1=OpenGL, >1=SwScale
char* dumpPack=NULL;
int state=1; //Game, Menu, Editor, Quit
int sdlVideoModeFlags = SDL_SWSURFACE;
#ifdef PSP
//Note to PSP porter, please test if HW is actually faster, Wizznic does a lot of memory-manipulation in the screen-surface, each call might initiate a full copy back/forth from video memory. Remove comment when read. :)
sdlVideoModeFlags = (SDL_HWSURFACE | SDL_DOUBLEBUF |SDL_HWACCEL);
SetupCallbacks();//Callbacks actifs
scePowerSetClockFrequency(333,333,166);
#endif
// #ifdef WIN32
//Redirect stdout to console on windows, so we can see what's going in.
// FILE *stream;
// stream = freopen("CON", "w", stdout);
// #endif
//Print welcome message
printf( "Wizznic "VERSION_STRING". GPLv3 or newer Copyleft 2010-2013\n\n");
//initialize path strings
initUserPaths();
//Tell where stuff's at.
printf("Directories:\n Settings: %s\n DLC: %s\n Highscores: %s\n Editorlevels: %s\n Datafiles: %s\n\n", \
getConfigDir(), getUsrPackDir(), getHighscoreDir(), getUserLevelDir(), (!strlen(DATADIR))?".":DATADIR);
//Print the command line parameters
printf("Command-line parameters:\n"STR_VID_OPTIONS);
//Quit if user wants help
if( argc > 1 && ( strcmp(argv[1], "-h")==0 || strcmp(argv[1], "--help")==0 || strcmp(argv[1], "-help")==0 ))
{
printf("Please see readme.txt or http://wizznic.org/ for more help.\n");
return(0);
}
//Read settings
printf("Loading settings...\n");
initSettings();
#if defined(WITH_OPENGL)
//We start by enabling glScaling if it was enabled in settings, it can then be overwritten by command line options.
if( setting()->glEnable && doScale==0 )
doScale=-1;
#endif
//Set scaling
setting()->scaleFactor=1.0;
atexit(SDL_Quit);
//Init SDL
if(SDL_Init(SDL_INIT_VIDEO | SDL_INIT_AUDIO | SDL_INIT_JOYSTICK | SDL_INIT_TIMER ) <0 )
{
printf("SDL_Init failed: %s\n",SDL_GetError());
return(-1);
}
//Setup display
#if defined (GP2X) || defined (PSP) || defined (WIZ)
SDL_Surface* screen = SDL_SetVideoMode(SCREENW,SCREENH,16, sdlVideoModeFlags);
#else
SDL_Surface* screen=NULL;
int i;
for( i=0; i < argc; i++ )
{
if( strcmp( argv[i], "-sw" ) == 0 )
{
setting()->glEnable=0;
doScale=0;
saveSettings();
} else
if( strcmp( argv[i], "-gl" ) == 0 )
{
setting()->glEnable=1;
doScale=-1;
saveSettings();
} else
if( strcmp( argv[i], "-z" ) == 0 )
{
if( i+1 < argc )
{
doScale = atoi( argv[i+1] );
setting()->glEnable=0;
i++;
saveSettings();
} else {
printf(" -z requires zoom level ( -z 2 for example ).\n");
return(1);
}
} else
if( strcmp( argv[i], "-f" ) == 0 )
{
setting()->fullScreen=1;
saveSettings();
} else
if( strcmp( argv[i], "-w" ) == 0 )
{
setting()->fullScreen=0;
saveSettings();
} else if( strcmp( argv[i], "-glheight" ) == 0 )
{
if( i+1 < argc )
{
setting()->glHeight = atoi( argv[i+1] );
setting()->glEnable=1;
doScale=-1;
i++;
printf("Setting OpenGL window height to %i.\n", setting()->glHeight);
saveSettings();
} else {
printf(" -glheight requires an argument (-1 or size in pixels).\n");
return(1);
}
} else if( strcmp( argv[i], "-glwidth" ) == 0 )
{
if( i+1 < argc )
{
setting()->glWidth = atoi( argv[i+1] );
setting()->glEnable=1;
doScale=-1;
i++;
printf("Setting OpenGL window width to %i.\n", setting()->glWidth);
saveSettings();
} else {
printf(" -glwidth requires an argument (-1 or size in pixels).\n");
return(1);
}
} else if( strcmp( argv[i], "-glfilter" ) == 0 )
{
if( i+1 < argc )
{
setting()->glFilter=atoi(argv[i+1]);
printf("OpenGL texture filtering set to %s.\n", (setting()->glFilter)?"Smooth":"Off");
i++;
saveSettings();
} else {
printf("-glfilter requires 0 or 1 as argument.\n");
return(1);
}
} else if( strcmp( argv[i] , "-d" ) == 0 )
{
if( argc == 3 && i < argc+1 )
{
dumpPack = malloc( sizeof(char)*strlen(argv[i+1])+1 );
strcpy( dumpPack, argv[i+1] );
doScale=0;
setting()->glEnable=0;
i++;
} else {
printf("-d requires a packname, and must not be used with other parameters.\n");
return(1);
}
} else if( strcmp( argv[i], "-rift") == 0 )
{
setting()->glWidth = 1280;
setting()->glHeight = 800;
setting()->glEnable=1;
setting()->rift=1;
doScale=-1;
} else if( i > 0 )
{
printf("\nError: Invalid argument '%s', quitting.\n", argv[i]);
return(1);
}
}
if( setting()->fullScreen )
{
sdlVideoModeFlags |= SDL_FULLSCREEN;
}
if(doScale)
{
//Hardware accelerated scaling
if( doScale == -1 )
{
#ifdef HAVE_ACCELERATION
printf("Enabling platform specific accelerated scaling.\n");
screen = platformInitAccel(sdlVideoModeFlags);
if( !screen )
{
printf("Failed to set platform accelerated scaling, falling back to software window.\n");
screen=swScreen(SDL_SWSURFACE);
doScale=0;
}
#else
printf("\nError:\n Not compiled with hardware-scaling support, don't give me -z -1\n Exiting...\n");
return(-1);
#endif
} else if( doScale > 0 )
{
#ifdef WANT_SWSCALE
//Set up software scaling
printf("Enabling slow software-based scaling to %ix%i.\n",320*doScale, 240*doScale);
screen = swScaleInit(sdlVideoModeFlags,doScale);
#else
printf("\nError:\n I don't support software scaling, don't give me any -z options\n Exiting...\n");
return(-1);
#endif
}
} else {
screen=swScreen(sdlVideoModeFlags);
doScale=0;
}
printf("Scaling factor: %f\n", setting()->scaleFactor);
if( screen == NULL )
{
printf("ERROR: Couldn't init video.\n");
return(-1);
}
//Set window title
SDL_WM_SetCaption("Wizznic!", "Wizznic!");
//Set window icon
SDL_Surface* icon = IMG_Load( DATADIR"data/wmicon.png");
SDL_WM_SetIcon(icon, NULL);
SDL_FreeSurface(icon);
#endif
setting()->bpp = screen->format->BytesPerPixel;
setAlphaCol( setting()->bpp );
printf("Screen surface using %i bytes per pixel.\n",setting()->bpp);
//Open Joysticks (for wiz)
if (SDL_NumJoysticks() > 0) SDL_JoystickOpen(0);
//Hide mouse cursor
SDL_ShowCursor(SDL_DISABLE);
//Load fonts
txtInit();
//Load sounds
if(!initSound())
{
printf("Couldn't init sound.\n");
return(-1);
}
//Menu Graphics
if(!initMenu(screen))
{
printf("Couldn't load menu graphics.\n");
return(-1);
}
//Init controls
initControls();
//Init stats
statsInit();
//Init packs
packInit();
//Scan userlevels dir
makeUserLevelList(screen);
//Init particles
initParticles(screen);
//Seed the pseudo random number generator (for particles 'n' stuff)
srand( (int)time(NULL) );
#if defined(PC)
//Need to dump level-screenshots?
if(dumpPack)
{
printf("Dumping level-images for pack: %s\n", dumpPack);
dumplevelimages(screen, dumpPack, 0);
return(0);
}
#endif
//init starfield
initStars(screen);
//Init pointer
initPointer(screen);
printf("Applying settings..\n");
//Apply settings (has to be done after packs are inited)
applySettings();
//Set Pack
packSetByPath( setting()->packDir );
#if defined( PLATFORM_SUPPORTS_STATSUPLOAD )
if( (setting()->uploadStats) && !(setting()->firstRun) )
{
statsUpload(0,0,0,0,0,"check",1, &(setting()->session) );
statsUpload(0,0,0,0,0,"q_solved",1, &(setting()->solvedWorldWide) );
//DLC only works when stats-uploading is enabled so we can use the same nag-screen.
dlcCheckOnline();
}
#endif
printf("Setting Music...\n");
//Start playing music (has to be done after readong settings)
soundSetMusic();
//Initialize credits
initCredits(screen);
initTransition();
#if SCREENW != 320 || SCREENH != 240
SDL_Rect *borderSrcRect = malloc(sizeof(SDL_Rect));
SDL_Surface* border = loadImg( BORDER_IMAGE );
if( border )
{
printf("Border image loaded.\n");
borderSrcRect->x=(border->w-SCREENW)/2;
borderSrcRect->y=(border->h-SCREENH)/2;
borderSrcRect->w=SCREENW;
borderSrcRect->h=SCREENH;
SDL_BlitSurface( border, borderSrcRect, screen, NULL );
SDL_FreeSurface(border);
} else {
printf("Could not load border image: %s\n", BORDER_IMAGE);
SDL_FillRect(screen, NULL, SDL_MapRGB(screen->format, 0,0,0));
}
free(borderSrcRect);
borderSrcRect=NULL;
#endif
int lastTick;
while(state!=STATEQUIT)
{
lastTick=SDL_GetTicks();
frameStart();
if(runControls()) state=STATEQUIT;
switch(state)
{
case STATEPLAY:
state = runGame(screen);
break;
case STATEMENU:
state = runMenu(screen);
break;
case STATEEDIT:
state=runEditor(screen);
break;
}
drawPointer(screen);
soundRun(screen,state);
runTransition(screen);
if(setting()->showFps)
drawFPS(screen);
switch( doScale )
{
#if defined(HAVE_ACCELERATION)
case -1:
platformDrawScaled(screen);
break;
#endif
case 0:
SDL_Flip(screen);
break;
#if defined(WANT_SWSCALE)
default:
swScale(screen,doScale);
break;
#else
default:
state=STATEQUIT;
break;
#endif
}
#if defined(CRUDE_TIMING)
//Oh how I loathe this, is there no better way?
while(SDL_GetTicks()-lastTick <= PLATFORM_CRUDE_TIMING_TICKS)
{
//Burn, burn baby burn!
}
#else
int t=SDL_GetTicks()-lastTick;
if(t < 20)
{
SDL_Delay( 20 -t);
}
#endif
}
#if defined(PLATFORM_NEEDS_EXIT)
platformExit();
#endif
SDL_Quit();
return(0);
}
/* Handles browse classes dialog box */
LRESULT CALLBACK BrowseClassesDlgProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
INT i;
static Class currClass;
Class theClass;
Inst theInst;
Name theMember;
WORD NotifyCode, wId;
HBITMAP hBitmap;
RECT aRect, DlgRect;
HBITMAP hBmp;
BITMAP bm;
DRAWITEMSTRUCT FAR *lpdis;
LPMEASUREITEMSTRUCT lpmis;
LPCOMPAREITEMSTRUCT lpcis;
BOOL Selected = FALSE;
static HBITMAP hCBm, hCSelBm, hIBm, hISelBm, hMBm, hMSelBm;
String string;
CHAR string1[256];
NotifyCode = HIWORD (wParam);
wId = LOWORD (wParam);
switch (msg) {
case WM_INITDIALOG:
CenterDialogInParent(hDlg);
SetDialogFont (hDlg, hDialogFont);
SendDlgItemMessage(hDlg, LB_CLASS, LB_SETHORIZONTALEXTENT, (WPARAM)300, 0L);
SendDlgItemMessage(hDlg, LB_MEMBERS, LB_SETHORIZONTALEXTENT, (WPARAM)400, 0L);
/* Create list of classes and set current class */
for(i=CLASSMIN; i<classMax(); i++) {
SendDlgItemMessage(hDlg, LB_CLASS ,LB_ADDSTRING, 0, (LPARAM)(LPSTR) i);
}
SendDlgItemMessage(hDlg, LB_CLASS, LB_SETCURSEL, 0, 0L);
currClass = (Class) SendDlgItemMessage(hDlg, LB_CLASS ,LB_GETITEMDATA, (WPARAM) SendDlgItemMessage(hDlg, LB_CLASS ,LB_GETCURSEL, 0, 0L), 0L);
SetClass(hDlg, currClass);
/* Create Bitmaps */
hCBm = LoadBitmap (hThisInstance, "CLASSBMP");
MapBitmap (hCBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hCSelBm = LoadBitmap (hThisInstance, "CLASSBMP");
MapBitmap (hCSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hIBm = LoadBitmap (hThisInstance, "INSTANCEBMP");
MapBitmap (hIBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hISelBm = LoadBitmap (hThisInstance, "INSTANCEBMP");
MapBitmap (hISelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hMBm = LoadBitmap (hThisInstance, "MEMBERBMP");
MapBitmap (hMBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hMSelBm = LoadBitmap (hThisInstance, "MEMBERBMP");
MapBitmap (hMSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
return TRUE;
case WM_DESTROY:
/* Destroy Bitmaps */
DeleteObject (hCBm);
DeleteObject (hCSelBm);
DeleteObject (hIBm);
DeleteObject (hISelBm);
DeleteObject (hMBm);
DeleteObject (hMSelBm);
break;
case WM_CTLCOLORBTN:
case WM_CTLCOLORDLG:
case WM_CTLCOLOREDIT:
case WM_CTLCOLORLISTBOX:
case WM_CTLCOLORMSGBOX:
case WM_CTLCOLORSCROLLBAR:
case WM_CTLCOLORSTATIC:
break;
case WM_PAINT: {
HDC hDC;
PAINTSTRUCT Ps;
BeginPaint(hDlg, &Ps);
hDC = Ps.hdc;
/* Paint classes Bitmap */
GetWindowRect(hDlg, &DlgRect);
GetWindowRect(GetDlgItem(hDlg, ID_PLACEBITMAP), &aRect);
hBitmap = LoadMappedBitmap(hThisInstance, "CLASSESDLGBMP");
DrawBitmap(hDC, hBitmap,
aRect.left-DlgRect.left-GetSystemMetrics(SM_CXDLGFRAME),
aRect.top-DlgRect.top-GetSystemMetrics(SM_CYDLGFRAME)-GetSystemMetrics(SM_CYCAPTION));
DeleteObject(hBitmap);
EndPaint(hDlg, &Ps);
}
break;
case WM_COMPAREITEM: {
lpcis = (COMPAREITEMSTRUCT FAR *) lParam;
switch (wParam) {
case LB_CLASS: return strcmp (textToStr(cclass(lpcis->itemData1).text),
textToStr(cclass(lpcis->itemData2).text));
case LB_INSTANCES: if (nonNull(inst(lpcis->itemData1).specifics)) {
printContext(stdstr,inst(lpcis->itemData1).specifics);
fprintf(stdstr," => ");
}
printPred(stdstr,inst(lpcis->itemData1).head);
fprintf(stdstr,"\n");
strcpy (string1, stdstrbuff);
if (nonNull(inst(lpcis->itemData2).specifics)) {
printContext(stdstr,inst(lpcis->itemData2).specifics);
fprintf(stdstr," => ");
}
printPred(stdstr,inst(lpcis->itemData2).head);
fprintf(stdstr,"\n");
return strcmp (string1, stdstrbuff);
case LB_MEMBERS: printExp (stdstr, lpcis->itemData1);
fprintf(stdstr,"\n");
strcpy (string1, stdstrbuff);
printExp (stdstr, lpcis->itemData2);
fprintf(stdstr,"\n");
return strcmp (string1, stdstrbuff);
}
}
break;
case WM_MEASUREITEM:
lpdis = (DRAWITEMSTRUCT FAR *) lParam;
if (lpdis->CtlID == LB_CLASS ||
lpdis->CtlID == LB_INSTANCES ||
lpdis->CtlID == LB_MEMBERS ) {
lpmis = (LPMEASUREITEMSTRUCT) lParam;
/* Set the height of the list box items to Bitmap height */
hBmp = LoadBitmap(hThisInstance, "CLASSBMP");
GetObject(hBmp, sizeof(BITMAP), &bm);
DeleteObject(hBmp);
lpmis->itemHeight = bm.bmHeight+1;
lpmis->itemWidth = 50000;
return TRUE;
}
break;
case WM_DRAWITEM:
lpdis = (DRAWITEMSTRUCT FAR *) lParam;
if (lpdis->CtlID == LB_CLASS ||
lpdis->CtlID == LB_INSTANCES ||
lpdis->CtlID == LB_MEMBERS ) {
if (lpdis->itemID == (UINT)-1) {
return TRUE;
}
switch (lpdis->itemAction) {
case ODA_DRAWENTIRE:
case ODA_SELECT:
case ODA_FOCUS:
if ((lpdis->itemState & ODS_SELECTED) /*&& (lpdis->itemState & ODS_FOCUS)*/) {
SetBkColor(lpdis->hDC, GetSysColor(COLOR_HIGHLIGHT));
SetTextColor(lpdis->hDC, GetSysColor(COLOR_HIGHLIGHTTEXT));
Selected = TRUE;
}
else {
SetBkColor(lpdis->hDC, GetSysColor(COLOR_WINDOW));
SetTextColor(lpdis->hDC, GetSysColor(COLOR_WINDOWTEXT));
}
break;
default:
return FALSE;
}
switch (lpdis->CtlID) {
case LB_CLASS: theClass = (Class) SendDlgItemMessage(hDlg, lpdis->CtlID, LB_GETITEMDATA, lpdis->itemID, 0);
printPred(stdstr,cclass(theClass).head);
fprintf (stdstr, " -- in %s\n", textToStr(module(cclass(theClass).mod).text));
ExtTextOut(lpdis->hDC, lpdis->rcItem.left+21, lpdis->rcItem.top, ETO_OPAQUE, &(lpdis->rcItem), stdstrbuff, strlen(stdstrbuff), NULL);
hBmp = Selected ? hCSelBm : hCBm;
break;
case LB_INSTANCES: theInst = (Inst) SendDlgItemMessage(hDlg, lpdis->CtlID, LB_GETITEMDATA, lpdis->itemID, 0);
if (nonNull(inst(theInst).specifics)) {
printContext(stdstr,inst(theInst).specifics);
fprintf(stdstr," => ");
}
printPred(stdstr,inst(theInst).head);
fprintf (stdstr, " -- in %s \n", textToStr(module(moduleOfScript(scriptThisInst(theInst))).text));
ExtTextOut(lpdis->hDC, lpdis->rcItem.left+21, lpdis->rcItem.top, ETO_OPAQUE, &(lpdis->rcItem), stdstrbuff, strlen(stdstrbuff), NULL);
hBmp = Selected ? hISelBm : hIBm;
break;
case LB_MEMBERS: theMember = (Name) SendDlgItemMessage(hDlg, lpdis->CtlID, LB_GETITEMDATA, lpdis->itemID, 0);
printExp(stdstr,theMember);
fprintf(stdstr, " :: ");
printType(stdstr,name(theMember).type);
fprintf(stdstr,"\n");
ExtTextOut(lpdis->hDC, lpdis->rcItem.left+21, lpdis->rcItem.top, ETO_OPAQUE, &(lpdis->rcItem), stdstrbuff, strlen(stdstrbuff), NULL);
hBmp = Selected ? hMSelBm : hMBm;
break;
}
DrawBitmap (lpdis->hDC, hBmp, (lpdis->rcItem.left)+4, lpdis->rcItem.top);
/* If selected draw rectangle */
if ((lpdis->itemState & ODS_SELECTED)&&(lpdis->itemState & ODS_FOCUS)) {
DrawFocusRect(lpdis->hDC, &(lpdis->rcItem));
}
return TRUE;
}
case WM_COMMAND:
switch (wId) {
case LB_CLASS:
switch(NotifyCode) {
case LBN_SELCHANGE: /* select a new class */
currClass = (Class) SendDlgItemMessage(hDlg, LB_CLASS ,LB_GETITEMDATA, SendDlgItemMessage(hDlg, LB_CLASS ,LB_GETCURSEL, 0, 0L), 0L);
SetClass(hDlg, currClass);
break;
case LBN_DBLCLK: { /* Open in text editor script file with class definition */
currClass = (Class) SendDlgItemMessage(hDlg, LB_CLASS ,LB_GETITEMDATA, SendDlgItemMessage(hDlg, LB_CLASS ,LB_GETCURSEL, 0, 0L), 0L);
currClass = (Class) SendDlgItemMessage(hDlg, LB_CLASS ,LB_GETITEMDATA, SendDlgItemMessage(hDlg, LB_CLASS ,LB_GETCURSEL, 0, 0L), 0L);
setLastEdit(getScriptName(scriptThisClass(currClass)), cclass(currClass).line);
runEditor();
}
break;
}
break;
case LB_MEMBERS:
case LB_INSTANCES:
switch(NotifyCode) {/* Open in text editor script file with instance definition */
case LBN_DBLCLK: {
Inst currInst;
currInst = (Inst) SendDlgItemMessage(hDlg, LB_INSTANCES, LB_GETITEMDATA, SendDlgItemMessage(hDlg, LB_INSTANCES ,LB_GETCURSEL, 0, 0L), 0L);
/* Find instance module */
setLastEdit(getScriptName(scriptThisInst(currInst)), inst(currInst).line);
runEditor();
}
break;
}
break;
case ID_HIERARCHY: /* Draw classes hierarchy */
DrawClassesHierarchy();
break;
case ID_EDITCLASS: /* Pushed on Edit class button */
if (SendDlgItemMessage(hDlg, LB_CLASS, LB_GETCURSEL, 0, 0L) != LB_ERR)
DlgSendMessage(hDlg, WM_COMMAND, LB_CLASS, MAKELONG(0, LBN_DBLCLK));
break;
case ID_EDITINSTANCE: /* Pushed on Edit instance button */
if (SendDlgItemMessage(hDlg, LB_INSTANCES, LB_GETCURSEL, 0, 0L) != LB_ERR)
DlgSendMessage(hDlg, WM_COMMAND, LB_INSTANCES, MAKELONG(0, LBN_DBLCLK));
break;
case IDCANCEL: /* Close dialog */
case IDOK:
EndDialog(hDlg, TRUE);
return TRUE;
default:
return TRUE;
}
}
return FALSE;
}
/* Handles browse Tycons dialog box */
LRESULT CALLBACK BrowseTyconsDlgProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
static List tyconList = NIL;
List tycons=NIL;
Tycon tc;
UINT theTycon;
WORD NotifyCode, wId;
RECT aRect, DlgRect;
HBITMAP hBitmap;
HBITMAP hBmp;
BITMAP bm;
static HBITMAP hTCBm, hTCSelBm, hDBm, hDSelBm, hTSBm, hTSSelBm,
hNTBm, hNTSelBm, hSBm, hSSelBm, hIBm, hISelBm;
CHAR Buffer[300];
DRAWITEMSTRUCT FAR *lpdis;
LPMEASUREITEMSTRUCT lpmis;
BOOL Selected = FALSE;
Inst theInst;
NotifyCode = HIWORD (wParam);
wId = LOWORD (wParam);
switch (msg) {
case WM_INITDIALOG:
CenterDialogInParent(hDlg);
SetDialogFont (hDlg, hDialogFont);
tyconList = addTyconsMatching((String)0, NIL);
/* Clear the redraw flag */
SendDlgItemMessage(hDlg, LB_TYCONS ,WM_SETREDRAW, FALSE, 0L);
for (tycons=tyconList; nonNull(tycons); tycons=tl(tycons)) {
if (nonNull(tycons)) {
tc = hd(tycons);
fprintf(stdstr, "%s -- in %s\n",textToStr(tycon(tc).text),textToStr(module(tycon(tc).mod).text));
SendDlgItemMessage(hDlg, LB_TYCONS ,LB_ADDSTRING, 0, (LONG)(LPSTR) stdstrbuff);
SendDlgItemMessage(hDlg, LB_TYCONS, LB_SETCURSEL, 0, 0L);
}
/* Set the redraw flag and force repaint. */
SendDlgItemMessage(hDlg, LB_TYCONS ,WM_SETREDRAW, TRUE, 0L);
InvalidateRect(GetDlgItem(hDlg, LB_TYCONS), NULL, TRUE);
}
theTycon = 0;
SetTycon(hDlg, theTycon, tyconList);
hTCBm = LoadBitmap (hThisInstance, "TYPECONSBMP");
MapBitmap (hTCBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hTCSelBm = LoadBitmap (hThisInstance, "TYPECONSBMP");
MapBitmap (hTCSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hDBm = LoadBitmap (hThisInstance, "DATACONSBMP");
MapBitmap (hDBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hDSelBm = LoadBitmap (hThisInstance, "DATACONSBMP");
MapBitmap (hDSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hTSBm = LoadBitmap (hThisInstance, "TYPESINBMP");
MapBitmap (hTSBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hTSSelBm = LoadBitmap (hThisInstance, "TYPESINBMP");
MapBitmap (hTSSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hNTBm = LoadBitmap (hThisInstance, "NEWTYPEBMP");
MapBitmap (hNTBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hNTSelBm = LoadBitmap (hThisInstance, "NEWTYPEBMP");
MapBitmap (hNTSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hSBm = LoadBitmap (hThisInstance, "SELECTORBMP");
MapBitmap (hSBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hSSelBm = LoadBitmap (hThisInstance, "SELECTORBMP");
MapBitmap (hSSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hIBm = LoadBitmap (hThisInstance, "INSTANCEBMP");
MapBitmap (hIBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hISelBm = LoadBitmap (hThisInstance, "INSTANCEBMP");
MapBitmap (hISelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
/* set focus to search box (must return FALSE) */
SetFocus (GetDlgItem(hDlg, IDC_SEARCHTYCON));
return FALSE;
case WM_DESTROY:
DeleteObject(hTCBm);
DeleteObject(hTCSelBm);
DeleteObject(hDBm);
DeleteObject(hDSelBm);
DeleteObject(hTSBm);
DeleteObject(hTSSelBm);
DeleteObject(hNTBm);
DeleteObject(hNTSelBm);
DeleteObject(hSBm);
DeleteObject(hSSelBm);
DeleteObject(hIBm);
DeleteObject(hISelBm);
break;
case WM_CTLCOLORBTN:
case WM_CTLCOLORDLG:
case WM_CTLCOLOREDIT:
case WM_CTLCOLORLISTBOX:
case WM_CTLCOLORMSGBOX:
case WM_CTLCOLORSCROLLBAR:
case WM_CTLCOLORSTATIC:
break;
case WM_MEASUREITEM:
lpdis = (DRAWITEMSTRUCT FAR *) lParam;
if (lpdis->CtlID == LB_TYCONS ||
lpdis->CtlID == LB_CONS ||
lpdis->CtlID == LB_TYCONSINST) {
lpmis = (LPMEASUREITEMSTRUCT) lParam;
/* Set the height of the list box items to Bitmap height */
hBmp = LoadBitmap(hThisInstance, "CLASSBMP");
GetObject(hBmp, sizeof(BITMAP), &bm);
DeleteObject(hBmp);
lpmis->itemHeight = bm.bmHeight+1;
return TRUE;
}
break;
case WM_DRAWITEM:
lpdis = (DRAWITEMSTRUCT FAR *) lParam;
if (lpdis->CtlID == LB_TYCONS ||
lpdis->CtlID == LB_CONS ||
lpdis->CtlID == LB_TYCONSINST) {
if (lpdis->itemID == (UINT)-1) {
return TRUE;
}
switch (lpdis->itemAction) {
case ODA_DRAWENTIRE:
case ODA_SELECT:
case ODA_FOCUS:
if ((lpdis->itemState & ODS_SELECTED) /*&& (lpdis->itemState & ODS_FOCUS)*/) {
SetBkColor(lpdis->hDC, GetSysColor(COLOR_HIGHLIGHT));
SetTextColor(lpdis->hDC, GetSysColor(COLOR_HIGHLIGHTTEXT));
Selected = TRUE;
}
else {
SetBkColor(lpdis->hDC, GetSysColor(COLOR_WINDOW));
SetTextColor(lpdis->hDC, GetSysColor(COLOR_WINDOWTEXT));
}
break;
default:
return FALSE;
}
SendDlgItemMessage(hDlg, lpdis->CtlID, LB_GETTEXT, lpdis->itemID, (LPARAM) Buffer);
ExtTextOut(lpdis->hDC, lpdis->rcItem.left+21, lpdis->rcItem.top, ETO_OPAQUE, &(lpdis->rcItem), Buffer, strlen(Buffer), NULL);
switch (lpdis->CtlID) {
case LB_TYCONS: theTycon = (UINT) lpdis->itemID;
tc = nth(theTycon,tyconList);
switch(tycon(tc).what) {
case RESTRICTSYN:
case SYNONYM: hBmp = Selected ? hTSSelBm : hTSBm;
break;
case DATATYPE: hBmp = Selected ? hTCSelBm : hTCBm;
break;
case NEWTYPE: hBmp = Selected ? hNTSelBm : hNTBm;
break;
}
break;
case LB_CONS: if (lpdis->itemID>=(UINT)numCfuns)
hBmp = Selected ? hSSelBm : hSBm;
else
hBmp = Selected ? hDSelBm : hDBm;
break;
case LB_TYCONSINST:
theInst = (Inst) SendDlgItemMessage(hDlg, lpdis->CtlID, LB_GETITEMDATA, lpdis->itemID, 0);
if (nonNull(inst(theInst).specifics)) {
printContext(stdstr,inst(theInst).specifics);
fprintf(stdstr," => ");
}
printPred(stdstr,inst(theInst).head);
fprintf (stdstr, " -- in %s \n", textToStr(module(moduleOfScript(scriptThisInst(theInst))).text));
ExtTextOut(lpdis->hDC, lpdis->rcItem.left+21, lpdis->rcItem.top, ETO_OPAQUE, &(lpdis->rcItem), stdstrbuff, strlen(stdstrbuff), NULL);
hBmp = Selected ? hISelBm : hIBm;
break;
}
DrawBitmap (lpdis->hDC, hBmp, (lpdis->rcItem.left)+4, lpdis->rcItem.top);
/* If selected draw rectangle */
if ((lpdis->itemState & ODS_SELECTED)&&(lpdis->itemState & ODS_FOCUS)) {
DrawFocusRect(lpdis->hDC, &(lpdis->rcItem));
}
return TRUE;
}
case WM_PAINT: {
HDC hDC;
PAINTSTRUCT Ps;
BeginPaint(hDlg, &Ps);
hDC = Ps.hdc;
/* Paint classes Bitmap */
GetWindowRect(hDlg, &DlgRect);
GetWindowRect(GetDlgItem(hDlg, ID_PLACEBITMAP), &aRect);
hBitmap = LoadMappedBitmap(hThisInstance, "TYCONSDLGBMP");
DrawBitmap(hDC, hBitmap,
aRect.left-DlgRect.left-GetSystemMetrics(SM_CXDLGFRAME),
aRect.top-DlgRect.top-GetSystemMetrics(SM_CYDLGFRAME)-GetSystemMetrics(SM_CYCAPTION));
DeleteObject(hBitmap);
EndPaint(hDlg, &Ps);
}
break;
case WM_COMMAND:
switch (LOWORD(wId)) {
case LB_TYCONS:
switch(NotifyCode) {
case LBN_SELCHANGE: {
/* A new tycon was selected */
theTycon = (UINT) SendDlgItemMessage(hDlg, LB_TYCONS ,LB_GETCURSEL, 0, 0L);
SetTycon(hDlg, theTycon, tyconList);
}
break;
case LBN_DBLCLK: {
/* Open in text editor script file with instance definition */
INT TheTycon;
Tycon tc;
/* Get selected tycon */
TheTycon = (UINT) SendDlgItemMessage(hDlg, LB_TYCONS ,LB_GETCURSEL, 0, 0L);
tc = nth(TheTycon,tyconList);
if (isTycon(tc) && tycon(tc).line) {
setLastEdit(getScriptName(scriptThisTycon(tc)), tycon(tc).line);
runEditor();
}
else {
MessageBox(hDlg, "Primitive type:\nNo definition available.", appName, MB_ICONINFORMATION | MB_OK);
}
}
break;
}
break;
case LB_TYCONSINST:
switch(NotifyCode) {
case LBN_DBLCLK: {
Inst currInst;
currInst = (Inst) SendDlgItemMessage(hDlg, LB_TYCONSINST, LB_GETITEMDATA, SendDlgItemMessage(hDlg, LB_TYCONSINST ,LB_GETCURSEL, 0, 0L), 0L);
/* Find instance module */
setLastEdit(getScriptName(scriptThisInst(currInst)), inst(currInst).line);
runEditor();
}
break;
}
break;
case IDC_SEARCHTYCON: /* Search a name */
switch(HIBYTE(wId)) {
case HIBYTE(EN_CHANGE): {
CHAR Buffer[300];
/* Get edit control contents */
SendDlgItemMessage(hDlg, IDC_SEARCHTYCON, WM_GETTEXT, 300, (LPARAM) ((LPSTR) Buffer));
/* Search in names list box */
SendDlgItemMessage(hDlg, LB_TYCONS, LB_SELECTSTRING, 0, (LPARAM) ((LPSTR) Buffer));
/* Update window contents */
DlgSendMessage(hDlg, WM_COMMAND, LB_TYCONS, MAKELONG(0, LBN_SELCHANGE));
}
break;
}
break;
case LB_CONS:
switch(NotifyCode) {
case LBN_DBLCLK: {
/* Open in text editor script file with constructor definition */
DlgSendMessage(hDlg, WM_COMMAND, ID_EDITTYCON, 0L);
break;
}
}
break;
case ID_EDITTYCON: /* Pushed on Edit tycon button */
if (SendDlgItemMessage(hDlg, LB_TYCONS, LB_GETCURSEL, 0, 0L) != LB_ERR)
DlgSendMessage(hDlg, WM_COMMAND, LB_TYCONS, MAKELONG(0, LBN_DBLCLK));
break;
case ID_EDITTYCONSINST:
if (SendDlgItemMessage(hDlg, LB_TYCONSINST, LB_GETCURSEL, 0, 0L) != LB_ERR)
DlgSendMessage(hDlg, WM_COMMAND, LB_TYCONSINST, MAKELONG(0, LBN_DBLCLK));
break;
case IDCANCEL: /* Close dialog */
case IDOK:
EndDialog(hDlg, TRUE);
return TRUE;
default:
return TRUE;
}
}
return FALSE;
}
/* Handles browse names dialog box */
LRESULT CALLBACK BrowseNamesDlgProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
static List namesList = NIL;
List names=NIL;
struct strName nm;
Name n;
UINT theName;
WORD NotifyCode, wId;
RECT aRect, DlgRect;
HBITMAP hBitmap;
HBITMAP hBmp;
BITMAP bm;
static HBITMAP hPBm, hPSelBm, hDBm, hDSelBm, hMBm, hMSelBm, hNBm, hNSelBm,
hSBm, hSSelBm;
CHAR Buffer[300];
DRAWITEMSTRUCT FAR *lpdis;
LPMEASUREITEMSTRUCT lpmis;
BOOL Selected = FALSE;
NotifyCode = HIWORD (wParam);
wId = LOWORD (wParam);
switch (msg) {
case WM_INITDIALOG:
CenterDialogInParent(hDlg);
SetDialogFont (hDlg, hDialogFont);
namesList = addNamesMatching((String)0, NIL);
/* Clear the redraw flag */
SendDlgItemMessage(hDlg, LB_NAMES ,WM_SETREDRAW, FALSE, 0L);
for (names=namesList; nonNull(names); names=tl(names)) {
if (nonNull(names)) {
nm = name(hd(names));
fprintf(stdstr, "%s -- in %s\n",textToStr(nm.text),textToStr(module(nm.mod).text));
SendDlgItemMessage(hDlg, LB_NAMES ,LB_ADDSTRING, 0, (LONG)(LPSTR) stdstrbuff);
SendDlgItemMessage(hDlg, LB_NAMES, LB_SETCURSEL, 0, 0L);
}
}
/* Set the redraw flag and force repaint. */
SendDlgItemMessage(hDlg, LB_NAMES ,WM_SETREDRAW, TRUE, 0L);
InvalidateRect(GetDlgItem(hDlg, LB_NAMES), NULL, TRUE);
theName = 0;
SetName(hDlg, theName, namesList);
hPBm = LoadBitmap (hThisInstance, "PRIMBMP");
MapBitmap (hPBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hPSelBm = LoadBitmap (hThisInstance, "PRIMBMP");
MapBitmap (hPSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hDBm = LoadBitmap (hThisInstance, "DATACONSBMP");
MapBitmap (hDBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hDSelBm = LoadBitmap (hThisInstance, "DATACONSBMP");
MapBitmap (hDSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hMBm = LoadBitmap (hThisInstance, "MEMBERBMP");
MapBitmap (hMBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hMSelBm = LoadBitmap (hThisInstance, "MEMBERBMP");
MapBitmap (hMSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hNBm = LoadBitmap (hThisInstance, "NAMEBMP");
MapBitmap (hNBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hNSelBm = LoadBitmap (hThisInstance, "NAMEBMP");
MapBitmap (hNSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
hSBm = LoadBitmap (hThisInstance, "SELECTORBMP");
MapBitmap (hSBm, RGB(0,128,128), GetSysColor(COLOR_WINDOW));
hSSelBm = LoadBitmap (hThisInstance, "SELECTORBMP");
MapBitmap (hSSelBm, RGB(0,128,128), GetSysColor(COLOR_HIGHLIGHT));
/* set focus to search box (must return FALSE) */
SetFocus (GetDlgItem(hDlg, IDC_SEARCHNAME));
return FALSE;
case WM_DESTROY:
DeleteObject(hPBm);
DeleteObject(hPSelBm);
DeleteObject(hDBm);
DeleteObject(hDSelBm);
DeleteObject(hMBm);
DeleteObject(hMSelBm);
DeleteObject(hNBm);
DeleteObject(hNSelBm);
DeleteObject(hSBm);
DeleteObject(hSSelBm);
break;
case WM_CTLCOLORBTN:
case WM_CTLCOLORDLG:
case WM_CTLCOLOREDIT:
case WM_CTLCOLORLISTBOX:
case WM_CTLCOLORMSGBOX:
case WM_CTLCOLORSCROLLBAR:
case WM_CTLCOLORSTATIC:
break;
case WM_MEASUREITEM:
lpdis = (DRAWITEMSTRUCT FAR *) lParam;
if (lpdis->CtlID == LB_NAMES) {
lpmis = (LPMEASUREITEMSTRUCT) lParam;
/* Set the height of the list box items to Bitmap height */
hBmp = LoadBitmap(hThisInstance, "PRIMBMP");
GetObject(hBmp, sizeof(BITMAP), &bm);
DeleteObject(hBmp);
lpmis->itemHeight = bm.bmHeight+1;
return TRUE;
}
break;
case WM_DRAWITEM:
lpdis = (DRAWITEMSTRUCT FAR *) lParam;
if (lpdis->CtlID == LB_NAMES) {
if (lpdis->itemID == (UINT)-1) {
return TRUE;
}
switch (lpdis->itemAction) {
case ODA_DRAWENTIRE:
case ODA_SELECT:
case ODA_FOCUS:
if ((lpdis->itemState & ODS_SELECTED) /*&& (lpdis->itemState & ODS_FOCUS)*/) {
SetBkColor(lpdis->hDC, GetSysColor(COLOR_HIGHLIGHT));
SetTextColor(lpdis->hDC, GetSysColor(COLOR_HIGHLIGHTTEXT));
Selected = TRUE;
}
else {
SetBkColor(lpdis->hDC, GetSysColor(COLOR_WINDOW));
SetTextColor(lpdis->hDC, GetSysColor(COLOR_WINDOWTEXT));
}
break;
default:
return FALSE;
}
SendDlgItemMessage(hDlg, lpdis->CtlID, LB_GETTEXT, lpdis->itemID, (LPARAM) Buffer);
ExtTextOut(lpdis->hDC, lpdis->rcItem.left+21, lpdis->rcItem.top, ETO_OPAQUE, &(lpdis->rcItem), Buffer, strlen(Buffer), NULL);
n = nth(lpdis->itemID, namesList);
if (isCfun(n))
hBmp = Selected ? hDSelBm : hDBm;
else if (isMfun(n))
hBmp = Selected ? hMSelBm : hMBm;
else if (isSfun(n))
hBmp = Selected ? hSSelBm : hSBm;
else if (name(n).primDef)
hBmp = Selected ? hPSelBm : hPBm;
else
hBmp = Selected ? hNSelBm : hNBm;
DrawBitmap (lpdis->hDC, hBmp, (lpdis->rcItem.left)+4, lpdis->rcItem.top);
/* If selected draw rectangle */
if ((lpdis->itemState & ODS_SELECTED)&&(lpdis->itemState & ODS_FOCUS)) {
DrawFocusRect(lpdis->hDC, &(lpdis->rcItem));
}
return TRUE;
}
case WM_PAINT: {
HDC hDC;
PAINTSTRUCT Ps;
BeginPaint(hDlg, &Ps);
hDC = Ps.hdc;
/* Paint classes Bitmap */
GetWindowRect(hDlg, &DlgRect);
GetWindowRect(GetDlgItem(hDlg, ID_PLACEBITMAP), &aRect);
hBitmap = LoadMappedBitmap(hThisInstance, "NAMESDLGBMP");
DrawBitmap(hDC, hBitmap,
aRect.left-DlgRect.left-GetSystemMetrics(SM_CXDLGFRAME),
aRect.top-DlgRect.top-GetSystemMetrics(SM_CYDLGFRAME)-GetSystemMetrics(SM_CYCAPTION));
DeleteObject(hBitmap);
EndPaint(hDlg, &Ps);
}
break;
case WM_COMMAND:
switch (wId) {
case LB_NAMES:
switch(NotifyCode) {
case LBN_SELCHANGE:
/* Select a new name */
theName = (UINT) SendDlgItemMessage(hDlg, LB_NAMES ,LB_GETCURSEL, 0, 0L);
SetName(hDlg, theName, namesList);
break;
case LBN_DBLCLK: {
/* Open in text editor script file with name definition */
Name n;
/* Get the selected name */
theName = (UINT) SendDlgItemMessage(hDlg, LB_NAMES ,LB_GETCURSEL, 0, 0L);
n = nth(theName, namesList);
if (!name(n).primDef) {
setLastEdit(getScriptName(scriptThisName(n)), name(n).line);
runEditor();
}
else {
MessageBox(hDlg, "Primitive function:\nNo definition available.", appName, MB_ICONINFORMATION | MB_OK);
}
}
break;
}
break;
case IDC_SEARCHNAME: /* Search a name */
switch(HIBYTE(NotifyCode)) {
case HIBYTE(EN_CHANGE): {
CHAR Buffer[300];
/* Get edit control contents */
SendDlgItemMessage(hDlg, IDC_SEARCHNAME, WM_GETTEXT, 300, (LPARAM) ((LPSTR) Buffer));
/* Search in names list box */
SendDlgItemMessage(hDlg, LB_NAMES, LB_SELECTSTRING, 0, (LPARAM) ((LPSTR) Buffer));
/* Update window contents */
DlgSendMessage(hDlg, WM_COMMAND, LB_NAMES, MAKELONG(0, LBN_SELCHANGE));
}
break;
}
break;
case ID_EDITNAME: /* Pushed on Edit name button */
if (SendDlgItemMessage(hDlg, LB_NAMES, LB_GETCURSEL, 0, 0L) != LB_ERR)
DlgSendMessage(hDlg, WM_COMMAND, LB_NAMES, MAKELONG(0, LBN_DBLCLK));
break;
case IDCANCEL: /* Close dialog */
case IDOK:
EndDialog(hDlg, TRUE);
return TRUE;
default:
return TRUE;
}
}
return FALSE;
}
