#!/usr/local/bin/perl

# extern 宣言の自動生成。
# Usage: extern.pl [cc flags ...] C file
# 一回の処理で 一つの C file を cc -E する。
# ソース中に PUBLIC と修飾されたものを extern 宣言の形で抜き出す。

# ソースファイル名を大文字にして
# 「ファイル名では使いそうだけど、識別子には使えない」文字を
# '_' に置き換える。
$SOURCE = uc ($ARGV[$#ARGV]);
$SOURCE =~ tr[-./:()^~][_];

# cc -E -DSKIP_PARSE -DPUBLIC=_PUBLIC $* | awk -f extern.awk extfile=$lastarg

print '/* from ', $ARGV[$#ARGV], ' */', "\n",
    '#ifndef __', $SOURCE, "\n";

open CPPOUT, "cc -E -DSKIP_PARSE -DPUBLIC=_PUBLIC @ARGV |"
    or die "failed: execute cc -E";
while (<CPPOUT>) {
    next unless /^_PUBLIC/;

# extern 宣言の出力の元となる PUBLIC 修飾された行にはいろいろな
# バリエーションがある。
# _PUBLIC u8 *ks_get_memblock(u32 size, char *purpose) --> ; を付ける。
# _PUBLIC OSTask my_task[10]; --> そのままでよい。
# _PUBLIC int i =
# 10; --> など、複数行に別れているとき ( int i で改行されているのは無視。)
# 簡単に、行中の '=' 以降を取り除く。では どう ?
# ';' 以降を(あれば)取り除いて 最後に追加。

    chomp;
    $_ =~ s/=.*//;
    $_ =~ s/\;.*//;
    $_ =~ s/_PUBLIC/extern/;
    print $_, ";\n" ;
}
close CPPOUT;

print '#endif /* __', $SOURCE, ' */', "\n";