plparrot_secure.pir

#      PL/Parrot is copyright Jonathan "Duke" Leto and friends 2009-2010
# This code is released under the Artistic 2.0 License, see LICENSE for details.

.sub _ :main :load :anon
    .local pmc p6meta, interp, classes, classid
    p6meta = get_root_global ["parrot"], "P6metaclass"
    p6meta.'new_class'('PLParrot')

    interp = getinterp
    classes = interp[0]
    classid = classes['PLParrot']

    # Replace these classes with our PLParrot class
    set classes['FileHandle'], classid
    set classes['File'], classid
.end

.namespace ["PLParrot"]
.sub open
    .param pmc stuff :slurpy
    # die "Attempt to open "
    .return(42)
.end

.sub open :method
    .param string file
    .param string mode
    # die "Attempt to open "
    .return(42)
.end

.sub copy :method
    .param pmc from
    .param pmc to
    print "Attempt to copy file "
    print from
    print "="
    say to
.end

.sub rename :method
    .param pmc from
    .param pmc to
    print "Attempt to rename file "
    print from
    print " to "
    say to
.end