Changeset 158 for trunk/tcl


Ignore:
Timestamp:
Jan 29, 2006 8:24:25 PM (17 years ago)
Author:
mmc
Message:
  • Fixed installation so that this "gui" part can be installed with standard autoconf techniques: configure, make all, make install The "gui" library is loaded via "package require RapptureGUI"
  • Added C code for Rappture::rlimit, to support limits on CPU time and file sizes. Default limits are 15 mins of CPU and 1MB for each file. These can be overridden in tool.xml by using <tool><limits><cputime> and <tool><limits><filesize>.
  • Added C code for Rappture::rusage, so we can collect resource usage for all child processes. Each Simulation now reports a line of usage to stderr as follows:

MiddlewareTime?: job=# event=simulation start=xxx cputime=xxx ...

  • Fixed Rappture::exec so that it reports proper error messages when rlimits are execeeded.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tcl/install.tcl

    r115 r158  
    1616
    1717set package "Rappture"
    18 set version "0.9"
     18set version "1.0"
    1919
    2020proc find {dir} {
     
    5050}
    5151
    52 set origdir [pwd]
    53 foreach context {. ../gui} {
    54     cd $context
    55 
    56     foreach file [find .] {
    57         set target [file join $targetdir $file]
    58         if {[file isdirectory $file]} {
    59             puts "making directory $target..."
    60             catch {file mkdir $target}
    61             fixperms $target ugo+rx
    62         } else {
    63             puts "installing $target..."
    64             file copy -force $file $target
    65             fixperms $target ugo+r
    66         }
    67     }
     52set sdir [file join $targetdir scripts]
     53if {![file exists $sdir]} {
     54    puts "making directory $sdir..."
     55    catch {file mkdir $sdir}
     56    fixperms $sdir ugo+rx
    6857}
    6958
    70 cd ..
    71 catch {file mkdir [file join $targetdir lib]}
    72 foreach file [find ./lib] {
    73     set target [file join $targetdir $file]
    74     if {[file isdirectory $file]} {
    75         puts "making directory $target..."
    76         catch {file mkdir $target}
    77         fixperms $target ugo+rx
    78     } else {
    79         puts "installing $target..."
    80         file copy -force $file $target
    81         fixperms $target ugo+r
    82     }
     59foreach file {
     60    ./scripts/library.tcl
     61    ../gui/scripts/exec.tcl
     62    ../gui/scripts/units.tcl
     63    ../gui/scripts/result.tcl
     64} {
     65    set target [file join $targetdir scripts [file tail $file]]
     66    puts "installing $target..."
     67    file copy -force $file $target
     68    fixperms $target ugo+r
    8369}
    84 
    85 cd $origdir
    8670
    8771set fid [open [file join $targetdir pkgIndex.tcl] w]
Note: See TracChangeset for help on using the changeset viewer.