re-added file natives

amxmodx/file.cpp

@@ -378,250 +378,273 @@ static cell AMX_NATIVE_CALL file_size(AMX *amx, cell *params) /* 1 param */
 	return -1;
 }
 
-//ported from Sanji's file access module by BAILOPAN
-// Important update - now uses new handles
 static cell AMX_NATIVE_CALL amx_fopen(AMX *amx, cell *params)
 {
-	unsigned int i;
 	int len, j = -1;
 	char *file = build_pathname("%s", get_amxstring(amx, params[1], 1, len));
 	char *flags = get_amxstring(amx, params[2], 0, len);
 
 	FILE *fp = fopen(file, flags);
 
-	if (fp == NULL)
-	{
-		// Failed
-		return 0;
-	}
-
-	for (i = 0; i < FileList.size(); i++)
-	{
-		if (FileList.at(i) == NULL)
-		{
-			j = i;
-			break;
-		}
-	}
-	
-	if (j == -1)
-	{
-		FileList.push_back(fp);
-		j = FileList.size() - 1;
-	} else {
-		FileList.at(j) = fp;
-	}
-
-	return j + 1;
+	return (cell)fp;
 }
 
-static cell AMX_NATIVE_CALL amx_fclose(AMX *amx, cell *params)
+static cell AMX_NATIVE_CALL amx_fwrite_blocks(AMX *amx, cell *params)
 {
-	unsigned int id = params[1] - 1;
+	FILE *fp = (FILE *)params[1];
 
-	if (id >= FileList.size() || FileList.at(id) == NULL)
+	if (!fp)
 		return 0;
 
-	FILE *fp = FileList.at(id);
-	
-	if (fp)
+	cell *addr = get_amxaddr(amx, params[2]);
+	size_t blocks = params[3];
+	size_t btmp = blocks;
+	cell mode = params[4];
+	switch (mode)
 	{
-		return fclose(fp);
-	} else {
-		return -1;
+	case 1:
+		{
+			char *a = new char[blocks];
+			char *ptr = a;
+			while (btmp--)
+				*a++ = static_cast<char>(*addr++);
+			size_t res = fwrite(a, sizeof(char), blocks, fp);
+			delete [] a;
+			return res;
+		}
+	case 2:
+		{
+			short *a = new short[blocks];
+			short *ptr = a;
+			while (btmp--)
+				*a++ = static_cast<short>(*addr++);
+			size_t res = fwrite(a, sizeof(short), blocks, fp);
+			delete [] a;
+			return res;
+		}
+	case 4:
+		{
+			int *a = new int[blocks];
+			int *ptr = a;
+			while (btmp--)
+				*a++ = static_cast<int>(*addr++);
+			size_t res = fwrite(a, sizeof(int), blocks, fp);
+			delete [] a;
+			return res;
+		}
 	}
-}
 
-static cell AMX_NATIVE_CALL amx_fread(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
 	return 0;
-	
-	FILE *fp = FileList.at(id);
-	
-	char *buffer;
-	
-	if (fp)
-	{
-		buffer = new char[params[3]];			// SLOW!!! :TODO: Find a better way (auto pointers?)
-		fread(buffer, sizeof(char), params[3], fp);
-		set_amxstring(amx, params[2], buffer, params[3]);
-		delete [] buffer;
-		
-		return 1;
-	}
-	
-	return -1;
-}
-
-#ifdef UNUSED
-static cell AMX_NATIVE_CALL amx_fgetc(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-	
-	if (fp)
-	{
-		return fgetc(fp);
-	} else {
-		return -1;
-	}
 }
 
 static cell AMX_NATIVE_CALL amx_fwrite(AMX *amx, cell *params)
 {
-	unsigned int id = params[1] - 1;
+	FILE *fp = (FILE *)params[1];
 
-	if (id >= FileList.size() || FileList.at(id) == NULL)
+	if (!fp)
 		return 0;
 
-	FILE *fp = FileList.at(id);
-	char *buf;
-	int len;
-	
-	if (fp)
+	size_t mode = params[3];
+	switch (mode)
 	{
-		buf = format_amxstring(amx, params, 2, len);
-		return fwrite(buf, sizeof(char), strlen(buf), fp);
+	case 1:
+		{
+			char a = static_cast<char>(params[2]);
+			return fwrite(&a, sizeof(char), 1, fp);
+		}
+	case 2:
+		{
+			short b = static_cast<short>(params[2]);
+			return fwrite(&b, sizeof(short), 1, fp);
+		}
+	case 4:
+		{
+			int c = static_cast<int>(params[2]);
+			return fwrite(&c, sizeof(short), 1, fp);
+		}
 	}
 
-	return -1;
+	return 0;
 }
 
