New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11788 for utils/developer – NEMO

Changeset 11788 for utils/developer


Ignore:
Timestamp:
2019-10-24T15:06:36+02:00 (4 years ago)
Author:
nicolasmartin
Message:

Cosmetic changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/developer/fortran.py

    r11781 r11788  
    3939 
    4040    tokens = { 
     41 
    4142        'root': [ 
    4243            include('cmt' ), 
    4344            include('nlst'), 
    4445            include('str' ), 
     46            include('num' ), 
    4547            include('bool'), 
    4648            include('opr' ), 
     
    4850            include('core'), 
    4951            (r'[a-z][\w$]*', Name), 
    50             include('num'), 
    5152            (r'[\s]+', Text), 
    5253        ], 
     54 
    5355        'cmt': [ 
    5456            (r'^#.*\n', Comment.Preproc), 
    55             (r'!.*\n', Comment), 
    56         ], 
     57            (r'!.*\n' , Comment        ), 
     58        ], 
     59 
    5760        'core': [ 
    5861            # Statements 
     
    7578                'STOP', 'SUBMODULE', 'SUBROUTINE', 'SYNC', 'SYNCALL', 'SYNCIMAGES', 
    7679                'SYNCMEMORY', 'TARGET', 'THEN', 'TYPE', 'UNLOCK', 'USE', 'VALUE', 
    77                 'VOLATILE', 'WHERE', 'WRITE', 'WHILE'), prefix=r'\b', suffix=r'\s*\b'), 
    78             Keyword), 
     80                'VOLATILE', 'WHERE', 'WRITE', 'WHILE' 
     81            ), prefix=r'\b', suffix=r'\s*\b'), Keyword), 
    7982 
    8083            # Data Types 
     
    8790                'C_INT_FAST64_T', 'C_INTMAX_T', 'C_INTPTR_T', 'C_FLOAT', 'C_DOUBLE', 
    8891                'C_LONG_DOUBLE', 'C_FLOAT_COMPLEX', 'C_DOUBLE_COMPLEX', 
    89                 'C_LONG_DOUBLE_COMPLEX', 'C_BOOL', 'C_CHAR', 'C_PTR', 'C_FUNPTR'), 
    90                    prefix=r'\b', suffix=r'\s*\b'), 
    91              Keyword.Type), 
     92                'C_LONG_DOUBLE_COMPLEX', 'C_BOOL', 'C_CHAR', 'C_PTR', 'C_FUNPTR' 
     93            ), prefix=r'\b', suffix=r'\s*\b'), Keyword.Type), 
    9294 
    9395            # 
     
    145147                'Transpose', 'Trim', 'TtyNam', 'UBound', 'UCoBound', 'UMask', 
    146148                'Unlink', 'Unpack', 'Verify', 'XOr', 'ZAbs', 'ZCos', 'ZExp', 
    147                 'ZLog', 'ZSin', 'ZSqRt'), prefix=r'\b', suffix=r'\s*\b'), 
    148              Name.Builtin), 
    149         ], 
     149                'ZLog', 'ZSin', 'ZSqRt' 
     150            ), prefix=r'\b', suffix=r'\s*\b'), Name.Builtin), 
     151        ], 
     152 
    150153        'bool': [ 
    151154            # Booleans 
    152155            (r'\.(true|false)\.', Keyword.Constant), 
    153156        ], 
     157 
    154158        'opr': [ 
    155159            # Operators 
     
    159163            (r'\.(eq|ne|lt|le|gt|ge|not|and|or|eqv|neqv)\.', Operator.Word), 
    160164        ], 
     165 
    161166        'punc': [ 
    162167            # Punctuation 
     
    164169            (r'&(?=\s)'      , Punctuation), 
    165170        ], 
     171 
    166172        'nlst': [ 
    167173            (r'^&[a-z]\w*', Name.Namespace), 
    168 #            include('cmt'), 
    169             (r'^(\s*)([a-z]\w*)(\()?(\s*)?(\d*)?(\s*)?(\))?(%[a-z]\w*)?(\s*)(=)', 
    170              bygroups(Text, Name.Variable, 
    171                       Punctuation  , Text, Number.Integer, Text, Punctuation, 
    172                       Name.Variable, 
    173                       Text, Operator                                         )), 
    174             (r'([+-])', Operator), 
     174            (r'([a-z]\w*)(\()?(\s*)?(\d*)?(\s*)?(\))?(%[a-z]\w*)?(\s*)(=)', bygroups( 
     175                Name.Variable, 
     176                Punctuation  , Text         , Number.Integer, Text, Punctuation, 
     177                Name.Variable, 
     178                Text         , Operator 
     179            )), 
    175180            (r'^\/$', Name.Namespace), 
    176181        ], 
     182 
    177183        'str': [ 
    178184            (r'(?s)"(\\\\|\\[0-7]+|\\.|[^"\\])*"', String.Double), 
    179185            (r"(?s)'(\\\\|\\[0-7]+|\\.|[^'\\])*'", String.Single), 
    180186        ], 
     187 
    181188        'num': [ 
    182             (r'\d+(?![.e])(_[a-z]\w+)?', Number.Integer), 
    183             (r'[+-]?\d*\.\d+([ed][-+]?\d+)?(_[a-z]\w+)?', Number.Float), 
    184             (r'[+-]?\d+\.\d*([ed][-+]?\d+)?(_[a-z]\w+)?', Number.Float), 
    185             (r'[+-]?\d+(\.\d*)?[ed][-+]?\d+(_[a-z]\w+)?', Number.Float), 
     189            (r'\d+(?![.e])(_[a-z]\w+)?'                 , Number.Integer), 
     190            (r'[+-]?\d*\.\d+([ed][-+]?\d+)?(_[a-z]\w+)?', Number.Float  ), 
     191            (r'[+-]?\d+\.\d*([ed][-+]?\d+)?(_[a-z]\w+)?', Number.Float  ), 
     192            (r'[+-]?\d+(\.\d*)?[ed][-+]?\d+(_[a-z]\w+)?', Number.Float  ), 
    186193        ], 
    187194    } 
Note: See TracChangeset for help on using the changeset viewer.