1. I'm totaly new
- Posted by Daniel Hirsch <daniel at KTB.NET> Nov 19, 1996
- 1770 views
Hi! I am completly new to the Euphoria language. I downloaded it on an impulse from a local BBS, and was pretty surprised when I found out how cool it is. So I have read through most of the doc's, and printed out some of them, but am still wondering about something (maybe I missed it, or it's not mentioned..I don't know). Is there away to use code or parts of another language in Euphoria? Say for instance, that I am a novice C programmer, and have made some very low level routines for certain things (I have actually done one or two..partly in C and partly in Assembly). Is there any way for me to use that code directly?? Or would I have to totally port all the commands to the Euphoria code? Could I keep what I had done with the assembly as is (hey..I'm used to inline-assembly or using .OBJ's from compiled ssembly, gimme a break :) I'd appreciate any help, Daniel =-=-=-=-=-=-=- This message was telepathically sent to you by: Daniel Hirsch daniel at ktb.net C/C++ Beginners Web Page: http://www.ktb.net/~daniel
2. Re: I'm totaly new
- Posted by Michael Packard <lgp at EXO.COM> Nov 19, 1996
- 1739 views
On Tue, 19 Nov 1996, Daniel Hirsch wrote: > > I am completly new to the Euphoria language. I downloaded it on an > impulse from a local BBS, and was pretty surprised when I found out how > cool it is. So I have read through most of the doc's, and printed out > some of them, but am still wondering about something (maybe I missed it, > or it's not mentioned..I don't know). Is there away to use code or parts > of another language in Euphoria? > > Say for instance, that I am a novice C programmer, and have made some very > low level routines for certain things (I have actually done one or > two..partly in C and partly in Assembly). Is there any way for me to use > that code directly?? Or would I have to totally port all the commands to > the Euphoria code? Could I keep what I had done with the assembly as is > (hey..I'm used to inline-assembly or using .OBJ's from compiled ssembly, > gimme a break :) I suppose, if you wanted to. Why you would is beyond me. =) Euphoria is a way cool language and is well suited to just about any program application, from boring databases to exciting arcade games. Michael Packard Lord Generic Productions lgp at exo.com http://exo.com/~lgp A Crash Course in Game Design and Production http://exo.com/~lgp/euphoria
3. Re: I'm totaly new
- Posted by Jacques Deschenes <desja at QUEBECTEL.COM> Nov 19, 1996
- 1739 views
- Last edited Nov 20, 1996
--=====================_848474958==_ At 17:55 19-11-96 -0800, you wrote: >---------------------- Information from the mail header ----------------------- >Sender: Euphoria Programming for MS-DOS <EUPHORIA at >MIAMIU.ACS.MUOHIO.EDU> >Poster: Daniel Hirsch <daniel at KTB.NET> >Subject: I'm totaly new >------------------------------------------------------------------------------- > >Hi! > >I am completly new to the Euphoria language. I downloaded it on an >impulse from a local BBS, and was pretty surprised when I found out how >cool it is. So I have read through most of the doc's, and printed out >some of them, but am still wondering about something (maybe I missed it, >or it's not mentioned..I don't know). Is there away to use code or parts >of another language in Euphoria? > >Say for instance, that I am a novice C programmer, and have made some very >low level routines for certain things (I have actually done one or >two..partly in C and partly in Assembly). Is there any way for me to use >that code directly?? Or would I have to totally port all the commands to >the Euphoria code? Could I keep what I had done with the assembly as is >(hey..I'm used to inline-assembly or using .OBJ's from compiled ssembly, >gimme a break :) > >I'd appreciate any help, >Daniel > >=-=-=-=-=-=-=- >This message was telepathically sent to you by: > >Daniel Hirsch daniel at ktb.net >C/C++ Beginners Web Page: >http://www.ktb.net/~daniel > To answer your question Daniel, As euphoria is an interpreted language on can`t use compiled library with it. There is no linking phase with euphoria. But you can make some routine in assembler, poke it in a buffer and use call to execute this code. The use of assembler routines is a mix of poke, peek and call procedure. An send you ports.e which will show you a way to use assembler code with euphoria. You can look at callmach.ex demo that comes with public domain euphoria too. NOTES: 1) assembler code is running in 32 bits protected mode. 2) dos_interrupt function is usefull to call bios or dos functions 3) there is a possibility to load a run time library or tsr an call it from euphoria, provide you can access it via an interrupt. As you can with int #31 for DPMI services. --=====================_848474958==_ -- ports.e -- by Jacques Deschenes, Baie-Comeau, PQ, Canada, e-mail: desja at quebectel.com -- creation date: september 7th, 1996 -- -- the functions defined in this file are for reading and writing to I/O ports. -- ***** Exported functions *** -- Input to read a byte from an I/O port -- Output to write a byte to an I/O port -- InputW to read a word from an I/O port -- OutputW to write a word to an I/O port include machine.e global type byte(integer b) return b >= 0 and b < 256 end type --byte() global type word(integer w) return w >= 0 and w <= #FFFF end type -- word() sequence OutputCode, InputCode, OutputWCode, InputWCode OutputCode = { #50, -- PUSH EAX #52, -- PUSH EDX #BA,0,0,0,0,-- MOV EDX, PORT (port, to be poked in) (3) #B0,#00, -- MOV AL, byte (byte, to be poked in) (8) #EE, -- OUT DX, AL #5A, -- POP EDX #58, -- POP EAX #C3 -- RET } InputCode = { #50, -- PUSH EAX #52, -- PUSH EDX #BA,0,0,0,0,-- MOV EDX, PORT (port to be poked in) (3) #EC, -- IN AL, DX #BA,0,0,0,0,-- MOV EDX, storage address (9) #88,#02, -- MOV [EDX],AL #5A, -- POP EDX #58, -- POP EAX #C3, -- RET #0 -- DB ? result holder } OutputWCode = { #50, -- PUSH EAX #52, -- PUSH EDX #BA,0,0,0,0,-- MOV EDX, PORT (port, to be poked in) (3) #B8,0,0,0,0,-- MOV EAX, word ;word to be poked in) (8) #EE, -- OUT DX, AL ;output low byte #86,#C4, -- XCHG AH,AL ; send high byte in al #EE, -- OUT DX, AL ;output high byte #5A, -- POP EDX #58, -- POP EAX #C3 -- RET } InputWCode = { #50, -- PUSH EAX #53, -- PUSH EBX #52, -- PUSH EDX #BA,0,0,0,0,-- MOV EDX, PORT (port to be poked in) (4) #BB,0,0,0,0,-- MOV EBX, storage address (9) #EC, -- IN AL, EDX #88,#03, -- MOV [EBX],AL #43, -- INC EBX #EC, -- IN AL, EDX #88,#03, -- MOV [EBX],AL #5A, -- POP EDX #5B, -- POP EBX #58, -- POP EAX #C3, -- RET #0,#0 -- DW ? result holder } atom InputAsm, OutputAsm, OutputWAsm, InputWAsm integer InputCodeLength, OutputCodeLength, InputWCodeLength, OuputWCodeLength constant InitPortsError = "Not enough memory to initialise ports.e\n" integer AlreadyInit -- set to 1 by InitPorts AlreadyInit = 0 global procedure InitPorts() -- init code space for assembler routine if AlreadyInit then return end if InputCodeLength = length(InputCode) InputAsm = allocate(InputCodeLength) if not InputAsm then puts(1,InitPortsError) abort(1) end if poke(InputAsm,InputCode) poke(InputAsm+9,int_to_bytes(InputAsm+InputCodeLength-1)) -- storage pointer OutputCodeLength = length(OutputCode) OutputAsm = allocate(OutputCodeLength) if not InputAsm then puts(1,InitPortsError) abort(1) end if poke(OutputAsm,OutputCode) OuputWCodeLength = length(OutputWCode) OutputWAsm = allocate(OuputWCodeLength) if not OutputWAsm then puts(1,InitPortsError) abort(1) end if poke(OutputWAsm,OutputWCode) InputWCodeLength = length(InputWCode) InputWAsm = allocate(InputWCodeLength) if not InputWAsm then puts(1,InitPortsError) abort(1) end if poke(InputWAsm,InputWCode) poke(InputWAsm+9,int_to_bytes(InputWAsm+InputWCodeLength-2)) -- storage poin ter AlreadyInit = 1 end procedure -- InitPorts() global procedure FreePorts() -- free memory occupied by assembler routines if not AlreadyInit then return end if free(InputAsm) InputAsm = 0 free(OutputAsm) OutputAsm = 0 free(OutputWAsm) OutputWAsm = 0 free(InputWAsm) InputWAsm = 0 AlreadyInit = 0 end procedure -- FreePorts() global function Input(word port) byte b if not InputAsm then return -1 end if poke(InputAsm+3,int_to_bytes(port)) call(InputAsm) b = peek(InputAsm+InputCodeLength-1) return b end function -- Input() global procedure Output(byte b, word port) if not OutputAsm then return end if poke(OutputAsm+3,int_to_bytes(port)) poke(OutputAsm+8,b) call(OutputAsm) end procedure -- Output() global function InputW(word port) -- read a word form port. Low byte is read then High byte -- return HighByte*256+LowByte if not OutputWAsm then return -1 end if poke(InputWAsm+4,int_to_bytes(port)) call(InputWAsm) return peek(InputWAsm+InputWCodeLength-1)*256 + peek(InputWAsm+InputWCodeLength-2) end function -- InputW() global procedure OutputW(word w, word port) if not OutputWAsm then return end if poke(OutputWAsm+3,int_to_bytes(port)) poke(OutputWAsm+8,int_to_bytes(w)) call(OutputWAsm) end procedure -- OutputW() InitPorts() --=====================_848474958==_ Jacques Deschenes Baie-Comeau, Quebec Canada desja at quebectel.com --=====================_848474958==_--