From http://www.jwz.org/xscreensaver/xscreensaver-5.35.tar.gz
[xscreensaver] / OSX / build-fntable.pl
1 #!/usr/bin/perl -w
2 # Copyright © 2012-2015 Jamie Zawinski <jwz@jwz.org>
3 #
4 # Permission to use, copy, modify, distribute, and sell this software and its
5 # documentation for any purpose is hereby granted without fee, provided that
6 # the above copyright notice appear in all copies and that both that
7 # copyright notice and this permission notice appear in supporting
8 # documentation.  No representations are made about the suitability of this
9 # software for any purpose.  It is provided "as is" without express or 
10 # implied warranty.
11 #
12 # Generates a .c file that lists all the function tables we use, because
13 # CFBundleGetDataPointerForName doesn't work in "Archive" builds.
14 # What a crock of shit.
15 #
16 # There's no real way to integrate this into the Xcode build system, so
17 # run this manually each time a new saver is added to the iOS app.
18 #
19 # Created: 14-Jul-2012.
20
21 require 5;
22 #use diagnostics;       # Fails on some MacOS 10.5 systems
23 use strict;
24
25 my $progname = $0; $progname =~ s@.*/@@g;
26 my ($version) = ('$Revision: 1.5 $' =~ m/\s(\d[.\d]+)\s/s);
27
28 my $verbose = 1;
29
30 # List of savers not included in the iOS build.
31 #
32 my %disable = (
33    'extrusion'          => 1,
34    'lcdscrub'           => 1,
35    'lockward'           => 1,
36    'webcollage'         => 1,
37    'testx11'            => 1,
38   );
39
40 # Parse the RETIRED_EXES variable from the Makefiles to populate %disable.
41 # Duplicated in ../hacks/munge-ad.pl.
42 #
43 sub parse_makefiles() {
44   foreach my $mf ( "../hacks/Makefile.in", "../hacks/glx/Makefile.in" ) {
45     open (my $in, '<', $mf) || error ("$mf: $!");
46     print STDERR "$progname: reading $mf\n" if ($verbose > 1);
47     local $/ = undef;  # read entire file
48     my $body = <$in>;
49     close $in;
50
51     $body =~ s/\\\n//gs;
52     my ($var)  = ($body =~ m/^RETIRED_EXES\s*=\s*(.*)$/mi);
53     my ($var2) = ($body =~ m/^RETIRED_GL_EXES\s*=\s*(.*)$/mi);
54     error ("no RETIRED_EXES in $mf") unless $var;
55     $var .= " $var2" if $var2;
56     foreach my $hack (split (/\s+/, $var)) {
57       $disable{$hack} = 2;
58     }
59   }
60 }
61
62
63 sub build_h($) {
64   my ($outfile) = @_;
65
66   parse_makefiles();
67
68   my @schemes = glob('xscreensaver.xcodeproj/xcuserdata/' .
69                      '*.xcuserdatad/xcschemes/*.xcscheme');
70   error ("no scheme files") unless (@schemes);
71
72   my %names = ();
73
74   foreach my $s (@schemes) {
75     open (my $in, '<', $s) || error ("$s: $!");
76     local $/ = undef;  # read entire file
77     my $body = <$in>;
78     close $in;
79     my ($name) = ($body =~ m@BuildableName *= *"([^\"<>]+?)\.saver"@s);
80     next unless $name;
81     $name = lc($name);
82     if ($disable{$name}) {
83       print STDERR "$progname: skipping $name\n" if ($verbose > 1);
84       next;
85     }
86     print STDERR "$progname: found $name\n" if ($verbose > 1);
87     $names{$name} = 1;
88   }
89
90   my @names = sort (keys %names);
91   error ("too few names") if (@names < 100);
92
93   my $suf = 'xscreensaver_function_table';
94
95   my $body = ("/* Generated file, do not edit.\n" .
96               "   Created: " . localtime() . " by $progname $version.\n" .
97               " */\n" .
98               "\n" .
99               "#import <Foundation/Foundation.h>\n" .
100               "#import <UIKit/UIKit.h>\n" .
101               "\n" .
102               "extern NSDictionary *make_function_table_dict(void);\n" .
103               "\n");
104
105   $body .= "extern struct $suf";
106   foreach my $s (@names, 'testx11') {
107     $body .= "\n ${s}_${suf},";
108   }
109   $body =~ s/,\s*$/;/s;
110
111   sub line($$) {
112     my ($s, $suf) = @_;
113     return "\t[NSValue valueWithPointer:&${s}_${suf}], @\"${s}\",\n";
114   }
115
116   $body .= ("\n\n" .
117             "NSDictionary *make_function_table_dict(void)\n{\n" .
118             "  return\n    [NSDictionary dictionaryWithObjectsAndKeys:\n" .
119             "\n" .
120             "#if defined(APPLE2_ONLY)\n" .
121             " " . line('apple2', $suf) .
122             "#elif defined(PHOSPHOR_ONLY)\n" .
123             " " . line('phosphor', $suf) .
124             "#elif defined(TESTX11_ONLY)\n" .
125             " " . line('testx11', $suf) .
126             "#else\n");
127   foreach my $s (@names) { $body .= line($s, $suf); }
128   $body .= ("#endif\n" .
129             "\tnil];\n" .
130             "}\n\n");
131
132   my $obody = '';
133   if (open (my $in, '<', $outfile)) {
134     local $/ = undef;  # read entire file
135     $obody = <$in>;
136     close $in;
137   }
138
139   # strip comments/date for diff.
140   my ($body2, $obody2) = ($body, $obody);
141   foreach ($body2, $obody2) { s@/\*.*?\*/@@gs; }
142
143   if ($body2 eq $obody2) {
144     print STDERR "$progname: $outfile: unchanged\n" if ($verbose > 1);
145   } else {
146     my $file_tmp = "$outfile.tmp";
147     open (my $out, '>', $file_tmp) || error ("$file_tmp: $!");
148     print $out $body || error ("$file_tmp: $!");
149     close $out || error ("$file_tmp: $!");
150
151     if (!rename ("$file_tmp", "$outfile")) {
152       unlink "$file_tmp";
153       error ("mv \"$file_tmp\" \"$outfile\": $!");
154     }
155     print STDERR "$progname: wrote $outfile\n" if ($verbose);
156   }
157 }
158
159
160 sub error($) {
161   my ($err) = @_;
162   print STDERR "$progname: $err\n";
163   exit 1;
164 }
165
166 sub usage() {
167   print STDERR "usage: $progname [--verbose] output.c\n";
168   exit 1;
169 }
170
171 sub main() {
172
173   my ($out);
174   while ($_ = $ARGV[0]) {
175     shift @ARGV;
176     if    (m/^--?verbose$/s)  { $verbose++; }
177     elsif (m/^-v+$/)          { $verbose += length($_)-1; }
178     elsif (m/^--?q(uiet)?$/s) { $verbose = 0; }
179     elsif (m/^-/s)            { usage(); }
180     elsif (! $out)            { $out = $_; }
181     else                      { usage(); }
182   }
183   usage() unless ($out);
184   build_h ($out);
185 }
186
187 main();
188 exit 0;