Commit | Line | Data |
32be8496 |
1 | BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") } |
2 | use lib 'Distar/lib'; |
3 | use Distar 0.001; |
4 | |
5 | author 'Ken Youens-Clark <kclark@cpan.org>'; |
6 | manifest_include 'script' => qr/.+/; |
7 | manifest_include 't/data' => qr/.+/; |
8 | manifest_include 'share' => qr/.+/; |
9 | manifest_include '' => qr/\A(?:AUTHORS)\z/; |
10 | |
11 | # eval so can generate deps for cpanm --installdeps . |
12 | eval { |
13 | _recompile_grammars(); |
14 | _recreate_rt_source(); |
15 | }; |
16 | print "Got errors:\n\n$@" if $@; |
17 | |
18 | sub _recompile_grammars { |
19 | return; # disabled until RT#74593 is resolved |
20 | |
21 | require File::Spec; |
22 | |
23 | my $compiled_parser_dir = File::Spec->catdir(qw/ |
24 | share PrecompiledParsers Parse RecDescent DDL SQLT |
25 | /); |
26 | |
27 | # Currently consider only single-name parsers containing a grammar marker |
28 | # This is somewhat fragile, but better than loading all kinds of parsers |
29 | # to some of which we may not even have the deps |
30 | my $parser_libdir = 'lib/SQL/Translator/Parser'; |
31 | for my $parser_fn (glob "$parser_libdir/*.pm") { |
32 | die "$parser_fn does not look like a readable file\n" |
33 | unless ( -f $parser_fn and -r $parser_fn ); |
34 | |
35 | my ($type) = $parser_fn =~ /^\Q$parser_libdir\E\/(.+)\.pm$/i |
36 | or die "$parser_fn not named in expected format\n"; |
37 | |
38 | my $parser_source = do { local (@ARGV, $/) = $parser_fn; <> }; |
39 | next unless $parser_source =~ /\$GRAMMAR.+?END_OF_GRAMMAR/s; |
40 | |
41 | |
42 | my $precomp_parser_fn = File::Spec->catfile($compiled_parser_dir, "$type.pm"); |
43 | |
44 | next if ( |
45 | -f $precomp_parser_fn |
46 | and |
47 | (stat($parser_fn))[9] <= (stat($precomp_parser_fn))[9] |
48 | ); |
49 | |
50 | |
51 | print "Precompiling parser for $type\n"; |
52 | |
53 | require $parser_fn; |
54 | require Parse::RecDescent; |
55 | |
56 | Parse::RecDescent->Precompile( |
57 | do { |
58 | no strict 'refs'; |
59 | ${"SQL::Translator::Parser::${type}::GRAMMAR"} |
60 | || die "No \$GRAMMAR global found in SQL::Translator::Parser::$type ($parser_fn)\n" |
61 | }, |
62 | "Parse::RecDescent::DDL::SQLT::$type" |
63 | ); |
64 | |
65 | rename( "$type.pm", $precomp_parser_fn ) |
66 | or die "Unable to move $type.pm to $compiled_parser_dir: $!\n"; |
67 | } |
68 | |
69 | } |
70 | |
71 | sub _recreate_rt_source { |
72 | my $base_xml = "t/data/roundtrip.xml"; |
73 | my $autogen_yaml = "t/data/roundtrip_autogen.yaml"; |
74 | |
75 | print "Updating $autogen_yaml\n"; |
76 | |
77 | unlink $autogen_yaml; |
78 | |
79 | eval { |
80 | |
81 | use lib 'lib'; |
82 | |
83 | require SQL::Translator; |
84 | require SQL::Translator::Parser::XML; |
85 | |
86 | open (my $fh, '>', $autogen_yaml) or die "$autogen_yaml: $!\n"; |
87 | |
88 | my $tr = SQL::Translator->new; |
89 | my $yaml = $tr->translate ( |
90 | parser => 'XML', |
91 | file => $base_xml, |
92 | producer => 'YAML', |
93 | ) or die sprintf ("Unable to translate %s to YAML: %s\n", |
94 | $base_xml, |
95 | $tr->error || 'error unknown' |
96 | ); |
97 | |
98 | print $fh $yaml; |
99 | close $fh; |
100 | }; |
101 | |
102 | if ($@) { |
103 | die <<EOE; |
104 | |
105 | ========================================================================= |
106 | =============== WARNING !!! ================= |
107 | ========================================================================= |
108 | |
109 | Unable to update the roundtrip schema (attempt triggered by AUTHOR mode). |
110 | Continuing Makefile generation, but please fix the errors indicated below |
111 | (typically by installing the missing modules). |
112 | |
113 | ------------------------------------------------------------------------- |
114 | $@ |
115 | |
116 | EOE |
117 | } |
118 | } |
119 | |
120 | # vim: ft=perl et sts=2 sw=2 tw=0: |
121 | |
122 | 1; |