build/scripts/dali_env

   1 #!/usr/bin/perl
   2
   3 # Copyright (c) 2018 Samsung Electronics Co., Ltd.
   4
   5 # Licensed under the Apache License, Version 2.0 (the "License");
   6 # you may not use this file except in compliance with the License.
   7 # You may obtain a copy of the License at
   8
   9 # http://www.apache.org/licenses/LICENSE-2.0
  10
  11 # Unless required by applicable law or agreed to in writing, software
  12 # distributed under the License is distributed on an "AS IS" BASIS,
  13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14 # See the License for the specific language governing permissions and
  15 # limitations under the License.
  16
  17 use Config;
  18 use Cwd;
  19 use Cwd 'abs_path';
  20 use File::Basename;
  21 use File::Path;
  22 use File::Copy;
  23 use File::Copy::Recursive qw(dircopy);
  24 use strict;
  25 use Getopt::Long;
  26 use Pod::Usage;
  27
  28 ################################################################################
  29 #                                SYSTEM PACKAGES                               #
  30 ################################################################################
  31 # Add any required system packages to this list - if they are not present, then
  32 # this script will attempt to install them for you.
  33 my @system_packages = (
  34     "automake",
  35     "cmake",
  36     "g++",
  37     "pkg-config",
  38     "libtool",
  39     "ccache",
  40     "libelementary-dev",
  41     "libexif-dev",
  42     "libgles2-mesa-dev",
  43     "libdrm-dev",
  44     "libgif-dev",
  45     "libturbojpeg",
  46     "libturbojpeg0-dev",
  47     "libfribidi-dev",
  48     "libharfbuzz-dev",
  49     "doxygen",
  50     "lcov",
  51     "libcurl4-gnutls-dev",
  52     "curl",
  53     "libssl-dev",
  54     "cifs-utils",
  55     "libgtest-dev",
  56     "libcairo2-dev",
  57 );
  58
  59 # Some packages like require building from source
  60 # v8 is currently disabled until we can get it working without a http proxy being setup
  61 my @source_pkgs = (
  62
  63     {"name" => "disabled-v8",
  64      "force-rebuild" => 0,
  65      "use_depot_tools" => 1,
  66      "repo" => "https://chromium.googlesource.com/v8/v8.git",
  67      "depot_tools_repo" => "https://chromium.googlesource.com/chromium/tools/depot_tools.git",
  68
  69      # original version used with DALi is 3.25.19. 3.32.7 is the latest we can use before
  70      # upgrading DALi to use  c++0x or c++11
  71      "version" => " 3.32.7", "make" => "make -j8 library=shared", "build-mode" =>"debug" },
  72     {"name" => "gtest" },
  73 );
  74
  75 ### Detect any http proxy, part of v8 installation requires this information
  76 my $http_proxy_port;
  77 my $http_proxy_ip;
  78
  79 if( exists $ENV{http_proxy} )
  80 {
  81   # string  split into 3 items  http, //ip, port
  82   my @http_proxy_info =  split( /:/,$ENV{http_proxy}, );
  83
  84   $http_proxy_ip =  @http_proxy_info[1];
  85   $http_proxy_ip =~ s/[\/]//g;;  # remove forward slashes
  86   $http_proxy_port =  @http_proxy_info[2];
  87 }
  88
  89 # Make best guess as to where this program was run from (note, it is
  90 # always possible to override the location of $0 by the calling
  91 # program, so we can't really tell for sure that this is where we
  92 # expect it to be. :/
  93
  94 my $new_env   = 0;
  95 my $exec_path = $0;
  96 if($0 !~ m!^/!)
  97 {
  98     $exec_path = abs_path($0);
  99 }
 100 $exec_path = dirname($exec_path);
 101
 102 my $root_path = getcwd();
 103
 104 # Search for the root dali-env directory
 105 if($exec_path =~ m!dali-env/opt/bin!)
 106 {
 107     # We are using the installed dali_env script
 108
 109     $root_path = $exec_path;
 110     while(basename($root_path) ne "dali-env" && $root_path ne "")
 111     {
 112         $root_path = dirname($root_path);
 113     }
 114 }
 115 elsif($root_path =~ m!dali-env$! or $root_path =~ m!dali-env/!)
 116 {
 117     # We are NOT using the installed dali_env script
 118     # Find dali-env root from current directory
 119
 120     while(basename($root_path) ne "dali-env" && $root_path ne "")
 121     {
 122         $root_path = dirname($root_path);
 123     }
 124 }
 125 else
 126 {
 127     # dali-env root dir should be in the current directory
 128
 129     $root_path .= "/dali-env";
 130
 131     if(! -e $root_path)
 132     {
 133       # Creating a new dali-env
 134
 135       $new_env = 1;
 136     }
 137 }
 138
 139 my $src_path         = "$root_path/src-packages";
 140 my $sbs_path         = "$root_path/target";
 141 my $install_path     = "$root_path/opt";
 142
 143 my $opt_create=0;
 144 my $opt_setenv=0;
 145 my $opt_help=0;
 146 my $opt_man=0;
 147
 148 GetOptions("create"     => \$opt_create,
 149            "setenv"     => \$opt_setenv,
 150            "help"       => \$opt_help,
 151            "man"        => \$opt_man) or pod2usage(2);
 152
 153 pod2usage(1) if $opt_help;
 154 pod2usage(-exitstatus => 0, -verbose => 2) if $opt_man;
 155
 156
 157 ################################################################################
 158
 159 sub create_env
 160 {
 161     mkpath("$install_path/bin");
 162     mkpath("$install_path/lib/pkgconfig");
 163     mkpath("$install_path/include");
 164     mkpath("$install_path/share/aclocal");
 165     mkpath("$src_path");
 166     mkpath("$sbs_path");
 167
 168     copy($0, "$install_path/bin/dali_env");
 169     chmod(0755, "$install_path/bin/dali_env");
 170 }
 171
 172 ################################################################################
 173
 174 sub in_dali_env
 175 {
 176     my $cwd = substr(getcwd(), 0, length($root_path));
 177     #print "cwd = $cwd\nroot = $root_path\n";
 178     return $cwd eq $root_path;
 179 }
 180
 181 ################################################################################
 182
 183 sub create_setenv
 184 {
 185     print <<"EOF";
 186 #
 187 # To use the desktop libraries, please add the following lines to your .bashrc or
 188 # create a setenv script from them, e.g. by running this command as follows
 189 # \$ $install_path/bin/dali_env -s > setenv
 190 #
 191 # You can then source this script by using
 192 # \$ . setenv
 193 #
 194 # Use DESKTOP_PREFIX when running configure in dali/build/tizen:
 195 # \$ CXXFLAGS="-g -O0" ./configure --prefix=\$DESKTOP_PREFIX
 196
 197 export DESKTOP_PREFIX=$install_path
 198 export PATH=$install_path/bin:\$PATH
 199 export LD_LIBRARY_PATH=$install_path/lib:\$LD_LIBRARY_PATH
 200 export INCLUDEDIR=$install_path/include
 201 export PKG_CONFIG_PATH=$install_path/lib/pkgconfig:/usr/lib/pkgconfig:/usr/share/pkgconfig
 202 export DOTNET_CLI_TELEMETRY_OPTOUT=1
 203 export DALI_WINDOW_WIDTH=480
 204 export DALI_WINDOW_HEIGHT=800
 205
 206 EOF
 207 }
 208
 209 ################################################################################
 210
 211 sub check_system_package
 212 {
 213     my $package;
 214     foreach $package (@_)
 215     {
 216         my @x=split(/\s+/, `dpkg -l $package 2> /dev/null|grep $package`);
 217         if($x[0] ne "ii")
 218         {
 219             # Check if the package is available to install, exit-code is 0 if the package is found.
 220             if(system("apt-cache show $package > /dev/null 2>&1") == 0)
 221             {
 222                 print "Attempting to install $package\n";
 223                 system("sudo apt-get -y --force-yes install $package");
 224             }
 225         }
 226     }
 227 }
 228
 229 sub check_system_packages
 230 {
 231     print "Checking for required system packages (may require sudo password)\n";
 232
 233     check_system_package(@system_packages);
 234
 235     my $gnome_v =`dpkg -l gnome-common| tail -1| sed "s/ \\+/ /g" | cut -d' ' -f 3`;
 236     my @am = split(/\./, `automake --version | head -1 | cut -f4 -d' '`);
 237     if($gnome_v =~ /$2.24/ && $am[1]>10)
 238     {
 239         die "Gnome common and automake are not compatible - automake is too new\n";
 240     }
 241     my @gpp_v = (`g++ --version  | head -1` =~ /(\d+)\.(\d+)\.(\d+)/);
 242
 243     if(! (($gpp_v[0] > 4)
 244           ||
 245           ($gpp_v[0] == 4 && $gpp_v[1] > 4)
 246           ||
 247           ($gpp_v[0] == 4 && $gpp_v[1] == 4 && $gpp_v[2] >= 5)))
 248     {
 249         die "You need g++ 4.5.1 or greater to build dali\n";
 250     }
 251 }
 252
 253 sub check_source_packages
 254 {
 255     my $pkgref;
 256
 257     foreach $pkgref (@source_pkgs)
 258     {
 259         my $pkg = $pkgref->{"name"};
 260         if($pkg eq "v8")
 261         {
 262             install_v8( $pkgref );
 263         }
 264         elsif ($pkg eq "gtest")
 265         {
 266             if(! -e "/usr/lib/libgtest.a")
 267             {
 268                 print "Attempting to build $pkg\n";
 269                 # from https://www.eriksmistad.no/getting-started-with-google-test-on-ubuntu/
 270                 run_command("cd /usr/src/gtest; sudo cmake CMakeLists.txt; sudo make; sudo cp *.a /usr/lib; cd -;");
 271             }
 272         }
 273     }
 274 }
 275
 276 ################################################################################
 277
 278 sub create_link
 279 {
 280     my $arch=`uname -i`;
 281     $arch =~ s/\r|\n//g;
 282
 283     my $link = "/usr/lib/$arch-linux-gnu/libturbojpeg.so";
 284
 285     unless (-e $link)
 286     {
 287        print "Creating libjpegturbo symbolic link\n";
 288        system("sudo ln -s $link.0 $link");
 289     }
 290 }
 291
 292 ################################################################################
 293 # Helper to run and print out the command being run and quit if it fails
 294 #
 295 sub run_command
 296 {
 297   my $command = $_[0];
 298   my $ret;
 299   print("Running: $command\n");
 300   $ret = system("$command");
 301   if($ret >> 8) { die "$command failed \n"; }
 302 }
 303
 304 ################################################################################
 305 # later versions of v8 (post mid 2014) require googles depot_tools to build.
 306 #
 307 sub install_google_depot_tools
 308 {
 309
 310 ####
 311 # clone the depo_tools into the source directory and set the path up
 312 ####
 313     my $v8 = $_[0];
 314
 315     my $depot_tools_directory = $src_path . "/depot_tools";
 316     my $depot_tools_repo = $v8->{"depot_tools_repo"};
 317
 318     # clear the directory if exists
 319     rmtree( $depot_tools_directory );
 320
 321     # clone the depot tools
 322     run_command( "git clone " . $depot_tools_repo. " " . $depot_tools_directory );
 323
 324     # add it the the path
 325     $ENV{PATH} = "$ENV{PATH}:$depot_tools_directory";
 326
 327     # need to setup a config file for the proxy
 328     create_boto_config_file( $v8 , $depot_tools_directory );
 329
 330     # set the config location as an environment variable ( used by scripts depot_tools)
 331     $ENV{NO_AUTH_BOTO_CONFIG}="$src_path/depot_tools/.boto";
 332
 333     # change to depot tools directory
 334     chdir( $depot_tools_directory );
 335
 336     # fetch v8
 337     run_command("fetch --nohooks v8");
 338
 339 }
 340
 341
 342 ################################################################################
 343 # later versions of v8 use boto, which currently requires having proxy manually set
 344 #
 345 sub create_boto_config_file
 346 {
 347     my $v8 = $_[0];
 348     my $depot_tools_directory = $_[1];
 349     print(" depot_tools directory = $depot_tools_directory\n");
 350
 351     print("Configuring boto with http proxy IP = ". $http_proxy_ip . ", Port = " . $http_proxy_port . "\n");
 352
 353 # Create the proxy info for the boto file
 354 my $fileContents = <<"END";
 355 [Boto]
 356 debug = 0
 357 num_retries = 2
 358
 359 proxy = $http_proxy_ip
 360 proxy_port = $http_proxy_port
 361 END
 362       # Place the config file in the depot tools folder
 363     my $filename = $depot_tools_directory . "/" . ".boto";
 364     print("Creating Boto config file with proxy settings to file ". $filename . "\n");
 365     my $fh;
 366     open( $fh, '>',  $filename );
 367     print { $fh } $fileContents;
 368     close( $fh );
 369
 370     # export the environment variable
 371     run_command("gclient config https://gclient.googlecode.com/svn/trunk/gclient");
 372
 373     run_command("gclient runhooks");
 374
 375
 376
 377 }
 378 ################################################################################
 379 # We need a specific version of V8 to work with DALi
 380 # - Check a txt file in dali-env to see if v8 needs upgrading (checks gcc version too)
 381 # - Clones the source
 382 # - builds dependencies (v8 automatically clones it's GYP build system)
 383 # - Builds it
 384 # - Create a package file
 385 # It is cloned, then built from source, we create a package file for it, then
 386 # it's copied into dali-env
 387 sub install_v8
 388 {
 389     my $v8 = $_[0];
 390     my $ret;
 391     my $v8Version = $v8->{"version"};
 392     print( "Checking if V8 ". $v8Version. " is installed \n");
 393
 394 ####
 395 # Check currently installed version
 396 # We create a text file with v8 and gcc version in the filename to compare with
 397 # Version file is stored as "v8_2.3.4_installed_built_with_gcc_4_8_3.txt"
 398 ####
 399     # get the gcc version, so if the compiler is updated v8 is re-built
 400     # note: v8 requires gcc version GCC >= 4.6
 401     my $gccVersion = `gcc --version | grep ^gcc | sed 's/^.* //g'`;
 402     chomp( $gccVersion );
 403     my $versionTextFile = $src_path . "/v8_" . $v8Version. "_" . $v8->{"build-mode"} . "_installed_built_with_gcc_". $gccVersion .".txt";
 404
 405     # use stat to see if file exists
 406     my @install_stats = stat $versionTextFile;
 407     if( (scalar(@install_stats)) && $v8->{"force-rebuild"} != 1 )
 408     {
 409       print("Correct V8 version installed\n");
 410       return;
 411     }
 412     else
 413     {
 414       # delete older versions of the version file first ( otherwise when downgrading it thinks version is still installed)
 415       system( "rm " . $src_path . "/v8_*.txt  >/dev/null 2>&1");
 416     }
 417
 418
 419 ####
 420 # Clone the v8 source repository and checkout the version we want
 421 ####
 422     # Need to clone it from repo
 423     my $v8_source_directory;
 424
 425
 426
 427     # newer version of v8 use depot_tools with gclient, git cloned builds do not work
 428     if( $v8->{"use_depot_tools"} == 1)
 429     {
 430       install_google_depot_tools( $v8 );
 431
 432       # v8 is checkout out under depot_tools path
 433       $v8_source_directory = $src_path . "/depot_tools/v8";
 434     }
 435     else
 436     {
 437       $v8_source_directory = $src_path . "/v8";
 438
 439       # delete the old v8 source directpry if exists
 440       rmtree( $v8_source_directory );
 441
 442       # clone the repository
 443       run_command( "git clone " . $v8->{"repo"} . " " . $v8_source_directory );
 444     }
 445
 446     # change to the source directoy for the checkout
 447     chdir( $v8_source_directory );
 448
 449     # checkout the version DALi is compatible with
 450     run_command( "git checkout ". $v8Version );
 451
 452 ####
 453 # Run make dependencies then make for the specific target
 454 ####
 455     if( $v8->{"use_depot_tools"} == 1)
 456     {
 457       run_command("gclient sync");
 458     }
 459     else
 460     {
 461       run_command("make dependencies");
 462     }
 463
 464     # assemble the make command
 465     my $makeCommand = $v8->{"make"};
 466
 467     # need to append architecture and build mode, e.g. x64.debug
 468     my $buildTarget;
 469     if( $Config{use64bitint} ) {
 470        print("Building 64 bit version of V8\n");
 471        $buildTarget= "x64." . $v8->{"build-mode"}
 472     }
 473     else{
 474       print("Building 32 bit version of V8\n");
 475        $buildTarget= "ia32." . $v8->{"build-mode"}
 476     }
 477     $makeCommand .= " " . $buildTarget;
 478     print("Running: $makeCommand\n");
 479     run_command( $makeCommand );
 480
 481 ####
 482 # Manually install the library / header files
 483 ####
 484
 485     # Need to manually install (make install not available on v8 )
 486     my $libSourceDir = "$v8_source_directory/out/$buildTarget/lib.target/";
 487     my $headerSourceDir = "$v8_source_directory/include/";
 488
 489     my $libDestinationDir = $install_path . "/lib/";
 490     my $headerDestinationDir = $install_path . "/include/v8/";
 491
 492     # delete any current v8 libs
 493     system( "rm " . $libDestinationDir . "libv8*");
 494     system( "rm " . $libDestinationDir . "libicu*");
 495
 496
 497     # copy the library and header files
 498     dircopy( $libSourceDir, $libDestinationDir);
 499     dircopy( $headerSourceDir, $headerDestinationDir);
 500
 501
 502     # Copy libv8.so to libv8.so.version (  e.g. libv8.so.1.2.4)
 503     my $v8SoFile = $libDestinationDir . "libv8.so";
 504     my $v8SoVersionFile = $libDestinationDir . "libv8.so." . $v8Version;
 505     move( $v8SoFile, $v8SoVersionFile );
 506
 507     # symlink the libv8.so.1.2.3 to libv8.so
 508     symlink( $v8SoVersionFile, $v8SoFile );
 509     print( "source dir = " . $libSourceDir . " dest dir ". $libDestinationDir . " \n" );
 510
 511
 512 ####
 513 # Create the package file in,
 514 # we keep the library files and header files in v8 sub-directories
 515 ####
 516 my $fileContents = <<"END";
 517 prefix=$install_path
 518 exec_prefix=\${prefix}
 519 apiversion=$v8Version
 520 libdir=\${exec_prefix}/lib
 521 includedir=\${prefix}/include/v8
 522
 523 Name: v8 JavaScript engine - runtime library
 524 Description: V8 is Google's open source JavaScript engine.
 525 Version: \${apiversion}
 526 Libs: -L\${libdir} -lv8 -licuuc -licui18n
 527 Cflags: -I\${includedir}
 528 END
 529
 530   my $filename = $install_path . "/lib/pkgconfig/" . "v8.pc";
 531   print("writing to file ". $filename . "\n");
 532   my $fh;
 533   if( open( $fh, '>',  $filename ) )
 534   {
 535     print { $fh } $fileContents;
 536     close( $fh );
 537   }
 538   else
 539   {
 540     die "failed to create " . $filename ."\n";
 541   }
 542
 543   print("Installed V8 " .$v8Version . " OK\n");
 544
 545 #####
 546 #
 547 ####
 548       my $versionFile;
 549       open( $versionFile, '>',  $versionTextFile );
 550       close( $versionFile );
 551       print("Installing V8 version $v8Version\n");
 552
 553 }
 554
 555 ################################################################################
 556 #                                       MAIN
 557 ################################################################################
 558
 559
 560 if($opt_create)
 561 {
 562     my $new_root = getcwd() . "/dali-env";
 563
 564     if($exec_path =~ m!dali-env/opt/bin!)
 565     {
 566         die "Already in a dali-env directory\n";
 567         # Could query if user wants to re-create?
 568     }
 569     elsif(-e $root_path)
 570     {
 571         die "$root_path already exists\n";
 572     }
 573     elsif(-e $new_root)
 574     {
 575         die "A dali-env directory already exists here\n";
 576     }
 577
 578     check_system_packages();
 579
 580     create_link();
 581
 582     create_env();
 583
 584     # do this after source directory structure created in create_env
 585     check_source_packages();
 586
 587     create_setenv();
 588 }
 589 elsif($opt_setenv)
 590 {
 591     if(! -d $root_path)
 592     {
 593         die "$root_path does not exist\n";
 594     }
 595     elsif($new_env)
 596     {
 597         die "$root_path is not an existing environment\n";
 598     }
 599     create_setenv();
 600 }
 601 else
 602 {
 603     pod2usage(1);
 604 }
 605
 606 __END__
 607
 608 =head1 NAME
 609
 610 dali_env - Create the DALi environment for Ubuntu
 611
 612 =head1 SYNOPSIS
 613
 614 dali_env [-c] [-s] [-h|-m]
 615
 616 =head1 OPTIONS
 617
 618 =over 28
 619
 620 =item B<-c|--create>
 621
 622 Create a DALi environment directory in the current directory.
 623
 624 =item B<-s|--setenv>
 625
 626 Display environment variables to setup.
 627
 628 =item B<-h|--help>
 629
 630 Display this help
 631
 632 =item B<-m|--man>
 633
 634 Display the manual page
 635
 636 =back
 637
 638 =head1 DESCRIPTION
 639
 640 B<dali_env>
 641
 642 Gets the required dependencies for DALi and them to a local directory. Can also create a setenv script to point to the installation.
 643
 644 =cut