-
Notifications
You must be signed in to change notification settings - Fork 138
/
vtable_h.pl
82 lines (53 loc) · 1.25 KB
/
vtable_h.pl
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
#! perl
# Copyright (C) 2001-2011, Parrot Foundation.
=head1 NAME
tools/build/vtable_h.pl - Create the vtable header
=head1 SYNOPSIS
% perl tools/build/vtable_h.pl
=head1 DESCRIPTION
This script creates F<include/parrot/vtable.h> from F<src/vtable.tbl>. It
uses C<Parrot::Vtable>.
=head1 SEE ALSO
=over 4
=item C<Parrot::Vtable>
=back
=cut
use strict;
use warnings;
use lib 'lib';
use Parrot::Vtable;
my $tbl = 'src/vtable.tbl';
my $vtable = parse_vtable( $tbl );
open my $OUT, '>', 'include/parrot/vtable.h' or die $!;
print $OUT <<"EOF";
/* ex: set ro:
** !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
**
** This file is generated automatically from $tbl by tools/build/vtable_h.pl
*/
#ifndef PARROT_VTABLE_H_GUARD
#define PARROT_VTABLE_H_GUARD
#include "parrot/parrot.h"
#define VTABLE_SIZE 512
EOF
print $OUT vtbl_defs($vtable);
print $OUT "\n";
print $OUT vtbl_struct($vtable);
print $OUT vtbl_macros($vtable);
# append the guard suffix and C code coda
print $OUT <<"EOC";
#endif /* PARROT_VTABLE_H_GUARD */
/*
* Local variables:
* c-file-style: "parrot"
* buffer-read-only: t
* End:
* vim: expandtab shiftwidth=4:
*/
EOC
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4: