X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=src%2Flib%2F16_head.c;h=008c654409f12919eda0533725d4113c3745afc8;hb=aa8618bc6582b36d233980ddda9818b05771075d;hp=d56b52607748051ca1c7cee1e6e326021918bc27;hpb=5e15fd0dadb195739e333d5d49acfdef1a42074b;p=16.git

diff --git a/src/lib/16_head.c b/src/lib/16_head.c
index d56b5260..008c6544 100644
--- a/src/lib/16_head.c
+++ b/src/lib/16_head.c
@@ -22,12 +22,6 @@
 
 #include "src/lib/16_head.h"
 
-/* local function */
-void wait(clock_t wait);
-void* AllocateLargestFreeBlock(size_t* Size);
-size_t GetFreeSize(void);
-long int filesize(FILE *fp);
-
 /* Function: Wait **********************************************************
 *
 *     Parameters:    wait - time in microseconds
@@ -117,6 +111,69 @@ size_t GetFreeSize(void)
   return total;
 }
 
+void far* AllocateLargestFarFreeBlock(size_t far* Size)
+{
+	size_t s0, s1;
+	void far* p;
+
+	s0 = ~(size_t)0 ^ (~(size_t)0 >> 1);
+	while (s0 && (p = _fmalloc(s0)) == NULL)
+		s0 >>= 1;
+
+	if (p)
+		_ffree(p);
+
+	s1 = s0 >> 1;
+	while (s1)
+	{
+		if ((p = _fmalloc(s0 + s1)) != NULL)
+		{
+			s0 += s1;
+			_ffree(p);
+		}
+	s1 >>= 1;
+	}
+	while (s0 && (p = _fmalloc(s0)) == NULL)
+		s0 ^= s0 & -s0;
+
+	*Size = s0;
+	return p;
+}
+
+size_t GetFarFreeSize(void)
+{
+	size_t total = 0;
+	void far* pFirst = NULL;
+	void far* pLast = NULL;
+	for(;;)
+	{
+		size_t largest;
+		void far* p = AllocateLargestFarFreeBlock(&largest);
+		if (largest < sizeof(void far*))
+		{
+			if (p != NULL)
+			_ffree(p);
+			break;
+		}
+		*(void far* far*)p = NULL;
+		total += largest;
+		if (pFirst == NULL)
+			pFirst = p;
+
+		if (pLast != NULL)
+			*(void far* far*)pLast = p;
+		pLast = p;
+	}
+
+	while (pFirst != NULL)
+	{
+		void far* p = *(void far* far*)pFirst;
+		_ffree(pFirst);
+		pFirst = p;
+	}
+	return total;
+}
+
 long int
 filesize(FILE *fp)
 {
@@ -163,3 +220,66 @@ US_CheckParm(char *parm,char **strings)
 	}
 	return(-1);
 }
+
+/*
+==========================
+=
+= Quit
+=
+==========================
+*/
+
+/*void Quit(char *error, ...)
+{
+	short exit_code=0;
+	unsigned	finscreen;
+
+	va_list ap;
+
+	va_start(ap,error);
+
+#ifndef CATALOG
+	if (!error)
+	{
+		CA_SetAllPurge ();
+		CA_CacheGrChunk (PIRACY);
+		finscreen = (unsigned)grsegs[PIRACY];
+	}
+#endif
+
+	//ShutdownId ();
+
+	if (error && *error)
+	{
+		vprintf(error,ap);
+		exit_code = 1;
+	}
+#ifndef CATALOG
+	else
+	if (!NoWait)
+	{
+		movedata (finscreen,0,0xb800,0,4000);
+		bioskey (0);
+	}
+#endif
+
+	va_end(ap);
+
+#ifndef CATALOG
+	if (!error)
+	{
+		_argc = 2;
+		_argv[1] = "LAST.SHL";
+		_argv[2] = "ENDSCN.SCN";
+		_argv[3] = NULL;
+		if (execv("LOADSCN.EXE", _argv) == -1)
+		{
+			clrscr();
+			puts("Couldn't find executable LOADSCN.EXE.\n");
+			exit(1);
+		}
+	}
+#endif
+
+	exit(exit_code);
+}*/