Changeset 7cccc20


Ignore:
Timestamp:
Dec 12, 2018, 6:32:47 PM (3 years ago)
Author:
Peter A. Buhr <pabuhr@…>
Branches:
aaron-thesis, arm-eh, cleanup-dtors, deferred_resn, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, no_list, persistent-indexer
Children:
5dd3098
Parents:
ac1ae2c
Message:

one more speed up by subdividing long sout chains

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tests/io1.cfa

    rac1ae2c r7cccc20  
    1010// Created On       : Wed Mar  2 16:56:02 2016
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Tue Dec  4 21:40:28 2018
    13 // Update Count     : 106
     12// Last Modified On : Wed Dec 12 18:23:44 2018
     13// Update Count     : 110
    1414//
    1515
     
    2525
    2626        sout | "opening delimiters";
    27         sout
    28                  | "x (" | 1
    29                  | "x [" | 2
    30                  | "x {" | 3
    31                  | "x =" | 4
    32                  | "x $" | 5
    33                  | "x £" | 6
    34                  | "x ¥" | 7
    35                  | "x ¡" | 8
    36                  | "x ¿" | 9
    37                  | "x «" | 10
    38                  | nl;
     27        sout | "x (" | 1 | nonl;
     28        sout | "x [" | 2 | nonl;
     29        sout | "x {" | 3 | nonl;
     30        sout | "x =" | 4 | nonl;
     31        sout | "x $" | 5 | nonl;
     32        sout | "x £" | 6 | nonl;
     33        sout | "x ¥" | 7 | nonl;
     34        sout | "x ¡" | 8 | nonl;
     35        sout | "x ¿" | 9 | nonl;
     36        sout | "x «" | 10;
    3937
    4038        sout | "closing delimiters";
    41         sout
    42                  | 1 | ", x"
    43                  | 2 | ". x"
    44                  | 3 | "; x"
    45                  | 4 | "! x"
    46                  | 5 | "? x"
    47                  | 6 | "% x"
    48                  | 7 | "¢ x"
    49                  | 8 | "» x"
    50                  | 9 | ") x"
    51                  | 10 | "] x"
    52                  | 11 | "} x"
    53                  | nl;
     39        sout | 1 | ", x" | nonl;
     40        sout | 2 | ". x" | nonl;
     41        sout | 3 | "; x" | nonl;
     42        sout | 4 | "! x" | nonl;
     43        sout | 5 | "? x" | nonl;
     44        sout | 6 | "% x" | nonl;
     45        sout | 7 | "¢ x" | nonl;
     46        sout | 8 | "» x" | nonl;
     47        sout | 9 | ") x" | nonl;
     48        sout | 10 | "] x" | nonl;
     49        sout | 11 | "} x";
    5450
    5551        sout | "opening/closing delimiters";
    56         sout
    57                  | "x`" | 1 | "`x'" | 2
    58                  | "'x\"" | 3 | "\"x:" | 4
    59                  | ":x " | 5 | " x\t" | 6
    60                  | "\tx\f" | 7 | "\fx\v" | 8
    61                  | "\vx\n" | 9 | "\nx\r" | 10
    62                  | "\rx"
    63                  | nl;
     52        sout | "x`" | 1 | "`x'" | 2 | nonl;
     53        sout | "'x\"" | 3 | "\"x:" | 4 | nonl;
     54        sout | ":x " | 5 | " x\t" | 6 | nonl;
     55        sout | "\tx\f" | 7 | "\fx\v" | 8 | nonl;
     56        sout | "\vx\n" | 9 | "\nx\r" | 10 | nonl;
     57        sout | "\rx";
    6458
    6559        sout | "override opening/closing delimiters";
Note: See TracChangeset for help on using the changeset viewer.