File: tcl.tcl

package info (click to toggle)
emacs 1%3A30.1%2B1-6
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 187,092 kB
  • sloc: lisp: 1,367,417; ansic: 466,479; objc: 19,117; cpp: 8,817; java: 8,780; sh: 8,119; makefile: 7,283; python: 3,788; perl: 1,788; xml: 1,720; yacc: 1,566; asm: 1,150; php: 1,035; pascal: 1,011; awk: 937; cs: 880; ada: 725; ruby: 658; javascript: 187; erlang: 153; tcl: 16
file content (26 lines) | stat: -rw-r--r-- 876 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
 
# Some sample code that tries to exercise the font-lock
# of various forms of writing strings.

puts "hello}"; # Top-level strings can contain unescaped closing braces!

puts a"b;                  # Non-delimited strings can contain quotes!
puts a""b;                 # Even several of them!

proc foo1 {} {
    puts "hello";   # Normal case!
    puts "hello\};  # This will signal an error when `foo1` is called!
}

proc foo2 {} {
    puts "hello; # This will also signal an error when `foo2` is called!
}

proc foo3 {} {
    puts a"b;                   # This will not signal an error!
    puts a""b";                 # And that won't either!
    puts "a""b";                # But this will!
}

# FIXME: The [..] interpolation within "..." strings is not properly
# handled by the current `syntax-propertize-function`!
set a "Testing: [split "192.168.1.1/24" "/"] address";