fix codetest failure - ASSERT_ARGS does not have a ; after and
[parrot.git] / editor / mk_skeleton.pir
blobf64ea13621594353206875857d04567c8cf58acc
1 # Copyright (C) 2010, Parrot Foundation.
2 # $Id$
4 # Generate a skeleton PIR file that adheres to parrot developer standards.
5 # intended for people who hack on parrot itself, not users of parrot.
7 .loadlib 'sys_ops'
8 .include 'tm.pasm'
10 .sub 'main' :main
11     .local pmc timeArray
12     .local int epoch, year
13     epoch = time
14     timeArray = decodetime epoch
15     year = timeArray[.TM_YEAR]
17     # split up to avoid various svn/codingstd issues.
18     print '# Copyright (C) '
19     print year
20     say   ' Parrot Foundation.'
21     print '# $'
22     say   'Id: $'
23     say ''
24     say ".sub 'main' :main"
25     say '    # For Parrot developers.'
26     say '.end'
27     say ''
28     say '# Local Variables:'
29     say '#   mode: pir'
30     say '#   fill-column: 100'
31     say '# End:'
32     say '# vim: expandtab shiftwidth=4 ft=pir:'
33 .end
35 # Local Variables:
36 #   mode: pir
37 #   fill-column: 100
38 # End:
39 # vim: expandtab shiftwidth=4 ft=pir: