57 lines
1.3 KiB
Plaintext
57 lines
1.3 KiB
Plaintext
|
#!/usr/bin/env perl
|
||
|
|
#
|
||
|
|
# This script can be used to create a single .c file with all of toxcore in it
|
||
|
|
# as well as your code or test file. It does not depend on any header files
|
||
|
|
# anymore, as those are emitted directly into the .c file.
|
||
|
|
#
|
||
|
|
# Example:
|
||
|
|
#
|
||
|
|
# other/make_single_file testing/misc_tools.c auto_tests/send_message_test.c | \
|
||
|
|
# tcc -o send_message_test - $(pkg-config --cflags --libs libsodium opus vpx)
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Cwd 'abs_path';
|
||
|
|
|
||
|
|
sub relative_to {
|
||
|
|
my ($rel, $fn) = @_;
|
||
|
|
my @path = split "/", $rel;
|
||
|
|
pop @path;
|
||
|
|
abs_path(join "/", @path, $fn)
|
||
|
|
}
|
||
|
|
|
||
|
|
my %seen;
|
||
|
|
sub emit {
|
||
|
|
my ($fn) = @_;
|
||
|
|
return if $seen{$fn};
|
||
|
|
$seen{$fn} = 1;
|
||
|
|
|
||
|
|
open my $fh, "<", $fn or die "$fn: $!";
|
||
|
|
my $line = 1;
|
||
|
|
print "#line $line \"$fn\"\n";
|
||
|
|
while (<$fh>) {
|
||
|
|
if (/^#include "([^"]*)"/) {
|
||
|
|
emit(relative_to($fn, $1), $1);
|
||
|
|
++$line;
|
||
|
|
print "#line $line \"$fn\"\n";
|
||
|
|
} else {
|
||
|
|
print;
|
||
|
|
++$line;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (@ARGV and $ARGV[0] eq "-core") {
|
||
|
|
shift @ARGV;
|
||
|
|
for my $fn (<toxcore/*.c>, <third_party/cmp/*.c>) {
|
||
|
|
emit(abs_path $fn);
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
for my $fn (<toxav/*.c>, <toxcore/*.c>, <toxcore/*/*.c>, <toxencryptsave/*.c>, <third_party/cmp/*.c>) {
|
||
|
|
emit(abs_path $fn);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
emit(abs_path $_) for @ARGV;
|