source: utils/makedep

#! /usr/bin/perl
#
#  TOPPERS Software
#      Toyohashi Open Platform for Embedded Real-Time Systems
# 
#  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
#                              Toyohashi Univ. of Technology, JAPAN
#  Copyright (C) 2004-2013 by Embedded and Real-Time Systems Laboratory
#              Graduate School of Information Science, Nagoya Univ., JAPAN
# 
#  Ÿåµ­Ãøºîž¢ŒÔ€Ï¡€°Ê²Œ€Î(1)¡Á(4)€ÎŸò·ï€òËþ€¿€¹Ÿì¹ç€ËžÂ€ê¡€ËÜ¥œ¥Õ¥È¥Š¥§
#  ¥¢¡ÊËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò²þÊÑ€·€¿€â€Î€òŽÞ€à¡¥°Ê²ŒÆ±€ž¡Ë€ò»ÈÍÑ¡ŠÊ£Àœ¡Š²þ
#  ÊÑ¡ŠºÆÇÛÉۡʰʲŒ¡€ÍøÍрȞƀ֡ˀ¹€ë€³€È€ò̵œþ€ÇµöÂú€¹€ë¡¥
#  (1) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¥œ¡Œ¥¹¥³¡Œ¥É€Î·Á€ÇÍøÍÑ€¹€ëŸì¹ç€Ë€Ï¡€Ÿåµ­€ÎÃøºî
#      ž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äꀬ¡€€œ€Î€Þ€Þ€Î·Á€Ç¥œ¡Œ
#      ¥¹¥³¡Œ¥ÉÃæ€ËŽÞ€Þ€ì€Æ€€€ë€³€È¡¥
#  (2) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€¥é¥€¥Ö¥é¥ê·ÁŒ°€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
#      Íрǀ­€ë·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍÑ
#      ŒÔ¥Þ¥Ë¥å¥¢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃøºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­
#      €Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
#  (3) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€µ¡Žï€ËÁȀ߹þ€à€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
#      Íрǀ­€Ê€€·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€Œ¡€Î€€€º€ì€«€ÎŸò·ï€òËþ€¿€¹€³
#      €È¡¥
#    (a) ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍьԥޥ˥奢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃø
#        ºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
#    (b) ºÆÇÛÉۀηÁÂÖ€ò¡€ÊÌ€ËÄê€á€ëÊýË¡€Ë€è€Ã€Æ¡€TOPPERS¥×¥í¥ž¥§¥¯¥È€Ë
#        Êó¹ð€¹€ë€³€È¡¥
#  (4) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€ë€€€«€Ê€ë»
#      ³²€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€òÌÈÀÕ€¹€ë€³€È¡¥
#      €Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Î¥æ¡Œ¥¶€Þ€¿€Ï¥š¥ó¥É¥æ¡Œ¥¶€«€é€Î€€€«€Ê€ëÍý
#      ͳ€ËŽð€Å€¯ÀÁµá€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€ò
#      ÌÈÀÕ€¹€ë€³€È¡¥
# 
#  ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Ï¡€ÌµÊÝŸÚ€ÇÄ󶡀µ€ì€Æ€€€ë€â€Î€Ç€¢€ë¡¥Ÿåµ­Ãøºîž¢ŒÔ€ª
#  €è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€Ï¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ËŽØ€·€Æ¡€ÆÃÄê€Î»ÈÍÑÌÜŪ
#  €ËÂЀ¹€ëŬ¹çÀ­€âŽÞ€á€Æ¡€€€€«€Ê€ëÊÝŸÚ€â¹Ô€ï€Ê€€¡¥€Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§
#  ¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€¿€€€«€Ê€ë»³²€ËŽØ€·€Æ€â¡€€œ
#  €ÎÀÕÇ€€òÉé€ï€Ê€€¡¥
# 
#  @(#) $Id$
# 

use Getopt::Std;

