/*      $NetBSD: preference.c,v 1.4 2000/08/29 15:10:20 takemura Exp $  */

/*-
 * Copyright (c) 1999 Shin Takemura.
 * All rights reserved.
 *
 * This software is part of the PocketBSD.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by the PocketBSD project
 *      and its contributors.
 * 4. Neither the name of the project nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 */
#include <pbsdboot.h>
#include <commctrl.h>
#include <res/resource.h>


struct preference_s pref;
TCHAR* where_pref_load_from = NULL;
static TCHAR filenamebuf[1024];


#define SETTING_IDX 1
#define FB_TYPE 2
#define FB_WIDTH 3
#define FB_HEIGHT 4
#define FB_LINEBYTES 5
#define BOOT_TIME 6
#define FB_ADDR 7
#define PLATID_CPU 8
#define PLATID_MACHINE 9
#define SETTING_NAME 10
#define KERNEL_NAME 11
#define OPTIONS 12
#define CHECK_LAST_CHANCE 13
#define LOAD_DEBUG_INFO 14
#define SERIAL_PORT 15
#define REVERSE_VIDEO 16
#define AUTOBOOT 17

#define NOFID 18


TCHAR *id_table[] = {
0,
TEXT("setting_idx"),
TEXT("fb_type"),
TEXT("fb_width"),
TEXT("fb_height"),
TEXT("fb_linebytes"),
TEXT("boot_time"),
TEXT("fb_addr"),
TEXT("platid_cpu"),
TEXT("platid_machine"),
TEXT("setting_name"),
TEXT("kernel_name"),
TEXT("options"),
TEXT("check_last_chance"),
TEXT("load_debug_info"),
TEXT("serial_port"),
TEXT("reverse_video"),
TEXT("autoboot"),
};



void
pref_init(struct preference_s* pref)
{
        memset(pref, 0, sizeof(*pref));
}


/*
 argument file is handle that was already opened .
 if read is faile , this function will "not" close this handle .
 return 0 if error . if end of file , return -1
*/
int read1byte(HANDLE file,char *c){
        DWORD n;
        if(!ReadFile(file,c,sizeof(char),&n,NULL)){
                msg_printf(MSG_ERROR, TEXT("pref_load()"),
                           TEXT("ReadFile(): error=%d"), GetLastError());
                debug_printf(TEXT("ReadFile(): error=%d\r"), GetLastError());
                
                return 0;
        }
        if (n != sizeof(char)) {
                if( n == 0){
                        return (-1);
                }
                msg_printf(MSG_ERROR, TEXT("pref_load()"),
                           TEXT("ReadFile(): read %d bytes"), n);
                debug_printf(TEXT("ReadFile(): read %d bytes\r"), n);
                
                return 0;
        }
        return 1;
}

/*
 argument file is handle that was already opened .
 if write is faile, this function will "not" close this handle .
 return 0 if error . write one line of string .
*/
int write1string(HANDLE file,char *string){
        DWORD n;
        if(!WriteFile(file,string,sizeof(char)*strlen(string),&n,NULL)){
            msg_printf(MSG_ERROR, TEXT("pref_write()"),
                           TEXT("WriteFile(): error=%d"), GetLastError());
                debug_printf(TEXT("WriteFile(): error=%d\n"), GetLastError());

                return 0;
        }
        if (n != sizeof(char)*strlen(string)) {
                msg_printf(MSG_ERROR, TEXT("pref_write()"),
                           TEXT("WriteFile(): write %d bytes"), n);
                debug_printf(TEXT("WriteFile(): write %d bytes\n"), n);

                return (0);
        }

        return 1;
}

void
pref_dump(struct preference_s* pref)
{
        debug_printf(TEXT("    kernel_name: %s\n"), pref->kernel_name);
        debug_printf(TEXT("        options: %s\n"), pref->options);
        debug_printf(TEXT("  user def name: %s\n"), pref->setting_name);
        debug_printf(TEXT("  setting index: %d\n"), pref->setting_idx);
        debug_printf(TEXT("           type: %d\n"), pref->fb_type);
        debug_printf(TEXT("          width: %d\n"), pref->fb_width);
        debug_printf(TEXT("         height: %d\n"), pref->fb_height);
        debug_printf(TEXT("     bytes/line: %d\n"), pref->fb_linebytes);
        debug_printf(TEXT("           addr: %d\n"), pref->fb_addr);
        debug_printf(TEXT("            cpu: %08lx\n"), pref->platid_cpu);
        debug_printf(TEXT("        machine: %08lx\n"), pref->platid_machine);
        debug_printf(TEXT("    last chance: %S\n"), pref->check_last_chance ?
                     "TRUE" : "FALSE");
        debug_printf(TEXT("load debug info: %S\n"), pref->load_debug_info ?
                     "TRUE" : "FALSE");
        debug_printf(TEXT("    serial port: %S\n"), pref->serial_port ?
                     "ON" : "OFF");
}



