Changeset 22387 for gs2-extensions/video
- Timestamp:
- 2010-07-13T13:44:54+12:00 (14 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/video/trunk/video-and-audio-setup.pl
r22376 r22387 10 10 require util; 11 11 12 if (!defined $ENV{'GEXTVIDEO'}) { 12 my $env_ext = "GEXTVIDEO"; 13 my $ext_desc = "the Video and Audio Extension"; 14 15 if (!defined $ENV{$env_ext}) { 13 16 17 my $ext_home = cwd(); 18 my $ext_os = $ENV{'GSDLOS'}; 14 19 15 $ENV{'GEXTVIDEO'} = cwd(); 16 print STDERR "**** GEXTVIDEO=$ENV{'GEXTVIDEO'}\n"; 20 my ($ext_dir,$_prefix_dir) = File::Basename::fileparse($ext_home); 21 22 print STDERR "*** ext_dir = $ext_dir\n\n\n"; 23 24 25 my $ext_installed = $env_ext."_INSTALLED"; 26 27 $ENV{$env_ext} = $ext_home; 17 28 18 $ENV{'GEXTVIDEO_INSTALLED'} 19 = &util::filename_cat($ENV{'GEXTVIDEO'},"installed"); 29 $ENV{$ext_installed} = &util::filename_cat($ext_home,$ext_os); 20 30 21 my $video_bin 22 = &util::filename_cat($ENV{'GEXTVIDEO_INSTALLED'},$ENV{'GSDLOS'},"bin"); 23 my $video_lib 24 = &util::filename_cat($ENV{'GEXTVIDEO_INSTALLED'},$ENV{'GSDLOS'},"lib"); 31 my $ext_bin = &util::filename_cat($ENV{$ext_installed},"bin"); 32 my $ext_lib = &util::filename_cat($ENV{$ext_installed},"lib"); 25 33 26 &util::envvar_append("PATH",$ video_bin);34 &util::envvar_append("PATH",$ext_bin); 27 35 28 # For Linux (no harm is setting is this for MacOs)29 &util::envvar_append("LD_LIBRARY_PATH",$video_lib);30 31 # For MacOs (no harm is setting is this for Linux etc)32 &util::envvar_append("DYLD_LIBRARY_PATH",$video_lib);33 36 if ($ext_os =~ m/darwin/i) { 37 &util::envvar_append("DYLD_LIBRARY_PATH",$ext_lib); 38 } 39 else { 40 &util::envvar_append("LD_LIBRARY_PATH",$ext_lib); 41 } 34 42 35 43 # GSDLEXTS always uses : as a separator 36 44 if (defined $ENV{'GSDLEXTS'}) { 37 $ENV{'GSDLEXTS'} .= ": video";45 $ENV{'GSDLEXTS'} .= ":$ext_dir"; 38 46 } 39 47 else { 40 $ENV{'GSDLEXTS'} .="video";48 $ENV{'GSDLEXTS'} = $ext_dir; 41 49 } 50 51 print STDERR "+Your environment is now setup for $ext_desc\n"; 52 } 53 else { 54 print STDERR "+Your environment is already setup for $ext_desc\n"; 55 } 42 56 57 if (scalar(@ARGV>0)) { 58 59 print STDERR "\n"; 60 61 my $cmd = join(" ",map {$_ = "\"$_\""} @ARGV); 62 63 if (system($cmd)!=0) { 64 print STDERR "\nError: Failed to run '$cmd'\n"; 65 print STDERR "$!\n"; 66 } 43 67 } 68 69 1;
Note:
See TracChangeset
for help on using the changeset viewer.