OpenEuphoria

Re: Very First Language to Learn: Phix or Euphoria?

• Posted by jmduro Apr 16, 2018
• 2521 views

My first cross-interpreter program!

elsifdef is not recognized by Phix so I had to add a level to get it working.

ifdef not PHIX then 
  include euphoria/info.e   
  include std/convert.e   
  include std/console.e   
end ifdef 
 
global constant EU40=0, EU41=1, PHIX=2 
global integer eu_interpreter, eu_bits 
 
eu_interpreter = -1 
eu_bits = -1 
ifdef PHIX then 
  eu_bits = machine_bits() 
  eu_interpreter = PHIX 
elsedef 
  ifdef EU4_0 then 
    eu_interpreter = EU40 
    eu_bits = 32 
  elsifdef EU4_1 then 
    eu_interpreter = EU41 
    sequence s = arch_bits() 
    eu_bits = to_number(s[1..2]) 
  end ifdef 
end ifdef 
 
printf(1, "eu_interpreter = %d, eu_bits = %d\n", {eu_interpreter, eu_bits}) 
maybe_any_key() 

Tested on Phix 32 and 64-bit, OE 4.0.5, OE 4.1 32-bit and 64-bit

Jean-Marc