#!/usr/bin/env perl
use strict;
use warnings;

my $project = shift @ARGV or die "usage: $0 Project.uvprojx\n";
open my $fh, '<', $project or die "cannot open $project: $!\n";
while (my $line = <$fh>) {
    next unless $line =~ m{<FilePath>\.\.\\(.+\.c)</FilePath>};
    my $path = $1;
    $path =~ s{\\}{/}g;
    print "../src/$path ";
}
close $fh;
