| 257 | } |
| 258 | |
| 259 | BOOLEAN newstruct_Op1(int op, leftv res, leftv arg) |
| 260 | { |
| 261 | // interpreter: arg is newstruct |
| 262 | blackbox *a=getBlackboxStuff(arg->Typ()); |
| 263 | newstruct_desc nt=(newstruct_desc)a->data; |
| 264 | newstruct_proc p=nt->procs; |
| 265 | |
| 266 | while((p!=NULL) &&( (p->t!=op) || (p->args!=1) )) p=p->next; |
| 267 | |
| 268 | if (p!=NULL) |
| 269 | { |
| 270 | idrec hh; |
| 271 | hh.Init(); |
| 272 | hh.id=Tok2Cmdname(p->t); |
| 273 | hh.typ=PROC_CMD; |
| 274 | hh.data.pinf=p->p; |
| 275 | BOOLEAN sl=iiMake_proc(&hh,NULL,arg); |
| 276 | if (sl) return TRUE; |
| 277 | else |
| 278 | { |
| 279 | memcpy(res,&iiRETURNEXPR,sizeof(sleftv)); |
| 280 | iiRETURNEXPR.Init(); |
| 281 | return FALSE; |
| 282 | } |
| 283 | } |
| 284 | return blackboxDefaultOp1(op,res,arg); |
| 285 | } |
| 286 | |
| 287 | BOOLEAN newstruct_Assign(leftv l, leftv r) |
| 288 | { |
no test coverage detected