X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=direct.c;h=607ad7c05926174d6ec20937c0ac345da09ef44b;hb=cbc8347d4ffea164ca05b03e4e3be39945be8777;hp=4e9cffd350cb1603bb01a34b58e2bf18cb55c676;hpb=8f287ee72236774216a11a3062f9a26dc8dc66b6;p=rmac

diff --git a/direct.c b/direct.c
index 4e9cffd..607ad7c 100644
--- a/direct.c
+++ b/direct.c
@@ -1,7 +1,7 @@
 //
-// RMAC - Reboot's Macro Assembler for all Atari computers
+// RMAC - Renamed Macro Assembler for all Atari computers
 // DIRECT.C - Directive Handling
-// Copyright (C) 199x Landon Dyer, 2011-2020 Reboot and Friends
+// Copyright (C) 199x Landon Dyer, 2011-2021 Reboot and Friends
 // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
 // Source utilised with the kind permission of Landon Dyer
 //
@@ -559,13 +559,13 @@ int d_noclear(void)
 
 
 //
-// Include binary file
+// Include binary file (can add addition size & position params, comma separated)
 //
 int d_incbin(void)
 {
 	int fd;
 	int bytes = 0;
-	long pos, size, bytesRead;
+	uint64_t pos, size, bytesRead;
 	char buf1[256];
 	int i;
 
@@ -584,8 +584,10 @@ int d_incbin(void)
 
 	// Attempt to open the include file in the current directory, then (if that
 	// failed) try list of include files passed in the enviroment string or by
-	// the "-d" option.
-	if ((fd = open(string[tok[1]], _OPEN_INC)) < 0)
+	// the "-i" option.
+	TOKEN filename = tok[1];
+
+	if ((fd = open(string[filename], _OPEN_INC)) < 0)
 	{
 		for(i=0; nthpath("RMACPATH", i, buf1)!=0; i++)
 		{
@@ -595,29 +597,81 @@ int d_incbin(void)
 			if (fd > 0 && buf1[fd - 1] != SLASHCHAR)
 				strcat(buf1, SLASHSTRING);
 
-			strcat(buf1, string[tok[1]]);
+			strcat(buf1, string[filename]);
 
 			if ((fd = open(buf1, _OPEN_INC)) >= 0)
 				goto allright;
 		}
 
-		return error("cannot open: \"%s\"", string[tok[1]]);
+		return error("cannot open: \"%s\"", string[filename]);
 	}
 
 allright:
 
-	size = lseek(fd, 0L, SEEK_END);
-	pos = lseek(fd, 0L, SEEK_SET);
+	tok += 2;
+
+	if (*tok != EOL)
+	{
+		// Check size parameter (can be omitted)
+		if (*tok++ == ',')
+		{
+			if (*tok != ',')
+			{
+				if (abs_expr(&size) != OK)
+				{
+					close(fd);
+					return ERROR;
+				}
+			}
+			else
+				size = lseek(fd, 0L, SEEK_END);
+		}
+
+		// Check offset parameter (can be omitted)
+		if (*tok != EOL)
+		{
+			if (*tok++ == ',')
+			{
+				if (*tok != EOL)
+				{
+					if (abs_expr(&pos) != OK)
+					{
+						close(fd);
+						return ERROR;
+					}
+
+					lseek(fd, pos, SEEK_SET);
+					size -= pos;
+				}
+				else
+				{
+					// offset parameter omitted, so it's 0
+					pos = lseek(fd, 0L, SEEK_SET);
+				}
+			}
+			else
+				return error(comma_error);
+		}
+		else
+			pos = lseek(fd, 0L, SEEK_SET);
+	}
+	else
+	{
+		// size & pos not given, so assume offset of 0 and all of the binary
+		size = lseek(fd, 0L, SEEK_END);
+		pos = lseek(fd, 0L, SEEK_SET);
+	}
+
 	chcheck(size);
 
-	DEBUG { printf("INCBIN: File '%s' is %li bytes.\n", string[tok[1]], size); }
+	DEBUG { printf("INCBIN: File '%s' is %li bytes.\n", string[filename], size); }
 
 	char * fileBuffer = (char *)malloc(size);
 	bytesRead = read(fd, fileBuffer, size);
 
 	if (bytesRead != size)
 	{
-		error("was only able to read %li bytes from binary file (%s, %li bytes)", bytesRead, string[tok[1]], size);
+		error("was only able to read %li bytes from binary file (%s, %li bytes)", bytesRead, string[filename], size);
 		return ERROR;
 	}