file_create()

gm82core.gej

@@ -3,7 +3,7 @@
 	"folder": "gm82",
 	"version": "1.6",
 	"author": "renex, Floogle, Lovey01, cam900, Adamcake, YellowAfterlife, Verve",
-	"date": "09/12/2024",
+	"date": "19/12/2024",
 	"license": "Free to use, also for commercial games.",
 	"description": "Part of the standard Game Maker 8.2 distribution. This extension package contains a number of helper functions that are commonly used, and also geometry functions introduced in GM:Studio. This extension is also required for using the other GM 8.2 extensions, Sound and Joystick.",
 	"helpfile": "",
@@ -1179,6 +1179,17 @@
 						2
 					],
 					"returntype": 2
+				},
+				{
+					"name": "file_create",
+					"extname": "",
+					"calltype": 12,
+					"helpline": "file_create(filename)",
+					"hidden": false,
+					"argtypes": [
+						1
+					],
+					"returntype": 2
 				}
 			],
 			"constants": []
@@ -2644,6 +2655,18 @@
 					"argtypes": null,
 					"returntype": 2
 				},
+				{
+					"name": "file_text_write_all",
+					"extname": "",
+					"calltype": 2,
+					"helpline": "file_text_write_all(filename,string)",
+					"hidden": false,
+					"argtypes": [
+						2,
+						2
+					],
+					"returntype": 2
+				},
 				{
 					"name": "font_add_file",
 					"extname": "",
@@ -2708,6 +2731,15 @@
 					"argtypes": null,
 					"returntype": 2
 				},
+				{
+					"name": "registry_read_sz",
+					"extname": "",
+					"calltype": 2,
+					"helpline": "registry_read_sz(key,[default])",
+					"hidden": false,
+					"argtypes": null,
+					"returntype": 2
+				},
 				{
 					"name": "registry_write_dword",
 					"extname": "",
@@ -2739,27 +2771,6 @@
 					"hidden": false,
 					"argtypes": [],
 					"returntype": 2
-				},
-				{
-					"name": "file_text_write_all",
-					"extname": "",
-					"calltype": 2,
-					"helpline": "file_text_write_all(filename,string)",
-					"hidden": false,
-					"argtypes": [
-						2,
-						2
-					],
-					"returntype": 2
-				},
-				{
-					"name": "registry_read_sz",
-					"extname": "",
-					"calltype": 2,
-					"helpline": "registry_read_sz(key,[default])",
-					"hidden": false,
-					"argtypes": null,
-					"returntype": 2
 				}
 			],
 			"constants": []

source/gm82core.h

@@ -4,6 +4,7 @@
 #define VC_EXTRALEAN
 #define WIN32_LEAN_AND_MEAN
 
+#include <stdio.h>
 #include <windows.h>
 #include <versionhelpers.h>
 #include <math.h>

source/windows.c

@@ -410,3 +410,17 @@ GMREAL get_system_region() {
 GMREAL get_system_language() {
     return (double)(int)GetUserDefaultUILanguage();    
 }
+
+GMREAL file_create(const char *filename) {
+    ///file_create(filename)
+    //filename: the name of the file to create
+    //returns: whether creating the file was successful
+    FILE *file;
+    file=fopen(filename, "a, ccs=UTF-8");
+    if (file) {
+        fclose(file);
+        return 1;
+    } else {
+        return 0;
+    }
+}