#!/usr/bin/perl -w
use strict;

my @units = @ARGV;
foreach (@units) {
    $_ =~ s|^(?:.*/)*(.+)\.pas$|$1|os;
}

local $" = ', ';

print <<END;
{\$MODE OBJFPC} { -*- delphi -*- }
{\$INCLUDE settings.inc}
unit refgamebits;

// This unit exists only so that all the independent bits in the game can be referenced from one unit
// This unit is auto-generated by $0

interface

uses
   @units;

implementation

end.
END