// Emacs style mode select   -*- C++ -*- 
//-----------------------------------------------------------------------------
//
// $Id:$
//
// Copyright (C) 1993-1996 by id Software, Inc.
//
// This source is available for distribution and/or modification
// only under the terms of the DOOM Source Code License as
// published by id Software. All rights reserved.
//
// The source is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// FITNESS FOR A PARTICULAR PURPOSE. See the DOOM Source Code License
// for more details.
//
//
// $Log:$
//
// DESCRIPTION:
//      Main loop menu stuff.
//      Default Config File.
//      PCX Screenshots.
//
//-----------------------------------------------------------------------------

static const char
rcsid[] = "$Id: m_misc.c,v 1.6 1997/02/03 22:45:10 b1 Exp $";

#include <stdlib.h>
#include <ctype.h>

//extern int access(char *file, int mode);

#include "doomdef.h"

#include "z_zone.h"

#include "m_swap.h"
#include "m_argv.h"

#include "w_wad.h"

#include "i_system.h"
#include "i_video.h"
#include "v_video.h"

#include "hu_stuff.h"

// State.
#include "doomstat.h"

// Data.
#include "dstrings.h"

#include "m_misc.h"

//
// M_DrawText
// Returns the final X coordinate
// HU_Init must have been called to init the font
//
extern patch_t*         hu_font[HU_FONTSIZE];

int
M_DrawText
( int           x,
  int           y,
  boolean       direct,
  char*         string )
{
    int         c;
    int         w;

    while (*string)
    {
        c = toupper(*string) - HU_FONTSTART;
        string++;
        if (c < 0 || c> HU_FONTSIZE)
        {
            x += 4;
            continue;
        }
                
        w = SHORT (hu_font[c]->width);
        if (x+w > SCREENWIDTH)
            break;
        if (direct)
            V_DrawPatchDirect(x, y, 0, hu_font[c]);
        else
            V_DrawPatch(x, y, 0, hu_font[c]);
        x+=w;
    }

    return x;
}




//
// M_WriteFile
//
#ifndef O_BINARY
#define O_BINARY 0
#endif

int write_once(const char *name, void *buffer, unsigned len);

boolean
M_WriteFile
( char const*   name,
  void*         source,
  int           length )
{
//    FILE       *handle;
    int         count;
        
//    handle = fopen ( name, "wb");

//    if (handle == NULL)
//        return false;

//    printf("writeFile %s, &s, %d \n\r", name, source, length);
    count = write_once(name, source, length);
    
//    printf("%d \n\r", count);
      
//    count = fwrite (source, 1, length, handle);
//    fclose (handle);
        
    if (count < length)
        return false;
                
    return true;
}


//
// M_ReadFile
//
int
M_ReadFile
( char const*   name,
  byte**        buffer )
{
    FILE *handle;
    int count, length;
    byte        *buf;

    handle=0;
    buf=0;
        
    handle = fopen (name, "rb");
    if (handle == NULL)
        I_Error ("Couldn't read file %s", name);
    fseek(handle, 0, SEEK_END);
    length = ftell(handle);
    rewind(handle);
    buf = Z_Malloc (length, PU_STATIC, NULL);
    count = fread (buf, 1, length, handle);
    fclose (handle);
        
    if (count < length)
        I_Error ("Couldn't read file %s", name);
                
    *buffer = buf;
    return length;
}


//
// DEFAULTS
//
int             usemouse;
int             usejoystick;

extern int      key_right;
extern int      key_left;
extern int      key_up;
extern int      key_down;

extern int      key_strafeleft;
extern int      key_straferight;

extern int      key_fire;
extern int      key_use;
extern int      key_strafe;
extern int      key_speed;

extern int      mousebfire;
extern int      mousebstrafe;
extern int      mousebforward;

extern int      joybfire;
extern int      joybstrafe;
extern int      joybuse;
extern int      joybspeed;

extern int      viewwidth;
extern int      viewheight;

extern int      mouseSensitivity;
extern int      showMessages;

extern int      detailLevel;

extern int      screenblocks;

extern int      showMessages;

// machine-independent sound params
extern  int     numChannels;


extern char*    chat_macros[];



typedef struct
{
    char*       name;
    int*        location;
    int         defaultvalue;
    int         scantranslate;          // PC scan code hack
    int         untranslated;           // lousy hack
} default_t;

