ADTaaronthesisarmehastexperimentalcleanupdtorsdeferred_resnenumforallpointerdecayjacob/cs343translationjenkinssandboxnewastnewastuniqueexprno_listpersistentindexerpthreademulationqualifiedEnum
Last change
on this file since 7cccc20 was
7cccc20,
checked in by Peter A. Buhr <pabuhr@…>, 6 years ago

one more speed up by subdividing long sout chains


Property mode set to
100644

File size:
1.7 KB

Line  

1  // 

2  // Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo 

3  // 

4  // The contents of this file are covered under the licence agreement in the 

5  // file "LICENCE" distributed with Cforall. 

6  // 

7  // io1.cfa  

8  // 

9  // Author : Peter A. Buhr 

10  // Created On : Wed Mar 2 16:56:02 2016 

11  // Last Modified By : Peter A. Buhr 

12  // Last Modified On : Wed Dec 12 18:23:44 2018 

13  // Update Count : 110 

14  // 

15  

16  #include <fstream.hfa> 

17  

18  int main() { 

19  int x = 3, y = 5, z = 7; 

20  sout  x * 3  y + 1  z << 2  x == y  (x  y)  (x  y)  (x > z ? 1 : 2); 

21  sout  1  2  3; 

22  sout  '1'  '2'  '3'; 

23  sout  1  ""  2  ""  3; 

24  sout; 

25  

26  sout  "opening delimiters"; 

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; 

37  

38  sout  "closing delimiters"; 

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"; 

50  

51  sout  "opening/closing delimiters"; 

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"; 

58  

59  sout  "override opening/closing delimiters"; 

60  sout  "x ( "  1  " ) x"  2  " , x"  3  " :x: "  4; 

61  sout; 

62  } 

63  

64  // Local Variables: // 

65  // tabwidth: 4 // 

66  // compilecommand: "cfa io1.cfa" // 

67  // End: // 

Note: See
TracBrowser
for help on using the repository browser.