/* -*-C++-*-    $NetBSD: arch.cpp,v 1.15 2008/04/28 20:23:20 martin Exp $        */

/*-
 * Copyright (c) 2001, 2002, 2004 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by UCHIYAMA Yasushi.
 *
 * 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. 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 FOUNDATION 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 <hpcboot.h>
#include <hpcmenu.h>

#include <menu/window.h>
#include <menu/rootwindow.h>    // MessageBox

#include <console.h>
#include <memory.h>
#include <load.h>
#include <arch.h>
#include <framebuffer.h>

Architecture::Architecture(Console *&cons, MemoryManager *&mem)
        :_cons(cons), _mem(mem)
{

        _loader_addr = 0;
        _debug = FALSE;
        _dll = 0;
}

Architecture::~Architecture(void)
{

        if (_dll)
                FreeLibrary(_dll);
}

BOOL
Architecture::allocateMemory(size_t sz)
{
        //binary image.
        sz = _mem->estimateTaggedPageSize(sz);
        //pvec + BootArgs + 2 nd bootloader + bootloader stack.
        sz += _mem->getPageSize() * 4;
        sz = _mem->roundRegion(sz);
        return _mem->reservePage(sz);
}

paddr_t
Architecture::setupBootInfo(Loader &loader)
{
        HpcMenuInterface &menu = HpcMenuInterface::Instance();
        vaddr_t v;
        paddr_t p;

        _mem->getPage(v, p);
        _boot_arg = reinterpret_cast <struct BootArgs *>(v);

        _boot_arg->argc = menu.setup_kernel_args(v + sizeof(struct BootArgs),
            p + sizeof(struct BootArgs),
            _mem->getTaggedPageSize() - sizeof(struct BootArgs));
        _boot_arg->argv = ptokv(p + sizeof(struct BootArgs));
        menu.setup_bootinfo(_boot_arg->bi);
        _boot_arg->bi.bi_cnuse = _cons->getBootConsole();

        _boot_arg->bootinfo = ptokv(p + offsetof(struct BootArgs, bi));
        _boot_arg->kernel_entry = loader.jumpAddr();

        struct bootinfo &bi = _boot_arg->bi;
        DPRINTF((TEXT("framebuffer: %dx%d type=%d linebytes=%d addr=0x%08x\n"),
            bi.fb_width, bi.fb_height, bi.fb_type, bi.fb_line_bytes,
            bi.fb_addr));
        DPRINTF((TEXT("console = %d\n"), bi.bi_cnuse));

        return p;
}

void *
Architecture::_load_func(const TCHAR * name)
{

        if (_dll == NULL)
                _dll = LoadLibrary(TEXT("coredll.dll"));

        if (_dll == NULL) {
                HWND owner = HpcMenuInterface::Instance()._root->_window;
                MessageBox(owner,
                    TEXT("Can't load coredll.dll."), TEXT("WARNING"),
                    MB_ICONWARNING | MB_OK);
                UpdateWindow(owner);

                return NULL;
        }

        return reinterpret_cast <void *>(GetProcAddress(_dll, name));
}

void
Architecture::systemInfo(void)
{
        uint32_t val = 0;
        SYSTEM_INFO si;

        DPRINTF((TEXT("_WIN32_WCE = %d\n"), _WIN32_WCE));
        //
        // WCE200 ... GetVersionEx
        // WCE210 or later ... GetVersionExA or GetVersionExW
        // see winbase.h
        //
        BOOL (*getVersionEx)(LPOSVERSIONINFO);
        getVersionEx = reinterpret_cast <BOOL(*)(LPOSVERSIONINFO)>
            (_load_func(TEXT("GetVersionEx")));

        if (getVersionEx) {
                getVersionEx(&WinCEVersion);
                DPRINTF((TEXT("GetVersionEx\n")));
        } else {
                GetVersionEx(&WinCEVersion);
                DPRINTF((TEXT("GetVersionExW\n")));
        }

        DPRINTF((TEXT("Windows CE %d.%d\n"), WinCEVersion.dwMajorVersion,
            WinCEVersion.dwMinorVersion));

        GetSystemInfo(&si);
        DPRINTF((TEXT("GetSystemInfo:\n")));
#if _WIN32_WCE >= 200
        DPRINTF((TEXT("wProcessorArchitecture      0x%x\n"),
            si.wProcessorArchitecture));
        DPRINTF((TEXT("wProcessorLevel             0x%x\n"),
            si.wProcessorLevel));
        DPRINTF((TEXT("wProcessorRevision          0x%x\n"),
            si.wProcessorRevision));
#endif
        DPRINTF((TEXT("dwPageSize                  0x%x\n"),
            si.dwPageSize));
        DPRINTF((TEXT("dwAllocationGranularity     0x%08x\n"),
            si.dwAllocationGranularity));
        DPRINTF((TEXT("dwProcessorType             0x%x\n"),
            si.dwProcessorType));
        // inquire default setting.
        FrameBufferInfo fb(0, 0);
        DPRINTF((TEXT("Display: %dx%d %dbpp\n"), fb.width(), fb.height(),
            fb.bpp()));
}

BOOL(*Architecture::_load_LockPages(void))(LPVOID, DWORD, PDWORD, int)
{

        return reinterpret_cast <BOOL(*)(LPVOID, DWORD, PDWORD, int)>
            (_load_func(TEXT("LockPages")));
}

BOOL(*Architecture::_load_UnlockPages(void))(LPVOID, DWORD)
{

        return reinterpret_cast <BOOL(*)(LPVOID, DWORD)>
            (_load_func(TEXT("UnlockPages")));
}