FML.CPP

//07-02-95 03:42pm €¢â®à: Œ¨å ¨« à âãáì

#include <stdlib.h>
#include <alloc.h>
#include <io.h>
#include <dos.h>
#include <fcntl.h>
#include <string.h>
#include <sys/stat.h>
#include <dir.h>
#include "famegraf.h"

struct zapblk {
	unsigned long posblk;
	unsigned long lenblk;
	unsigned long lenpak;
	char comp;
	char typblk;
	char name[13];
};

extern zapblk flib[];
extern int numblk;
extern char name_lib[13];
extern char name_map[13];

char tektyp[1];
char tekname[32];

char modify=0;

block tmp;
int fdz;

unsigned long filelen;

struct ffblk ffblk;	//¤«ï ª â «®£  ¨ wildcard

void main(int argc, char *argv[]) {
	unsigned long lenblk_,lenpak_;
	int i,j;

	puts(">>>  ¡®â  á ¡¨¡«¨®â¥ª ¬¨ <<<  FaMe Soft by BMV  (C)1994\n");

	if (argc < 2) {
		puts("þ Ž˜ˆŠ€: ¯à®£à ¬¬ã FLIB.EXE ­ã¦­® ¢ë§ë¢ âì â ª:\n\n"
			"  FLIB <¨¬ï ¡¨¡«¨®â¥ª¨> [@|%|{+|-|*}¨¬ï ...]\n"
			"   + ¤®¡ ¢¨âì ä ©«ë ¢ ¡¨¡«¨®â¥ªã    (è ¡«®­)\n"
			"   ^ ¯¥à¥¬¥áâ¨âì ä ©«ë ¢ ¡¨¡«¨®â¥ªã (è ¡«®­)\n"
			"   - 㤠«¨âì ä ©« ¨§ ¡¨¡«¨®â¥ª¨\n"
			"   * ¨§¢«¥çì ä ©« ¨§ ¡¨¡«¨®â¥ª¨\n"
			"   @ ¨§¢«¥çì ¢á¥ ä ©«ë ¨§ ¡¨¡«¨®â¥ª¨\n"
			"   % 㯫®â­¨âì ¡¨¡«¨®â¥ªã\n\n"
			" ¯à¨¬¥à: FLIB my +font.m1 *my.bin");
		exit (0);
	}

	if (SetLib(argv[1])==0) {
		printf("þ Ž˜ˆŠ€: ­¥ ¬®£ã ®âªàëâì ¡¨¡«¨®â¥ªã '%s'",argv[1]);
		exit (1);
	}
	if (argc > 2 ) {
		//¯à®¢¥¤¥¬ ®¯¥à æ¨î ¤«ï ®¡à ¡®âª¨ ¢á¥å ¯ à ¬¥â஢
		for (i=2; i<argc; ++i) {
			strcpy(tektyp,argv[i]);	tekname[12]=0;
			switch (tektyp[0]) {
			case '-':
				printf("“¤ «ïî ¨§ ¡¨¡«¨®â¥ª¨: %s\n",tekname);
				DelLib(tekname);
				++modify;
				break;
			case '+':
			case '^':
				j = findfirst(tekname,&ffblk,0);
				while (!j) {
					printf("„®¡ ¢«ïî: %s ",ffblk.ff_name);
					if ( (fdz=open(ffblk.ff_name, O_RDONLY | O_BINARY, S_IREAD | S_IWRITE)) == -1 ) {
						printf("þ Ž˜ˆŠ€: ­¥ ¬®£ã ®âªàëâì ä ©« '%s'",ffblk.ff_name);
						farfree(tmp);
						break;
						//exit (1);
					}
					//㧭 ¥¬ ¤«¨­ã ä ©« 
					printf("%u ¡ ©â\n",(unsigned int)(filelen=ffblk.ff_fsize));
					tmp=(block)famemalloc(filelen);
					if ( read(fdz, tmp, filelen) == -1) {
						printf("þ Ž˜ˆŠ€: ­¥ ¬®£ã áç¨â âì ä ©« '%s'",ffblk.ff_name);
						farfree(tmp);
						close(fdz);
						break;
					}
					close(fdz);
					if ( PutLib(ffblk.ff_name,tmp,filelen) == 0 ) {
						printf("þ Ž˜ˆŠ€: ­¥ ¬®£ã § ¯¨á âì ¢ ¡¨¡«¨®â¥ªã ä ©« '%s'",ffblk.ff_name);
					} else {
						if (tektyp[0]=='^') {
							printf("“¤ «ïî %s á ¤¨áª \n",ffblk.ff_name);
							remove(ffblk.ff_name);
						}
						++modify;
					}
					farfree(tmp);
					j = findnext(&ffblk);
				}
				break;

			case '*':
				printf("ˆ§¢«¥ª î: %s\n",tekname);
				filelen=SizeLib(tekname);
				tmp=(block)famemalloc(filelen);
				if (GetLib(tekname,tmp)==0) {
					printf("þ ¥ ¬®£ã ¨§¢«¥çì ä ©« '%s' ¨§ ¡¨¡«¨®â¥ª¨\n",tekname);
					farfree(tmp);
					break;
				}
				remove(tekname);
				if ( (fdz=open(tekname, O_WRONLY | O_CREAT | O_BINARY, S_IREAD | S_IWRITE)) == -1 ) {
					printf("þ Ž˜ˆŠ€: ­¥ ¬®£ã ®âªàëâì ä ©« '%s'",tekname);
					farfree(tmp);
					exit (1);
				}
				if ( write(fdz, tmp, filelen) == -1) {
					printf("þ Ž˜ˆŠ€: ­¥ ¬®£ã § ¯¨á âì ä ©« '%s'\n",tekname);
					farfree(tmp);
					exit (1);
				}
				close(fdz);
				farfree(tmp);
				break;

			case '@':
				tmp=(block)famemalloc((unsigned long)65530);
				for( j=0; j<numblk; ++j ) {
					printf("ˆ§¢«¥ª î: %s, N %u\n",flib[j].name,j);
					filelen=flib[j].lenblk;
					if (GetLib(flib[j].name,tmp)==0) {
						printf("þ ¥ ¬®£ã ¨§¢«¥çì ä ©« '%s' ¨§ ¡¨¡«¨®â¥ª¨\n",flib[j].name);
						farfree(tmp);
						break;
					}
					remove(tekname);
					if ( (fdz=open(flib[j].name, O_WRONLY | O_CREAT | O_BINARY, S_IREAD | S_IWRITE)) == -1 ) {
						printf("þ Ž˜ˆŠ€: ­¥ ¬®£ã ®âªàëâì ä ©« '%s'",flib[j].name);
						farfree(tmp);
						exit (1);
					}
					if ( write(fdz, tmp, filelen) == -1) {
						printf("þ Ž˜ˆŠ€: ­¥ ¬®£ã § ¯¨á âì ä ©« '%s'\n",flib[j].name);
						farfree(tmp);
						exit (1);
					}
					close(fdz);
				}
				farfree(tmp);
				break;

			case '%':
				//ãáâ. ¯à¨§­ ª ¬®¤¨ä¨ª æ¨¨ ¤«ï 㯠ª®¢ª¨
				modify=1;
				break;

			default:
				printf("à®¯ãáª î ®è¨¡®ç­ãî ª®¬ ­¤ã: %s\n",tekname);
			}
		}

		if (modify) {
			puts("“¯«®â­ïî ¡¨¡«¨®â¥ªã...");
			PackLib();
		}

	} else {
		//¢ë¢®¤ ᯨ᪠ ¡¨¡«¨®â¥ª¨
		lenblk_=lenpak_=0L;
		puts(" N    ˆ¬ï ä ©«    §¬¥à ‘¦ â®  €àå  %");
		puts("--- ------------ ------ ------ --- ---");
		for (i=0; i<numblk; ++i) {
			//ç¨â ¥¬ ®¤­ã § ¯¨áì MAP-ä ©« 
			printf("%3u %-12s %6lu %6lu %3s %3u\n",i+1,flib[i].name,flib[i].lenblk,flib[i].lenpak,(flib[i].comp?"RLE":"¥â"),flib[i].lenpak*100/flib[i].lenblk);
			lenblk_+=flib[i].lenblk;
			lenpak_+=flib[i].lenpak;
		}
		puts("--- ------------ ------ ------ --- ---");
		printf("%3u              %6lu %6lu     %3u\n",numblk,lenblk_,lenpak_,(int)lenblk_?(lenpak_*100/lenblk_):0);
	}
	SetLib("");
}

void fatalerror(char *t) {
	//¢ë室 ¯® ä â «ì­®© ®è¨¡ª¥
	SetLib("");
	puts(t);
	exit(1);
}