.namespace [ 'File::Spec::Unix' ]

.sub '__onload' :load
    .local pmc self
    newclass self, 'File::Spec::Unix'
.end

.sub 'curdir' :method
    .return( '.' )
.end


.sub 'devnull' :method
    .return( '/dev/null' )
.end


.sub 'rootdir' :method
    .return( '/' )
.end


.sub 'tmpdir' :method
    '_E_not_yet_implemented'()
.end


.sub 'updir' :method
    .return( '..' )
.end


.sub 'no_upwards' :method
    '_E_not_yet_implemented'()
.end


.sub 'case_tolerant' :method
    .return( 1 )
.end


.sub 'file_name_is_absolute' :method
    .return( 0 )
.end


.sub 'VERSION' :method
    .local pmc version
    version= get_global 'VERSION'
    .return( version )
.end


.sub 'catfile' :method
    '_E_not_yet_implemented'()
.end


.sub 'catdir' :method
    '_E_not_yet_implemented'()
.end


.sub 'path' :method
    '_E_not_yet_implemented'()
.end


.sub 'canonpath' :method
    '_E_not_yet_implemented'()
.end


.sub 'splitpath' :method
    '_E_not_yet_implemented'()
.end


.sub 'splitdir' :method
    '_E_not_yet_implemented'()
.end


.sub 'catpath' :method
    '_E_not_yet_implemented'()
.end


.sub 'abs2rel' :method
    '_E_not_yet_implemented'()
.end


.sub 'rel2abs' :method
    '_E_not_yet_implemented'()
.end


## TODO more functions


## throw an error that the sub isn't yet implemented
.sub '_E_not_yet_implemented'
    new $P0, 'Exception'
    $P0 = 'not yet implemented'
    throw $P0
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
