public
Description: The Nu programming language.
Homepage: http://programming.nu
Clone URL: git://github.com/timburks/nu.git
Support for escaped tab characters in strings (from John Labovitz).
timburks (author)
Wed Apr 16 09:31:51 -0700 2008
commit  c7c27d10a500f49c59f58587d5683b7736eefc85
tree    697dc26830c43a2e02cc7ad93e79153beb3cca21
parent  4ff0e663593eef5295791e9a1d2b2468295bb5cb
...
404
405
406
 
407
408
409
...
404
405
406
407
408
409
410
0
@@ -404,6 +404,7 @@ static int nu_parse_escape_sequences(NSString *string, int i, int imax, NSMutabl
0
         case 'n': [partial appendCharacter:0x0a]; break;
0
         case 'r': [partial appendCharacter:0x0d]; break;
0
         case 'f': [partial appendCharacter:0x0c]; break;
0
+ case 't': [partial appendCharacter:0x09]; break;
0
         case 'b': [partial appendCharacter:0x08]; break;
0
         case 'a': [partial appendCharacter:0x07]; break;
0
         case 'e': [partial appendCharacter:0x1b]; break;
...
9
10
11
 
12
13
14
...
37
38
39
40
 
41
42
43
44
45
46
47
48
49
 
 
 
 
 
 
 
50
51
52
...
9
10
11
12
13
14
15
...
38
39
40
 
41
42
43
44
 
 
 
 
 
 
45
46
47
48
49
50
51
52
53
54
0
@@ -9,6 +9,7 @@
0
           (assert_equal 10 ("\n" characterAtIndex:0))
0
           (assert_equal 13 ("\r" characterAtIndex:0))
0
           (assert_equal 12 ("\f" characterAtIndex:0))
0
+ (assert_equal 9 ("\t" characterAtIndex:0))
0
           (assert_equal 8 ("\b" characterAtIndex:0))
0
           (assert_equal 7 ("\a" characterAtIndex:0))
0
           (assert_equal 27 ("\e" characterAtIndex:0))
0
@@ -37,16 +38,17 @@
0
      
0
      (imethod (id) testEscapedHereStrings is
0
           (set x <<+END
0
-\n\r\f\b\a\e\s\"\\END) ;; " fix textmate!
0
+\n\r\f\t\b\a\e\s\"\\END) ;; " fix textmate!
0
           (assert_equal 10 (x characterAtIndex:0))
0
           (assert_equal 13 (x characterAtIndex:1))
0
           (assert_equal 12 (x characterAtIndex:2))
0
- (assert_equal 8 (x characterAtIndex:3))
0
- (assert_equal 7 (x characterAtIndex:4))
0
- (assert_equal 27 (x characterAtIndex:5))
0
- (assert_equal 32 (x characterAtIndex:6))
0
- (assert_equal 34 (x characterAtIndex:7))
0
- (assert_equal 92 (x characterAtIndex:8)))
0
+ (assert_equal 9 (x characterAtIndex:3))
0
+ (assert_equal 8 (x characterAtIndex:4))
0
+ (assert_equal 7 (x characterAtIndex:5))
0
+ (assert_equal 27 (x characterAtIndex:6))
0
+ (assert_equal 32 (x characterAtIndex:7))
0
+ (assert_equal 34 (x characterAtIndex:8))
0
+ (assert_equal 92 (x characterAtIndex:9)))
0
      
0
      (imethod (id) testOctalEscapedHereStrings is
0
           (set x <<+END

Comments

    No one has commented yet.