URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [itcl/] [testsuite/] [config/] [default.exp] - Blame information for rev 1765

Details | Compare with Previous | View Log


# Dejagnu test wrapper for [incr tcl] test suite
# Copyright 1997 Cygnus Solutions
 
# Extract and print version number.
proc itcl_version {} {
  # No way to extract this in version 1.5.
  clone_output "itcl version 1.5\n"
}
 
proc itcl_exit {} {
}
 
proc itcl_start {} {
  global spawn_id objdir
 
  spawn $objdir/src/itcl_sh
}
 
proc itcl_load {} {
}

Line No.	Rev	Author	Line
1	578	markom	`# Dejagnu test wrapper for [incr tcl] test suite`
2			`# Copyright 1997 Cygnus Solutions`
3
4			`# Extract and print version number.`
5			`proc itcl_version {} {`
6			`# No way to extract this in version 1.5.`
7			`clone_output "itcl version 1.5\n"`
8			`}`
9
10			`proc itcl_exit {} {`
11			`}`
12
13			`proc itcl_start {} {`
14			`global spawn_id objdir`
15
16			`spawn $objdir/src/itcl_sh`
17			`}`
18
19			`proc itcl_load {} {`
20			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [itcl/] [testsuite/] [config/] [default.exp] - Blame information for rev 1765