| 143 | } |
| 144 | |
| 145 | BOOLEAN insert_set (leftv result, leftv arg) |
| 146 | { |
| 147 | if ((arg==NULL) |
| 148 | ||(arg->next==NULL) |
| 149 | ||(arg->Typ()!=si_intset_type_id) |
| 150 | ||(arg->next->Typ()!=INT_CMD)) |
| 151 | { |
| 152 | WerrorS("syntax: insert_set(<intset>,<int>)"); |
| 153 | return TRUE; |
| 154 | } |
| 155 | si_intset *a=(si_intset*)arg->Data(); |
| 156 | int b=(int)(long)arg->next->Data(); |
| 157 | a->insert(b); |
| 158 | result->rtyp=NONE; |
| 159 | result->data=NULL; |
| 160 | return FALSE; |
| 161 | } |
| 162 | |
| 163 | BOOLEAN equal_set (leftv result, leftv arg) |
| 164 | { |