Add plugin from VMMaker

Name: VMMaker.oscog-VB.2364
Author: VB
Time: 14 April 2018, 12:21:14.814622 pm
UUID: d084ec90-dd2d-0048-a171-0dadc3e52888
Ancestors: VMMaker.oscog-eem.2363

Author: VincentBlondeau

src/plugins/HostWindowPlugin/HostWindowPlugin.c

@@ -1,9 +1,9 @@
 /* Automatically generated by
-	SmartSyntaxPluginCodeGenerator VMMaker.oscog-eem.2347 uuid: 062614a7-e3da-4b30-997a-9568911b9ff5
+	SmartSyntaxPluginCodeGenerator VMMaker.oscog-VB.2364 uuid: d084ec90-dd2d-0048-a171-0dadc3e52888
    from
-	HostWindowPlugin VMMaker.oscog-eem.2347 uuid: 062614a7-e3da-4b30-997a-9568911b9ff5
+	HostWindowPlugin VMMaker.oscog-VB.2364 uuid: d084ec90-dd2d-0048-a171-0dadc3e52888
  */
-static char __buildInfo[] = "HostWindowPlugin VMMaker.oscog-eem.2347 uuid: 062614a7-e3da-4b30-997a-9568911b9ff5 " __DATE__ ;
+static char __buildInfo[] = "HostWindowPlugin VMMaker.oscog-VB.2364 uuid: d084ec90-dd2d-0048-a171-0dadc3e52888 " __DATE__ ;
 
 
 
@@ -34,10 +34,15 @@ static char __buildInfo[] = "HostWindowPlugin VMMaker.oscog-eem.2347 uuid: 06261
 #include "sqMemoryAccess.h"
 
 
+/*** Constants ***/
+#define PrimErrBadArgument 3
+
+
 /*** Function Prototypes ***/
 EXPORT(const char*) getModuleName(void);
 EXPORT(sqInt) primitiveCloseHostWindow(void);
 EXPORT(sqInt) primitiveCreateHostWindow(void);
+EXPORT(sqInt) primitiveHostWindowIcon(void);
 EXPORT(sqInt) primitiveHostWindowPosition(void);
 EXPORT(sqInt) primitiveHostWindowPositionSet(void);
 #if TerfVM
@@ -89,6 +94,7 @@ static usqInt (*positive32BitValueOf)(sqInt oop);
 static sqInt (*positive64BitIntegerFor)(usqLong integerValue);
 static usqLong (*positive64BitValueOf)(sqInt oop);
 static sqInt (*primitiveFail)(void);
+static sqInt (*primitiveFailFor)(sqInt reasonCode);
 static sqInt (*slotSizeOf)(sqInt oop);
 static sqInt (*stackIntegerValue)(sqInt offset);
 static sqInt (*stackValue)(sqInt offset);
@@ -107,6 +113,7 @@ extern usqInt positive32BitValueOf(sqInt oop);
 extern sqInt positive64BitIntegerFor(usqLong integerValue);
 extern usqLong positive64BitValueOf(sqInt oop);
 extern sqInt primitiveFail(void);
+extern sqInt primitiveFailFor(sqInt reasonCode);
 extern sqInt slotSizeOf(sqInt oop);
 extern sqInt stackIntegerValue(sqInt offset);
 extern sqInt stackValue(sqInt offset);
@@ -116,9 +123,9 @@ extern
 struct VirtualMachine* interpreterProxy;
 static const char *moduleName =
 #ifdef SQUEAK_BUILTIN_PLUGIN
-	"HostWindowPlugin VMMaker.oscog-eem.2347 (i)"
+	"HostWindowPlugin VMMaker.oscog-VB.2364 (i)"
 #else
-	"HostWindowPlugin VMMaker.oscog-eem.2347 (e)"
+	"HostWindowPlugin VMMaker.oscog-VB.2364 (e)"
 #endif
 ;
 
@@ -207,6 +214,44 @@ primitiveCreateHostWindow(void)
 }
 
 
+/*	Set the icon of the window by fetching the logo in given path. Fail if the
+	windowIndex is invalid or the platform routine returns -1 to indicate
+	failure 
+ */
+
+	/* HostWindowPlugin>>#primitiveHostWindowIcon:path: */
+EXPORT(sqInt)
+primitiveHostWindowIcon(void)
+{
+	sqInt id;
+	sqInt pathLength;
+	char *pathString;
+	sqInt res;
+
+	id = stackIntegerValue(1);
+	success(isBytes(stackValue(0)));
+	pathString = ((char *) (firstIndexableField(stackValue(0))));
+	if (failed()) {
+		return null;
+	}
+	pathLength = slotSizeOf(((sqInt)(sqIntptr_t)(pathString) - BaseHeaderSize));
+	res = ioSetIconOfWindow(id, pathString, pathLength);
+	if (res == 0) {
+		if (failed()) {
+			return null;
+		}
+		pop(2);
+		return null;
+	}
+	if (res == -1) {
+		primitiveFailFor(PrimErrBadArgument);
+		return null;
+	}
+	primitiveFail();
+	return null;
+}
+
+
 /*	Return the origin position of the user area of the window in pixels from
 	the topleft corner of the screen. Fail if the windowIndex is invalid or
 	the platform routine returns -1 to indicate failure
@@ -758,6 +803,7 @@ setInterpreter(struct VirtualMachine*anInterpreter)
 		positive64BitIntegerFor = interpreterProxy->positive64BitIntegerFor;
 		positive64BitValueOf = interpreterProxy->positive64BitValueOf;
 		primitiveFail = interpreterProxy->primitiveFail;
+		primitiveFailFor = interpreterProxy->primitiveFailFor;
 		slotSizeOf = interpreterProxy->slotSizeOf;
 		stackIntegerValue = interpreterProxy->stackIntegerValue;
 		stackValue = interpreterProxy->stackValue;
@@ -793,6 +839,7 @@ void* HostWindowPlugin_exports[][3] = {
 	{(void*)_m, "getModuleName", (void*)getModuleName},
 	{(void*)_m, "primitiveCloseHostWindow\000\000", (void*)primitiveCloseHostWindow},
 	{(void*)_m, "primitiveCreateHostWindow\000\000", (void*)primitiveCreateHostWindow},
+	{(void*)_m, "primitiveHostWindowIcon\000\000", (void*)primitiveHostWindowIcon},
 	{(void*)_m, "primitiveHostWindowPosition\000\000", (void*)primitiveHostWindowPosition},
 	{(void*)_m, "primitiveHostWindowPositionSet\000\000", (void*)primitiveHostWindowPositionSet},
 #if TerfVM
@@ -832,6 +879,7 @@ void* HostWindowPlugin_exports[][3] = {
 
 signed char primitiveCloseHostWindowAccessorDepth = 0;
 signed char primitiveCreateHostWindowAccessorDepth = 0;
+signed char primitiveHostWindowIconAccessorDepth = 0;
 signed char primitiveHostWindowPositionAccessorDepth = 0;
 signed char primitiveHostWindowPositionSetAccessorDepth = 0;
 #if TerfVM