/* To Do . modify this function*/
int
pref_read(TCHAR* filename, struct preference_s* pref)
{
        HANDLE file;
        DWORD length;
        static struct preference_s buf;
        char tempbuf[1024];
        TCHAR unidata[1024];
        TCHAR identif[1024];
        char c;
        int i,flag,d;
        int result;/* count of loading pref item */
        
        
        file = CreateFile(
                filename,       /* file name */
                GENERIC_READ,   /* access (read-write) mode */
                FILE_SHARE_READ,/* share mode */
                NULL,           /* pointer to security attributes */
                OPEN_EXISTING,  /* how to create */
                FILE_ATTRIBUTE_NORMAL,  /* file attributes*/
                NULL            /* handle to file with attributes to */
                );
        
        if (file == INVALID_HANDLE_VALUE) {
                return (-1);
        }
        
        
        
        
        flag = 1;
        result = 0;
        while(flag){
                i = 0;
                d = read1byte(file,&c);
                if( d <=0){
                        if(d == -1){
                                flag = 0;
                                break;
                        }
                        else
                        {
                                CloseHandle(file);
                                return (-1);
                        }       
                }
        

                while(c != ':' && c != '\r' && c!= '\n'){
                        tempbuf[i] = c;
                        d = read1byte(file,&c);
                        if( d <=0){
                                if(d == -1){
                                        flag = 0;
                                        break;
                                }
                                else
                                {
                                        CloseHandle(file);
                                        return (-1);
                                }
                        }
                        i++;
                }
                if(c == ':'){
                        

                        tempbuf[i] = '\0';
                        length = MultiByteToWideChar(CP_ACP,0,tempbuf,-1,identif,0);
                        MultiByteToWideChar(CP_ACP,0,tempbuf,-1,identif,length);
                        
                        i = 0;
                        d = read1byte(file,&c);
                        flag = 1;
                        while(c != '\r' && c != '\n' && flag){/* get unidata */
                                if(d <= 0){
                                        if(d == -1){
                                                flag = 0;/* though needless ... */
                                                break;
                                        }
                                        else{
                                                CloseHandle(file);
                                                return -1;
                                        }
                                }
                                tempbuf[i] = c;
                                d = read1byte(file,&c);
                                i++;
                                
                        }
                        if(c == '\r'){/* skip \n */
                                read1byte(file,&c);
                        }
                        tempbuf[i] = '\0';
                        length = MultiByteToWideChar(CP_ACP,0,tempbuf,-1,unidata,0);
                        MultiByteToWideChar(CP_ACP,0,tempbuf,-1,unidata,length);
                        
                        for(i = 1; i < NOFID;i++){
                                if(wcscmp(identif,id_table[i])==0){
                                        break;
                                }
                        }
                        switch(i){
                        case SETTING_IDX:
                                d = _wtoi(unidata);
                                buf.setting_idx = d;
                                result++;
                                break;
                        case FB_TYPE:
                                d = _wtoi(unidata);
                                buf.fb_type = d;
                                result++;
                                break;
                        case FB_WIDTH:
                                d = _wtoi(unidata);
                                buf.fb_width = d;
                                result++;
                                break;
                        case FB_HEIGHT:
                                d = _wtoi(unidata);
                                buf.fb_height = d;
                                result++;
                                break;
                        case FB_LINEBYTES:
                                d = _wtoi(unidata);
                                buf.fb_linebytes = d;
                                result++;
                                break;
                        case BOOT_TIME:
                                d = _wtoi(unidata);
                                buf.boot_time = d;
                                result++;
                                break;
                        case FB_ADDR:
                                d = _wtoi(unidata);
                                buf.fb_addr = d;
                                result++;
                                break;
                        case PLATID_CPU:
                                d = _wtoi(unidata);
                                buf.platid_cpu = d;
                                result++;
                                break;
                        case PLATID_MACHINE:
                                d = _wtoi(unidata);
                                buf.platid_machine = d;
                                result++;
                                break;
                        case SETTING_NAME:
                                wcscpy(buf.setting_name,unidata);
                                result++;
                                break;
                        case KERNEL_NAME:
                                wcscpy(buf.kernel_name,unidata);
                                result++;
                                break;
                        case OPTIONS:
                                wcscpy(buf.options,unidata);
                                result++;
                                break;
                        case CHECK_LAST_CHANCE:
                                if(wcscmp(unidata,TEXT("t")) == 0){
                                        buf.check_last_chance = TRUE;
                                }
                                else{
                                        buf.check_last_chance = FALSE;
                                }
                                result++;
                                break;
                        case LOAD_DEBUG_INFO:
                                if(wcscmp(unidata,TEXT("t")) == 0){
                                        buf.load_debug_info = TRUE;
                                }
                                else{
                                        buf.load_debug_info = FALSE;
                                }
                                result++;
                                break;
                        case SERIAL_PORT:
                                if(wcscmp(unidata,TEXT("t")) == 0){
                                        buf.serial_port = TRUE;
                                }
                                else{
                                        buf.serial_port = FALSE;
                                }
                                result++;
                                break;
                        case REVERSE_VIDEO:
                                if(wcscmp(unidata,TEXT("t")) == 0){
                                        buf.reverse_video = TRUE;
                                }
                                else{
                                        buf.reverse_video = FALSE;
                                }
                                result++;
                                break;
                        case AUTOBOOT:
                                if(wcscmp(unidata,TEXT("t")) == 0){
                                        buf.autoboot = TRUE;
                                }
                                else{
                                        buf.autoboot = FALSE;
                                }
                                result++;
                                break;
                        default:
                                break;
                        }
                }
        }
        
        

        
        CloseHandle(file);

#if 0
        /* shortage of item is not error */
        if(result != NOFID -1){
                return -1;/* data is shortage */
        }
#endif
        
        *pref = buf;

        return (0);
}



