moo/stix/kernel/Stdio.st

#class(#byte) Stdio(Object) from 'stdio'
{
	#method(#class) _newInstSize
	{
		<primitive: #stdio_newInstSize>
	}

	#method(#class) new: size
	{
		##self prohibited
		##raise exception. prohibited...
		^(super new: (self _newInstSize))
	}

	#method(#class) new
	{
		##self prohibited
		##raise exception. prohibited...
		^(super new: (self _newInstSize))
	}

	#method(#class) open: name for: mode
	{
		^(self new) open: name for: mode
	}

##	#method open: name for: mode
##	{
##		<primitive: #stdio_open>
##	}

##	#method close
##	{
##		<primitive: #stdio_close>
##	}
}

#extend Stdio
{
	#method xxxx
	{
		self basicSize dump.
	}
}

#class(#byte) Stdio2(Stdio)
{
	#method(#class) new
	{
		##self prohibited
		##raise exception. prohibited...
		^(super new).
	}

}