24 |
|
|
25 |
proc ${tool}_load { program args } { |
proc ${tool}_load { program args } { |
26 |
if { [llength $args] > 0 } { |
if { [llength $args] > 0 } { |
27 |
set program_args [lindex $args 0]; |
set program_args [lindex $args 0] |
28 |
} else { |
} else { |
29 |
set program_args "" |
set program_args "" |
30 |
} |
} |
31 |
|
|
32 |
if { [llength $args] > 1 } { |
if { [llength $args] > 1 } { |
33 |
set input_file [lindex $args 1]; |
set input_file [lindex $args 1] |
34 |
} else { |
} else { |
35 |
set input_file ""; |
set input_file "" |
36 |
} |
} |
37 |
return [remote_load target $program $program_args $input_file]; |
return [remote_load target $program $program_args $input_file] |
38 |
} |
} |
39 |
|
|
40 |
proc ${tool}_compile { srcfile destfile compile_type options } { |
proc ${tool}_compile { srcfile destfile compile_type options } { |