files.c

/*****************************************************************

Program:	files.c

			A GURU lemezújság fájl töltõ  modulja.
			
Szerzõ:		Marinov Gábor	<<Gaborca>>

Dátum:		1990.10.11.

Utolsó
módosítás:	1991.07.26. :PowerPacker bõvítés

******************************************************************/

#include <stdio.h>
#include <exec/types.h>
#include <exec/memory.h>
#include <libraries/dos.h>
#include <functions.h>
#include "ppdata.h"			/* RADon! */

#define T_FREE		NULL	/*  fel nem töltött Elem	*/

#define	T_EMPTY		1		/*  Üres sor				*/
#define	T_HEADLINE	2		/*  Nem kiválasztható cím	*/
#define	T_DOOR		3		/*  Kivalasztható cím		*/
#define T_ARTICLE	4		/*  Cikk 					*/
#define T_LIST		5		/*  Programlista			*/
#define	T_MUSIC		6		/*  Zenemodul				*/
#define T_PICTURE	7		/*  Kép						*/
#define T_PROGRAM	8		/*  Egyszerû futtatható prg.*/
#define	T_INTRO		9		/*  Életveszélyes intro 	*/

#define EMPTYPOINTER 0
#define ARROWPOINTER 1
#define CLOCKPOINTER 2

long		FileSize		= 0;	/* Ezt az két változót állította be */
char		*FileAddr	= NULL;     /* a PP_LoadData, PP_LoadModule  */


long ExamineFile( Name )	
char	*Name;
{
	struct	FileLock		*lock 		= NULL;
	struct	FileInfoBlock	*FileInfo	= NULL;
	long	filesize;

	if ( !( lock = Lock( Name , ACCESS_READ ) )){
		return(0L);
	}
	FileInfo = (struct FileInfoBlock *)AllocMem( sizeof(struct FileInfoBlock)  , MEMF_CLEAR );
	Examine( lock , FileInfo );
	UnLock( lock );
	filesize = FileInfo->fib_Size;

#ifdef TEST
printf(" FileName : %s\n",&FileInfo->fib_FileName );
printf(" FileSize : %ld\n",filesize );
#endif

	FreeMem( FileInfo , sizeof(struct FileInfoBlock) );
	return( filesize );
}

UnLoadFile( Addr , Length )
char *Addr;
long Length;
{
	FreeMem( Addr , Length );
}

BOOL LoadFile( Name , Type )
char *Name;
UBYTE Type;
{
	char	LoadName[ 60 ];
	ULONG	MemType;

	char	*LoadAddr	= NULL;
	long	WholeSize	= 0;

	ULONG	ppError;
	int oldpointer;

	oldpointer=SetMyPointer( CLOCKPOINTER );

/* A betöltendõ fájl könyvtárnevének hozzáragasztása  */
/* és Memória tipusának meghatározása  */

	switch( Type ){
		case T_ARTICLE:
					strcpy( LoadName , "CIKKEK:" );
					strcat( LoadName , Name );
					MemType = MEMF_CLEAR;
					break;

		case T_LIST:
					strcpy( LoadName , "LISTÁK:" );
					strcat( LoadName , Name );
					MemType = MEMF_CLEAR;
					break;

		case T_MUSIC:
					strcpy( LoadName , "ZENÉK:" );
					strcat( LoadName , Name );
					MemType = MEMF_CHIP|MEMF_CLEAR;
					break;

		default:
					strcpy( LoadName , Name );
					MemType = MEMF_CLEAR;
					break;
	}

	if( Type == T_MUSIC )
		ppError = ppLoadModule( LoadName, DECR_POINTER, MemType, &FileAddr, &FileSize, NULL );
	else
		ppError = ppLoadData( LoadName, DECR_POINTER, MemType, &FileAddr, &FileSize, NULL );

	if( ppError == PP_LOADOK ){
		SetMyPointer( oldpointer );
		return( TRUE );
	}
	else
		switch( ppError ){
			case PP_OPENERR:
				Warning("PP: Nem tudom megnyitni a fájlt !");
				break;

			case PP_READERR:
				Warning("PP: Hiba a fájl olvasása közben !");
				break;

			case PP_NOMEMORY:
				Warning("PP: Nincs elég memória a fájl betöltéséhez !");
				break;

			case PP_CRYPTED:
				Warning("PP: A fájl kódolt !");
				break;

			case PP_PASSERR:
				Warning("PP: Érvénytelen jelszó !");
				break;

			default:
				Warning("PP: Nem tudom betölteni a fájlt !");
				break;

		}
		FileAddr = NULL;
		FileSize = 0L;

		SetMyPointer( oldpointer );
		return( FALSE );
}