/*
================================================================================
  FreeVMS (R)
  Copyright (C) 2010 Dr. BERTRAND Joël and all.

  This file is part of FreeVMS

  FreeVMS is free software; you can redistribute it and/or modify it
  under the terms of the CeCILL V2 License as published by the french
  CEA, CNRS and INRIA.
 
  FreeVMS 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 CeCILL V2 License
  for more details.
 
  You should have received a copy of the CeCILL License
  along with FreeVMS. If not, write to info@cecill.info.
================================================================================
*/

#include "freevms/freevms.h"

// Find the first application and try to execute if. This application shall
// bootstrap the rest of the system.

void
sys$pager(L4_KernelInterfacePage_t *kip, struct vms$meminfo *meminfo,
        vms$pointer pagesize, char *root_device)
{
    extern struct pd                freevms_pd;

    struct initial_obj              *obj;
    struct initial_obj              *init;
    struct pd                       *pd;
    struct thread                   *thread;

    struct memsection               *clist_section;
    struct memsection               *heap;
    struct memsection               *heap_phys;
    struct memsection               *stack;

    vms$pointer                     i;
    vms$pointer                     j;
    vms$pointer                     *init_vars;
    vms$pointer                     memsect;
    vms$pointer                     *user_stack;

    cap_t                           *clist;

    notice(SYSBOOT_I_SYSBOOT "spawning PAGER.SYS with executive privileges\n");

    // Find PAGER.SYS in module list
    for(obj = meminfo->objects, i = 0; i < meminfo->num_objects; i++, obj++)
    {
        if (strstr(obj->name, "pager.sys") != NULL)
        {
            break;
        }
    }

    PANIC(i == meminfo->num_objects,
            notice(PAGER_F_NOTFOUND "PAGER.SYS not found\n"));
    init = obj;

    // Start PAGER.SYS in a new address space
    pd = sys$pd_create(&freevms_pd, 1, pagesize);

    notice(SYSBOOT_I_SYSBOOT "creating PAGER.SYS UTCB pages\n");
    thread = sys$pd_create_thread(pd, -1);
    notice(SYSBOOT_I_SYSBOOT "reserving %ld bytes for %ld pager threads\n", 
            L4_Size(pd->utcb_area), L4_Size(pd->utcb_area) / L4_UtcbSize(kip)); 

    stack = sys$pd_create_memsection(pd, 2 * pagesize, 0, VMS$MEM_NORMAL,
            pagesize);

    heap = sys$pd_create_memsection(pd, 1 * 1024 * 1024, 0,
            VMS$MEM_NORMAL | VMS$MEM_USER, pagesize);
    PANIC(heap == NULL);

    // Back the first 64k
    heap_phys = sys$pd_create_memsection(pd, 0x10000, 0, VMS$MEM_NORMAL,
            pagesize);
    PANIC(heap_phys->base % 0x10000 != 0);
    sys$memsection_page_map(heap, L4_Fpage(heap_phys->base, 0x10000),
            L4_Fpage(heap->base, 0x10000));

    // Create a clist
    clist_section = sys$pd_create_memsection(pd, pagesize, 0, VMS$MEM_NORMAL,
            pagesize);
    // Check if we have run out of VM already we have trouble...
    PANIC(clist_section == NULL);
    clist = (cap_t *) clist_section->base;
    PANIC(clist == NULL);

    // Create capabilities and add them to clist
    for(obj = meminfo->objects, i = 0, j = 0;
            j < meminfo->num_objects; obj++, j++)
    {
        if (obj->flags & VMS$IOF_VIRT)
        {
            memsect = (vms$pointer) sys$objtable_lookup((void *) obj->base);
            PANIC(memsect == 0);

            clist[i++] = sec$create_capability(memsect, CAP$OBJ);
        }
    }

    clist[i++] = sec$create_capability((vms$pointer) pd, CAP$PD);
    clist[i++] = sec$create_capability((vms$pointer) thread, CAP$THREAD);
    clist[i++] = sec$create_capability((vms$pointer) stack, CAP$MEMSECTION);
    clist[i++] = sec$create_capability((vms$pointer) heap, CAP$MEMSECTION);
    // Reserve a slot for morecore to use
    clist[i++] = sec$create_capability((vms$pointer) heap, CAP$MEMSECTION);
    clist[i++] = sec$create_capability((vms$pointer) clist_section,
            CAP$MEMSECTION);

    init->entry = sys$elf_loader(thread, init->base, init->end, clist, &i);

    sys$pd_add_clist(pd, clist);

    // Setup the stack (16 bytes alignment)
    user_stack = (vms$pointer *) sys$page_round_down(stack->end + 1, 16);

    if (sys$back_mem(heap->base, heap->base + (3 * sizeof(vms$pointer)),
            pagesize) != 0)
    {
        PANIC(1, notice(MEM_F_BACKMEM "unable to back heap during startup\n"));
    }

    init_vars = (vms$pointer *) (heap->base);
    *(init_vars + 0) = L4_Myself().raw;             // Roottask
    *(init_vars + 1) = L4_Myself().raw;             // Parent
    *(init_vars + 2) = (vms$pointer) RUN_S_STOPPED  // Exit message
            "PAGER.SYS process stopped";
    *(init_vars + 3) = meminfo->swapper_base;
    *(init_vars + 4) = NULL;
    *(--user_stack) = 4;                            // argc
    *(--user_stack) = (vms$pointer) init_vars;      // arguments

    sys$thread_start(thread, init->entry, (vms$pointer) user_stack);

    return;
}