source: tests/coroutine/.expect/fmtLines.txt @ 9306559f

arm-ehjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-expr
Last change on this file since 9306559f was f8cd310, checked in by Peter A. Buhr <pabuhr@…>, 3 years ago

update file names in emacs compile directive

  • Property mode set to 100644
File size: 2.4 KB
Line 
1////   Cfo  rall   Ver  sion 
2 1.0  .0 C  opyr  ight   (C) 
3 201  7 Un  iver  sity   of   
4Wate  rloo  ////   The   con 
5tent  s of   thi  s fi  le a 
6re c  over  ed u  nder   the 
7 lic  ence   agr  eeme  nt i 
8n th  e//   file   "LI  CENC 
9E" d  istr  ibut  ed w  ith   
10Cfor  all.  ////   fmt  Line 
11s.cc   --/  ///   Auth  or   
12             : P  eter   A.   
13Buhr  // C  reat  ed O  n     
14      : Su  n Se  p 17   21: 
1556:1  5 20  17//   Las  t Mo 
16difi  ed B  y :   Pete  r A. 
17 Buh  r//   Last   Mod  ifie 
18d On   : F  ri M  ar 2  2 13 
19:41:  03 2  019/  / Up  date 
20 Cou  nt       :   33/  /#in 
21clud  e <f  stre  am.h  fa># 
22incl  ude   <cor  outi  ne.h 
23fa>c  orou  tine   For  mat   
24{       ch  ar c  h;                                                                             
25        //   used   for   com  muni 
26cati  on        i  nt g  , b;                             
27                                                        /  / gl  obal   bec 
28ause   use  d in   des  truc 
29tor}  ;voi  d ?{  }( F  orma 
30t &   fmt   ) {      r  esum 
31e( f  mt )  ;                                                                           / 
32/ st  art   coro  utin  e}vo 
33id ^  ?{}(   For  mat   & fm 
34t )   {      if   ( fm  t.g   
35!= 0   ||   fmt.  b !=   0 ) 
36 sou  t |   nl;}  void   mai 
37n( F  orma  t &   fmt   ) {       
38for   ( ;;   ) {                                                                 
39                //   for   as   many   cha 
40ract  ers               for   ( f  mt.g 
41 = 0  ; fm  t.g   < 5;   fmt 
42.g +  = 1   ) {         //   grou 
43ps o  f 5   bloc  ks                    for 
44 ( f  mt.b   = 0  ; fm  t.b   
45< 4;   fmt  .b +  = 1   ) {       
46// b  lock  s of   4 c  hara 
47cter  s                         for   ( ;  ; )   
48{                                                         // f  or n  ewli 
49ne c  hara  cter  s                                     su 
50spen  d();                                      if   ( fm 
51t.ch   !=   '\n'   ) b  reak 
52;               /  / ig  nore   new  line 
53                                  } //   for                              sout 
54 | f  mt.c  h;                                                  //   
55prin  t ch  arac  ter                   }   
56// f  or                        sou  t |   "  " 
57;                                                               //   prin  t bl 
58ock   sepa  rato  r             }   //   
59for             sou  t |   nl;                                   
60                                  // p  rint   gro  up s 
61epar  ator      } /  / fo  r} / 
62/ ma  invo  id p  rt(   Form 
63at &   fmt  , ch  ar c  h )   
64{      fmt  .ch   = ch  ;     
65 res  ume(   fmt   );}   //   
66prti  nt m  ain(  ) {     Form 
67at f  mt;         char   ch;    for 
68 ( ;  ; )   {           s  in |   ch; 
69                                                                                //   rea  d on 
70e ch  arac  ter     if   ( e 
71of(   sin   ) )   brea  k;               
72                                        //   eof   ?            p  rt(   
73fmt,   ch   );  }   //   for} 
74 //   main  // L  ocal   Var 
75iabl  es:   ////   tab  -wid 
76th:   4 //  // c  ompi  le-c 
77omma  nd:   "cfa   fmt  Line 
78s.cf  a" /  ///   End:   //
Note: See TracBrowser for help on using the repository browser.