1. Question
- Posted by a.tammer at hetnet.nl May 30, 2002
- 680 views
Hi all, If I were to come up with simple solutions for seemingly= complicated things, if I were to come at at your aid, would you allow me to do so at my judgement as often as I deem= necessary? Would you be able to bear with me loosing my temper every once in= a while, I'm only human like all of you. I'll promise to control it as= much as I can. If so simply say yes, and I'll be there. Otherwise I'll stay= monitoring the list and helping people on a personal basis,( if they allow me to use= a personal email approach), if I can do so. EUrs Antoine Tammer
2. Question
- Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM> Sep 25, 1998
- 646 views
Recently, I downloaded a QLB for QuickBASIC, and it had a function in there that could get the DOS version number. Is there anything like that in Euphoria? ------------------------------------- When it comes to programming languages, Euphoria is a cut above - matt1278 at juno.com and matt1421 at juno.com(and soon to be irisnmatt at prodigy.net. Then again, maybe not) Euphoria programmer
3. Re: Question
- Posted by "Carl R. White" <C.R.White at SCM.BRAD.AC.UK> Sep 25, 1998
- 612 views
On Fri, 25 Sep 1998, Matt Z Nunyabidness wrote: > Recently, I downloaded a QLB for QuickBASIC, and it had a function in > there that could get the DOS version number. Is there anything like that > in Euphoria? There are a few things on the Euphoria Homepage that *might*. DOS.E springs to mind. Carl PS If you don't have 'net access, where did you find out about Euphoria? -- Carl R White E-mail...: cyrek- at -bigfoot.com -- Remove the hyphens before mailing. Ta :) Url......: http://www.bigfoot.com/~cyrek/ "Ykk rnyllaqur rgiokc cea nyemdok ymc giququezka caysgr." - B.Q.Vgesa
4. Re: Question
- Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM> Sep 25, 1998
- 617 views
i found out about it a long time ago on aol, then i d/led it. can u send me dos.e? ------------------------------------- When it comes to programming languages, Euphoria is a cut above - matt1278 at juno.com and matt1421 at juno.com(and soon to be irisnmatt at prodigy.net. Then again, maybe not) Euphoria programmer ___________________________________________________________________ You don't need to buy Internet access to use free Internet e-mail. Get completely free e-mail from Juno at http://www.juno.com Or call Juno at (800) 654-JUNO [654-5866]
5. Re: Question
- Posted by Hawke <mdeland at NWINFO.NET> Sep 25, 1998
- 643 views
Matt Z Nunyabidness wrote: >Recently, I downloaded a QLB for QuickBASIC, and it had a function in >there that could get the DOS version number. Is there anything like >that in >Euphoria? would system("ver > tempver.txt",2) sequence version integer fn fn=open("tempver.txt","r") if fn=-1 then .... version = gets(fn) ...blahblahblah u know the drill not do what you need???
6. Re: Question
- Posted by Robert B Pilkington <bpilkington at JUNO.COM> Sep 25, 1998
- 650 views
>Recently, I downloaded a QLB for QuickBASIC, and it had a function in >there that could get the DOS version number. Is there anything like >that in Euphoria? In Euphoria 2.0: C:\EUPHORIA\DEMO\DOS32\DOSINT.EX In previous versions it would be: C:\EUPHORIA\DEMO\DOSINT.EX It returns the current directory and the current DOS version. (My copy of Win95 reports DOS 7.0) If you don't have it, then upgrade.(Don't you have AOL? Doesn't that have Internet access? Or does that cost more or something? If you DO have 'Net access, or know a friend that does, then you can goto http://members.aol.com/FilesEU . . .) ___________________________________________________________________ You don't need to buy Internet access to use free Internet e-mail. Get completely free e-mail from Juno at http://www.juno.com Or call Juno at (800) 654-JUNO [654-5866]
7. Re: Question
- Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM> Sep 25, 1998
- 624 views
ok. thx. I copied the thing out of dosint.ex into my user.e file. ------------------------------------- When it comes to programming languages, Euphoria is a cut above - matt1278 at juno.com and matt1421 at juno.com(and soon to be irisnmatt at prodigy.net. Then again, maybe not) Euphoria programmer ___________________________________________________________________ You don't need to buy Internet access to use free Internet e-mail. Get completely free e-mail from Juno at http://www.juno.com Or call Juno at (800) 654-JUNO [654-5866]
8. Question
- Posted by Raul Benavides Cordoba <f62becor at UCO.ES> Jan 09, 1997
- 671 views
Hi everybody, I'm a new user of Euphoria. My first questions are: - How can I create a small interpreter that one works inside the main program and other that read a file and interpret it?. The reason is that I'm working in a project for my class, (I'm studing Physic and a NOVICE in the Programation), and I want my program interpret at the moment the instructions I give, for example, commands to draw a figure on the screen after I give the instruction and so on. The other alternative is to create a small program that reads a ASCII file and interprets it by, for example, turning the screen in colors, for using it in .BAt files. TANKYOU FOR ALL. HAPPY NEW YEAR........... P.D: Sorry about my english, because I'm a spanish boy.
9. Question
- Posted by David Cuny <HW1.DCUNY at HW1.CAHWNET.GOV> Jan 09, 1997
- 681 views
*** Reply to note of 01/09/97 04:08 re: how do i write an interpreter. this is not difficult. first, you need to convert your command into seperate words. each word must be seperated by a space. here is a function that will do that: function split( sequence s ) sequence word, words word = "" words = "" for i = 1 to length( words ) do if s[i] = ' ' or s[i] = '\n' then if compare( word, "" ) != 0 then words = append( words, word ) word = "" end if else word = word & s[i] end if end for return words end function then you need to interpret the command. here is a simple procedure that will interpret the command 'color X' and 'line X1 Y1 to X2 Y2' procedure interpret( sequence s ) integer x1, y1, x2, y2 if compare( s[1], "color" ) = 0 then -- first word is 'color' x1 = value( [s2] ) -- convert word 2 to a number -- color setting code goes here elsif compare( s[1], "plot" ) = 0 then -- first word is 'plot' x1 = value( s[2] ) -- convert word 2 to number and store in x1 y1 = value( s[3] ) -- convert word 3 to number and store in y1 x2 = value( s[5] ) -- convert word 5 to number and store in x2 y2 = value( s[6] ) -- convert word 5 to number and store in y2 -- draw line command goes here else -- put your error routine here if compare( s, "" ) != 0 -- don't try to print word #1 if the sequence -- is empty, or you get an error. puts( 1, "I don't know how to " & s[1] ) end if end if end procedure if you use the function 'value', you'll need to include the file 'get.e'. i hope this helps. -- david cuny
10. Re: Question
- Posted by Jacques Deschenes <desja at QUEBECTEL.COM> Jan 09, 1997
- 687 views
- Last edited Jan 10, 1997
--=====================_852879883==_ At 12:54 9-01-97 +0100, you wrote: >---------------------- Information from the mail header ----------------------- >Sender: Euphoria Programming for MS-DOS <EUPHORIA at >MIAMIU.ACS.MUOHIO.EDU> >Poster: Raul Benavides Cordoba <f62becor at UCO.ES> >Subject: Question >------------------------------------------------------------------------------- > > Hi everybody, > > I'm a new user of Euphoria. My first questions are: > > - How can I create a small interpreter that one works inside the main > program and other that read a file and interpret it?. The reason is > that I'm working in a project for my class, (I'm studing Physic and > a NOVICE in the Programation), and I want my program interpret at > the moment the instructions I give, for example, commands to draw > a figure on the screen after I give the instruction and so on. > > The other alternative is to create a small program that reads a ASCII > file and interprets it by, for example, turning the screen in colors, > for using it in .BAt files. > > > TANKYOU FOR ALL. > > HAPPY NEW YEAR........... > > > P.D: Sorry about my english, because I'm a spanish boy. > Hi Raul, I send you as an attachement turtle.e which is an include file implementing a simple drawing robot. the commands are single letter. For how to use it see comment at beginning of file. --=====================_852879883==_ -- NAME: turtle.e -- OBJECT: graphic drawing using a script language. -- BY: Jacques Deschenes, Baie-Comeau, Canada, PQ., e-mail: desja at quebectel.com -- CREATION DATE: December 21th, 1996 -- -- scripting language: -- Commands are 1 letter -- Some commands can have a 1 letter prefix affecting their behavior -- -- commands follows each other without any separator -- some commands act on a sub-script which is enclosed in square bracket -- distances are in pixels -- -- COMMANDS: -- notes: 1) [factor] is a programmable parameter -- 2) all displacements are relative to current turtle position except -- for command M, which is a move to command. -- 3) 0deg. angle point to right, positive angle are anti clockwise -- negative angles are clockwise. -- -- Fn turtle move forward n*factor pixels where [n] is an integer -- C clear screen and reset all turtle states. -- D Pen down means turtle leave a trace screen -- U Pen up mean turtle displacement doesn't leave a trace on screen -- Ha Set Heading to angle [a] where [a] is a real number (ex. 39.85) -- Er[,a] Draw an filled ellipse (! prefix can be used for empty ellipse) -- parameter: r is radius in pixel centered to turtle pos -- a is long/short axes ratio to be omitted for circle -- Mx,y Move turtle to x,y screen coordinate. -- Pc Set drawing color used by turtle -- Rn[script] repeat n times the script enclosed in square bracket. -- Ta Turn by the specified [a] angle if a > 0 rotate left else right -- Wn Set trace width in pixel. where [n] is a positive integer. -- X[=|+|-|*|/]n Set a new scale factor. -- = set factor egal to n -- + increase current factor by a value -- - decrease current factor by a value -- * multiply scale factor by a value -- / divide scale factor by a value -- -- %v[=|+|-|*|/]n Set a variable, where v is var. id. in range A..Z -- = set variable v egal to n -- + add n to actual value of the variable -- - substract n to actual value of the variable -- * multiply actual value of var. by n -- / divide actual value of var. by n -- -- COMMAND PREFIX: -- N "No update" prefix, to be used before command F or [. Turtle come back -- to it's original state after execution of prefexed command or -- subscript. -- the effect of N is to push on stack all turtle states. -- -- ! "No paint" prefix, to be used with E to draw hollow ellipse ----------------------------------------------------------------------------- -- -- EXPORTED: -- function UCase(sequence String) -- procedure DrawTurtle(sequence script) -- function InitTurtle(integer gmode) include graphics.e integer CurrentX, -- Current x coord of turtle CurrentY, -- Current y coord of turtle PenWidth, -- pen width in pixel PenColor -- pen color atom Head, -- turtle heading angle. Factor -- scale factor. sequence Stack, -- use to preserve turtle parameters -- {PenWidth,PenColor,Head,Factor,CurrentX,CurrentY} -- see PushState() and PopSate() VarList, -- containt variables values: %A to %Z vc -- video config information. Set by InitTurtle() constant PI = 3.141592654 --------------------------------------------- global function UCase(sequence String) -- convert to upper case sequence UStr UStr = {} for i = 1 to length(String) do if String[i] >= 'a' and String[i] <= 'z' then UStr = UStr & String[i] - 'a' + 'A' else UStr = UStr & String[i] end if end for return UStr end function -- UCase() --------------------------------------------- global function InitTurtle(integer gmode) -- input: gmode is graphic mode to be set. -- output: 1 if success else 0 integer junk junk = graphics_mode(gmode) if junk then return 0 end if vc = video_config() -- center turtle to screen CurrentX = floor(vc[VC_XPIXELS]/2) CurrentY = floor(vc[VC_YPIXELS]/2) Head = 0 Factor = 1 PenWidth = 1 PenColor = 15 Stack = {} VarList=repeat(0,26) return 1 end function --InitTurtle() --------------------------------------------- procedure PushState() -- sequence order is {PenWidth,PenColor,Head,Factor,CurrentX,CurrentY} Stack = append(Stack,{PenWidth,PenColor,Head,Factor,CurrentX, CurrentY}) end procedure -- PushSate() --------------------------------------------- procedure PopState() sequence last if length(Stack) = 0 then return end if last = Stack[length(Stack)] PenWidth = last[1] PenColor = last[2] Head = last[3] Factor = last[4] CurrentX = last[5] CurrentY = last[6] Stack = Stack[1..length(Stack)-1] end procedure -- PopSate() --------------------------------------------- procedure TurtleEllipse(integer color, -- color of ellipse integer fill, -- set to 1 to fill ellipse integer width, -- thickness of the line integer radius, -- radius of ellipse atom ratio -- x_radiu/y_radius ) integer x1,y1,x2,y2 integer rx, ry rx = radius*ratio ry = floor(radius/ratio) x1 = CurrentX - rx y1 = CurrentY - ry x2 = CurrentX + rx y2 = CurrentY + ry if fill then ellipse(color,1,{x1,y1},{x2,y2}) else for i = 0 to width - 1 do ellipse(color,0,{x1+i,y1+i},{x2-i,y2-i}) end for end if end procedure -- TurtleEllipse() --------------------------------------------- -- trace a line from current position procedure TurtleForward(integer color, -- pen color integer width, -- pen width integer d, -- distance atom a, -- angle ) sequence c1,c2,c3,c4 integer NewX, NewY integer wx, wy NewX = floor(CurrentX + cos(a) * d ) NewY = floor(CurrentY + (-sin(a) * d)) if width = 1 then draw_line(color,{{CurrentX,CurrentY},{NewX,NewY}}) CurrentX = NewX CurrentY = NewY return end if if NewX = CurrentX then -- vertical lines wx = floor(width/2) wy = wx c1 = {NewX - wx,CurrentY} c2 = {NewX - wx,NewY} c3 = {NewX + wx,NewY} c4 = {NewX + wx,CurrentY} ellipse(color,1,{CurrentX-wx,CurrentY-wy},{CurrentX + wx,CurrentY+wy}) ellipse(color,1,{NewX-wx,NewY-wy},{NewX+wx,NewY+wy}) elsif NewY = CurrentY then -- horizontal lines wy = floor(width/2) wx = wy c1 = {CurrentX,NewY - wy} c2 = {NewX,NewY - wy} c3 = {NewX,NewY + wy} c4 = {CurrentX,NewY + wy} ellipse(color,1,{CurrentX-wx,CurrentY-wy},{CurrentX+wx,CurrentY+wy}) ellipse(color,1,{NewX-wx,NewY-wy},{NewX+wx,NewY+wy}) else -- other angle wx = floor((sin(a) * width)/2) wy = floor((cos(a) * width)/2) c1 = {CurrentX - wx, CurrentY - wy} c2 = {NewX - wx, NewY - wy} c3 = {NewX + wx, NewY + wy} c4 = {CurrentX + wx, CurrentY + wy} ellipse(color,1,c1,c4) ellipse(color,1,c2,c3) end if polygon(color,1,{c1,c2,c3,c4}) CurrentX = NewX CurrentY = NewY end procedure --TurtleForward() --------------------------------------------- function GetVal(sequence script, integer i) -- get numerical parameter from script. Scanning start at position i -- output: {error,value, Updated i} integer c, q, neg,VarId atom Nb if i > length(script) then return {1,0,i} -- error end if script = script Nb = 0 q = 0 neg = 0 c = script[i] if c = '%' then i = i + 1 VarId = script[i]-'A'+1 if VarId <1 or VarId > 26 then return {1,0,i} end if return {0,VarList[VarId],i+1} elsif c = '-' then neg = 1 elsif c = '+' then neg = 0 elsif find(c,"0123456789") then Nb = c-'0' elsif c = '.' then q = 1 else return {1,0,i} end if i = i + 1 while i < length(script) do c = script[i] i = i + 1 if find(c,"0123456789") then Nb = Nb*10+c-'0' q = q*10 elsif c = '.' then if q > 0 then i = i - 1 exit end if q = 1 else i = i - 1 exit end if end while if q > 0 then Nb = Nb/q end if if neg then Nb = -Nb end if return {0,Nb,i} end function -- GetVal() --------------------------------------------- global procedure TurtleDraw (sequence script) atom Ratio, -- ellipse axes ratio Radius, -- ellipse radius Param -- receive command parameter integer PenDown, -- current pen state (1 if down) UpDate, -- set to 1 for turtle position update RepCnt, -- repetion count for command R Fill, -- set to 1 for filled ellipse Depth, -- square bracket depth s_len, -- script length i, -- index into script j, -- another index into script char, -- Hold char from script[i] VarId -- Variable identifier sequence NumVal -- sequence containing the number returned by GetVal() PenDown = 1 Fill = 1 UpDate = 1 i = 1 script = UCase(script)&' ' s_len = length(script) while i <= s_len do char = script[i] i = i + 1 if char = '!' then -- No fill Fill = 0 elsif char = '%' then -- set variable VarId = script[i] - 'A' + 1 if VarId <1 or VarId > 26 then exit end if i = i + 1 char = script[i] i = i + 1 NumVal = GetVal(script,i) i = NumVal[3] if NumVal[1] then exit end if if char = '=' then VarList[VarId] = NumVal[2] elsif char = '+' then VarList[VarId] = VarList[VarId] + NumVal[2] elsif char = '-' then VarList[VarId] = VarList[VarId] - NumVal[2] elsif char = '*' then VarList[VarId] = VarList[VarId] * NumVal[2] elsif char = '/' then VarList[VarId] = VarList[VarId] / NumVal[2] end if elsif char = ' ' or char = ',' then --skip blanck and comma elsif char = 'C' then clear_screen() Head = 0 PenColor = 15 PenWidth = 1 UpDate = 1 Fill = 1 Factor = 1 CurrentX = floor(vc[VC_XPIXELS]/2) CurrentY = floor(vc[VC_YPIXELS]/2) Stack = {} VarList = repeat(0,26) elsif char = 'F' then --forward move NumVal = GetVal(script, i) i = NumVal[3] if NumVal[1] then exit end if Param = NumVal[2] * Factor if PenDown then TurtleForward(PenColor,PenWidth,Param,Head) else CurrentX = floor(CurrentX + cos(Head) * Param) CurrentY = floor(CurrentY + (-sin(Head) * Param)) end if if not UpDate then PopState() UpDate = 1 end if elsif char = 'D' then --Pen Down PenDown = 1 elsif char = 'H' then -- set heading NumVal = GetVal(script, i) i = NumVal[3] if NumVal[1] then exit else Head = NumVal[2] * PI / 180 end if elsif char = 'E' then --draw ellipse NumVal = GetVal(script,i) i = NumVal[3] if NumVal[1] then exit end if Radius = NumVal[2] * Factor if script[i] != ',' then Ratio = 1 --circle else i = i + 1 NumVal = GetVal(script, i) i = NumVal[3] if NumVal[1] then exit end if Ratio = NumVal[2] end if TurtleEllipse(PenColor,Fill,PenWidth,Radius,Ratio) Fill = 1 elsif char = 'U' then --Pen Up PenDown = 0 elsif char = 'M' then -- move turtle to NumVal = GetVal(script,i) i = NumVal[3] if NumVal[1] then exit end if CurrentX = floor(NumVal[2]) i = i + 1 NumVal = GetVal(script,i) i = NumVal[3] if NumVal[1] then exit end if CurrentY = floor(NumVal[2]) elsif char = 'N' then --set No update UpDate = 0 PushState() elsif char = 'P' then --set Pen color NumVal = GetVal(script,i) i = NumVal[3] if NumVal[1] then exit end if PenColor = floor(NumVal[2]) elsif char = 'R' then --repeat sub-script (use recursive call) NumVal = GetVal(script,i) i = NumVal[3] if NumVal[1] then exit end if RepCnt = NumVal[2] if script[i] != '[' then exit end if i = i + 1 j = i Depth = 1 while Depth > 0 and i <= length(script) do if script[i] = '[' then Depth = Depth + 1 elsif script[i] = ']' then Depth = Depth - 1 end if i = i + 1 end while for nx = 1 to RepCnt do TurtleDraw(script[j..i-1]) end for if not UpDate then PopState() UpDate = 1 end if elsif char = 'T' then -- Turn (heading rotation) NumVal = GetVal(script,i) i = NumVal[3] if NumVal[1] then exit end if Head = Head + NumVal[2] * PI / 180 elsif char = 'W' then -- set pen width NumVal = GetVal(script,i) i = NumVal[3] if NumVal[1] then exit end if PenWidth = floor(NumVal[2]) elsif char = 'X' then -- change scale factor char = script[i] i = i + 1 NumVal = GetVal(script,i) i = NumVal[3] if NumVal[1] then exit end if if char = '=' then Factor = NumVal[2] elsif char = '+' then Factor = Factor + NumVal[2] elsif char = '-' then Factor = Factor - NumVal[2] elsif char = '*' then Factor = Factor * NumVal[2] elsif char = '/' then Factor = Factor / NumVal[2] end if if Factor < 1 then Factor = 1 end if elsif char = '[' then --make recursive call j = i Depth = 1 while Depth > 0 and i <= length(script) do if script[i] = '[' then Depth = Depth + 1 elsif script[i] = ']' then Depth = Depth - 1 end if i = i + 1 end while PushState() TurtleDraw(script[j..i-1]) PopState() if not UpDate then PopState() UpDate = 1 end if elsif char = ']' then -- get out of recursive call exit else exit end if end while end procedure -- TurtleDraw() if not InitTurtle(18) then -- initialise by default to VGA 640X480, 16 COLORS puts(1,"Failed to initialise turtle.") abort(1) end if --=====================_852879883==_ Jacques Deschenes Baie-Comeau, Quebec Canada desja at quebectel.com --=====================_852879883==_--