OpenEuphoria

Re: string_exec()

• Posted by jmduro Jul 11, 2015
• 3341 views

To build the free interpreter fom the commercial one, it was as simple as this with CA-Realizer 2(first line untested)

SourceFile = QSys(_CmdLine) 
FileOpen(1, SourceFile) 
LOOP 
	IF NOT FileEOF(1) THEN 
		FileRead(1, s) 
	ELSE 
		EXIT LOOP 
	END IF 
	IF Len(s) > 0 THEN 
		EXECUTE s 
	END IF 
END LOOP 
FileClose(1) 

People had just to compile this as an executable to build a new interpreter.