vcs_test.c

C++ 编写的EROS RTOS

/*
 * Copyright (C) 1998, 1999, Jonathan S. Shapiro.
 *
 * This file is part of the EROS Operating System.
 *
 * 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,
 * 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, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

#include <eros/target.h>
#include <eros/Invoke.h>
#include <eros/Key.h>
#include <eros/NodeKey.h>
#include <eros/ProcessKey.h>
#include <domain/ConstructorKey.h>
#include <domain/SpaceBankKey.h>
#include <domain/domdbg.h>

#define KR_ZSF     1
#define KR_SELF    2
#define KR_SCHED   3
#define KR_BANK    4
#define KR_OSTREAM 5
#define KR_NEWCON  5
#define KR_SCRATCH0 6
#define KR_SCRATCH1 7

#define dbg_init    0x1
#define dbg_test    0x2

/* Following should be an OR of some of the above */
#define dbg_flags   ( 0u )

#define TEST_ADDR  0x2000000

/* This is truly sleazy -- it turns into one of:

   (kprintf) (args... )
   (kdprintf) (args... )

   according to the test result */

#define KPRINTF(x) ( (dbg_##x & dbg_flags) ? kdprintf : kprintf )

/* MUST use zero stack pages so that seg root doesn't get
   smashed by bootstrap code. */
const uint32_t __rt_stack_pages = 0;
const uint32_t __rt_stack_pointer = 0x10000;

void
setup()
{
  uint32_t result;
  
  KPRINTF(init)(KR_OSTREAM, "About to buy new root seg:\n");

  spcbank_buy_nodes(KR_BANK, 1, KR_SCRATCH0, KR_VOID, KR_VOID);

  KPRINTF(init)(KR_OSTREAM, "Make that be BLSS=5:\n");

  node_make_node_key(KR_SCRATCH0, 5, KR_SCRATCH0);
  
  KPRINTF(init)(KR_OSTREAM, "Fetch current space:\n");

  process_copy(KR_SELF, ProcAddrSpace, KR_SCRATCH1);

  KPRINTF(init)(KR_OSTREAM, "Insert it in new node:\n");

  node_swap(KR_SCRATCH0, 0x0, KR_SCRATCH1, KR_VOID);

  KPRINTF(init)(KR_OSTREAM, "Build new zero segment:\n");

  result = constructor_request(KR_ZSF, KR_BANK, KR_SCHED, KR_VOID,
			 KR_SCRATCH1);

  KPRINTF(init)(KR_OSTREAM,
	   "result: 0x%08x. Insert result in new seg node:\n",
	   result); 

  node_swap(KR_SCRATCH0, 0x8, KR_SCRATCH1, KR_VOID);

  KPRINTF(init)(KR_OSTREAM, "Make new thing be my address space:\n");

  process_swap(KR_SELF, ProcAddrSpace, KR_SCRATCH0, KR_VOID);
}

void
main()
{
  uint32_t value;
  uint32_t addr = TEST_ADDR;
  
  setup();
  
  KPRINTF(test)(KR_OSTREAM, "About to read word from VCS:\n");

  value = *((uint32_t *) addr);
  
  KPRINTF(test)(KR_OSTREAM, "Result was 0x%x\n", value);

  KPRINTF(test)(KR_OSTREAM, "About to write word to VCS at 0x%08x:\n",
		addr); 

  *((uint32_t *) addr) = 1;
  
  KPRINTF(test)(KR_OSTREAM, "Reread word from VCS:\n");
  
  value = *((uint32_t *) TEST_ADDR);
  
  KPRINTF(test)(KR_OSTREAM, "New value is: 0x%08x\n", value);


  addr = TEST_ADDR + EROS_PAGE_SIZE;

  KPRINTF(test)(KR_OSTREAM, "About to write word to VCS at 0x%08x:\n",
		addr); 

  *((uint32_t *) addr) = 2;
  
  KPRINTF(test)(KR_OSTREAM, "Reread word from VCS:\n");

  value = *((uint32_t *) (TEST_ADDR + EROS_PAGE_SIZE));
  
  KPRINTF(test)(KR_OSTREAM, "New value is: 0x%08x\n", value);


  /* following tests traversal suppression */
  addr = TEST_ADDR + 2 * EROS_PAGE_SIZE;

  KPRINTF(test)(KR_OSTREAM, "About to write word to VCS at 0x%08x:\n",
		addr); 

  *((uint32_t *) addr) = 3;
  
  KPRINTF(test)(KR_OSTREAM, "Reread word from VCS:\n");

  value = *((uint32_t *) (TEST_ADDR + 2 * EROS_PAGE_SIZE));
  
  KPRINTF(test)(KR_OSTREAM, "New value is: 0x%08x\n", value);


  addr = TEST_ADDR + (EROS_PAGE_SIZE * EROS_NODE_SIZE);


#if 1 
  KPRINTF(test)(KR_OSTREAM, "About to write word to VCS at 0x%08x:\n",
		addr);

  *((uint32_t *) addr) = 4;
  
  KPRINTF(test)(KR_OSTREAM, "Reread word from VCS:\n");

  value = *((uint32_t *) addr);
  
  KPRINTF(test)(KR_OSTREAM, "New value is: 0x%08x\n", value);
#endif
  

  process_copy(KR_SELF, ProcAddrSpace, KR_SCRATCH1);
  node_copy(KR_SCRATCH1, 0x8, KR_SCRATCH1);

  KPRINTF(test)(KR_OSTREAM, "About to destroy VCS: 0x%08x\n", value);
  key_destroy(KR_SCRATCH1);
  KPRINTF(test)(KR_OSTREAM, "Test PASSED\n");
}