Skip to content
This repository
branch: whiteknight/gc…
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 37 lines (31 sloc) 0.863 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
# Copyright (C) 2010, Parrot Foundation.

# Generate a skeleton PIR file that adheres to parrot developer standards.
# intended for people who hack on parrot itself, not users of parrot.

.loadlib 'sys_ops'
.include 'tm.pasm'

.sub 'main' :main
    .local pmc timeArray
    .local int epoch, year
    epoch = time
    timeArray = decodetime epoch
    year = timeArray[.TM_YEAR]

    # split up to avoid various codingstd issues.
    print '# Copyright (C) '
    print year
    say ' Parrot Foundation.'
    say ''
    say ".sub 'main' :main"
    say ' # For Parrot developers.'
    say '.end'
    say ''
    say '# Local Variables:'
    say '# mode: pir'
    say '# fill-column: 100'
    say '# End:'
    say '# vim: expandtab shiftwidth=4 ft=pir:'
.end

# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Something went wrong with that request. Please try again.