#!/usr/bin/perl

use File::Basename ;
use Cwd 'abs_path';

if ( ! exists $ENV{TRICK_HOME} ) {
    $trick_bin = dirname(abs_path($0)) ;
    $trick_home = dirname($trick_bin) ;

    # set TRICK_HOME based on the value of trick_home
    $ENV{TRICK_HOME} = $trick_home ;
}

$kernel = `uname -s` ;
chomp $kernel ;
$machine = `uname -m` ;
chomp $machine ;

system ("$ENV{TRICK_HOME}/trick_source/codegen/Interface_Code_Gen/ICG_${kernel}_${machine}", @ARGV) ;
exit $? >> 8 ;