Return to types.rplc CVS log | Up to [local] / rpl / modules / sets |
Ajout d'un module pour gérer les ensembles.
1: #define TYPE_DECLARATION 2: #include "src/rplexternals.h" 3: #include "sets.h" 4: 5: // Les objets de type ensemble sont délimités par ([ ]) et ne contiennent 6: // que des entiers. 7: 8: declareTypeExtension(parse) 9: if ((*rptr) == '(') 10: { 11: rptr++; 12: 13: if ((*rptr) == '[') 14: { 15: rptr++; 16: while((*rptr) != 0) 17: { 18: switch (*rptr) 19: { 20: case '0': 21: case '1': 22: case '2': 23: case '3': 24: case '4': 25: case '5': 26: case '6': 27: case '7': 28: case '8': 29: case '9': 30: case ' ': 31: { 32: break; 33: } 34: 35: case ']': 36: { 37: rptr++; 38: 39: if ((*rptr) == ')') 40: { 41: rptr++; 42: return(sizeOfParse); 43: } 44: else 45: { 46: parseError; 47: } 48: } 49: 50: default: 51: { 52: parseError; 53: } 54: } 55: 56: rptr++; 57: } 58: } 59: } 60: endTypeExtension 61: 62: declareTypeExtension(new) 63: endTypeExtension 64: 65: declareTypeExtension(dup) 66: endTypeExtension 67: 68: declareTypeExtension(disp) 69: endTypeExtension 70: 71: declareTypeExtension(drop) 72: endTypeExtension