Changeset 13


Ignore:
Timestamp:
Aug 1, 2002, 12:35:21 AM (18 years ago)
Author:
landonf (Landon Fuller)
Message:

Error reporting in target execution

Location:
trunk/base/Tcl
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/Tcl/portchecksum.1.0.tcl

    r2 r13  
    99
    1010# define globals
    11 globals portchecksum::options md5sum
     11globals portchecksum::options md5file
    1212
    1313# define options
    14 options portchecksum::options md5sum
     14options portchecksum::options md5file
    1515
    1616proc portchecksum::main {args} {
    1717        global portname
    1818        puts "Checksumming port: $portname"
     19        return 0
    1920}
  • trunk/base/Tcl/portextract.1.0.tcl

    r2 r13  
    1111        global portname
    1212        puts "Extracting port: $portname"
     13        return 0
    1314}
  • trunk/base/Tcl/portfetch.1.0.tcl

    r12 r13  
    4747                }
    4848        }
     49        return 0
    4950}
    5051
     
    5253        global portname
    5354        # Check for files, download if neccesary
    54         portfetch::checkfiles
     55        return [portfetch::checkfiles]
    5556}
  • trunk/base/Tcl/portmain.1.0.tcl

    r2 r13  
    2121        # puts "Building port: $portname"
    2222        # do nothing
     23        return 0
    2324}
  • trunk/base/Tcl/portpatch.1.0.tcl

    r2 r13  
    1111        global portname
    1212        puts "Patching port: $portname"
     13        return 0
    1314}
  • trunk/base/Tcl/portutil.1.0.tcl

    r9 r13  
    129129                        }
    130130                }
    131                 $uparray(procedure,$target) $target
    132                 lappend finished $target
     131                if {[$uparray(procedure,$target) $target] == 0} {
     132                        lappend finished $target
     133                } else {
     134                        puts "Error in target '$target'"
     135                        return -1
     136                }
    133137        }
    134138        return 0
Note: See TracChangeset for help on using the changeset viewer.