int
pref_load(struct path_s load_path[], int pathlen)
{
        int i;

        where_pref_load_from = NULL;
        for (i = 0; i < pathlen; i++) {
                wsprintf(filenamebuf, TEXT("%s%s"),
                         load_path[i].name, PREFNAME);
                debug_printf(TEXT("pref_load: try to '%s'\n"), filenamebuf);

                if (pref_read(filenamebuf, &pref) == 0) {
                        debug_printf(TEXT("pref_load: succeded, '%s'.\n"),
                                     filenamebuf);
                        pref_dump(&pref);
                        where_pref_load_from = filenamebuf;
                        return (0);
                }
        }

        return (-1);
}


int
pref_save(struct path_s load_path[], int pathlen)
{
        int i;

        if (where_pref_load_from) {
                if (pref_write(where_pref_load_from, &pref) != 0) {
                        msg_printf(MSG_ERROR, TEXT("Error()"),
                            TEXT("Can't write %s"), where_pref_load_from);
                        return -1;
                }
                return 0;
        }
        for (i = 0; i < pathlen; i++) {
                if (!(load_path[i].flags & PATH_SAVE)) {
                        continue;
                }
                wsprintf(filenamebuf, TEXT("%s%s"),
                    load_path[i].name, PREFNAME);
                debug_printf(TEXT("pref_save: try to '%s'\n"), filenamebuf);
                if (pref_write(filenamebuf, &pref) == 0) {
                        debug_printf(TEXT("pref_write: succeded, '%s'.\n"),
                            filenamebuf);
                        return (0);
                }
        }

        msg_printf(MSG_ERROR, TEXT("Error()"),
            TEXT("Can't write %s"), PREFNAME);

        return (-1);
}


