source: mypx/utils/genrename @ 7

#! /usr/bin/perl
#
#  TOPPERS Software
#      Toyohashi Open Platform for Embedded Real-Time Systems
# 
#  Copyright (C) 2003 by Embedded and Real-Time Systems Laboratory
#                              Toyohashi Univ. of Technology, JAPAN
#  Copyright (C) 2005-2011 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$
# 

#
#  ÀèƬ€Ë€Ä€±€ëÊž»úÎó
#
sub prefix_string {
        local($sym) = @_;

        if ($sym =~ /[a-z]/) {
                return("_kernel_");
        }
        else {
                return("_KERNEL_");
        }
}

#
#  ¥ê¥Í¡Œ¥àÄêµÁ€òÀžÀ®€¹€ë
#
sub generate_define
{
        local($sym, $prefix) = @_;

        print FILE "#define ",$prefix,$sym;
        print FILE "\t" if (length($prefix.$sym) < 4);
        print FILE "\t" if (length($prefix.$sym) < 8);
        print FILE "\t" if (length($prefix.$sym) < 12);
        print FILE "\t" if (length($prefix.$sym) < 16);
        print FILE "\t" if (length($prefix.$sym) < 20);
        print FILE "\t" if (length($prefix.$sym) < 24);
        print FILE "\t",$prefix,prefix_string($sym),$sym,"\n";
}

#
#  ¥ê¥Í¡Œ¥à²òœü€òÀžÀ®€¹€ë
#
sub generate_undef
{
        local($sym, $prefix) = @_;

        print FILE "#undef ",$prefix,$sym,"\n";
}

#
#  ¥€¥ó¥¯¥ë¡Œ¥É¥Ç¥£¥ì¥¯¥Æ¥£¥Ö€òÀžÀ®€¹€ë
#
sub generate_include
{
        local($file, $prefix) = @_;

        $file =~ s/([>"])$/_$prefix.h$1/;
        $includes .= "#include ".$file."\n";
}

#
#  ¥š¥é¡Œ¥Á¥§¥Ã¥¯
#
if ($#ARGV != 0) {
        die "Usage: genrename <prefix>\n";
}

#
#  œéŽü²œ
#
@syms = ();
$name = $ARGV[0];
$NAME = $name; $NAME =~ y/a-z/A-Z/;

$infile = $name."_rename.def";
$header_defsym = "TOPPERS_".$NAME."_RENAME_H";

#
#  ¥·¥ó¥Ü¥ë¥ê¥¹¥È€òÆɀ߹þ€à
#
open(INFILE, $infile) || die "Cannot open $infile";
while ($line = <INFILE>) {
        chomp $line;
        @syms = (@syms, $line);
}
close(INFILE);

#
#  ???_rename.h €òÀžÀ®€¹€ë
#
$includes = "";
$file = $name."_rename.h";
open(FILE, "> ".$file);

print FILE <<END;
/* This file is generated from $infile by genrename. */

#ifndef $header_defsym
#define $header_defsym

END

foreach $sym (@syms) {
        if ($sym =~ /^#(.*)$/) {
                print FILE "/*\n";
                print FILE " * ",$1,"\n";
                print FILE " */\n";
        }
        elsif ($sym =~ /^INCLUDE[ \t]+(.*)$/) {
                generate_include($1, "rename");
        }
        elsif ($sym ne "") {
                generate_define($sym, "");
        }
        else {
                print FILE "\n";
        }
}

print FILE <<END;

#ifdef TOPPERS_LABEL_ASM

END

foreach $sym (@syms) {
        if ($sym =~ /^#(.*)$/) {
                print FILE "/*\n";
                print FILE " * ",$1,"\n";
                print FILE " */\n";
        }
        elsif ($sym =~ /^INCLUDE[ \t]+(.*)$/) {
                # do nothing
        }
        elsif ($sym ne "") {
                generate_define($sym, "_");
        }
        else {
                print FILE "\n";
        }
}

print FILE <<END;

#endif /* TOPPERS_LABEL_ASM */

$includes
#endif /* $header_defsym */
END

#
#  ???_unrename.h €òÀžÀ®€¹€ë
#
$includes = "";
$file = $name."_unrename.h";
open(FILE, "> ".$file);

print FILE <<END;
/* This file is generated from $infile by genrename. */

/* This file is included only when $name\_rename.h has been included. */
#ifdef $header_defsym
#undef $header_defsym

END

foreach $sym (@syms) {
        if ($sym =~ /^#(.*)$/) {
                print FILE "/*\n";
                print FILE " * ",$1,"\n";
                print FILE " */\n";
        }
        elsif ($sym =~ /^INCLUDE[ \t]+(.*)$/) {
                generate_include($1, "unrename");
        }
        elsif ($sym ne "") {
                generate_undef($sym, "");
        }
        else {
                print FILE "\n";
        }
}

print FILE <<END;

#ifdef TOPPERS_LABEL_ASM

END

foreach $sym (@syms) {
        if ($sym =~ /^#(.*)$/) {
                print FILE "/*\n";
                print FILE " * ",$1,"\n";
                print FILE " */\n";
        }
        elsif ($sym =~ /^INCLUDE[ \t]+(.*)$/) {
                # do nothing
        }
        elsif ($sym ne "") {
                generate_undef($sym, "_");
        }
        else {
                print FILE "\n";
        }
}

print FILE <<END;

#endif /* TOPPERS_LABEL_ASM */

$includes
#endif /* $header_defsym */
END

close(FILE);