| 1517 | } |
| 1518 | |
| 1519 | leftv sleftv::LData() |
| 1520 | { |
| 1521 | if (e!=NULL) |
| 1522 | { |
| 1523 | lists l=NULL; |
| 1524 | blackbox *b=getBlackboxStuff(rtyp); |
| 1525 | |
| 1526 | if ((rtyp==LIST_CMD) |
| 1527 | || ((b!=NULL)&&(BB_LIKE_LIST(b)))) |
| 1528 | l=(lists)data; |
| 1529 | else if ((rtyp==IDHDL)&& (IDTYP((idhdl)data)==LIST_CMD)) |
| 1530 | l=IDLIST((idhdl)data); |
| 1531 | else if ((rtyp==IDHDL)&& (IDTYP((idhdl)data)>MAX_TOK)) |
| 1532 | { |
| 1533 | b=getBlackboxStuff(IDTYP((idhdl)data)); |
| 1534 | if (BB_LIKE_LIST(b)) l=IDLIST((idhdl)data); |
| 1535 | } |
| 1536 | else if (rtyp==ALIAS_CMD) |
| 1537 | { |
| 1538 | idhdl h=(idhdl)data; |
| 1539 | l= (lists)(((idhdl)h->data.ustring)->data.ustring); |
| 1540 | } |
| 1541 | if (l!=NULL) |
| 1542 | { |
| 1543 | if ((0>=e->start)||(e->start>l->nr+1)) |
| 1544 | return NULL; |
| 1545 | if (e->next!=NULL) |
| 1546 | { |
| 1547 | l->m[e->start-1].e=e->next; |
| 1548 | leftv r=l->m[e->start-1].LData(); |
| 1549 | l->m[e->start-1].e=NULL; |
| 1550 | return r; |
| 1551 | } |
| 1552 | return &(l->m[e->start-1]); |
| 1553 | } |
| 1554 | } |
| 1555 | return this; |
| 1556 | } |
| 1557 | |
| 1558 | #if 0 |
| 1559 | leftv sleftv::LHdl() |
no test coverage detected