Return to types.rplc CVS log

Up to [local] / rpl / modules / sets

Annotation of rpl/modules/sets/types.rplc, revision 1.1

1.1     ! bertrand    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