removed the containing subdir
This commit is contained in:
73
kernel/Stdio.moo
Normal file
73
kernel/Stdio.moo
Normal file
@ -0,0 +1,73 @@
|
||||
|
||||
class Stdio(Object) from 'stdio'
|
||||
{
|
||||
var(#class) in, out, err.
|
||||
|
||||
method(#primitive) open(name, mode).
|
||||
method(#primitive) close.
|
||||
method(#primitive) gets.
|
||||
method(#primitive,#variadic) puts().
|
||||
method(#primitive,#variadic) putc().
|
||||
|
||||
method(#class) open: name for: mode
|
||||
{
|
||||
^(self new) open(name, mode)
|
||||
}
|
||||
|
||||
/* ---------------------
|
||||
method(#class) stdin
|
||||
{
|
||||
self.in isNil ifTrue: [ self.in := ^(super new) open: 0 for: 'r' ].
|
||||
^self.in.
|
||||
}
|
||||
|
||||
method(#class) stdout
|
||||
{
|
||||
self.out isNil ifTrue: [ self.out := ^(super new) open: 1 for: 'w' ].
|
||||
^self.out.
|
||||
}
|
||||
|
||||
method(#class) stderr
|
||||
{
|
||||
self.err isNil ifTrue: [ self.err := ^(super new) open: 2 for: 'w' ].
|
||||
^self.err.
|
||||
}
|
||||
------------------------ */
|
||||
|
||||
/*
|
||||
method format: fmt with: ...
|
||||
{
|
||||
|
||||
}
|
||||
*/
|
||||
|
||||
method(#variadic) format (fmt)
|
||||
{
|
||||
| a b c |
|
||||
'THIS IS FORMAT' dump.
|
||||
fmt dump.
|
||||
|
||||
thisContext temporaryCount dump.
|
||||
0 priorTo: (thisContext vargCount) do: [:k |
|
||||
(thisContext vargAt: k) dump.
|
||||
].
|
||||
}
|
||||
}
|
||||
|
||||
extend Stdio
|
||||
{
|
||||
method xxxx
|
||||
{
|
||||
self basicSize dump.
|
||||
}
|
||||
}
|
||||
|
||||
class Stdio2(Stdio)
|
||||
{
|
||||
method(#class) new
|
||||
{
|
||||
//self prohibited
|
||||
//raise exception. prohibited...
|
||||
^(super new).
|
||||
}
|
||||
}
|
Reference in New Issue
Block a user