mysticbbs/mystic/makelang.pas

// ====================================================================
// Mystic BBS Software               Copyright 1997-2012 By James Coyle
// ====================================================================
//
// This file is part of Mystic BBS.
//
// Mystic BBS 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 3 of the License, or
// (at your option) any later version.
//
// Mystic BBS 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 Mystic BBS.  If not, see <http://www.gnu.org/licenses/>.
//
// ====================================================================

Program MakeLang;

{$I M_OPS.PAS}

Uses
	DOS,
  m_Strings;

{$I RECORDS.PAS}

Var
	ConfigFile : File of RecConfig;
	PromptFile : File of PromptRec;
	Config		 : RecConfig;
	Prompt		 : PromptRec;
	Done			 : Array[0..mysMaxLanguageStr] of Boolean;
	tFile 		 : Text;
	A 				 : Integer;
	Temp			 : String;
	FName 		 : NameStr;
	FExt			 : ExtStr;
	FDir			 : DirStr;

Begin
	WriteLn;
	WriteLn ('MAKELANG (' + OSID + ') - Mystic Language Compiler v', mysVersion);
	WriteLn ('Copyright (C) 1997-2012 By James Coyle.  All Rights Reserved.');
	WriteLn;

	Assign (ConfigFile, 'mystic.dat');
	{$I-}Reset (ConfigFile);{$I+}
	If IoResult <> 0 Then Begin
		WriteLn ('ERROR: MYSTIC.DAT not found.  Run from main BBS directory.');
		Halt(1);
	End;
	Read (ConfigFile, Config);
	Close (ConfigFile);

  If Config.DataChanged <> mysDataChanged Then Begin
    WriteLn('ERROR: Data files are not current and must be upgraded.');
    Halt(1);
  End;


	If ParamCount <> 1 Then Begin
		WriteLn ('Usage: MAKELANG [language_file]');
		Halt(1);
	End;

	FSplit (ParamStr(1), FDir, FName, FExt);

	Assign (tFile, FName + FExt);
	{$I-} Reset (tFile); {$I+}
	If IoResult <> 0 Then Begin
		WriteLn ('ERROR: Language file (' + FName + FExt + ') not found.');
		Halt(1);
	End;

	Write ('Compiling language file: ');

	Assign (PromptFile, Config.DataPath + FName + '.lng');
	{$I-} ReWrite (PromptFile); {$I+}

	If IoResult <> 0 Then Begin
		WriteLn;
		WriteLn;
		WriteLn (^G'ERROR: Cannot run while Mystic is loaded.');
		Halt(1);
	End;

	Prompt := '';
	For A := 0 to mysMaxLanguageStr Do Begin
		Done[A] := False;
		Write (PromptFile, Prompt);
	End;
	Reset (PromptFile);

	While Not Eof(tFile) Do Begin
		ReadLn (tFile, Temp);

		If Copy(Temp, 1, 3) = '000'      Then A := 0 Else
		If strS2I(Copy(Temp, 1, 3)) > 0 Then A := strS2I(Copy(Temp, 1, 3)) Else
		A := -1;

		If A <> -1 Then Begin
			If A > mysMaxLanguageStr Then Begin
				WriteLn;
				WriteLn;
				WriteLn (^G'ERROR: String #', A, ' was not expected.  Language file not created.');
				Close (PromptFile);
				Erase (PromptFile);
				Halt(1);
			End;

			Done[A] := True;
			Seek (PromptFile, A);
			Prompt := Copy(Temp, 5, Length(Temp));
			Write (PromptFile, Prompt);
		End;
	End;

	Close (tFile);
	Close (PromptFile);

	WriteLn ('Done.');

	For A := 0 to mysMaxLanguageStr Do Begin
		If Not Done[A] Then Begin
			WriteLn;
			WriteLn (^G'ERROR: String #', A, ' was not found.  Language file not created.');
			Erase (PromptFile);
		End;
	End;
End.