/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the COPYRIGHT
 * file distributed with this source distribution.
 *
 * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 */

/*
 * This code is based on the original source code of Lord Avalot d'Argent version 1.3.
 * Copyright (c) 1994-1995 Mike, Mark and Thomas Thurman.
 */

/*
  ÛßÜ ÛßÜ ÜßßÜ  ßÛß Ûßß  Üß ßÛß      ÜßÛßÜ  ßÛß ÛÜ  Û ÜÛßß  ßÛß ÛßÜ Ûßß Û
  Ûß  ÛÛ  Û  Û Ü Û  Ûßß ßÜ   Û      Û  Û  Û  Û  Û ÛÜÛ  ßßßÜ  Û  ÛÛ  Ûßß Û
  ß   ß ß  ßß   ßß  ßßß   ß  ß      ß  ß  ß ßßß ß  ßß  ßßß   ß  ß ß ßßß ßßß

                 INCLINE          The command-line parser. */

#define __incline_implementation__


#include "oldincln.h"

#include "gyro.h"
#include "logger.h"

namespace Avalanche {

const integer bug_twonames = 255;
const integer bug_pandl = 254;
const integer bug_weirdswitch = 253;
const integer bug_invalidini = 252;
const integer bug_notyesorno = 251;

byte fv;
char t;
string bugline;
boolean usingp,usingl;
boolean zoomy,numlockhold;

boolean filename_specified;

string inihead,initail;  /* For reading the .INI file. */


void linebug(byte which)
{;
 output << "AVALOT : ";
 switch (which) {
  case bug_twonames : output << "You may only specify ONE filename." << NL; break;
  case bug_pandl : output << "/p and /l cannot be used together." << NL; break;
  case bug_weirdswitch : output << "Unknown switch (\"" << bugline << 
                       "\"). Type AVALOT /? for a list of switches." << NL;
                       break;
  case bug_invalidini: output << "Invalid line in AVALOT.INI (\"" << bugline << "\")" << NL; break;
  case bug_notyesorno: output << "Error in AVALOT.INI: \"" << inihead << "\" must be \"yes\" or \"no.\"" << NL; break;
 }
 exit(which);
}

void syntax()
{;
 assign(output,""); rewrite(output);
 output << NL;
 output << string("Lord Avalot d'Argent\n\n(c) ")+copyright+" Mark, Mike and Thomas Thurman." << NL;
 output << string("~~~~~~~~~~~~~~~~~~~~~\n\n")+vernum << NL;
 output << NL;
 output << "Syntax:" << NL;
 output << "\n/?\ndisplays this screen," << NL;
 output << "\n/O\noverrides EGA check," << NL;
 output << "\n/L<f>\nlogs progress to <f>, default AVVY.LOG," << NL;
 output << "\n/P<x>\nlogs with Epson codes to <x>, default PRN," << NL;
 output << "\n/Q\ncancels sound effects," << NL;
 output << "\n/S\ndisables Soundblaster," << NL;
 output << "\n/Z\ngoes straight into the game." << NL;
 output << NL;
 output << "\n\n\n\n\n\n\n... Have fun!" << NL;
 exit(177);
}

void upstr(string& x)
{
    byte fv;
;
 for( fv=1; fv <= length(x); fv ++) x[fv]=upcase(x[fv]);
}

boolean yesno()
{boolean yesno_result;
;
 if (initail=="YES")  yesno_result=true; else
  if (initail=="NO")  yesno_result=false; else
   linebug(bug_notyesorno);
return yesno_result;
}

void ini_parse()
{;
 upstr(inihead);
 upstr(initail);

 if (inihead=="QUIET")  soundfx=! yesno(); else
  if (inihead=="ZOOMYSTART")  zoomy=yesno(); else
   if (inihead=="NUMLOCKHOLD")  numlockhold=yesno(); else
    if (inihead=="LOADFIRST")  filetoload=initail; else
     if (inihead=="OVERRIDEEGACHECK")  cl_override=yesno(); else
      if (inihead=="KEYBOARDCLICK")  keyboardclick=yesno();
}

void strip_ini()
{
    byte fv;
;
 if (inihead=="")  return;

 /* Firstly, delete any comments. */
 fv=pos(";",inihead);
 if (fv>0)  Delete(inihead,fv,255);

 /* Lose the whitespace... */

 while (inihead[length(inihead)]==' ')  inihead[0] -= 1;
 while ((inihead!="") && (inihead[1]==' '))  Delete(inihead,1,1);

 /* It's possible that now we'll end up with a blank line. */

 if ((inihead=="") || (inihead[1]=='['))  return;

 fv=pos("=",inihead);

 if (fv==0) 
 {;     /* No "="! Weird! */
  bugline=inihead;
  linebug(bug_invalidini);
 }

 initail=copy(inihead,fv+1,255);
 inihead[0]=chr(fv-1);
}

void load_ini()
{
    text ini;
;
 assign(ini,"AVALOT.INI");
 reset(ini);

 while (! eof(ini)) 
 {;
  ini >> inihead >> NL;
  strip_ini();
  if (inihead!="")  ini_parse();
 }

 close(ini);
}

void parse(string x);
static string arg;

static string getarg(string otherwis)
{string getarg_result;
;
 if (arg=="")  getarg_result=otherwis; else getarg_result="";
return getarg_result;
}

void parse(string x)

{;
 switch (x[1]) {
  case '/':case '-': {;
            arg=copy(x,3,255);
            switch (upcase(x[2])) {
             case '?': syntax(); break;
             case 'O': cl_override=true; break;
             case 'L': if (! usingp) 
                  {;
                   log_setup(getarg("avvy.log"),false);
                   usingl=true;
                  } else {; close(logfile); linebug(bug_pandl); }
                  break;
             case 'P': if (! usingl) 
                  {;
                   log_setup(getarg("prn"),true);
                   usingp=true;
                  } else {; close(logfile); linebug(bug_pandl); }
                  break;
             case 'Q': soundfx=false; break;
             case 'Z': zoomy=true; break;
             case 'K': keyboardclick=true; break;
             case 'D': demo=true; break;
             default: {;
              bugline=x;
              linebug(bug_weirdswitch);
             }
            }
           }
           break;
  case '*': {;
        inihead=copy(x,2,255);
        strip_ini();
        if (inihead!="")  ini_parse();
       }
       break;
  default: {; /* filename */
        if (filename_specified) 
         linebug(bug_twonames);
        else
         filetoload=x;
        filename_specified=true;
       }
 }
}

void not_through_bootstrap()
{
 output << "Avalot must be loaded through the bootstrap." << NL;
 exit(0);
}

void get_storage_addr()
{
    integer e;

 val(paramstr(2),storage_seg,e); if (e!=0)  not_through_bootstrap();
 val(paramstr(3),storage_ofs,e); if (e!=0)  not_through_bootstrap();
 skellern=storage_ofs+1;
}

class unit_incline_initialize {
  public: unit_incline_initialize();
};
static unit_incline_initialize incline_constructor;

unit_incline_initialize::unit_incline_initialize() {;
 filetoload="";
 usingl=false;
 usingp=false;
 logging=false;
 cl_override=false;
 soundfx=true;
 zoomy=false;
 numlockhold=false;
 filename_specified=false;
 keyboardclick=false;

 load_ini();

 if ((paramcount<3) ||
  ((paramstr(1)!="Go") && (paramstr(1)!="et")))  not_through_bootstrap();

 reloaded=paramstr(1)=="et";

 get_storage_addr();

 for( fv=4; fv <= paramcount; fv ++)
  parse(paramstr(fv));
}

} // End of namespace Avalanche.