int processAtMLton (GC_state s, int start, int argc, char **argv,
char **worldFile) {
int i;
i = start;
while (s->controls.mayProcessAtMLton
and i < argc
and (0 == strcmp (argv [i], "@MLton"))) {
bool done;
i++;
done = FALSE;
while (!done) {
if (i == argc)
die ("Missing -- at end of @MLton args.");
else {
char *arg;
arg = argv[i];
if (0 == strcmp (arg, "copy-generational-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton copy-generational-ratio missing argument.");
s->controls.ratios.copyGenerational = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.copyGenerational)
die ("@MLton copy-generational-ratio argument must be greater than 1.0.");
} else if (0 == strcmp (arg, "copy-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton copy-ratio missing argument.");
s->controls.ratios.copy = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.copy)
die ("@MLton copy-ratio argument must be greater than 1.0.");
} else if (0 == strcmp (arg, "fixed-heap")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton fixed-heap missing argument.");
s->controls.fixedHeap = align (stringToBytes (argv[i++]),
2 * s->sysvals.pageSize);
} else if (0 == strcmp (arg, "gc-messages")) {
i++;
s->controls.messages = TRUE;
} else if (0 == strcmp (arg, "gc-summary")) {
i++;
s->controls.summary = TRUE;
} else if (0 == strcmp (arg, "gc-summary-file")) {
i++;
if (i == argc || (0 == strcmp (argv[i], "--")))
die ("@MLton gc-summary-file missing argument.");
s->controls.summary = TRUE;
s->controls.summaryFile = fopen(argv[i++], "w");
if (s->controls.summaryFile == NULL) {
die ("Invalid @MLton gc-summary-file %s (%s).", argv[i-1], strerror(errno));
}
} else if (0 == strcmp (arg, "grow-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton grow-ratio missing argument.");
s->controls.ratios.grow = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.grow)
die ("@MLton grow-ratio argument must be greater than 1.0.");
} else if (0 == strcmp (arg, "hash-cons")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton hash-cons missing argument.");
s->controls.ratios.hashCons = stringToFloat (argv[i++]);
unless (0.0 <= s->controls.ratios.hashCons
and s->controls.ratios.hashCons <= 1.0)
die ("@MLton hash-cons argument must be between 0.0 and 1.0.");
} else if (0 == strcmp (arg, "live-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton live-ratio missing argument.");
s->controls.ratios.live = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.live)
die ("@MLton live-ratio argument must be greater than 1.0.");
} else if (0 == strcmp (arg, "load-world")) {
unless (s->controls.mayLoadWorld)
die ("May not load world.");
i++;
s->amOriginal = FALSE;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton load-world missing argument.");
*worldFile = argv[i++];
} else if (0 == strcmp (arg, "mark-compact-generational-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton mark-compact-generational-ratio missing argument.");
s->controls.ratios.markCompactGenerational = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.markCompactGenerational)
die ("@MLton mark-compact-generational-ratio argument must be greater than 1.0.");
} else if (0 == strcmp (arg, "mark-compact-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton mark-compact-ratio missing argument.");
s->controls.ratios.markCompact = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.markCompact)
die ("@MLton mark-compact-ratio argument must be greater than 1.0.");
} else if (0 == strcmp (arg, "max-heap")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton max-heap missing argument.");
s->controls.maxHeap = align (stringToBytes (argv[i++]),
2 * s->sysvals.pageSize);
} else if (0 == strcmp (arg, "may-page-heap")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton may-page-heap missing argument.");
s->controls.mayPageHeap = stringToBool (argv[i++]);
} else if (0 == strcmp (arg, "no-load-world")) {
i++;
s->controls.mayLoadWorld = FALSE;
} else if (0 == strcmp (arg, "nursery-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton nursery-ratio missing argument.");
s->controls.ratios.nursery = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.nursery)
die ("@MLton nursery-ratio argument must be greater than 1.0.");
} else if (0 == strcmp (arg, "ram-slop")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton ram-slop missing argument.");
s->controls.ratios.ramSlop = stringToFloat (argv[i++]);
} else if (0 == strcmp (arg, "show-sources")) {
showSources (s);
exit (0);
} else if (0 == strcmp (arg, "stop")) {
i++;
s->controls.mayProcessAtMLton = FALSE;
} else if (0 == strcmp (arg, "stack-current-grow-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton stack-current-grow-ratio missing argument.");
s->controls.ratios.stackCurrentGrow = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.stackCurrentGrow)
die ("@MLton stack-current-grow-ratio argument must greater than 1.0.");
} else if (0 == strcmp (arg, "stack-current-max-reserved-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton stack-current-max-reserved-ratio missing argument.");
s->controls.ratios.stackCurrentMaxReserved = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.stackCurrentMaxReserved)
die ("@MLton stack-current-max-reserved-ratio argument must greater than 1.0.");
} else if (0 == strcmp (arg, "stack-current-permit-reserved-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton stack-current-permit-reserved-ratio missing argument.");
s->controls.ratios.stackCurrentPermitReserved = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.stackCurrentPermitReserved)
die ("@MLton stack-current-permit-reserved-ratio argument must greater than 1.0.");
} else if (0 == strcmp (arg, "stack-current-shrink-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton stack-current-shrink-ratio missing argument.");
s->controls.ratios.stackCurrentShrink = stringToFloat (argv[i++]);
unless (0.0 <= s->controls.ratios.stackCurrentShrink
and s->controls.ratios.stackCurrentShrink <= 1.0)
die ("@MLton stack-current-shrink-ratio argument must be between 0.0 and 1.0.");
} else if (0 == strcmp (arg, "stack-max-reserved-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton stack-max-reserved-ratio missing argument.");
s->controls.ratios.stackMaxReserved = stringToFloat (argv[i++]);
unless (1.0 < s->controls.ratios.stackMaxReserved)
die ("@MLton stack-max-reserved-ratio argument must greater than 1.0.");
} else if (0 == strcmp (arg, "stack-shrink-ratio")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton stack-shrink-ratio missing argument.");
s->controls.ratios.stackShrink = stringToFloat (argv[i++]);
unless (0.0 <= s->controls.ratios.stackShrink
and s->controls.ratios.stackShrink <= 1.0)
die ("@MLton stack-shrink-ratio argument must be between 0.0 and 1.0.");
} else if (0 == strcmp (arg, "use-mmap")) {
i++;
if (i == argc || 0 == strcmp (argv[i], "--"))
die ("@MLton use-mmap missing argument.");
GC_setCygwinUseMmap (stringToBool (argv[i++]));
} else if (0 == strcmp (arg, "--")) {
i++;
done = TRUE;
} else if (i > 1)
die ("Strange @MLton arg: %s", argv[i]);
else done = TRUE;
}
}
}
return i;
}
int webPage::qt_metacall(QMetaObject::Call _c, int _id, void **_a)
{
_id = QMainWindow::qt_metacall(_c, _id, _a);
if (_id < 0)
return _id;
if (_c == QMetaObject::InvokeMetaMethod) {
switch (_id) {
case 0: loading((*reinterpret_cast< QString(*)>(_a[1]))); break;
case 1: isLoading((*reinterpret_cast< QPixmap(*)>(_a[1]))); break;
case 2: titleChanged((*reinterpret_cast< QString(*)>(_a[1]))); break;
case 3: pageChanged((*reinterpret_cast< QString(*)>(_a[1])),(*reinterpret_cast< QString(*)>(_a[2]))); break;
case 4: showSources((*reinterpret_cast< QString(*)>(_a[1]))); break;
case 5: speedDial(); break;
case 6: needPrint((*reinterpret_cast< QPrinter*(*)>(_a[1]))); break;
case 7: openTab((*reinterpret_cast< webPage*(*)>(_a[1]))); break;
case 8: setFullScreen((*reinterpret_cast< bool(*)>(_a[1]))); break;
case 9: startLoading(); break;
case 10: finishLoading((*reinterpret_cast< bool(*)>(_a[1]))); break;
case 11: changeTitle((*reinterpret_cast< QString(*)>(_a[1]))); break;
case 12: changeUrl((*reinterpret_cast< QUrl(*)>(_a[1]))); break;
case 13: goToHome(); break;
case 14: loadUrl(); break;
case 15: loadUrl((*reinterpret_cast< QUrl(*)>(_a[1]))); break;
case 16: loadUrl((*reinterpret_cast< QString(*)>(_a[1]))); break;
case 17: addToBookMark(); break;
case 18: downloadFile((*reinterpret_cast< const QNetworkRequest(*)>(_a[1]))); break;
case 19: downloadFile((*reinterpret_cast< QNetworkReply*(*)>(_a[1]))); break;
case 20: loadBookMark(); break;
case 21: showBookMark(); break;
case 22: sources(); break;
case 23: defineHome(); break;
case 24: findNext(); break;
case 25: findPrevious(); break;
case 26: print(); break;
case 27: createNewPage((*reinterpret_cast< WebView*(*)>(_a[1]))); break;
case 28: createNewPage(); break;
case 29: updateIcon(); break;
case 30: copy(); break;
case 31: authentification((*reinterpret_cast< QNetworkReply*(*)>(_a[1])),(*reinterpret_cast< QAuthenticator*(*)>(_a[2]))); break;
case 32: inspectPage(); break;
case 33: goToDial(); break;
case 34: updateUrlIcon((*reinterpret_cast< QPixmap(*)>(_a[1]))); break;
case 35: updateBookMark(); break;
case 36: updateOptions(); break;
case 37: showBar(); break;
case 38: showPage(); break;
case 39: showDial(); break;
case 40: inCache(); break;
case 41: showConsole(); break;
case 42: zoomIn(); break;
case 43: zoomOut(); break;
case 44: restoreZoom(); break;
case 45: savePage(); break;
case 46: back(); break;
case 47: forward(); break;
default: ;
}
_id -= 48;
}
return _id;
}
