/*
	Utility to play with the snapshot and do various queries
*/
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <tlmplib.h>

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal bool bitmap = false;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setarg ('b',"inspect","Inspect a bitmap",glocal.bitmap,false);
	</f>
	<f main>
		int ret = -1;
		if (glocal.bitmap){
			FILE *fin = fopen (argv[0],"r");
			if (fin == NULL){
				tlmp_error ("Can't open file %s (%s)\n"
					,argv[0],strerror(errno));
			}else{
				char byte;
				int total = 0;
				while (fread(&byte,1,1,fin)==1){
					for (int i=0; i<8; i++){
						if (byte & (1<<i)) total++;
					}
				}
				printf ("%d blocks modified in snapshot\n",total);
				fclose (fin);
				ret = 0;
			}
		}
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>