default_t       defaults[] =
{
    {"mouse_sensitivity",&mouseSensitivity, 5},
    {"sfx_volume",&snd_SfxVolume, 8},
    {"music_volume",&snd_MusicVolume, 8},
    {"show_messages",&showMessages, 1},
    

    {"key_right",&key_right, KEY_RIGHTARROW},
    {"key_left",&key_left, KEY_LEFTARROW},
    {"key_up",&key_up, KEY_UPARROW},
    {"key_down",&key_down, KEY_DOWNARROW},

//    {"key_right",&key_right, KEY_D},
//    {"key_left",&key_left, KEY_A},
//    {"key_up",&key_up, KEY_W},
//    {"key_down",&key_down, KEY_S},

    {"key_strafeleft",&key_strafeleft, ','},
    {"key_straferight",&key_straferight, '.'},

    {"key_fire",&key_fire, KEY_RCTRL},
    {"key_use",&key_use, ' '},
    {"key_strafe",&key_strafe, KEY_RALT},
    {"key_speed",&key_speed, KEY_RSHIFT},

    {"use_mouse",&usemouse, 1},
    {"mouseb_fire",&mousebfire,0},
    {"mouseb_strafe",&mousebstrafe,1},
    {"mouseb_forward",&mousebforward,2},

    {"use_joystick",&usejoystick, 0},
    {"joyb_fire",&joybfire,0},
    {"joyb_strafe",&joybstrafe,1},
    {"joyb_use",&joybuse,3},
    {"joyb_speed",&joybspeed,2},

    {"screenblocks",&screenblocks, 9},
    {"detaillevel",&detailLevel, 0},

    {"snd_channels",&numChannels, 3},



    {"usegamma",&usegamma, 0},

#ifndef __BEOS__
    {"chatmacro0", (int *) &chat_macros[0], (int) HUSTR_CHATMACRO0 },
    {"chatmacro1", (int *) &chat_macros[1], (int) HUSTR_CHATMACRO1 },
    {"chatmacro2", (int *) &chat_macros[2], (int) HUSTR_CHATMACRO2 },
    {"chatmacro3", (int *) &chat_macros[3], (int) HUSTR_CHATMACRO3 },
    {"chatmacro4", (int *) &chat_macros[4], (int) HUSTR_CHATMACRO4 },
    {"chatmacro5", (int *) &chat_macros[5], (int) HUSTR_CHATMACRO5 },
    {"chatmacro6", (int *) &chat_macros[6], (int) HUSTR_CHATMACRO6 },
    {"chatmacro7", (int *) &chat_macros[7], (int) HUSTR_CHATMACRO7 },
    {"chatmacro8", (int *) &chat_macros[8], (int) HUSTR_CHATMACRO8 },
    {"chatmacro9", (int *) &chat_macros[9], (int) HUSTR_CHATMACRO9 }
#endif

};

int     numdefaults;
char*   defaultfile;


//
// M_SaveDefaults
//
void M_SaveDefaults (void)
{
    int         i;
    int         v;
    FILE*       f;
        
    f = fopen (defaultfile, "w");
    if (!f)
        return; // can't write the file, but don't complain
                
    for (i=0 ; i<numdefaults ; i++)
    {
        if (defaults[i].defaultvalue > -0xfff
            && defaults[i].defaultvalue < 0xfff)
        {
            v = *defaults[i].location;
            printf ("%s\t\t%i\n",defaults[i].name,v);
        } else {
            printf ("%s\t\t\"%s\"\n",defaults[i].name,
                     * (char **) (defaults[i].location));
        }
    }
        
    fclose (f);
}


//
// M_LoadDefaults
//
extern byte     scantokey[128];

size_t FileSize(FILE *handle);

