int parser() {
printf("sega");
initAlloc();
BSTInit(&TempTree);
Tape = allocate(sizeof(tTape));
paramlist = allocate(sizeof(tParamList));
initFunList();
IniTape();
if(insertFunListItemEmbed("length") != E_OK) return E_INTERN;
if(insertFunListItemEmbed("find") != E_OK) return E_INTERN;
if(insertFunListItemEmbed("copy") != E_OK) return E_INTERN;
if(insertFunListItemEmbed("sort") != E_OK) return E_INTERN;
error = program();
printf("eror je %d \n",error);
if (error != E_OK)
return error;
//free(TempVar);
error = printTape(Tape);
// BSTDispose(&TempTreeL);
// BSTDispose(&TempTree);
// printf("eror je %d \n",error);
// printf("eror je %d \n",error);
//freeAlloc();
return error;
}
const char *uiInit(uiInitOptions *o)
{
GError *err = NULL;
const char *msg;
options = *o;
if (gtk_init_with_args(NULL, NULL, NULL, NULL, NULL, &err) == FALSE) {
msg = g_strdup(err->message);
g_error_free(err);
return msg;
}
initAlloc();
return NULL;
}
int
PL_initialise(int argc, char **argv)
{ int n;
bool compile = FALSE;
const char *rcpath = "<none>";
if ( GD->initialised )
succeed;
initAlloc();
initPrologThreads(); /* initialise thread system */
SinitStreams();
GD->cmdline.os_argc = argc;
GD->cmdline.os_argv = argv;
initOs(); /* Initialise OS bindings */
initDefaults(); /* Initialise global defaults */
initPaths(argc, (const char**)argv); /* fetch some useful paths */
{ GET_LD
#ifdef HAVE_SIGNAL
setPrologFlagMask(PLFLAG_SIGNALS); /* default: handle signals */
#endif
if ( (GD->resourceDB = rc_open_archive(GD->paths.executable, RC_RDONLY))
#ifdef __WINDOWS__
|| (GD->resourceDB = rc_open_archive(GD->paths.module, RC_RDONLY))
#endif
)
{ rcpath = ((RcArchive)GD->resourceDB)->path;
initDefaultOptions();
}
if ( !GD->resourceDB ||
!streq(GD->options.saveclass, "runtime") )
{ int done;
argc--; argv++;
if ( argc == 1 && giveVersionInfo(argv[0]) ) /* -help, -v, etc */
{ exit(0);
}
for(n=0; n<argc; n++) /* need to check this first */
{ if ( streq(argv[n], "--" ) ) /* --: terminates argument list */
break;
if ( streq(argv[n], "-b" ) ) /* -b: boot compilation */
{ GD->bootsession = TRUE;
break;
}
}
DEBUG(1, if (GD->bootsession) Sdprintf("Boot session\n"););
if ( !GD->resourceDB )
{ if ( !(GD->resourceDB = openResourceDB(argc, argv)) )
{ fatalError("Could not find system resources");
}
rcpath = ((RcArchive)GD->resourceDB)->path;
initDefaultOptions();
}
if ( (done = parseCommandLineOptions(argc, argv, &compile)) < 0 )
{ usage();
fail;
}
argc -= done;
argv += done;
}
const char *uiInit(uiInitOptions *o)
{
STARTUPINFOW si;
const char *ce;
HICON hDefaultIcon;
HCURSOR hDefaultCursor;
NONCLIENTMETRICSW ncm;
INITCOMMONCONTROLSEX icc;
HRESULT hr;
options = *o;
initAlloc();
nCmdShow = SW_SHOWDEFAULT;
GetStartupInfoW(&si);
if ((si.dwFlags & STARTF_USESHOWWINDOW) != 0)
nCmdShow = si.wShowWindow;
SetProcessDPIAware();
hDefaultIcon = LoadIconW(NULL, IDI_APPLICATION);
if (hDefaultIcon == NULL)
return ieLastErr("loading default icon for window classes");
hDefaultCursor = LoadCursorW(NULL, IDC_ARROW);
if (hDefaultCursor == NULL)
return ieLastErr("loading default cursor for window classes");
ce = initUtilWindow(hDefaultIcon, hDefaultCursor);
if (ce != NULL)
return initerr(ce, L"GetLastError() ==", GetLastError());
if (registerWindowClass(hDefaultIcon, hDefaultCursor) == 0)
return ieLastErr("registering uiWindow window class");
ZeroMemory(&ncm, sizeof (NONCLIENTMETRICSW));
ncm.cbSize = sizeof (NONCLIENTMETRICSW);
if (SystemParametersInfoW(SPI_GETNONCLIENTMETRICS, sizeof (NONCLIENTMETRICSW), &ncm, sizeof (NONCLIENTMETRICSW)) == 0)
return ieLastErr("getting default fonts");
hMessageFont = CreateFontIndirectW(&(ncm.lfMessageFont));
if (hMessageFont == NULL)
return ieLastErr("loading default messagebox font; this is the default UI font");
if (initContainer(hDefaultIcon, hDefaultCursor) == 0)
return ieLastErr("initializing uiWindowsMakeContainer() window class");
hollowBrush = (HBRUSH) GetStockObject(HOLLOW_BRUSH);
if (hollowBrush == NULL)
return ieLastErr("getting hollow brush");
ZeroMemory(&icc, sizeof (INITCOMMONCONTROLSEX));
icc.dwSize = sizeof (INITCOMMONCONTROLSEX);
icc.dwICC = wantedICCClasses;
if (InitCommonControlsEx(&icc) == 0)
return ieLastErr("initializing Common Controls");
hr = CoInitialize(NULL);
if (hr != S_OK && hr != S_FALSE)
return ieHRESULT("initializing COM", hr);
// LONGTERM initialize COM security
// LONGTERM (windows vista) turn off COM exception handling
hr = initDraw();
if (hr != S_OK)
return ieHRESULT("initializing Direct2D", hr);
hr = initDrawText();
if (hr != S_OK)
return ieHRESULT("initializing DirectWrite", hr);
if (registerAreaClass(hDefaultIcon, hDefaultCursor) == 0)
return ieLastErr("registering uiArea window class");
if (registerMessageFilter() == 0)
return ieLastErr("registering libui message filter");
if (registerD2DScratchClass(hDefaultIcon, hDefaultCursor) == 0)
return ieLastErr("initializing D2D scratch window class");
return NULL;
}
const char *uiInit(uiInitOptions *o)
{
STARTUPINFOW si;
const char *ce;
HICON hDefaultIcon;
HCURSOR hDefaultCursor;
NONCLIENTMETRICSW ncm;
INITCOMMONCONTROLSEX icc;
HRESULT hr;
options = *o;
if (initAlloc() == 0)
return loadLastError("error initializing memory allocations");
initResizes();
nCmdShow = SW_SHOWDEFAULT;
GetStartupInfoW(&si);
if ((si.dwFlags & STARTF_USESHOWWINDOW) != 0)
nCmdShow = si.wShowWindow;
hDefaultIcon = LoadIconW(NULL, IDI_APPLICATION);
if (hDefaultIcon == NULL)
return loadLastError("loading default icon for window classes");
hDefaultCursor = LoadCursorW(NULL, IDC_ARROW);
if (hDefaultCursor == NULL)
return loadLastError("loading default cursor for window classes");
ce = initUtilWindow(hDefaultIcon, hDefaultCursor);
if (ce != NULL)
return loadLastError(ce);
if (registerWindowClass(hDefaultIcon, hDefaultCursor) == 0)
return loadLastError("registering uiWindow window class");
ZeroMemory(&ncm, sizeof (NONCLIENTMETRICSW));
ncm.cbSize = sizeof (NONCLIENTMETRICSW);
if (SystemParametersInfoW(SPI_GETNONCLIENTMETRICS, sizeof (NONCLIENTMETRICSW), &ncm, sizeof (NONCLIENTMETRICSW)) == 0)
return loadLastError("getting default fonts");
hMessageFont = CreateFontIndirectW(&(ncm.lfMessageFont));
if (hMessageFont == NULL)
return loadLastError("loading default messagebox font; this is the default UI font");
if (initContainer(hDefaultIcon, hDefaultCursor) == 0)
return loadLastError("initializing uiMakeContainer() window class");
if (SetConsoleCtrlHandler(consoleCtrlHandler, TRUE) == 0)
return loadLastError("setting up console end session handler");
hollowBrush = (HBRUSH) GetStockObject(HOLLOW_BRUSH);
if (hollowBrush == NULL)
return loadLastError("getting hollow brush");
ZeroMemory(&icc, sizeof (INITCOMMONCONTROLSEX));
icc.dwSize = sizeof (INITCOMMONCONTROLSEX);
icc.dwICC = wantedICCClasses;
if (InitCommonControlsEx(&icc) == 0)
return loadLastError("initializing Common Controls");
if (initDialogHelper(hDefaultIcon, hDefaultCursor) == 0)
return loadLastError("initializing the dialog helper");
hr = CoInitialize(NULL);
if (hr != S_OK && hr != S_FALSE)
return loadHRESULT("initializing COM", hr);
// TODO initialize COM security
// TODO (windows vista) turn off COM exception handling
return NULL;
}
