/*

Directory Opus 4
Original GPL release version 4.12
Copyright 1993-2000 Jonathan Potter

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

All users of Directory Opus 4 (including versions distributed
under the GPL) are entitled to upgrade to the latest version of
Directory Opus version 5 at a reduced price. Please see
http://www.gpsoft.com.au for more information.

The release of Directory Opus 4 under the GPL in NO WAY affects
the existing commercial status of Directory Opus 5.

*/

#include "dopuslib.h"
#include "stringdata.h"
#include "ppdata.h"

typedef struct {
	ULONG ckID;
	ULONG ckSize;
} ChunkHeader;

__asm __saveds DoReadStringFile(register __a0 struct StringData *stringdata,
	register __a1 char *filename)
{
	int a,size,*ptr;
	StringHeader *header;
	String *string;
	char *cptr;
	struct DefaultString *defstr;
	struct Library *PPBase;
	int file,test[3];
	struct Process *myproc;
	APTR wsave;

	myproc=(struct Process *)FindTask(NULL);
	wsave=myproc->pr_WindowPtr;

	if (!stringdata) return(0);
	if (!stringdata->string_table) {
		if (!(stringdata->string_table=AllocMem(stringdata->string_count*4,MEMF_CLEAR)))
			return(0);
	}

	if (stringdata->string_buffer) {
		FreeMem(stringdata->string_buffer,stringdata->string_size);
		stringdata->string_buffer=NULL;
	}

	defstr=stringdata->default_table;

	for (a=0;a<stringdata->string_count;a++) {
		if (!defstr[a].string) break;
		stringdata->string_table[defstr[a].string_id]=defstr[a].string;
	}

	myproc->pr_WindowPtr=(APTR)-1;
	if (filename && (file=Open(filename,MODE_OLDFILE))) {
		Read(file,(char *)test,12);
		if (test[0]=='PX20' || test[0]=='PP11' || test[0]=='PP20') {
			Close(file);
			if ((PPBase=OpenLibrary("powerpacker.library",0))) {
				ppLoadData(filename,
					DECR_NONE,
					MEMF_CLEAR,
					&stringdata->string_buffer,
					&stringdata->string_size,
					NULL);
				CloseLibrary(PPBase);
			}
		}
		else {
			if (test[0]==ID_FORM && test[2]==ID_OSTR) {
				Seek(file,0,OFFSET_END);
				if ((stringdata->string_size=Seek(file,0,OFFSET_BEGINNING))>0 &&
					(stringdata->string_buffer=AllocMem(stringdata->string_size,0)))
					Read(file,stringdata->string_buffer,stringdata->string_size);
			}
			Close(file);
		}
	}
	myproc->pr_WindowPtr=wsave;

	if (stringdata->string_buffer) {
		ptr=(int *)stringdata->string_buffer;
		header=(StringHeader *)&stringdata->string_buffer[12];

		if (ptr[0]!=ID_FORM || ptr[2]!=ID_OSTR ||
			header->header_id!=ID_STHD ||
			header->version<stringdata->min_version) {
			FreeMem(stringdata->string_buffer,stringdata->string_size);
			stringdata->string_buffer=NULL;
		}
		else {
			cptr=(char *)header+sizeof(StringHeader);

			for (a=0;a<header->stringcount;a++) {
				string=(String *)cptr;
				if (string->chunk_id==ID_STRN) {
					if (string->string_id>=0 &&
						string->string_id<stringdata->string_count)
						stringdata->string_table[string->string_id]=cptr+sizeof(String);
				}
				size=string->chunk_size+sizeof(ChunkHeader);
				if (size%2) ++size;
				cptr+=size;
				if (cptr>=(stringdata->string_buffer+stringdata->string_size)) break;
			}
		}
	}
	return(1);
}

void __asm __saveds DoFreeStringFile(register __a0 struct StringData *stringdata)
{
	if (stringdata) {
		if (stringdata->string_buffer) {
			FreeMem(stringdata->string_buffer,stringdata->string_size);
			stringdata->string_buffer=NULL;
		}
		if (stringdata->string_table) {
			FreeMem(stringdata->string_table,stringdata->string_count*4);
			stringdata->string_table=NULL;
		}
	}
}