#  ¥ª¥×¥·¥ç¥ó€ÎÄêµÁ
#
#  -C <cc_path>         C¥³¥ó¥Ñ¥€¥é€Î¥³¥Þ¥ó¥ÉÌŸ
#  -O <cc_opts>         C¥³¥ó¥Ñ¥€¥é/CPP€ËÅÏ€¹¥ª¥×¥·¥ç¥ó
#  -X                           ¥œ¡Œ¥¹¥Õ¥¡¥€¥ë€ò¶¯À©Åª€ËC¥Ø¥Ã¥À¥Õ¥¡¥€¥ë€Èž«€Ê€¹
#
#  -T <target>          ¥¿¡Œ¥²¥Ã¥ÈÌŸ¡Ê€Î¥ê¥¹¥È¡Ë
#  -D <t_dir>           ¥¿¡Œ¥²¥Ã¥È€Î¥Ç¥£¥ì¥¯¥È¥êÌŸ€ò»ØÄꀹ€ë¡Ê-T€òÍÑ€€€¿Ÿì
#                                       ¹ç€Ï̵žú¡Ë
#  -d                           ¥¿¡Œ¥²¥Ã¥È€Î¥Ç¥£¥ì¥¯¥È¥êÉô€òÊÝ»ý€¹€ë¡Ê-T€òÍÑ€€€¿Ÿì
#                                       ¹ç€Ï̵žú¡Ë
#  -S                           Ê£¿ô€Î¥¿¡Œ¥²¥Ã¥È€¬€¢€ë°Íž¥ë¡Œ¥ë€ò¡€¥¿¡Œ¥²¥Ã¥ÈËè€Ë
#                                       ʬ³ä€¹€ë¡Ê€³€Š€·€Ê€€€ÈÂбþ€Ç€­€Ê€€make€¬€¢€ë€é€·€€¡Ë
#
#  -R <dirname>         CygwinŽÄ¶­€Ë€ª€±€ë¥ë¡Œ¥È¥Ç¥£¥ì¥¯¥È¥êÌŸ€ò»ØÄꀹ€ë
#                                       ¡Ê¥Ç¥Õ¥©¥ë¥È€Ïcygdrive¡Ë

#
#  ¥ª¥×¥·¥ç¥ó€ÎœèÍý
#
getopt("COTDR");

$cc_path = $opt_C;
$cc_opts = $opt_O;

if ($opt_T) {
        $target_name = $opt_T;
}
elsif ($opt_D) {
        $target_dir = $opt_D;
}
elsif (!$opt_d) {
        $target_dir = "";
}

if ($opt_R) {
        $cygwin_root = $opt_R;
}
else {
        $cygwin_root = "cygdrive";
}

#
#  CygwinŽÄ¶­€ÎÈœÊÌ
#
if ($^O eq 'cygwin') {
        $cygwin = 1;
}

#
#  %dependlist €Ëºî€é€ì€¿°ÍžŽØ·ž€òœÐÎÏ€¹€ë
#
sub output_dependlist {
        local($target) = @_;
        local($column, $len, $file);

        print $target, ": ";
        $column = length($target) + 2;

        foreach $file (keys(%dependlist)) {
                $len = length($file) + 1;
                if ($column > 8 && $column + $len >= 70) {
                        print "\\\n\t";
                        $column = 8;
                }
                $column += $len;
                print "$file ";
        }
        print "\n";
}

#
#  $file €Î°ÍžŽØ·ž€ò %dependlist €Ëºî€ë
#
sub makedepend_one {
        local($file) = @_;
        local($command, $input, $dir, $filename);

        $command = "$cc_path -E $cc_opts";
        if ($opt_X) {
                $command .= " -x c-header";
        }
        unless (open(INPUT, "$command $file |")) {
                print STDERR "makedep: can't open $file\n";
                exit(1);
        }
        while ($line = <INPUT>) {
                if ($line =~ /^\#[a-zA-Z]*\s*([0-9]+)\s*\"([^\"]+)\"/) {
                        $filename = $2;
                        $filename =~ s/ /\\ /g;
                        if ($filename !~ /^\<.*\>$/ && $filename !~ /\/$/) {
                                if ($cygwin) {
                                        $filename =~ s/\\\\/\//g;
                                        $filename =~ s/^([a-zA-Z]):/\/$cygwin_root\/$1/;
                                }
                                $dependlist{$filename} = 1;
                        }
                }
        }
        unless (close(INPUT)) {
                print STDERR "makedep: can't execute $command\n";
                exit(1);
        }
}

#
#  ¥á¥€¥ó¥ë¡Œ¥Á¥ó
#
foreach $file (@ARGV) {
        %dependlist = ();
        makedepend_one($file);
        if (%dependlist) {
                if ($target_name) {
                        if ($opt_S) {
                                foreach $target (split(/[ \t]+/, $target_name)) {
                                        output_dependlist($target);
                                }
                        }
                        else {
                                output_dependlist($target_name);
                        }
                }
                else {
                        $target = $file;
                        $target =~ s/(.*)\.(.*)/$1.o/;
                        if (defined($target_dir)) {
                                $target =~ s/^.*\/([^\/]+)$/$1/;
                                if ($target_dir) {
                                        $target = $target_dir."/".$target;
                                }
                        }
                        output_dependlist($target);
                }
        }
}