lib/standard.exp

   1 # Copyright (C) 1992-2010, 2020 Free Software Foundation, Inc.
   2 #
   3 # This file is part of DejaGnu.
   4 #
   5 # DejaGnu is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # DejaGnu is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 # General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with DejaGnu; if not, write to the Free Software Foundation,
  17 # Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
  18
  19 # A set of standard functions for tools. Calls the target-specific
  20 # versions.
  21
  22 proc ${tool}_load { program args } {
  23     if { [llength $args] > 0 } {
  24         set program_args [lindex $args 0]
  25     } else {
  26         set program_args ""
  27     }
  28
  29     if { [llength $args] > 1 } {
  30         set input_file [lindex $args 1]
  31     } else {
  32         set input_file ""
  33     }
  34
  35     return [remote_load target $program $program_args $input_file]
  36 }
  37
  38 proc ${tool}_compile { srcfile destfile compile_type options } {
  39     target_compile $srcfile $destfile $compile_type $options
  40 }