| 5570 | } |
| 5571 | |
| 5572 | static BOOLEAN rSleftvList2StringArray(leftv sl, char** p) |
| 5573 | { |
| 5574 | |
| 5575 | while(sl!=NULL) |
| 5576 | { |
| 5577 | if ((sl->rtyp == IDHDL)||(sl->rtyp==ALIAS_CMD)) |
| 5578 | { |
| 5579 | *p = omStrDup(sl->Name()); |
| 5580 | } |
| 5581 | else if (sl->name!=NULL) |
| 5582 | { |
| 5583 | *p = (char*)sl->name; |
| 5584 | sl->name=NULL; |
| 5585 | } |
| 5586 | else if (sl->rtyp==POLY_CMD) |
| 5587 | { |
| 5588 | sleftv s_sl; |
| 5589 | iiConvert(POLY_CMD,ANY_TYPE,-1,sl,&s_sl); |
| 5590 | if (s_sl.name != NULL) |
| 5591 | { |
| 5592 | *p = (char*)s_sl.name; s_sl.name=NULL; |
| 5593 | } |
| 5594 | else |
| 5595 | *p = NULL; |
| 5596 | sl->next = s_sl.next; |
| 5597 | s_sl.next = NULL; |
| 5598 | s_sl.CleanUp(); |
| 5599 | if (*p == NULL) return TRUE; |
| 5600 | } |
| 5601 | else return TRUE; |
| 5602 | p++; |
| 5603 | sl=sl->next; |
| 5604 | } |
| 5605 | return FALSE; |
| 5606 | } |
| 5607 | |
| 5608 | const short MAX_SHORT = 32767; // (1 << (sizeof(short)*8)) - 1; |
| 5609 | |