//
-// 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
//
//
-// 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;
// 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++)
{
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;
+ }
+ if ((int64_t)size <= 0)
+ {
+ return error("invalid incbin size requested");
+ }
+ }
+ 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;
+ if ((int64_t)size < 0)
+ {
+ return error("requested incbin size out of range");
+ }
+ }
+ 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;
}