install.tcl

Go to the documentation of this file.

/* !/bin/sh*/
/*  -*- Restart script using tclsh -*- \*/
exec tclsh "$0" "$@"

 curdir =  [pwd]

/*  Build one package*/
/* */
ret  {build} (type package_, type name) {
    global curdir
    
    puts "
Checking system configuration..."
    exec_intercept_warning $package_name "./configure --exec-prefix=${curdir}/packages --prefix=${curdir}/packages --enable-threads"
    
    puts "
Compiling package $package_name..."
    exec_intercept_warning $package_name "make"
    
    puts "
Installing package $package_name..."
    exec_intercept_warning $package_name "make install"
}

/*  Execute a shell-command*/
/*  and avoid interrupt by warnings on standard error stream*/
/* */
ret  {exec_intercept_warning} (type package_, type name , type shell_, type command) {
    # build an 'system exec' command (with redirection of standard error)
    # Intercept warnings issued on standard error and put them in file 'error.log'
    set command [concat exec $shell_command "2>error.log"]
    # Execute shell command
    set local_error [catch $command result]
    # Display results
    puts $result
    # If any error or warning
    if {[file exists error.log]} {
        # Display them
        puts [exec cat error.log]
    }
    # If error, stop execution
    if {$local_error != 0} {
        error "Generation of $package_name aborted"
    }
}


/*  Main*/

cd package-source

/*  Check presence of package uri (module of tcllib)*/
 error =  [catch {package require uri 1.2.1}]
if {$error} {
        
    puts "
/* */
/*                                        #*/
/*          Build package TclLib          #*/
/*                                        #*/
/* */
"
    cd tcllib-1.10
    puts [exec ./installer.tcl -no-wait -no-gui -no-html -no-nroff -no-examples -pkg-path "${curdir}/packages/lib/tcllib-1.10" -no-apps]
    cd ..
}

/*  Check presence of package xml*/
 error =  [catch {package require xml 3.2}]
if {$error} {
    puts "
/* */
/*                                        #*/
/*          Build package XML             #*/
/*                                        #*/
/* */
"

    puts "
Building sub-package TclXML"
    cd tclxml-3.2
    build TclXML

    cd ..
}

    puts "
===================================
    Installation done
==================================="