/*
 * games/_shared/ - shared routines for games
 *
 * standart.c - standard MS-Dos subroutines library
 * ____________________________________________________________
 *
 * Developed by Ondrej Jombik <nepto@platon.sk>
 * Copyright (c) 1997-2000 Condy software inc.
 * Copyright (c) 2001-2004 Platon SDG, http://platon.sk/
 * All rights reserved.
 *
 * See README file for more information about this software.
 * See COPYING file for license information.
 *
 * Download the latest version from
 * http://platon.sk/projects/games/
 */

/* $Platon: games/_shared/standart.c,v 1.4 2003/10/21 10:23:43 nepto Exp $ */

/* NOTE: incorrect "standart" word in filename is kept
   from historical reasons; correct word is "standard" */

#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <ctype.h>
#include <dos.h>
#include <alloc.h>
#include <time.h>
#include <stdarg.h>

#include <typedef.h>

#include "standart.h"

/* IMPLEMENTATION */

#include "stshared.c"

void wait(double sec)
{
	clock_t start = clock();
	clock_t total = max(1, sec * CLOCKS_PER_SEC);
	while (clock() - start < total)
		;
}

WORD wround(double a)
{
	return(((a-(WORD)a)<.5)?(WORD)a:((WORD)a)+1);
}

int iround(double a)
{
	return(((a-(int)a)<.5)?(int)a:((int)a)+1);
}

void printfxy(BYTE x,BYTE y,const char *format,...)
{
	va_list ag;
	gotoxy(x,y);
	va_start(ag,format);
	vprintf(format,ag);
	va_end(ag);
}

void*fileloadfrom(char*s,long from)
{
	FILE*f=fopen(s,"rb");
	void*p;long dlzka;
	if((f==NULL)||
			(fseek(f,0L,SEEK_END))||
			((dlzka=ftell(f))==-1L)||
			((dlzka-=from)<0)||
			(fseek(f,from,SEEK_SET)))return(NULL);
	if((p=malloc((size_t)dlzka))!=NULL)if(fread(p,(size_t)dlzka,1,f)!=1)return(NULL);
	if(fclose(f)==EOF)return(NULL);
	return(p);
}

void far*_fileload(char*s)
{
	FILE*f=fopen(s,"rb");
	void far*p;long dlzka;
	if(f==NULL)return(NULL);
	fseek(f,0L,SEEK_END);
	dlzka=ftell(f);
	rewind(f);
	if((p=farmalloc((size_t)dlzka))!=NULL)fread((void*)p,(size_t)dlzka,1,f);
	fclose(f);
	return(p);
}