/*
 * CROPFILE (SAS C)
 *
 * by Gabriele Falcioni.
 * This source is Public Domain.
 *
 */

#include <exec/types.h>
#include <dos/dos.h>
#include <dos/stdio.h>

#include <proto/dos.h>

struct MyArgs {
	UBYTE *File;
	LONG  *Size;
};

void main(void)
{
	struct RDArgs *rda;
	struct MyArgs mya;
	BPTR fh;

	if (rda = ReadArgs("FILE/A,NEWSIZE/N/A",(LONG *)&mya,NULL)) {
		if (fh = Open(mya.File,MODE_OLDFILE)) {
			if (SetFileSize(fh,*mya.Size,OFFSET_BEGINNING) == -1)
				PrintFault(IoErr(),"Can't crop file");
			Close(fh);
		} else PrintFault(IoErr(),"Can't open file");
		FreeArgs(rda);
	} else PrintFault(IoErr(),"Bad Args");
}