#define TYPE_DECLARATION
#include "src/rplexternals.h"
#include "sets.h"

// Les objets de type ensemble sont délimités par ([ ]) et ne contiennent
// que des entiers.

declareTypeExtension(parse)
	if ((*rptr) == '(')
	{
		rptr++;

		if ((*rptr) == '[')
		{
			rptr++;
			while((*rptr) != 0)
			{
				switch (*rptr)
				{
					case '0':
					case '1':
					case '2':
					case '3':
					case '4':
					case '5':
					case '6':
					case '7':
					case '8':
					case '9':
					case ' ':
					{
						break;
					}

					case ']':
					{
						rptr++;

						if ((*rptr) == ')')
						{
							rptr++;
							return(sizeOfParse);
						}
						else
						{
							parseError;
						}
					}

					default:
					{
						parseError;
					}
				}

				rptr++;
			}
		}
	}
endTypeExtension

declareTypeExtension(new)
endTypeExtension

declareTypeExtension(dup)
endTypeExtension

declareTypeExtension(disp)
endTypeExtension

declareTypeExtension(drop)
endTypeExtension