Sending exit to vsim prompt

[tuspa]

Hi,
I work on modelslim installed on unix server.It has its own prompt called vsim prompt.By using perl script,i call the vsim prompt ,I run what i want and then its stays in vsim promp.so,my question is how to switch to unix prompt from vsim prompt.

the following is the code:

#!/usr/intel/bin/perl
$vlog = "vlog *.v < tt.txt";
print "$vlog";
open (PINGTEST, "vsim rwr0unit -f tcl_script -c |");
$i=1;
while (<PINGTEST>){
    print "Line # ".$i." ".$_;
    $i++;
    print STDOUT "exit" if $_ =~ /VSIM/; ## need help over here.
}
print "All done!\n";
close PINGTEST;
 

Thanks,
Tushit

[miller]

If you want to interact with an external program, then what you're looking for is Expect.

cpan Expect

- Miller

[tuspa]

I know that exit is the command to exit vsim.so what will be coomands in CPAN.
Thanks

[miller]

Observe the following two scripts.

# name: vsim.pl
#
# Response to http://www.thescripts.com/forum/thread680957.html
#
# Script to simulate interaction of the vsim prompt.  Give introduction,
# then prompt to exit command.
 
use strict;
 
print <<'END_INTRO';
Mary had a little lamb
Then the lamb ate Mary
and it was little no more.
END_INTRO
 
my $choice = '';
while ($choice ne 'exit') {
    print "VSIM: ";
    for (;;) {
        $choice = <STDIN>;
        chomp $choice;
        last if $choice =~ qr/^\w+$/;
        print "VSIM (requires a single word; exit to quit): ";
    }
    print "You typed '$choice'\n";
}
 
1;
 
__END__
 

# name: scratch.pl
#
# Response to http://www.thescripts.com/forum/thread680957.html
#
# Script to simulate interact with the vsim.pl script.  Goal is simply
# to print the introduction of the vsim.pl script using the Expect
# module.
#
# Dependency: Expect
 
use Expect;
 
use strict;
 
my $exp = Expect->spawn("perl vsim.pl")
    or die "Cannot spawn: $!\n";
$exp->log_stdout(0);
 
$exp->expect(5,
    [ qr/VSIM:/ => sub {
        my $exp = shift;
        my $linenum = 0;
        for my $line (split "\n", $exp->before) {
            print 'Line # '.++$linenum.' '.$line."\n";
        }
        $exp->send("exit\n");
    } ],
) or die "Expect timed out: $!";
 
$exp->soft_close();
 
1;
 
__END__
 

You'll need to look at the Expect module documentation that I linked to before. But if you're running this on a unix based system, this should work just fine.

- Miller

[tuspa]

sir,thanks for the reply..but you are not understang my question.
look at this

#!/usr/intel/bin/perl
$vlog = "vlog *.v > tt.txt";
print "$vlog";
system ("vsim rwr0unit -f tcl_script -c > tt.txt");=> this line runs the in build
script and calls upon the modelsim.
close PINGTEST;

Output what i get is
filc5087[84]% perl tu_2.pl
vlog *.v < tt.txtReading /nfs/site/eda/data/eda410/mentor/modelsim/6.2d_cse/common/tcl/vsim/pref.tcl

# 6.2d