void M_LoadDefaults (void)
{
    int         i;
    int         len;
    FILE*       f;
    char        def[80];
    char        strparm[100];
    char*       newstring;
    int         parm;
    boolean     isstring;
    char        *buf;
    char        *p;
    
    size_t val;
    // set everything to base values
    numdefaults = sizeof(defaults)/sizeof(defaults[0]);
    for (i=0 ; i<numdefaults ; i++)
        *defaults[i].location = defaults[i].defaultvalue;
    
    // check for a custom default file
    i = M_CheckParm ("-config");
    if (i && i<myargc-1)
    {
        defaultfile = myargv[i+1];
//      __libclog_printf ("     default file: %s\n",defaultfile);
    }
    else
        defaultfile = basedefault;

    // read the file in, overriding any set defaults
    f = fopen (defaultfile, "rb");
    if (f)
    {
      len=FileSize(f)+1;  
      buf = malloc(len);
      memset(buf,0,len);
      val = fread(buf,1,len,f);
      fclose (f);
      
      p = buf;
      
      while(*p)
      {
        isstring = false;

        if (sscanf (p, "%79s %[^\n]\n", def, strparm) == 2)
        {
          if (strparm[0] == '"')
          {
                    // get a string default
            isstring = true;
            len = strlen(strparm);
            newstring = (char *) malloc(len);
            strparm[len-1] = 0;
            strcpy(newstring, strparm+1);
          }
          else
           if (strparm[0] == '0' && strparm[1] == 'x')
             sscanf(strparm+2, "%x", &parm);
           else
             sscanf(strparm, "%i", &parm);
           for (i=0 ; i<numdefaults ; i++)
             if (!strcmp(def, defaults[i].name))
             {
               if (!isstring)
                 *defaults[i].location = parm;
               else
                 *defaults[i].location = (int) newstring;
               break;
             }
        };
        p=strchr(p, '\n')+1;
      };
      free(buf); 
    };
};




//
// SCREEN SHOTS
//


typedef struct
{
    char                manufacturer;
    char                version;
    char                encoding;
    char                bits_per_pixel;

    unsigned short      xmin;
    unsigned short      ymin;
    unsigned short      xmax;
    unsigned short      ymax;
    
    unsigned short      hres;
    unsigned short      vres;

    unsigned char       palette[48];
    
    char                reserved;
    char                color_planes;
    unsigned short      bytes_per_line;
    unsigned short      palette_type;
    
    char                filler[58];
    unsigned char       data;           // unbounded
} pcx_t;


//
// WritePCXfile
//
void
WritePCXfile
( char*         filename,
  byte*         data,
  int           width,
  int           height,
  byte*         palette )
{
    int         i;
    int         length;
    pcx_t*      pcx;
    byte*       pack;
        
    pcx = Z_Malloc (width*height*2+1000, PU_STATIC, NULL);

    pcx->manufacturer = 0x0a;           // PCX id
    pcx->version = 5;                   // 256 color
    pcx->encoding = 1;                  // uncompressed
    pcx->bits_per_pixel = 8;            // 256 color
    pcx->xmin = 0;
    pcx->ymin = 0;
    pcx->xmax = SHORT(width-1);
    pcx->ymax = SHORT(height-1);
    pcx->hres = SHORT(width);
    pcx->vres = SHORT(height);
    memset (pcx->palette,0,sizeof(pcx->palette));
    pcx->color_planes = 1;              // chunky image
    pcx->bytes_per_line = SHORT(width);
    pcx->palette_type = SHORT(2);       // not a grey scale
    memset (pcx->filler,0,sizeof(pcx->filler));


    // pack the image
    pack = &pcx->data;
        
    for (i=0 ; i<width*height ; i++)
    {
        if ( (*data & 0xc0) != 0xc0)
            *pack++ = *data++;
        else
        {
            *pack++ = 0xc1;
            *pack++ = *data++;
        }
    }
    
    // write the palette
    *pack++ = 0x0c;     // palette ID byte
    for (i=0 ; i<768 ; i++)
        *pack++ = *palette++;
    
    // write output file
    length = pack - (byte *)pcx;
    M_WriteFile (filename, pcx, length);

    Z_Free (pcx);
}


//
// M_ScreenShot
//
void M_ScreenShot (void)
{
    int         i;
    byte*       linear;
    char        lbmname[12];
    
    // munge planar buffer to linear
    linear = screens[2];
    I_ReadScreen (linear);
    
    // find a file name to save it to
    strcpy(lbmname,"DOOM00.pcx");
                
    for (i=0 ; i<=99 ; i++)
    {
        lbmname[4] = i/10 + '0';
        lbmname[5] = i%10 + '0';
        if (access(lbmname,0) == -1)
            break;      // file doesn't exist
    }
    if (i==100)
        I_Error ("M_ScreenShot: Couldn't create a PCX");
    
    // save the pcx file
    WritePCXfile (lbmname, linear,
                  SCREENWIDTH, SCREENHEIGHT,
                  W_CacheLumpName ("PLAYPAL",PU_CACHE));
        
    players[consoleplayer].message = "screen shot";
}