/*  *   Creation Date: <2004/08/28 18:38:22 greg> *   Time-stamp: <2004/08/28 18:38:22 greg> *    *	<methods.c> *	 *	Misc device node methods * *   Copyright (C) 2004 Greg Watson *    *   Based on MOL specific code which is *    *   Copyright (C) 2003, 2004 Samuel Rydh (samuel@ibrium.se) *    *   This program is free software; you can redistribute it and/or *   modify it under the terms of the GNU General Public License *   version 2 *    */#include "openbios/config.h"#include "openbios/bindings.h"#include "libc/string.h"#include "briq/briq.h"#include "ofmem.h"/************************************************************************//*	RTAS (run-time abstraction services)				*//************************************************************************/#ifdef USE_RTASDECLARE_NODE( rtas, INSTALL_OPEN, 0, "+/rtas" );/* ( physbase -- rtas_callback ) */static voidrtas_instantiate( void ){	int physbase = POP();	int s=0x1000, size = (int)of_rtas_end - (int)of_rtas_start;	ulong virt;		while( s < size )		s += 0x1000;	virt = ofmem_claim_virt( 0, s, 0x1000 );	ofmem_map( physbase, virt, s, -1 );	memcpy( (char*)virt, of_rtas_start, size );	printk("RTAS instantiated at %08x\n", physbase );	flush_icache_range( (char*)virt, (char*)virt + size );	PUSH( physbase );}NODE_METHODS( rtas ) = {	{ "instantiate",	rtas_instantiate },	{ "instantiate-rtas",	rtas_instantiate },};#endif/************************************************************************//*	stdout								*//************************************************************************/DECLARE_NODE( vfd_stdout, INSTALL_OPEN, 0, "Tdisplay" );/* ( addr len -- actual ) */static voidstdout_write( void ){	int len = POP();	char *addr = (char*)POP();	char *s = malloc( len + 1 );	strncpy_nopad( s, addr, len );	s[len]=0;		printk( "%s", s );	//vfd_draw_str( s );	free( s );	PUSH( len );}NODE_METHODS( vfd_stdout ) = {	{ "write",	stdout_write	},};/************************************************************************//*	tty								*//************************************************************************/DECLARE_NODE( tty, INSTALL_OPEN, 0, "/packages/terminal-emulator" );/* ( addr len -- actual ) */static voidtty_read( void ){	int ch, len = POP();	char *p = (char*)POP();	int ret=0;	if( len > 0 ) {		ret = 1;		ch = getchar();		if( ch >= 0 ) {			*p = ch;		} else {			ret = 0;		}	}	PUSH( ret );}/* ( addr len -- actual ) */static voidtty_write( void ){	int i, len = POP();	char *p = (char*)POP();	for( i=0; i<len; i++ )		putchar( *p++ );	RET( len );}NODE_METHODS( tty ) = {	{ "read",	tty_read	},	{ "write",	tty_write	},};/************************************************************************//*	client interface 'quiesce'					*//************************************************************************/DECLARE_NODE( ciface, 0, 0, "/packages/client-iface" );/* ( -- ) */static voidciface_quiesce( ulong args[], ulong ret[] ) {#if 0	ulong msr;	/* This seems to be the correct thing to do - but I'm not sure */	asm volatile("mfmsr %0" : "=r" (msr) : );	msr &= ~(MSR_IR | MSR_DR);	asm volatile("mtmsr %0" :: "r" (msr) );#endif	printk("=============================================================\n\n");}/* ( -- ms ) */static voidciface_milliseconds( ulong args[], ulong ret[] ) {	extern unsigned long get_timer_freq();	static ulong mticks=0, usecs=0;	ulong t;        	asm volatile("mftb %0" : "=r" (t) : );	if( mticks )		usecs += get_timer_freq() / 1000000 * ( t-mticks );	mticks = t;	PUSH( usecs/1000 );}NODE_METHODS( ciface ) = {	{ "quiesce",		ciface_quiesce		},	{ "milliseconds",	ciface_milliseconds	},};/************************************************************************//*	MMU/memory methods						*//************************************************************************/DECLARE_NODE( memory, INSTALL_OPEN, 0, "/memory" );DECLARE_NODE( mmu, INSTALL_OPEN, 0, "/cpu@0" );DECLARE_NODE( mmu_ciface, 0, 0, "/packages/client-iface" );/* ( phys size align --- base ) */static voidmem_claim( void ){	int align = POP();	int size = POP();	int phys = POP();	int ret = ofmem_claim_phys( phys, size, align );		if( ret == -1 ) {		printk("MEM: claim failure\n");		throw( -13 );		return;	}	PUSH( ret );}/* ( phys size --- ) */static voidmem_release( void ){	POP(); POP();}/* ( phys size align --- base ) */static voidmmu_claim( void ){	int align = POP();	int size = POP();	int phys = POP();	int ret = ofmem_claim_virt( phys, size, align );	if( ret == -1 ) {		printk("MMU: CLAIM failure\n");		throw( -13 );		return;	}	PUSH( ret );}/* ( phys size --- ) */static voidmmu_release( void ){	POP(); POP();}/* ( phys virt size mode -- [ret???] ) */static void mmu_map( void ){	int mode = POP();	int size = POP();	int virt = POP();	int phys = POP();	int ret;		/* printk("mmu_map: %x %x %x %x\n", phys, virt, size, mode ); */	ret = ofmem_map( phys, virt, size, mode );	if( ret ) {		printk("MMU: map failure\n");		throw( -13 );		return;	}}/* ( virt size -- ) */static voidmmu_unmap( void ){	POP(); POP();}/* ( virt -- false | phys mode true ) */static voidmmu_translate( void ){	ulong mode;	int virt = POP();	int phys = ofmem_translate( virt, &mode );	if( phys == -1 ) {		PUSH( 0 );	} else {		PUSH( phys );		PUSH( (int)mode );		PUSH( -1 );	}}/* ( virt size align -- baseaddr|-1 ) */static voidciface_claim( void ){	int align = POP();	int size = POP();	int virt = POP();	int ret = ofmem_claim( virt, size, align );	/* printk("ciface_claim: %08x %08x %x\n", virt, size, align ); */	PUSH( ret );}/* ( virt size -- ) */static voidciface_release( void ){	POP();	POP();}NODE_METHODS( memory ) = {	{ "claim",		mem_claim		},	{ "release",		mem_release		},};NODE_METHODS( mmu ) = {	{ "claim",		mmu_claim		},	{ "release",		mmu_release		},	{ "map",		mmu_map			},	{ "unmap",		mmu_unmap		},	{ "translate",		mmu_translate		},};NODE_METHODS( mmu_ciface ) = {	{ "claim",		ciface_claim		},	{ "release",		ciface_release		},};/************************************************************************//*	init								*//************************************************************************/voidnode_methods_init( void ){#ifdef USE_RTAS	REGISTER_NODE( rtas );#endif	REGISTER_NODE( vfd_stdout );	REGISTER_NODE( ciface );	REGISTER_NODE( memory );	REGISTER_NODE( mmu );	REGISTER_NODE( mmu_ciface );	REGISTER_NODE( tty );}