-static cell AMX_NATIVE_CALL amx_feof(AMX *amx, cell *params)
+static cell AMX_NATIVE_CALL amx_fwrite_raw(AMX *amx, cell *params)
 {
-	unsigned int id = params[1] - 1;
+	FILE *fp = (FILE *)params[1];
 
-	if (id >= FileList.size() || FileList.at(id) == NULL)
+	if (!fp)
 		return 0;
 
-	FILE *fp = FileList.at(id);
+	cell *addr = get_amxaddr(amx, params[2]);
+	return fwrite(addr, params[3], params[4], fp);
+}
 
-	if (fp)
-	{
-		if (feof(fp))
-		{
-			return 1;
-		}
+static cell AMX_NATIVE_CALL amx_fread_raw(AMX *amx, cell *params)
+{
+	FILE *fp = (FILE *)params[1];
+
+	if (!fp)
 		return 0;
+
+	cell *addr = get_amxaddr(amx, params[2]);
+	size_t size = static_cast<cell>(params[3]);
+	size_t blocks = static_cast<cell>(params[4]);
+    
+	return fread(addr, size, blocks, fp);
+}
+
+static cell AMX_NATIVE_CALL amx_fread(AMX *amx, cell *params)
+{
+	FILE *fp = (FILE *)params[1];
+
+	if (!fp)
+		return 0;
+
+	cell *addr = get_amxaddr(amx, params[2]);
+	switch (params[3])
+	{
+	case 1:	//char
+		{
+			char a;
+			size_t res = fread(&a, sizeof(char), 1, fp);
+			*addr = static_cast<cell>(a);
+			return res;
+		}
+	case 2:	//short
+		{
+			short a;
+			size_t res = fread(&a, sizeof(short), 1, fp);
+			*addr = static_cast<cell>(a);
+			return res;
+		}
+	case 4:	//int
+	default:
+		{
+			int a;
+			size_t res = fread(&a, sizeof(int), 1, fp);
+			*addr = static_cast<cell>(a);
+			return res;
+		}
 	}
 
-	return -1;
+	return 0;
+}
+
+static cell AMX_NATIVE_CALL amx_fread_blocks(AMX *amx, cell *params)
+{
+	FILE *fp = (FILE *)params[1];
+
+	if (!fp)
+		return 0;
+
+	cell *addr = get_amxaddr(amx, params[2]);
+	size_t blocks = params[3];
+	switch (params[3])
+	{
+	case 1:	//char
+		{
+			char *a = new char[blocks];
+			char *ptr = a;
+			size_t res = fread(a, sizeof(char), blocks, fp);
+			while (blocks--)
+				*addr++ = static_cast<cell>(*ptr++);
+			delete [] a;
+			return res;
+		}
+	case 2:	//short
+		{
+			short *a = new short[blocks];
+			short *ptr = a;
+			size_t res = fread(a, sizeof(short), blocks, fp);
+			while (blocks--)
+				*addr++ = static_cast<cell>(*ptr++);
+			delete [] a;
+			return res;
+		}
+	case 4:	//int
+	default:
+		{
+			int *a = new int[blocks];
+			int *ptr = a;
+			size_t res = fread(a, sizeof(int), blocks, fp);
+			while (blocks--)
+				*addr++ = static_cast<cell>(*ptr++);
+			delete [] a;
+			return res;
+		}
+	}
+
+	return 0;
+}
+
+static cell AMX_NATIVE_CALL amx_fgets(AMX *amx, cell *params)
+{
+	FILE *fp = (FILE *)params[1];
+
+	if (!fp)
+		return 0;
+
+	static char buffer[4096];
+	buffer[0] = '\0';
+	fgets(buffer, sizeof(buffer)-1, fp);
+	return set_amxstring(amx, params[2], buffer, params[3]);
 }
 
 static cell AMX_NATIVE_CALL amx_fseek(AMX *amx, cell *params)
 {
-	unsigned int id = params[1] - 1;
+	FILE *fp = (FILE *)params[1];
 
-	if (id >= FileList.size() || FileList.at(id) == NULL)
+	if (!fp)
 		return 0;
 
-	FILE *fp = FileList.at(id);
-
-	if (fp)
-	{
-		return fseek(fp, (long)params[2], params[3]);
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fputc(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	if (fp)
-	{
-		return fputc(params[2], fp);
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_rewind(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	if (fp)
-	{
-		rewind(fp);
-		return 1;
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fflush(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	if (fp)
-	{
-		return fflush(fp);
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fscanf(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	char *buf;
-	int len;
-	buf = format_amxstring(amx, params, 2, len);
-	
-	if (fp)
-	{
-		return fscanf(fp, "%s", buf);
-	}
-
-	return -1;
+	return fseek(fp, params[2], params[3]);
 }
 
 static cell AMX_NATIVE_CALL amx_ftell(AMX *amx, cell *params)
 {
-	unsigned int id = params[1] - 1;
+	FILE *fp = (FILE *)params[1];
 
-	if (id >= FileList.size() || FileList.at(id) == NULL)
+	if (!fp)
 		return 0;
 
-	FILE *fp = FileList.at(id);
-
-	if (fp)
-	{
 	return ftell(fp);
+}
+
+static cell AMX_NATIVE_CALL amx_fprintf(AMX *amx, cell *params)
+{
+	FILE *fp = (FILE *)params[1];
+
+	if (!fp)
+		return 0;
+
+	int len;
+	char *str = format_amxstring(amx, params, 2, len);
+	return fprintf(fp, "%s", str);
+}
+
+static cell AMX_NATIVE_CALL amx_feof(AMX *amx, cell *params)
+{
+	FILE *fp = (FILE *)params[1];
+
+	if (!fp)
+		return 1;
+
+	return feof(fp);
+}
+
+static cell AMX_NATIVE_CALL amx_fclose(AMX *amx, cell *params)
+{
+	cell *addr = get_amxaddr(amx, params[1]);
+	if (*addr)
+	{
+		FILE *fp = (FILE *)*addr;
+		fclose(fp);
+		*addr = 0;
+
+		return 1;
 	}
 
-	return -1;
+	return 0;
 }
-#endif //UNUSED
 
 static cell AMX_NATIVE_CALL amx_filesize(AMX *amx, cell *params)
 {
@@ -642,164 +665,6 @@ static cell AMX_NATIVE_CALL amx_filesize(AMX *amx, cell *params)
 	return -1;
 }
 
-#ifdef UNUSED
-static cell AMX_NATIVE_CALL amx_fgetl(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	long t;
-	
-	if (fp)
-	{
-		fread(&t, sizeof(long), 1, fp);
-		return t;
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fgeti(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	int t;
-	
-	if (fp)
-	{
-		fread(&t, sizeof(int), 1, fp);
-		return t;
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fgets(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	short t;
-	
-	if (fp)
-	{
-		fread(&t, sizeof(short), 1, fp);
-		return t;
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fputs(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	short size = params[2];
-	
-	if (fp)
-	{
-		return fwrite(&size, sizeof(short), 1, fp);
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fputl(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	long size = params[2];
-	
-	if (fp)
-	{
-		return fwrite(&size, sizeof(long), 1, fp);
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fputi(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	int size = params[2];
-	
-	if (fp)
-	{
-		return fwrite(&size, sizeof(int), 1, fp);
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fgetf(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	float t;
-	
-	if (fp)
-	{
-		fread(&t, sizeof(float), 1, fp);
-		return *(cell*)&t;
-	}
-	
-	return -1;
-}
-
-static cell AMX_NATIVE_CALL amx_fputf(AMX *amx, cell *params)
-{
-	unsigned int id = params[1] - 1;
-	
-	if (id >= FileList.size() || FileList.at(id) == NULL)
-		return 0;
-	
-	FILE *fp = FileList.at(id);
-
-	float size = *(float *)((void *)&params[2]);
-	
-	if (fp)
-	{
-		return fwrite(&size, sizeof(float), 1, fp);
-	}
-	
-	return -1;
-}
-#endif //UNUSED
-
 static cell AMX_NATIVE_CALL amx_build_pathname(AMX *amx, cell *params)
 {
 	int len;
@@ -907,30 +772,21 @@ AMX_NATIVE_INFO file_Natives[] =
 	{"read_dir",		read_dir},
 	{"read_file",		read_file},
 	{"write_file",		write_file},
-	//Sanji's File Natives
+	//new, sane file natives
 	{"fopen",			amx_fopen},
 	{"fclose",			amx_fclose},
 	{"fread",			amx_fread},
-	{"filesize",	amx_filesize},
-#ifdef UNUSED
-	{"fgetc",		amx_fgetc},
+	{"fread_blocks",	amx_fread_blocks},
+	{"fread_raw",		amx_fread_raw},
 	{"fwrite",			amx_fwrite},
+	{"fwrite_blocks",	amx_fwrite_blocks},
+	{"fwrite_raw",		amx_fwrite_raw},
 	{"feof",			amx_feof},
-	{"fseek",		amx_fseek},
-	{"fputc",		amx_fputc},
-	{"rewind",		amx_rewind},
-	{"fflush",		amx_fflush},
-	{"fscanf",		amx_fscanf},
-	{"ftell",		amx_ftell},
-	{"fgetl",		amx_fgetl},
-	{"fgeti",		amx_fgeti},
+	{"fprintf",			amx_fprintf},
 	{"fgets",			amx_fgets},
-	{"fputs",		amx_fputs},
-	{"fputl",		amx_fputl},
-	{"fputi",		amx_fputi},
-	{"fgetf",		amx_fgetf},
-	{"fputf",		amx_fputf},
-#endif
+	{"fseek",			amx_fseek},
+	{"ftell",			amx_ftell},
+	{"filesize",		amx_filesize},
 	{"unlink",			delete_file},
 	{"build_pathname", amx_build_pathname},
 	{"dir_exists",		dir_exists},

plugins/include/file.inc

@@ -41,15 +41,45 @@ native file_size(const file[], flag=0);
 #define SEEK_CUR 1
 #define SEEK_END 2
 
-// These are C style file access functions
-// Code ported from Sanji's File module
-
-//Open a file
+//Open a file, returns a handle or 0 on vailure
 native fopen(const filename[],const mode[]);
-//Close a file
+
+//Closes a file handle
 native fclose(file);
-//Read a file for ret_size length
-native fread(file,ret[],ret_size);
+
+#define BLOCK_INT	4
+#define BLOCK_SHORT	2
+#define BLOCK_CHAR	1
+#define BLOCK_BYTE	1
+
+//The following functions work as such:
+// RAW - means the array you pass is a raw bytestream, for experts only
+// BLOCK - means you are passing in an array where each element will be written
+// NORMAL - means you are writing only one element
+// RAW and BLOCK return the number of blocks acted upon successfully
+// NORMAL returns 1 on success
+
+native fread(file, &data, mode);
+native fread_blocks(file, data[], blocks, mode);
+native fread_raw(file, stream[], blocksize, blocks);
+native fwrite(file, data, mode);
+native fwrite_blocks(file, const data[], blocks, mode);
+native fwrite_raw(file, const stream[], blocksize, mode);
+
+//Returns 1 if the file is ended, 0 otherwise
+native feof(file);
+
+//Reads a line from a text file -- includes newline!
+native fgets(file, buffer[], maxlength);
+
+//Writes a line to the file
+native fprintf(file, const fmt[], {Float,Sql,Result_}:...);
+
+//Sets the current position in a file (see SEEK_ values above)
+native fseek(file, position, start);
+
+//Returns the current position in a file
+native ftell(file);
 
 //Return the size of a file
 native filesize(const filename[],{Float,Sql,Result,_}:...);
@@ -61,37 +91,3 @@ native unlink(const filename[],{Float,Sql,Result,_}:...);
 native open_dir(dir[], firstfile[], length);
 native next_file(dirh, buffer[], length);
 native close_dir(dirh);
-
-stock bool:file_copy(const SOURCE[], const TARGET[], error[], const ERRORLEN, const bool:REPLACE_TARGET = false) {
-	if (!file_exists(SOURCE)) {
-		format(error, ERRORLEN, "File copy error: Source ^"%s^" doesn't exist!", SOURCE)
-		return false
-	}
-	if (!REPLACE_TARGET && file_exists(TARGET)) {
-		format(error, ERRORLEN, "File copy error: Target ^"%s^" exists!", TARGET)
-		return false
-	}
-
-	new source = fopen(SOURCE, "rb")
-	if (!source) {
-		format(error, ERRORLEN, "File copy error: Opening source ^"%s^" failed!", SOURCE)
-		return false
-	}
-
-	new target = fopen(TARGET, "wb")
-	if (!target) {
-		format(error, ERRORLEN, "File copy error: Opening target ^"%s^" failed!", TARGET)
-		fclose(source)
-		return false
-	}
-
-	for (new buffer, eof = feof(source); !eof; !eof && fputc(target, buffer)) {
-		buffer = fgetc(source)
-		eof = feof(source)
-	}
-
-	fclose(source)
-	fclose(target)
-
-	return true
-}