File: test.tcl

package info (click to toggle)
swig 1.1p5-1
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 9,448 kB
  • ctags: 5,025
  • sloc: cpp: 21,599; ansic: 13,333; yacc: 3,297; python: 2,794; makefile: 2,197; perl: 1,984; tcl: 1,583; sh: 736; lisp: 201; objc: 143
file content (49 lines) | stat: -rw-r--r-- 651 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
# Create and manipulate a variety of arrays

source array.tcl

# Create a double array

set d [ Array double 100 ]

# Clear it

ClearArray $d 100 0.0

# Fill it with values

for {set i 0} {$i < 100} {incr i 1} {
    $d set $i [expr {sin($i)}]
}

# Print out the values

for {set i 0} {$i < 100} {incr i 1} {
    puts [$d get $i]
}

# ---- Now do exactly the same thing with integers -----

# Create an int array

set a [ Array int 100]

# Clear it

ClearArray $a 100 0

# Fill it with values

for {set i 0} {$i < 100} {incr i 1} {
    $a set $i [expr {2*$i}]
}

# Print out the values

for {set i 0} {$i < 100} {incr i 1} {
    puts [$a get $i]
}