-#
-# install the latest emscripten in a portable directory
-#
-################################################################################
-sub install_emscripten
-{
- my $info = $_[0];
- my $ret;
- print( "Checking if Emscripten is up to date\n");
-
- my $portable = $info->{"portable"};
-
- my $current_dir = getcwd();
-
- print( "\n");
- print( "Installing or updating Emscripten.\n");
- print( ".....You may need a cup of tea.\n");
- print( ".......... In fact, take the afternoon off.\n");
- print( "\n");
-
- if(-e $emscripten_path)
- {
- chdir( $emscripten_path );
- }
- else
- {
- chdir( $root_path );
-
- system("curl -O " . $portable) == 0
- or die "curl failed with error $?. :" . $portable;
-
- my($filename, $dirs, $suffix) = fileparse($portable);
-
- system("tar -xvf " . $filename . $suffix) == 0
- or die "tar unpack failed (nb tar.gz is the presumed downloaded format):" . $filename . $suffix;
-
- system("rm " . $filename . $suffix) == 0
- or die "Cannot remove emsdk portable tar file:" . $filename . $suffix;
-
- chdir( $emscripten_path );
- }
-
- system("./emsdk update") == 0
- or die "Cannot run emsdk? Did the install fail?";
-
- system("./emsdk install latest");
- system("./emsdk activate latest");
- system("bash -c \"source ./emsdk_env.sh\""); # emsdk uses popd ie expects bash
-
- system("emsdk list");
-
- chdir($current_dir);
-}
-
-
-################################################################################