OpenEuphoria

1. enum type

• Posted by irv 3 weeks ago
• 364 views

From the docs:

enum type color RED=4, GREEN=7, BLACK=1, BLUE=3 , PINK=10 end type 
 
? color(RED)   --> 1 
? color(GREEN) --> 2 
? color(BLACK) --> 3 
? color(BLUE)  --> 4 
? color(PINK)  --> 5 
 
constant color_names = {"rouge", "vert", "noir", "bleu", "rose"} 
 
puts(1, color_names[color(BLUE)]) --> bleu 

In real life:

irv@irv-desktop:~/new_gtk$ eui enums.ex 
1 
1 
1 
1 
1 
rouge 

Euphoria Interpreter v4.2.0 development 
   64-bit Linux, Using System Memory 
   Revision Date: 2025-01-24 03:31:36, Id: 22b5124 

3. Re: enum type

• Posted by jmduro 3 weeks ago
• 295 views

irv@irv-desktop:~/new_gtk$ eui enums.ex 
1 
1 
1 
1 
1 
rouge 

Euphoria Interpreter v4.2.0 development 
   64-bit Linux, Using System Memory 
   Revision Date: 2025-01-24 03:31:36, Id: 22b5124 

Same for me on Windows X64 with same release 4.2.0 development.

Jean-Marc

5. Re: enum type

• Posted by petelomax 5 days ago
• 129 views

It works like that in Phix, apart from the fact that RED/GREEN/BLUE/BLACK are builtin constants and can't be overridden.

7. Re: enum type

• Posted by ghaberek (admin) 5 days ago
• 117 views

It appears 4.1 emits the type routine as a call to find_from() with the literal values. This is the described behavior.

SubProgram [/home/ghaberek/Projects/OpenEuphoria/euphoria/source/enumtest.ex-color:00150]  [i1:160] 
    STACK SPACE: 2 
    Required:    2 
 
        [/home/ghaberek/Projects/OpenEuphoria/euphoria/source/enumtest.ex:1]  (1) 
     1: 176 160 161 146 163              # FIND_FROM: [i1:160], [LIT {4,7,1,3,10}:161], [LIT 1:146] => 
                                         #     [_temp_:163] 
     6: 028 150 162 163                  # RETURNF: [_temp_:163] block[162]                                     10: 043                              # BADRETURNF: 
End SubProgram [color:00150] 

However, 4.2 emits the type routine as a series of equal() or equal() or equal(), etc.

SubProgram [/home/ghaberek/Projects/OpenEuphoria/euphoria/source/enumtest.ex-color:00151]  [i1:161] 
    STACK SPACE: 10 
    Required:    10 
 
        [/home/ghaberek/Projects/OpenEuphoria/euphoria/source/enumtest.ex:1]  (1) 
     1: 153 161 152 163                  # EQUAL: [i1:161], [RED:152] => [_temp_:163] 
     5: 153 161 154 164                  # EQUAL: [i1:161], [GREEN:154] => [_temp_:164] 
     9: 009 164 163 165                  # OR: [_temp_:164], [_temp_:163] => [_temp_:165] 
    13: 153 161 156 166                  # EQUAL: [i1:161], [BLACK:156] => [_temp_:166] 
    17: 009 166 165 167                  # OR: [_temp_:166], [_temp_:165] => [_temp_:167] 
    21: 153 161 157 168                  # EQUAL: [i1:161], [BLUE:157] => [_temp_:168] 
    25: 009 168 167 169                  # OR: [_temp_:168], [_temp_:167] => [_temp_:169] 
    29: 153 161 159 170                  # EQUAL: [i1:161], [PINK:159] => [_temp_:170] 
    33: 009 170 169 171                  # OR: [_temp_:170], [_temp_:169] => [_temp_:171] 
    37: 208 165                          # DEREF_TEMP: [_temp_:165] 
    39: 208 167                          # DEREF_TEMP: [_temp_:167] 
    41: 208 169                          # DEREF_TEMP: [_temp_:169] 
    43: 209 163                          # NOVALUE_TEMP: [_temp_:163] 
    45: 209 164                          # NOVALUE_TEMP: [_temp_:164] 
    47: 209 166                          # NOVALUE_TEMP: [_temp_:166] 
    49: 209 168                          # NOVALUE_TEMP: [_temp_:168] 
    51: 209 170                          # NOVALUE_TEMP: [_temp_:170] 
    53: 028 151 162 171                  # RETURNF: [_temp_:171] block[162] 
    57: 043                              # BADRETURNF: 
End SubProgram [color:00151] 

The plot thickens. That's all I can do for now, but I'll revisit this again soon.

-Greg