# vsim -L gtech -L dware -L dw01 -L dw02 -L dw03 -L dw04 -L misc -L ctech -L misr -L noa -L spymi -L test_bench -L spypipecs -L gfxramdft -L gen6mem -L aub_ware -L
ramdft -L maunit -L icunit -L emunit -L euunit -L fpuunit -c rwr0unit
# // QuestaSim 6.2d Oct 16 2006 Linux 2.6.5-7.276.PTF.196309.1-smp
# //
# // Copyright 2006 Mentor Graphics Corporation
# // All Rights Reserved.
# //
# // THIS WORK CONTAINS TRADE SECRET AND
# // PROPRIETARY INFORMATION WHICH IS THE PROPERTY
# // OF MENTOR GRAPHICS CORPORATION OR ITS LICENSORS
# // AND IS SUBJECT TO LICENSE TERMS.
# //
# Loading /p/gen6/validation/3d/rowwrapunit/models/v070719_tus/lib/rowwrapunit.rwr0unit
# Loading /nfs/site/eda/data/eda410/mentor/modelsim/6.2d_cse/common/linux/../sv_std.std
# Loading /p/gen6/validation/3d/maunit/models/latest_rel/lib/maunit.maunit
# Loading /p/gen6/validation/3d/maunit/models/latest_rel/lib/maunit.inarb
# Loading /p/gen6/validation/lib/aub_ware/models/v070703r/lib/aub_ware.gen_fifo
# ** Warning: (vsim-3010) [TSCALE] - Module 'gen_fifo' has a `timescale directive in effect, but previous modules do not.
# Region: /rwr0unit/maunit0/inarb1/td_ma_data_input_fifo
# Loading /p/gen6/validation/lib/aub_ware/models/v070703r/lib/aub_ware.gen_ram
# ** Warning: (vsim-3009) [TSCALE] - Module 'gen_ram' does not have a `timescale directive in effect, but previous modules do.
# Region: /rwr0unit/maunit0/inarb1/td_ma_data_input_fifo/RAM0
# Loading /p/gen6/validation/lib/dware/models/v070706.1/lib/dware.DW01_decode
# ** Warning: (vsim-3009) [TSCALE] - Module 'DW01_decode' does not have a `timescale directive in effect, but previous modules do.
# Region: /rwr0unit/maunit0/inarb1/td_ma_data_input_fifo/RAM0/WR_DECODER
# Loading /p/gen6/validation/lib/dware/models/v070706.1/lib/dware.DW01_mux_any
# ** Warning: (vsim-3009) [TSCALE] - Module 'DW01_mux_any' does not have a `timescale directive in effect, but previous modules do.
# Region: /rwr0unit/maunit0/inarb1/td_ma_data_input_fifo/RAM0/INST_MUX
# Loading /p/gen6/validation/3d/maunit/models/latest_rel/lib/maunit.outarb
# ** Warning: (vsim-3009) [TSCALE] - Module 'outarb' does not have a `timescale directive in effect, but previous modules do.
# Region: /rwr0unit/maunit0/outarb1
# Loading /p/gen6/validation/3d/maunit/models/latest_rel/lib/maunit.ma_clkgatefub
# ** Warning: (vsim-3009) [TSCALE] - Module 'ma_clkgatefub' does not have a `timescale directive in effect, but previous modules do.
# Region: /rwr0unit/maunit0/ma_clkgatefub1
# Loading /p/gen6/validation/lib/misc/models/v070718/lib/misc.clock_gate
# ** Warning: (vsim-3009) [TSCALE] - Module 'clock_gate' does not have a `timescale directive in effect, but previous modules do.
# Region: /rwr0unit/maunit0/ma_clkgatefub1/ma_clock_gate_i
# Loading /p/gen6/validation/3d/maunit/models/latest_rel/lib/maunit.ma_noa
# ** Warning: (vsim-3009) [TSCALE] - Module 'ma_noa' does not have a `timescale directive in effect, but previous modules do.
# Region: /rwr0unit/maunit0/ma_noa1
# Loading /p/gen6/validation/lib/noa/models/v070327/lib/noa.noa2_varnodes
# ** Warning: (vsim-3009) [TSCALE] - Module 'noa2_varnodes' does not have a `timescale directive in effect, but previous modules do.
exit => this is what i type to exit from the vsim command.
VSIM 1>filc5087[84]%

So i want to know how to send the command exit from script rather than typing manually.

Thanks

[miller]

sir,thanks for the reply..but you are not understang my question.

No. I'm understanding it just fine.

Take a look at the scripts that I provided to you, and the module that I gave a reference for. You'll be able to figure it out from there.

- Miller

[tuspa]

I tried with one which you gave it to me by schanging perl vsim.pl to perl tu_2.pl,VSIM: to VSIM 1>,but still it is not working.olease help me.

[miller]

I've helped you as much as I can.

"Expect" is the tool that I would use for this type of problem (assuming you're on unix). The example scripts that I provided demonstrate how this would be done.

You'll have to figure out how to apply it to your problem yourself.

- Miller