moo/stix/kernel/Stdio.st

## #class(#byte) Stdio(Object) from 'stdio'.

#class(#byte) Stdio(Object)
{
	#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
	{
		^(super new: 1) 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).
	}

}