~ubuntu-branches/ubuntu/edgy/swig1.3/edgy

« back to all changes in this revision

Viewing changes to Examples/tcl/constants/runme.tcl

• browse files at revision 4
• compare with another revision
• download diff
• download tarball
• view history from revision 4

Show diffs side-by-side

added

removed

Examples/tcl/constants/runme.tcl

 

1

# file: runme.tcl

 

2

 

 

3

catch { load ./example[info sharedlibextension] example}

 

4

 

 

5

puts "ICONST  = $ICONST (should be 42)"

 

6

puts "FCONST  = $FCONST (should be 2.1828)"

 

7

puts "CCONS T = $CCONST (should be 'x')"

 

8

puts "CCONST2 = $CCONST2 (this should be on a separate line)"

 

9

puts "SCONST  = $SCONST (should be 'Hello World')"

 

10

puts "SCONST2 = $SCONST2 (should be '\"Hello World\"')" 

 

11

puts "EXPR    = $EXPR (should be 48.5484)"

 

12

puts "iconst  = $iconst (should be 37)"

 

13

puts "fconst  = $fconst (should be 3.14)"

 

14

 

 

15

if { [catch {

 

16

    puts "EXTERN = $EXTERN (Arg! This shouldn't print anything)"

 

17

}]} {

 

18

    puts "EXTERN isn't defined (good)"

 

19

}

 

20

 

 

21

if { [catch {

 

22

    puts "FOO    = $FOO (Arg! This shouldn't print anything)"

 

23

}]} {

 

24

    puts "FOO isn't defined (good)"

 

25

}

 

26

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1