Lines Matching refs:ostr
24 { int i; for(i=0;i<ind;i++) ostr+= " "; }
59 string ostr; in declstr() local
60 if(isExtern()) ostr+="extern "; in declstr()
61 if(isCondDef()) ostr+="cond "; in declstr()
62 if(isFunctDef()) ostr+=type().str() + " "; in declstr()
63 if(isProcDef()) ostr+= "procedure "; in declstr()
64 if(isQuFunDef()) ostr+= "qufunct "; in declstr()
65 if(isQuOpDef() || isFunOp()) ostr+= "operator "; in declstr()
67 ostr+= id()+"("+pargs->prtstr()+")"; in declstr()
68 return ostr; in declstr()
78 string ostr; in prtstr() local
82 ostr+=first(c)->prtstr(ind); in prtstr()
84 ostr+= ","+e->prtstr(ind); in prtstr()
86 return ostr; in prtstr()
90 string ostr; in prtstr() local
92 ostr+= string("\"") + _val.str() + string("\""); in prtstr()
94 ostr+= _val.str(); in prtstr()
95 return ostr; in prtstr()
109 string ostr; in prtstr() local
110 ostr=pvar->prtstr(ind); in prtstr()
111 ostr+= "["+pexpr1->prtstr(ind); in prtstr()
112 if(isSet(flagRANGE)) ostr+= ".."; else ostr+= "::"; in prtstr()
113 ostr+=pexpr2->prtstr(ind)+"]"; in prtstr()
114 return ostr; in prtstr()
118 string ostr; in prtstr() local
120 case sNEG: ostr+= "-"; break; in prtstr()
121 case sNOT: ostr+= "not "; break; in prtstr()
122 case sLENGTH: ostr+= "#"; break; in prtstr()
123 default: ostr+= "%UnOp% "; in prtstr()
125 ostr+=pexpr->prtstr(ind); in prtstr()
126 return ostr; in prtstr()
130 string ostr; in binop_prtstr() local
142 if(par) ostr+= "("; in binop_prtstr()
144 ostr+=((sBinOp*)pexpr1)->binop_prtstr(ind,this); in binop_prtstr()
146 ostr+=pexpr1->prtstr(ind); in binop_prtstr()
148 case sADD: ostr+= "+"; break; in binop_prtstr()
149 case sSUB: ostr+= "-"; break; in binop_prtstr()
150 case sMULT: ostr+= "*"; break; in binop_prtstr()
151 case sDIV: ostr+= "/"; break; in binop_prtstr()
152 case sMOD: ostr+= " mod "; break; in binop_prtstr()
153 case sPOW: ostr+= "^"; break; in binop_prtstr()
154 case sLESS: ostr+= "<"; break; in binop_prtstr()
155 case sEQUAL: ostr+= "=="; break; in binop_prtstr()
156 case sLEEQ: ostr+= "<="; break; in binop_prtstr()
157 case sNOTEQ: ostr+= "!="; break; in binop_prtstr()
158 case sAND: ostr+= " and "; break; in binop_prtstr()
159 case sOR: ostr+= " or "; break; in binop_prtstr()
160 case sXOR: ostr+= " xor "; break; in binop_prtstr()
161 case sCONCAT: ostr+= "&"; break; in binop_prtstr()
162 default: ostr+= " %BinOp% "; in binop_prtstr()
165 ostr+=((sBinOp*)pexpr2)->binop_prtstr(ind,this); in binop_prtstr()
167 ostr+=pexpr2->prtstr(ind); in binop_prtstr()
168 if(par) ostr+=")"; in binop_prtstr()
169 return ostr; in binop_prtstr()
181 string ostr; in prtstr() local
183 case sEXP : ostr+= "exp" ; break; in prtstr()
184 case sSIN : ostr+= "sin" ; break; in prtstr()
185 case sCOS : ostr+= "cos" ; break; in prtstr()
186 case sTAN : ostr+= "tan" ; break; in prtstr()
187 case sCOT : ostr+= "cot" ; break; in prtstr()
188 case sSINH : ostr+= "sinh" ; break; in prtstr()
189 case sCOSH : ostr+= "cosh" ; break; in prtstr()
190 case sTANH : ostr+= "tanh" ; break; in prtstr()
191 case sCOTH : ostr+= "coth" ; break; in prtstr()
192 case sABS : ostr+= "abs" ; break; in prtstr()
193 case sRE : ostr+= "Re" ; break; in prtstr()
194 case sIM : ostr+= "Im" ; break; in prtstr()
195 case sCONJ : ostr+= "conj" ; break; in prtstr()
196 case sFLOOR : ostr+= "floor" ; break; in prtstr()
197 case sCEIL : ostr+= "ceil" ; break; in prtstr()
198 case sSQRT : ostr+= "sqrt" ; break; in prtstr()
199 case sINOT : ostr+= "not" ; break; in prtstr()
200 case sINT : ostr+= "int" ; break; in prtstr()
201 case sREAL : ostr+= "real" ; break; in prtstr()
202 case sCOMPLEX: ostr+= "complex" ; break; in prtstr()
203 case sSTRING : ostr+= "string" ; break; in prtstr()
204 default: ostr+= " %BaseFunct% "; in prtstr()
206 ostr+="("+pexpr->prtstr(ind)+")"; in prtstr()
207 return ostr; in prtstr()
211 string ostr; in prtstr() local
213 case sLOG : ostr+= "log" ; break; in prtstr()
214 case sRANDOM : ostr+= "random" ; break; in prtstr()
215 case sMIN : ostr+= "min" ; break; in prtstr()
216 case sMAX : ostr+= "max" ; break; in prtstr()
217 case sGCD : ostr+= "gcd" ; break; in prtstr()
218 case sLCM : ostr+= "lcm" ; break; in prtstr()
219 case sBIT : ostr+= "bit" ; break; in prtstr()
220 case sIAND : ostr+= "and" ; break; in prtstr()
221 case sIOR : ostr+= "or" ; break; in prtstr()
222 case sIXOR : ostr+= "xor" ; break; in prtstr()
223 case sVECTOR : ostr+= "vector" ; break; in prtstr()
224 case sMATRIX : ostr+= "matrix" ; break; in prtstr()
232 ostr+= "tensor"; in prtstr()
233 ostr+= '0'+(object()-sSCALAR); in prtstr()
235 default: ostr+= " %ListFunct% "; in prtstr()
237 ostr+="("+pexpr->prtstr(ind)+")"; in prtstr()
238 return ostr; in prtstr()
248 string ostr; in prtstr() local
252 ostr+=first(c)->prtstr(ind); in prtstr()
253 while((s=next(c))) ostr+=s->prtstr(ind); in prtstr()
254 return ostr; in prtstr()
258 string ostr; in prtstr() local
260 if(isInv()) ostr+="!"; in prtstr()
261 ostr+= id() + "("+ppar->prtstr(ind)+");"+NL(); in prtstr()
262 return ostr; in prtstr()
266 string ostr; in prtstr() local
268 ostr+=pvar->prtstr(ind); in prtstr()
269 if(psubs) ostr+="["+psubs->prtstr(ind)+"]"; in prtstr()
270 ostr+=" = "+pexpr->prtstr(ind)+ ";"+NL(); in prtstr()
271 return ostr; in prtstr()
275 string ostr; in prtstr() local
277 ostr+= "for "+pvar->prtstr(ind)+ " = "; in prtstr()
278 ostr+=pfrom->prtstr(ind)+ " to "; in prtstr()
279 ostr+=pto->prtstr(ind); in prtstr()
280 if(pstep) { ostr+= " step "; ostr+=pstep->prtstr(ind); }; in prtstr()
281 ostr+= " {"+NL(); in prtstr()
282 ostr+=pbody->prtstr(INC()); in prtstr()
284 ostr+="}"+NL(); in prtstr()
285 return ostr; in prtstr()
289 string ostr; in prtstr() local
291 ostr+= "if "+pcond->prtstr(ind); ostr+= " {"; in prtstr()
292 if(isSet(flagQUFORK)) ostr+=" // forking"; in prtstr()
293 ostr+=NL(); in prtstr()
294 ostr+=pthen->prtstr(INC()); in prtstr()
297 ostr+= "} else {"+NL()+pelse->prtstr(INC()); in prtstr()
300 ostr+="}"+NL(); in prtstr()
301 return ostr; in prtstr()
305 string ostr; in prtstr() local
307 ostr+= "while "+cond()->prtstr(ind)+" {"+NL(); in prtstr()
308 ostr+=body()->prtstr(INC()); in prtstr()
310 ostr+="}"+NL(); in prtstr()
311 return ostr; in prtstr()
315 string ostr; in prtstr() local
317 ostr+= "{"+NL(); in prtstr()
318 ostr+=body()->prtstr(INC()); in prtstr()
320 ostr+="} until "+cond()->prtstr(ind)+";"+NL(); in prtstr()
321 return ostr; in prtstr()
325 string ostr; in prtstr() local
327 ostr+= "break;"+NL(); in prtstr()
328 return ostr; in prtstr()
332 string ostr; in prtstr() local
334 ostr+= "return "+pexpr->prtstr(ind); ostr+= ";"+NL(); in prtstr()
335 return ostr; in prtstr()
339 string ostr; in prtstr() local
341 ostr+= "input "; in prtstr()
342 if(pprompt) ostr+=pprompt->prtstr()+","; in prtstr()
343 ostr+= pvar->prtstr()+";"+NL(); in prtstr()
344 return ostr; in prtstr()
348 string ostr; in prtstr() local
350 ostr+="print "+plist->prtstr()+";"+NL(); in prtstr()
351 return ostr; in prtstr()
355 string ostr; in prtstr() local
357 ostr+="exit"; in prtstr()
358 if(pmsg) ostr+=" "+pmsg->prtstr(); in prtstr()
359 ostr+=";"+NL(); in prtstr()
360 return ostr; in prtstr()
364 string ostr; in prtstr() local
366 ostr+= "measure "; in prtstr()
367 ostr+= pstate->prtstr(); in prtstr()
368 if(pvar) ostr+=","+pvar->prtstr(); in prtstr()
369 ostr+=";"+NL(); in prtstr()
370 return ostr; in prtstr()
374 string ostr; in prtstr() local
376 ostr+="include \""+fname+"\";"+NL(); in prtstr()
377 return ostr; in prtstr()
381 string ostr; in prtstr() local
383 ostr+="reset;"+NL(); in prtstr()
384 return ostr; in prtstr()
394 string ostr; in prtstr() local
396 ostr+="dump"; in prtstr()
397 if(pexpr) ostr+=" "+pexpr->prtstr(); in prtstr()
398 ostr+=";"+NL(); in prtstr()
399 return ostr; in prtstr()
403 string ostr; in prtstr() local
405 return ostr+"shell;"+NL(); in prtstr()
409 string ostr; in prtstr() local
411 ostr+="list"; in prtstr()
412 if(plist) ostr+=" "+plist->prtstr(); in prtstr()
413 ostr+=";"+NL(); in prtstr()
414 return ostr; in prtstr()
418 string ostr; in prtstr() local
420 ostr+="load"; in prtstr()
421 if(pexpr) ostr+=" "+pexpr->prtstr(); in prtstr()
422 ostr+=";"+NL(); in prtstr()
423 return ostr; in prtstr()
427 string ostr; in prtstr() local
429 ostr+="save"; in prtstr()
430 if(pexpr) ostr+=" "+pexpr->prtstr(); in prtstr()
431 ostr+=";"+NL(); in prtstr()
432 return ostr; in prtstr()
436 string ostr; in prtstr() local
438 ostr+="set "+opt; in prtstr()
439 if(pexpr) ostr+=" "+pexpr->prtstr(); in prtstr()
440 ostr+=";"+NL(); in prtstr()
441 return ostr; in prtstr()
445 string ostr; in prtstr() local
447 return ostr+"shell;"+NL(); in prtstr()
456 string ostr; in prtstr() local
460 ostr+=first(c)->prtstr(ind); in prtstr()
462 if(d->object()==sARGDEF) ostr+= ","; in prtstr()
463 ostr+=d->prtstr(ind); in prtstr()
465 return ostr; in prtstr()
469 string ostr; in prtstr() local
470 ostr+= type().str() + " " + id(); in prtstr()
471 return ostr; in prtstr()
475 string ostr; in prtstr() local
477 ostr+= type().str() + " " + id(); in prtstr()
478 if(plen) { ostr+= "["+plen->prtstr(ind)+ "]"; } in prtstr()
479 if(pinit) { ostr+= " = "+pinit->prtstr(ind); } in prtstr()
480 ostr+= ";"+NL(); in prtstr()
481 return ostr; in prtstr()
485 string ostr; in prtstr() local
487 ostr+= "const " + id() + " = "; in prtstr()
488 ostr+=pexpr->prtstr(ind); ostr+= ";"+NL(); in prtstr()
489 return ostr; in prtstr()
493 string ostr; in prtstr() local
495 ostr+=declstr(); in prtstr()
497 ostr+= ";"+NL(); in prtstr()
499 ostr+=" {"+NL()+pdefs->prtstr(INC())+pbody->prtstr(INC()); in prtstr()
501 ostr+="}"+NL(); in prtstr()
503 return ostr; in prtstr()