diff options
Diffstat (limited to 'target/xtensa/xt-buildroot-overlay-install')
| -rw-r--r-- | target/xtensa/xt-buildroot-overlay-install | 488 |
1 files changed, 0 insertions, 488 deletions
diff --git a/target/xtensa/xt-buildroot-overlay-install b/target/xtensa/xt-buildroot-overlay-install deleted file mode 100644 index d2afce124..000000000 --- a/target/xtensa/xt-buildroot-overlay-install +++ /dev/null @@ -1,488 +0,0 @@ -#!/bin/sh -# Not every host installs perl at the same location, handle many locations: -PATH=/usr/bin:/usr/local/bin:$PATH -exec perl -x -S $0 ${1+"$@"} -exit $? -#!perl -w -#line 8 - -# xt-buildroot-overlay-install [-t overlay_tarball] [-b buildroot_dir] \ -# [-k kernel_dir] \ -# [-c config_name] [-l long_name] [-f] [--help] -# -# Creates individual overlay tarballs for gcc, binutils, gdb, and -# the Linux kernel, out of the Xtensa Configuration Overlay tarball from -# a Tensilica Core Package. And installs these individual tarballs -# at the appropriate locations within a buildroot source tree. -# -# The Xtensa configuration overlay tarball is located in: -# <xtensa_root>/src/xtensa-config-overlay.tar.gz -# where <xtensa_root> is the path to the Tensilica Core Package. -# -# Copyright (c) 2003-2009 by Tensilica Inc. -# History: -# 2007-NOV-08 1.0 meg Initial version -# 2007-NOV-21 1.1 meg Add -k parameter -# 2007-DEC-06 1.2 meg Make -k and -b optional, check overlay sw vers. -# 2008-FEB-27 1.3 meg Accept Xtensa Tools RB-2008.3 overlays - -$progvers = "1.3"; -$progname = $0; -$progname =~ s|.*[/\\:]||; - - -###################################################################### -# -# Parse cmdline -# - -my $overlay_tarball = undef; -my $buildroot_dir = undef; -my $kernel_dir = undef; -my $config_name = undef; -my $config_long_name = undef; -my $force_clobber = 0; -my $prompt = 1; # undocumented option - -sub usage { - print "$progname version $progvers\n" - ."Usage: $progname <parameters> [<options>]\n" - ."Where <parameters> are:\n" - ." -t file.tgz Specify path to the Xtensa Linux overlay tarball, typically\n" - ." <xtensa_root>/src/xtensa-config-overlay.tar.gz\n" - ." -b dir Path to the base of the buildroot source tree, in which\n" - ." package specific overlay tarballs get installed.\n" - ." -k dir Path to the base of the Linux kernel source tree, in which\n" - ." the Linux kernel specific overlay gets installed.\n" - ." -c config_name Name for the Xtensa processor configuration as it will be\n" - ." known to the open source community. Must be a lowercase\n" - ." identifier, starting with a letter, consisting of letters\n" - ." and numbers and underscores, not ending with underscore\n" - ." and not containing consecutive underscores. For examples:\n" - ." dc232b , dc232b_be , mmubasele , fsf , s5000 .\n" - ." -l long_name Long name for the Xtensa processor configuration, human-\n" - ." readable with spaces etc allowed (must be quoted).\n" - ." For example: 'Diamond 232L Standard Core Rev.B (LE)'\n" - ." Try to keep it within approximately 40 characters.\n" - ."And <options> are:\n" - ." -f If package specific overlay tarballs already exist in\n" - ." the destination source tree, overwrite them without asking.\n" - ." --help Show this usage message.\n"; -} - -# Get arguments: -if (!@ARGV) { - usage(); - exit 0; -} -while( defined($_ = shift) ) { - if( /^-[tbclk]$/ ) { # option taking an argument - my $arg = shift; - if( !defined($arg) ) { - print STDERR "$progname: ERROR: missing parameter after '$_' option\n\n"; - usage(); - exit 1; - } - $overlay_tarball = $arg if $_ eq "-t"; - $buildroot_dir = $arg if $_ eq "-b"; - $kernel_dir = $arg if $_ eq "-k"; - $config_name = $arg if $_ eq "-c"; - $config_long_name = $arg if $_ eq "-l"; - next; - } - if( /^-f$/ ) { - $force_clobber = 1; - next; - } - if( /^--[m-t]{8}$/ && /[new]([wow])([pup])[fur]\1[maze]\2[tuff]/ ) { - $prompt = 0; - next; - } - if( /^-(h|help|\-h|\-help|\?)$/i ) { - usage(); - exit 0; - } - print STDERR "$progname: ERROR: unrecognized option or argument '$_'\n\n"; - usage(); - exit 1; -} - - -###################################################################### -# -# Validate cmdline arguments -# - -ErrorU("missing -c argument (core name)") - unless defined($config_name); -# Try to enforce reasonable names: -ErrorU("-c: malformed core name '$config_name' (must be lowercase, letter followed by letters/digits, may contain underscore separators)") - unless $config_name =~ /^[a-z][a-z0-9]*(_[a-z0-9]+)*$/; -ErrorU("-c: core name too short '$config_name'") - unless length($config_name) >= 2; -ErrorU("-c: core name too long '$config_name'") - unless length($config_name) <= 16; - - -ErrorU("missing -l argument (core long name)") - unless defined($config_long_name); -$config_long_name =~ s/^\s+//; # trim extra whitespace... -$config_long_name =~ s/\s+$//; -$config_long_name =~ s/\s+/ /g; -# Try to enforce reasonable names: -ErrorU("-l: invalid (non-ASCII-printable) characters in core long name '$config_long_name'") - unless $config_long_name =~ /^[\x20-\x7E]+$/; -ErrorU("-l: disallowed characters (\"\'\\) in core long name '$config_long_name'") - if $config_long_name =~ /[\'\"\\]/; -ErrorU("-l: core long name too short '$config_long_name'") - unless length($config_long_name) >= 5; -ErrorU("-l: core long name too long '$config_long_name'") - unless length($config_long_name) <= 60; - - -#ErrorU("missing -b argument (buildroot source tree directory)") -# unless defined($buildroot_dir); -if (defined($buildroot_dir)) { - ErrorU("-b: not a directory: $buildroot_dir") - unless -d $buildroot_dir; - foreach my $p ("toolchain/gcc", "toolchain/binutils", "toolchain/gdb", "target/xtensa") { - ErrorU("-b: not a buildroot directory: missing $buildroot_dir/$p") - unless -d $buildroot_dir . "/" . $p; - } -} - - -#ErrorU("missing -k argument (Linux kernel source tree directory)") -# unless defined($kernel_dir); -if (defined($kernel_dir)) { - ErrorU("-k: not a directory: $kernel_dir") - unless -d $kernel_dir; - foreach my $p ("kernel", "arch/xtensa/kernel", "include/asm-xtensa") { - ErrorU("-k: not a Linux kernel directory: missing $kernel_dir/$p") - unless -d $kernel_dir . "/" . $p; - } -} - - -if (!defined($buildroot_dir) and !defined($kernel_dir)) { - print STDERR "$progname: WARNING:\n"; - print STDERR "$progname: WARNING: Test run only, NOTHING WILL BE INSTALLED\n"; - print STDERR "$progname: WARNING: (use -b and -k to specify install destination)\n"; - print STDERR "$progname: WARNING:\n"; -} - - -my @ovpaths = ( "/src/xtensa-config-overlay.tar.gz", - "/xtensa-elf/src/linux/misc/linux-overlay.tar.gz" ); -if (!defined($overlay_tarball)) { - # Try to locate the overlay tarball based on XTENSA_SYSTEM and XTENSA_CORE - # settings: - my $xtensa_root = `xt-xcc --show-config=config 2>/dev/null`; - $xtensa_root = "" unless defined($xtensa_root); - chomp($xtensa_root); - if ($xtensa_root ne "") { - ($overlay_tarball) = grep(-f $xtensa_root.$_, @ovpaths); - if (!defined($overlay_tarball)) { - ErrorU("Xtensa configuration overlay tarball not found: ".$xtensa_root.$ovpaths[0]) - } - } else { - ErrorU("missing -t argument (Xtensa configuration overlay tarball filename)\n" - ."and no default Xtensa Core Package defined in the environment"); - } -} else { - foreach my $p ("", @ovpaths) { - if (-f $overlay_tarball.$p) { - $overlay_tarball .= $p; - last; - } - } - ErrorU("-t: file not found: $overlay_tarball") unless -f $overlay_tarball; -} - - -###################################################################### -# -# Misc -# - -my $overlay_unpacked = 0; -my $ovdir; - -sub cleanup { - if ($overlay_unpacked) { - system("rm -rf '$ovdir' 2>/dev/null"); - } -} - -sub ErrorEmit { - my ($msg,$usage) = @_; - $msg =~ s|\n|"\n${progname}: ERROR: "|ge; - print STDERR "$progname: ERROR: $msg\n"; - if ($usage) { - print "\n"; - usage(); - } - cleanup(); - exit 1; -} -sub ErrorU { ErrorEmit(shift,1); } -sub Error { ErrorEmit(shift); } - - -# Read specified file (as binary), returning contents. -# -sub readfile { - my ($filename) = @_; - # Read the file: - open(INFILE,"<$filename") or Error("error reading from '$filename': $!"); - my $savesep = $/; - undef $/; - my $file = <INFILE>; - $/ = $savesep; - close(INFILE); - $file; -} - -# Write specified file (as binary) with first argument (string). -# -sub writefile { - my ($filename, $file) = @_; - # Read the file: - open(INFILE,">$filename") or Error("error writing to '$filename': $!"); - print INFILE $file; - close(INFILE) or Error("error closing file '$filename': $!"); -} - - -###################################################################### -# -# Determine a temporary directory. -# - -my $tmpdir = "/tmp"; -if (defined($ENV{"TMP"}) and -d $ENV{"TMP"}) { - $tmpdir = $ENV{"TMP"}; -} elsif (defined($ENV{"TEMP"}) and -d $ENV{"TEMP"}) { - $tmpdir = $ENV{"TEMP"}; -} - - -###################################################################### -# -# Unpack the general overlay tarball -# - -my $user = defined($ENV{"USER"}) ? $ENV{"USER"} : "xtensa"; -$ovdir = $tmpdir."/tmp-overlay-${user}-$$"; -mkdir $ovdir or Error("cannot create directory $ovdir"); -$overlay_unpacked = 1; -system("tar xfz '$overlay_tarball' -C '$ovdir'") - and Error("tar failed..."); - - -###################################################################### -# -# Define and sanity check contents of overlay -# - -my $oldpack = -f $ovdir."/xtensa-elf/src/linux/misc/core.h"; -my $pf1 = ($oldpack ? "src/" : ""); -my $pf2 = ($oldpack ? "xtensa-elf/src/linux/misc/" : "config/"); - -my @packages = ( - ["binutils", "toolchain/binutils", - ["${pf1}/binutils/xtensa-modules.c", "bfd/"], - ["${pf1}/binutils/xtensa-config.h", "include/"], - #["${pf1}/binutils/xtensa-config.sh", "ld/emulparams/"], - ], - ["gcc", "toolchain/gcc", - ["${pf1}/gcc/xtensa-config.h", "include/"], - ], - ["gdb", "toolchain/gdb", - ["${pf1}/gdb/xtensa-modules.c", "bfd/"], - ["${pf1}/gdb/xtensa-config.h", "include/"], - ["${pf1}/gdb/xtensa-config.c", "gdb/"], - ["${pf1}/gdb/xtensa-regmap.c", "gdb/gdbserver/"], - ["${pf1}/gdb/xtensa-regmap.c", "gdb/gdbserver/xtensa-xtregs.c"], # for GDB 6.8 - ["${pf1}/gdb/xtensa-regmap.c", "gdb/xtensa-xtregs.c"], # for GDB 6.8 - ["${pf1}/gdb/reg-xtensa.dat", "gdb/regformats/"], - ], - ["kernel", "target/xtensa", # ??? - ["${pf2}core.h", "include/asm-xtensa/variant-${config_name}/"], - ["${pf2}tie.h", "include/asm-xtensa/variant-${config_name}/"], - ["${pf2}tie-asm.h", "include/asm-xtensa/variant-${config_name}/"], - ], -); - -# Check that all files are present ... -foreach my $pack (@packages) { - my ($pname, $buildroot_subdir, @files) = @$pack; - print "Checking files for $pname ...\n"; - foreach my $f (@files) { - my ($src, $dst) = @$f; - -f $ovdir."/".$src or Error("missing '$src' in overlay tarball"); - } -} - - -###################################################################### -# -# Extract some useful information -# - -# Extract core name as specified in the build. -my $coreh = readfile($ovdir."/".$pf2."core.h"); - -$coreh =~ /^\s*\#\s*define\s+XCHAL_SW_VERSION\s+(\w+)/m; -my $swversion = $1; -defined($swversion) or Error("missing XCHAL_SW_VERSION in overlay core.h file;\n" - ."overlay is too old, need RB-2008.3 (SW version 7.1.1) or later"); - -$coreh =~ /^\s*\#\s*define\s+XCHAL_CORE_ID\s+"([^"]+)"/m; -my $coreid = $1; -defined($coreid) or Error("missing XCHAL_CORE_ID in overlay core.h file"); - -$coreh =~ /^\s*\#\s*define\s+XCHAL_HW_VERSION_NAME\s+"([^"]+)"/m; -my $hwversion = $1; -defined($hwversion) or Error("missing XCHAL_HW_VERSION_NAME in overlay core.h file"); - - -$swvers_human = sprintf("%u.%u.%u", - $swversion/100000, (($swversion/1000) % 100), ($swversion % 1000)); -my $release = "software version $swvers_human"; -if (-f $ovdir."/release") { - $release = readfile($ovdir."/release"); - chomp($release); -} - - -###################################################################### -# -# Prompt user to be sure this is what he wants to do -# - -# Catch Ctrl-C so we can do a proper cleanup: -sub catch_term { - my $signame = shift; - #print STDERR "whoa!\n"; - cleanup(); - print STDERR "\n$progname: Cleaned up.\n"; - exit 3; -} -$SIG{TERM} = \&catch_term; -$SIG{HUP} = \&catch_term; -$SIG{INT} = \&catch_term; - -$| = 1; -print "\n", - "About to generate package-specific overlay tarballs for the following:\n", - "\n", - " Xtensa processor short name: $config_name\n"; -print " This short name overrides the name specified in the XPG: $coreid\n" if $coreid ne $config_name; -#print " Please ensure that's the name you want. If submitted to the open source\n", -# " community, it can be a hassle to change later on.\n"; -print " Xtensa processor description: $config_long_name\n", - " Targeting Xtensa HW version: $hwversion\n", - " Xtensa configuration overlay: $overlay_tarball\n", - " (release of overlay): $release\n", - " Destination buildroot dir: ".(defined($buildroot_dir)?$buildroot_dir:"(none, not installed)")."\n", - " Destination Linux kernel dir: ".(defined($kernel_dir)?$kernel_dir:"(none, not installed)")."\n", - "\n", - "Are you sure? (y/n) "; -if ($prompt) { - my $line = <STDIN>; - chomp($line); - if ($line !~ /^y(es)?$/i) { - print "\nInstallation aborted.\n"; - cleanup(); - exit 2; - } -} else { - print "YES [no prompt]\n"; -} -print "\n"; - - -###################################################################### -# -# Now generate the tarballs -# - -# Now generate each tarball ... -foreach my $pack (@packages) { - my ($pname, $buildroot_subdir, @files) = @$pack; - my $tarname = "${pname}-xtensa_${config_name}.tgz"; - my $fulltarname; - if (defined($buildroot_dir)) { - my $tarsubname = $buildroot_subdir . "/" . $tarname; - print "Generating and installing $tarsubname ...\n"; - $fulltarname = $buildroot_dir . "/" . $tarsubname; - } else { - print "Generating $tarname ...\n"; - $fulltarname = $ovdir . "/" . $tarname; - } - if (-e $fulltarname) { - if ($force_clobber or !defined($buildroot_dir)) { - unlink($fulltarname) or Error("could not delete '$fulltarname': $!"); - } else { - Error("destination tarball already exists: '$fulltarname'"); - } - } - my $pdir = $ovdir."/tmp-".$pname; - system("rm -fr '${pdir}' 2>/dev/null"); - mkdir $pdir or Error("cannot create directory $pdir"); - foreach my $f (@files) { - my ($src, $dst) = @$f; - # If $dst ends in / , take filename from $src : - if ($dst =~ m|/$|) { - my $fname = $src; - $fname =~ s|^.*/||; - $dst .= $fname; - } - # Ensure destination directory exists: - my $dstdir = $pdir; - while ($dst =~ s|^([^/]+)/+||) { - $dstdir .= "/" . $1; - mkdir($dstdir); - } - # Read file: - my $content = readfile($ovdir."/".$src); - - # Adjust contents of file. - # Fix-up typo: - $content =~ s/XCHAL_SA_(NCP|CP\d+)_/XCHAL_$1_SA_/g; - # Update core name info: - my $iscore = ($content =~ s/^(\s*\#\s*define\s+XCHAL_CORE_ID\s+)"[^"]+"/$1"$config_name"/mg); - $iscore or $content =~ s{^(\s*\#\s*define\s+XCHAL_INST_FETCH_WIDTH\s+\S+\s*(/\*[^\*]*\*/)?\s*$)} - {$1\n\#undef XCHAL_CORE_ID\n\#define XCHAL_CORE_ID\t\t\t"$config_name"\n}smg; - # Update core description info: - $content =~ s/^(\s*\#\s*define\s+XCHAL_CORE_DESCRIPTION\s+)"[^"]+"/$1"$config_long_name"/mg - or $content =~ s{^(\s*\#\s*define\s+XCHAL_CORE_ID\s+\S+\s*(/\*[^\*]*\*/)?\s*$)} - {"$1\n" . ($iscore ? "" : "\n\#undef XCHAL_CORE_DESCRIPTION\n") - . "\#define XCHAL_CORE_DESCRIPTION\t\t\"${config_long_name}\""}smge; - - # Write (possibly modified) file: - writefile($dstdir."/".$dst, $content); - } - my $tarcmd = "tar cfz '${fulltarname}' -C '${pdir}' ."; - system($tarcmd) and Error("failed executing: $tarcmd"); - - # Install Linux kernel overlay: - if ($pname eq "kernel" and defined($kernel_dir)) { - print "Installing Linux kernel overlay from $tarname ...\n"; - my $untarcmd = "tar xfz '${fulltarname}' -C '${kernel_dir}' ."; - system($untarcmd) and Error("failed executing: $tarcmd"); - } - # Possible TODO: update arch/xtensa/{Kconfig,Makefile} to add this config? -} - - -###################################################################### -# -# The End -# - -cleanup(); -print "Done.\n"; -exit 0; - |