Mercurial > hg > CbC > old > device

comparison conv/c.c @ 79:82d0e30f61dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Mon, 03 Mar 2003 04:56:51 +0900
parents 2b8ba655e572
children 25654dc29ecc
comparison
equal deleted inserted replaced
78:8418d4b7caa7 79:82d0e30f61dd
75 else 75 else
76 fprintf(vout,"%d:",car(cases)); 76 fprintf(vout,"%d:",car(cases));
77 } 77 }
78 78
79 void 79 void
80 code_(NMTBL *n,int args){ 80 code_(NMTBL *n){
81 int args;
82 args=n->dsp;
81 fprintf(vout,"code %s(",n->nm); 83 fprintf(vout,"code %s(",n->nm);
82 while(args) { 84 while(args) {
83 n=(NMTBL *)car(args); 85 n=(NMTBL *)caddr(args);
84 type_print(n->ty,n,vout); 86 type_print(n->ty,n,vout);
85 args=cadr(args); 87 args=cadr(args);
86 if(args) fprintf(vout,","); 88 if(args) fprintf(vout,",");
87 } 89 }
88 fprintf(vout,")\n{"); 90 fprintf(vout,")\n{");
191 funcall_args_(){ 193 funcall_args_(){
192 fprintf(vout,")"); 194 fprintf(vout,")");
193 } 195 }
194 196
195 void 197 void
196 function_(NMTBL *n,int args,int cont){ 198 function_(NMTBL *n,int cont){
199 int args;
197 type_print1(n->ty,0,vout,cont); 200 type_print1(n->ty,0,vout,cont);
198 fprintf(vout,"%s(",n->nm); 201 fprintf(vout,"%s(",n->nm);
199 args=reverse0(args); 202 args=n->dsp;
200 while(args) { 203 while(args) {
201 n=(NMTBL *)car(args); 204 n=(NMTBL *)caddr(args);
202 type_print(n->ty,n,vout); 205 type_print(n->ty,n,vout);
203 args=cadr(args); 206 args=cadr(args);
204 if(args) { 207 if(args) {
205 if(car(args)==(int)&str_ret) break; 208 if(caddr(args)==(int)&str_ret) break;
206 fprintf(vout,","); 209 fprintf(vout,",");
207 } 210 }
208 } 211 }
209 fprintf(vout,")"); 212 fprintf(vout,")");
210 } 213 }