int
pref_write(TCHAR* filename, struct preference_s* buf)
{
        HANDLE file;
        char tempbuf[1024];
        TCHAR unibuf[1024];
        DWORD length;


        debug_printf(TEXT("pref_write('%s').\n"), filename);
        pref_dump(&pref);

        file = CreateFile(
                filename,       /* file name */
                GENERIC_WRITE,  /* access (read-write) mode */
                FILE_SHARE_WRITE,/* share mode */
                NULL,           /* pointer to security attributes */
                CREATE_ALWAYS,  /* how to create */
                FILE_ATTRIBUTE_NORMAL,  /* file attributes*/
                NULL            /* handle to file with attributes to */
                );

        if (file == INVALID_HANDLE_VALUE) {
                debug_printf(TEXT("CreateFile(): error=%d\n"), GetLastError());
                return (-1);
        }


        wsprintf(unibuf,TEXT("setting_idx:%d\r\n"),buf->setting_idx);
        debug_printf(TEXT("setting_idx,tempbuf=%s"),unibuf);
                length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }


        wsprintf(unibuf,TEXT("fb_type:%d\r\n"),buf->fb_type);
        debug_printf(TEXT("fb_type,tempbuf=%s,"),unibuf);
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }


        wsprintf(unibuf,TEXT("fb_width:%d\r\n"),buf->fb_width);
        debug_printf(TEXT("fb_width,tempbuf=%s"),unibuf);
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }



        wsprintf(unibuf,TEXT("fb_height:%d\r\n"),buf->fb_height);
        debug_printf(TEXT("fb_height,tempbuf=%s"),unibuf);
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }       



        wsprintf(unibuf,TEXT("fb_linebytes:%d\r\n"),buf->fb_linebytes);
        debug_printf(TEXT("fb_linebytes,tempbuf=%s"),unibuf);
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }       


        wsprintf(unibuf,TEXT("boot_time:%d\r\n"),buf->boot_time);
        debug_printf(TEXT("boot_time,tempbuf=%s\n"),unibuf);
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }       

        wsprintf(unibuf,TEXT("fb_addr:%d\r\n"),buf->fb_addr);
        debug_printf(TEXT("fb_addr,tempbuf=%s"),unibuf);
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }       



    wsprintf(unibuf,TEXT("platid_cpu:%d\r\n"),buf->platid_cpu);
        debug_printf(TEXT("platid_cpu,tempbuf=%s"),unibuf);
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }       


        wsprintf(unibuf,TEXT("platid_machine:%d\r\n"),buf->platid_machine);
        debug_printf(TEXT("platid_machine,tempbuf=%s"),unibuf);
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }       



        wsprintf(unibuf,TEXT("setting_name:%s\r\n"),buf->setting_name);
        debug_printf(TEXT("setting_name,unibuf=%s,wcslen=%d"),unibuf,
                wcslen(unibuf));
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);

        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }



        wsprintf(unibuf,TEXT("kernel_name:%s\r\n"),buf->kernel_name);
        debug_printf(TEXT("kernel_name,unibuf=%s,wcslen=%d"),unibuf,
                wcslen(unibuf));
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }



        wsprintf(unibuf,TEXT("options:%s\r\n"),buf->options);
        debug_printf(TEXT("options,unibuf=%s,wcslen=%d"),unibuf,
                wcslen(unibuf));
        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }


        if(buf->check_last_chance){
                wsprintf(unibuf,TEXT("check_last_chance:t\r\n"));
        }
        else{
        wsprintf(unibuf,TEXT("check_last_chance:n\r\n"));
        }


        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }




        if(buf->load_debug_info){
                wsprintf(unibuf,TEXT("load_debug_info:t\r\n"));
        }
        else{
        wsprintf(unibuf,TEXT("load_debug_info:n\r\n"));
        }


        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);


        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }



        if(buf->serial_port){
                wsprintf(unibuf,TEXT("serial_port:t\r\n"));
        }
        else{
        wsprintf(unibuf,TEXT("serial_port:n\r\n"));
        }

        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);

        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }       



        if(buf->reverse_video){
                wsprintf(unibuf,TEXT("reverse_video:t\r\n"));
        }
        else{
        wsprintf(unibuf,TEXT("reverse_video:n\r\n"));
        }

length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }

        if(buf->autoboot){
                wsprintf(unibuf,TEXT("autoboot:t\r\n"));
        }
        else{
                wsprintf(unibuf,TEXT("autoboot:n\r\n"));
        }

        length = WideCharToMultiByte(CP_ACP,0,unibuf,-1,NULL,0,NULL,NULL);
        WideCharToMultiByte(CP_ACP,0,unibuf,-1,tempbuf,length,NULL,NULL);
        if(!write1string(file,tempbuf)){
                CloseHandle(file);
                return (-1);
        }

        CloseHandle(file);
        return (0);
}