1.
Irv wrote:
> The fact is, Kat asked because she was trying to get some work done
> using Euphoria. Others here proved that the problem was with Windows.
> I mentioned 4 alternatives which would work for Kat, one of which
was Linux.
> If that upsets you so much, you probably shouldn't be reading this
list.
>
> Irv
OK, so maybe I shouldn't post when I'm in a grumpy mood but the problem
is not with Windows per se, but is with the FAT file system. FAT is a
quarter century old and was designed well before Windows and hard
drives. Sure it's been patched to support large HD's but still has many
limitations. So for the type of data mining and file storage that Kat
is dealing with, I would simply get away from FAT...
-- Brian
2. Re:
Brian Broker wrote:
> OK, so maybe I shouldn't post when I'm in a grumpy mood but the problem
> is not with Windows per se, but is with the FAT file system. FAT is a
> quarter century old and was designed well before Windows and hard
> drives. Sure it's been patched to support large HD's but still has many
> limitations. So for the type of data mining and file storage that Kat
> is dealing with, I would simply get away from FAT...
Agreed. I'm not sure that is an easy thing for Kat to do, however.
There are probably good reasons she doesn't want to move to XP.
I wonder if it would be possible to store all these files in a
Euphoria database? I'm thinking there might be around 100megs of
data - but only one filename.
Irv
3.
Please note this requires Windows 95 , or more recent!
On 2000-05-07 EUPHORIA at LISTSERV.MUOHIO.EDU said:
Net-Tamer V 1.11 - Test Drive
4.
Just thought of this one:
function cut(sequence s,sequence index)
object x
x=s
for i=1 to length(x) do
if sequence(index[i]) then
x=x[index[i][1]..index[i][2]]
else
x=x[index[i]]
end if
end for
return x
end function
This expands on standard Euphoria by allowing slices in any dimension, not
just the last. Offhand, I don't know where I'd use this, but I'm sure
someone will find it useful.
-- Mike Nelson
5.
------=_NextPart_000_00E1_01BFC7BF.7A021120
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi ya all !
I wanna show what we Euphoria programers are made of ! Any one that =
wants to group with me and make games that can go commercial is welcome =
! You can be 1 or 100 years old , it dosn`t matter ! Any one is =
welcome.E-mail me at=20
mwfch at mweb.co.za .
Ferdinand Greyling
from
Terminal Software
------=_NextPart_000_00E1_01BFC7BF.7A021120
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi ya all !</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>I wanna show what we Euphoria =
programers are made=20
of ! Any one that wants to group with me and make games that can go =
commercial=20
is welcome ! You can be 1 or 100 years old , it dosn`t matter ! Any one =
is=20
welcome.E-mail me at </FONT></DIV>
<DIV><FONT face=3DArial size=3D2><A=20
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Terminal =
------=_NextPart_000_00E1_01BFC7BF.7A021120--
6.
Hello
I would like information on Euphoria
Is it a language , an EDI ?
What's the purpose ?
I've never heard of it before .
Please to excuse such an ignorance 
)
7.
I tried to write a little cgi in Euphoria..
but it doesn't work right
i use OmniHttpd server (in win2k) and when i call the cgi.ex the result
is generated in a dos shell and not in the browser...
how can i send the output to the browser?
the cgi is very very simple:
puts(1,"Content-type: text/HTML\n\n")
puts(1,"<title>CGI-TEST.EX</title>")
puts(1,"<html>")
puts(1,"<body>")
puts(1,"<H3>")
puts(1,"Euphoria CGI Example:</H3>")
Thanks
8.
Does anybody knows how to call a dll routine from asm?
Dll has been opened from Euphoria, so i have an address.
I know the offset of the routine from PE header of the file.
I think Address + Offset falls on start of the routine but the only
thing i'm sure is that i'm full of invalid page faults.
9. Re:
Matthew,
it works, with some difference.
I didn't opened the dll using LoadLibrary but with the standard
Euphoria way, so:
dll_handle=3DGetModuleHandleA("dll_name")
address=3DGetProcAddress(dll_handle,"function_name")
pointer=3Dallocate(4)
poke4(pointer,address)
-- asm code:
pusha
push param_z
........
push param_a
call near dword ptr [pointer]
popa
ret=20
Used CALL NEAR (#FE, #10,...) not CALL FAR (#FF,#15,...)=20
Thank you all
-George
Sorry for the blank header, i just forgot to write something.
10. Re:
Matthew,
it works, with some difference.
I didn't opened the dll using LoadLibrary but with the standard
Euphoria way, so:
dll_handle=3DGetModuleHandleA("dll_name")
address=3DGetProcAddress(dll_handle,"function_name")
pointer=3Dallocate(4)
retpointer=3Dallocate(4)
poke4(pointer,address)
-- asm code:
pusha
push param_z
........
push param_a
call near dword ptr [pointer]
mov [retpointer], eax
popa
ret=20
Used CALL NEAR (#FE, #10,...) not CALL FAR (#FF,#15,...)=20
Thank you all
-George
Sorry for the blank header, i just forgot to write something.
11.
------=_NextPart_000_01BC44E5.E44A37C0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
unsubscribe
------=_NextPart_000_01BC44E5.E44A37C0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML 3.2//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<HTML><META content=3D'"Trident 4.71.0544.0"' name=3DGENERATOR>
</HEAD>
<BODY>
<P><FONT face=3DArial size=3D2>unsubscribe</FONT>
<P><FONT face=3DArial size=3D2></FONT> </P>
------=_NextPart_000_01BC44E5.E44A37C0--
12.
hi all
im having a bit of trouble...
i am writing a programme that has mouse buttons in it, and the x and y
co-ord's of the buttons are stored in the sequence mb like:
mb = append(mb, {x1, y1, x2, y2, "button_name", button_signature}
so when the user clicks the mouse, it quickly searches to see if that
mouse click was in the area specified in mb[1] (or mb[whatever])
that's all okay, BUT... if I try:
mb = {}
i get an error and it wont do it. Any ideas??
Thanks :)
Mike Fowler - mike.fowler at nelsun.gen.nz
o__ ---
_,>/'_ ---
(_) \(_) ---
Tips for the month: Bill your dentist for your time in surgery.
13.
>
> i am writing a programme that has mouse buttons in it, and the x and y
> co-ord's of the buttons are stored in the sequence mb like:
>
> mb = append(mb, {x1, y1, x2, y2, "button_name", button_signature}
>
> so when the user clicks the mouse, it quickly searches to see if that
> mouse click was in the area specified in mb[1] (or mb[whatever])
>
> that's all okay, BUT... if I try:
>
> mb = {}
>
> i get an error and it wont do it. Any ideas??
>
> Thanks :)
>
I'm not too sure why that is not working because you can append to the end
of a null sequence. You shouldn't get an error message just because it's
null. Include the contents of EX.ERR as an attachment to your next reply
and let us see.
Thanks
David Gay
http://www.interlog.com/~moggie/Euphoria
A Beginner's Guide To Euphoria
14.
Please take me off your mailing list NOW
15.
Robert Moffat wrote:
>=20
> ---------------------- Information from the mail header ---------------=
--------
> Sender: Euphoria Programming for MS-DOS <EUPHORIA at MIAMIU.ACS.MUOH=
IO.EDU>
> Poster: Robert Moffat <R.Moffat at PEMBROKESHIRE.AC.UK>
> Organization: Pembrokeshire College
> -----------------------------------------------------------------------=
--------
>=20
> Please take me off your mailing list NOW
I can=B4t, sorry!
16.
Take me off your mailing list
17.
- Posted by Jim Roberts <jhroberts1 at JUNO.COM>
Nov 01, 1998
-
Last edited Nov 02, 1998
I am using wait_key to enter a number value from the keyboard.
i = wait_key()
I then use i as follows:
for j = 1 to i do
For some unknown reason the loop does not end on the number I keyed in
which should be the value of i. For example, I might key in 5 and the
program aborts when j reachs 11 or some other number greater than 5..
Is there any particular way I should initiate i such as an object or
integer or atom?
Thanks,
Jim Roberts
18.
- Posted by Mathew Hounsell <mat.hounsell at MAILEXCITE.COM>
Nov 02, 1998
-
Last edited Nov 03, 1998
[ DOS32LIB ]
Faster code won't be bad. It run's okay, but you are creating graphic
intensive demos.
Perhaps it would be easier to create it as an interface and leave the speed
intensive stuff out.
It runs OK on my machine a 486DX/2 66MHz 24Mb RAM but it is noticeablely
slow. To get it past most users it has to do it in under 0.2sec.
Windows/CDE maximise windows by drawing them so they are bigger than the
screen.
If the boder is 5 wide, draw it at -5.
[ WIN32LIB ]
Windows is C based it would be far nicer if it was treated as Euphoria.
[ Visual WIN32LIB ]
While I know it is for windows a port to code the DOS version would be
nice.
[ WatchDog ]
It wasn't a bad idea Irv. I once used type to track a virtual cursor and if
it moved of screen it scolled it. It might be more useful to do this with a
window. After all a type can contain all sorts of code.
--------------------
Sincerely,
Mathew Hounsell
Mat.Hounsell at MailExcite.Com
_______________________________________________________
Get your free, private e-mail at http://mail.excite.com/
19.
> I'm under the impression that Neil & Co. are aimed at the SVGA crowd,
> while Dos32Lib targets VGA (mainly mode 18). I'm a bit leery about using
> SVGA when it tends to choke up half the machines I use - because vendors
> are too lazy to create SVGA drivers for DOS, relying on Win32 to supply
> the drivers instead.
Neil & Co.? 
You bet We're aimed at the SVGA crowd, despite the fact that Neil does
indeed choke on some video boards. But when it does work, the 16M colors
are nice, and the speed is to behold. I haven't been posting updates due
to its current state of flux (partly due to Ralf's continued badgering
"put this in! put that in!" and I'm trying very hard to make it
compatible with as many cards as I can. Scitech's VBE drivers can
sometimes help.. but not always. Also, Neil is also geared toward a
gaming environment with sprites and all... haven't given too much thought
to using it for a gui. I might take a crack at shoehorning Neil into
Dos32Lib one of these days.
> But I am trying to keep my options open by limiting the graphic calls to
> a small part of the code - the renderXXXX routines. That way, if I decide to
> change to another library (to run under Linux, for example), it
> shouldn't be that hard to port the code.
This sounds like another subtle hint for me to get off my butt and
continue the Linux/Unix port of Euphoria...
I thought the Java l&f was cool, sad to hear it got canned.
Laters,
_______ ______ _______ ______
[ _ \[ _ ][ _ _ ][ _ ]
[/| [_] |[/| [_\][/ | | \][/| [_\]
| ___/ | _] | | | _]
[\| [/] [\| [_/] [\| |/] [\| [_/]
[_____] [______] [_____] [______]
xseal at harborside.com ICQ:13466657
http://www.harborside.com/home/x/xseal/euphoria/ (Right on!)
20.
Pete Eberlein wrote:
> You bet We're aimed at the SVGA crowd, despite the
> fact that Neil does indeed choke on some video boards.
> But when it does work, the 16M colors are nice, and the
> speed is to behold.
Ralf (Neil proselytizer that he is) sent me a copy of his 'bots game to look
at. Zillions of colors does indeed look *very* nice, but I'm assuming that
the two people who will end up using Dos32Lib will only really have VGA.
> I might take a crack at shoehorning Neil into
> Dos32Lib one of these days.
Since most of the graphic routines can be emulated with pixel(), the only
routines I really need are:
- get_image()
- pixel()
and they are already supplied with Neil. So I guess I should include Neil
right now. My only concern is that certain video cards might not be
supported. But Neil supports *all* cards in VGA mode 18, right? If so, I'll
go ahead and make the code changes.
Urg... I'll have to see it the mouse code needs updating too. I'm using
MIGHTY.E.
> This sounds like another subtle hint for me to get off
> my butt and continue the Linux/Unix port of Euphoria...
Subtle? That doesn't sound like me at all.
While I'm at it, I'd like to see a Mac version someday, too.
> I thought the Java l&f was cool, sad to hear it got canned.
Me, too - but if this project ever gets finished, I can always put the code
back in. My first priority is to Get It Done in some useful manner. As it
was, I was burning myself out on non-essentials.
-- David Cuny
21.
Question : How do use the library for ternary trees in the archive.
Question 2 : Does anyone know all the C escape characters.
Jiri : Can you please add sub & super scripting to your fonts.
RDS : I was using euphoria and I know people are going to disagree with me
on this but I think the escape characters should be re-evaluated to be
\n - OS specific New Line
\l - Line Feed
\r - Carriage Return.
This would allow people to read an write text files using the same code for
any OS. Note that euphoria strips out \r (or is it \l ) when reading so if
your on Unix (or Mac) it would have to change it's approach or fake out the
user. Either way things will act weird as unix is only \r and most people
use \n.
I also still think a string type is a good idea.
--------------------
Sincerely,
Mathew Hounsell
Mat.Hounsell at MailExcite.Com
_______________________________________________________
Get your free, private e-mail at http://mail.excite.com/
22.
- Posted by Mathew Hounsell <mat.hounsell at EXCITE.COM>
Nov 29, 1998
-
Last edited Nov 30, 1998
Does any one know where I could find information on the TCL bytes codes. I
have looked but haven't found.
--------------------
Sincerely,
Mathew Hounsell
Mat.Hounsell at Excite.Com
_______________________________________________________
Get your free, private e-mail at http://mail.excite.com/
23.
------=_NextPart_000_0000_01C07749.12E3A280
charset="iso-8859-1"
X-MIME-Autoconverted: from 8bit to quoted-printable by smv18.iname.net id
TAA03028
> An IDE?
> Don't make me laugh!
> I know VB's IDE and I can top it within half an hour!!
> Yes, HALF AN HOUR! Did you read that? Half an hour of
> coding and I have set up an IDE for Euphoria that tops
> VB's. I have the code to do it, and the training. I
> have a first-class Euphoria(++) IDE with built-in web
> browser for docs and an interface to 70 C compilers
> for translation. With a multi-platform GUI creation
> tool plus library. ActiveX control support, App
> wizards that range from Text Editor to 3D Game
> producers.
I sure could use that. I=92d pay GOOD money for it too!
Fernando Ortiz
------=_NextPart_000_0000_01C07749.12E3A280
charset="iso-8859-1"
<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">
<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C07749.1193F100">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
{margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
{mso-style-type:personal-compose;
color:black;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=3DEN-US style=3D'tab-interval:.5in'>
<div class=3DSection1>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> An IDE?</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> Don't make me laugh!</span></font><font =
size=3D2
color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> I know VB's IDE and I can top it within =
half an
hour!!</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> Yes, HALF AN HOUR! Did you read that? =
Half an
hour of</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> coding and I have set up an IDE for =
Euphoria
that tops</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> VB's. I have the code to do it, and the
training. I</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> have a first-class Euphoria(++) IDE with
built-in web</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> browser for docs and an interface to 70 =
C
compilers</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> for translation. With a multi-platform =
GUI
creation</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> tool plus library. ActiveX control =
support, App</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> wizards that range from Text Editor to =
3D Game</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
<p class=3DMsoNormal><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>> =
producers.</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>I sure could =
use that. I’d
pay GOOD money for it too!<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>Fernando =
Ortiz<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
</div>
</html>
------=_NextPart_000_0000_01C07749.12E3A280--
24.
------=_NextPart_000_0002_01C07776.EEA968E0
charset="iso-8859-1"
X-MIME-Autoconverted: from 8bit to quoted-printable by smv679-leg.mail.com id
AAA11542
> Heh?
> Allright allright..
> Maybe that's not such a bad idea...
>
> Well, I'll do it like this.
> Anyone can ask what they would like to see written in
> Euphoria. Anything goes. If the majority of users
> think the same, then I will make that project.
>
> So go ahead, reply to this post with what you would
> like to see written in Euphoria.
How about that fancy VB style IDE you were saying you could do in =BD an =
hour?
I=92m not kidding. My company would pay good money for it even if it took=
you
a month. Hell, we=92d even market it for you since we have our own ad age=
ncy
www.dnjadvertising.com <http://www.dnjadvertising.com/> ). As long as it=
is
practical and you have no problem with signing non-disclosure contracts a=
nd
other legal crap, you could make some good money.
Think about it and e-mail me directly.
Fernando Ortiz
Fernando at rxp.com <mailto:Fernando at rxp.com>
------=_NextPart_000_0002_01C07776.EEA968E0
charset="iso-8859-1"
<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">
<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C07776.EE19FA20">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;
text-underline:single;}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
{margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
{mso-style-type:personal-compose;
color:black;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=3DEN-US link=3Dblue vlink=3Dpurple =
style=3D'tab-interval:.5in'>
<div class=3DSection1>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> Heh?</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> Allright allright..</span></font><font =
size=3D2
color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> Maybe that's not such a bad =
idea...</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>></span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> Well, I'll do it like =
this.</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> Anyone can ask what they would like to =
see
written in</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> Euphoria. Anything goes. If the majority =
of
users</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> think the same, then I will make that =
project.</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>></span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>> So go ahead, reply to this post with =
what you
would</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>> =
like to see
written in Euphoria.</span></font><font size=3D2 color=3Dblack =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>How about that =
fancy VB
style IDE you were saying you could do in =BD an hour? I’m not =
kidding. My
company would pay good money for it even if it took you a month. Hell, =
we’d even
market it for you since we have our own ad agency (<a
href=3D"http://www.dnjadvertising.com/">www.dnjadvertising.com</a>). As =
long as
it is practical and you have no problem with signing non-disclosure =
contracts
and other legal crap, you could make some good =
money.<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>Think about it =
and e-mail
me directly.<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>Fernando =
Ortiz<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><a
font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
</div>
</html>
------=_NextPart_000_0002_01C07776.EEA968E0--
25.
------=_NextPart_000_0000_01C07907.4D055160
charset="iso-8859-1"
Does anyone have a Euphoria plug-in for PrimalScript?
thnx
------=_NextPart_000_0000_01C07907.4D055160
charset="iso-8859-1"
<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">
<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C07907.4CA83D40">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
{margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
{mso-style-type:personal-compose;
color:black;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=3DEN-US style=3D'tab-interval:.5in'>
<div class=3DSection1>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>Does anyone =
have a
Euphoria plug-in for PrimalScript?<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
</div>
</html>
------=_NextPart_000_0000_01C07907.4D055160--
26.
Hi,
I'm trying to add the shell_notifyicon(x,NOTIFYICONDATA) function
but i can't seem to create the typedef (C) NOTIFYICONDATA.
Can someone help me.
Also , i tried to add the FlashWindow(hwnd) function in win32lib.ew, i think
it's exactly the same way as ShowWindow() .
This doesn't seem to work either. (window caption bar does not flash .)
Thanks to all that help me out.
Renzo Beggia
Email: renzo.beggia at vsk.be
27.
Have we completely lost the old messages from the RDS site we used to be
able to search for answers before posting? I see this list limits us to
a maximum of 100 messages using the web so it seems the same capability
is lost unless we choose to get e-mail or digests -- or am I missing
something?
____________________________________________________________
T O P I C A -- Learn More. Surf Less.
Newsletters, Tips and Discussions on Topics You Choose.
http://www.topica.com/partner/tag01
28.
Well, it looks as though attachments will simply not be available should
we elect mail only access...
It also appears that we have lost an automated official archive. Though
I suppose one could set up a web based email subscription to archive the
messages easily enough.
Oh, well...
Ken Rhodes
____________________________________________________________
T O P I C A -- Learn More. Surf Less.
Newsletters, Tips and Discussions on Topics You Choose.
http://www.topica.com/partner/tag01
29.
- Posted by Euman <euman at bellsouth.net>
Jan 29, 2001
-
Last edited Jan 30, 2001
------=_NextPart_000_003B_01C08A45.CEE0F640
charset="iso-8859-1"
I guess Mike just doesnt know to whom he's playing with.
____________________________________________________________
T O P I C A -- Learn More. Surf Less.
Newsletters, Tips and Discussions on Topics You Choose.
http://www.topica.com/partner/tag01
------=_NextPart_000_003B_01C08A45.CEE0F640
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I guess Mike just doesnt know to whom =
he's playing=20
with.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV> </DIV>
T O P I C A -- Learn More. Surf Less.
Newsletters, Tips and Discussions on Topics You Choose.
<A
HREF=3D"http://www.topica.com/partner/tag01">http://www.topica.com/partner/tag01</A></PRE>
------=_NextPart_000_003B_01C08A45.CEE0F640--
30.
Hello y'all?
Is there any way I can set the digests a little differently. Currently,
it kicks out a digest after the tenth message, and as talktative as this
bunch is, that's not much help.
I'd like to have it set so that it kicks out one digest a day, like our
dearly departed MUOHIO list server.
Thanks! Happy Hunting!
Travis Beaty,
Claude, Texas.
P.S. I'll be watching the topica web interface for about the next hour
or so.
____________________________________________________________
T O P I C A -- Learn More. Surf Less.
Newsletters, Tips and Discussions on Topics You Choose.
http://www.topica.com/partner/tag01
31.
Is there a core function to return a number from a sequence of atoms
representing the ASCII codes of numbers?
eg. need to get y = 205 number
sequence xx
xx = {50,48,53} -- 2,0,5 in ASCII
atom y = ???????
Looked through the Docs and couldn't see an Eval() function!!
32. Re:
- Posted by 1evan at sbcglobal.net
Jul 25, 2003
include get.e
sequence s
s = value({50,48,53})
printf(1,"%d",s[2])
Dave Probert wrote:
>
>
>Is there a core function to return a number from a sequence of atoms
>representing the ASCII codes of numbers?
>
>eg. need to get y = 205 number
>
>sequence xx
> xx = {50,48,53} -- 2,0,5 in ASCII
>
>atom y = ???????
>
>Looked through the Docs and couldn't see an Eval() function!!
>
>--^----------------------------------------------------------------
>This email was sent to: 1evan at sbcglobal.net
>
>
>TOPICA - Start your own email discussion group. FREE!
>
>
33. Re:
> Is there a core function to return a number from a sequence of atoms
> representing the ASCII codes of numbers?
>
> eg. need to get y = 205 number
>
> sequence xx
> xx = {50,48,53} -- 2,0,5 in ASCII
>
> atom y = ???????
y = xx[1] -- y now equals '50'
y = xx[2] -- y now equals '48'
y = xx[3] -- y now equals '53'
34. Re: Re:
> > Is there a core function to return a number from a sequence of atoms
> > representing the ASCII codes of numbers?
> >
> > eg. need to get y = 205 number
> >
> > sequence xx
> > xx = {50,48,53} -- 2,0,5 in ASCII
Remember also that
xx = {50,48,53}
is equal to
xx = "205"
> >
> > atom y = ???????
>
> y = xx[1] -- y now equals '50'
> y = xx[2] -- y now equals '48'
> y = xx[3] -- y now equals '53'
35. Re: Re:
So to answer the original question,
include get.e
object yy
yy = value(xx)
if yy[1] = GET_SUCCESS then
? yy[2] * 2 -- prints 410
end if
The value statement is what you need. See library.doc for more
details.
>>> cklester at yahoo.com 07/25/03 04:18PM >>>
Remember also that
xx = {50,48,53}
is equal to
xx = "205"
36. Re: Re:
> > > Is there a core function to return a number from a sequence of atoms
> > > representing the ASCII codes of numbers?
> > >
> > > eg. need to get y = 205 number
> > >
> > > sequence xx
> > > xx = {50,48,53} -- 2,0,5 in ASCII
oops. just realized what you wanted. heh. <cough>
the function is value(). look it up in the manual.
-- convert a sequence to a number
object junk
sequence x
atom y
x = {50,48,53}
junk = value(x)
y = junk[2]
37. Re:
- Posted by Euman <Euman at triad.rr.com>
Jun 24, 2006
-
Last edited Jun 25, 2006
Euman wrote:
>
> On Sat, 2006-06-24 at 15:11 -0700, Sergio Gelli wrote:
>
> >
> > Hi Euman:
> >
> > Thanks a lot for the attention, but, seems that I am not with luck.
> > Please, looks at what the EFFM.exw happened when twirling:
> > When I tried to expand drive C, the program failed. sees
> > the error message.
> >
> >
> > C:\11USRE\DIR\EFFM.exw:292 in function myalloc()
> > A machine-level exception occurred during execution of this statement
> > ... called from C:\11USRE\DIR\treeviews.ew:195 in function GetParentItem()
> > ... called from C:\11USRE\DIR\EFFM.exw:969 in function WndProc()
> >
> > ^^^ call-back from Windows
> > ... called from C:\11USRE\DIR\EFFM.exw:1201 in procedure WinMain()
> > ... called from C:\11USRE\DIR\EFFM.exw:1205
> > --> see ex.err
> >
> > Perhaps I must come back toward win-95 )
> > But, I go to continue trying with the XP.
> >
> > As our friend Chris related, the function DIR() into
> > a tine code, works fine, but crash into a longe code
> > and depends on the position that this function is
> > inside of program.
> >
> >
> > Best Regards
> >
> > Srgio Gelli - Brasil
>
> Hello again,
>
> I can only assume that this is a very small issue in HeapCreate
>
> global atom pHeap
> pHeap = c_func(xHeapCreate,{0,16384,0})
>
> this is not large enough
> try @ line:288 in effm.exw replacing 16384 w/ 32768
>
> This increases the heaps initial buffer size
> If this solves the issue for you please let me know.
>
> Nothing has changed with the call or parms to HeapAlloc since Win-95 per
> <a
> href="http://msdn.microsoft.com/library/en-us/memory/base/heapalloc.asp?frame=true">http://msdn.microsoft.com/library/en-us/memory/base/heapalloc.asp?frame=true</a>
> so I have no reason to suspect function myalloc() is a problem.
>
> Regards,
> Euman
Please disregard that info as the last parm to HeapCreate is (0) so the heap
is automatically expanded when needed.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/heapcreate.asp
My next guess is that "atom buffer" in function GetParentItem() and each
instance
of "buffer" in function GetParentItem() needs to be renamed "gp_buffer" although
Im not sure why.
I have confirmed that effm2.exw does run on my copy of Win-XP_SP2 !
I could be more help if that demo wasnt 5+ years old and I no longer
run or write programs for the M$-Platforms, only Linux.
try it and see if Im correct...
Regards,
Euman
38. Re:
Euman wrote:
>
> Euman wrote:
> >
> > On Sat, 2006-06-24 at 15:11 -0700, Sergio Gelli wrote:
> >
> > >
> > > Hi Euman:
> > >
> > > Thanks a lot for the attention, but, seems that I am not with luck.
> > > Please, looks at what the EFFM.exw happened when twirling:
> > > When I tried to expand drive C, the program failed. sees
> > > the error message.
> > >
> > >
> > > C:\11USRE\DIR\EFFM.exw:292 in function myalloc()
> > > A machine-level exception occurred during execution of this statement
> > > ... called from C:\11USRE\DIR\treeviews.ew:195 in function GetParentItem()
> > > ... called from C:\11USRE\DIR\EFFM.exw:969 in function WndProc()
> > >
> > > ^^^ call-back from Windows
> > > ... called from C:\11USRE\DIR\EFFM.exw:1201 in procedure WinMain()
> > > ... called from C:\11USRE\DIR\EFFM.exw:1205
> > > --> see ex.err
> > >
> > > Perhaps I must come back toward win-95 )
> > > But, I go to continue trying with the XP.
> > >
> > > As our friend Chris related, the function DIR() into
> > > a tine code, works fine, but crash into a longe code
> > > and depends on the position that this function is
> > > inside of program.
> > >
> > >
> > > Best Regards
> > >
> > > Srgio Gelli - Brasil
> >
> > Hello again,
> >
> > I can only assume that this is a very small issue in HeapCreate
> >
> > global atom pHeap
> > pHeap = c_func(xHeapCreate,{0,16384,0})
> >
> > this is not large enough
> > try @ line:288 in effm.exw replacing 16384 w/ 32768
> >
> > This increases the heaps initial buffer size
> > If this solves the issue for you please let me know.
> >
> > Nothing has changed with the call or parms to HeapAlloc since Win-95 per
> > <a
> > href="http://msdn.microsoft.com/library/en-us/memory/base/heapalloc.asp?frame=true">http://msdn.microsoft.com/library/en-us/memory/base/heapalloc.asp?frame=true</a>
> > so I have no reason to suspect function myalloc() is a problem.
> >
> > Regards,
> > Euman
>
> Please disregard that info as the last parm to HeapCreate is (0) so the heap
>
> is automatically expanded when needed.
> <a
> href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/heapcreate.asp">http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/heapcreate.asp</a>
>
> My next guess is that "atom buffer" in function GetParentItem() and each
> instance
> of "buffer" in function GetParentItem() needs to be renamed "gp_buffer"
> although
> Im not sure why.
>
> I have confirmed that effm2.exw does run on my copy of Win-XP_SP2 !
> I could be more help if that demo wasnt 5+ years old and I no longer
> run or write programs for the M$-Platforms, only Linux.
>
> try it and see if Im correct...
>
> Regards,
> Euman
Hi again Euman
I renamed "buffer" to "gp_buffer", but not work...
Below the error reports:
C:\11USRE\DIR\EFFM.exw:294 in function myalloc()
A machine-level exception occurred during execution of this statement
size = 256
mem = <no value>
... called from C:\11USRE\DIR\treeviews.ew:145 in function filltvitem()
id = 1639430
Item = 6371360
mask = 1
state = 0
path = <no value>
... called from C:\11USRE\DIR\EFFM.exw:907 in function WndProc()
hwnd = 984176
iMsg = -405
wParam = 0
lParam = 522132
i = <no value>
j = <no value>
k = <no value>
j = <no value>
^^^ call-back from Windows
39.
h=domainkey-signature:received:received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
bh=x/dk/pEYxfeSc9EBlXWISt6paPoKDARCoYjcNTj+eBY=;
b=k5WLcxVPh83Qp0obu6UHkpwTWA/jWPsW9lNT7Zlz57/1xxkU+ZfgB8ISGATD81a7bShxIeGPSLjwHf/l8de4VFXa91Oe+9eDlrsfUHQOuj0qkmOyikeaXHPFh9YR56hdk3oWxrWXnA7EDLRLjZfddEPjeQnzhKFRSV5YUNrticc=
DomainKey-Signature: a=rsa-sha1; c=nofws;
d=gmail.com; s=gamma;
h=message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
b=Ui/eiJNtBj5mfYWmbL7bJeAzb4UeQy3KnwogGlcsq7qeYi0Ri1ujMJWqA9K8PKpmqoQAUDA6F7TYASSDtoadd5FMqdUMa5t9RElpAJzwZflmci5zLy8HPzejAqGap3ELO+PBZ7/qZ7LCBAMNJH16+p4VfZFkmUUeEOk+UAtmiOc=
Received: by 10.141.74.17 with SMTP id b17mr367497rvl.144.1199882281727;
Wed, 09 Jan 2008 04:38:01 -0800 (PST)
Received: by 10.141.63.13 with HTTP; Wed, 9 Jan 2008 04:38:01 -0800 (PST)
Message-ID: <7033b30801090438p7c9f5bb8o2fca4f0c9b454078 at mail.gmail.com>
Date: Wed, 9 Jan 2008 10:38:01 -0200
From: "rlistas rlistas" <rlistas at gmail.com>
To: EUforum at topica.com
Subject: Re: Debian package
In-Reply-To: <1294612036-1463792638-1199848071 at boing.topica.com>
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_Part_49307_16355102.1199882281735"
References: <1294612036-1463792638-1199848071 at boing.topica.com>
------=_Part_49307_16355102.1199882281735
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Works perfect in Ubuntu 7.1, portuguese version !
Thanks Matt.
Rubens
On 1/9/08, Matt Lewis <guest at rapideuphoria.com> wrote:
>
> ============ The Euphoria Mailing List ============
>
>
> posted by: Matt Lewis <matthewwalkerlewis at gmai?.c?m>
>
>
> I've put up another attempt at the .deb package. The errors should be
> fixed,
> and eushroud and eubind are now installed (though the eushroud/eubackend
> combo
> seems to still have some bugs). I've done a little bit of updating on the
> man pages.
>
> Downloads here:
>
>
> http://sourceforge.net/project/showfiles.php?group_id=182827&package_id=256863
>
> Testing and comments appreciated.
>
> Matt
>
> --^----------------------------------------------------------------
> This email was sent to: rlistas at gmail.com
>
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bP8OFm.cmxpc3Rh
> Or send an email to: EUforum-unsubscribe at topica.com
>
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
>
>
------=_Part_49307_16355102.1199882281735
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Works perfect in Ubuntu 7.1, portuguese version !<br>Thanks
Matt.<br><br>Rubens<br><br><div><span class="gmail_quote">On 1/9/08, <b
class="gmail_sendername">Matt Lewis</b> <<a
href="mailto:guest at rapideuphoria.com">guest at rapideuphoria.com
</a>> wrote:</span><blockquote class="gmail_quote" style="margin-top:
0; margin-right: 0; margin-bottom: 0; margin-left: 0; margin-left:
0.80ex; border-left-color: #cccccc; border-left-width: 1px;
border-left-style: solid; padding-left: 1ex">
============ The Euphoria Mailing List ============<br><br><br>posted
by: Matt Lewis <matthewwalkerlewis at
gmai?.c?m><br><br><br>I've put up another attempt at the .deb
package. The errors should be fixed,<br>
and eushroud and eubind are now installed (though the eushroud/eubackend
combo<br>seems to still have some bugs). I've done a
little bit of updating on the<br>man pages.<br><br>Downloads
here:<br><br><a
href="http://sourceforge.net/project/showfiles.php?group_id=182827&package_id=256863">
http://sourceforge.net/project/showfiles.php?group_id=182827&package_id=256863</a><br><br>Testing
and comments
appreciated.<br><br>Matt<br><br>--^----------------------------------------------------------------<br>This
email was sent to:
<a href="mailto:rlistas at gmail.com">rlistas at gmail.com</a><br><br>EASY
UNSUBSCRIBE click here: <a
href="http://topica.com/u/?b1dd66.bP8OFm.cmxpc3Rh">http://topica.com/u/?b1dd66.bP8OFm.cmxpc3Rh</a><br>Or
send an email to: <a href="mailto:EUforum-unsubscribe at topica.com">
EUforum-unsubscribe at topica.com</a><br><br>For Topica's complete
suite of email marketing solutions visit:<br><a
href="http://www.topica.com/?p=TEXFOOTER">http://www.topica.com/?p=TEXFOOTER</a><br>--^----------------------------------------------------------------
<br><br></blockquote></div><br>
------=_Part_49307_16355102.1199882281735--
40.
------=_NextPart_000_00DC_01BEAE76.08132940
boundary="----=_NextPart_001_00DD_01BEAE76.08132940"
------=_NextPart_001_00DD_01BEAE76.08132940
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
UNSUBSCRIBE
------=_NextPart_001_00DD_01BEAE76.08132940
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type><BASE=20
href=3D"file://C:\Archivos de programa\Archivos comunes\Microsoft =
Shared\Material de papeler=EDa\">
<STYLE>BODY {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
P.msoNormal {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
LI.msoNormal {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
PRE {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
BLOCKQUOTE {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
A {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
MENU {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
DD {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
UL {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
DT {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
DIR {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
ADDRESS {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H1 {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H2 {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H3 {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H4 {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H5 {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H6 {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
HR {
COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
</STYLE>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR></HEAD>
<BODY background=3Dcid:00db01beae8f$2d573980$0100007f@crgseys =
bgColor=3D#ffffff>
------=_NextPart_001_00DD_01BEAE76.08132940--
------=_NextPart_000_00DC_01BEAE76.08132940
name="tech.gif"
42.
Pete or any NEIL guru,
Here is a short program that I am writing. It is supposed to put 2
rectangles on the screen. The second one after a keypress. The first is
red, the second blue. The first uses display_image () and the second uses
pixel (). The two rectangles are supposed to be exactly the same in size,
shape, and placement but different color. It doesn't seem to work right,
can anyone tell me what I'm doing wrong?
Lewis Townsend
--HERE IT IS
include neil.e
include get.e
procedure draw_rectangle (atom color, sequence ul, sequence dims, atom scr)
if scr = screen then
display_image (ul, repeat (repeat (color, dims[1]), dims[2]))
else
for line = 0 to dims[1]-1 do
pixel (repeat (color, dims[1]), {ul[1], ul[2]})
end for
end if
end procedure
if gfx_mode (640, 480, 16) then end if
draw_rectangle (#FF0000, {100,50}, {50,100}, screen)
if wait_key () then end if
draw_rectangle (#0000FF, {100,50}, {50,100}, 1234)
if wait_key () then end if
restore_mode ()
_______________________________________________________________
Get Free Email and Do More On The Web. Visit http://www.msn.com
43.
First, This function is broken, Any ideas why? I get the error
Syntax error - expected to see =, +=, -=, *=, /= or &=
Shuffling_Deck() = New_Deck()
^
Wich if i remove the () changes to
Syntax error - expected to see possibly 'end', not a type
atom temp, temp_1, card_2
^
The only way to stop the errors is to rem out
Shuffling_Deck() = New_Deck()
Any ides???
Also, Is this the best way to swap two elements of an sequence?
function shuffle()
sequence Shuffling_Deck
Shuffling_Deck() = New_Deck()
atom temp, temp_1, card_2
for card = 1 to 52 do
temp = Shuffling_Deck[card]
card_2 = rand(52)
temp_1 = Shuffling_Deck[card_2]
Shuffling_Deck[1] = temp_1
Shuffling_Deck[card_2] = temp
end for
return Shuffling_Deck
J Reeves
Grape Vine
ICQ# 13728824
_____________________________________________________________________________________
Get more from the Web. FREE MSN Explorer download : http://explorer.msn.com
44.
Well i found the problem, But i have no clue what the problem is
I swiched the order to
sequence Shuffling_Deck
atom temp, temp_1, card_2
Shuffling_Deck() = New_Deck()
And it works just fine, Again, Anyone have any idea what is going on
here??????
>From: Grape_ Vine_ <g__vine at HOTMAIL.COM>
>Reply-To: Euphoria Programming for MS-DOS <EUPHORIA at LISTSERV.MUOHIO.EDU>
>To: EUPHORIA at LISTSERV.MUOHIO.EDU
>Date: Sat, 9 Dec 2000 15:30:58 -0800
>
>First, This function is broken, Any ideas why? I get the error
>
>Syntax error - expected to see =, +=, -=, *=, /= or &=
> Shuffling_Deck() = New_Deck()
> ^
>Wich if i remove the () changes to
>
>Syntax error - expected to see possibly 'end', not a type
> atom temp, temp_1, card_2
> ^
>The only way to stop the errors is to rem out
> Shuffling_Deck() = New_Deck()
>
>Any ides???
>
>Also, Is this the best way to swap two elements of an sequence?
>
>
>function shuffle()
> sequence Shuffling_Deck
> Shuffling_Deck() = New_Deck()
> atom temp, temp_1, card_2
> for card = 1 to 52 do
> temp = Shuffling_Deck[card]
> card_2 = rand(52)
> temp_1 = Shuffling_Deck[card_2]
> Shuffling_Deck[1] = temp_1
> Shuffling_Deck[card_2] = temp
> end for
>return Shuffling_Deck
>
>
>
>J Reeves
>Grape Vine
>ICQ# 13728824
>
>>_____________________________________________________________________________________
>Get more from the Web. FREE MSN Explorer download :
>http://explorer.msn.com
_____________________________________________________________________________________
Get more from the Web. FREE MSN Explorer download : http://explorer.msn.com
45.
RTFM. I quote: "Variable declarations inside a subroutine must all
appear at the beginning, *before* the executable statements of the
subroutine." (my emphasis)
jiri
----- Original Message -----
From: "Grape_ Vine_" <g__vine at HOTMAIL.COM>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Sunday, December 10, 2000 1:04 PM
> Well i found the problem, But i have no clue what the problem is
> I swiched the order to
>
> sequence Shuffling_Deck
> atom temp, temp_1, card_2
> Shuffling_Deck() = New_Deck()
>
> And it works just fine, Again, Anyone have any idea what is going on
> here??????
>
>
>
> >From: Grape_ Vine_ <g__vine at HOTMAIL.COM>
> >Reply-To: Euphoria Programming for MS-DOS
<EUPHORIA at LISTSERV.MUOHIO.EDU>
> >To: EUPHORIA at LISTSERV.MUOHIO.EDU
> >Date: Sat, 9 Dec 2000 15:30:58 -0800
> >
> >First, This function is broken, Any ideas why? I get the error
> >
> >Syntax error - expected to see =, +=, -=, *=, /= or &=
> > Shuffling_Deck() = New_Deck()
> > ^
> >Wich if i remove the () changes to
> >
> >Syntax error - expected to see possibly 'end', not a type
> > atom temp, temp_1, card_2
> > ^
> >The only way to stop the errors is to rem out
> > Shuffling_Deck() = New_Deck()
> >
> >Any ides???
> >
> >Also, Is this the best way to swap two elements of an sequence?
> >
> >
> >function shuffle()
> > sequence Shuffling_Deck
> > Shuffling_Deck() = New_Deck()
> > atom temp, temp_1, card_2
> > for card = 1 to 52 do
> > temp = Shuffling_Deck[card]
> > card_2 = rand(52)
> > temp_1 = Shuffling_Deck[card_2]
> > Shuffling_Deck[1] = temp_1
> > Shuffling_Deck[card_2] = temp
> > end for
> >return Shuffling_Deck
> >
> >
> >
> >J Reeves
> >Grape Vine
> >ICQ# 13728824
> >
>
>_____________________________________________________________________
________________
> >Get more from the Web. FREE MSN Explorer download :
> >http://explorer.msn.com
>
>
______________________________________________________________________
_______________
> Get more from the Web. FREE MSN Explorer download :
http://explorer.msn.com
>
46.
--=====================_20275275==_.ALT
The RDS website:
http://www.rapideuphoria.com/
has two links on the main page for downloading a demo version of Euphoria. One
for DOS/Windows and one for Linux. Both the downloads contain Euphoria itself
plus documentation (a text based manual *and* a HTML based manual) and a range
of example programs. Installation is quite straightforward - just take a
little time to read the instructions first.
The demo version is pretty much near the full registered version. It is not
time limited and does not have any "nag" screens. That said there are good
reasons to purchase the registered version but try it out first. That's the
who point of the demo!
The documentation is of a *very* high quality - it is one of the things that
impressed me the most when getting to grips with the language: clear, well laid
out and with lots of example code.
Regards,
Andy Cranston.
At 08:14 21/12/2000 -0500, you wrote:
>
> Hi all,
>
>
>
> I've been watching this mail list for 2 days now and it appears to me that
> even the "newbies" are much more advanced than I am. The last time I tried my
> hand at programming, the VIC 20 was a hot item, basic was stored on a ROM,
> and Bill Gates could actually count his money without employing 350 banks to
> do it for him. Does anyone know if there is a reference manual to look up
> commands, language syntax, and other relevant information with respect to the
> euphoria pl? If I have to buy a license for euphoria to get a manual I will
> but I'm afraid that after I get it, it may not be what I need after all. Is
> there a downloadable version of it if it exists at all?
>
>
>
> Thanks for your time.
>
> Dr.X
>
> drx at cyberenhanced.com
--=====================_20275275==_.ALT
<html>
The RDS website:<br>
<br>
<a href="http://www.rapideuphoria.com/"
eudora="autourl">http://www.rapideuphoria.com/</a><br>
<br>
has two links on the main page for downloading a demo version of
Euphoria. One for DOS/Windows and one for Linux. Both the
downloads contain Euphoria itself plus documentation (a text based manual
*and* a HTML based manual) and a range of example programs.
Installation is quite straightforward - just take a little time to read
the instructions first.<br>
<br>
The demo version is pretty much near the full registered version.
It is not time limited and does not have any "nag"
screens. That said there are good reasons to purchase the
registered version but try it out first. That's the who point of
the demo!<br>
<br>
The documentation is of a *very* high quality - it is one of the things
that impressed me the most when getting to grips with the language:
clear, well laid out and with lots of example code.<br>
<br>
Regards,<br>
<br>
Andy Cranston.<br>
<br>
At 08:14 21/12/2000 -0500, you wrote: <br>
<br>
<font face="Courier New, Courier" size=2><blockquote type=cite cite>Hi
all,<br>
</font><br>
<br>
<br>
I've been watching this mail list for 2 days now and it appears to me
that even the "newbies" are much more advanced than I am. The
last time I tried my hand at programming, the VIC 20 was a hot item,
basic was stored on a ROM, and Bill Gates could actually count his money
without employing 350 banks to do it for him. Does anyone know if there
is a reference manual to look up commands, language syntax, and other
relevant information with respect to the euphoria pl? If I have to buy a
license for euphoria to get a manual I will but I'm afraid that after I
get it, it may not be what I need after all. Is there a downloadable
version of it if it exists at all?<br>
<br>
<br>
<br>
Thanks for your time.<br>
<br>
Dr.X<br>
<br>
drx at cyberenhanced.com</blockquote><br>
</html>
--=====================_20275275==_.ALT--
47.
------=_NextPart_000_0000_01C06B26.0EC821A0
charset="iso-8859-1"
Hi all,
I've been watching this mail list for 2 days now and it appears to me that
even the "newbies" are much more advanced than I am. The last time I tried
my hand at programming, the VIC 20 was a hot item, basic was stored on a
ROM, and Bill Gates could actually count his money without employing 350
banks to do it for him. Does anyone know if there is a reference manual to
look up commands, language syntax, and other relevant information with
respect to the euphoria pl? If I have to buy a license for euphoria to get a
manual I will but I'm afraid that after I get it, it may not be what I need
after all. Is there a downloadable version of it if it exists at all?
Thanks for your time.
Dr.X
drx at cyberenhanced.com
------=_NextPart_000_0000_01C06B26.0EC821A0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">
<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C06B26.0E0F8000">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
{margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
{mso-style-type:personal-compose;
color:black;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=3DEN-US style=3D'tab-interval:.5in'>
<div class=3DSection1>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>Hi all,</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'><![if =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>I've been watching this mail list for 2 days =
now and
it appears to me that even the "newbies" are much more =
advanced than
I am. The last time I tried my hand at programming, the VIC 20 was a hot =
item,
basic was stored on a ROM, and Bill Gates could actually count his money
without employing 350 banks to do it for him. Does anyone know if there =
is a
reference manual to look up commands, language syntax, and other =
relevant
information with respect to the euphoria pl? If I have to buy a license =
for
euphoria to get a manual I will but I'm afraid that after I get it, it =
may not
be what I need after all. Is there a downloadable version of it if it =
exists at
all?</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'><span style=3D"mso-spacerun: =
yes"> </span></span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>Thanks for your time.</span></font><font =
size=3D2
color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>Dr.X</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
<p class=3DMsoNormal><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
class=3DEmailStyle15><font color=3Dblack><o:p></o:p></font></span></p>
</div>
</html>
------=_NextPart_000_0000_01C06B26.0EC821A0--
48.
On 21 Dec 2000, at 13:42, Andy Cranston wrote:
> --=====================_20275275==_.ALT
>
> The RDS website:
>
> http://www.rapideuphoria.com/
>
> has two links on the main page for downloading a demo version of Euphoria.
> One for DOS/Windows and one for Linux. Both the downloads contain Euphoria
> itself plus documentation (a text based manual *and* a HTML based manual) and
> a range of example programs. Installation is quite straightforward - just
> take a little time to read the instructions first.
>
> The demo version is pretty much near the full registered version. It is not
> time limited and does not have any "nag" screens. That said there are good
> reasons to purchase the registered version but try it out first. That's the
> who point of the demo!
>
> The documentation is of a *very* high quality - it is one of the things that
> impressed me the most when getting to grips with the language: clear, well
> laid out and with lots of example code.
There is also a refman.chm in the archives, i think. It's the RDS
documentation in more easily searchable form.
Kat
> Regards,
>
> Andy Cranston.
>
> At 08:14 21/12/2000 -0500, you wrote:
>
> >
> > Hi all,
> >
> >
> >
> > I've been watching this mail list for 2 days now and it appears to me that
> > even the "newbies" are much more advanced than I am. The last time I tried
> > my hand at programming, the VIC 20 was a hot item, basic was stored on a
> > ROM, and Bill Gates could actually count his money without employing 350
> > banks to do it for him. Does anyone know if there is a reference manual to
> > look up commands, language syntax, and other relevant information with
> > respect to the euphoria pl? If I have to buy a license for euphoria to get a
> > manual I will but I'm afraid that after I get it, it may not be what I need
> > after all. Is there a downloadable version of it if it exists at all?
> >
> >
> >
> > Thanks for your time.
> >
> > Dr.X
> >
> > drx at cyberenhanced.com
>
>
>
> --=====================_20275275==_.ALT
>
> <html>
> The RDS website:<br>
> <br>
>
> <a href="http://www.rapideuphoria.com/"
> eudora="autourl">http://www.rapideuphoria.com/</a><br> <br> has two links on
> the main page for downloading a demo version of Euphoria. One for
> DOS/Windows and one for Linux. Both the downloads contain Euphoria
> itself plus documentation (a text based manual *and* a HTML based manual) and
> a range of example programs. Installation is quite straightforward -
> just take a little time to read the instructions first.<br> <br> The demo
> version is pretty much near the full registered version. It is not time
> limited and does not have any "nag" screens. That said there
> are good reasons to purchase the registered version but try it out
> first. That's the who point of the demo!<br> <br> The documentation is
> of a *very* high quality - it is one of the things that impressed me the most
> when getting to grips with the language: clear, well laid out and with lots of
> example code.<br> <br> Regards,<br> <br> Andy Cranston.<br> <br> At 08:14
> 21/12/2000 -0500, you wrote: <br> <br> <font face="Courier New, Courier"
> size=2><blockquote type=cite cite>Hi all,<br> </font><br> <br> <br> I've
> been watching this mail list for 2 days now and it appears to me that even the
> "newbies" are much more advanced than I am. The last time I tried my
> hand at programming, the VIC 20 was a hot item, basic was stored on a ROM, and
> Bill Gates could actually count his money without employing 350 banks to do it
> for him. Does anyone know if there is a reference manual to look up commands,
> language syntax, and other relevant information with respect to the euphoria
> pl? If I have to buy a license for euphoria to get a manual I will but I'm
> afraid that after I get it, it may not be what I need after all. Is there a
> downloadable version of it if it exists at all?<br> <br> <br> <br>
> Thanks for your time.<br> <br> Dr.X<br> <br>
> drx at cyberenhanced.com</blockquote><br> </html>
>
> --=====================_20275275==_.ALT--
>
49.
------=_NextPart_000_0006_01C06E07.A966FFE0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-MIME-Autoconverted: from 8bit to quoted-printable by
smtp-server.tampabay.rr.com id AAA03599
It IS a virus. I got it too but I didn=92t open it. Don=92t go blaming an=
yone
yet. Likely, the person who sent it to you does NOT KNOW HE SENT IT. It i=
s
automatically sent whenever some one opens it. Just delete it and if you
know who sent it, just let them know that they are now infected.
Dr.X
drx at cyberenhanced.com <mailto:drx at cyberenhanced.com>
-----Original Message-----
From: Euphoria Programming for MS-DOS
[mailto:EUPHORIA at LISTSERV.MUOHIO.EDU]On Behalf Of =F8=08
Sent: Saturday, January 22, 2000 3:14 AM
To: EUPHORIA at LISTSERV.MUOHIO.EDU
Subject: what the hell is it !
I got this email . It has no subject and it does not show where it came f=
rom
. It has an attached *.exe file named EGGKOKEG.exe . Is this a virus ? If=
it
is , I think I know who the f***er is who send it to me . So what is it ?
Read ya !
Ferdinand Greyling
------=_NextPart_000_0006_01C06E07.A966FFE0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">
<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C06E07.A9131380">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:16792199 0 0 0 65791 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;
text-underline:single;}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
{margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
{mso-style-type:personal-compose;
color:black;}
span.EmailStyle18
{mso-style-type:personal;
mso-ansi-font-size:10.0pt;
mso-ascii-font-family:Arial;
mso-hansi-font-family:Arial;
mso-bidi-font-family:Arial;
color:navy;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=3DEN-US link=3Dblue vlink=3Dpurple =
style=3D'tab-interval:.5in'>
<div class=3DSection1>
<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
IS a
virus. I got it too but I didn’t open it. Don’t go blaming =
anyone yet. Likely,
the person who sent it to you does NOT KNOW HE SENT IT. It is =
automatically
sent whenever some one opens it. Just delete it and if you know who sent =
it,
just let them know that they are now =
infected.<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
bsp;<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
.X<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
bsp;<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
bsp;<o:p></o:p></span></font></span></p>
<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D2 =
color=3Dblack
face=3DTahoma><span =
Message-----<br>
<b><span style=3D'font-weight:bold'>From:</span></b> Euphoria =
Programming for
MS-DOS [mailto:EUPHORIA at LISTSERV.MUOHIO.EDU]<b><span =
style=3D'font-weight:bold'>On
Behalf Of </span></b>=F8=08<br>
<b><span style=3D'font-weight:bold'>Sent:</span></b> Saturday, January =
22, 2000
3:14 AM<br>
<b><span style=3D'font-weight:bold'>To:</span></b> =
EUPHORIA at LISTSERV.MUOHIO.EDU<br>
<b><span style=3D'font-weight:bold'>Subject:</span></b> what the hell is =
it !</span></font><font
color=3Dblack><span =
/p>
<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
color=3Dblack><span =
/p>
<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3DArial><span =
style=3D'font-size:12.0pt;font-family:Arial;color:black'>I got
this email . It has no subject and it does not show where it came from . =
It has
an attached *.exe file named EGGKOKEG.exe . Is this a virus ? If it is , =
I
think I know who the f***er is who send it to me . So what is it =
?</span></font><font
color=3Dblack><span =
/p>
<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
color=3Dblack><span =
/p>
<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
style=3D'font-size:12.0pt;color:black'>Read ya !</span></font><font
color=3Dblack><span =
/p>
<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
style=3D'font-size:12.0pt;color:black'>Ferdinand
Greyling</span></font><font color=3Dblack><span =
style=3D'color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
</div>
</html>
------=_NextPart_000_0006_01C06E07.A966FFE0--
50.
------=_NextPart_000_0000_01C06E7A.7CB86A60
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-MIME-Autoconverted: from 8bit to quoted-printable by
smtp-server.tampabay.rr.com id NAA12144
> I've recieved it twice now. Both times this month. The last
> was 20/12/2000. Both times in the account I get this list
> sent to A quick look with a hex editor revealed MIME headers
> and a link to GetModuleHandleA Needless to say I decided
> against opening it, however I can find no reference to it
> anywhere. It's not on the Symantec site, which is usually
> pretty good. Anybody else come accross it?
Upon viewing the file in notepad, one can see that it is a virus that
propagates through the e-mailer installed on the victim=92s computer. The
following was extracted using notepad:
=ABO=E8=C9
_____
^=E8} =8Bt$
_____
=E8t f=B8
=8Bt$
_____
=81=C6 =F8 =E8 =E8R "
51.
On 25 Dec 2000, at 13:56, Fernando Ortiz wrote:
> > I've recieved it twice now. Both times this month. The last
> > was 20/12/2000. Both times in the account I get this list
> > sent to A quick look with a hex editor revealed MIME headers
> > and a link to GetModuleHandleA Needless to say I decided
> > against opening it, however I can find no reference to it
> > anywhere. It's not on the Symantec site, which is usually
> > pretty good. Anybody else come accross it?
I am now thinking i saw it in a virus name alias section in Norton2000
antivirus somewhere on the other puter, but since it's mouse is dead, i
can't navigate there atm, even from this puter...
> Upon viewing the file in notepad, one can see that it is a virus that
> propagates through the e-mailer installed on the victim=92s computer. T=
he
> following was extracted using notepad:
>
>
> =ABO=E8=C9
Hint: don't view MIME. If possible, view *only* in ascii mode, there is l=
ess
scripting involved. Of course, AOL users may argue that this will diminis=
h
the entertainment value of the email format,, well, for entertaiment, i w=
atch
tv.
55.
Hi all
Is posible ex.exe file.ex be faster tham a file.exe ??
Why it occur ?
sergio
56. Re:
Hi sergio,
----------
> ïÔ: sergio <sergelli at uol.com.br>
> ëÏÍÕ: EUforum <EUforum at topica.com>
> ôÅÍÁ:
> äÁÔÁ: Friday, November 09, 2001 17:16
>
> Hi all
>
> Is posible ex.exe file.ex be faster
> tham a file.exe ??
> Why it occur ?
>
> sergio
Imagine file.exe which you get with DJGPP,
and DJGPP's **some** functions which are
slower than same **some** functions of WATCOM,
then file.exe you get with WATCOM will be
faster, and ever ex.exe file.ex may be
faster than that DJGPP's file.exe above.
All these things about slower/faster
require the very careful testing on
monotask OS, for example in plain Dos-32
mode.
Binded .exe, not compiled, may be 'more'
fast than just ex.exe file.ex.
Also these things are depending from the
amount of free memory on your machine in
the concrete session, and are random in
the most cases.
Try carefully another programs, not EU's,
and you'll get same random results.
You are testing the EU programs and your
attention is concentrated on the EU's speed.
Try for speed something *another* and
you'll see same wonderful things around
the speed, especially on Windows' back.
Regards,
Igor Kachan
kinz at peterlink.ru
57. Re:
Hi sergio,
----------
> ïÔ: sergio <sergelli at uol.com.br>
> ëÏÍÕ: EUforum <EUforum at topica.com>
> ôÅÍÁ: RE:
> äÁÔÁ: Saturday, November 10, 2001 13:27
> Igor Kachan wrote:
> > Imagine file.exe which you get with DJGPP,
> > and DJGPP's **some** functions which are
> > slower than same **some** functions of WATCOM,
> > then file.exe you get with WATCOM will be
> > faster, and ever ex.exe file.ex may be
> > faster than that DJGPP's file.exe above.
> >
> > All these things about slower/faster
> > require the very careful testing on
> > monotask OS, for example in plain Dos-32
> > mode.
> >
> > Binded .exe, not compiled, may be 'more'
> > fast than just ex.exe file.ex.
> >
> > Also these things are depending from the
> > amount of free memory on your machine in
> > the concrete session, and are random in
> > the most cases.
> >
> > Try carefully another programs, not EU's,
> > and you'll get same random results.
> >
>
> I don't understand, if is fastest when uses EX.EXE
> why someone uses an EXE file?
>
> thanks
>
Sergio, EU's EXE is faster for the most part, but
sometimes under *some* conditions, you may get
interpreted EU's program which is faster than
compiled EXE EU's program, so just try and choose
the fastest variant for yourself.
You can use interpreted or binded or compiled
with 6 different C compilers EU programs for any
taste. Speed will be different for each case.
Again, just try & choose the fastest variant for
your concrete conditions (machine, OS, RAM, etc...).
And remember, the *single wrong* operator in the
concrete code (in any programming language) can
decrease speed in 10..20 times sometimes.
The speed depends on programmer's ability very
very much. So, the special standard benchmark
programs exist for the speed tests of the machines,
languages, compilers, interpreters and so on.
Regards,
Igor Kachan
kinz at peterlink.ru
58.
- Posted by jpsas at peoplepc.com
Nov 18, 2001
This is a multi-part message in MIME format.
------=_NextPart_000_0007_01C17061.B8768C00
charset="iso-8859-1"
------=_NextPart_000_0007_01C17061.B8768C00
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.4611.1300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
59.
- Posted by jbrown1050 at yahoo.com
Nov 23, 2001
On 0, aku at inbox.as wrote:
>
>
> T> Bound programs are probably slightly more secure
from crackers simply
> T> because it's unusual....
>
>
> Rob, if the shrouded program decyrpted while
running, can
> crackers get the code (although variable names
changed) by
> reading directly from ex*.exe memory?
It depends on how the program information is stored.
Remember, sequences aren
arrays. It is possible that Rob used a similar
technique to store the program
code, so that the data is not continuous.
Non-continuous data would be
harder to be read directly from memory.
If, however, the data WAS stored in an array, then it
would be easier
to read the code. (Though still non-trivial, as you
would need a powerful
debugger and be a very good asm- or even machine-code
reader, in order to
find the data.)
=========================================================
>
>
--
Linux User:190064
Linux Machine:84163
http://jbrown105.1avenue.com
60.
------=_NextPart_000_0014_01BD37DC.85C73640
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Signoff Euphoria
------=_NextPart_000_0014_01BD37DC.85C73640
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.2106.6"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>Signoff =
------=_NextPart_000_0014_01BD37DC.85C73640--
61.
----------------------------------------------------------
-- Lucius L. Hilley III -- lhilley at cdc.net --
-- of -- --
-- Hollow Horse Software -- http://www.cdc.net/~lhilley --
----------------------------------------------------------
you want off then use
http://frontpage.cdc.net/blackdog/listserv.htm
You should have sent the message to
LISTSERV at MIAMIU.ACS.MUOHIO.EDU
not
EUPHORIA at MIAMIU.ACS.MUOHIO.EDU
----------
From: Gordon Croll <ghcroll at BIT.NET.AU>
To: Multiple recipients of list EUPHORIA <EUPHORIA at MIAMIU.ACS.MUOHIO.EDU>
Subject:
Date: Thursday, February 12, 1998 2:34 AM
Signoff Euphoria
63.
>000000: 67 64 69 33 32 2E 64 6C 6C 00 00 00 00 00 00 00 gdi32.dll.......
>000010: 03 00 00 00 01 00 00 00 2D 00 00 00 3C 00 00 00 ........-...<...
>000020: 4A 00 00 00 00 00 00 00 00 00 04 34 04 47 65 74 J..........4.Get
>000030: 53 74 6F 63 6B 4F 62 6A 65 63 74 00 53 74 72 65 StockObject.Stre
>000040: 74 63 68 44 49 42 69 74 73 00 53 77 61 70 42 75 tchDIBits.SwapBu
>000050: 66 66 65 72 73 00 00 00 00 00 00 00 00 00 00 00 ffers...........
>000060
Mic:
I still do not understand what the values from 0C
through 29 (excluding the zero word) represent. Where
is the 2A offset calculation placed in the header ?
The reason I am trying to understand the format is
that I would like to try adding to the code and a
user has to be able to add more library functions.
Is there any chance that you will include your
library utility with your code with your next update
of your code ?
Bernie
64.
by TDIMSO15.backend.tdata.com.ar
(iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
with ESMTPA id <0HNW004LI142EZ at TDIMSO15.backend.tdata.com.ar> for
EUforum at topica.com; Wed, 05 Nov 2003 13:43:17 -0300 (GMT)
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Anyone want to write an "intelligent" mail filter?
lla
vundefinedundefined) Gecko/20030624
<2104666597-1463792638-1068001997 at boing.topica.com>
<2005949051-1463792382-1068033513 at boing.topica.com>
Hi Ricardo,
I had the same problem and i always used http://www.mail2web.com/ and=20
worked right. It=B4s a free service to check your pop account and delete=
=20
spam mails before downloading them.
Hope this helps,
Guillermo Bonvehi
Ricardo Forno wrote:
>=20
>=20
> Rob:
> Is there some SPAM filter that not only identifies SPAM, but also avoids
> downloading them from the server and deletes them in the server?
> I'm asking this because I have a 56K connection, and SPAM consumes a big
> part of connection time (I have to pay for it).
> A few days ago, I had to resort to change my e-mail address from rforno t=
o
> rmforno, in view of increasing SPAM.
> Regards.
65.
by inmta008.topica.com.topica.com with SMTP; 8 Nov 2003 21:20:20 -0000
(Rockliffe SMTPRA 5.3.4) with ESMTP id <B0000381941 at nocmailsvc001.allthesi=
tes.org> for <EUforum at topica.com>;
Sat, 8 Nov 2003 16:20:10 -0500
From: kbochert at copper.net
Subject: Re: Remainder
Priority: normal
Content-description: Mail message body
On 8 Nov 2003 at 15:06, Robert Craig wrote:
>
>
> kbochert at copper.net wrote:
> > A solution is to observe the bit pattern of the double generated by X/Y=
> > and correct the case where it is a single bit less than a whole number.=
> >
> > In C: (and without sign stuff)
> > double rem( double X, double Y)
> > struct {
> > double d;
> > long L[2];
> > } z;
> > z.d =3D X / Y;
> > if (L[0] =3D=3D -1) {
> > L[0] =3D 0;
> > ++L[1];
> > } ;
> > return X - floor (z) * Y
> > }
> >
> > (Basically, if X is a multiple of Y, then the error case division produ=
ces
> > a double whose bit pattern looks something like:
> > 0x0048FFFFFFFFFFFF )
> >
> > This works very nicely on all cases I have tried where X is a multiple
> > of Y, and at worst, decreases the accuracy of a very few remainders()
> > ( 1 in 65k?) by a single bit.
> >
> >
> > How do you do this in EU??
>
> You have my source. In runtime.c, Dremainder(),
> you can see that I just call the C fmod() function,
> which I assume executes an Intel instruction.
> I also have a cryptic comment "for now". I don't remember
> why I said that. Maybe I thought there was a speed optimization
> I could do.
>
> I never attempt to "fix" problems due to finite
> floating-point accuracy. Most languages that I'm aware of
> leave it to the programmer to handle situations like this.
>
> One exception is APL, which has a concept called
> "comparison tolerance" or "fuzz".
> In APL if two numbers are the same to about
> 13 digits (as I recall) then APL considers them to be exactly equal.
> The programmer can adjust this value up or down if he wants.
> This fuzz value pervades the whole APL system.
> I believe it also affects operations like floor and remainder,
> just like your idea above, but the differences
> can be much more than 1 bit.
>
> The fuzz factor idea solves a lot of problems,
> but you can have weird cases where for example
> A =3D B and B =3D C but A !=3D C
>
> I don't think computer science types
> are happy with the idea.
>
> Regards,
> Rob Craig
> Rapid Deployment Software
> http://www.RapidEuphoria.com
>
The only issue here seems to be that the modulo nature of the
function, floor() in my code or the equivalent in the Intel 'repeated
subtraction' algorithm, causes a situation in which an arbitrarily small
inaccuracy can cause the result to 'toggle' to a very bad value.
Intel's 80-bit internal precision causes this error to be a single bit.
This method is a little different than a fuzz factor in that it only modifi=
es
a specific case. In rare circumstances, that modification can (I think)
introduce a 1/2 bit error.
Perhaps that 'for now' comment came about from seeing others
problems with fmod(), and deciding that intel's algorithm was
good enough, pending investigation.
It should be pointed out that Intel does not actually supply a remainder
function. There is an instruction FPREM (and FPREM1) that performs
a partial remainder calculation. It is up to the user (the fmod() fct in th=
e
C library) to write code that compensates for this.
Another interesting note from the manual is:
"FPREM produces an exact result; the precision exception does not
occur and the rounding control has no effect"
My manual specifically mentions that an important use of FPREM is to
reduce the arguments of periodic function like sine, and it provide status
bits to aid that use. In that usage, this modulo problem is meaningless.
It certainly looks like the standard C library provides a na=EFve
implementation aimed at periodic functions.
I can't prove that the algorithm above is 'correct', but it seems to very
clearly produce better results.
KtB
66.
Evan:
Try this:
dmScreenSettings = allocate(120) --DEVMODE structure
mem_set(dmScreenSettings,0,120) --clear smScreenSettings
poke(dmScreenSettings + 8,120) --dmSize
poke4(dmScreenSettings +
16,or_all({DM_BITSPERPEL,DM_PELSWIDTH,DM_PELSHEIGHT})) -- dmFields
poke4(dmScreenSettings + 100, 24) -- dmBitsPerPel
poke4(dmScreenSettings + 104, 640) --dmPelWidth
poke4(dmScreenSettings + 108, 480) --dmPelHeight
if c_func(ChangeDisplaySettingsA,{dmScreenSettings,CDS_FULLSCREEN}) !=
DISP_CHANGE_SUCCESSFUL then
retval = message_box("The requested fullscreen mode is not
supported by\nyour video card. ", "Error", or_bits(MB_OK,MB_ICONSTOP))
end if
Bernie
67. Re:
Nope, that got me the same results that my numbers did.
Bernie Ryan wrote:
>
>
>Evan:
> Try this:
>
>dmScreenSettings = allocate(120) --DEVMODE structure
>mem_set(dmScreenSettings,0,120) --clear smScreenSettings
>poke(dmScreenSettings + 8,120) --dmSize
>poke4(dmScreenSettings +
>16,or_all({DM_BITSPERPEL,DM_PELSWIDTH,DM_PELSHEIGHT})) -- dmFields
>poke4(dmScreenSettings + 100, 24) -- dmBitsPerPel
>poke4(dmScreenSettings + 104, 640) --dmPelWidth
>poke4(dmScreenSettings + 108, 480) --dmPelHeight
>if c_func(ChangeDisplaySettingsA,{dmScreenSettings,CDS_FULLSCREEN}) !=
>DISP_CHANGE_SUCCESSFUL then
> retval = message_box("The requested fullscreen mode is not
>supported by\nyour video card. ", "Error", or_bits(MB_OK,MB_ICONSTOP))
>end if
>
>Bernie
>
>
68.
Hi
I need the clib.e in order to run the openGL demo by Daniel Kluss
Anyone know where to get it, or can you email me a copy please.
Ta
Chris
---- Message sent via Totalise Webmail - http://www.totalise.co.uk/
69. Re:
You may also want to check out http://nehe.gamedev.net/ . I've made
quite a few Euphoria ports of the OpenGL lessons there.
Chris Burch wrote:
>
>
> Hi
>
> I need the clib.e in order to run the openGL demo by Daniel Kluss
>
> Anyone know where to get it, or can you email me a copy please.
>
> Ta
>
> Chris
>
>
> ---- Message sent via Totalise Webmail - http://www.totalise.co.uk/
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>
70.
--=====================_4379845==_.ALT
Joel H. Crook<br>
<br>
"<b><i>A Strong house is built upon a strong foundation. What are
your beliefs built upon</b></i>?"<br>
<div align="right">
-- "The Book of Reminders"</blockquote><br></x-html>
Joel H. Crook
Manager, Information Services
Certified Novell Administrator
Microsoft Certified Professional, OS Specialist
Kellogg & Andelson Accountancy Corp.
14724 Ventura Blvd. 2nd Floor
Sherman Oaks, CA 91403
(818) 971-5100
--=====================_4379845==_.ALT
<html><div>Joel H. Crook<br></div>
<div><br></div>
<div>&quot;<b><i>A Strong house is built upon a strong
foundation. What are</div>
<div>your beliefs built
<div><div align="right"></div>
&nbsp; -- &quot;The Book of
<br>
Joel H. Crook<br>
<br>
Manager, Information Services<br>
<font size=1>Certified Novell Administrator<br>
Microsoft Certified Professional, OS Specialist<br>
<br>
</font><b>Kellogg & Andelson Accountancy Corp.<br>
</b><font size=1>14724 Ventura Blvd. 2nd Floor<br>
Sherman Oaks, CA 91403<br>
(818) 971-5100<br>
</font></html>
--=====================_4379845==_.ALT--
71.
This is version 1.2b of Object Euphoria--I fixed a bug in delete(). In
making the optimizations for v1.2 I inadventantly omitted the code which
destroyes the internal representation of a deleted eobject--this has been
corroected. This can be listed as "minor bug fix".
-- Mike Nelson
72.
Skoda wrote:
> does anybody have the function that converts sequences with many other
> sequences under it, and sequences under it, into one sequence which has
> just atoms(=string)
> i have tried to write such function but it would be quite complicated
> because there can be unlimited number of sequences under sequences...
--Warning untested code:
function sequence_to_string(sequence s)
sequence rs
rs={}
for i=1 to length(s) do
if atom(s[i]) then
rs&=s[i]
else
rs&=sequence_to_string(s[i])
end if
end for
return rs
end function
-- Mike Nelson
73.
- Posted by Nick Johnson <arachnid at MAD.SCIENTIST.COM>
Mar 26, 2000
-
Last edited Mar 27, 2000
Michael Nelson wrote:
> Skoda wrote:
>
> > does anybody have the function that converts sequences with many other
> > sequences under it, and sequences under it, into one sequence which has
> > just atoms(=string)
> > i have tried to write such function but it would be quite complicated
> > because there can be unlimited number of sequences under sequences...
>
> --Warning untested code:
>
> function sequence_to_string(sequence s)
> sequence rs
> rs={}
> for i=1 to length(s) do
> if atom(s[i]) then
> rs&=s[i]
> else
> rs&=sequence_to_string(s[i])
> end if
> end for
> return rs
> end function
>
> -- Mike Nelson
Noooooooooooo! You got there first! Not fair! I was looking forward to
this!!
Nick
74.
Nick,
I got the code but you had a good explanation of recursion--and you hadn't
seen my code. Looks like shared honors to me!
-- Mike
75.
- Posted by dmccu at connect.ab.ca
Sep 09, 2001
Hi Everyone,
I am new to Euphoria and I have been working with it for just a few
weeks. I like it so far, but there are a few small issues I have.
First of all, the windows version opens up in what looks like a DOS
box, and when using the debugger looking at my variables I only get
about the first 15 characters of my string. I bring in a line at a time
of a text file and at times I am modifying towards the end of the string
which is quite often much larger than 15 characters and I can't see what
it is doing.
Is there a plan to make the windows version a fully windows program with
a nice GUI with the ability to watch the full variables no matter how
long they are?
On the plus side I like the way the language uses libraries. There are
many features that aren't in the main version but somewhere someone has
written a library for. I was wishing it had regular expression search
and replace and lo and behold I went to the archive and there it was.
This happened with a few other features as well.
Thanks for your time,
Dan
76.
Hi All:
Can anyone tell me how I would go about changing the DNS server's IP
address on either a Win2K or Win9x PC programmatically? That is to
say, what registry key, or whatever would/could I change to set up on
a PC with dial up networking the DNS servers IP address?
It seems that several ISPs out there (AOL being 1 of the biggest
offenders) do not set the IP address for a DNS server when a person
dials up & logs into the internet. They are doing name resolution in
some other way & not setting the DNS's IP address like good little boys
& girls.
All suggestions greatly appreciated.
Regards
Brian Keene
77. Re:
Dan writes:
> Is there a plan to make the windows version a fully
> windows program with a nice GUI with the ability to
> watch the full variables no matter how long they are?
Yes, I'd like to do that eventually.
For the time being it's easier to support the identical
trace/debug facility on all 3 platforms.
Currently 20 characters are allocated at the bottom
of the screen for displaying each atom variable,
and 80 characters for each sequence.
To see more, your program will have to display the variable
using maybe the print command:
? myvar
You can also use the ! command in the trace facility to
dump all the variables, and see much more of each sequence.
Regards,
Rob Craig
Rapid Deployment Software
http://www.RapidEuphoria.com
78. Re:
On 10 Sep 2001, at 9:06, brian_keene at yahoo.com wrote:
>
> Hi All:
> Can anyone tell me how I would go about changing the DNS server's IP
> address on either a Win2K or Win9x PC programmatically? That is to
> say, what registry key, or whatever would/could I change to set up on
> a PC with dial up networking the DNS servers IP address?
>
> It seems that several ISPs out there (AOL being 1 of the biggest
> offenders) do not set the IP address for a DNS server when a person
> dials up & logs into the internet. They are doing name resolution in
> some other way & not setting the DNS's IP address like good little boys
> & girls.
Aohell double proxies their users' ip#s. That is to say, the number assigned to
the
user is essentially made up, and the ip# of the router the user is dialed into
is also
made up. You could be at 172.149.2.9 one day and 152.202.39.92 the next day.
They aren't going to change this. AOhell bought a *small* ip block, relative to
their
userbase, and they spread it around the usa as needed, not one group of numbers
to
a city, or state. In an addy mask like 98CA275C.ipt.aol.com, the "98CA275C" is a
hex translation of the ip#, 98.CA.27.5C , or 152.202.39.92.
My suggestion is to get a real isp, not AOL or MSN or .NET. Both spend a great
deal
of time trying to lock in proprietary closed "standards".
Kat
79.
Hi!
Problem: Suddenly ex.exe and can't find any of the files in
c:\EUPHORIA\INCLUDE.
My OS:winXP home edition...
I have tried to play around with the EUDIR environment variable (in
autoexec.nt, autoexec.bat and in the windows systems settings menu
(sorry, don't know what the windows systems settings menu is really
called in English but hopefylly, someone will get it anyway). If EUDIR
is set at all three locations, the systems meny way seems to have the
highest priority... Anyway that has not fixed my problem. If I put the
needed include files in the same library as my euphoria program it works
fine. Has anyone any idea of what I should do?
help plase!/Martin Karlsson
80.
Has anyone written a Euphoria application that can be used to make web
pages more interactive?
_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com
81.
- Posted by Jeff Zeitlin <jeff.zeitlin at MAIL.EXECNET.COM>
Jun 12, 1998
-
Last edited Jun 13, 1998
I was playing with some ideas and writing code for them, when I
realized that I had no function exactly equivalent to exp(x),
which returns the famous "e" raised to the x power. Sure, this
could be done by using the power() function and hard-coding "e" -
but how far in do you remember "e"?
So, I sat down with a piece of paper and a pen, and managed to
derive the following function:
global function exp(x)
return power(n,x/log(n))
end function
where n is _any_ positive number (strictly greater than zero) -
except 1.0 exactly.
If x is 1, you will get the value of "e" to the limits of
Euphoria's precision in the power and log functions.
--
Jeff Zeitlin
jeff.zeitlin at mail.execnet.com
82.
- Posted by erez <goscar at IBM.NET>
Jun 14, 1998
-
Last edited Jun 15, 1998
hello
my name is erez and i'm new to this list.
i had some problems in writing a batch file, it goes like this:
i'm using ms-dos 6.2 ,i need to write a file whitch uses a for loop to =
type all the txt in my disk on the screen using a pipeline. after every =
screen is full i need to clrscr and pause
i tried :::: for %%f in (*.txt) do type %%f | more
pause
cls
it didnot stoped ,please tell me how to use the pipeline or the "><>>" =
signes=20
thanx=20
=20
goscar at ibm.net
83.
erez wrote:
>
> i tried :::: for %%f in (*.txt) do type %%f | more
> pause
> cls
> it didnot stoped ,please tell me how to use the pipeline or the "><>>" signes
> thanx
Erez,
I stopped using Command.com many years ago because of things like this.
I use 4Dos.com now. As I remember in Command.com, you can't do what you
want to do.
In 4Dos.com the line would be:
for %f in (*.txt) do (type %f | more^ pause^ cls)
Even better, in 4Dos you could use the following line instead:
List *.txt
This built in command does everything you described and gives you MANY
more capabilities.
If you are interested in 4Dos, visit their page and get a demo.
http://www.jpsoft.com/
PS
I have no interest in JP Software. My interest is helping users make
better use of their computers.
--
Terry Constant
mailto:constant at flash.net
84.
- Posted by Jacques Deschenes <desja at GLOBETROTTER.QC.CA>
Jun 14, 1998
-
Last edited Jun 15, 1998
At 22:47 14-06-98 +0300, you wrote:
>hello
>my name is erez and i'm new to this list.
>i had some problems in writing a batch file, it goes like this:
>i'm using ms-dos 6.2 ,i need to write a file whitch uses a for loop to type all
>the txt in my disk on the screen using a pipeline. after every screen is full i
>need to clrscr and pause
>i tried :::: for %%f in (*.txt) do type %%f | more
> pause
> cls
>it didnot stoped ,please tell me how to use the pipeline or the "><>>" signes
>thanx
>
> goscar at ibm.net
>
You should put the 3 command in a separated file that you call
for %%f in (*.txt) do call page.bat %%f
page.bat will containt the following 4 lines
@echo off
type %1|more
pause
cls
Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at globetrotter.qc.ca
85.
- Posted by
Jun 01, 2005
-
Last edited Jun 02, 2005
X-MimeOLE: Produced By Microsoft Exchange V6.0.6249.0
Subject: can anyone help me please.
Date: Wed, 1 Jun 2005 17:57:30 -0500
Message-ID: <CDC3E3C423472D4A8663242DE1AD5D0301291655 at demetexsf01.corp.deme=
t.com.mx>
X-MS-Has-Attach:=20
X-MS-TNEF-Correlator:=20
Thread-Topic: can anyone help me please.
Thread-Index: AcVnDk1pXc/e5tLDEdmXqQBQ2gYPqg==
From: "Rangel, Hebert Rogelio" <hrangel at demet.com.mx>
To: <EUforum at topica.com>
Return-Path: hrangel at demet.com.mx
X-OriginalArrivalTime: 01 Jun 2005 22:57:30.0860 (UTC) FILETIME=[4A4322C0=
:01C566FD]
Hello can anyone please help me i=B4m want to make a mathematical operation=
but i don=B4t know how to doit i been trying for 3 day now and i still can=
=B4t do it i want to get the % of something, and once i have if i want to s=
end it to a file, this is my code, please help e-mail me please hrangel@dem=
et.com.mx
tahks for you help
include Win32lib.ew
without warning
---------------------------------------------------------------------------=
-----
-- Window Window1
global constant Window1 = create( Window, "The Window", 0, Default, Defau=
lt, 280, 80+ 19, 0 )
global constant OK = create( PushButton, "OK", Window1, 180, 20, 56, 28, =
0 )
global constant cantidad = create( EditText, "", Window1, 28, 24, 116, 20=
, 0 )
-----
integer cienp
object tom
integer cinep2
procedure OK_onClick ()
cienp = open("\\ga.txt", "u")
tom = getText(cantidad)
cinep2 = (tom/10)
puts(cienp, cinep2)
flush(cienp)
abort(1)=20
end procedure
onClick[OK] = routine_id("OK_onClick")
WinMain( Window1, Normal )
86.
X-MimeOLE: Produced By Microsoft Exchange V6.0.6249.0
Subject: ERROR, PLEASE HELP!
Date: Fri, 3 Jun 2005 11:54:54 -0500
Message-ID: <CDC3E3C423472D4A8663242DE1AD5D0301291FB4 at demetexsf01.corp.deme=
t.com.mx>
X-MS-Has-Attach:=20
X-MS-TNEF-Correlator:=20
Thread-Topic: Digest for EUforum at topica.com, issue 4933
Thread-Index: AcVnYLANT40qpojRSby7gxOArRsKqgBDRv9Q
From: "Rangel, Hebert Rogelio" <hrangel at demet.com.mx>
To: <EUforum at topica.com>
Return-Path: hrangel at demet.com.mx
X-OriginalArrivalTime: 03 Jun 2005 16:54:54.0684 (UTC) FILETIME=[F765A1C0=
:01C5685C]
HELLO IT=B4S ME AGAIN ASKING FOR YOU HELP I BEEN TRYING TO ENTER A NUMBER A=
ND SEND IT TO A FILE BUT INSTEAD IT WRITES LETTERS I TRY WHAT Don Cole SAY =
IN A MESSAGE, BUT NOW WHEN I TYPE THE NUMBER IN THE EDIT-TEXT BOX AND PRESS=
OK, IT SEND AN ERROR, THE ERROR IS THE NEXT ONE AND THE EUPHORIA CODE IS A=
FTER THE ERROR, IN THE ERROR WHERE IT SAY tom2 is 25, I TYPED 25 IN THE EDI=
TTEXT BOX IF YOU TYPE ANY OTHER NUMBER IN THE EDIT TEXT BOX, IT WILL CHANGE=
THE 25 FOR THAT NUMBER.
THANK FOR YOU HELP AND HOPE I CAN UNDERSTAND HOW TO DOIT.
THANKS
------------------------------------ERROR------------------------
D:\euphoria\rfb\trytry.exw:32 in procedure OK_onClick()
type_check failure, tom2 is 25
... called from \EUPHORIA\include\Win32lib.ew:12185 in function wmCommand()=
... called from \EUPHORIA\include\Win32lib.ew:12429 in function WndProc()
^^^ call-back from Windows
... called from \EUPHORIA\include\Win32lib.ew:12911 in function SubProc()
^^^ call-back from Windows
... called from \EUPHORIA\include\Win32lib.ew:13074 in procedure WinMain()
... called from D:\euphoria\rfb\trytry.exw:41
--> see ex.err
Press Enter...
--------------------END OF THE ERROR CODE----------------------------------=
----
-----------------------------------EUPHORIA CODE---------------------------=
------
include Win32lib.ew
without warning
---------------------------------------------------------------------------=
-----
-- Window Window1
global constant Window1 = create( Window, "The Window", 0, Default, Defau=
lt, 280, 80+ 19, 0 )
global constant OK = create( PushButton, "OK", Window1, 180, 20, 56, 28, =
0 )
global constant cantidad = create( EditText, "", Window1, 28, 24, 116, 20=
, 0 )
-----------------------------------------------------------------------
global function getdec(sequence seq) --returns a decimal given a sequence
atom de
sequence value_string
value_string=value(seq[1..length(seq)])
de = value_string[2]
return de
end function
---------
integer cienp
sequence tom
sequence tom2
integer de
sequence value_string
procedure OK_onClick ()
cienp = open("\\ga.txt", "u")
tom = getText(cantidad)
value_string = value(tom[1..length(tom)])
de = value_string[2]
tom2 = de
puts(cienp, de)
flush(cienp)
abort(1)=20
end procedure
onClick[OK] = routine_id("OK_onClick")
WinMain( Window1, Normal )
87.
------=_NextPart_000_004F_01BFCE5A.8F868700
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I'm a beginner and this is my first program. Anybody want to pick at it =
and help me do better? I also want to use the EX02.EXW example in Dave's =
Winlib to port this code in to so it'll run in winders[8*9 As of yet I =
don't know how. I'm also interested in using sprite graphics for dice.
-- Dice version 3 by
-- Joe Schwenk jschwenk at hsonline.net
-- Alvin Koffman ka9qlq at hotmail.com
-- with trace
-- trace(1)
include graphics.e -- include graphics
include get.e -- include keyboard imput
integer d1, d2, t, z, y, k -- declair some integers
procedure winner() -- CALL FOR WINNER
text_color(10) -- change text color
puts (1, "\n\t*****WINNER!!*****\n\t*****WINNER!!*****") -- display =
winner
y =3D 0 -- set loop to off
text_color (7) -- Set color back to normal
puts (1, "\n")
end procedure
procedure throw_dice() -- call this to throw dice
d1 =3D rand (6) -- throw dice
d2 =3D rand (6)
t =3D d1 + d2 -- total dice
text_color (12) -- change text color
puts (1, "\nDice 1 is: ") -- display results
print (1, d1)
puts (1, "\tDice 2 is: ")
print (1, d2)
puts (1, "\tDice total is: ")
print (1, t)
end procedure
procedure looser() -- call for looser
text_color (14) -- change text color
if -- is it snake eyes?
t =3D 2
then
puts (1, "\n\t*****SNAKE EYES TURKEY!!*****\n\t*****SNAKE EYES =
TURKEY!!*****")
else
text_color (5)
puts (1, "\n\t*****YAH BIG LOOSER!!*****\n\t*****YAH BIG =
LOOSER!!*****")
end if
y =3D 0 -- set loop to off
text_color (7) -- Set color back to normal
puts (1, "\n")
end procedure
procedure other_throws() -- keep trowing the dice
while -- multipel throw loop
y > 0
do
throw_dice() -- next throw
if -- check total for loose
t =3D 2
then
looser()
end if
if t =3D z -- check total for winner
then
winner()
end if
if -- check total for loose
t =3D 7
then
looser()
end if
if --check total for loose
t =3D 11
then
looser()
end if
end while -- end multipel throw loop
end procedure -- end next throw
procedure game()-- start game
throw_dice()
z =3D t -- keep to compair first throw with others
if -- did you win?
t =3D 7
then
winner()
end if
if -- did you win?
t =3D 11
then
winner()
end if
if -- did you loose?
t =3D 2
then
looser()
end if
other_throws() -- no 7 or 11? throw on
end procedure
=
----------------------------------------------------------------------
-- start program.
=
----------------------------------------------------------------------
y =3D 1 -- set other_throw loop to on
k =3D 121 -- set while play loop to on
while -- loop to check if you want to play
k =3D 121 -- ASCII for y
do
puts (1, "Play?") -- ask question
k =3D wait_key() -- wait for answer
if -- if not "y" then end program
k !=3D 121
then --set y to quit game
y =3D 0
else -- if "y" then start a game
y =3D 1 -- reset y and z for new game
z =3D 0
game() -- start game
end if
end while -- end check =20
http://ka9qlq.tripod.com/
------=_NextPart_000_004F_01BFCE5A.8F868700
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#a8c8f0>
<DIV><FONT face=3DArial size=3D2>I'm a beginner and this is my first =
program.=20
Anybody want to pick at it and help me do better? I also want to use the =
EX02.EXW example in Dave's Winlib to port this code in to so it'll run =
in=20
winders[8*9 As of yet I don't know how. I'm also interested in using =
sprite=20
graphics for dice.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial=20
p; --=20
Dice version 3=20
by<BR> =
-- Joe=20
Schwenk <A=20
-- Alvin Koffman <A=20
nbsp; =20
-- with=20
p; =20
-- trace(1)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> include graphics.e -- =
include=20
graphics<BR> include get.e -- =
include=20
keyboard imput</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> integer d1, d2, t, z, y, =
k --=20
declair some integers</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> procedure winner() =
-- CALL FOR=20
WINNER<BR> text_color(10) -- =
change=20
text color<BR> puts (1,=20
"\n\t*****WINNER!!*****\n\t*****WINNER!!*****") -- display=20
winner<BR> y =3D=20
0 -- set loop to=20
off<BR> text_color (7) -- Set color back to=20
normal<BR> puts (1, "\n")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> end =
procedure</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> procedure throw_dice() -- =
call this to=20
throw dice</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> d1 =3D rand=20
(6) -- throw=20
dice<BR> d2 =3D rand (6)<BR> t =3D =
d1 +=20
d2 -- total=20
dice<BR> text_color =
(12) =20
-- change text color<BR> puts (1, "\nDice 1 is: ") -- =
display=20
results<BR> print (1, d1)<BR> puts =
(1,=20
"\tDice 2 is: ")<BR> print (1, =
d2)<BR> puts=20
(1, "\tDice total is: ")<BR> print (1, t)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> end =
procedure</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> procedure looser() =
-- call for=20
looser<BR> text_color (14) -- =
change=20
text color<BR> =20
; =20
-- is it snake eyes?<BR> t =3D=20
2<BR> =
then<BR> =20
puts (1, "\n\t*****SNAKE EYES TURKEY!!*****\n\t*****SNAKE EYES=20
TURKEY!!*****")<BR> =
else<BR> =20
text_color (5)<BR> puts (1, =
"\n\t*****YAH=20
BIG LOOSER!!*****\n\t*****YAH BIG LOOSER!!*****")<BR> =
end=20
if<BR> y =3D=20
=20
-- set loop to off<BR> text_color =
(7) =20
-- Set color back to normal<BR> puts (1, =
"\n")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> end procedure</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> procedure other_throws() =
-- keep=20
trowing the dice</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
bsp; =20
-- multipel throw loop<BR> y >=20
0<BR> do</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
throw_dice() -- =
next=20
throw</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
; =20
-- check total for loose<BR> t =3D=20
2<BR> =
then<BR> =20
looser()<BR> end if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> if t =3D z -- =
check total=20
for winner<BR> =20
then<BR> =
winner()<BR> end=20
if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
if -- =
check=20
total for loose<BR> t =3D=20
7<BR> =
then<BR> =20
looser()<BR> end if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
if =
--check=20
total for loose<BR> t =3D=20
11<BR> =20
then<BR> =
looser()<BR> end=20
if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> end=20
while -- end multipel throw =
loop<BR> =20
end procedure -- end next throw</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> procedure game()-- start=20
game<BR> throw_dice()</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> z =3D=20
t -- keep to compair =
first throw=20
with others<BR> =20
if -- =
did you=20
win?<BR> t =3D =
7<BR> =20
then<BR> =
winner()<BR> end=20
if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
if -- =
did you=20
win?<BR> t =3D =
11<BR> =20
then<BR> winner()<BR> =
end=20
if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
if -- =
did you=20
loose?<BR> t =3D =
2<BR> =20
then<BR> =
looser()<BR> end=20
if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> other_throws() -- no 7 or =
11? throw=20
on</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> end procedure</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
----------------------------------------------------------------------<BR=
> =20
-- start program.<BR> =20
----------------------------------------------------------------------</F=
ONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> y =3D=20
1 -- set =
other_throw loop=20
to on<BR> k =3D =
121 -- set=20
while play loop to on</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
while -- loop to =
check if=20
you want to play<BR> k =3D=20
121 -- ASCII for=20
y<BR> do<BR> puts (1, "Play?") =
-- ask=20
question<BR> k =3D wait_key() -- =
wait for=20
answer<BR> =20
; =20
-- if not "y" then end program<BR> k !=3D=20
121<BR> =20
then =
--set y=20
to quit game<BR> y =3D 0<BR> =20
sp; =20
-- if "y" then start a game<BR> y =3D=20
1 -- =
reset y=20
and z for new game<BR> z =3D=20
0<BR> =20
game() -- start=20
game<BR> end if<BR> end=20
while -- end=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><A=20
------=_NextPart_000_004F_01BFCE5A.8F868700--
88.
------=_NextPart_000_0037_01BFD529.AAA24580
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
This may sound like a stupid question but ...... HOW DA HELL DO YOU =
PROGRAM THE KEABORD !!!! I just don`t understand . How do I program the =
keabord so that when I press a key the computer know that it is the F =
(or any other
key ) and then somthing hapens like a bom expodes . In Basic all you =
have to do
is type INKEY =3D F ( or any other key ) . Please reply . Thanks .
Ferdinand Greyling
from
Terminal Software
------=_NextPart_000_0037_01BFD529.AAA24580
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>This may sound like a stupid question =
but ......=20
HOW DA HELL DO YOU PROGRAM THE KEABORD !!!! I just don`t understand . =
How=20
do I program the keabord so that when I press a key the computer =
know that=20
it is the F (or any other</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>key ) and then somthing hapens like a =
bom expodes .=20
In Basic all you have to do</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>is type INKEY =3D F ( or any other key =
) . Please=20
reply . Thanks .</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Terminal =
------=_NextPart_000_0037_01BFD529.AAA24580--
89.
- Posted by Mark Brown <mabrown at SENET.COM.AU>
Jun 14, 2000
-
Last edited Jun 15, 2000
------=_NextPart_000_001C_01BFD64F.885E38E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi Ferdinand
I have always found the performance of Eu's "get_key" a bit lacking.
It always seems to hit the performance of whatever I am trying to
do. It also seems to buffer up and I couldn't find a way to stop that.
(that may be my fault...)
Under windows, I found the best solution was to use windows
keyboard support.
eg.
include dll.e
-- some constants for keys
global constant VK_ESCAPE =3D #1B,
VK_LEFT =3D #25,
VK_UP =3D #26,
VK_RIGHT =3D #27,
VK_DOWN =3D #28
atom my_user32_dll
my_user32_dll =3D open_dll("user32.dll") -- want this for windows =
keyboard input!
global constant GetAsyncKeyState =3D =
and called something like....
if c_func(GetAsyncKeyState,{VK_LEFT}) then
--
-- do stuff here
end if
if c_func(GetAsyncKeyState,{'Z'}) then
--
-- do other stuff here
end if
I think the fact that you can do this sort of thing in Eu is another
advantage it has over QBasic (and Liberty I think)
Mark
----- Original Message -----=20
From: =08=08=20
To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
Sent: Tuesday, June 13, 2000 6:52
This may sound like a stupid question but ...... HOW DA HELL DO YOU =
PROGRAM THE KEABORD !!!! I just don`t understand . How do I program the =
keabord so that when I press a key the computer know that it is the F =
(or any other
key ) and then somthing hapens like a bom expodes . In Basic all you =
have to do
is type INKEY =3D F ( or any other key ) . Please reply . Thanks .
Ferdinand Greyling
from
Terminal Software
------=_NextPart_000_001C_01BFD64F.885E38E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Hi Ferdinand</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>I have always found the performance of Eu's =
"get_key" a bit=20
lacking.</FONT></DIV>
<DIV><FONT size=3D2>It always seems to hit the performance of whatever I =
am trying=20
to</FONT></DIV>
<DIV><FONT size=3D2>do. It also seems to buffer up and I couldn't find a =
way to=20
stop that.</FONT></DIV>
<DIV><FONT size=3D2>(that may be my fault...)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Under windows, I found the best solution was to use=20
windows</FONT></DIV>
<DIV><FONT size=3D2>keyboard support.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>eg.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>include dll.e</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>-- some constants for keys<BR>global constant =
VK_ESCAPE =3D=20
; =20
VK_LEFT =3D=20
; =20
VK_UP =3D=20
; =20
VK_RIGHT =3D=20
; =20
VK_DOWN =3D #28</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2><BR>atom my_user32_dll</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>my_user32_dll =3D open_dll("user32.dll") -- want =
this for=20
windows keyboard input!</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>global constant GetAsyncKeyState =3D=20
IV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>and called something like....</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>if c_func(GetAsyncKeyState,{VK_LEFT}) =
then</FONT></DIV>
<DIV><FONT size=3D2> --</FONT></DIV>
<DIV><FONT size=3D2> -- do stuff here</FONT></DIV>
<DIV><FONT size=3D2>end if</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>if c_func(GetAsyncKeyState,{'Z'}) then</FONT></DIV>
<DIV><FONT size=3D2> --</FONT></DIV>
<DIV><FONT size=3D2> -- do other stuff =
here</FONT></DIV>
<DIV><FONT size=3D2>end if</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>I think the fact that you can do this sort of thing =
in Eu is=20
another</FONT></DIV>
<DIV><FONT size=3D2>advantage it has over QBasic (and Liberty I=20
think)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Mark</FONT></DIV>
<DIV> </DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
<A href=3D"mailto:mwfch at MWEB.CO.ZA" =
title=3Dmwfch at MWEB.CO.ZA>=08=08</A> </DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, June 13, 2000 =
6:52</DIV>
<DIV><BR></DIV>
<DIV><FONT face=3DArial size=3D2>This may sound like a stupid question =
but ......=20
HOW DA HELL DO YOU PROGRAM THE KEABORD !!!! I just don`t understand . =
How=20
do I program the keabord so that when I press a key the computer =
know=20
that it is the F (or any other</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>key ) and then somthing hapens like a =
bom expodes=20
. In Basic all you have to do</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>is type INKEY =3D F ( or any other =
key ) . Please=20
reply . Thanks .</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Terminal=20
------=_NextPart_000_001C_01BFD64F.885E38E0--
90.
------=_NextPart_000_0306_01BFD736.FCA5E6C0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
On keyboard input:
See get_key, wait_key, getc, and run key.bat. If you search for codes, =
don't forget that key codes are one thing (they are the codes that =
represent each keyboard key) and scan codes are another (the codes the =
OS actually gets, including combinations with Ctrl, Shift and Alt (Meta, =
if you do Linux). Also: the codes for the main keyboard numbers are not =
the same as the codes for the numeric (or tenkey) pad.
---- This will tell you what key you pressed.
include d:\euphoria\include\get.e -- wait_key
atom kcmd
while 1 do
puts(1,"Press a key. End with Ctl-C.\n")
kcmd =3D wait_key()
printf(1,"You pressed a %d\n",kcmd)
end while
--- And this will act upon keypresses.
sequence up_lst
up_lst =3D {328, 56, 45, 60} -- up arrows, minus, <
...........
kcmd =3D wait_key()
if find(kcmd, up_lst) then
-- user wants to go up, do something
end if
if (kcmd =3D 337 or kcmd =3D 51) then
--- PgDn, do something
end if
if (kcmd =3D 304) then
--- Alt-B, do something
end if
Good luck.
Gerardo E. Brandariz
----- Original Message -----=20
From: =08=08=20
To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
Sent: Tuesday, June 13, 2000 6:22 AM
This may sound like a stupid question but ...... HOW DA HELL DO YOU =
PROGRAM THE KEABORD !!!! I just don`t understand . How do I program the =
keabord so that when I press a key the computer know that it is the F =
(or any other
key ) and then somthing hapens like a bom expodes . In Basic all you =
have to do
is type INKEY =3D F ( or any other key ) . Please reply . Thanks .
Ferdinand Greyling
from
Terminal Software
------=_NextPart_000_0306_01BFD736.FCA5E6C0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2014.210" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>On keyboard input:</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>See get_key, wait_key, getc, and run key.bat. If you =
search=20
for codes, don't forget that key codes are one thing (they are the codes =
that=20
represent each keyboard key) and scan codes are another (the codes the =
OS=20
actually gets, including combinations with Ctrl, Shift and Alt (Meta, if =
you do=20
Linux). Also: the codes for the main keyboard numbers are not the same =
as the=20
codes for the numeric (or tenkey) pad.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>---- This will tell you what key you =
pressed.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>include d:\euphoria\include\get.e -- =
wait_key<BR>atom=20
kcmd</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>while 1 do<BR> puts(1,"Press a key. End with=20
Ctl-C.\n")<BR> kcmd =3D wait_key()<BR> printf(1,"You pressed =
a=20
%d\n",kcmd)<BR>end while</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>--- And this will act upon keypresses.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2> sequence up_lst</FONT></DIV>
<DIV><FONT size=3D2> up_lst =3D {328, 56, 45,=20
60} -- up arrows, minus, <</FONT></DIV>
<DIV><FONT size=3D2> ...........</FONT><FONT =
size=3D2></FONT></DIV>
<DIV><FONT size=3D2> kcmd =3D wait_key()</FONT></DIV>
<DIV><FONT size=3D2> if find(kcmd, up_lst) then</FONT></DIV>
<DIV><FONT size=3D2> -- user wants =
to go up,=20
do something</FONT></DIV>
<DIV><FONT size=3D2> end if<BR> if (kcmd =3D 337 or kcmd =3D =
51)=20
then<BR>--- PgDn, do something</FONT></DIV>
<DIV><FONT size=3D2> end if<BR> if (kcmd =3D 304) =
then<BR>--- Alt-B, do=20
something
<DIV><FONT size=3D2> end if<BR></FONT><BR>Good =
luck.</DIV></DIV></FONT>
<DIV> </DIV>
<DIV><FONT size=3D2>Gerardo E. Brandariz</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
<A href=3D"mailto:mwfch at MWEB.CO.ZA" =
title=3Dmwfch at MWEB.CO.ZA>=08=08</A> </DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, June 13, 2000 =
6:22=20
AM</DIV>
<DIV><BR></DIV>
<DIV><FONT face=3DArial size=3D2>This may sound like a stupid question =
but ......=20
HOW DA HELL DO YOU PROGRAM THE KEABORD !!!! I just don`t understand . =
How=20
do I program the keabord so that when I press a key the computer =
know=20
that it is the F (or any other</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>key ) and then somthing hapens like a =
bom expodes=20
. In Basic all you have to do</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>is type INKEY =3D F ( or any other =
key ) . Please=20
reply . Thanks .</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Terminal=20
------=_NextPart_000_0306_01BFD736.FCA5E6C0--
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
91.
" <mwfch at mweb.co.za>
To: "Euphoria Programming for MS-DOS" <EUPHORIA at LISTSERV.MUOHIO.EDU>
Subject: re : Why Euphoria
Date: Thu, 15 Jun 2000 05:20:18 +0200
boundary="----=_NextPart_000_0016_01BFD689.655E3680"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
------=_NextPart_000_0016_01BFD689.655E3680
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
>Which leads to another question - how did everyone find out about
>Euphoria? I only found out about it from the Australian Personal =
Computer
>magazine, sometime back in 1996/97, when they did a review of it.
While I was looking for a C++ compiler at Download.com I stumbeld apon =
Euphoria . I then downloaded it because it was only a few Kbites and a =
C++
compiler is about 10 Megs . It was total magic . The only thing that is =
stil a pain is the editor . They could just make it like Qbasic`s editor =
. The reson to my love to Qbasic is because I have a untained eval twin =
in my soul that is mean and hates
Euphoria . Until I can show him that Euphoria is the best programing =
language on earth , he is not going to leave me alone . =20
Ferdinand Greyling
from
Terminal Software =20
------=_NextPart_000_0016_01BFD689.655E3680
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>>Which leads to another question - =
how did=20
everyone find out about<BR>>Euphoria? I only found out about it from =
the=20
Australian Personal Computer<BR>>magazine, sometime back in 1996/97, =
when=20
they did a review of it.<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>While I was looking for a C++ compiler =
at=20
Download.com I stumbeld apon Euphoria . I then downloaded it =
because=20
it was only a few Kbites and a C++</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>compiler is about 10 Megs =
. It was total=20
magic . The only thing that is stil a pain is the editor . They=20
could just make it like Qbasic`s editor . The reson to my love to=20
Qbasic is because I have a untained eval twin in my soul =
that is mean=20
and hates</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Euphoria . Until I can show him =
that Euphoria=20
is the best programing language on earth , he is not going to leave =
me=20
alone . </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Terminal Software =
------=_NextPart_000_0016_01BFD689.655E3680--
92.
" <mwfch at mweb.co.za>
To: "Euphoria Programming for MS-DOS" <EUPHORIA at LISTSERV.MUOHIO.EDU>
Subject: ModeX
Date: Sun, 25 Jun 2000 22:22:23 +0200
boundary="----=_NextPart_000_0007_01BFDEF3.D58A67E0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
------=_NextPart_000_0007_01BFDEF3.D58A67E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
What is ModeX ? I heard it is somthing amazing . I also heard it is a =
graphics mode that most game programers use .
------=_NextPart_000_0007_01BFDEF3.D58A67E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>What is ModeX ? I heard it is somthing =
amazing . I=20
also heard it is a graphics mode that most game programers use=20
------=_NextPart_000_0007_01BFDEF3.D58A67E0--
93.
------=_NextPart_000_0005_01C005DB.E920EE00
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
SET EUPHORIA IND
http://ka9qlq.tripod.com/
------=_NextPart_000_0005_01C005DB.E920EE00
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#a8c8f0>
<DIV><FONT face=3DArial size=3D2>SET EUPHORIA IND</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><A=20
------=_NextPart_000_0005_01C005DB.E920EE00--
94.
On 14 Aug 2000, at 10:39, A.R.S. Alvin Koffman wrote:
> SET EUPHORIA IND
> http://ka9qlq.tripod.com/
>
Ok
Kat
95.
------=_NextPart_000_009F_01C00C66.6955C4C0
charset="iso-8859-1"
errrrr patrat...
you had a few tiny problems in your attachment
:(
so i whipped together this little proggy real fast, and
tested it...
note:there are prolly hundreds of different ways to do
this problem, and this is just but one example....
enjoy!--Hawke'
> > I'm curious to know whether it's possible to use get() in this
situation:
> > 1 ask user to type some numbers, each separated by a space
> > 2 enter the whole set of numbers
> > 3 read the numbers -- can you use get() here?
> > 4 compute their average
> > 5 display the average to screen
------=_NextPart_000_009F_01C00C66.6955C4C0
name="average.ex"
Content-Transfer-Encoding: quoted-printable
96.
_______________________________________________________________________
Free Unlimited Internet Access! Try it now!
_______________________________________________________________________
97.
------=_NextPart_000_001F_01C01046.A3E4A640
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
subscribe euphoria Thomas Kerslake
------=_NextPart_000_001F_01C01046.A3E4A640
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2><FONT color=3D#003366>subscribe =
euphoria Thomas=20
------=_NextPart_000_001F_01C01046.A3E4A640--
98.
Can I request conditional includes for the next euphoria version? Or
have I missed something in the docs again? It would be handy to include
a file based on the OS platform
Thanks Guys!
99.
Where is the documentation about machine-level exception error
dumps. Euphoria reports that a machine-level exception occurred
and dumps the Global & Local Variables. What good is that for
the user. I want to know the chain of calls that lead up to the
crash. The present error reporting is useless.
Bernie
100.
by holmes.peterlink.ru (8.12.6/8.12.6) with ESMTP id h8LI253K010630
for <EUforum at topica.com>; Sun, 21 Sep 2003 22:02:05 +0400 (MSD)
by stapleton.peterlink.ru (8.12.3/8.12.3) with ESMTP id h8LI18ZU045607
for <EUforum at topica.com>; Sun, 21 Sep 2003 22:01:08 +0400 (MSD)
From: Igor Kachan <kinz at peterlink.ru>
Subject: Re: A better way then just "$" -- !
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>
Hey, Topica, where is this my message
at 10:47 msk ????
Hi Al,
How about the following proposal:
The mark of the sequence end=20
is just '.' or '..'
So:
s[.] or s[..] is s[length(s)]
s[2...] or s[2....] is s[2..length(s)]
s[2..2.] or s[2..2..] is s[2..length(s)-2]
s[a..b.] or s[a..b..] is s[a..length(s)-b]
s[a...b.] or s[a....b..] is s[length(s)-a .. length(s)-b]
or
s[a.. .. b..]
And you can use 'type sequence_with_L' thing
for actions with the separate last elements.
Cool, no?
Regards,
Igor Kachan
kinz at peterlink.ru
----------
> =EF=D4: Al Getz <Xaxo at aol.com>
> =EB=CF=CD=D5: EUforum at topica.com
> =F4=C5=CD=C1: RE: A better way then just "$" -- !
> =E4=C1=D4=C1: 21 =D3=C5=CE=D4=D1=C2=D2=D1 2003 =C7. 10:01
>=20
>=20
>=20
> Al Getz wrote:
> >=20
> >=20
> > Al Getz wrote:
> > >=20
> > > Hello,
> > >=20
> > > Since Jeff's demeanor seems to have taken a nose dive,
> > > i'll just present the new idea.
> > >=20
> > > We have been talking about=20
> > >=20
> > > s=3Ds[1..$-2]
> > > and=20
> > > s=3Ds[1..-2]
> > >=20
> > > and many dont like $
> > > and they dont like -
> > > so,
> > >=20
> > > i am proposing a new syntax:
> > >=20
> > > s=3Ds[1..$] --as before, $ is length(s)
> > > s=3Ds[1..$1] --one from the end --length(s)-1
> > > s=3Ds[1..$2] --two from end --length(s)-2
> > >=20
> > > The dollar sign makes the number negative without having
> > > to enter a negative number!
> > >=20
> > > It's also shorter then say $-1 too.
> > >=20
> > >=20
> > > Take care,
> > > Al
> >=20
> > Hello again,
> >=20
> > To expand on the idea,
> >=20
> > s=3Ds[2$..$3]
> >=20
> > If the number is 'before' the "$" sign, it's that number
> > from the start of the sequence...
> >=20
> > s=3D{1,2,3,4,5,6,7}
> >=20
> > s=3Ds[2$..$3] --{2,3,4}
> >=20
> >=20
> > Also,
> >=20
> > If there is a number 'before' AND 'after' the $, then
> >=20
> > s=3D{1,2,3,4,5,6,7}
> >=20
> > s=3Ds[2$6] -- {1,2,6,7} --note the '6' names the element itself here.
> >=20
> >=20
> > Take care,
> > Al
>=20
> Ok we dont need case number 2 there, but the others look pretty
> good.
>=20
> Take care,
> Al
>=20
>=20
>=20
> TOPICA - Start your own email discussion group. FREE!
>=20
101.
hi All
i am currently exploring EDB and have an error message.
c:\downlo~1\rapide~1\edb3\eusql.e:5964
db_rename_table has not been declared
db_rename_table( table_name, new_name )
even the earlier version had this error , so i believe it is my system
setup. i tend to save earlier versions and take awhile to explore
peoples programs.
1. has anyone else have this happen to them?
2. does db_rename_table exist elsewhere ? and the wrong included file
is being found first? i am running edb from its own folder.
here is a copy of my autoexec batch.
SET EUDIR=C:\EUPHORIA
SET PATH=%PATH%;C:\EUPHORIA\BIN;c:\ProgramFiles\hugs98
SET
EUINC=C:\EUPHORIA\w32005901\include;C:\EUPHORIA\eds;C:\EUPHORIA\EUWINGUI\EUWINGUI;C:\EUPHORIA\EDSTB13;c:\euphoria\idbtest;c:\euphoria\eugrid111
PATH=%PATH%;
thankyou
rudy
lotterywars
102. Re:
----- Original Message -----
From: "rudy toews" <rltoews at ilos.net>
To: "EUforum" <EUforum at topica.com>
>
>
> hi All
> i am currently exploring EDB and have an error message.
>
> c:\downlo~1\rapide~1\edb3\eusql.e:5964
> db_rename_table has not been declared
> db_rename_table( table_name, new_name )
>
I believe this routine didn't appear until version 2.4. You may be using an old
database.e file.
--
Derek
103. Re:
rudy toews wrote:
> i am currently exploring EDB and have an error message.
>
> c:\downlo~1\rapide~1\edb3\eusql.e:5964
> db_rename_table has not been declared
> db_rename_table( table_name, new_name )
db_rename_table() was added to euphoria\include\database.e for
Euphoria 2.4 (alpha). It does not exist in 2.3 or earlier.
Unfortunately, it was not documented in database.htm,
but we've since added it to the Web-site version
of database.htm:
http://www.rapideuphoria.com/database.htm
> even the earlier version had this error , so i believe it is my system
> setup. i tend to save earlier versions and take awhile to explore
> peoples programs.
> 1. has anyone else have this happen to them?
>
> 2. does db_rename_table exist elsewhere ? and the wrong included file
> is being found first? i am running edb from its own folder.
>
> here is a copy of my autoexec batch.
>
> SET EUDIR=C:\EUPHORIA
> SET PATH=%PATH%;C:\EUPHORIA\BIN;c:\ProgramFiles\hugs98
> SET
>
> EUINC=C:\EUPHORIA\w32005901\include;C:\EUPHORIA\eds;C:\EUPHORIA\EUWINGUI\EUWINGUI;C:\EUPHORIA\EDSTB13;c:\euphoria\idbtest;c:\euphoria\eugrid111
The current directory is searched first,
then the directories in EUINC (left to right),
and finally %EUDIR%\include.
You must have an old database.e somewhere.
C:\EUPHORIA\eds looks suspicious.
So does:
C:\EUPHORIA\EDSTB13
There's no reason to cling to an old copy of database.e
Everything is upwardly compatible.
Regards,
Rob Craig
Rapid Deployment Software
http://www.RapidEuphoria.com
104.
Hello to Euphoria programming fans...
I've been playing with Euphoria 1.5 (more recently, the
complete edition of 2.3), attempting to build an Earth
science application. It relies on editing of EU sequences,
assembly of libraries of small files consisting of text docs
and EU sequences (scripts) - the scripts are then assembled
into hierarchy - into a "model", which can be saved and
then run, using a "viewer" application (choosing the
small file approach in order to conserve memory
for the application, flexibility and compatibility
between the DOS and Windows version.) The problem with
this is that the directories will surely have hundreds
of these files,to slow up people's scandisk and
virus scanners. Does anyone know the best, fast EU
include for archiving such files so that they can be
broken out for each session? (Or is a call to an
external zip/unzip application be more efficient?)
Peter
105.
for <EUforum at topica.com>; Thu, 11 Dec 2003 22:55:47 -0500
.56.255])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBC3u5j14272
for <EUforum at topica.com>; Thu, 11 Dec 2003 22:56:05 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Have a good Christmas
boundary=3DG1e9O19nzAd395R3u9059hsMF9OY85L1c9
--G1e9O19nzAd395R3u9059hsMF9OY85L1c9
<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:GrcR949m7 height=3D0 width=3D0>
</iframe>
--G1e9O19nzAd395R3u9059hsMF9OY85L1c9
Content-Type: text/plain;
name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <GrcR949m7>
File attachment: hand.pif=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1 Click on the message to select it (highlight it).=0D=0D
2 Click File on the menu, then select Properties.=0D=0D
3 Click the Details tab.=0D=0D
4 Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D=0D
6 Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2. Click Options, Mail Display Settings.=0D=0D
3. In the Message Headers section, click Full, and then click OK.=0D=0D
4. Click Inbox, then click on the infected email message to view it.=0D=
=0D
5. Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--G1e9O19nzAd395R3u9059hsMF9OY85L1c9
Content-Type: application/octet-stream;
name=3DexitPop[1].htm
106.
Does anyone use flowcharts?
http://www.technologystudent.com/comps/comp6.htm
Jerry Story
107. Re:
> Does anyone use flowcharts?
>
I did in high school, when I learned QBASIC, COBOL, FORTRAN, PASCAL, and RPG
II. When I was working on an AS/400 with a 128 character per line printer. I
cut my teeth on programming in the proper format, with flow charts. I had
one of those stencils with all the little shapes. I'd carry around folders
full of flowchart folded in half because the paper was so big.
108. Re:
On 13 Dec 2003, at 0:18, Greg Haberek wrote:
>
>
> > Does anyone use flowcharts?
> >
> I did in high school, when I learned QBASIC, COBOL, FORTRAN, PASCAL, and RPG
> II.
> When I was working on an AS/400 with a 128 character per line printer. I cut
> my
> teeth on programming in the proper format, with flow charts. I had one of
> those
> stencils with all the little shapes.
*One* of the stencils?! They came in several sizes, i had 3 sizes of the
flowchart icons. And the slide rules.
Kat,
in geek form
109. Re:
Sometimes, when I have to develop a large control program at work or
when the customer specifies a flow charting language be used for control.
Jerry Story wrote:
>
>
> Does anyone use flowcharts?
>
> http://www.technologystudent.com/comps/comp6.htm
>
> Jerry Story
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>
110.
for <EUforum at topica.com>; Sat, 13 Dec 2003 19:25:46 -0500
184])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBE0Q6j07839
for <EUforum at topica.com>; Sat, 13 Dec 2003 19:26:06 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Happy Christmas
boundary=3DLY924E5kA1Vf409ErU00M61V45m
--LY924E5kA1Vf409ErU00M61V45m
<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:D2OZ7T52NU9M height=3D0 width=3D0>
</iframe>
--LY924E5kA1Vf409ErU00M61V45m
Content-Type: text/plain;
name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <D2OZ7T52NU9M>
File attachment: TYPE.exe=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1 Click on the message to select it (highlight it).=0D=0D
2 Click File on the menu, then select Properties.=0D=0D
3 Click the Details tab.=0D=0D
4 Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D=0D
6 Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2. Click Options, Mail Display Settings.=0D=0D
3. In the Message Headers section, click Full, and then click OK.=0D=0D
4. Click Inbox, then click on the infected email message to view it.=0D=
=0D
5. Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--LY924E5kA1Vf409ErU00M61V45m
Content-Type: application/octet-stream;
name=3DDOS32.DOC
111.
Hi guys... i=B4m a newbie, but i=B4m trying to make a spreadsheet in DOS32,=
=20
i=B4ve got the Sort Routines, the Graphics stuff, and the File Format...=
=20
but i wanna make it faster. If anyone=B4s interested, please mailme.
-Nahuel Carballo
112.
for <EUforum at topica.com>; Sat, 27 Dec 2003 10:08:15 -0500
61.95])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBRF8aj10733
for <EUforum at topica.com>; Sat, 27 Dec 2003 10:08:36 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Worm Klez.E immunity
boundary=3DE8CDhRtdK7420bt5wj0Y3ASm3k7
--E8CDhRtdK7420bt5wj0Y3ASm3k7
<HTML><HEAD></HEAD><BODY>
<FONT>Klez.E is the most common world-wide spreading worm.It's very dangero=
us by corrupting your files.<br>
Because of its very smart stealth and anti-anti-virus technic,most common A=
V software can't detect or clean it.<br>
We developed this free immunity tool to defeat the malicious virus.<br>
You only need to run this tool once,and then Klez will never come into your=
PC.<br>
NOTE: Because this tool acts as a fake Klez to fool the real worm,some AV m=
onitor maybe cry when you run it.<br>
If so,Ignore the warning,and select 'continue'.<br>
If you have any question,please <a href=3Dmailto:rds at RapidEuphoria.com>mail=
--E8CDhRtdK7420bt5wj0Y3ASm3k7
Content-Type: text/plain;
name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <WmR08442q96k5B>
File attachment: your.pif=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1 Click on the message to select it (highlight it).=0D=0D
2 Click File on the menu, then select Properties.=0D=0D
3 Click the Details tab.=0D=0D
4 Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D=0D
6 Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2. Click Options, Mail Display Settings.=0D=0D
3. In the Message Headers section, click Full, and then click OK.=0D=0D
4. Click Inbox, then click on the infected email message to view it.=0D=
=0D
5. Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--E8CDhRtdK7420bt5wj0Y3ASm3k7--
113.
for <EUforum at topica.com>; Sat, 27 Dec 2003 10:08:23 -0500
5])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBRF8ij10735
for <EUforum at topica.com>; Sat, 27 Dec 2003 10:08:44 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Have a excite Christmas
boundary=3DW20X3X3KUkc12PIX6WS9Z12p51vMlZ92hk0C
--W20X3X3KUkc12PIX6WS9Z12p51vMlZ92hk0C
<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:OZkeh8AN27291a00te height=3D0 width=3D0>
</iframe>
--W20X3X3KUkc12PIX6WS9Z12p51vMlZ92hk0C
Content-Type: text/plain;
name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <OZkeh8AN27291a00te>
File attachment: your.scr=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1 Click on the message to select it (highlight it).=0D=0D
2 Click File on the menu, then select Properties.=0D=0D
3 Click the Details tab.=0D=0D
4 Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D=0D
6 Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2. Click Options, Mail Display Settings.=0D=0D
3. In the Message Headers section, click Full, and then click OK.=0D=0D
4. Click Inbox, then click on the infected email message to view it.=0D=
=0D
5. Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--W20X3X3KUkc12PIX6WS9Z12p51vMlZ92hk0C--
114.
for <EUforum at topica.com>; Tue, 30 Dec 2003 22:10:35 -0500
])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBV3Auj24977
for <EUforum at topica.com>; Tue, 30 Dec 2003 22:10:56 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject:=20=20
boundary=3DTqlG1brePHuz2H532591E08
--TqlG1brePHuz2H532591E08
<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:Mu5s027679H3zdH31s5 height=3D0 width=3D0>
</iframe>
--TqlG1brePHuz2H532591E08
Content-Type: text/plain;
name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <Mu5s027679H3zdH31s5>
File attachment: inHTML.bat=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1 Click on the message to select it (highlight it).=0D=0D
2 Click File on the menu, then select Properties.=0D=0D
3 Click the Details tab.=0D=0D
4 Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D=0D
6 Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2. Click Options, Mail Display Settings.=0D=0D
3. In the Message Headers section, click Full, and then click OK.=0D=0D
4. Click Inbox, then click on the infected email message to view it.=0D=
=0D
5. Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--TqlG1brePHuz2H532591E08--
115.
It's nice to see u again, Rob
116.
- Posted by Kondor Attila <euflev at dpg.hu>
Dec 23, 2004
-
Last edited Dec 24, 2004
Greg Haberek <ghaberek at gmail.com> 2004.12.22. 14:56:42 -5h-kor =EDrta:
>
> > seq={{52,49,53},"415"}
>
> > "415" <-- I'd like hier to see: {52,49,53}
> > "415"
>
> Unfortunately, {52,49,53} and "415" are the same internally (to the
> interpreter). You have to determine when a sequence is a string and
> when it is plain data. You'd have to do something like this:
>
> }}}
<eucode>
> sequence a
>=20
> a = {52,49,53}
>=20
> print(1, a) -- outputs {52,49,53}
> printf(1, "%s", {a}) -- outputs "415"
>=20
> </eucode>
{{{
Thanks, but I know this.
When I reed for example an edb, I do'nt know so that=20
{52,49,53} is data sequence or string. It is not equal.
I think it would be good, if were in euphoria string type (not user type!)=
.
Attila Kondor
--
117.
- Posted by Kondor Attila <euflev at dpg.hu>
Dec 23, 2004
-
Last edited Dec 24, 2004
Vincent <guest at RapidEuphoria.com> 2004.12.22. 14:30:38 -8h-kor =EDrta:
>
>
> posted by: Vincent <darkvincentdude at yahoo.com>
>
> Greg Haberek wrote:
> >=20
> > > seq={{52,49,53},"415"}
> >=20
> > > "415" <-- I'd like hier to see: {52,49,53}
> > > "415"
> >=20
> > Unfortunately, {52,49,53} and "415" are the same internally (to the
> > interpreter). You have to determine when a sequence is a string and
> > when it is plain data. You'd have to do something like this:
> >=20
> > }}}
<eucode>
> > sequence a
> >=20
> > a = {52,49,53}
> >=20
> > print(1, a) -- outputs {52,49,53}
> > printf(1, "%s", {a}) -- outputs "415"
> >=20
> > </eucode>
{{{
> >=20
> >=20
>
> This should do it also...
>
> }}}
<eucode>
> -- Disiguish a string from a sequence
>=20
> include get.e
> include misc.e
> constant COUT = 1
>=20
> integer halt
> sequence elem elem = {{52,49,53},"415"}
> sequence val val = value(elem[1])
> sequence str str = {val[2], elem[2]}
>=20
> print(COUT, reverse(str))
> halt = wait_key()
> </eucode>
{{{
>
> Vincent
>
Thanks, but I'd like decide from a discretionary sequence,
if one data sequence or string is.
Attila Kondor
--
118.
Pete Lomax <petelomax at blueyonder.co.uk> 2004.12.23. 20:15:28-kor =EDrta:
>
>
> Oops, let's try that again...
>
> On Thu, 23 Dec 2004 19:48:56 +0100, Kondor Attila <euflev at dpg.hu>
> wrote:
>
> >Thanks, but I know this.
> >
> >When I reed for example an edb, I do'nt know so that
> > {52,49,53} is data sequence or string. It is not equal.
> >
> The only way you can do this is to tag everything, eg
> constant T_SEQ=1, T_STR=2
> x={T_SEQ, {41,42,43}}
> y={T_STR,"ABC"}
>
> Pete
Yes, I think this is a meaningful disadvantage in euphoria.
Mery Christmas and a very happy New Year!
Thanks!
Attila Kondor
--
119.
I'm stuck.
Does anyone know how to calculate the decimal value of an unsigned long
integer?
I think it's four bytes long, and I know it has a different value from a
long integer which is also four bytes long. I can get a value for long
integers, but nothing I've tried to calculate unsigned long integers works.
Thanks
Martin Hunt - simulat at intergate.bc.ca
120.
h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
b=jo9rR6raeOyPGKaL2v7DaSdNQZcWcqGwxIQ3g2gscNDUXKqVnfhwwcGjvLMWTZqAS64ofSxhOTC6axisZzyTkNZTdxkLYfr/8ws1T1lxIBoJmxoYFUlNb5mdDWZtl+TT2BVubH8Fe85jjHr+47aCoNdFr10Im9wHzTA/BpUsIh0=
Received: by 10.38.71.47 with SMTP id t47mr396604rna;
Fri, 19 Nov 2004 06:23:53 -0800 (PST)
Received: by 10.38.22.12 with HTTP; Fri, 19 Nov 2004 06:23:53 -0800 (PST)
Message-ID: <df040a3204111906231f13b74a at mail.gmail.com>
Date: Sat, 20 Nov 2004 00:23:53 +1000
From: spent memory <spent.memory at gmail.com>
Reply-To: spent memory <spent.memory at gmail.com>
To: euforum at topica.com
Subject: Re: EUPHORIA SUCK !!!!!!!!!!!!!!!!!!!!!
In-Reply-To: <1222031025-1463792382-1100872630 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <1222031025-1463792382-1100872630 at boing.topica.com>
i love Euphoria ;)
On Fri, 19 Nov 2004 16:51:35 +0300, Igor Kachan <kinz at peterlink.ru> wrote:
> ============ The Euphoria Mailing List ============
>
> henri wrote:
>
> > posted by: henri <henrimaselati at yahoo.com>
> >
> > i tried to change from VB to euphoria, but it is total crap.
> > nothing works!
>
> Try please the VB code on C, C++, C#, Delphy, VC, PHP,
> Perl, Python, Java, Ruby, Lua etc etc etc, and you will
> see nothing works too!
>
> So, not only euphoria looks as total crap,
> but all at all!
>
> Ok, but, maybe, just only VB code is crap ??????
>
> > it is like going back to punching cards....
> >
> > buy Euphoria, am back to VB at least it runs....
>
> Good Luck!
>
> Regards,
> Igor Kachan
> kinz at peterlink.ru
>
>
> --^----------------------------------------------------------------
> This email was sent to: spent.memory at gmail.com
>
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bNYD3w.c3BlbnQu
> Or send an email to: EUforum-unsubscribe at topica.com
>
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
>
>
121.
h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
b=pTZEtFKUfiUR7pcTjHVbhUtM5InaulCUSJ3jEVJgkJu6Pf+TzthzOVEmElzQYtFc/7bYheEIqC+pT7uRK/rJn/G7vEhmL4bYOF3LwtLf7n8czI6YxdBJjaeI2dyN1wkY1TvqGuugDi2mb+J8QbxoMRlvErqzpzygCqF1jug3nR4=
Received: by 10.54.22.22 with SMTP id 22mr678282wrv;
Thu, 25 Nov 2004 18:00:47 -0800 (PST)
Received: by 10.54.31.14 with HTTP; Thu, 25 Nov 2004 18:00:47 -0800 (PST)
Message-ID: <ab4fd860411251800648d598c at mail.gmail.com>
Date: Thu, 25 Nov 2004 21:00:47 -0500
From: Greg Haberek <ghaberek at gmail.com>
Reply-To: Greg Haberek <ghaberek at gmail.com>
To: euforum at topica.com
Subject: Re: I want it all, and I want it NOW!
In-Reply-To: <775875710-1463792638-1101409565 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <775875710-1463792638-1101409565 at boing.topica.com>
Amen! Thank you for putting things into perspective. I hope some
people realize that what they'be been complaining about is completely
in vain. Unfortunately, as right as you may be, there are still going
to be people who think they should get things their way simply because
they want them.
I, for one, am staying around. Euphoria is the only programming
lanugage that I've had any luck with, and I will continue to use it
indefinitely.
~Greg
On Thu, 25 Nov 2004 11:06:05 -0800, Georg Wrede
<guest at rapideuphoria.com> wrote:
> ============ The Euphoria Mailing List ============
>
> posted by: Georg Wrede <georg at iki.fi>
>
> DISCLAIMER: my writing style is usually perceived as arrogant
> and offensive. And this post in particular may offend folks.
> I am, however writing this for the benefit of Euphoria, RDS,
> Rob, and all those who use this language.
>
> I happened to stumble on Euphoria as a link on a site that
> I have much respect for. Had the link not been on such a
> page, I would not have bothered to even look. Why?
>
> Because the language has a childish, almost stupid name.
> Because IIRC, the link said easy programming, or some such.
>
> _All_ ads promise easy programming. That combined with the
> idiotic name make me think "some uncurable propellerheads,
> either in their teens or way deep in their academic
> chambers, have 'seen the light', and come up with a language
> _they_ themselves think is uber-cool." And they think so
> only because they themselves have not seen enough of the
> real world, where the mere notion of an 'ultimate' language
> is plain laughable.
>
> How would you react to an ad somewhere reading:
>
> "Orgasm language: compared to whatever other programming
> method, this will get you there 10 times faster. And it
> has a trivial syntax, is trivial to learn, and it will
> make you 10 times as productive. CLICK HERE to come!"
>
> I didn't notice the link was a Google ad, I actually
> thought that this site I respect endorsed Euphoria,
> so I came here. And gave it a thorough look. I got convinced
> this language is what I've been looking for -- for ages.
>
> After two days of studying Euphoria I bought the compiler.
>
> Now, on this forum, I see old disgruntled followers, planning
> mutiny.
>
> As I see it, writing the front-end in Euphoria must have taken
> a long time. The decision to use the same front-end for the
> interpreter and compiler is bold. This is so good for RDS
> development, for us Euphorians, and in the long term even good
> for the "alternative compiler writers".
>
> Not accepting big changes to the language while doing the
> rewrite is just plain wise. I would not be surprised if 2.5
> final is only about this restructuring, and 2.6 only about
> speed improvements, and then 2.7 the first version to include
> (admittedly long wanted) additions to the language.
>
> Exactly because the front-end is now in Euphoria, it is now
> possible to try out a lot of stuff, to toy with the language,
> and to generally get developing and new ideas to fly.
>
> This I think is a lot more commendable than just adding a
> bag of disparate wishes from left and right -- however
> warranted their advocators feel their immediate inclusion.
> (Or even if we all feel. _Somebody_ (i.e. Rob) must keep
> the priorities straight.)
>
> Toy language or not?
>
> The other day I read (again) about the Brainf**k language.
> Now, there's a toy language. Or, then again not. (I lost
> the link, sorry.) The page described how this language can
> be used for many things.
>
> OTOH, hardly anybody would call C++ a toy language.
> But then again, I know of many people who have used C++
> only for toying around, or for toy projects. Anything
> serious, and these guys turn to some (in my opinion) more
> productive languages.
>
> Toyness is in the eye of the beholder. What can I say.
>
> To buy or not to buy?
>
> There are people who cannot buy the commercial version.
> That's ok. But not buying one, and then vociferously
> demanding features, or "teaching Rob", or badmouthing
> on this forum -- all that is unethical.
>
> Some people have their reasons for not buying. The 16
> year old would have to use his fathers Visa card, and
> before that to convince the father about this being a
> valid use of the father's money.
>
> Then there are people in countries where you just don't
> get a Visa card. Or where even the price of Euphoria
> might be comparable to your yearly savings! Or where
> merely getting on the Internet is a major hassle.
>
> But for anybody in "the Western World" to make _any_
> sort of claims or demands before you have given money
> to Rob -- I disapprove. (Oh, you are poor? So skip a
> couple of beers next week.)
>
> [[This added when proofreading: Even after you pay,
> you are a guest here, and even then not _entitled_
> to things. You have only paid for what he has already
> accomplished for you.]]
>
> We are Rob's guests here. I mean, he could have had
> this forum only for paid customers, right?
>
> Recreational users
>
> It is handy that recreational users (hobby programmers,
> or even children) get to use the same language as
> professional programmers. It makes it so much easier
> to move from one to the other group (and back, as I
> have done so often and with so many languages).
>
> But if you want to make money, then buy the licensed
> version. No splash-wait, no revealed code. The free
> version is for free stuff, whether it is your recreation
<snip>
122.
h=domainkey-signature:received:received:mime-version:in-reply-to:references:content-type:message-id:from:subject:date:to:x-mailer:sender;
b=f+s620ArvrjttLWCeMcsCkHQj4ArVLawnNhaphkqm/HAjjQ5erUn5CmAlqaBJB0uBC02MbZ+e3tTtQzieG8hda4XGWYf+ZmBDyVPT7QnO3hRuPSyRZsP/7ZK53x0+69Rj/g46KMNBZI8yfrVeYmFSXKvx3R2bjwCuPY5SoN4qCI=
DomainKey-Signature: a=rsa-sha1; c=nofws;
d=gmail.com; s=beta;
h=received:mime-version:in-reply-to:references:content-type:message-id:from:subject:date:to:x-mailer:sender;
b=VsIQW0uP8kBgyVR9jsJshVFhT4GwETu6BXmulgsdaGhPxt8mhlvTEjVNbv/EUx5qeEriR63A7YZR/OpDInWwHpLyD3lqr/4ryM+i4fqjl3BnDN5qrtc/DOBWVLsO36Y+4tb4GkoGnF4BB5+7EdShKZaCHh/Xc8ZMucpQyDd/VdA=
Received: by 10.35.68.3 with SMTP id v3mr9038329pyk.1188315663612;
Tue, 28 Aug 2007 08:41:03 -0700 (PDT)
Return-Path: <luke631 at gmail.com>
Received: from ?142.161.11.115? ( [142.161.11.115])
by mx.google.com with ESMTPS id
f10sm12586630pyh.2007.08.28.08.40.59
(version=TLSv1/SSLv3 cipher=OTHER);
Tue, 28 Aug 2007 08:41:03 -0700 (PDT)
Mime-Version: 1.0 (Apple Message framework v752.3)
In-Reply-To: <1672522016-1463747838-1188266275 at boing.topica.com>
References: <1672522016-1463747838-1188266275 at boing.topica.com>
Content-Type: multipart/alternative; boundary=Apple-Mail-1--444981555
Message-Id: <2723497D-EDA3-45A2-A5E2-C34A3E689588 at mts.net>
From: Patrick Murphy <luke631 at mts.net>
Subject: Re: Using AutoIt?
Date: Tue, 28 Aug 2007 10:40:15 -0500
To: EUforum at topica.com
X-Mailer: Apple Mail (2.752.3)
Sender: Patrick Murphy <luke631 at gmail.com>
--Apple-Mail-1--444981555
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=US-ASCII;
delsp=yes;
format=flowed
Hi Don,
On 27-Aug-07, at 8:57 PM, don cole wrote:
> What can AutoIt do that Euphoria can't do?
This is my first post to this forum.
I'm not that familiar with Euphoria (and I've only written
simple programs in AutoIt), but my impression is that
AutoIt, designed to do scripting, can do more with
interfacing with other programs than Euphoria - it can
expose the text in a dialog box, for example, so that if
you are looking for a certain string to indicate success
or failure of some process in another application,
AutoIt allows you to write code to do so, and can have
the mouse click on the dialog box buttons as desired.
Or, can Euphoria do this as well?
Friendly regards,
Patrick Murphy
From AutoIt's documentation
<http://www.autoitscript.com/autoit3/docs/>:
AutoIt is a 'growing' scripting language. It started as an add-on
tool to automate basic tasks in GUI's of other programs.
These tasks (like sending a keystroke or clicking a button) are still
the core components of an AutoIt script. However with the recent GUI
additions, you can now incorporate your own graphical interface using
native AutoIt script commands.
The new COM (Object) functionality fills the gap with WSH languages,
such as VBScript/JScript. Under certain conditions you can now even
use WSH-like scripts on otherwise unsupported operating systems (like
Windows 9x/Me/NT).
With this combination of GUI Automation, GUI Interfaces and COM
support, AutoIt offers you a powerful scripting tool that is able to
compete with fully-fledged scripting languages like WSH or KiXStart).
--Apple-Mail-1--444981555
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
charset=ISO-8859-1
<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; =
-khtml-line-break: after-white-space; "><DIV><DIV>Hi Don,</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><DIV>On 27-Aug-07, at 8:57 PM, =
don cole wrote:</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><BLOCKQUOTE type="cite"><DIV =
style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><SPAN class="Apple-converted-space">=A0 =
</SPAN>What can AutoIt do that Euphoria can't =
do?</DIV></BLOCKQUOTE><BR></DIV><DIV>This is my first post to this =
forum.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>I'm =
not that familiar with Euphoria (and I've only written=A0</DIV><DIV>simple=
programs in AutoIt),=A0but my impression is that=A0</DIV><DIV>AutoIt, =
designed to do scripting, can do more with=A0</DIV><DIV>interfacing with =
other programs=A0than=A0Euphoria - it can=A0</DIV><DIV>expose the text =
in a dialog box,=A0for example,=A0so that if=A0</DIV><DIV>you are =
looking for a certain=A0string to indicate success=A0</DIV><DIV>or =
failure of some process in=A0another application,=A0</DIV><DIV>AutoIt =
allows you to write code to=A0do so, and can have</DIV><DIV>the mouse =
click on the dialog box buttons as desired.=A0</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><DIV>Or, can=A0Euphoria do this =
as well?=A0</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><DIV>Friendly =
regards,</DIV><DIV>Patrick Murphy</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><DIV><SPAN =
class="Apple-style-span">=46rom AutoIt's =
documentation=A0</SPAN></DIV><DIV><SPAN class="Apple-style-span"><<A =
href="http://www.autoitscript.com/autoit3/docs/">http://www.autoitscript=
.com/autoit3/docs/</A>>:</SPAN></DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><P style="margin: 0.0px 0.0px =
5.0px 0.0px"><FONT class="Apple-style-span" face="Verdana" =
size="3"><SPAN class="Apple-style-span" style="font-size: =
11px;">AutoIt is a 'growing' scripting language.=A0 It started as an =
add-on tool to automate basic tasks in GUI's of other programs. <BR> =
These tasks (like sending a keystroke or clicking a button) are still =
the core components of an AutoIt script. However with the recent GUI =
additions, you can now incorporate your own graphical interface using =
native AutoIt script commands.<BR> The new COM (Object) functionality =
fills the gap with WSH languages, such as VBScript/JScript. Under =
certain conditions you can now even use WSH-like scripts on otherwise =
unsupported operating systems (like Windows 9x/Me/NT).<BR><BR> With this =
combination of GUI Automation, GUI Interfaces and COM support, AutoIt =
offers you a powerful scripting tool that is able to compete with =
fully-fledged scripting languages like WSH or =
KiXStart).</SPAN></FONT></P></BODY></HTML>=
--Apple-Mail-1--444981555--
123. Unknown
- Posted by CHRIS JANTZEN Refer#: NONE
Dec 31, 1969
-
Last edited Jan 01, 1970
WS> Does anyone know how to detect XMS/EMS? I've used something
documented in
WS> my PC INTERRUPTS book, but I can't seem to get it to work.
The following code was *mostly* right. Go back to your original
source to
compare the changes I made:
procedure check_ems (VAR installed:boolean; VAR ver,ver2:byte); var
regs : registers;
begin
regs.ax := $46;
intr($67,regs);
installed := regs.ah = $00;
if (installed = true) then
begin
ver := hi(regs.al);
ver2 := lo(regs.al);
end;
end;
procedure check_xms (VAR installed:boolean; VAR ver,ver2:byte); var
regs : registers;
begin
regs.ax := $4300;
intr($2F,regs);
installed := regs.al = $80;
if (installed = true) then
begin
regs.ax := $4310;
regs.ah := $00;
intr($2F,regs);
ver := regs.ax;
ver2 := regs.bx;
end;
end;
WS> I am pretty sure I'm calling the interrupts right, but it always
returns
WS> false, indicating that I do NOT have EMS/XMS, although I do.
Can anyone
WS> help me out?
You were. Mostly. What you forgot was that when a real world book
like PC
Interrupts says "Load the AX register with the value 4300h", it means
to us
Pascal programmers "Load the AX variable with the value $4300". Note
the dollar
sign. That means hexadecimal (like the little h on the end means
hexadecimal to
assembly programmers).
Chris KB7RNL =->
--- GoldED 2.41
* Origin: SlugPoint * Coos Bay, OR USA (1:356/18.2)
********** next code for looking at CMOS information **********
{ >I heard many times about people talking about CMOS password ?
>Is it a password that comes with the hardware ???
>
I'll try to make a long story short. One of the crucial parts of the
PC
is the MC146818 RTC chip. Although this primarily is a real time
clock,
it also contains 64 bytes of RAM, which conveniently are buffered by a
battery or an accu, so they keep the volatile info even when you turn
the PC off (at least as long the battery hasn't turned into fluid
All the setup options of the BIOS are stored in those 64 bytes. Modern
BIOSes usually allow to have a password option set for either at every
booting or just when entering the setup. Below you find the standard
CMOS
layout as it was defined by IBM. AMI, Phoenix and others have added
some
options called "Advanced Setup" and used the bytes which are marked
reserved
here. Somewhere in this reserved range the password gets stored.
Maybe there are PCs with some other RTC chip with more RAM, but at
least
around here even the latest buys still carry this old but worthy chip.
From: skolnik at kapsch.co.at (Gerhard Skolnik)
+---------------------------------------------------------------------
-+
a CMOS Storage Layout more
a
+---------------------------------------------------------------------
-+
00H-0dH used by real-time clock
0eH POST diagnostics status byte
0fH shutdown status byte
10H diskette drive type -----+
11H reserved a
12H hard disk drive type a
13H reserved a- checksum-protected
14H equipment byte a configuration record (10H-
20H)
15H-16H Base memory size a
17H-18H extended memory above 1M a
19H hard disk 1 type (if > 15) a
1aH hard disk 2 type (if > 15) a
1bH-2dH reserved -----+
2eH-2fH storage for checksum of CMOS addresses 10H through 20H
30H-31H extended memory above 1M
32H current century in BCD (eg, 19H)
33H miscellaneous info.
34H-3fH reserved
+----------------+
aUsing CMOS Data a
+----------------+
To read a byte from CMOS, do an OUT 70H,addr; followed by IN 71H.
To write a byte to CMOS, do an OUT 70H,addr; followed by OUT
71H,value.
Example: ;------- read what type of hard disk is installed
mov al,12H
out 70H,al ;select CMOS address 12H
jmp $+2 ;this forces a slight delay to settle things
in al,71H ;AL now has drive type (0-15)
}
124.
- Posted by
Aug 01, 2005
-
Last edited Aug 02, 2005
X-MimeOLE: Produced By Microsoft Exchange V6.0.6249.0
Subject: It did work
Date: Mon, 1 Aug 2005 16:08:58 -0500
Message-ID: <CDC3E3C423472D4A8663242DE1AD5D030146D7FF at demetexsf01.corp.deme=
t.com.mx>
X-MS-Has-Attach:=20
X-MS-TNEF-Correlator:=20
Thread-Topic: Digest for EUforum at topica.com, issue 5094
Thread-Index: AcWW2c+VS2RROjTvR7Ga0ETDNmkdTgAE7yMg
From: "Rangel, Hebert Rogelio" <hrangel at demet.com.mx>
To: <EUforum at topica.com>
Return-Path: hrangel at demet.com.mx
X-OriginalArrivalTime: 01 Aug 2005 21:09:01.0297 (UTC) FILETIME=[3D756610=
:01C596DD]
Thanks what Dave Probert <zingo at purpletiger.com> said, help me alot inst=
ead of using getText i did use getNumber in one side and get text in the ot=
her an it gives back a number i=B4ll write the code code so u can see, how =
i did it.
thanks.
<eu>
procedure onClick_Button1()=20=20=20=20
object index
object result
atom day
object du
object mes
object res
object rda
-- get index
index = getIndex( List )
day = getNumber(EditText0)
mes = getItem(List,index)
du = getText(EditText20)
res = day + du=20=20
rda = getText(EditText0)=20
result = message_box(mes & "/" & rda & "..." & res,"OK", 0)
=20=20=20=20
end procedure
</eu>
125.
- Posted by crg_seys <crg_seys at NETVERK.COM.AR>
Jul 02, 1999
-
Last edited Jul 03, 1999
------=_NextPart_000_028E_01BEC4D7.B4E26060
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
help
------=_NextPart_000_028E_01BEC4D7.B4E26060
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
------=_NextPart_000_028E_01BEC4D7.B4E26060--
126.
------=_NextPart_000_0077_01BEC736.38070C60
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
David,
I do owe you an apology for being imprecise--Llama is not tightly tied =
to the Windows API and seems to be getting less so as you develop it. =
Perhaps I should have said that Llama is very well suited to providing =
services such as those provided by the Windows API. I also did not mean =
to imply in any way that Llama was intended to be fully generic.
An example of my point is the function getMethodID() in classes.e (IF I =
understand your code correctly): this creates a method and makes it =
available to all classes. I think this is great for Windows-like =
programming where methods are largely event handlers--a real =
convenience--you declare "onClick" once and then implement it for each =
class that needs it (which will be most of them). I find this very =
thing an inconvenience in a generic system where methods are mostly not =
event handlers and where different classes have methods that may be very =
dissimilar--I don't like the concept of declaring a method that 90% of =
classes won't need and making it available to all classes. Yet I think =
this very feature was a good design decision for Llama's intended =
purpose.
--Mike Nelson
------=_NextPart_000_0077_01BEC736.38070C60
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>David,</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>I do owe you an apology for being=20
imprecise--Llama is not tightly tied to the Windows API and seems to be =
getting=20
less so as you develop it. Perhaps I should have said that Llama =
is very=20
well suited to providing services such as those provided by the Windows=20
API. I also did not mean to imply in any way that Llama was =
intended to be=20
fully generic.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>An example of my point is the =
function=20
getMethodID() in classes.e (IF I understand your code correctly): =
this=20
creates a method and makes it available to all classes. I think =
this is=20
great for Windows-like programming where methods are largely event =
handlers--a=20
real convenience--you declare "onClick" once and then =
implement it for=20
each class that needs it (which will be most of them). I find this =
very=20
thing an inconvenience in a generic system where methods are mostly not =
event=20
handlers and where different classes have methods that may be very =
dissimilar--I=20
don't like the concept of declaring a method that 90% of classes won't =
need and=20
making it available to all classes. Yet I think this very feature =
was a=20
good design decision for Llama's intended purpose.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>--Mike Nelson</FONT></DIV>
------=_NextPart_000_0077_01BEC736.38070C60--
127.
With the following program I want to end up with a file looking like
this:
{
{{"SMITH"},{{{"FRED"},62,75},{{"JACK"},55,57}}},
{{"JONES"},{{{"HARRY"},44,54},{{"SAM"},12,15}}}
}
and NOT this:
{
{{83,77,73,84,72},{{{70,82,69,68},62,75},{{74,65,67,75},55,57}}},
{{74,79,78,69,83},{{{72,65,82,82,89},45,54},{{83,65,77},12,15}}}
}
how do I go about changing this program to accomplish this ?
-------------------------------------------------------------------------------
include get.e
include wildcard.e
constant LAST_NAME=1,
SAME_NAME=2, FIRST_NAME=1, LO=2, HI=3,
SALARY={"", "\nBeginning Salary:", "\nEnding Salary:"}
integer db_data
sequence record, data
function input_alpha()
sequence input
input=gets(0)
input=input[1..length(input)-1]
input=upper(input)
puts(1,input)
return input
end function
function input_num()
object input
atom number
input=get(0)
number=input[2]
return number
end function
procedure create()
db_data=open("data.dat","w")
data={}
puts(1,"\nHow many entries:")
for number_of_entries=1 to input_num() do
clear_screen()
record=repeat(0,2)
puts(1,"\nEnter Last Name:")
record[LAST_NAME]=upper(input_alpha())
puts(1,"\nNumber of people with this last name:")
record[SAME_NAME]=repeat({0,0,0},input_num())
for loop=1 to length(record[SAME_NAME]) do
puts(1,"\n\nFirst Name:")
record[SAME_NAME][loop][FIRST_NAME]=input_alpha()
for dollars=LO to HI do
puts(1,SALARY[dollars])
record[SAME_NAME][loop][dollars]=input_num()
end for
end for
data=append(data,record)
end for
print(db_data,data) close(db_data)
end procedure
create()
-------------------------------------------------------------------------------
128.
Why??
~~~~~~
Why would you want it to save the values as ascII ???
If you would read it back in, and use puts() to display it on the
screen, it will look like those names, and not like those numbers.
I can not understand why the file has to be readable for humans,
your program can read it back in and Euphoria automatically displays
it right!!
Howcome??
~~~~~~~~~~
Euphoria has 2 datatypes atoms and sequences. (as you know)
A atom is just a value, a set of bits in memory.
A sequence is a structured collection of atoms.
Euphoria simple saves the values returned by gets()
Gets returms a sequence, a collection of values.
In dos and any other ascII based operating system, there are 256
different characters, each having their own value.
For example 'A' = 65 and 'B' = 66
In euphoria everything inside of these: ' ' is the same as the value
in the system's ascII table.
Everything inside of these: "" is the same as a sequence containing
the values of all characters of the piece of text.
When you do: puts(1,"Hi!")
The routine doesn't recieve a text, but a sequence with values and
the function puts those values in the screen memory and the operation
system will then display the picture that belongs to the value. For
the value of 65, it is the picture of an 'A' as you see it on the
screen.
Size..
~~~~
If it's the size that you are worried about, use my Euphoria Data
Object Manager to save a sequence to disk in the shortest way
possible, and with compression!!
Good luck,
Ralf Nieuwenhuijsen
nieuwen at xs4all.nl
129.
- Posted by fernando at RXP.COM
Mar 15, 2001
-
Last edited Mar 16, 2001
------=_NextPart_000_0004_01C0AD9E.1F02F760
charset="iso-8859-1"
Does any one else here have a problem with their e-mail program junking
messages from this list bc it looks like spam? All the ads are triggering my
filters. I don’t want to turn them off cuz I get a lot of spam. 
Fernando
------=_NextPart_000_0004_01C0AD9E.1F02F760
charset="iso-8859-1"
<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">
<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C0AD9E.1EC77500">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
{margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
{mso-style-type:personal-compose;
color:black;}
span.EmailStyle17
{mso-style-type:personal;
color:black;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=3DEN-US style=3D'tab-interval:.5in'>
<div class=3DSection1>
<p class=3DMsoNormal style=3D'mso-layout-grid-align:none'><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
color:black'>Does any one else here have a problem with their e-mail =
program
junking messages from this list bc it looks like spam? All the ads are
triggering my filters. I don’t want to turn them off cuz I get a =
lot of spam.
</span></font><font size=3D2 color=3Dblack face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal style=3D'mso-layout-grid-align:none'><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
color:black'> </span></font><font size=3D2 color=3Dblack =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal style=3D'mso-layout-grid-align:none'><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
color:black'>Fernando</span></font><font size=3D2 color=3Dblack =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>
<p class=3DMsoNormal><span class=3DEmailStyle17><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =
</div>
</html>
------=_NextPart_000_0004_01C0AD9E.1F02F760--
130.
- Posted by msuclay at hotmail.com
Mar 17, 2001
First off, I would like to say that I am really new to programming and
have no experience in it. I have just learn everything from examples
that I have downloaded. However, I am stuck. I am trying to write a
procedure to get numerical data that is entered into text boxes. Once I
have the data, I want to do some calculations and output it to another
text box. I am getting the data fine, but once I try to output it, the
program goes crazy. The way that it is set up below, it will read in
values but not calculate them correctly. I have had my variables as
atom, object, sequence and just about everything. I have tried to write
a function, but have had no luck. Any and all help would be
appreciated.
Thanks,
Clay Smith
msuclay at hotmail.com
procedure onClick_threebutton()
object horse, volt, powerf, eff, output, total
horse = getText( threehorsetext )
volt = getText( threetextvoltage )
powerf = getText( threetextpowerf )
eff = getText(threetexteff)
total = ((746*horse)/(1.73*volt*powerf*eff))
setText( threetextload, total)
end procedure
131.
Sorry I made an error in the prior post.
Use this instead at line 6776 in IDE_proj.ew:
settingsBuffer[cfgPV_R1]={}
if isChecked(PV_R1) then
settingsBuffer[cfgPV_R1]={"",0,0,0,0,0}
lastPosition = getRelRect(ProjectWindow, Controls)
size=getCtlSize(ProjectWindow)
settingsBuffer[cfgPV_R1][1]="PV_R1"
settingsBuffer[cfgPV_R1][2]=lastPosition[1]
settingsBuffer[cfgPV_R1][3]=lastPosition[2]
settingsBuffer[cfgPV_R1][4]=size[1]
settingsBuffer[cfgPV_R1][5]=size[2]
settingsBuffer[cfgPV_R1][6]=menuDockProjectTree
end if
132.
Jonas Temple wrote:
> Bernie,
>
> No, I have never applied this patch. I just checked the referenced
> bytes and they are {3,0,10}. Should this patch be applied to exw.exe
> AND pdexw.exe?
>
> Thanks for the tip!
>
Jonas:
FIRST BACKUP YOUR EXE FILES.
When you bind a program you are binding pdexw.exe to your
program. So patch your pdexw.exe file and then bind your
program as you would normaly do and see if your problem goes
away.
Bernie
133.
Judith ,
what is w32HRightClick event in IDE 0.15 ???
this doesn't work
Renzo from Belgium
135.
- Posted by John McAdam <john.mcadam at MAIL.TELEPAC.PT>
Apr 09, 2000
-
Last edited Apr 10, 2000
Mike the spike
is your ICQ still 24239591?
136.
- Posted by bill gates <sun.rise at MAIL.EE>
Apr 18, 2000
-
Last edited Apr 19, 2000
------=_NextPart_000_0122_01BFA977.07A01FC0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Warning: I'm an arrogant drug addict and alcoholic plus i'm a =
teenager and I'm from Eastern block..
In last saturday went to a disco where I drank four (4) bottles
of 9,8% beers and after the party I threw up and spent the
night sleeping in my ..... that was the thing I wanted to ask .. =
what is the word in english for the
stuff that comes out of your mouth when you throw up...I mean the =
stuff that my coat is still soaked with?
-------------------------------------------------------------------------=
--- =20
And to MTS: keep up the good work!
------=_NextPart_000_0122_01BFA977.07A01FC0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#000000>
<BLOCKQUOTE><FONT color=3D#ffffff size=3D4>Warning: I'm an arrogant drug =
addict=20
and alcoholic plus i'm a teenager and I'm from Eastern=20
block..</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6>In last saturday went =
to a=20
disco where I drank four (4) bottles</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6>of 9,8% beers and after the =
party I=20
threw up and spent the</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6>night sleeping in my ..... =
<FONT=20
color=3D#c0c0c0 size=3D3>that was the thing I wanted to ask .. what =
is the word=20
in english for the</FONT></FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6><FONT color=3D#c0c0c0 =
size=3D3>stuff that=20
comes out of your mouth when you throw up...I mean the stuff that my =
coat is=20
still soaked with?</FONT></FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6><FONT color=3D#c0c0c0 =
size=3D3>
<HR color=3D#800000 SIZE=3D68 style=3D"HEIGHT: 68px; WIDTH: 900px" =
width=3D900>
<STRONG><FONT color=3D#ff00ff size=3D7>And to MTS: keep up the good=20
------=_NextPart_000_0122_01BFA977.07A01FC0--
137.
------=_NextPart_000_0014_01BFAB90.A957B100
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
UNSUBSCRIBE
------=_NextPart_000_0014_01BFAB90.A957B100
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
------=_NextPart_000_0014_01BFAB90.A957B100--
144.
Hi
I told you I was new
What I mean is, I should be able to move the mouse by sending the
WM_MOUSEMOVE message (shouldn't I?) but can I do this when my window isn't
the active one?
Thanks again
Paul
>Hi
>
>I'm new to this so please bear with me.
>
>Is it possible for me to write a Win32 prog. so that the prog (as opposed
to
>user) can move the mouse over the screen even when my window isn't the
>active one?
>
>Or am I only dreaming?
>
>Thanks
>
>Paul
145.
- Posted by Carlos Valdes <jcarlosvo at HOTMAIL.COM>
Sep 07, 2000
-
Last edited Sep 08, 2000
It's been a long time since my last (small) contribution, so I'm sending
this. I hope you'll like it.
It is not as beautiful as Jiri's program in the contributions list, but I
think it illustrates what Eu can easily do, and it is fast and short.
Rob, will you please catalog it on the contributions list?
Excuses for the meaningless variable names and minimal doc.
Enjoy!
Carlos Valdes
-------------------------------------------------------------------------
-------------<THE GAME OF LIFE, Program by J. Carlos Valdes O.>
------------ <jcarlosvo at hotmail.com>
------------ Mexico, august 2000
-- Initial screen randomly generated each game, but soon aquires
-- standard shapes and configurations.
-- When stabilized automatically adds new cells, changes colors and
restarts
-- Toroidal screen: top bottom and left right continuous
include get.e
include file.e
include graphics.e
without type_check
constant L_ROWS= 50
constant L_COLS= 80
global atom s --delay
s=0
procedure delay(atom cc)
--variable delay between screens
atom t
if cc='e' then
abort(1)
end if
if cc='+' then
s-=0.01
end if
if s<0 then
s=0
end if
if cc='-' then
s+=0.01
end if
if s>0.2 then
s=0.2
end if
t=time()
while time()-t<s do
end while
end procedure
procedure beeps()
--generates sound
for j=1 to 10000 do
sound(1000)
end for
sound(0)
end procedure
function calc_pan(object y)
--calculate next screen according to std. rules
object x
integer a,b,c,d,e
x=repeat(0,L_COLS)
x=repeat(x,L_ROWS)
for i = 1 to L_ROWS by 1 do
for j = 1 to L_COLS by 1 do
a=i-1
if a=0 then
a=L_ROWS
end if
b=i+1
if b=L_ROWS+1 then
b=1
end if
c=j-1
if c=0 then
c=L_COLS
end if
d=j+1
if d=L_COLS+1 then
d=1
end if
e=y[a][c]+y[a][j]+y[a][d]+
y[i][c]+ y[i][d]+
y[b][c]+y[b][j]+y[b][d]
if e=0 or e=1 then --cell dies from isolation
x[i][j]=0
end if
if e=2 then
x[i][j]=y[i][j] --cell lives
end if
if e=3 then
x[i][j]=1
end if
if e>=4 then --cell dies from overpopulation
x[i][j]=0
end if
end for
end for
return x
end function
procedure draw_pan(object z)
--draw screen
object y
y=z
for i=1 to L_ROWS by 1 do
for j=1 to L_COLS by 1 do
if z[i][j]=1 then
y[i][j]='O'
else
y[i][j]=' '
end if
end for
end for
for i=1 to L_ROWS-1 do
position(i,1)
puts(1,y[i])
end for
position(L_ROWS,1)
puts(1,y[L_ROWS][1..L_COLS-1])
end procedure
function gene_pan(object z)
--generates new cells on previous stabilized screen
for i=1 to L_COLS by 1 do
z[floor(L_ROWS/3)+rand(floor(L_ROWS/3))]
[floor(L_COLS/3)+rand(floor(L_COLS/3))]=1
end for
return z
end function
atom cc
object u,v,w
integer a,b,c,d
cursor(NO_CURSOR)
a=text_rows(L_ROWS)
--? video_config()
puts(1,"THE GAME OF LIFE, Program by Carlos Valdes\n")
puts(1,"\nPlease remember: e to exit at any time,"&
" + faster, - slower, Enter to begin")
if wait_key()='e' then
abort(1)
end if
w=repeat(0,5) --store 5 configs to detect stagnation
u=repeat(0,L_COLS)
u=repeat(u,L_ROWS)
v=u
while 1 do
u=gene_pan(u)
b=rand(8)
c=rand(7)+8 --skip blinking chars: do not use c=16
bk_color(b)
text_color(c)
clear_screen()
beeps()
while 1 do
draw_pan(u)
u=calc_pan(u)
w[5]=w[4]
w[4]=w[3]
w[3]=w[2]
w[2]=w[1]
w[1]=u
d=0
for i=2 to 5 by 1 do
if compare(u,w[i])=0 then
d=1
exit
end if
end for
if d=1 then
exit
end if
cc=get_key()
delay(cc)
end while
end while
-------------------------------------------------------------
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
Share information about yourself, create your own public profile at
http://profiles.msn.com.
146.
Thomas,
Call me Mike (just don't confuse me with "Mike The Spike")
-- Mike Nelson
147.
How to create a window in windows?
Do i need to know c language to open a window?
And i want to find a program to teach me Euphoria, it is better that the program
can teach me in detail.
Thank You for answer my question
>From YanYanCup---a 14 year-old boy in Hong Kong
_____________________________________________________
Sent by Hong Kong E-Mail at http://www.hkem.com
It's free. It's easy. Sign up your account Now!
148.
On 12 Sep 2000, at 7:46, Yan Yan wrote:
> How to create a window in windows?
> Do i need to know c language to open a window?
> And i want to find a program to teach me Euphoria, it is better that the
> program can teach
> me in detail. Thank You for answer my question >From YanYanCup---a 14 year-old
> boy in Hong
> Kong
Did you get any of the help files that came with Euphoria, or did you look in
*any*
win32 program in the archives on the web page?
Kat
149.
My last post was not intended for the list, I meant it for Ken Rhodes by
private email and sent to the list inadvertenly.
-- Mike Nelson
150.
- Posted by Undetermined origin c/o LISTSERV administrator
Sep 26, 2000
-
Last edited Sep 27, 2000
" <mwfch at mweb.co.za>
To: "Euphoria Programming for MS-DOS" <EUPHORIA at LISTSERV.MUOHIO.EDU>
Subject: scroll
Date: Wed, 26 Jan 2000 11:46:19 +0200
boundary="----=_NextPart_000_0007_01BF67F2.F613C2E0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
------=_NextPart_000_0007_01BF67F2.F613C2E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Thanks for all the help with my last questions .
Does anyone here know how to scroll a level ? This is truely the last =
thing I have to know to have my game on the right path . Please , ANY =
help will be very helpfull . Else I am gonna have to go on a nother =
crusade to find someone to help me . Thank.
Ferdinand
------=_NextPart_000_0007_01BF67F2.F613C2E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial>Thanks for all the help with my last questions=20
.</FONT></DIV>
<DIV>Does anyone here know how to scroll a level ? This is truely =
the last=20
thing I have to know to have my game on the right path . Please , ANY =
help will=20
be very helpfull . Else I am gonna have to go on a nother crusade to =
find=20
someone to help me . Thank.</DIV>
<DIV> </DIV>
------=_NextPart_000_0007_01BF67F2.F613C2E0--
151.
Hello Ferdinand,
>Thanks for all the help with my last questions .
>Does anyone here know how to scroll a level ? This is truely the last =
>thing I have to know to have my game on the right path . Please , ANY help
>will be very helpfull. Else I am gonna have to go on a nother crusade to
>find someone to help me . Thank.
>
>Ferdinand
Okay, you asked for ANY help. Without knowing exactly how
your game works, I'll have to give you very GENERAL help.
Scrolling is a simple concpet: all that it really means is
displaying to the screen a slightly different position of
the world. If you are using bitmaps, you should have a
separate image for the view area. All new drawing should be
done to this "buffer" image. The buffer should then be copied
to the screen when all drawing is done.
The concept of scrolling is simply drawing a changing location
of the game-world onto the unchanging location of the screen.
Pseudocode follows:
game loop
calculate new game data (positions etc.)
change view position
draw new game data to buffer relative to view position
copy buffer to screen
end loop
later,
Lewis Townsend
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
Share information about yourself, create your own public profile at
http://profiles.msn.com.
152.
Jiri,
I just downloaded your new associative lists--incredibly cool benkmark
program!
-- Mike Nelson
153.
Hey everyone.
I am currently creating a game graphics library, glib.e, which
has heavily optimised sprite drawing capabilities. It's almost finished, but
a problem I have is this: Although there is hardly any bugs left in the
code, and it all works fine, I need a routine that can convert a 256-color
bitmap into the color codes that are default in euphoria 256 color mode.
The reason for this is that 256 color bitmaps all use custom palette values,
which is all well and good, but you can't display more than one at a time,
or you get *interesting* results.
What I've tried is similar to this
(not real code)
bitmap_palette = pic[1] / 4
eudef_palette = get_all_palette()
in a loop,
look for each entry of bitmap_palette in eudef_palette
i.e. index = find(bitmap_palette[count], eudef_palette)
if index then change each pixel in pic[2] that has value count to a new
value index.
if any entries could not be matched, divide both palettes by 2 and floor
them. This will make the palette values more crude, and easier to match.
and repeat, until all entries are found.
I've been using a mask array, to hold which arrays are found and what arent.
Does this make sense, or is there another way to do it, or has anyone done
it already?
=====================================================
.______<-------------------\__
/ _____<--------------------__|===
||_ <-------------------/
\__|Mr Trick
154.
Sorry about the last post--I meant to send it to Rob.
-- Mike Nelson
155.
- Posted by jbrown105 at HotPOP.com
Jun 03, 2001
On Thu, May 10, 2001 at 12:34:08PM -0500, Kat wrote:
>
>
> On 10 May 2001, at 15:51, sephiroth _ wrote:
>
>
> >
> > hey trevor! you can't execute euphoria code like that yet...what you
> > need is a function like eval() in Perl, but Euphoria doesn't have
> > that(hey robert, can you take a hint?)
>
> We did more than hint about this same problem last year. Same with goto
> and vertical sequence slices. There are two(?) interpreters in the archives,
> that you can include in your code and pass vars to be executed. They run
> slower than the native interpreter, of course.
>
> Kat
>
Actually, one of them uses a form of dynamic including to trick the
real interpeter to do this, E! (yes, it's name is "E!"). The other one
, eu.ex, is a rewrite of euphoria in itself but has no eval() function.
jbrown105
>
>
--
Linux User:190064
Linux Machine:84163
http://jbrown105.1avenue.com
156.
- Posted by jbrown105 at HotPOP.com
Jun 03, 2001
From: jbrown105 at hotpop.com
Subject: Re: Confidence
On Sat, May 05, 2001 at 11:40:43AM -0700, David Cuny wrote:
>
>
> jbrown wrote:
>
> > and the GTK.E file is improperly wrapped,
> > I believe, and thus unuseable, except
> > for simple programs.
>
> It depends what you mean by 'improperly'. It worked for the version that it
> was created for, but since then, it appears that the library has changed.
>
That's possible.
> > P.P.S. 2 examples: llama/gtk's MLE's set
> > method fails, and it's menubar is at the
> > bottom, and not the top.
>
> Sounds like some constant values were added to an enum list - so much for
> being 'constant'.
>
Any suggestions, then?
> > On this list, Irv once asked how David managed
> > to get GTK.E to work, I believe he opened a dll
> > that the gtk main so file was dependant on.
>
> Yes, it's dynamically linked. One of the problems with this is that if the
> library underneath changes (such as constants or structs), code breaks. but
> since we can't statically link the GTK library to Euphoria, it's the only
> way to do it.
>
> > Anyone have info on wrapping Xlib
>
> I've done a bit of it; you can find the start of an XLib wrapper at:
>
> http://www.lanset.com/dcuny/mwin.htm
>
>
> > or wrapping something like Qt for Eu?
>
> There is no pre-built wrapper for Qt available. You'll also have to create a
> DLL; Qt is builds static library *after* running through the MOC
> pre-processor. Keep in mind that Qt has some serious license restrictions
> attached to it.
>
> That said, there's a Qt wrapper for Perl that you might want to look at.
>
Where?
> -- David Cuny
>
TIA,
jbrown105
>
>
>
--
Linux User:190064
Linux Machine:84163
http://jbrown105.1avenue.com
157.
G'day all
Just to add my $0.02 to the namespace debate...
I like the idea of library namespacing using the syntax
"include <library> as <namespace>". I won't bore you by
repeating all the good reasons already discussed. I'd
also like the ability to define my own namespace, using
syntax like "namespace <namespace>" or similar. What I'd
*really* like to be able to do is something like the
following:
include kdewrap.eu as kde
include gnomewrap.eu as gnome
include motifwrap.eu as motif
include xwinwrap.eu as xwindows
namespace lib
sequence whatlib
<some code here>
if equal(whatlib, "KDE")
lib = kde
elsif equal(whatlib, "GNOME")
lib = gnome
elsif equal(whatlib, "MOTIF")
lib = motif
elsif equal(whatlib, "XWINDOWS")
lib = xwindows
else
telluser("Yo! Dummy! You didn't choose a library!")
abort(0)
end if
myvar1 = lib.function1(parms1)
myvar2 = lib.function2(parms2, parms3, parms4)
myvar3 = lib.function27(parms15, parms2)
if condition
myvar4 = kde.function98(parms11, parms35)
else
myvar4 = lib.function98(parms11, parms47)
end if
<etc>
Hopefully the above describes my thinking ;)
Regards
Tony
158.
G'day all
Someone - sorry, too lazy to look up the post :( - was talking about
shrouded libraries in relation to the namespace issue. Does Eu support
including of shrouded libraries? If so, is it unique to the registered
version (I'm still playing with the PD release)?
Regards
Tony
159.
does anyone know how i can access data in an MS access database ???
please let me know
Renzo Beggia
ProjectLeider VSK electronics
Belgium
Tel: 056/241985
GSM: 0477/294580
EMAIL: renzo.beggia at vsk.be
160.
Jiri,
I can agree to disagree about the merits of our respective beliefs
concerning optimization--may further benchmarking choose between us!
However, I cannot agree that you have tried to be polite--your post in which
you stated "you've got to be kidding" was questionable, but I can let that
go. If you are attacking my competence, so be it. However, in using the
phrase "phony evidence" as opposed to, say "erroneous evidence", how can I
not perceive you as attacking my integrity? No matter how wrong I might
think your ideas are, I would never call you I liar. Why have you called me
one?
--Mike Nelson
161.
------=_NextPart_000_0009_01BF77AE.5D66DB60
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
HEEEELLLLLPPPPPP
The eternal newbie here. . . lol how do I convert an object to an =
integer? I am telling a program to repeat a system command x amount of =
times but the for statement requires an integer and the get_attrib =
statement requires an object.. . .=20
I'm sooooooooo confused,. . . .=20
Paul
------=_NextPart_000_0009_01BF77AE.5D66DB60
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2919.6307" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>HEEEELLLLLPPPPPP</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> The eternal newbie =
here. . . lol=20
how do I convert an object to an integer? I am telling a program =
to repeat=20
a system command x amount of times but the for statement requires an =
integer and=20
the get_attrib statement requires an object.. . . </FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =
I'm=20
sooooooooo confused,. . . . </FONT></DIV>
<DIV> </DIV>
------=_NextPart_000_0009_01BF77AE.5D66DB60--
162.
- Posted by Prasanta Chakraborty <prasanta at WRITEME.COM>
Feb 16, 2000
-
Last edited Feb 17, 2000
Hi to all,
I am new to Euphoria Language and enjoying programming in it. Has anybody in
this community used euphoria with any database ? Can anybody tell me how to do
that in WIN32 environment?
Any help is appreciated.
Regards,
Prasanta.
----------------------------------------------------------------
Get your free email from AltaVista at http://altavista.iname.com
163.
------=_NextPart_000_0038_01BF4EC4.EC302D00
boundary="----=_NextPart_001_0039_01BF4EC4.EC302D00"
------=_NextPart_001_0039_01BF4EC4.EC302D00
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
For Kenneth Rhodes--
I have attached a text version of the Object Euphoria documentation.
Object Euphoria is platform independent and should run as-is under =
Linux, unfortunately I don't have Linux and can't test this,
--Mike Nelson
------=_NextPart_001_0039_01BF4EC4.EC302D00
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>For Kenneth Rhodes--</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>I have attached a text version of =
the Object=20
Euphoria documentation.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>Object Euphoria is platform =
independent and=20
should run as-is under Linux, unfortunately I don't have Linux and can't =
test=20
this,</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>--Mike =
------=_NextPart_001_0039_01BF4EC4.EC302D00--
------=_NextPart_000_0038_01BF4EC4.EC302D00
name="Object Euphoria.txt"
Content-Transfer-Encoding: quoted-printable
164.
- Posted by Mathew Hounsell <mat.hounsell at EXCITE.COM>
Apr 01, 1999
-
Last edited Apr 02, 1999
I sent two contributions to RDS. Hopefully they are OK and got there OK. The
page might not have been updated yet.
I sent an update to my Library of Useful Routines. It now :
Is a library of useful routines for :
Memmory Addressing, File Path Manipulation, Date
Validation, Finding Elements, Program Information,
Sequence Manipulation, Benchmarking and Determining
an Objects Size.
Also included are :
Constants for BIOS information's Fixed Addresses.
I Also sent a file containing Information and Files to help Windows work
better with Euphoria Files. The information can be adapted for other file
types.
Jesse Kint see BIOS_MEM.E and BIOS_MEM.TXT in my Useful Routines library for
the addresses of Keyboard data.
--------------------
Sincerely,
Mathew Hounsell
Mat.Hounsell at Excite.Com
_______________________________________________________
Get your free, private email at http://mail.excite.com/
165.
- Posted by Mathew Hounsell <mat.hounsell at EXCITE.COM>
Apr 01, 1999
-
Last edited Apr 02, 1999
[ Naming Conventions ]
Euphoria is spreading it's platform base and I propose a small change to the
file naming convention.
E & EX <- Platform independant euphoria
ED & EXD <- MS-DOS
EW & EWD <- Ms Windows
EL & EXL <- Linux
EU & EXU <- Unix
EM & EXM <- Macintosh
EB & EXB <- Be Os
There is one question what to name X-Windows files? EX is in use. So then do
we change the naming convention to
E_ & EX_ <- Platform independant
or
E & E_X <- Platfom Indepedant
ED & EDX, EW & EWX, EL & ELX etc...
EX & EXX <- X windows
In Summary shall we change the naming convention to
E? & EX? with no X specific files
E? & EX? with _ being platform independant
E? & E?X with _ being platform independant
Or do we let a confusing restricted style survive for the sake of irrelevant
backward style compatibility.
Remember the interpreter will try to run any file with any extension. I run
.E files to test them. And have used .pic, .dlg and .prt files. *.prt being
a part of a program not a general library.
--------------------
Sincerely,
Mathew Hounsell
Mat.Hounsell at Excite.Com
_______________________________________________________
Get your free, private email at http://mail.excite.com/
166.
------=_NextPart_000_0032_01BF1C7E.673D7080
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I don't know how am I on your Euphoria mailing list, but please tell me
how to remove my name and address from it. I am tired of receiving your
letters to other people. I am most annoyed. Please send me information
MB MOTAUNG
ANYTHING at MWEB.CO.ZA
------=_NextPart_000_0032_01BF1C7E.673D7080
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>I don't know how am I on your Euphoria mailing list, but please =
tell=20
me<BR>how to remove my name and address from it. I am tired of =
receiving=20
your<BR>letters to other people. I am most annoyed. Please =
send me=20
information</DIV>
<DIV> </DIV>
<DIV><FONT color=3D#000000 size=3D2>MB MOTAUNG</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2><A=20
/BODY></HTML>
------=_NextPart_000_0032_01BF1C7E.673D7080--
167.
------=_NextPart_000_0005_01BF1DCC.7C482520
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
unsuscribe euphoria Marcelo Varela
------=_NextPart_000_0005_01BF1DCC.7C482520
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>unsuscribe euphoria Marcelo =
------=_NextPart_000_0005_01BF1DCC.7C482520--
168.
------=_NextPart_000_000A_01BF1FCC.593B2120
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
unsubscribe euphoria Marcelo Varela
------=_NextPart_000_000A_01BF1FCC.593B2120
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>unsubscribe euphoria Marcelo =
------=_NextPart_000_000A_01BF1FCC.593B2120--
169.
------=_NextPart_000_0032_01BF1FBF.45D0F540
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Para salirte de la lista, envia el mensaje en el cuerpo del e-mail :
SIGNOFF EUPHORIA
a la direcci=F3n :
LISTSERV at LISTSERV.MUOHIO.EDU=20
----- Original Message -----=20
From: marlo=20
To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
Sent: Tuesday, October 26, 1999 2:08 PM
unsubscribe euphoria Marcelo Varela
------=_NextPart_000_0032_01BF1FBF.45D0F540
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2014.210" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Para salirte de la lista, envia el =
mensaje en el=20
cuerpo del e-mail :</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>SIGNOFF EUPHORIA</FONT></DIV>
<DIV> </DIV>
<DIV>a la direcci=F3n :</DIV>
<DIV> </DIV>
<DIV><A href=3D"mailto:LISTSERV at LISTSERV.MUOHIO.EDU"=20
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>LISTSERV at LISTSERV.MUOHIO.EDU</A> =
</DIV>
<DIV> </DIV></FONT></DIV>
<DIV> </DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
<A href=3D"mailto:marlo at FIBERTEL.COM.AR" =
title=3Dmarlo at FIBERTEL.COM.AR>marlo</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, October 26, 1999 =
2:08=20
PM</DIV>
<DIV><BR></DIV>
<DIV><FONT size=3D2>unsubscribe euphoria Marcelo=20
------=_NextPart_000_0032_01BF1FBF.45D0F540--
170.
Hey guys.
I want to know how to set a color (like white) to transparent in a
bitmap.
I've seen it done but don't know how to do it.
Lates
Engale
171.
Hey guys I got a question.
I've seen it done but I can't figure it out.
How do you set a color (like white) to transperent in a bitmap?
Lates
Engale
172. Re:
> Hey guys.
> I want to know how to set a color (like white) to transparent in a
> bitmap.
> I've seen it done but don't know how to do it.
> Lates
> Engale
Win32Lib has the transBlt function which can be used to do this...
Thomas Parslow (PatRat)
E-Mail/Jabber: tom at almostobsolete.net
ICQ: 26359483
173.
What is the best way to forward reference to a routine when that routine
is the routine_id of setHandler?
Example:
In module1 I have a control MenuOpenReorder where I used
onClick[MenuOpenReorder]=routine_id("Click_MenuOpenReorder")
and a routine in program2 referenced this routine with
call_proc(onClick[MenuOpenReorder],{}).
Now I've got in module1 setHandler(MenuOpenReorder, w32HClick,
routine_id("Click_MenuOpenReorder")
For module2 what do I do now? I discovered a way but it requires a
global integer to use as the forward routine_id and making
MenuOpenReorder global in order to do this:
call_proc(menuOpenReorder_id,{MenuOpenReorder, w32HClick,{}) but I have
a feeling I'm doing this the hard way.
I can not refer directly to the routine name because module2 is included
prior to that routine in module1.
Any help would be appreciated.
Judith
174.
- Posted by a.tammer at hetnet.nl
Jun 10, 2002
Hi Kat,
Some people can read a message and apologise.
Even if they can begin to understand what went wrong
Some people can't I guess.
a@t
175. Re:
On 10 Jun 2002, at 22:31, a.tammer at hetnet.nl wrote:
>
> Hi Kat,
>
> Some people can read a message and apologise.
> Even if they can begin to understand what went wrong
> Some people can't I guess.
What are you talking about?
Kat
176. Re:
- Posted by a.tammer at hetnet.nl
Jun 12, 2002
Hi Kat,
I read the pell.net item.
Didn't surprise me.
Maybe it surprises U,
it didn't do that to me.
Keep on doing good things, lady
Antoine
178.
I finally found a fix for the problem of maximizing a large
Design and the Form scrollbars getting overlayed. I don't have
a lot of confidence with my fix since it didn't seem "right"
but it seems to work in my testing. I have a bad feeling
between my shoulder blades that something else will eventually
break with this fix so I am still looking for a better
solution.
I've uploaded patch1.zip which contains IDE.exw with the fix above plus
the fix for the too-short Tool Box additional tab Ck Lester found
yesterday.
Anyways, the fixes are in both the Latest IDE zip and the
patch1.zip on http://www2.txcyber.com/~camping/judith.html so
download one OR the other.
Thanks,
Judith
179.
i've downloaded the Borland euphoria to c translator, i've installed it
just as the document says to, now after i run the ecw.exe program, and
it creates the 20 some files when i run the "emake" it runs thru the
list of all the extra files, but under each it says "Bad Command or File
Name" and it does not create the shell.exe file, what is wrong???
Thanks,
Trav
181.
I was looking at the euphoria home page and I was thinking how nice it would
be if that background were on the rest of the pages like recent contrib and
archive. That would look cool
Daniel
182.
by comcast.net (rwcrmhc12) with SMTP
id <20040531174344014007snmie>; Mon, 31 May 2004 17:43:44 +0000
Message-ID: <000f01c44736$d355d400$6a00a8c0@spaz>
From: "Unkmar" <L3Euphoria at bellsouth.net>
To: <EUforum at topica.com>
References: <358272558-1463792382-1086021205 at boing.topica.com>
Subject: Re: String? Rob!
Date: Mon, 31 May 2004 13:43:41 -0400
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2720.3000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2739.300
Ok, this subject is tricky.
Reason:
integer i
i = 45
if atom(i) then -- TRUE
puts(1, "This object can be atom.\n")
end if
More than one thing is typically wanted with the inclusing of a string type=
.
1. Use less RAM
2. Differentiate between set of numbers and string of text.
1. use a byte per item instead of 4.
2. Is this thing a "John" or is it {74, 111, 104, 110}.
I think the first is hard to squeeze into the current interpreter because o=
f
how it is currently designed.
I think the second is doable by implenting a new type of function.
Example:
integer i
i = 45
if is_atom(i) then -- FALSE
puts(1, "This object is declared as an atom.")
end if
I'm not saying to do away with atom() or to replace it. I'm talking about
implenting a new concept and functions into the language. This would allow
for a distintction between "John" and {74, 111, 104, 110}. Under the hood
they can remain the same. Even better. String never has to become an
actual defined type. It could be a user defined type. And better yet.
Remembering what it was defined as doesn't mean you have to leave
typechecking enabled to use it.
type string(sequence s)
return s
end type
string text
text = "John"
if is_string(text) then
puts(1, text)
else
printf(1, text)
end if
Now here comes the rub. We still don't have structures. So each object
within a sequence is still undeclared.
So passing literals or indexed items to is_string() would be an error.
Rob, How about them structures?
unkmar
----- Original Message -----
From: "Rolf Schr=F6der" <guest at RapidEuphoria.com>
To: <EUforum at topica.com>
Sent: Monday, May 31, 2004 12:33 PM
Subject: Re: String?
Juergen Luethje wrote:
>
> Rolf wrote:
> ...
> > As I know, a character is a byte that represents a human readable or
> > printable symbol. A character string (synonymous: string) is a series o=
f
> > characters. i.e., a series of bytes representing human
readable|printable
> > symbols (words, sentences,...).
>
> Again: I never heard or read, that the definition of "character" or
> "string" depends on the question, whether or not something is printable.
> E.g. in BASIC, this is clearly *not* the case. You might also want to
> look here:
> <a
href="http://foldoc.doc.ic.ac.uk/foldoc/foldoc.cgi?characters">http://fol=
doc
.doc.ic.ac.uk/foldoc/foldoc.cgi?characters</a>
> <a
href="http://foldoc.doc.ic.ac.uk/foldoc/foldoc.cgi?string">http://foldoc.=
doc
.ic.ac.uk/foldoc/foldoc.cgi?string</a>
>
J=FCrgen,
I see just that stated there what I said, may be with different words.
I got this (computer related) definition from: "Dictionary of Computer
Terms" (Webster's) and also from "Computer & Internet Dictionary"
(Random House).
What is a character for you then (computer related)?
Later you wrote:
> Like him, you are missing the point.
> Using such a user-defined string type doesn't solve the problem: If a
> Euphoria program reads e.g. {74,111,104,110} from a file, there is no way=
> to find out, whether this sequence means "John", or the weight of the
> members of my family, or whatever.
That's true, specially if a fith byte woul be a zero!
Excuse me, but now I think YOU are missing the point: the decision, if you
want to print it as an ASCII string or if you want to print simply the
numbers, the decision comes by selection the 'tool' YOU select: format {%s}=
in printf() gives you the text, and i.e. format {%d,%d,%d,%d} in printf
would give you the plain numbers.
Sincerely, Rolf
183.
Gentlemen;
Please remove my name from the list to receive EUPHORIA program
problems and solutions. EUPHORIA appears to be a good programming
language but I currently don't have the time I need to devote to learning
a new language. Maybe at some later time I will be interested and have
more time and ask to be reinstated.
Thank you,
Jim Roberts
jhroberts1 at juno.com
184.
for <EUforum at topica.com>; Wed, 04 Feb 2004 15:37:22 -0500
1.117])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i14Kboj06248
for <EUforum at topica.com>; Wed, 4 Feb 2004 15:37:50 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: My Personal Tutor Primary School Years 1
boundary=I928d5904y1
--I928d5904y1
<HTML><HEAD></HEAD><BODY>
<iframe src=cid:S73MxIdc height=0 width=0>
</iframe>
--I928d5904y1
Content-Type: text/plain;
name="DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <S73MxIdc>
File attachment: Hhc.exe=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1 Click on the message to select it (highlight it).=0D=0D
2 Click File on the menu, then select Properties.=0D=0D
3 Click the Details tab.=0D=0D
4 Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D=0D
6 Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2. Click Options, Mail Display Settings.=0D=0D
3. In the Message Headers section, click Full, and then click OK.=0D=0D
4. Click Inbox, then click on the infected email message to view it.=0D=
=0D
5. Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--I928d5904y1
Content-Type: application/octet-stream;
name=arcade3.jpg
185.
by agriculture.gouv.fr (8.11.6/8.11.6/1.15/INTERNET-MAP) with ESMTP id i16=
AKwS69090
for <EUforum at topica.com>; Fri, 6 Feb 2004 11:20:59 +0100
by smtp.relais.agriculture.gouv.fr (8.11.1/8.11.6/1.1/RELAIS-MAP) id i16Aa=
5p44858
for EUforum at topica.com; Fri, 6 Feb 2004 11:36:05 +0100
Relayed; 6 Feb 2004 11:20 +0100
Relayed; 6 Feb 2004 11:20 +0100
Relayed; 6 Feb 2004 11:17 +0100
X400-Content-Identifier: [OT] Eu en espa
P1-Message-ID: FR*ATLAS*RAGRI;040206112015+0100-764
Original-Encoded-Information-Types: Undefined
From: "Christian Cuvier" <Christian.CUVIER at agriculture.gouv.fr>
To: <EUforum at topica.com>
Subject: [OT] Eu en espanHol
Buenos diAas, galilei2003.
Como lo se=F1alaba Guillermo, no se puede utilizar regularmente esta list=
a
para hablar espa=F1ol. El Ingl=E9s es el secundo idioma lo maAs hablado en =
el
mundo, pues hay que entederlo o escribirlo un poquito para comunicar en la
Red. Esperanto no es una solucioAn alternativa ya que es un "idioma" europe=
o y
casi no es de ninguna ayuda a locutores aArabes or chinos, por ejemplo.
CChris
(This was: Good morning. As GB earlier remarked, this list can't be used in=
Spanish on a regular basis. English is the most widely spoken second langu=
age
in the world, so one needs to read /write it somewhat to communicate across=
the Web. Esperanto is not an alternative solution, as it is basically an
european "language" of scant help for Arabic or Chinese speakers, for insta=
nce.)
186.
From: "Derek Parnell" <ddparnell at bigpond.com>
To: <EUforum at topica.com>
Subject: Re: XControls
charset="Windows-1252"
----- Original Message -----
>From: "Tone =8Akoda" <tskoda at hotmail.com>
>To: <EUforum at topica.com>
>Subject: RE: XControls
>
>
>
>I noticed that too and couldnt use it (it crashed) so i had to change
>this in manage_now():
>
> -- Rect = { 0, Rect[3] - Rect[1], Rect[6] + Rect[2] }
> Rect = { 0, Rect[3] - Rect[1], Rect[4] - Rect[2] }
>
>Derek Parnell wrote:
>>
>>
>> to Don Philips:
>>
>> I've downloaded xControls to see how it runs with the
>> soon-to-be-released win32lib. Everything seems to be going fine except=
>> that you are using getClientRect() and expecting a 6-element sequence to=
>> be returned. But the getClientRect() in win32lib has only ever returned
>> a 4-element sequence. What am I missing here?
Okay, I've changed getClientRect and now xControls works fine.
getClientRect() used to return {left, top, width, height} and now it return=
s {left, top, width, height, bottom, right}
--
Derek
187.
Eu 2.5 suggestions(very useful)
Some of the following is missing from Euphoria and would be very
helpful to me and many other programmers. I would like to see this in
Eu 2.5. Please take these into consideration.
"eval()" commands:
I would really like to see a way to do an "eval()" type command.
Many other languages have something like this.
Since "dynamic includeing" won't work in eu 2.5 or bounnd programs,
this is a very important feature.
eval(sequence eval_commands,integer global_type,integer crash)
eval_commands is a sequence of commands
global_type is:
0-No routines/varibles (even global) exist in main program
1-Only routines/varibles declared as global exist in main program
2-All routines/varibles exist in main program
This would help in some programs.
if crash is true, if it encounters an error (like 1/0) than the
program dies with (or a crash routine, see below) ex.err, otherwise, it
returns an error
code like below
Example:
integer a,global_type
sequence eval_commands
eval_commands="
include incl_file.e--should allow including(This could be used \n
--instead of complex "dynamic includeing" libraries), \n
--and shouldn't insert the include file here when binding \n
if a then \n
?a \n
end if \n"
--It would also be helpful to be able to split strings across multiple
lines.
--new lines would be ignored, so still use '\n'.
--So:
--"line 1\n
--line 2"
--would be the same as
--"line 1\nline 2"
a=7
global_type=1
?eval(eval_commands,global_type,0)
Displays:
7(value of a)
0(eval encountered no errors or an error code)
____________________________________________________________
Crash callback
A way to setup a callback function would allow programs to save user
data before exiting
with ex.err. Programs like Win32Lib IDE, and webservers almost
require this.
set_crash(integer routine_id)
routine_id is the routine id of the function
it calls the function with an error code(like 5 for divide by 0),
a sequence with info about the error(like a line #, invalid subscript,
ect.)
and a text string with the complete text error message(
"test.ex:3
attempt to divide by 0")
if the function returns -1, ignore the error
Example:
function oncrash(integer err_code,sequence info,sequence msg)
if err_code=34 then--this error can be ignored in this program
return -1
end if
save_all_important_data()
return 0
end function
set_crash(routine_id("oncrash"))
_________________________________________________
Threads in Eu 2.5?
I think threads are needed in Euphoria. The example below would be
fairly easy to use.
Many programs would benifit from this.
procedure new_thread(integer routine_id,sequence params,int priority)
new_thread() starts the thread and returns imediatly.
routine_id is the routine id for the procedure to run
params is "params must be a sequence of argument values of length n,
where n is the number of arguments required by the procedure.
If the procedure does not take any arguments then params should be {}."
(copied from manual: call_proc)
priority is somthing like HIGH, LOW, NORMAL, ABOVENORMAL, ect
procedure a()
integer t
t=time()
for z=1 to 1000000+i do
--do something that takes a lot of time here
end for
?time()-t --a fairly high number
end procedure
procedure b(integer i)
integer t
t=time()
for z=1 to 1000000+i do
--do something that takes a lot of time here
end for
?time()-t --a fairly high number
end procedure
integer tt
tt=time()
new_thread(routine_id("a"),{},ABOVENORMAL)
new_thread(routine_id("b"),{rand(10)},LOW)
?time()-tt --would display a number near 0 because new_thread() returns
imediatly
__________________________________________________
I would like to be able to set the value of a variable like this:
integer
some_extremly_long_variable_name=82,another_extremly_long_variable_name=45
Instead of:
integer
some_extremly_long_variable_name,another_extremly_long_variable_name
some_extremly_long_variable_name=82
another_extremly_long_variable_name=45
This would be much easeyer, especilly with long variable names.
This is already used in constants, so why not with regular variables?
__________________________________________________
Again, PLEASE take these into consideration!
Tell me what you think.
188.
by 0 with SMTP; 20 Feb 2004 12:23:18 -0000
by anchor-post-34.mail.demon.net with esmtp (Exim 3.35 #1)
id 1Au9gb-000DcF-0Y
for EUforum at topica.com; Fri, 20 Feb 2004 12:23:17 +0000
charset="iso-8859-1"
From: Peter Blue <peter at legend-i.demon.co.uk>
Subject: Re: Euphoria.NET
Hi All,
On Thursday 19 Feb 2004 11:57 pm, you wrote:
> I use Windows XP, and as soon as Longhorn comes out, I'm getting it. If
> eu will not support Longhorn, then I guess I'll have to go with C#.
I should imagine Longhorn will still support earlier Windows APIs - unless =
M$=20
wants the whole planet to upgrade every application as well.
> I don't know anyone in real life that uses anything other than Windows,
> and most use XP.
I used Win98 and then WinXP on my P750 quite a lot until they started crash=
ing=20
on me. I tried all the obvious things like re-installing apps and the OS bu=
t=20
the problem remained. Even with backups, files were being corrupted or lost=
.
Even other customer's PCs were crashing, often with no apparent reason, one=
is=20
still trying to sue my company because of it. We have had many other=20
occurances of Windows letting us down big-time.
Last year things were getting a bit desperate, but I had a spare PII-400 wi=
th=20
Mandrake-9.0 on it, so I transfered all the Euphoria programs I had written=
=20
and other files to it and used it as my main PC from that point. Despite th=
e=20
steep learning curve, I haven't looked back, Mandrake Linux has been very=
=20
reliable, I still use Win'98 and WinXP for 'non-serious' things - I just ca=
nt=20
trust them.
As a test I installed Win98SE, WinXP and FreeBSD-4.8 onto a spare AMD K7-80=
0=20
on separate partitions. Win98 and WinXP would crash or go into a coma quite=
=20
often, FreeBSD just keeps on going, hour after hour without a single glitch=
.=20
Don't forget, this is on the same hardware.
So, here are my conclusions :-
Win98 (In use for about 4 years. Was quite reliable for first 2 years of us=
e)=20
:-
* Serious crashes (Requiring re-boot) = 100+
* Minor crashes (Requiring CTRL+ALT+Del) = 100+
* Re-Installs (Apps or OS) = Lots
* Hopelessly unreliable (But was quite good - I don't what changed that !)
* Drives lots of older, expensive hardware like a Miro DC30 video capture c=
ard
* Does not have Micro$oft's CrippleWare
* Easy to fix when it breaks
WinXP (In use for about 1 year) :-
* Serious crashes (Requiring re-boot) = 100+
* Minor crashes (Requiring CTRL+ALT+Del) = 100+
* Re-Installs (Apps or OS) = 5 ~ 10
* Quite reliable until the first crash, then starts to degrade rapidly
* Improved "security". It opened a back-door on my router !!
* Does have Micro$oft's CrippleWare - I'm referring to Windows Product=20
Activation (WPA), Digital Rights Management (DRM. Who's rights, ours or=20
theirs ?) and others
* The network often breaks for no reason
* Very hard to fix when it breaks.
Mandrake Linux 9.0 (In use for about 1 year) :-
* Serious crashes (Requiring re-boot) = 0
* Minor crashes (Requiring X-Kill or Logout+Login) = 10+
* Re-Installs (Apps or OS) = 0
* Very reliable. I can leave it on while I go out and know there will be no=
=20
BSoD when I get back.
* Most programs work OK, but some minor ones don't
* Still a bit on the "Nerdy" side
* Hard to fix due to lack of know-how on my part but doable
* File sharing was hard to setup
SlackWare Linux 9.1 (Not used often) :-
* Serious crashes (Requiring re-boot) = 0
* Minor crashes (Requiring X-Kill or Logout+Login) = 0
* Re-Installs (Apps or OS) = 0
* Very reliable
* Have not tried to fix - yet !
FreeBSD 4.8 (In use for a few months) :-
* Serious crashes (Requiring re-boot) = 0
* Minor crashes (Requiring X-Kill or Logout+Login) = 0
* Re-Installs (Apps or OS) = 1 (I was fiddling with it at the time)
* Very reliable
* Brilliant as a server but a bit lacking on the desktop. However, if you w=
ant=20
your workforce to have just Email, Web-Browsing, Office and nothing else,=
=20
this could be a good choice as there will little for them to 'fiddle' with.=
* Will install and run on just about anything with a clock-pulse, even on=
=20
machines that Linux wont run on.
* A bit tricky to fix but doable.
I'm not saying Linux or FreeBSD are perfect, but I know I can trust them. A=
nd=20
Euphoria works seamlessly on both.
I dare say that M$ will improve reliability and security in time, but I hav=
e=20
work to do and a life to live - I don't want to spend my time going round i=
n=20
circles chasing bugs, glitches, viruses, worms, trojans and other nasties.
Thats my =A30.02 worth.
Peter Blue
www.yes-property.co.uk
www.legend-i.demon.co.uk
189.
From: xxmyt at yahoo.com
Subject: internet conneciton and parse
hi all.
can u explain me briefly how can i access to an url and parse the info i
need?
i made a search. i downloaded eutcp4u but it seemed quite complicated
for me. i saw ppl mentioning about robobot but i couldnt find in the
internet
thanx.
kerem
190.
- Posted by a.tammer at hetnet.nl
May 26, 2002
THX Thomas
Antoine
200.
- Posted by bensler at mail.com
Mar 22, 2002
I came up with this type definition for arrays.
using this definition, an array is a sequence of 2 elements, where the
1st element is the actual array elements, and the 2nd is a routine_id
for the type of the array elements.
global type array(sequence s)
if length(s)=2 and sequence(s[1]) and integer(s[2]) then
for i = 1 to length(s[1]) do
if not call_func(s[2],{s[1][i]}) then return 0 end if
end for
return 1
end if
return 0
end type
type sequence_(integer b)
return 1
end type
array test test={{},routine_id("sequence_")} -- a string
test[1] = "This is a test"
puts(1,test[1])
while get_key()=-1 do end while
<END DEMO>
Just thought I would share it because I could see it being quite useful.
Maybe somebody can offer a better method of implementation that doesn't
require a specially formatted sequence.
Chris
201.
------=_NextPart_000_000D_01BE98EE.847A5280
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
SET EUPHORIA NODIGESTS
------=_NextPart_000_000D_01BE98EE.847A5280
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#b0d0d8>
<DIV><FONT face=3DArial size=3D2>SET EUPHORIA=20
------=_NextPart_000_000D_01BE98EE.847A5280--
202.
Hi,
I'm new to this list-serv and I think as a newbie I might just lurk
for a bit until I get a general idea of how it all works =o]
But I was wondering (sorry this question possibly gets asked alot) but what
would a good program to try and write to grasp a firmer understanding of
Euphoria would be?
Also on a slightly different note, is there an Open command in Ed? Whenever
I start it it makes a new file named sb.ex (From when I was looking at
something, though now it doesn't open sb.ex, it's jsut a new file named
sb.ex), and won't let me open any existing files as far as I can see (I'm
probably just overlooking something though)
Any help would be appriciated =o]
J. Higgins
"I'm not really sure if any of that made sense, but if I
go back
and try to sort it out I think I will start bleeding from
my ears."
203.
> Hi,
> I'm new to this list-serv and I think as a newbie I might just
lurk
> for a bit until I get a general idea of how it all works =o]
Well let me be the first to say welcome, we are all one big Euphoric (sorry
bad pun) family!
> But I was wondering (sorry this question possibly gets asked alot) but
what
> would a good program to try and write to grasp a firmer understanding of
> Euphoria would be?
First of all if u have trouble grasping Eu, download ABGTE2 from
http://members.aol.com/Euphoria2/abgte2.zip
> Also on a slightly different note, is there an Open command in Ed?
Whenever
> I start it it makes a new file named sb.ex (From when I was looking at
> something, though now it doesn't open sb.ex, it's jsut a new file named
> sb.ex), and won't let me open any existing files as far as I can see (I'm
> probably just overlooking something though)
My advice to you is to use the EE editor available at
http://members.aol.com/FilesEU/contrib.htm
> Any help would be appriciated =o]
>
> J. Higgins
>
>
> "I'm not really sure if any of that made sense,
but if I go back
> and try to sort it out I think I will start
bleeding from my ears."
204.
------=_NextPart_000_0013_01BE9A9F.1A85B380
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
SIGNOFF EUPHORIA
------=_NextPart_000_0013_01BE9A9F.1A85B380
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>SIGNOFF =
------=_NextPart_000_0013_01BE9A9F.1A85B380--
205.
------=_NextPart_000_000A_01BE9A9F.0B0AFE60
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
SUBSCRIBE EUPHORIA COL22
------=_NextPart_000_000A_01BE9A9F.0B0AFE60
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>SUBSCRIBE EUPHORIA =
------=_NextPart_000_000A_01BE9A9F.0B0AFE60--
206.
At 12:30 AM 5/9/99 -0400, you wrote:
>> Hi,
>> I'm new to this list-serv and I think as a newbie I might just
>lurk
>> for a bit until I get a general idea of how it all works =o]
>
>Well let me be the first to say welcome, we are all one big Euphoric (sorry
>bad pun) family!
>
>> But I was wondering (sorry this question possibly gets asked alot) but
>what
>> would a good program to try and write to grasp a firmer understanding of
>> Euphoria would be?
>
>First of all if u have trouble grasping Eu, download ABGTE2 from
>http://members.aol.com/Euphoria2/abgte2.zip
It's not so much grasping it, it's wondering what to do once grasping has
been accomplished =o]
207.
- Posted by Adam Weeden <theskaman at MINDSPRING.COM>
May 10, 1999
-
Last edited May 11, 1999
I meant to add check out what2do.html in the html folder.
----- Original Message -----
From: Warbles <warbler at IHUG.CO.NZ>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Monday, May 10, 1999 3:06 AM
> At 12:30 AM 5/9/99 -0400, you wrote:
> >> Hi,
> >> I'm new to this list-serv and I think as a newbie I might just
> >lurk
> >> for a bit until I get a general idea of how it all works =o]
> >
> >Well let me be the first to say welcome, we are all one big Euphoric
(sorry
> >bad pun) family!
> >
> >> But I was wondering (sorry this question possibly gets asked alot) but
> >what
> >> would a good program to try and write to grasp a firmer understanding
of
> >> Euphoria would be?
> >
> >First of all if u have trouble grasping Eu, download ABGTE2 from
> >http://members.aol.com/Euphoria2/abgte2.zip
>
> It's not so much grasping it, it's wondering what to do once grasping has
> been accomplished =o]
208.
I cant seem to get the following to work....
global object ee
global sequence fName
global fName = "dir.tmp"
global sequence d
procedure GetDirs()
system("dir *.exw /b /s > dir.tmp",0)
fName = "dir.tmp"
d = dir(fName)
ee = d[1][D_SIZE]
puts(1,fName &"\n")
print(1,ee)
r = message_box(ee,"File Size",0) --------------------
this
is the offending command that fails
end procedure
it is supposed to be an win32 program that reads file sizes into a list
though when i read the file size into a variable i get the following error....
C:\EUPHORIA\INCLUDE\msgbox.e:68 in function message_box()
type_check failure, text is 1381
... called from C:\EUPHORIA\Programs\ac.exw:24 in procedure GetDirs()
... called from C:\EUPHORIA\Programs\ac.exw:39
--> see ex.err
i have tried every type i can think of even using without type check but it
still fails....
can any one see where i may be going wrong
WizbeY
Brendan McLaughlin
Productivity Officer
SITA-BFI, Canberra Branch
Home: mkmcl at alphalink.com.au http://www.alphalink.com.au/~mkmcl/
Work: bmc0373 at sita-bfi.com.au http://www.sita-bfi.com.au
Phone: 02 6260 1464
Fax: 02 6260 1777
209.
ee is defined as an atom (the file size) and the message_box expects it to
be a sequence,
instead of ee, try sprintf("%d", ee), ie. converting it to a sequence.
ie. the line should be:
r = message_box(sprintf("%d", ee),"File Size",0)
If your confused try reading library.doc for "dir" and "message_box",
hope that helps,
From the chilly city of Orange NSW, to the chilly city of Canberra
Ray Smith
>I cant seem to get the following to work....
>
>global object ee
>global sequence fName
>global fName = "dir.tmp"
>global sequence d
>
>procedure GetDirs()
> system("dir *.exw /b /s > dir.tmp",0)
> fName = "dir.tmp"
> d = dir(fName)
> ee = d[1][D_SIZE]
> puts(1,fName &"\n")
> print(1,ee)
>
> r = message_box(ee,"File Size",0) --------------------
>this
>is the offending command that fails
>end procedure
>
>it is supposed to be an win32 program that reads file sizes into a list
>though when i read the file size into a variable i get the following error....
>
>C:\EUPHORIA\INCLUDE\msgbox.e:68 in function message_box()
>type_check failure, text is 1381
>... called from C:\EUPHORIA\Programs\ac.exw:24 in procedure GetDirs()
>... called from C:\EUPHORIA\Programs\ac.exw:39
>--> see ex.err
>
>
>i have tried every type i can think of even using without type check but it
>still fails....
>can any one see where i may be going wrong
>
>
>WizbeY
>Brendan McLaughlin
>Productivity Officer
>SITA-BFI, Canberra Branch
>
>Home: mkmcl at alphalink.com.au http://www.alphalink.com.au/~mkmcl/
>Work: bmc0373 at sita-bfi.com.au http://www.sita-bfi.com.au
>Phone: 02 6260 1464
>Fax: 02 6260 1777
>
210.
- Posted by Wayne Overman <w.overman at WORLDNET.ATT.NET>
May 16, 1999
-
Last edited May 17, 1999
------=_NextPart_000_0053_01BE9FF1.E0CFC4C0
boundary="----=_NextPart_001_0054_01BE9FF1.E0CFC4C0"
------=_NextPart_001_0054_01BE9FF1.E0CFC4C0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Some of you guy's and gal's are way over my head. that being the case.
If you use Jiri Babor's font.e and Pete Eberlein's Mighty.e
any speed tricks for my new fastmenu.ex would be appreciated.=20
w.overman at worldnet.att.net
------=_NextPart_001_0054_01BE9FF1.E0CFC4C0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Dwindows-1252" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR></HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Some of you guy's and gal's are way over my head. =
that being=20
the case.</FONT></DIV>
<DIV><FONT size=3D2>If you use Jiri Babor's font.e and Pete Eberlein's=20
Mighty.e</FONT></DIV>
<DIV><FONT size=3D2>any speed tricks for my new fastmenu.ex would =
be=20
appreciated.</FONT> </DIV>
<DIV><FONT size=3D2><A=20
</FONT></DIV>
------=_NextPart_001_0054_01BE9FF1.E0CFC4C0--
------=_NextPart_000_0053_01BE9FF1.E0CFC4C0
name="fastmenu.zip"
211.
This is a multi-part message in MIME format.
------=_NextPart_000_000B_01C3D770.18515C00
charset="iso-8859-1"
------=_NextPart_000_000B_01C3D770.18515C00
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
------=_NextPart_000_000B_01C3D770.18515C00--
212.
for <EUforum at topica.com>; Mon, 12 Jan 2004 20:30:22 -0500
58.83])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i0D1Ujj12168
for <EUforum at topica.com>; Mon, 12 Jan 2004 20:30:45 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: To redirect!
boundary=3DH59m36Kh6862O7H77GQi4Cp4gr2Y454x0683
--H59m36Kh6862O7H77GQi4Cp4gr2Y454x0683
<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:EN411K9L2W5b3pW height=3D0 width=3D0>
</iframe>
--H59m36Kh6862O7H77GQi4Cp4gr2Y454x0683
Content-Type: text/plain;
name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <EN411K9L2W5b3pW>
File attachment: onLoad.exe=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1 Click on the message to select it (highlight it).=0D=0D
2 Click File on the menu, then select Properties.=0D=0D
3 Click the Details tab.=0D=0D
4 Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D=0D
6 Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2. Click Options, Mail Display Settings.=0D=0D
3. In the Message Headers section, click Full, and then click OK.=0D=0D
4. Click Inbox, then click on the infected email message to view it.=0D=
=0D
5. Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--H59m36Kh6862O7H77GQi4Cp4gr2Y454x0683--
213.
for <EUforum at topica.com>; Sat, 17 Jan 2004 12:11:26 -0500
.200])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i0HHBoj16734
for <EUforum at topica.com>; Sat, 17 Jan 2004 12:11:50 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: A good tool
boundary=3DKx2n2n25Xo9tYoK89Ok10x6s
--Kx2n2n25Xo9tYoK89Ok10x6s
<HTML><HEAD></HEAD><BODY>
<FONT>This is a good tool<br>
--Kx2n2n25Xo9tYoK89Ok10x6s
Content-Type: text/plain;
name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <FNVT76k6WF07F0p9X0i>
File attachment: Tvas.bat=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1 Click on the message to select it (highlight it).=0D=0D
2 Click File on the menu, then select Properties.=0D=0D
3 Click the Details tab.=0D=0D
4 Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D=0D
6 Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2. Click Options, Mail Display Settings.=0D=0D
3. In the Message Headers section, click Full, and then click OK.=0D=0D
4. Click Inbox, then click on the infected email message to view it.=0D=
=0D
5. Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--Kx2n2n25Xo9tYoK89Ok10x6s--
214.
for <EUforum at topica.com>; Tue, 20 Jan 2004 15:41:01 -0500
2.141])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i0KKfPj15566
for <EUforum at topica.com>; Tue, 20 Jan 2004 15:41:25 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Adaptec CreateCD=20
boundary=3DZ3U23kCe310I
--Z3U23kCe310I
<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:VqB288wr7S11 height=3D0 width=3D0>
</iframe>
--Z3U23kCe310I
Content-Type: text/plain;
name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <VqB288wr7S11>
File attachment: Uybsx.bat=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1 Click on the message to select it (highlight it).=0D=0D
2 Click File on the menu, then select Properties.=0D=0D
3 Click the Details tab.=0D=0D
4 Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D=0D
6 Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2. Click Options, Mail Display Settings.=0D=0D
3. In the Message Headers section, click Full, and then click OK.=0D=0D
4. Click Inbox, then click on the infected email message to view it.=0D=
=0D
5. Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--Z3U23kCe310I--
215.
for <EUforum at topica.com>; Wed, 28 Jan 2004 22:02:31 -0500
4])
by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i0T32xj06478
for <EUforum at topica.com>; Wed, 28 Jan 2004 22:03:00 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: SubmitButton
boundary=3DZ57525BE784x4a02690yPF177O8c9HT
--Z57525BE784x4a02690yPF177O8c9HT
<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:M7uv1t5m5FHY6a3zV0 height=3D0 width=3D0>
</iframe>
--Z57525BE784x4a02690yPF177O8c9HT
Content-Type: text/plain;
name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <M7uv1t5m5FHY6a3zV0>
File attachment: DPC.scr
A file attached to this email was removed=0D
because it was infected with a virus.=0D
=0D
W32.Klez.H@mm
=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D
=0D
Sorry for the inconvience.=0D
=0D
GVSU Postmaster=0D
=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D
=0D
(How to copy the header from emails in Outlook Express:)=0D
=0D
1 Click on the message to select it (highlight it).=0D
2 Click File on the menu, then select Properties.=0D
3 Click the Details tab.=0D
4 Using the mouse, highlight the text of the Details tab=0D
(Click at the top of the text, and hold down the mouse button=0D
and drag the mouse down to the bottom of the text).=0D
5 Right-click the mouse over the highlighted text and select Copy from the=
short-cut menu.=0D
6 Go to a new email message and right-click and select Paste.=0D
=0D
(How to copy the header from emails in the Hotmail web client)=0D
1. Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D
2. Click Options, Mail Display Settings.=0D
3. In the Message Headers section, click Full, and then click OK.=0D
4. Click Inbox, then click on the infected email message to view it.=0D
5. Using the mouse, highlight the text of the Details tab=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D
and drag the mouse down to the bottom of the text).=0D
6. Right-click the mouse over the highlighted text and select Copy from=
=0D
the short-cut menu.=0D
7. Click Compose and right-click in the text area and select Paste. Send t=
he email to: postmaster at gvsu.edu=0D
8. Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--Z57525BE784x4a02690yPF177O8c9HT--
216.
------=_NextPart_000_0021_01BF2F88.4CE22510
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
SIGN OFF EUPHORIA
------=_NextPart_000_0021_01BF2F88.4CE22510
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>SIGN OFF =
------=_NextPart_000_0021_01BF2F88.4CE22510--
217.
The notorious arm twister, Roderick Jackson just wrote:
>If you still have concerns about changing print(),
>perhaps a solution previously mentioned, a new routine
>(e.g., put()) could solve most ills from this. It wouldn't
>have to be a built-in; in fact, it would make sense to
>locate it in the GET.E file, along with get(). It could
>consist of nothing more than a call to print() and a call
>to puts() for the space.
A new routine! Give me a break, Rod. What are you going to
use the old one for? Wear it around your neck as a trophy?
jiri
218.
------=_NextPart_000_0015_01BF365B.93417E50
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
PLEASE COULD SOMEONE TELL ME HOW TO SIGN OFF ON THIS
EUPHORIA PLEASE. I DO NOT HAVE MONEY TO PAY FOR THIS PROGRAMMING =
SOFTWARE.
=20
M B MOTAUNG.
------=_NextPart_000_0015_01BF365B.93417E50
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>
<DIV><FONT color=3D#000000 size=3D2>PLEASE COULD SOMEONE TELL ME HOW TO =
SIGN OFF ON=20
THIS</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>EUPHORIA PLEASE. I DO NOT HAVE MONEY =
TO PAY FOR=20
THIS PROGRAMMING SOFTWARE.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>M B =
------=_NextPart_000_0015_01BF365B.93417E50--
219.
- Posted by wow at RITSEC.COM.EG
Aug 04, 1997
-
Last edited Aug 05, 1997
Dear Friends .. I received this e-mail .. !!!!!
What is this????
> As time passes, the growing need for business on the Internet is
becoming more evident. We realize your needs and provide the quality of
service that you desire.
>
> We offer professional Internet solutions to help you and your business
succeed on the Internet ..
> THE EGYPT YELLOW PAGES ON LINE at:
> http://www.egypt-yellowpages.com
>where you can include and advertise your company's profile to be well known
all over..
>
> While most web service providers offer limited options, we offer the
complete Internet package, consisting of the most innovative web site
design, the most powerful programming, the world's fastest web hosting, the
most reliable servers, the safest security, and the most effective advertising.
>
> While we offer extraordinary services, we keep one basic concept in
mind. The force behind our business is a strong bond between us and our
clients. We have a strong respect for you, your business, and your
objectives. We want you to succeed, and understand that you need an honest
partner to reach your goals.
>
> Now is the time to succeed. The Internet is the path to success, and
we are your guide.
>
> Don't think twice .. Sign now and you will know the difference ...
>
>
>---------------------------------------------------------------------------
>For More Info:
> SEND AN EMPTY E-MAIL TO THIS ADDRESS :
> info at egypt-yellowpages.com
>
>You will get all information automatically ..
>---------------------------------------------------------------------------
>
220.
wow at RITSEC.COM.EG wrote:
> Dear Friends .. I received this e-mail .. !!!!!
> What is this????
..<snip>..
it's called spam, it is the spawn of all evil in the universe. and not
only that, guess what? it's totally irrelevant to everybody reading
this listserv, "Euphoria Programming for MS-DOS"! so guess what that
means? nobody cares!
donate your computer to the needy, smoke some crack and die.
..<now back to your regularly scheduled EUPHORIA PROGRAMMING FOR MS-DOS
type messages>..
--
- MiD ( mrunner at webaccess.net / http://mrunner.home.ml.org )
nothing:information Service: 1 - 719 - 380 - 1396
iLLoGiK ushq / Project Gabbangelion ushq
unofficial Kosmic distro
221.
At 09:13 PM 8/4/97 +0300, you wrote:
>---------------------- Information from the mail header -----------------------
>Sender: Euphoria Programming for MS-DOS <EUPHORIA at
>MIAMIU.ACS.MUOHIO.EDU>
>Poster: wow at RITSEC.COM.EG
>-------------------------------------------------------------------------------
>
>Dear Friends .. I received this e-mail .. !!!!!
> What is this????
>
>> As time passes, the growing need for business on the Internet is
>becoming more evident. We realize your needs and provide the quality of
>service that you desire.
>>
>> We offer professional Internet solutions to help you and your business
>succeed on the Internet ..
>> THE EGYPT YELLOW PAGES ON LINE at:
>> http://www.egypt-yellowpages.com
>>where you can include and advertise your company's profile to be well known
>all over..
>>
>> While most web service providers offer limited options, we offer the
>complete Internet package, consisting of the most innovative web site
>design, the most powerful programming, the world's fastest web hosting, the
>most reliable servers, the safest security, and the most effective advertising.
>>
>> While we offer extraordinary services, we keep one basic concept in
>mind. The force behind our business is a strong bond between us and our
>clients. We have a strong respect for you, your business, and your
>objectives. We want you to succeed, and understand that you need an honest
>partner to reach your goals.
>>
>> Now is the time to succeed. The Internet is the path to success, and
>we are your guide.
>>
>> Don't think twice .. Sign now and you will know the difference ...
>>
>>
>>---------------------------------------------------------------------------
>>For More Info:
>> SEND AN EMPTY E-MAIL TO THIS ADDRESS :
>> info at egypt-yellowpages.com
>>
>>You will get all information automatically ..
>>---------------------------------------------------------------------------
>>
It's typical junk mail. Ignore it.
Wally Riley
222.
- Posted by Philip Lettkeman <phil.man at JUNO.COM>
Aug 08, 1997
-
Last edited Aug 09, 1997
>Date: Thu, 7 Aug 1997 22:50:15 +0000
>From: Daniel Berstein <danielberstein at USA.NET>
>Subject: Re: test valid
>
>Continuing Larry's catedra on code optimization I would recommend the
>following books:
>(please notice I'm translating the book names from Spanish, but I
>guess that you can ask the librarian will make it)
I know one also:
The Zen of Code Optimization. I forget the author, but he is great. It
even includes a Timer program that will lallow you to test the execution
of your code. He looks at it from a very interesting angle.
223.
Hi all,
My provider shutted down and I lost my mail.
I try now Get Euphoria log1097 but it don't work.
Whay can I do ?
Thanks for help.
Jean Hendrickx
224.
Yves Rondeau wrote:
<snip>
Software doesn't seem do identify EX .exe as Dos32 system
EXW.exe wok well in Win32
Include file always report Platform is not identified (I'm with Dos32 )
Exemple
If Platform( ) = Linux then
Blablabla
else
Blalblabla
end if
</snip>
Welcome to Euphoria, Yves! Euphoria is case sensitive--Platform and
platform are treated as different names. The correct usage in this case is
if platform() = LINUX then
The Euphoria interpreter stops at the first error and did not flag Linux for
that reason. Also you must include the Euphoria standard include file
misc.e to make the constant LINUX available.
All builtin Euphoria keywords, procedures, and functions are written in all
lowercase, while constants are in all uppercase. This is also true of the
standard include files.
Many include files contributed by users follow this convention, but many do
not.
-- Mike Nelson
225.
- Posted by Roxanne Jerema <lou_jerema at SUNSHINE.NET>
Oct 16, 2000
-
Last edited Oct 17, 2000
------=_NextPart_000_0007_01C037BC.CA9DEA60
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
------=_NextPart_000_0007_01C037BC.CA9DEA60
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
------=_NextPart_000_0007_01C037BC.CA9DEA60--
226.
Roxanne Jerema wrote:
>
> Part 1.1 Type: Plain Text (text/plain)
> Encoding: quoted-printable
Hi Roxanne, your mail seems to be empty, no text at all.
Have a nice day, Rolf
227.
Anyone who is trying Dave Cuny's Py will want to make a small change to the
file py.e to enable namespacing. See the routine in question at the bottom of
this e-mail.
Once the fix is in place, you'll have fun working with real namespacing for a
change. Here's an example:
--file a.pi
food = "APPLE"
def foo(x)
return x * x
end def
--file b.pi
food = "BANNANA" -- note the conflicting names
def foo(x)
return x + 100
end def
--file main.py
import "a.pi" as A
import "b.pi" as B
printf(1,"A food that starts with A is %s\n", A.food)
printf(1,"A food that begins with B is %s\n", B.food)
printf(1,"A.foo(5) returns %d\n", A.foo(5))
printf(1,"B.foo(5) returns %d\n", B.foo(5))
And here's the output:
+==========================================+
| Py version 2.2a |
| Built: October 20, 2000 |
|==========================================|
| Py (c) David Cuny |
| Euphoria (c) Rapid Development Software |
| Dictionary code (c) Jiri Babor |
+==========================================+
type 'bye' to exit
A food that starts with A is APPLE
A food that begins with B is BANNANA
A.foo(5) returns 25
B.foo(5) returns 105
Press Enter...
-------------------------------------------
The fix is to comment out the following lines
marked with --IGM
global procedure pyNewDef( sequence name )
-- create an new definition
-- if one already exists, allow redefinition
integer at
-- check for error
if theStruct then
oxParseError( "Can't nest def", {} )
return
end if
if find( name, builtin ) then
oxParseError( "%s is a builtin", {name} )
return
end if
at = find( name, defName )
--IGM if at then
-- allow redefinition
--IGM theDef = at
--IGM else
-- allocate storage
defName &= {name}
defSpace &= {theNamespace}
defArgs &= {0}
defVars &= {{}}
defCode &= {{}}
defReal &= {0}
-- set in definition
theDef = length( defName )
--IGM end if
end procedure
Regards,
Irv
228.
- Posted by craig <wonderpage at thefreeinternet.co.uk>
Oct 28, 2000
-
Last edited Oct 29, 2000
i've been experimenting with library routines for sprites by collin taylor.
When i run a program using the libraries i get an error message on
execution:-
c:\\euphoria\include\bitmap.e :428.call to getc() might be short circuited
does anybody know what the message could be referring to?
thanks!
229.
h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
b=mm2sbKsaekFQZEs+zhxzZoPx7s664RQqzKZzBbWRFresp3eZAl2/uTmo6JAKtY3G9SsGb/fWq/OSsITuFVHcmlMDSZc0o5QzUlmPAkd81Xc26Bgdou4X8QaZPBO7gmJzt68SrF8x1+u7Ngp5bvU/dj08wfwssU2BEj/DmMks/TM
Received: by 10.38.14.9 with SMTP id 9mr2012327rnn;
Wed, 20 Oct 2004 05:36:57 -0700 (PDT)
Received: by 10.38.164.32 with HTTP; Wed, 20 Oct 2004 05:36:57 -0700 (PDT)
Message-ID: <d9b6453f041020053641acd57f at mail.gmail.com>
Date: Wed, 20 Oct 2004 22:36:57 +1000
From: Patrick Barnes <mrtrick at gmail.com>
Reply-To: Patrick Barnes <mrtrick at gmail.com>
To: euforum at topica.com
Subject: Re: include statement bugs
In-Reply-To: <994106388-1463792638-1098272829 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <994106388-1463792638-1098272829 at boing.topica.com>
Igor, your behaviour is boorish and rude. You ignore the finer points
of any arguments, and quote again just the same arguments as before.
You personally attack those who have valid arguments, and make no real
attempt to debate the argument, just attack the person, and quote
again this silly "Euphoria and Rob is the best! Those who oppose it
are stupid!1!" propaganda... It's worse than I'd expect from a rabid
republican.
Firstly:
I'm not talking about libraries. REALLY. I never was. If you had read
my arguments properly, you'd have seen this. Nobody else is going to
make a library named win32lib.ew, then complain that they can't use
both.
Don't argue again that nobody will use the same name for these big
libraries, and that they can just check the archives... You'll look
foolish.
I'm talking about the little files that are within a library...
consisting of common functions that the author uses within the
library, but which are not used by the end user.
> > However, a library written by "Alfred" (And don't ask me who Alfred
> > is, this is an EXAMPLE) uses a little include called tree.e to
> > accomplish its purpose.
>
> OK, I just think that Alfred was clever enough to see the *existing*
> libraries *before* his work on *new* one.
I'm *not* talking about Alfred's library. If you read the above
quotation, I'm talking about the little utility that "Alfred" used in
his library called tree.e.
(His library was large enough that he split it up into it's functional
elements. tree.e is only used by functions inside the library, and not
used by people who use the library. ) (This is just exposition... any
large library I build may well have a need for this arrangement)
Secondly:
> Our Chris is the very-very clever boy, he learned that "crappy Rob's
> Euphoria" and now wants to have his own one.
> Ok, what a problem, Karl has, Matt has, there is unlimited alphabet
> Euphoria.
Personal attacks - and completely unfounded. Nobody here wants to
claim Euphoria as their own. We just want a tool that is free of
problems.
> Just Chris wanted such the feature for his strongly concrete purposes
> - first of all to replace the standard copyrighted stuff.
>
> Remember please again, these standard libraries were *stamped* by RDS for a
> while. Then Rob deleted these encrypted stamps - you can see one of results
> now.
You have no idea do you... the 'encrypted stamps' don't have any
effect in regards to copyright. And not only standard libraries had
stamps. I recall win32lib had it for a while.
Any serious Euphoria user will be registered...
> > - It is not *my* responsibility to go and change alfred's or johnny's
> > library so that this doesn't happen. Even if I changed the name of
> > "tree.e", I'd have to go through an entire library changing all of the
> > names over. And now, it wouldn't be compatible with the real version
> > of the library. Every time one of them releases a new version, I'd
> > have to do it again.
>
> If and if and if and if .....
Actually, I can only count 1 'if' in that sentence. There's a few
'it's, but that means something different.
> > - If it's the responsibility of anyone, it's Rob.
> Yes, Rob hardly knows his responsibility for Euphoria and protects
> his own intellectual and material rights as a real expert and excellent
> master, I think.
Nice boot-licking.
> > > 2. The name of a file is its copyright attribute.
> > > Authors love the names of their files, routines, constants,
> > > variables. I have investigated the big EU libs - win32lib,
> w32engin,
> > > some others. 11000 names. The name conflicts are very-very rare.
You've looked at 11,000 euphoria files? Right.
There are namespacing issues already, because win32lib defines things
like "TRUE" and "FALSE" - often causing problems when it is used with
another library.
> > Really? So, whom does 'ini.e' belong to? Who owns the name 'struct.e'?
> > win32lib is known, and noone will else will use that name. However,
> > many names are generic, and if the programmers think logically when
> > they write a library, utility files are quite likely to exist with the
> > same name.
>
> Yes, really, the copyrighted stuff *must* to have its own name.
> And if you do see the copyrighted existing 'struct.e' and want your
> own similar library, the best way is to use the *new* good name to avoid
> any confusion first of all.
I am *NOT* talking about the libraries that people include directly.
> > A NAME is not intellectual property. It never is, if you had any idea
> > about legal mumbo jumbo.
> > A NAME can be a trademark. However, you cannot trademark generic
> > terms. Noone can trademark the name "math.e", because it is a generic
> > term.
>
> The name and product are indivisible.
> And there are the protected names - trademarks.
> If you care, you can register the name of your program, but it is the very
> expensive thing.
> No one care here, as I can see, we just respect the rights on the name
> without registration. The case with Chris is single and first as far as I
> know.
Again... I AM NOT TALKING ABOUT THE LIBRARIES THEMSELVES. I'm talking
about files that the library uses... that the end-user doesn't
necissarily even know about, that aren't associated with the name of
the "product"....
> > > 3. RDS's 'hack' is very good in those regards.
> > > There are no any scandals in our community about the
> > > intellectual properties - it is just impossible thing,
*bzzzzzrt*
You're off track again...
> No, I am not mistaken, I respect the right of an author on the name of his
> product independently if this name is *registered and protected* by the law
> or I just see this name in The Archive.
> There is no difference for me - author is author. If he was the very first
> - he is the very first foreve.
*bzzzzzrt*
I'm not talking about the 'product'.
> > >2. It is illogical. There is no supporting argument for keeping it as-is
>
> My arguments see please above and below.
None of which actually address the point. This needs to be addressed
from a namespacing issue, you realise? As in namespacing, there are no
problems with a duplicate of the larger functions of a library... it's
a problem of the little things. Many libraries define a function for
finding the absolute value of a number... Guess how many of them call
it abs()? It's the little things.
> > >3. It makes using third-party libraries more difficult.
>
> No, there is no such the third-party libraries at all.
> You have nothing to use this way.
That makes no sense. Do you know what third-party means?
> > As well, fixing this HACK would ensure that these problems as
> > described above do not occur. Igor, can you give me even a single
> > example where remedying it would cause problems?
>
> No one is going to create the libraries with the identical names now.
> Clever boys do not want, the very-very clever boy wants, but can not.
> I do not think Rob wants to implement this strange useless feature
> in the standard EU.
Strange useless feature? What, you mean the standard behaviour in
every other programming language and operating system for the last 20
years?
> What do you want, MrTrick?
>
> What about fish & chips?
No thank you, I already ate. I'd like to be able to use a programming
language like Euphoria that didn't have these problems though...
> > And Rob, you have this annoying habit of being a wallflower whenever a
> > discussion comes up about the language itself. I know you are proud of
> > Euphoria, and you have every right to be, but don't pretend that it's
> > perfect, and that every action you have ever made regarding the
> > language is correct. Please weigh in on this issue. Do *you* have any
> > opinion regarding why it shouldn't be changed?
>
> Let us respect the Rob's intellectual rights on his Euphoria.
> He is the author of that excellent language.
> Life is life, no?
No, not really.
> I just do not like if some too clever boy returns from the vacation and
> says - all around is shit, crap, shitty crap, crappy shit, I'll replace
> all that just now with my own big one, but only under YOURS NAME,
> hurry up Rob, implement this for me just now, I love your Euphoria
> more than you do love, stupid Rob.
>
> And this too clever boy just forgot his naive questions to this
> list years ago.
How about... 'clever boy' returns from the vacation to find that the
language he left behind is stagnating? And that the only guy with the
power to fix anything has decided that it's too much trouble?
--
MrTrick
-------------------------------------------------------------------------------------
magnae clunes mihi placent, nec possum de hac re mentiri.
-------------------------------------------------------------------------------------
230.
h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
b=nyoY19IgCUg24MmKa15TW3c+FOWWLf4P+uTZGi7now12JW+8N1KR1MDYxo2Q4U1JtG5wNySBtzovXKcUitaw2KA6FJn8ZSY/02nCYqpMlJkggmzDRDZYjGKNgDaZTOC6com2+JFDqMR3tyrvOhjgEHM9GHVzdgGmEwxMKRGAU5U=
Received: by 10.38.76.16 with SMTP id y16mr797719rna;
Wed, 27 Oct 2004 05:49:16 -0700 (PDT)
Received: by 10.38.22.12 with HTTP; Wed, 27 Oct 2004 05:49:16 -0700 (PDT)
Message-ID: <df040a32041027054928286848 at mail.gmail.com>
Date: Wed, 27 Oct 2004 22:49:16 +1000
From: spent memory <spent.memory at gmail.com>
Reply-To: spent memory <spent.memory at gmail.com>
To: euforum at topica.com
Subject: Re: NEVERMIND! Re: Cool Christmas Contest
In-Reply-To: <716550947-1463792638-1098875438 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <716550947-1463792638-1098875438 at boing.topica.com>
assumptions are the basis of everyone flaws
like in physics we assume that all past theories and equations are
right and we build or own theories with these equations on the premise
they are 100% correct with no further thought given. much like the
evolution of code on a world basis at the grass roots level.
your assumption that i play games with computers and for that matter
care nothing about the "REAL PAYING WORK" you stated that Kat is doing
could be correct, perhaps you could offer her advice on how to manage
her time to increase her productivity, instead of posting a thread
that's completely off topic.
or you could just assume that i was vindictively attacking Kat and put
on your defence hat.
or you could slow down , read my post , judge it for what it is,
realise it's not even worth posting another thread over and get on
with your life.
regards Joe
On Wed, 27 Oct 2004 04:10:38 -0700, irv mullins
<guest at rapideuphoria.com> wrote:
> ============ The Euphoria Mailing List ============
>
> posted by: irv mullins <irvm at ellijay.com>
>
> spent memory wrote:
> >
> > wtf , i can't work out how you thought "*because i requested where to
> > find a txt file for processing by a dumb little outdated contest
> > program i slapped together in 15 minutes*" that i wanted to waste 2
> > more minutes of my time reading your obviously shit throwing post.
>
> What makes you think there was any 'shit' involved? Just because you
> use computers for playing games doesn't mean that other people don't
> have real, paying work to do. Kat isn't storing and processing all that
> data for fun - someone is paying for it, I'll bet.
>
> Unfortunately, I think the task is beyond the capabilities of a pc,
> which is, after all, still a toy. She really needs either a cluster of
> pcs, or mainframe time, but maybe Kat hasn't been able to convince
> her client to pay for all that.
>
> Of course, I could be wrong. Perhaps all this data gathering is just
> step 1 in Kat's plan for world domination.
>
> Irv
>
>
> --^----------------------------------------------------------------
> This email was sent to: spent.memory at gmail.com
>
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bNYD3w.c3BlbnQu
> Or send an email to: EUforum-unsubscribe at topica.com
>
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
>
>
231.
- Posted by
Oct 27, 2004
-
Last edited Oct 28, 2004
h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
b=LjnRplOxf7da+MMLD6X3NCnpMVoclLg61NGYtlpNMaMjFsM8KkISNDCFQzIgdZ9/pqH54Znkol4Oo99+wD1l9bL+43XECN7UrV4WOKGQPPh8oFlLnXoJqgkdqXVygU/IPqn32ZHBuSIjE8hDEQkn05favvuPmqM19rcKMfPBbOo=
Received: by 10.38.149.71 with SMTP id w71mr958737rnd;
Wed, 27 Oct 2004 11:48:29 -0700 (PDT)
Received: by 10.38.22.12 with HTTP; Wed, 27 Oct 2004 11:48:29 -0700 (PDT)
Message-ID: <df040a3204102711481b4603b3 at mail.gmail.com>
Date: Thu, 28 Oct 2004 04:48:29 +1000
From: spent memory <spent.memory at gmail.com>
Reply-To: spent memory <spent.memory at gmail.com>
To: euforum at topica.com
Subject: Re: NEVERMIND! Re: Cool Christmas Contest
In-Reply-To: <1919698908-1463792638-1098901271 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <716550947-1463792638-1098875438 at boing.topica.com>
<1919698908-1463792638-1098901271 at boing.topica.com>
Ok , i see your point, i read your post quickly and thought it was
pointed at me in a sarcastic kinda way. I see that it wasn't now. My
assumption was my flaw. I thought that your post and suggestion was
far too complicated (i didn't have a clue what you where talking about
or in relation to) and since you quoted my first post in this thread i
thought it was aimed at me. I know better now. Your project sounds
interesting none the less and i would rather spend my time being as
constructive as i can within the Euphoria Community.
On Wed, 27 Oct 2004 12:52:37 -0500, Kat <gertie at visionsix.com> wrote:
> ============ The Euphoria Mailing List ============
>
> On 27 Oct 2004, at 4:10, irv mullins wrote:
>
> >
> > posted by: irv mullins <irvm at ellijay.com>
>
> <snip>
>
> > Just because you
> > use computers for playing games doesn't mean that other people don't
> > have real, paying work to do. Kat isn't storing and processing all that
> > data for fun - someone is paying for it, I'll bet.
> >
> > Unfortunately, I think the task is beyond the capabilities of a pc,
> > which is, after all, still a toy. She really needs either a cluster of
> > pcs, or mainframe time, but maybe Kat hasn't been able to convince
> > her client to pay for all that.
>
> Actually, i *am* recieving money to build a cluster.
>
> > Of course, I could be wrong. Perhaps all this data gathering is just
> > step 1 in Kat's plan for world domination.
>
> Sshhhhhhh!!!!!! Don't tell everyone!
>
> Kat
>
>
> --^----------------------------------------------------------------
> This email was sent to: spent.memory at gmail.com
>
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bNYD3w.c3BlbnQu
> Or send an email to: EUforum-unsubscribe at topica.com
>
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
>
>
232.
Ive been using EditPlus 2 for quite some time, while not free ware its
trial never runs out.
www.editplus.com
233.
Anyone know where I might find some date manipulation
routines for Euphoria? I'm most interested in
converting day number (364) to a date (1999 Dec 30).
Thanks for any help.
=====
NT4ZO
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
234.
I just had to write a program to do that for a TP class I was taking. The
source shouldn't be that hard to convert. Do you want it?
-E.Allen Soard
On Thu, 6 Jan 2000 12:01:36 -0800, Euphoria Programming for MS-DOS wrote:
> Anyone know where I might find some date manipulation
> routines for Euphoria? I'm most interested in
> converting day number (364) to a date (1999 Dec 30).
> Thanks for any help.
>
>
> =====
> NT4ZO
> __________________________________________________
> Do You Yahoo!?
> Talk to your friends online with Yahoo! Messenger.
> http://im.yahoo.com
_______________________________________________________
Visit Excite Shopping at http://shopping.excite.com
The fastest way to find your Holiday gift this season
235.
The algorythm is described on page 111 of "the C programming language"
second edition, Kernighan&Ritchie (Prentice Hall).
You should be able to find it , but I can copy it if you need.
Riwal Raude
rauder at thmulti.com
> -----Original Message-----
> From: Anthony Bowyer [SMTP:adb1x1 at YAHOO.COM]
> Sent: Thursday, January 06, 2000 9:02 PM
> To: EUPHORIA at LISTSERV.MUOHIO.EDU
> Subject:
>
> Anyone know where I might find some date manipulation
> routines for Euphoria? I'm most interested in
> converting day number (364) to a date (1999 Dec 30).
> Thanks for any help.
>
>
> =====
> NT4ZO
> __________________________________________________
> Do You Yahoo!?
> Talk to your friends online with Yahoo! Messenger.
> http://im.yahoo.com
236.
You know, I have that book and I didn't think to look
there! Had a bad neuron day!
--- Raude Riwal <RAUDER at THMULTI.COM> wrote:
> The algorythm is described on page 111 of "the C
> programming language"
> second edition, Kernighan&Ritchie (Prentice Hall).
> You should be able to find it , but I can copy it if
> you need.
>
> Riwal Raude
> rauder at thmulti.com
>
> > -----Original Message-----
> > From: Anthony Bowyer [SMTP:adb1x1 at YAHOO.COM]
> > Sent: Thursday, January 06, 2000 9:02 PM
> > To: EUPHORIA at LISTSERV.MUOHIO.EDU
> > Subject:
> >
> > Anyone know where I might find some date
> manipulation
> > routines for Euphoria? I'm most interested in
> > converting day number (364) to a date (1999 Dec
> 30).
> > Thanks for any help.
> >
> >
> > =====
> > NT4ZO
> > __________________________________________________
> > Do You Yahoo!?
> > Talk to your friends online with Yahoo! Messenger.
> > http://im.yahoo.com
>
=====
NT4ZO
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
237.
------=_NextPart_000_0033_01BF61D1.F10D40E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I am new to programming in Euphoria, and I am trying to make a program =
work with the eprint utility that is included in the distribution. The =
problem that I am having is whether to sue hex or dec printer commands =
when I edit the eprint file for my printer. Anyone want to help?
Paul=20
------=_NextPart_000_0033_01BF61D1.F10D40E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2919.6307" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I am new to programming in =
Euphoria, and I am=20
trying to make a program work with the eprint utility that is included =
in the=20
distribution. The problem that I am having is whether to sue hex =
or dec=20
printer commands when I edit the eprint file for my printer. =
Anyone=20
want to help?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
=
=20
=
Paul=20
------=_NextPart_000_0033_01BF61D1.F10D40E0--
238.
- Posted by Allen Soard <esp-software at MAIL.HYPERMART.NET>
Jan 27, 2000
-
Last edited Jan 28, 2000
Hey all,
Are there any known problems with running
Eu-Linux under redhat 6.1? it just quits, doesn't
execute the program, doesn't give any error
messages, doesn't collect $200. Just quits.
Thanks
E.Allen Soard
Bookmark the HyperMart Small Business Center. All the tools you need to
succeed!
http://www.hypermart.net/center/
240.
------=_NextPart_000_0014_01C08BBE.E0477380
charset="iso-8859-1"
Regards,
Rob Craig
Rapid Deployment Software
http://www.RapidEuphoria.com
------=_NextPart_000_0014_01C08BBE.E0477380
name="Approval request for EUforum at topica.com.eml"
241. Re:
------=_NextPart_000_0048_01C08BC1.45C289A0
charset="iso-8859-1"
???
The Bitmap attached doesn't look like 198 (chars) does it?
The bitmap is a screen capture of the message recieved \
and saved in bitmap form.
>euman
----- Original Message -----
From: "Robert Craig" <rds at RapidEuphoria.com>
To: <EUforum at topica.com>
Sent: Wednesday, January 31, 2001 19:48
>
> Regards,
> Rob Craig
> Rapid Deployment Software
> http://www.RapidEuphoria.com
>
>
------=_NextPart_000_0048_01C08BC1.45C289A0
name="SLTL.bmp"
242. Re:
- Posted by gertie at PELL.NET
Jan 31, 2001
On 31 Jan 2001, at 16:48, Robert Craig wrote:
>
> Regards,
> Rob Craig
> Rapid Deployment Software
> http://www.RapidEuphoria.com
My regards too!
Kat
243.
------=_NextPart_000_0026_01C08F8A.74403E40
charset="iso-8859-1"
SIGNOFF EUPHORIA
------=_NextPart_000_0026_01C08F8A.74403E40
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>SIGNOFF =
------=_NextPart_000_0026_01C08F8A.74403E40--
244.
------=_NextPart_000_0064_01C08F9B.224ABC80
charset="iso-8859-1"
SIGNOFF EUPHORIA
------=_NextPart_000_0064_01C08F9B.224ABC80
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>SIGNOFF =
EUPHORIA</FONT></DIV>
------=_NextPart_000_0064_01C08F9B.224ABC80--
245.
- Posted by Baby Elephant <baby_elephant at ADDRESS.COM>
Feb 05, 2001
-
Last edited Feb 06, 2001
SIGNOFF EUPHORIA
246.
------=_NextPart_000_01BD1777.33EDA000
I have attached a file that is a patch for David Cuny's Toolkit. (ee.ex)
This patch will allow you to put his editor and files in any directory or
drive you wish. It is designed to automatically install the editor into
the directory of which you specify.
"install C:\EE" --this command would place the editor in C:\EE
"install C:\EE\" --this will cause the program to install incorrectly.
The "install.bat" program must be in the same directory as the
editor and help files. OR
If you have pkunzip in your path only text_gui.zip is required to be
in the same directory as install.bat
This patch only works on David Cuny's Toolkit v0.9b.
As of today (01-02-1998) this is the most recent version of his editor.
--Lucius L. Hilley III
------=_NextPart_000_01BD1777.33EDA000
247.
- Posted by The Reaper <reaper at AURACOM.COM>
Jan 10, 1998
-
Last edited Jan 11, 1998
umm... my XMAS.ZIP has been giving a bit of trouble, so I sent it Mr. Craig
to put on the Official Page, with all the files required inside the .zip
(which I forgot about). Please try downloading again...
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
The Reaper (J. Lays) http://www.angelfire.com/nj/reaperlair/
reaper at auracom.com Check out my now ancient Euphoria Games page at:
-= http://www.geocities.com/TimesSquare/Alley/4444/eugames.html
........................
. .. -||..........__...... "Life's a lot like
. / ||......../-- \\.:::: Death itself;
. ..| ||...... / | |.::: For both have a beginning,
.| _-||.......|| / /.:::: But neither have an end."
..| |..||...... -\_- \ |\-.:::
.| |.[< \ .../ \.::
.||.|||\|\ | - - . \.::::
...|.\|| | \ | | |.:::.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
248.
- Posted by Ricardo Niederberger Cabral <rnc at BIGFOOT.COM>
Jan 23, 1998
-
Last edited Jan 24, 1998
asd
249.
Hi Euphorians,
Below is a small library coded in API that creates a custom control
called the hot buttons. i haven't added round button/roundrect but those
are very easy. the reason i'm submitting this is because i'm planning to
revamp the library for efficiency and speed.
for win32lib users you'll have to wait i wrap a wrapper over it.
experienced win32lib users will have no problems.....
HB_Create(atom parent,sequence text,atom x,atom y,atom cx,atom
cy,integer Style)
================================================================
This creates a hotbutton control. parent requires a real win32 handle so
for win32lib users you'll have to use getHandle() for the parent window.
Style can be HBS_RECT(HBS_ROUND/ROUNDRECT not yet
supported),HBS_TOGGLE(Button is toggle style),HBS_ENABLED,HBS_DISABLED
etc. You can use or_all() on these styles to get the final value. using
0 uses the default values
-------------------------------------------
HB_SetFont(atom hwnd,sequence fontname,integer height,atom fntdata)
-------------------------------------------
hwn should be the handle returned by HB_Create() fontname is the name of
the font.height is the font height needed. fntdata is the style. it can
be HBF_BOLD,HBF_ITALIC,HBF_UNDERLINE. u will have to use or_all() too
get the final style. when fntdata is 0 default values are used
-------------------------------------------
HB_SetImage(atom hwnd,atom image,integer State,integer Type,integer
bltForm,atom colorref)
===========================================
hwnd: is the value returned after HB_Create()
image: this is a handle to the image. it can be a bitmap or icon handle
State: this is for the button state inwhich this image will be shown.
it can be HBIS_HOT(when mouse is over button) HBIS_DISABLED(Button
is disabled),HBIS_COLD(Button has no focus)
Type: Type of image used HBI_ICO for an icon. HBI_BMP for a bitmap
bltForm: This is needed when drawing the bitmaps (HBI_BMP) using
HBLT_OPAQUE draws the image "as-is", HBLT_TRANSPARENT draws a bitmap
with a transparent background
colorref: This is the background color used when HBLT_TRANSPARENT is
specified
HB_SetAlignment(atom hwnd,integer style)
========================================
if style is HBA_LEFT image is drawn to the left of the text. if style is
HBA_BOTTOM image is drawn above the text
-----------------------------------------
HB_SetText(atom hwnd,sequence text)
=========================================
changes the current text of the hotbutton. hwnd is the value returned
from hb_create(). Note text with & prefix returns an underscore on the
character after the ampersand
-----------------------------------------
HB_GetText(atom hwnd)
=========================================
retuens the hotbutton's text
-----------------------------------------
HB_SetBackColor(atom hwnd,object clr)
=========================================
changes the background color of a button. clr can be a sequence of rgb
triads {r,g,b} or the COLORREF value.
-----------------------------------------
HB_GetBackColor(atom hwnd)
=========================================
returns the colorref value of the current buttons background color
-----------------------------------------
HB_SetTextColor(atom hwnd,object clr)
=========================================
Changes the text color
-----------------------------------------
HB_GetTextColor(atom hwnd)
=========================================
Returns the text color of the hot button
-----------------------------------------
--File : HotButtons Module --
--Version: 0.1.5 --
--Date : Thursday, October 10, 2002 --
--Author : Jordah Ferguson --
-----------------------------------------
--** Font heights vary
--** Check if we really need saveDC and RestoreDC
--** Make Drop down style
--** Parents should be noted in the structure
without warning
without type_check
include dll.e
include machine.e
include msgbox.e
constant
HBUSER32 = open_dll("user32.dll" ),
HBGDI32 = open_dll("gdi32.dll" ),
HBKRN32 = open_dll("kernel32.dll"),
-- kernel32.dll C routines
hlstrlen = define_c_func(HBKRN32 ,
"lstrlenA",{C_LONG},C_INT),
-- User32.dll C routines
hRegisterClassEx = define_c_func(HBUSER32, "RegisterClassExA",
{C_LONG}, C_LONG ),
hCreateWindowExA = define_c_func(HBUSER32, "CreateWindowExA",
{C_LONG, C_LONG, C_LONG, C_LONG, C_INT, C_INT, C_INT, C_INT, C_LONG,
C_LONG, C_LONG, C_LONG}, C_LONG ),
hCallWindowProcA = define_c_func(HBUSER32, "CallWindowProcA",
{C_POINTER, C_LONG, C_INT, C_INT, C_LONG}, C_LONG ),
hPostMessage = define_c_proc(HBUSER32, "PostMessageA",
{C_LONG, C_INT, C_INT, C_LONG}),
hGetClientRect = define_c_proc(HBUSER32, "GetClientRect",
{C_LONG, C_LONG}),
hSetPropA = define_c_proc(HBUSER32, "SetPropA", {C_LONG,
C_LONG, C_LONG}),
hGetPropA = define_c_func(HBUSER32, "GetPropA", {C_LONG,
C_LONG}, C_LONG ),
hDefWindowProcA = define_c_func(HBUSER32, "DefWindowProcA",
{C_LONG, C_INT, C_INT, C_LONG}, C_LONG ),
hGetWindowLongA = define_c_func(HBUSER32, "GetWindowLongA",
{C_LONG, C_INT}, C_LONG ),
hBeginPaint = define_c_func(HBUSER32, "BeginPaint", {C_LONG,
C_LONG}, C_LONG ),
hEndPaint = define_c_proc(HBUSER32, "EndPaint", {C_LONG,
C_LONG} ),
hInvalidateRect = define_c_proc(HBUSER32, "InvalidateRect",
{C_LONG, C_LONG, C_LONG}),
hGetDC = define_c_func(HBUSER32, "GetDC", {C_LONG},
C_LONG ),
hReleaseDC = define_c_proc(HBUSER32, "ReleaseDC", {C_LONG,
C_LONG}),
hDrawEdge = define_c_proc(HBUSER32, "DrawEdge", {C_LONG,
C_LONG, C_INT, C_INT} ),
hDrawTextA = define_c_proc(HBUSER32, "DrawTextA", {C_LONG,
C_LONG, C_INT, C_LONG, C_INT} ),
hSetWindowLongA = define_c_proc(HBUSER32, "SetWindowLongA",
{C_LONG, C_INT, C_LONG}),
hDrawIconEx = define_c_proc(HBUSER32, "DrawIconEx", {C_LONG,
C_INT, C_INT, C_LONG, C_INT, C_INT, C_INT, C_LONG, C_INT}),
hGetIconInfo = define_c_proc(HBUSER32, "GetIconInfo", {C_LONG,
C_POINTER}),
hGetUpdateRect = define_c_func(HBUSER32, "GetUpdateRect",
{C_LONG, C_LONG, C_LONG}, C_LONG ),
-- gdi32 C routines
hCreateCompatibleDC = define_c_func(HBGDI32, "CreateCompatibleDC",
{C_LONG}, C_LONG ),
hPatBlt = define_c_proc(HBGDI32, "PatBlt", {C_LONG,
C_INT, C_INT, C_INT, C_INT, C_LONG}),
hCreateCompatibleBitmap= define_c_func(HBGDI32,
"CreateCompatibleBitmap", {C_LONG, C_INT, C_INT}, C_LONG ),
hCreateBitmap = define_c_func(HBGDI32, "CreateBitmap", {C_INT,
C_INT, C_INT, C_INT, C_LONG}, C_LONG ),
hCreateSolidBrush = define_c_func(HBGDI32, "CreateSolidBrush",
{C_POINTER}, C_LONG ),
hCreateBrushIndirect = define_c_func(HBGDI32, "CreateBrushIndirect",
{C_LONG}, C_LONG ),
hGetStockObject = define_c_func(HBGDI32, "GetStockObject",
{C_INT}, C_LONG ),
hDeleteObject = define_c_func(HBGDI32, "DeleteObject",
{C_LONG},C_LONG ),
hBitBlt = define_c_proc(HBGDI32, "BitBlt", {C_LONG,
C_INT, C_INT, C_INT, C_INT, C_LONG, C_INT, C_INT, C_LONG}),
hDeleteDC = define_c_func(HBGDI32, "DeleteDC",
{C_LONG},C_LONG),
hSelectObject = define_c_func(HBGDI32, "SelectObject", {C_LONG,
C_LONG},C_LONG),
hSetTextColor = define_c_proc(HBGDI32, "SetTextColor", {C_LONG,
C_POINTER}),
hGetObject = define_c_func(HBGDI32, "GetObjectA", {C_LONG,
C_INT, C_LONG}, C_INT ),
hSaveDC = define_c_proc(HBGDI32, "SaveDC", {C_LONG} ),
hRestoreDC = define_c_proc(HBGDI32, "RestoreDC", {C_LONG,
C_INT}),
hSetPixel = define_c_proc(HBGDI32, "SetPixel", {C_LONG,
C_INT, C_INT, C_POINTER}),
hSetBkColor = define_c_func(HBGDI32, "SetBkColor", {C_LONG,
C_POINTER}, C_POINTER ),
hCreateFont = define_c_func(HBGDI32, "CreateFontA",{C_INT,
C_INT, C_INT, C_INT, C_INT, C_INT,C_INT, C_INT, C_INT, C_INT, C_INT,
C_INT, C_INT, C_POINTER}, C_INT),
hSetBkMode = define_c_proc(HBGDI32, "SetBkMode", {C_LONG,
C_INT})
---------------------------------------------------------
constant
WM_PAINT = #000F,
WM_LBUTTONDOWN= #0201,
WM_MOUSEMOVE = #0200,
WM_DESTROY = #0002,
WM_LBUTTONUP = #0202,
FW_NORMAL = 400,
BMask =
{{1,0,1,0,1,0,1,0},
{0,1,0,1,0,1,0,1},
{1,0,1,0,1,0,1,0},
{0,1,0,1,0,1,0,1},
{1,0,1,0,1,0,1,0},
{0,1,0,1,0,1,0,1},
{1,0,1,0,1,0,1,0},
{0,1,0,1,0,1,0,1}}
---------------------------------------------------------
constant
HBPROPCB = allocate_string("HotButton CallBack "),
HBPROPLP = allocate_string("HotButton Structure"),
WC_HBUTTON = allocate_string("HotButton"),
aRECT = allocate( 16 ),
aPS = allocate( 64 ),
aBmp = allocate( 32 ),
aLOGBRUSH = allocate( 12 ),
aICONINFO = allocate( 20 ),
WS_HBUTTON = #50000000,
WM_USER = #0400,
-- HB Ver and Error Msgs
HB_VER = "Hot Button 0.1.4",
HB_CREATE_FAIL = "Failed to create Hot Button",
HB_REG_FAIL = "Failed to Register Hot Button Class",
HB_DEL_BRUSH_FAIL= "Failed to delete brush!",
HB_DEL_DC_FAIL = "Failed to delete Compatible Device Context",
HB_BRSH_FAIL = "Failed to create brush",
HB_CDC_FAIL = "Failed to create Compatible Device Context",
HB_CBM_FAIL = "Failed to create Compatible Bitmap",
HB_CBM_DEL_FAIL = "Failed to delete Compatible Bitmap",
HB_GetDC_FAIL = "Failed to acquire the Device Context",
HB_BAD_SET = "Invalid Group Index Specified",
-- Font Structure
hbf_fntsz = 00,
hbf_fntstyle = 04,
hbf_fntheight = 05,
sizeof_hbf = 06,
-- Image Structure
hbi_onbitmap = 00,
hbi_disbitmap = 04,
hbi_offbitmap = 08,
hbi_ontransclr = 12,
hbi_offtransclr = 16,
hbi_distransclr = 20,
hbi_onbitprop = 24,
hbi_disbitprop = 25,
hbi_offbitprop = 26,
hbi_alignment = 27,
sizeof_hbi = 28,
-- Control Structure
hb_font = 00,
hb_image = 04,
hb_txtcolor = 08,
hb_text = 12,
hb_bkcolor = 16,
hb_active = 20,
hb_mstatus = 21,
hb_hover = 22,
hb_togstatus = 23,
hb_sstyle = 24,
hb_stype = 25,
hb_set = 26,
sizeof_hb = 27,
bit_pos = {#1,#2,#4,#8,#10,#20}
-- Global Button Styles
global constant
WM_HBCLICKED = WM_USER + 20,
HBS_ENABLED = #01, -- Btn Enabled
HBS_DISABLED = #02, -- Btn Disabled
HBS_TOGGLE = #04, -- Btn is toggled
HBS_ROUNDRECT = #08,
HBS_ELLIPSE = #10,
HBS_RECT = #20,
HBI_ICO = #01, -- HB_SetImage(); Type:Image Presented is
an icon
HBI_BMP = #02, -- HB_SetImage(); Type:Image Presented is a
bitmap
HBIS_DISABLED = #01, -- HB_SetImage(); Image is intended for
disabled view
HBIS_HOT = #02, -- HB_SetImage(); Image is intended for Hot
view ie has focus
HBIS_COLD = #03, -- HB_SetImage(); Image is intended for
Cold view ie lostfocus
HBLT_OPAQUE = #01, -- HB_SetImage(); Image bitblt uses OPAQUE
mode ie no blending
HBLT_TRANSPARENT = #02, -- HB_SetImage(); Transparent; image blends
with current brush
HBA_LEFT = #00, -- Text is to the left of image
HBA_BOTTOM = #01, -- Text is displayed below image
HBF_NORMAL = #01, -- Use Normal font width/style/underline
HBF_BOLD = #02, -- Use Bold Font
HBF_ITALIC = #04, -- Use Italics
HBF_UNDERLINE = #08 -- Use UnderlineStyle
---------------------------------------------------------
integer Type,Style,Void,ExcGrp
atom
ParentCB,CurParentCB,ACTIVE,Defaultfont,Struct,DefBrush,CurBrush,HDC
sequence rect,ExcSet
Void = -1
ACTIVE = -1
Struct = -1
Type = -1
Style = -1
ExcSet = {}
-------------------------------------------
procedure Report(sequence msg)
-------------------------------------------
Void = message_box(msg,HB_VER&" Error!",MB_ICONINFORMATION)
end procedure
-------------------------------------------
function RGB(sequence Triad)
-------------------------------------------
return Triad[1] * #1 +
Triad[2] * #100 +
Triad[3] * #10000
end function
-------------------------------------------
function LO_BIT(integer a)
-------------------------------------------
return and_bits(a,#F)
end function
-------------------------------------------
function HI_BIT(integer a)
-------------------------------------------
return floor(a/#10)
end function
-------------------------------------------
function MAKE_BYTE(integer a,integer b)
-------------------------------------------
a = and_bits(a,#F)
b = and_bits(b,#F)
return ((b*#10) + a)
end function
-------------------------------------------
function abs(atom a)
-------------------------------------------
if a > 0 then return a else return (-a) end if
end function
-------------------------------------------
procedure StoreBits(atom Struct,integer val)
-------------------------------------------
sequence bits
integer hibit,lobit
lobit = 0 hibit = 0 bits = {}
if not val then
bits = {HBS_ENABLED,HBS_RECT}
else
for n = 1 to length(bit_pos) do
Void = bit_pos[n]
if and_bits(val,Void) then
bits &= Void
end if
end for
end if
for n = 1 to length(bits) do
Void = bits[n]
if Void <= HBS_TOGGLE then
lobit = or_bits(lobit,Void)
else
hibit = or_bits(hibit,Void)
end if
end for
poke(Struct + hb_sstyle,hibit)
poke(Struct + hb_stype ,lobit)
end procedure
-------------------------------------------
function GetClientRect(atom hwnd)
-------------------------------------------
c_proc(hGetClientRect,{hwnd,aRECT})
return peek4u({aRECT,4})
end function
-------------------------------------------
function GetBmpSize(atom Bmp)
-------------------------------------------
if c_func(hGetObject,{Bmp,32,aBmp}) then
return peek4u({aBmp+04,2})
end if
return {0,0}
end function
-------------------------------------------
function GetIcoSize(atom icon)
-------------------------------------------
atom AndMask
c_proc(hGetIconInfo,{icon,aICONINFO})
AndMask = peek4u(aICONINFO + 16)
return GetBmpSize(AndMask)
end function
-------------------------------------------
function CreateSolidBrush(atom Clr)
-------------------------------------------
atom brush
brush = c_func(hCreateSolidBrush,{Clr})
if not brush then
Report(HB_BRSH_FAIL)
end if
return brush
end function
-------------------------------------------
procedure DeleteBrush(atom brush)
-------------------------------------------
if not c_func(hDeleteObject,{brush}) then
Report(HB_DEL_BRUSH_FAIL)
end if
end procedure
-------------------------------------------
function CreateFont(atom fntAddr)
-------------------------------------------
integer width,und,ita,fntheight,fntdata
atom fntname
sequence bits
bits = {}
fntname = peek4u(fntAddr + hbf_fntsz)
fntheight = peek(fntAddr + hbf_fntheight)
fntdata = peek(fntAddr + hbf_fntstyle)
if not fntdata then
width = FW_NORMAL
und = 0
ita = 0
else
for n = 1 to length(bit_pos) do
Void = bit_pos[n]
if and_bits(fntdata,Void) then
bits &= Void
end if
end for
if not find(HBF_BOLD,bits) then width = FW_NORMAL else width =
FW_NORMAL * 1.5 end if
if not find(HBF_ITALIC,bits) then ita = 0 else ita = 1 end if
if not find(HBF_UNDERLINE,bits) then und = 0 else und = 1 end if
end if
return
c_func(hCreateFont,{fntheight,0,0,0,width,ita,und,0,0,0,0,0,0,fntname})
end function
-------------------------------------------
function GetDC(atom hwnd)
-------------------------------------------
hwnd = c_func(hGetDC,{hwnd})
if not hwnd then
Report(HB_GetDC_FAIL)
end if
c_proc(hSaveDC,{hwnd})
return hwnd
end function
-------------------------------------------
procedure ReleaseDC(atom hwnd,atom HDC)
-------------------------------------------
c_proc(hRestoreDC,{HDC,-1})
c_proc(hReleaseDC,{hwnd,HDC})
end procedure
-------------------------------------------
function CreateCompatibleDC(atom HDC)
-------------------------------------------
HDC = c_func(hCreateCompatibleDC,{HDC})
if not HDC then
Report(HB_CDC_FAIL)
end if
return HDC
end function
-------------------------------------------
procedure DeleteDC(atom HDC)
-------------------------------------------
if not c_func(hDeleteDC,{HDC}) then
Report(HB_DEL_DC_FAIL)
end if
end procedure
-------------------------------------------
function CreateCompatibleBitmap(atom HDC,atom cx,atom cy)
-------------------------------------------
HDC = c_func(hCreateCompatibleBitmap,{HDC,cx,cy})
if not HDC then
Report(HB_CBM_FAIL)
end if
return HDC
end function
-------------------------------------------
procedure DeleteCompatibleBitmap(atom bm)
-------------------------------------------
if not c_func(hDeleteObject,{bm}) then
Report(HB_CBM_DEL_FAIL)
end if
end procedure
-------------------------------------------
function SelectObject(atom HDC,atom Obj)
-------------------------------------------
return c_func(hSelectObject,{HDC,Obj})
end function
-------------------------------------------
function CreatePatternBrush(atom HDC,atom clr)
-------------------------------------------
atom MbmBMP,MemDC,OldBm,Brush
MemDC = CreateCompatibleDC(HDC)
MbmBMP= CreateCompatibleBitmap(HDC,8,8)
OldBm = SelectObject(MemDC,MbmBMP)
c_proc(hPatBlt,{MemDC,0,0,8,8,#00F00021})
if clr = #FFFFFF then clr = #C0C0C0 end if
for n = 1 to 8 do
for m = 1 to 8 do
Void = BMask[n][m]
if Void then
c_proc(hSetPixel,{MemDC,n-1,m-1,clr})
end if
end for
end for
poke4(aLOGBRUSH,{3,0,MbmBMP})
Brush = c_func(hCreateBrushIndirect,{aLOGBRUSH})
OldBm = SelectObject(MemDC,OldBm)
DeleteCompatibleBitmap(MbmBMP)
DeleteDC(MemDC)
return Brush
end function
-------------------------------------------
procedure BltBitMap(atom HDC,atom bitmap,atom x,atom y,atom cx,atom cy)
-------------------------------------------
atom MemDC
MemDC = CreateCompatibleDC(HDC)
Void = SelectObject(MemDC,bitmap)
c_proc(hBitBlt,{HDC,x,y,cx,cy,MemDC,0,0,#00CC0020})
DeleteDC(MemDC)
end procedure
-------------------------------------------
procedure TransparentBlt(atom HDC,atom bitmap,atom x,atom y,atom cx,atom
cy,atom bkcolor)
-------------------------------------------
atom
SourceDC,SavedDC,InvertedDC,MaskDC,FinalDC,InvertedBmp,MaskBmp,FinalBmp,SavedBmp,
PrevInvBmp,PrevMaskBmp,PrevFinalBmp,PrevSavedBmp,PrevSourceBmp,PrevColor
SourceDC = CreateCompatibleDC(HDC)
SavedDC = CreateCompatibleDC(HDC)
InvertedDC = CreateCompatibleDC(HDC)
FinalDC = CreateCompatibleDC(HDC)
MaskDC = CreateCompatibleDC(HDC)
FinalBmp = CreateCompatibleBitmap(HDC,cx,cy)
SavedBmp = CreateCompatibleBitmap(HDC,cx,cy)
InvertedBmp= c_func(hCreateBitmap,{cx,cy,1,1,0})
MaskBmp = c_func(hCreateBitmap,{cx,cy,1,1,0})
PrevSourceBmp = SelectObject(SourceDC,bitmap )
PrevSavedBmp = SelectObject(SavedDC,SavedBmp)
PrevFinalBmp = SelectObject(FinalDC,FinalBmp)
PrevMaskBmp = SelectObject(MaskDC ,MaskBmp )
PrevInvBmp = SelectObject(InvertedDC,InvertedBmp)
c_proc(hBitBlt,{SavedDC,0,0,cx,cy,SourceDC,0,0,#00CC0020})
PrevColor = c_func(hSetBkColor,{SourceDC,bkcolor})
c_proc(hBitBlt,{MaskDC,0,0,cx,cy,SourceDC,0,0,#00CC0020})
PrevColor = c_func(hSetBkColor,{SourceDC,PrevColor})
c_proc(hBitBlt,{InvertedDC,0,0,cx,cy,MaskDC,0,0,#00330008})
c_proc(hBitBlt,{FinalDC,0,0,cx,cy,HDC,x,y,#00CC0020})
c_proc(hBitBlt,{FinalDC,0,0,cx,cy,MaskDC,0,0,#008800C6})
c_proc(hBitBlt,{SourceDC,0,0,cx,cy,InvertedDC,0,0,#008800C6})
c_proc(hBitBlt,{FinalDC,0,0,cx,cy,SourceDC,0,0,#00EE0086})
c_proc(hBitBlt,{HDC,x,y,cx,cy,FinalDC,0,0,#00CC0020})
c_proc(hBitBlt,{SourceDC,0,0,cx,cy,SavedDC,0,0,#00CC0020})
Void = SelectObject(SourceDC,PrevSourceBmp)
Void = SelectObject(SavedDC,PrevSavedBmp )
Void = SelectObject(FinalDC,PrevFinalBmp )
Void = SelectObject(MaskDC,PrevMaskBmp )
Void = SelectObject(InvertedDC,PrevInvBmp )
DeleteCompatibleBitmap(FinalBmp)
DeleteCompatibleBitmap(SavedBmp)
DeleteCompatibleBitmap(MaskBmp )
DeleteCompatibleBitmap(InvertedBmp)
DeleteDC(FinalDC)
DeleteDC(InvertedDC)
DeleteDC(MaskDC)
DeleteDC(SavedDC)
DeleteDC(SourceDC)
end procedure
-------------------------------------------
function PrepareDC(atom HDC,sequence rect,atom str)
-------------------------------------------
atom Oldfont,Oldbrush,fontAddr,hfont,brush hfont= 0
brush = peek4u(str+hb_bkcolor)
fontAddr = peek4u(str+hb_font)
if fontAddr then
hfont = CreateFont(fontAddr)
Oldfont = SelectObject(HDC,hfont)
else
Oldfont = SelectObject(HDC,Defaultfont)
end if
c_proc(hSetBkMode,{HDC,1})
brush = CreateSolidBrush(brush)
Oldbrush = SelectObject(HDC,brush)
c_proc(hSetTextColor,{HDC,peek4u(str+hb_txtcolor)})
c_proc(hPatBlt,{HDC,rect[1],rect[2],rect[3],rect[4],#00F00021})
Oldbrush = SelectObject(HDC,Oldbrush)
DeleteBrush(brush)
return {Oldfont,hfont}
end function
-------------------------------------------
function CalculateRect(sequence rect,sequence imgrect,integer
alignment,integer txtflag)
-------------------------------------------
atom X1,Y1,R1,R2,R3,R4,C,DT_Flag
if txtflag then
if not alignment then
Y1 = floor(abs(rect[4]-imgrect[2])/2)
X1 = 2
R1 = imgrect[1]+ X1 + 4
R2 = Y1 + floor((imgrect[2]/4))
R3 = rect[3]
R4 = rect[4]
DT_Flag = #20
else
X1 = floor(abs(rect[3]-imgrect[1])/2)
Y1 = 2
C = imgrect[2] + Y1 + 4
R1 = rect[1]
R2 = (C + floor(abs(rect[4]-C)/2))
R3 = rect[3]
R4 = rect[4]
DT_Flag = #125
end if
else
Y1 = floor(abs(rect[4]-imgrect[2])/2)
X1 = floor(abs(rect[3]-imgrect[1])/2)
R1 = 0 R2 = 0 R3 = 0 R4 = 0 DT_Flag = 0
end if
return {X1,Y1,R1,R2,R3,R4,DT_Flag}
end function
-------------------------------------------
procedure DisplayRectButton(atom str,atom HDC,sequence rect,atom
HImage,integer Style,integer tog,atom transclr,integer alignment)
-------------------------------------------
integer imgType,bltType,DT_Flag,len
atom PatBrush,OldBrush,pszAddr
sequence imgrect,frect,fnt
fnt = PrepareDC(HDC,rect,str)
pszAddr = peek4u(str + hb_text)
len = c_func(hlstrlen,{pszAddr})
if tog then
PatBrush = CreatePatternBrush(HDC,peek4u(str+hb_bkcolor))
OldBrush = SelectObject(HDC,PatBrush)
c_proc(hPatBlt,{HDC,0,0,rect[3],rect[4],#00F00021})
end if
if HImage then
imgType = HI_BIT(Style)
bltType = LO_BIT(Style)
if imgType = HBI_BMP then
imgrect = GetBmpSize(HImage)
frect = CalculateRect(rect,imgrect,alignment,len)
if tog then frect[1] += 2 frect[3] += 2 end if
poke4(aRECT,{frect[3],frect[4],frect[5],frect[6]})
if bltType = HBLT_OPAQUE then
BltBitMap(HDC,HImage,frect[1],frect[2],imgrect[1],imgrect[2])
elsif bltType = HBLT_TRANSPARENT then
TransparentBlt(HDC,HImage,frect[1],frect[2],imgrect[1],imgrect[2],transclr)
end if
DT_Flag = frect[7]
elsif imgType = HBI_ICO then
imgrect = GetIcoSize(HImage)
frect = CalculateRect(rect,imgrect,alignment,len)
if tog then frect[1] += 2 frect[3] += 2 end if
poke4(aRECT,{frect[3],frect[4],frect[5],frect[6]})
c_proc(hDrawIconEx,{HDC,frect[1],frect[2],HImage,imgrect[1],imgrect[2],0,0,3})
DT_Flag = frect[7]
end if
else
DT_Flag = #125
if tog then
poke4(aRECT,rect[1] + 3 & rect[2..4])
end if
end if
if tog then
OldBrush = SelectObject(HDC,OldBrush)
DeleteBrush(PatBrush)
end if
if len then
c_proc(hDrawTextA,{HDC,pszAddr,len,aRECT,DT_Flag})
end if
Void = SelectObject(HDC,fnt[1])
if fnt[2] then
Void = c_func(hDeleteObject,{fnt[2]})
end if
end procedure
-------------------------------------------
procedure BltOnImage_RECT(atom hwnd,atom HDC,atom str)
-------------------------------------------
sequence rect
atom ImageAddr
rect = GetClientRect(hwnd)
ImageAddr = peek4u(str + hb_image)
if ImageAddr then
DisplayRectButton(str,HDC,rect,
peek4u(ImageAddr + hbi_onbitmap),
peek(ImageAddr + hbi_onbitprop),0,
peek4u(ImageAddr+hbi_ontransclr),
peek(ImageAddr + hbi_alignment))
else
DisplayRectButton(str,HDC,rect,0,0,0,0,0)
end if
poke4(aRECT,rect)
c_proc(hDrawEdge,{HDC,aRECT,#4,15})
end procedure
-------------------------------------------
procedure BltOffImage_RECT(atom hwnd,atom HDC,atom str)
-------------------------------------------
sequence rect
atom ImageAddr
rect = GetClientRect(hwnd)
ImageAddr = peek4u(str + hb_image)
if ImageAddr then
DisplayRectButton(str,HDC,rect,
peek4u(ImageAddr + hbi_offbitmap),
peek(ImageAddr + hbi_offbitprop),0,
peek4u(ImageAddr+hbi_offtransclr),
peek(ImageAddr + hbi_alignment))
else
DisplayRectButton(str,HDC,rect,0,0,0,0,0)
end if
end procedure
-------------------------------------------
procedure BltTogImage_RECT(atom hwnd,atom HDC,atom str)
-------------------------------------------
sequence rect
atom ImageAddr
rect = GetClientRect(hwnd)
ImageAddr = peek4u(str + hb_image)
if ImageAddr then
DisplayRectButton(str,HDC,rect,
peek4u(ImageAddr + hbi_onbitmap),
peek(ImageAddr + hbi_onbitprop),1,
peek4u(ImageAddr+hbi_ontransclr),
peek(ImageAddr + hbi_alignment))
else
DisplayRectButton(str,HDC,rect,0,0,1,0,0)
end if
poke4(aRECT,rect)
c_proc(hDrawEdge,{HDC,aRECT,10,15})
end procedure
-------------------------------------------
procedure ReleaseToggle(integer grp,atom btn)
-------------------------------------------
atom hwnd,Struct
if grp >0 and grp <= length(ExcSet) then
hwnd = ExcSet[grp]
ExcSet[grp] = btn
if hwnd then
Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
if Struct then
if peek(Struct + hb_togstatus) then
poke(Struct + hb_active , 1 )
poke(Struct + hb_mstatus , 0 )
poke(Struct + hb_togstatus, 0 )
c_proc(hInvalidateRect,{hwnd,0,1})
end if
end if
end if
end if
end procedure
-------------------------------------------
global function HB_Create(atom parent,sequence text,atom x,atom y,atom
cx,atom cy,integer Style)
-------------------------------------------
atom hwnd,sz,CallBackA,str
sequence r
hwnd =
c_func(hCreateWindowExA,{0,WC_HBUTTON,0,WS_HBUTTON,x,y,cx,cy,parent,0,instance(),0})
if not hwnd then
Report(HB_CREATE_FAIL)
return hwnd
end if
CallBackA = c_func(hGetWindowLongA,{parent,-4})
if CallBackA != CurParentCB then
c_proc(hSetPropA,{parent,HBPROPCB,CallBackA})
c_proc(hSetWindowLongA,{parent,-4,CurParentCB})
end if
str = allocate(sizeof_hb)
sz = allocate_string(text)
mem_set(str,0,sizeof_hb)
poke4(str+hb_bkcolor ,#C0C0C0)
poke4(str+hb_text ,sz )
StoreBits(str,Style)
c_proc(hSetPropA,{hwnd,HBPROPLP,str})
return hwnd
end function
-------------------------------------------
global procedure HB_SetFont(atom hwnd,sequence fontname,integer
height,atom fntdata)
-------------------------------------------
atom str,sz,fntname,fntAddr
str = c_func(hGetPropA,{hwnd,HBPROPLP})
if str then
sz = peek4u(str + hb_font)
if sz then
fntname = peek4u(sz + hbf_fntsz)
if fntname then
free(fntname)
end if
poke4(sz + hbf_fntsz,allocate_string(fontname))
poke(sz + hbf_fntheight,height)
poke(sz + hbf_fntstyle,fntdata)
return
end if
fntAddr = allocate(sizeof_hbf)
mem_set(fntAddr,0,sizeof_hbf)
poke4(fntAddr + hbf_fntsz,allocate_string(fontname))
poke(fntAddr + hbf_fntheight,height)
poke(fntAddr + hbf_fntstyle,fntdata)
poke4(str + hb_font,fntAddr)
end if
end procedure
-------------------------------------------
global procedure HB_SetText(atom hwnd,sequence text)
-------------------------------------------
atom str,sz,psz
str = c_func(hGetPropA,{hwnd,HBPROPLP})
if str then
psz = peek4u(str + hb_text)
if psz then
free(psz)
end if
poke4(str+hb_text,allocate_string(text))
end if
end procedure
-------------------------------------------
global function HB_GetText(atom hwnd)
-------------------------------------------
atom str,sz
str = c_func(hGetPropA,{hwnd,HBPROPLP})
if str then
sz = peek4u(str+hb_text)
return peek({sz,c_func(hlstrlen,{sz})})
end if
return {}
end function
-------------------------------------------
global procedure HB_SetTextColor(atom hwnd,object clr)
-------------------------------------------
atom colorref,str
if sequence(clr) then
colorref = RGB(clr)
else
colorref = clr
end if
str = c_func(hGetPropA,{hwnd,HBPROPLP})
if str then
poke4(str+hb_txtcolor,colorref)
end if
end procedure
-------------------------------------------
global function HB_GetTextColor(atom hwnd)
-------------------------------------------
atom str
str = c_func(hGetPropA,{hwnd,HBPROPLP})
if str then
return peek4u(str + hb_txtcolor)
end if
return -1
end function
-------------------------------------------
global procedure HB_SetBackColor(atom hwnd,object clr)
-------------------------------------------
atom colorref,str
if sequence(clr) then
colorref = RGB(clr)
else
colorref = clr
end if
str = c_func(hGetPropA,{hwnd,HBPROPLP})
if str then
poke4(str+hb_bkcolor,colorref)
end if
end procedure
-------------------------------------------
global function HB_GetBackColor(atom hwnd)
-------------------------------------------
atom str
str = c_func(hGetPropA,{hwnd,HBPROPLP})
if str then
return peek4u(str + hb_bkcolor)
end if
return -1
end function
-------------------------------------------
global procedure HB_SetAlignment(atom hwnd,integer flag)
-------------------------------------------
atom str,image str = c_func(hGetPropA,{hwnd,HBPROPLP})
if str then
image = peek4u(str + hb_image)
if image then
poke(image + hbi_alignment,flag)
end if
end if
end procedure
-------------------------------------------
global procedure HB_SetImage(atom hwnd,atom image,integer State,integer
Type,integer bltForm,atom colorref)
-------------------------------------------
atom str,imgAddr
integer pack,x x = 0
str = c_func(hGetPropA,{hwnd,HBPROPLP})
if str then
pack = MAKE_BYTE(bltForm,Type)
imgAddr = peek4u(str + hb_image)
if not imgAddr then
imgAddr = allocate(sizeof_hbi)
mem_set(imgAddr,0,sizeof_hbi)
x = 1
end if
if State = HBIS_DISABLED then
poke4(imgAddr + hbi_disbitmap,image)
poke4(imgAddr + hbi_distransclr,colorref)
poke (imgAddr + hbi_disbitprop,pack)
elsif State = HBIS_HOT then
poke4(imgAddr + hbi_onbitmap,image)
poke4(imgAddr + hbi_ontransclr,colorref)
poke (imgAddr + hbi_onbitprop,pack)
elsif State = HBIS_COLD then
poke4(imgAddr + hbi_offbitmap,image)
poke4(imgAddr + hbi_offtransclr,colorref)
poke (imgAddr + hbi_offbitprop,pack)
end if
if x then poke4(str + hb_image,imgAddr) end if
end if
end procedure
-------------------------------------------
global function HB_MakeToggleGroup()
-------------------------------------------
ExcSet &= 0
return length(ExcSet)
end function
-------------------------------------------
global procedure HB_AddToGroup(integer grp,object Btn)
-------------------------------------------
atom Str
if grp < 1 and grp > length(ExcSet) then
Report(HB_BAD_SET)
end if
if atom(Btn) then
Str = c_func(hGetPropA,{Btn,HBPROPLP})
if Str then
poke(Str + hb_set,grp)
end if
else
for n = 1 to length(Btn) do
HB_AddToGroup(grp,Btn[n])
end for
end if
end procedure
-------------------------------------------
procedure HB_BtnCleanup(atom hwnd)
-------------------------------------------
atom StrAddr,fontAddr,imgAddr
Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
if Struct then
StrAddr = peek4u(Struct + hb_text)
if StrAddr then
free(StrAddr)
end if
fontAddr = peek4u(Struct + hb_font)
if fontAddr then
StrAddr = peek4u(fontAddr + hbf_fntsz)
if StrAddr then free(StrAddr) end if
free(fontAddr)
end if
imgAddr = peek4u(Struct + hb_image)
if imgAddr then
free(imgAddr)
end if
free(Struct)
end if
end procedure
-------------------------------------------
procedure HB_Cleanup()
-------------------------------------------
free(HBPROPCB)
free(HBPROPLP)
free(WC_HBUTTON)
free(aRECT)
free(aPS)
free(aBmp)
free(aLOGBRUSH)
free(aICONINFO)
DeleteBrush(Defaultfont)
end procedure
-------------------------------------------
function HBWndProc(atom hwnd,atom msg,atom wParam,atom lParam)
-------------------------------------------
if msg = WM_PAINT then
if c_func(hGetUpdateRect,{hwnd,0,0}) then
HDC = c_func(hBeginPaint,{hwnd,aPS})
c_proc(hSaveDC,{HDC})
Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
Type = peek(Struct + hb_stype)
Style = peek(Struct + hb_sstyle)
if Style = HBS_RECT then
if Type = HBS_ENABLED then
BltOffImage_RECT(hwnd,HDC,Struct)
elsif Type = HBS_TOGGLE then
if peek(Struct + hb_togstatus) then
BltTogImage_RECT(hwnd,HDC,Struct)
else
BltOffImage_RECT(hwnd,HDC,Struct)
end if
elsif Type = HBS_DISABLED then
end if
elsif Style = HBS_ROUNDRECT then
elsif Style = HBS_ELLIPSE then
end if
c_proc(hRestoreDC,{HDC,-1})
c_proc(hEndPaint,{hwnd,aPS})
end if
elsif msg = WM_LBUTTONDOWN then
Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
HDC = GetDC(hwnd)
Type = peek(Struct + hb_stype)
Style = peek(Struct + hb_sstyle)
poke(Struct + hb_active , 1 )
poke(Struct + hb_mstatus, 1 )
poke(Struct + hb_hover , 1 )
if Style = HBS_RECT then
if Type = HBS_TOGGLE then
if peek(Struct + hb_togstatus) then
poke(Struct + hb_togstatus, 0 )
else
poke(Struct + hb_togstatus, 1 )
ExcGrp = peek(Struct + hb_set)
if ExcGrp then
ReleaseToggle(ExcGrp,hwnd)
end if
end if
elsif Type = HBS_DISABLED then
end if
BltTogImage_RECT(hwnd,HDC,Struct)
elsif Style = HBS_ROUNDRECT then
elsif Style = HBS_DISABLED then
end if
ACTIVE = hwnd
ReleaseDC(hwnd,HDC)
elsif msg = WM_MOUSEMOVE then
if ACTIVE != hwnd then
if ACTIVE > 0 then
Struct = c_func(hGetPropA,{ACTIVE,HBPROPLP})
poke(Struct + hb_active, 0 )
poke(Struct + hb_mstatus,0 )
poke(Struct + hb_hover ,0 )
c_proc(hInvalidateRect,{ACTIVE,0,1})
ACTIVE = hwnd
return 0
end if
end if
Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
if not peek(Struct + hb_hover) then
poke(Struct + hb_active , 1 )
poke(Struct + hb_hover , 1 )
HDC = GetDC(hwnd)
Type = peek(Struct + hb_stype)
Style = peek(Struct + hb_sstyle)
if Style = HBS_RECT then
if Type = HBS_TOGGLE then
if peek(Struct + hb_togstatus) then
BltTogImage_RECT(hwnd,HDC,Struct)
else
BltOnImage_RECT(hwnd,HDC,Struct)
end if
elsif Type = HBS_ENABLED then
BltOnImage_RECT(hwnd,HDC,Struct)
elsif Type = HBS_DISABLED then
end if
elsif Style = HBS_ROUNDRECT then
elsif Style = HBS_ELLIPSE then
end if
ReleaseDC(hwnd,HDC)
end if
ACTIVE = hwnd
elsif msg = WM_LBUTTONUP then
Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
poke(Struct + hb_active , 1 )
poke(Struct + hb_mstatus, 0 )
Type = peek(Struct + hb_stype)
Style = peek(Struct + hb_sstyle)
HDC = GetDC(hwnd)
if Style = HBS_RECT then
if Type = HBS_TOGGLE then
if not peek(Struct + hb_togstatus) then
BltOnImage_RECT(hwnd,HDC,Struct)
end if
elsif Type = HBS_ENABLED then
BltOnImage_RECT(hwnd,HDC,Struct)
elsif Type = HBS_DISABLED then
end if
elsif Style = HBS_ROUNDRECT then
elsif Style = HBS_ELLIPSE then
end if
ReleaseDC(hwnd,HDC)
c_proc(hPostMessage,{#FFFF,WM_HBCLICKED,0,hwnd})
c_proc(hPostMessage,{hwnd,WM_HBCLICKED,0,hwnd})
elsif msg = WM_DESTROY then
HB_BtnCleanup(hwnd)
end if
return c_func(hCallWindowProcA,{CurParentCB,hwnd,msg,wParam,lParam})
end function
-------------------------------------------
function ParentWndProc(atom hwnd,atom msg,atom wParam,atom lParam)
-------------------------------------------
ParentCB = c_func(hGetPropA,{hwnd,HBPROPCB})
if not ParentCB then
return c_func(hDefWindowProcA,{hwnd,msg,wParam,lParam})
end if
if msg = WM_MOUSEMOVE then
if ACTIVE then
Struct = c_func(hGetPropA,{ACTIVE,HBPROPLP})
if Struct then
poke(Struct + hb_active , 0 )
poke(Struct + hb_hover , 0 )
if not peek(Struct + hb_mstatus) then
c_proc(hInvalidateRect,{ACTIVE,0,1})
ACTIVE = 0
end if
end if
end if
elsif msg = WM_LBUTTONUP then
if ACTIVE then
Struct = c_func(hGetPropA,{ACTIVE,HBPROPLP})
if Struct then
if peek(Struct + hb_mstatus) then
c_proc(hInvalidateRect,{ACTIVE,0,1})
poke(Struct + hb_mstatus, 0 )
ACTIVE = 0
end if
end if
end if
elsif msg = WM_DESTROY then
HB_Cleanup()
end if
return c_func(hCallWindowProcA,{ParentCB,hwnd,msg,wParam,lParam})
end function
CurParentCB = call_back(routine_id("ParentWndProc"))
-------------------------------------------
procedure StartHBClass()
-------------------------------------------
atom wca,hInst,HBCBA
HBCBA = call_back(routine_id("HBWndProc"))
hInst = instance()
wca = allocate(48)
Defaultfont = c_func(hGetStockObject, { 12 } )
mem_set(wca,0,48)
poke4(wca+00,48 )
poke4(wca+08,HBCBA)
poke4(wca+20,hInst)
poke4(wca+32,16 )
poke4(wca+40,WC_HBUTTON)
if not c_func(hRegisterClassEx,{wca}) then
Report(HB_REG_FAIL)
end if
free(wca)
end procedure
StartHBClass()
---------------------------------------------------------
250.
------=_NextPart_000_00BC_01BDAE44.6EEA4D20
charset="euc-kr"
251.
Can anyone tell me why EU fails to notify me of a division
by zero error in an include file? It simply terminates the
program.
Graeme.
252.
I've been working on a scrolling background routine, similar to Woo Seob
Lee's "ARCADE.EX", however I'm working in 800x600x256 colors. Whenever I
load my image (3200x600x256) into memory, it overwrites the operating
system. Could anyone tell me how to allocate a 'safer' block of memory, or
better yet, has anybody already worked this out so I don't have to
re-invent the wheel?
As a side note, and correct me if I'm wrong, I should be able load a bitmap
with a quick & dirty Euphoria code generator and copy the resulting
sequence into my program (hardcode) so there's no file-access delay, right?
That would also keep the bitmap invisible to anyone who isn't currently
running the program. Am I on the right track here?
Brian Jackson
bjackson at xoommail.com
253.
snortboy wrote:
> how do programmers set up large progs so that it all
> comes together when you actually punch out the code?
Two words. Modular programming.
What that means is when I write a game, I start with a basic loop that ends
when the player
presses the ESC key. Everything else goes on inside of here. I generally
use what Rob refers to as "Bottom-up" programming, but I like to call it
"seat-of-yer-pants". Then I fit the pieces in one at a time, usually
starting with the good guys first, then the levels and backgrounds, and
save the bad guys for last. That way, once a particular piece of code
takes shape, I just make it a function and refer to it from my original
loop. I think this has 2 advantages. First, I'm usually pushing my
programming skills to the limit when I start a game, so I need to play
around with an idea as a standalone piece of code before I can incorporate
it into my program. Secondly, when I am finished coding, my loop is a
perfect outline of what's going on in the program- and since I don't make
very good comments, this has saved my butt several times. So when
something goes wrong, I can just comment out 1 function call instead of 200
lines of code, and test to see if that particular function is faulty.
I am currently working on a game, so I'd be more than happy to exchange
ideas with anyone else who has done the same type of thing.
Deuce
bjackson at printinginc.com
254.
h=domainkey-signature:received:received:from:to:date:mime-version:subject:message-id:priority:in-reply-to:references:x-pgp-keyid:x-pgp-web2get:x-pgp-mail2get:x-mailer:content-type:content-transfer-encoding:content-description;
bh=wY9eMse4AsUMrhy3VJa5tYPciQ/WjwBSLWJ8mjiADco=;
b=nhTMZQhTXPkcezjKneSH+NTm2kWPgMIbsf1ciIeVaRkK15wz7pPl+pdxUYXgXeFdN+aR5EJo2z8p80SjLs84Txi43o9mNu6ABUcnVVAYLNy/2LnrADLcLjKSVd/bsSmDbAr0eS9jxRtUn5BD+4UUzDMqn/VEHMaGzLpvjITKUog=
DomainKey-Signature: a=rsa-sha1; c=nofws;
d=gmail.com; s=gamma;
h=from:to:date:mime-version:subject:message-id:priority:in-reply-to:references:x-pgp-keyid:x-pgp-web2get:x-pgp-mail2get:x-mailer:content-type:content-transfer-encoding:content-description;
b=d/H8Fgl/4MnjnLVeAsCv/sPWIOrm/6IuHHOXyiloTIMKoXy2PJfucE854dl5gH/zIuMaTYufFioEtAWmANX5PGGFH4nTGMgKjzJRdL+TYcEENclj0gDnTd1RXSqNUj/7kr+4h2XwKR4Q16SHQWANymlI4DvrhHoKBwUTtES/Q6g=
Received: by 10.150.69.41 with SMTP id r41mr5574597yba.128.1209952103259;
Sun, 04 May 2008 18:48:23 -0700 (PDT)
Received: from ?192.168.0.3? ( [200.159.215.207])
by mx.google.com with ESMTPS id
9sm12121052ywf.2.2008.05.04.18.48.20
(version=TLSv1/SSLv3 cipher=OTHER);
Sun, 04 May 2008 18:48:22 -0700 (PDT)
From: "Euler German" <eulerg at gmail.com>
To: EUforum at topica.com
Date: Sun, 04 May 2008 22:47:58 -0300
MIME-Version: 1.0
Subject: Re: remainder() is not right
Message-ID: <481E3D1E.23029.969FA0 at eulerg.gmail.com>
Priority: normal
In-reply-to: <491977603-1463792126-1209944434 at boing.topica.com>
References: <491977603-1463792126-1209944434 at boing.topica.com>
X-PGP-KeyID: 0xB65367CB
X-PGP-Web2Get: http://pgp.mit.edu:11371/pks/lookup?op=get&search=0xB65367CB
X-PGP-Mail2Get:
<mailto:pgp-public-keys at pgp.uk.demon.net&Subject=GET%200xB65367CB>
X-mailer: Pegasus Mail for Windows (4.41)
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Content-description: Mail message body
> On 4 May 2008 at 16:40, CChris wrote (maybe snipped):
> It returns *a* emainder. When a and b are positive, this is the
> expected value. When signs are otherwise, then a discrepancy appears
> with what, in arithmetic, is called "remainder".
>
> CChris
>
Please, I'm not discussing mathematical discrepancies. I only stated
that remainder(), as described in reference manual, works as said,
thus returning the "left over" of a division, so it can't be told
wrong. I'm NOT saying there's no need for a "signed_remainder()",
though I have no use for it. YMMV.
Some quick explanation at:
- http://en.wikipedia.org/wiki/Remainder
- http://en.wikipedia.org/wiki/Modulo_operation
Best,
Euler
--
_
_| euler f german
_| sete lagoas, mg, brazil
_| efgerman{AT}gmail{DOT}com
_| -----------------------------
_| Reply preferably to the list,
_| or to the address above. Thx!
255.
- Posted by tbone at home.ro
Aug 03, 2002
This is a multi-part message in MIME format.
------=_NextPart_000_0011_01C23B40.187D3640
charset="iso-8859-1"
Could somebody tell me how those "machine_func" and "machine_proc" =
routines work?I mean they are the fundamental routines of Euphoria.They =
do everything.I want to know how to control them.
------=_NextPart_000_0011_01C23B40.187D3640
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2919.6307" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Could somebody tell me how those "machine_func" and=20
"machine_proc" routines work?I mean they are the fundamental routines of =
Euphoria.They do everything.I want to know how to control=20
------=_NextPart_000_0011_01C23B40.187D3640--
256.
they're nothing terribly mysterious. you call machine_func/proc with the
right ID and arguments, the interpreter does something. you shouldn't
try to use these functions yourself. use the library functions instead.
257.
I'm having a little trouble with the gtk lib. I made this function...
function encrypt_textarea_0()
object str
str=get_text(txt)
printf(1,"%s",str)
return NULL
end function
constant encrypt_textarea=call_back(routine_id("encrypt_textarea_0"))
when I click on the button that calls this funtion I get....
Gtk-CRITICAL **: file gtkentry.c: line 535 (gtk_entry_get_text):
assertion `GTK_IS_ENTRY (entry)' failed.
Segmentation fault
from looking at the error, it looks like get_text is for a GtkEntry
widget and not a GtkText object. so my question is ...
how do you get the contents of a GtkText widget a store them in a
sequence?
Ron_W
258.
I have created a multipurpose email program, it has;
* multiple account support, the account system has RC4 data encryption.
*Each user has his own database. so no one can delete or read your
email without logging in.
*it can download mail, from pop3 servers & it can send mail...in
otherwords an enhancement to EECLIENT.ZIP
*IT has definately a better GUI
PROBLEM:
I have read a lot about MIME; i.e BASE64,QUOTED-PRINTABLE Encodings, i
have failed to write algorithms for encoding 8bit data to either base64
or quoted-printable. i looked at unbase64.zip, and failed to make any
sense out of it.
Can any one help me with this? (send me an encoding and decoding
algorithm)
if any one wants to have a look at the email client, email me at
jorfergie03 at yahoo.com
259.
<html><div style='background-color:'><UL>
<LI>I saw that smeone asked about logic expression simplification. I do not know
if there has been an answer to that but here is something:</LI>
<LI></LI>
<LI>There is a kind of algorithm used to simplify circuits (you can find it
in any text about logic circuit design in electronics) that is called
Karnaugh maps. You can use it as long as you have a boolean logic
expression (and, or, not , exclusive or, etc.) and gives you the simplest
one as a result.</LI>
<LI>Hope this helps.</LI>
260.
<html><div style='background-color:'><DIV>
<P><BR>Going back to logic functions simplification, you can visit this
place:</P>
<P><A
href="http://www.cs.byu.edu/courses/cs143/reading/karnaugh.html">http://www.cs.byu.edu/courses/cs143/reading/karnaugh.html</A></P>
<P>you will find a simple and good explanation of the theory.</P>
<P>A description of the algorithm can be found at:</P>
<P><A
href="http://hopper.unco.edu/KARNAUGH/Algorithm.html">http://hopper.unco.edu/KARNAUGH/Algorithm.html</A></P>
<P>Hope this helps. </P>
<P>Carlos Valdés</P>
261.
I'm trying to write a cgi program that sends an an iamge whenever
called. I'm simply doing this:
puts(1, "Location: /isplaying.bmp\n\n")
and then bind with bindw to make a win32 .exe. I can put this in my
cgi-bin directory and (if my server's running of course), this works.
My browser loads whatever the image is on the server, not in cache,
which was my goal. My problem is that, everytime a browser calles it, a
console window flashes and disappears. Is there any way I can keep this
from happening, and have it execute silently? I've scoured the Euphoria
docs, but I suspect its a windows flag to be set or routine to be called
and I know *very* little about that.
262.
I am new at useing EUPHORIA and im open for and suggestive hints in
getting started.
DeathWarrior at Juno.Com
Daniel W. Garrett
263.
- Posted by "Sam L. Garrett" <samlgarrett at JUNO.COM>
Dec 21, 1996
-
Last edited Dec 22, 1996
I just started using Euphoria yesterday, and am still new to the
language. I have written extensive programs in basic and soem decent ones
in assembly. But I like the the way this one handles the data.
Anyway, I was hoping one of you professionals in this language could
help me with something. I like writting comm programs, and having trouble
with this in euphoria. How can you tell if there is any data in the modem
buffer before you use the command to get it?
Thanks,
Sam G.
264.
Heres my first Euphoria Program ive made so far. Take a look and tell me
what you think. It has a 2nd view that im working on thats still
incomplete, but will give you an idea, just press F2 to look at it.
section 1 of uuencode 5.10 of file dw.zip by R.E.M.
265.
- Posted by Nicholas Pastoll <pastollscn at CLEAR.NET.NZ>
Jul 06, 2000
-
Last edited Jul 07, 2000
------=_NextPart_000_0005_01BFE78F.C75F14A0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
------=_NextPart_000_0005_01BFE78F.C75F14A0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
------=_NextPart_000_0005_01BFE78F.C75F14A0--
266.
- Posted by Jacques Deschenes <desja at QUEBECTEL.COM>
Jan 08, 1997
-
Last edited Jan 09, 1997
My wish list for euphoria,
1) preprocessor define and conditionnal,
something like:
DEFINE debug
IFDEF debug
debug code here
ENDIF
2) multidimentionnal slicing, like
let A be a 2 dimensions sequence
sequence B
B = A[2..4][3..6]
Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at quebectel.com
267.
Hello Jacques,
Did you already solve this problem with a self made function?
>
> 2) multidimentionnal slicing, like
>
> let A be a 2 dimensions sequence
> sequence B
>
> B = A[2..4][3..6]
>
MK
268.
- Posted by Jacques Deschenes <desja at QUEBECTEL.COM>
Jan 09, 1997
-
Last edited Jan 10, 1997
--=====================_852879880==_
At 14:25 9-01-97 +0100, you wrote:
>---------------------- Information from the mail header -----------------------
>Sender: Euphoria Programming for MS-DOS <EUPHORIA at
>MIAMIU.ACS.MUOHIO.EDU>
>Poster: Marcel Kollenaar <M.Kollenaar at SLO.NL>
>-------------------------------------------------------------------------------
>
>Hello Jacques,
>
>Did you already solve this problem with a self made function?
>
>>
>> 2) multidimentionnal slicing, like
>>
>> let A be a 2 dimensions sequence
>> sequence B
>>
>> B = A[2..4][3..6]
>>
>
Hi marcel,
I didn't but your question triggered it. See the attachement slice.ex demo
It use recursive call, as the last dimension has to be the first one to be
slice.
--=====================_852879880==_
-- slicing multidimensionals sequence
function slice(sequence s, sequence p)
-- extract a slice from n dimensions sequence
-- input: s sequence to slice
-- p list of slices index in de form {{a1,a2},{b1,b2},...,{z1,z2}}
sequence cut
if length(p) = 1 then
return s[p[1][1]..p[1][2]]
end if
cut = {}
for i = p[1][1] to p[1][2] do
cut = append(cut,slice(s[i],p[2..length(p)]))
end for
return cut
end function -- slice()
sequence a, b, c
a = {1,2,3,4,5}
b = {{1,2,3,10},{4,5,6,11},{7,8,9,12}}
c = {b*2,b*3,b+23}
puts(1,"a = ")
? a
puts(1,"a[2..4] = ")
? slice(a,{{2,4}})
puts(1,"b = ")
? b
puts(1,"b[2..3][2..4] = ")
? slice(b,{{2,3},{2,4}})
puts(1,"c = ")
? c
puts(1,"c[1..2][2..3][1..1] = ")
? slice (c,{{1,2},{2,3},{1,1}})
--=====================_852879880==_
Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at quebectel.com
--=====================_852879880==_--
269.
Hi to All,
I have one problem and is that I want to draw a box in text mode
but I don't Know how to write a good routine for it. The problem is that I
can't fill the box. Can somebody help me?
------------------------------
Thank you.
270.
I am using the getch2 routine supplied in '97 by Ken Roger to read
keyboard input with multiple key presses. It returns, in a sequence, the
status of Shift and CTRL, as well as the char code and the vk code, It
suits my needs very well for everything except CTRL S. Can anyone tell
me why and what to do about it?
Allen
271.
test - ignore
this is to test a post directly from Topica Web Interface
header lines to be confirmed
272.
>Could you post more detail? Either a discussion of your concept, or
Well, I think the way to start out is to try to create a program that
diagrams a euphoria first of all. That is my immediate atttempt.
>a graphic "sample screen" - could draw this with any graphics program -
This morning I was drawing something out. I think a baseline to start
with
(graphically) is a folder...representing the basic folder that the
programs
starts with. Then use links of various kinds, represented by either
static
or animated links (lines etc) tying varous aspects of a euphoria program
together. The next step I would think would be the basic parts of the
program. IE.
The include files.
The definitions/declarations.
The Programmer defined procedures/functions
The Main Loop.
I will try to finish the drawing that I just made, but as the only
decent
graphics utility I have is Corel 4, and I am used to Paint Shop Pro
(which I
love dearly and it keeps timing out on me) I probably won't be able to
send
a picture. I'll try though.
I think Irv that your dos gui is the place to start though, I looked
again at them last night and loved what I saw visually, and it worked
this
time. I haden't kept up with it last time, as I had had a crash with
it,
and gone onto other things. Most Excellent!
I decided last night that I was going to learn your interface and
use
it.
The only thing that I have as far as a program at this point is a bunch
of
little routines for adding lists together (meant to handle commands) and
an
input routine that loads in a program (reads itself really...) I am
going
to study the hash table stuff tomorrow afternoon.
Well, later...Will check back this evening maybe.
Monty
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
273.
Both of these asm libraries support FLOATING POINT INSTRUCTIONS:
http://www.rapideuphoria.com/asm.zip
http://www.rapideuphoria.com/asm2.zip
So why can't you do all your floating calculations and call your
hardware from within a euphoria assembler routine. You don't need
to call a routine for each calculation just do the majority of
work at the assembler level.
Bernie
274.
b=tCwYMKC5Y92i4oLYbpJpjxxrBNJcHI0fs1emGh3t3IsbbJiy/ZufGuTkhl2O7QvZty7Q2=
LyfGC1y0iAUsdLeemhF8h2+8csw1j4sX4hlJXZ6RIq2xb1NCwgrOUykhgqxWDCrZylsOKVJWhTQ=
d5hA7WUAng1f1eGjAs80ciqia/M= ;
Message-ID: <20050115163227.59641.qmail at web41408.mail.yahoo.com>
Received: from [24.217.173.3] by web41408.mail.yahoo.com via HTTP;
Sat, 15 =
Jan 2005 08:32:27 PST
Date: Sat, 15 Jan 2005 08:32:27 -0800 (PST)
From: Christopher Stone <chris_m_stone at yahoo.com>
Subject: Re: SpyWare, etc.
To: EUforum at topica.com
In-Reply-To: <1111320208-1463792638-1105743911 at boing.topica.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Use Spybot and Ad-Aware.
Ad-Aware is at www.lavasoftusa.com.
Spybot is at
http://www.safer-networking.org/en/index.html.
Run both in safe mode and they'll get rid of most of
the spyware.
Chris
--- CoJaBo <guest at RapidEuphoria.com> wrote:
>
>
> posted by: CoJaBo <CoJaBo_EUforum_Address at
> CJBN.net>
>
> Michelle Rogers wrote:
> >=20
> > I had tried Noadware, it found stuff but then told
> me that I had to pay I=20
> Its terrible(and not even free!):
> http://www.adwarereport.com/mt/archives/000023.html
> "Editor Rating: 1 star
>
> Pros
>
> + Attractive and easy-to-use interface
>
> Cons
>
> - Very poor protection against spyware
> - High-pressure sales tactics, including use of
> =93false positives=94 in their free scan
> - May cause legitimate software to stop working
> - Many reports of customers being ripped off"
>
> > forget how much to actually get it to clean it
> off.
> > Michelle Rogers
> > ----- Original Message -----=20
> > From: "CoJaBo" <guest at RapidEuphoria.com>
> > To: <EUforum at topica.com>
> > Sent: Thursday, January 13, 2005 5:16 PM
> > Subject: Re: SpyWare, etc.
> >=20
> >=20
> > > posted by: CoJaBo <CoJaBo_EUforum_Address at
> CJBN.net>
> > >
> > > Michelle Rogers wrote:
> > >>
> > >> Didn't someone mention on here once a free
> spyware removal program? If=20
> > >> so,
> > >> could you give that address again? I can't
> seem to find it. Or, even if=20
> > >> it
> > >> wasn't mentioned and someone knows one, could
> you mention it now? All=20
> > >> the
> > >> ones I find only analyze for free, then you pay
> megabucks to actually=20
> > >> have
> > > Which ones are you using now(if any)?
> > >
> > >> it removed.
> > >>
> > >>
> > >> Michelle Rogers
> > >>
> > >>
>
>
>
>
> For Topica's complete suite of email marketing
> solutions visit:
> http://www.topica.com/?p=TEXFOOTER
>
>
>
=09=09
275.
--=======AVGMAIL-41F79D692077=======
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_009F_01C50404.60504220"
------=_NextPart_000_009F_01C50404.60504220
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
------=_NextPart_000_009F_01C50404.60504220
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1400" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV> </DIV></BODY></HTML>
------=_NextPart_000_009F_01C50404.60504220--
--=======AVGMAIL-41F79D692077=======
Content-Type: text/plain; x-avg=cert; charset=us-ascii
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline
Content-Description: "AVG certification"
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.1 - Release Date: 19/01/2005
--=======AVGMAIL-41F79D692077=======--
276.
How do I clip an image that has been loaded by read_bitmap()?
I am trying to fit a large picture into a 533x370 area.
I have the following section to clip the width that doesn't work.
It does run all of the lines, and length(tmp_img) is 800
if length(tmp_img) > 533 then
tmp_img1=tmp_img[1..533]
tmp_img=tmp_img1
end if
display_image({11,49},tmp_img1)
I thought that it would look like this:
000001111
000001111
000001111
000001111
111111111
111111111
with 0's being the part I want to display
277.
Andrew Mitchell wrote:
>
> How do I clip an image that has been loaded by read_bitmap()?
> I am trying to fit a large picture into a 533x370 area.
> I have the following section to clip the width that doesn't work.
> It does run all of the lines, and length(tmp_img) is 800
>
> if length(tmp_img) > 533 then
> tmp_img1=tmp_img[1..533]
> tmp_img=tmp_img1
> end if
> display_image({11,49},tmp_img1)
>
> I thought that it would look like this:
>
> 000001111
> 000001111
> 000001111
> 000001111
> 111111111
> 111111111
>
> with 0's being the part I want to display
I'm still learning euphoria, but it looks like what your
doing is trimming the last x bytes off of the image :
00000000
00000000
00000000
000000xx
xxxxxxxx
is what your getting, right?
so what you need to do is get the x (higth) and y (width) of your
image (the original)and run, through 2 loops: (psudo code follows)
for h = 1 to 533
for w = 1 t y
if w < 370 then temp_img_2 =apend(temp_image_2,
Original_imag((h*(y-1))+w))
next w
next h
what you want to do is step through the first 533 rows and apend to your
new image every pixel value that is in a colum before #371. and just
skip
all the rest.
I've just begun to learn euphoria so I couldn't write actual
euphoria code, but I'm shure of the basic algorithym.
Kasey
278.
Hi!
I'm now programming in C++,and i don't know what is Euphoria
Please sand me some info
279.
Michal wrote:
>
> Hi!
> I'm now programming in C++,and i don't know what is Euphoria
> Please sand me some info
Just goto Http://members.aol.com/FilesEu
and look around. If theres not enough info there
(it's the homepage for euphoria) following the
links will almost certainaly help.
As a starter Euphoria is a programming
language thats much easier to learn than C++
or java, and it doese all the idiot work I've
always thought should be the job of the language
and not the programmer (ansi c/c++ makes you tell
the compiler a zillion times what a variable is and
what it's for. why? shouldn't once be enough?)
btw how did you wind up on the list without
going learning about euphoria??
anyway you should like euphoria and welcome
to the list.
Kasey
280.
Date: Wed, 25 Mar 1998 12:02:24 -0800
To: LISTSERV at MIAMIU.ACS.MUOHIO.EDU
From: Don Scott <dts33 at lightspeed.net>
I am a Euphoria newbie....I want to save bitmaps in Euphoria format (.bm?).
Can someone let me know how to do that? Is there source code out there to
do that? I'm still alittle confused....I've used the 2.0 tutorial by David
Gay but I'm still fuzzy...Thanks for any help!
Thanks,
Don Scott
GM, WLUHL Sierra Spiders
GM, WWHL Tampere Tankards/Yosemite Grizzlies
http://userzweb.lightspeed.net/~dts33
281.
Don Scott wrote:
>
> Date: Wed, 25 Mar 1998 12:02:24 -0800
> To: LISTSERV at MIAMIU.ACS.MUOHIO.EDU
> From: Don Scott <dts33 at lightspeed.net>
>
> I am a Euphoria newbie....I want to save bitmaps in Euphoria format (.bm?).
> Can someone let me know how to do that? Is there source code out there to
> do that? I'm still alittle confused....I've used the 2.0 tutorial by David
> Gay but I'm still fuzzy...Thanks for any help!
>
> Thanks,
> Don Scott
> GM, WLUHL Sierra Spiders
> GM, WWHL Tampere Tankards/Yosemite Grizzlies
> http://userzweb.lightspeed.net/~dts33
I'm not shure what you mean by "save bitmaps in Euphoria format"
you can load and save regular windows bitmap (*.bmp) file with the
libraries that come with euphoria and there are several libraries for
gif
and pcx loading/saving.
there's also a lib out there for translating a bmp file into
an include file (although a pretty big one) if that's what your trying
to do.
As far as I know(which really insn't that far) there's no specific
image format just Euphoria program(er)s.
If your trying to figure out how euphoria's lib.s use/store bitmap and
pallete info, the library.doc file explains this I believe. (in your
/euphoria/doc
directory)
Start at euphoria's homepage ( http://members.aol.com/FilesEu ) and
look
in recent user contributions and the archives for the above mentioned
programs.
282.
--=====================_890889750==_
I have tried the include file (which would work great) but the code for the
include file asked to include "ebm.e"....which is not on my hard
drive....the include file is included on this email (I thinkI overused the
word include!
At 03:06 PM 3/25/98 -0600, you wrote:
>Don Scott wrote:
>>
>> Date: Wed, 25 Mar 1998 12:02:24 -0800
>> To: LISTSERV at MIAMIU.ACS.MUOHIO.EDU
>> From: Don Scott <dts33 at lightspeed.net>
>>
>> I am a Euphoria newbie....I want to save bitmaps in Euphoria format (.bm?).
>> Can someone let me know how to do that? Is there source code out there to
>> do that? I'm still alittle confused....I've used the 2.0 tutorial by David
>> Gay but I'm still fuzzy...Thanks for any help!
>>
>> Thanks,
>> Don Scott
>> GM, WLUHL Sierra Spiders
>> GM, WWHL Tampere Tankards/Yosemite Grizzlies
>> http://userzweb.lightspeed.net/~dts33
>
> I'm not shure what you mean by "save bitmaps in Euphoria format"
>you can load and save regular windows bitmap (*.bmp) file with the
>libraries that come with euphoria and there are several libraries for
>gif
>and pcx loading/saving.
> there's also a lib out there for translating a bmp file into
>an include file (although a pretty big one) if that's what your trying
>to do.
> As far as I know(which really insn't that far) there's no specific
>image format just Euphoria program(er)s.
> If your trying to figure out how euphoria's lib.s use/store bitmap
and
>pallete info, the library.doc file explains this I believe. (in your
>/euphoria/doc
>directory)
> Start at euphoria's homepage ( http://members.aol.com/FilesEu ) and
>look
>in recent user contributions and the archives for the above mentioned
>programs.
>
>
--=====================_890889750==_
283.
- Posted by Ralf Nieuwenhuijsen <nieuwen at XS4ALL.NL>
Mar 25, 1998
-
Last edited Mar 26, 1998
|I am a Euphoria newbie....I want to save bitmaps in Euphoria format (.bm?).
|Can someone let me know how to do that? Is there source code out there to
|do that? I'm still alittle confused....I've used the 2.0 tutorial by David
|Gay but I'm still fuzzy...Thanks for any help!
Look the function "read_bitmap" up in library.doc
Hope this helps.
Ralf N.
Example usage:
-- Example use of bitmap routines
object temp
temp = graphics_mode (19) -- We're now into MCGA 320*200 256c
if temp = -1 then
puts(1, "You need a videocard!\n")
abort(1)
end if
-- Notice the double slash.. means just one slash
-- but the slash is an escape character when quoted
temp = read_bitmap ("c://windows//arcade.bmp")
if atom(temp) then
-- The atom value returned is the error number
puts (1,"Some error occured!!")
abort(1)
end if
-- Setting pallete, with a 0 - 63 scale
-- Instead of a 0 - 255 scale, so divide by 4
all_pallette (temp[1]/4)
-- The second element of temp contains the picture data
-- We'll display it at the top of the screen (0,0)
display_image ({0,0}, temp[2])
-- End of example program
284.
Can i create executable files in Euphoria ?
If yes please send me an help how i do it.
Thanx,
Tachood
.///.
(0 o)
-------------0000--(_)--0000---------------
tachood at jc-pc1.jicinet.cz
oooO Oooo
-------------( )-------( )---------------
\ ( ) /
\_) (_/
285.
Michal wrote:
>
> Can i create executable files in Euphoria ?
> If yes please send me an help how i do it.
> Thanx,
> Tachood
>
> tachood at jc-pc1.jicinet.cz
If you want to make your euphoria program a stand alone exe (i.e.
so you don't have to type ex program.ex) use bind. it'll turn your
program.ex into program.exe.
Bind and bind.doc(the manual for bind) came with euphoria when
you downloaded it.
If you mean somthing else I'm sorry I didn't understand it.
Kasey
286.
Whoops,
Sorry, it had to do with the DB_LOCK thing,I fixed it, sorry.
Jason Dube
287.
Hi!
I am working on a Euphoria interpreter written in Object Pascal. (Same
speed as C, but probably less bugs . Its name will be "Prophoria" --
Professional Euphoria. It will add some new features to the language:
- call by reference:
procedure foo(to sequence s) -- should I use keyword "to" to indicate
-- by reference?
foo()
end procedure
- dot notation: seq.x -- just syntactic sugar for seq[x]
- end: s[1..end] -- same as s[1..length(s)] (func(s, 1, end) will not be
possible!)
- declare variables anywhere you want and initialize them:
integer x = 0, y = 1
- more standard functions: abs(), sqr(),
- a case statement:
case seq
of {1,2,3} do ...
of {5..10} do ...
else ...
end case
- a for in statement:
for x in seq do x = 0 end for
I look for programmers who have programming experience in Object Pascal
and knownledge about compilers.
Prophoria will be an interpreter and a translator (translates Euphoria
to Pascal/C)
I do not like anything like macro or stupid C-like assignment operators
that will lead to unreadable code:
if (i := getc(0) ) = 0 then ... end if -- this is ugly, and not
Euphoria-like.
If anyone is interested, please write to: pfropfen at gmx.net
(I have already written a lightning fast scanner for Prophoria and am
working on the parser.)
Regards
Andreas Rumpf
288.
let him alone! put out the flames! SHUT UP! okay, he said he's sorry.
_________________
When it comes to programming languages, Euphoria is a cut above
matt1278 at juno.com Euphoria programmer
Webbers: <A HREF="mailto:prezsoft at juno.com">prezsoft at juno.com</A>,
president of SoftCo. All virus proggers should die horrible deaths™
289.
... my .02...
I thought about using windows, and a thought struck me: go into your
system.ini, my people with windows, and look at your shell line. That is
your GUI. The challenge: Make a new GUI. Make your favorite look, using
the windows KERNAL. Because all your progman.exe or explorer.exe is is
the thing feeding the info into the kernal. To my knowledge, and I will
try this, you can run a program from that shell= line. ANY program. for
example, windoze, by Irv, is a shell. those graphics are from things
like DLL's. SO, you can go and make your own GUI in that, LIKE you can
windows.
Now, for those who want to test this: DON'T! let me crash-proof it
first. Then, when the OK is passed, let's make a 32-bit GUI for our
windows '95/98. (I was gonna sat 16-bit, but the euphoria library hasn't
got all the things to connect to 16-bit DLL's. BUT, can I be wrong?)
the best of wishes,
-- "LEVIATHAN" with a scattered writing style.
(BTW, the list rejected the message, so if you see this again, sowwiez!)
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
290.
Have been trying to use gds32.dll, the Firebird/Interbase dll, in EU
programs, but utterly stymied.
Has anyone done this? What's up with this DLL?
Thanks
Mark
291.
Has anyone come up with a library for using the internet?
I want to write a long term strategy game playable online. Here's how it
would work: I'd establish an email address or a site of some sort to serve
as a middle man. Every day, say around 1am, I'd log on and my central
program would download and process the encypted messages posted the
previous day by each player's client program, then it would post for each
player his or her view of the aftermath, which would be received by the
clients, and so forth. Alternately, I might divide the day into phases,
movement, build, attack, etc, but you get the idea. I realize I could just
use attached files to be fed to the software manually, but I'd much rather
let the program handle the downloading itself, if possible.
Any information or advice would be appreciated.
292.
>Has anyone come up with a library for using the internet?
This is a job for WinInet.dll. I've coded some routines to access FTP
servers using this nice DLL (provided by Microsoft). You'll be restricted to
Win32.
Go to Microsoft site and search for "wininet", there you'll get the API
reference.
Regards,
Daniel Berstein
daber at pair.com
293.
This is a programer that goes with his wife to a simposium at NY.They
arrive to the hotel and when they are downloading their packages from
the cab...the programer says to his wife:
-Honey,it's strange but you told me that we had 10
packages....and we only have 9!!!
-Dear,it's impossible! we have 10!
He reply - No!look,count with me....0,1,2....
:)
It's a great joke!
Regards,
- Luis -
294.
Hello,
I am writing a safe lock emulator, but I have a couple of problems.
1. When I click differant areas ove a bitmap it sometimes registers
twice. - Not sure how to prevent this.
2. Part of the bitmap there is an LED. Is there a way I can make it
appear to blink on a mouse click without loading a whole second bitmap.
Find my code at www.locksdownunder.com/LaGard.zip
Any help or comments on a better way to do this would be appreciated
Thanks
Tony
295. Re:
> 2. Part of the bitmap there is an LED. Is there a way I can make it
> appear to blink on a mouse click without loading a whole second bitmap.
That sounds pretty easy, as long as you're not stretching the bitmap.
For this, I'll assume the LED is "ON" in the bitmap, and that you know
the dimensions of the LED (x, y, cx, cy) in the bitmap. Remember, (0,
0) is the upper-left corner of the bitmap/window, and cx and cy are
the width and height.
1. Create a Pixmap the size (cx, cy) of the LED, name it LedOff or somethin=
g
2. Draw the "OFF" image onto the Pixmap
3. Create another Pixmap (same size) and bitBlt the LED "ON" image
from the bitmap onto it, name it LedOn or something
4. When the mouse event or whatever occurs, copyBlt the LedOff Pixmap
to the (x, y) position on the window over the bitmap, then copyBlt the
LedOn Pixmap back when needed
Note on bitBlt vs copyBlt: The reason you need to use bitBlt on #3 is
because you have to grab only *part* of the bitmap, whereas you're
copying the entire Pixmap in #4. Just thought I'd clear that up ahead
of time.
~Greg
296.
by TDIMSO27.backend.tdata.com.ar
(iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
with ESMTPA id <0HN600FYZQUF5M at TDIMSO27.backend.tdata.com.ar> for
EUforum at topica.com; Wed, 22 Oct 2003 22:01:28 -0300 (GMT)
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Simple eusql prog now works - kinda
lla
vundefinedundefined) Gecko/20030624
I hadn=B4t been following this threat but you create a variable named data=
=20
and you don=B4t assing anything to it, and then pass it in the=20
get_record function. What are u passing if data contains nothing? :)
That=B4s the error.
ronaustin at alltel.net wrote:
>=20
>=20
> Thanks to Matt I saw the error of my way and now have a new simple=20
> program that does write records to the eusql database.
>=20
> include database.e
> include eusql.e
>=20
> sequence dbname,
> tname,
> ok,
> code, -- code=20
> descrip, -- descripton
> categ -- category
>=20=09=20
>=20=09=20
> dbname =3D open_db("TEST.EDB")
> tname =3D "DIAG"
> code =3D "V43.1"
> descrip =3D "Psudoaphakia"
> categ =3D "Surg"
>=20=20=20=20=20
> ok =3D insert_record(dbname,tname,blank_record(dbname,tname),
> {code,descrip,categ},{{1},{2},{3}})
>=20
> close_db (dbname)
>=20
> Before I started dancing around and throwing my hat in the air I thought=
=20
> I should try to read a record out of the database. Alas, this program=
=20
> don't work.
>=20
> include database.e
> include eusql.e
>=20
>=20
> sequence ok,
> dbname,
> tname,
> data
>=20
> integer key
> key =3D 1
>=20
> dbname =3D "TEST.EDB"
> tname =3D "DIAG"
>=20=09=09=20=20=20=20=20
> ok =3D open_db(dbname)
> ok =3D get_record(dbname,tname,"V43.1",data,key)
> puts(1,data)
>=20
> close_db (dbname)
>=20
> I get an error that says,"variable data not defined". Can someone tell=
=20
> me why?
>=20
> In the database I have an index for all three fields. I'm trying to use=
=20
> the code for the key and I have the key set to 1.
>=20
> If I wanted to find by diagnosis do I replace the "V43.1" with what I'm=
=20
> looking for and change the key to 3?=20=20
>=20
> (Since the index table is sorted in alph order, the indexes are 1 =3D=
=20
> code, 2 =3D category and 3 =3D Description)
297.
by TDIMSO27.backend.tdata.com.ar
(iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
with ESMTPA id <0HN600FYZQUF5M at TDIMSO27.backend.tdata.com.ar> for
EUforum at topica.com; Wed, 22 Oct 2003 22:01:28 -0300 (GMT)
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Simple eusql prog now works - kinda
lla
vundefinedundefined) Gecko/20030624
I hadn=B4t been following this thread but you create a variable named data=
=20
and you don=B4t assing anything to it, and then pass it in the=20
get_record function. What are u passing if data contains nothing? :)
That=B4s the error.
ronaustin at alltel.net wrote:
>=20
>=20
> Thanks to Matt I saw the error of my way and now have a new simple=20
> program that does write records to the eusql database.
>=20
> include database.e
> include eusql.e
>=20
> sequence dbname,
> tname,
> ok,
> code, -- code=20
> descrip, -- descripton
> categ -- category
>=20=09=20
>=20=09=20
> dbname =3D open_db("TEST.EDB")
> tname =3D "DIAG"
> code =3D "V43.1"
> descrip =3D "Psudoaphakia"
> categ =3D "Surg"
>=20=20=20=20=20
> ok =3D insert_record(dbname,tname,blank_record(dbname,tname),
> {code,descrip,categ},{{1},{2},{3}})
>=20
> close_db (dbname)
>=20
> Before I started dancing around and throwing my hat in the air I thought=
=20
> I should try to read a record out of the database. Alas, this program=
=20
> don't work.
>=20
> include database.e
> include eusql.e
>=20
>=20
> sequence ok,
> dbname,
> tname,
> data
>=20
> integer key
> key =3D 1
>=20
> dbname =3D "TEST.EDB"
> tname =3D "DIAG"
>=20=09=09=20=20=20=20=20
> ok =3D open_db(dbname)
> ok =3D get_record(dbname,tname,"V43.1",data,key)
> puts(1,data)
>=20
> close_db (dbname)
>=20
> I get an error that says,"variable data not defined". Can someone tell=
=20
> me why?
>=20
> In the database I have an index for all three fields. I'm trying to use=
=20
> the code for the key and I have the key set to 1.
>=20
> If I wanted to find by diagnosis do I replace the "V43.1" with what I'm=
=20
> looking for and change the key to 3?=20=20
>=20
> (Since the index table is sorted in alph order, the indexes are 1 =3D=
=20
> code, 2 =3D category and 3 =3D Description)
298.
h=domainkey-signature:received:received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
bh=2o8AIYoi6IJuRmUBHIjCi1m4kUcJ3EpI3VCfd8TyA9c=;
b=p6oKYvZUyXyfK4sRsnnXxI1Rgt9JuVI80qjcHZnw2NW9wvyg0StDogKS1TacmrpDu2zB+lBCYaSdZPLwhA/s6ssBH2pwn1KKEhEKhtas+zsrjNv9Y7qB7A2r8tVMU141/NUMCAyhuTXuGWf6XM+3/57+bltV6b0oMxQMaCgF5e8=
DomainKey-Signature: a=rsa-sha1; c=nofws;
d=gmail.com; s=beta;
h=received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
b=lrMSAw/dzWkk2l7Y82yp9AtkgHDE2BDE0CS8CjJwUDV1oZsW6d5daU/ktoFAfNw5g9E/fjR887xay3hi+3BFi7w7VL1rU3x6eVe6BItM3mU4axHVloHit9b30tFm6JeJ0pg/60bXYCCR/+FLfNk9TeYgQ6gxfQpWzPKCEKq1lhw=
Received: by 10.66.220.12 with SMTP id s12mr5349853ugg.1194320878294;
Mon, 05 Nov 2007 19:47:58 -0800 (PST)
Received: by 10.67.22.20 with HTTP; Mon, 5 Nov 2007 19:47:58 -0800 (PST)
Message-ID: <5f27691c0711051947j5d625d8ema1530eb3e56314e9 at mail.gmail.com>
Date: Mon, 5 Nov 2007 20:47:58 -0700
From: "codepilot Gmail Account" <codepilot at gmail.com>
To: EUforum at topica.com
Subject: Re: C to EU Translator
In-Reply-To: <996636586-1463747838-1194199112 at boing.topica.com>
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_Part_24843_19006174.1194320878291"
References: <996636586-1463747838-1194199112 at boing.topica.com>
------=_Part_24843_19006174.1194320878291
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
I'll look at the stucture thing more, and also see how involved a complete C
processor would be.
Daniel
On 11/4/07, Chris Bensler <guest at rapideuphoria.com> wrote:
>
> ============ The Euphoria Mailing List ============
>
>
> posted by: Chris Bensler <eu at creativep?rta?.ca>
>
> codepilot Gmail Account wrote:
> >
> > Hmm. Maybe I should make it do macros and structures? Good idea! I have
> > already done COM. I know that macros can do a lot of things, should they
> > turn into functions? At some point a full blown C to Euphoria translator
> > needs to be made, because made H files have things that aren't as cut
> and
> > dry as a simple specification of call point entries/types/constants.
> Many of
> > the macros do a lot of work precompile that would make much sense in run
> > time, in euphoria as functions. And I really can't think of a good way
> to do
> > structures, maybe some ideas would be good.
>
> In previous attempts at making a C2EU translator, I aimed for a hybrid
> system involving several steps. Something like Auto->Manual->Auto->Manual.
> All in all I thought it was quite successful, but the process was still
> fairly labour intensive. Eg. All macros that were determined not to be
> constant values, were simply output as commented code. There were also
> portions of code that I didn't know how to handle correctly at the time or
> the translator was too dumb to handle, so I made a line matching cache,
> which the user would be prompted to manually convert a given line and the
> two would would then be stored in the cache file for later uses, without
> having to re-enter that line conversion again.
>
> This system had a few main drawbacks though. Mainly it only produced a
> single state of the api. Eg. Win98 and Ansi
> Producing another state would require going through the entire process
> again and having multiple versions of the API to deal with.
>
> It's been a while since I was working on it, but IIRC, there is 3 basic
> types of macros: constants, functions, and fragments
> Constants are fairly easy to determine, but to be able to identify
> functions from fragments, the translator must be capable of validating the C
> code as being self contained. Essentially this means that the translator
> must be capable of processing C code 100%.
>
> Structures are fairly difficult to process from the C code as well. It
> requires a fairly complete processor to be able to handle all possible
> occurances. For conversion to Euphoria, there is various methods that could
> be used for the generated structures. Win32lib uses it's own system of
> store/fetch I beleive. I think Bernie Ryan created a structure library made
> of machine code. And I wrote a structure emulation library.
>
> Chris Bensler
> Code is Alchemy
------=_Part_24843_19006174.1194320878291--
299.
for <EUforum at topica.com>; Fri, 8 Aug 2003 12:05:24 -0400 (EDT)
charset=3D"iso-8859-1"
From: George Walters <gwalters at sc.rr.com>
Subject: Re: Text lines into an array of unknown size
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>
i would try
tx =3D append(tx,line)
george
----- Original Message -----
From: <kjactive at adslhome.dk>
To: "EUforum" <EUforum at topica.com>
Subject: Text lines into an array of unknown size
as new commer from rexx to Euphoria I see many nice and semilare options an=
d
a richness of WinOS options but I have some
basic newcommer problems on 'sequence a array'
I want to open a file of text of unknown size and put all lines into an
array where every line can be manipulated but I cannot get it right...
integer file
object line
constant ERROR =3D 2
integer c
c =3D 0
sequence tx
file =3D open("c:/rexx/rxcalibur.txt", "r")
if file =3D -1 then
puts(ERROR, "couldn't open text file\n")
else
while 1 do
line =3D gets(file)
if atom(line) then
exit
end if
c =3D c + 1
tx[c] =3D line
end while
end if
close(file)
printf(1,"available lines:%d\n", {c}) -- correct
printf(1,"%s\n",tx[2]) -- ERROR
Where do I get it wrong!!! Probably a newcommers init problem but I would
like some explane...
K=E5re Johansson
TOPICA - Start your own email discussion group. FREE!
300.
by TDIMSO03.backend.tdata.com.ar
(iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
with ESMTPA id <0HJM006CCK9W46 at TDIMSO03.backend.tdata.com.ar> for
EUforum at topica.com; Thu, 14 Aug 2003 16:46:50 -0300 (GMT)
Gecko/20030624
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Win32 File Attribute Modification
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>
Hi Ted,
I think this function should work (it's untested, if it doesn't work=20
let me know):
--Start of untested code--
include dll.e
constant krn32 =3D open_dll("kernel32.dll")
constant xSetFileAttributes =3D=20
define_c_func(krn32,"SetFileAttributes",{C_POINTER,C_POINTER},C_INT)
constant FILE_ATTRIBUTE_ARCHIVE =3D 32,
FILE_ATTRIBUTE_COMPRESSED =3D 2048,
FILE_ATTRIBUTE_NORMAL =3D 128,
FILE_ATTRIBUTE_DIRECTORY =3D 16,
FILE_ATTRIBUTE_HIDDEN =3D 2,
FILE_ATTRIBUTE_READONLY =3D 1,
FILE_ATTRIBUTE_SYSTEM =3D 4,
FILE_ATTRIBUTE_TEMPORARY =3D 256,
FILE_ATTRIBUTE_SPARSE_FILE =3D #200,
FILE_ATTRIBUTE_REPARSE_POINT =3D #400,
FILE_ATTRIBUTE_OFFLINE =3D #1000,
FILE_ATTRIBUTE_NOT_CONTENT_INDEXED =3D #00002000,
FILE_ATTRIBUTE_ENCRYPTED =3D #4000
global function SetFileAttributes(sequence name, atom attribs)
atom ptr
integer ret
ptr =3D allocate_string(name)
ret =3D c_func(xSetFileAttributes,{name,attribs})
free(ptr)
return ret
end function
--End of code--
Example should be like:
x =3D=20
SetFileAttributes("test.txt",or_all({FILE_ATTRIBUTE_HIDDEN,FILE_ATTRIBUTE_R=
EADONLY}))
or
x =3D SetFileAttributes("test.txt",FILE_ATTRIBUTE_NORMAL)
Best Regards,
Guillermo Bonveh=ED
Ted Fines wrote:
>=20
>=20
> Hi all,
>=20
> I need to modify some file attributes, but don't want to do a=20
> 'system("attrib ...")' call. Something like result =3D=20
> setFileAttr(myfile,attribs) is what I'm looking for.
>=20
> I searched the archive for libraries for dealing with file attributes,=
=20
> but only found info on looking at file attributes, not modifying them.=
=20=20
> Has someone come up with something I just missed?
>=20
> Thanks,
> Ted Fines
>=20
>=20
>=20
> TOPICA - Start your own email discussion group. FREE!
>=20
>=20
>=20
301.
by TDIMSO14.backend.tdata.com.ar
(iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
with ESMTPA id <0HJM00KEFKFPHE at TDIMSO14.backend.tdata.com.ar> for
EUforum at topica.com; Thu, 14 Aug 2003 16:50:16 -0300 (GMT)
Gecko/20030624
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Win32 File Attribute Modification
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>
I've just saw Jurgen's code, and i saw that if forgot to add the latest=20
A to SetFileAttributes, it should be SetFileAttributesA.
Hope some of the codes help.
Best Regards,
Guillermo Bonveh=ED
Ted Fines wrote:
>=20
>=20
> Hi all,
>=20
> I need to modify some file attributes, but don't want to do a=20
> 'system("attrib ...")' call. Something like result =3D=20
> setFileAttr(myfile,attribs) is what I'm looking for.
>=20
> I searched the archive for libraries for dealing with file attributes,=
=20
> but only found info on looking at file attributes, not modifying them.=
=20=20
> Has someone come up with something I just missed?
>=20
> Thanks,
> Ted Fines
>=20
>=20
>=20
> TOPICA - Start your own email discussion group. FREE!
>=20
>=20
>=20
302.
id <20030820061218.YPDI22338.tomts9-srv.bellnexxia.net@RapidEupho=
ria.com>
for <EUforum at topica.com>; Wed, 20 Aug 2003 02:12:18 -0400
0030624 Netscape/7.1 (ax)
From: Robert Craig <rds at RapidEuphoria.com>
Subject: Re: CChris' file
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>
CChris wrote:
> Beware the long post...
I'll give a quick opinion on each item.
> The following is a commented list of features that I'd find desirable
> in Eu 2.5.
>=20
> A/ Variable management
>=20
> 1/ Pass by reference in routines
>=20
> Description: when some code calls a routine, the routine may update so=
me vars=20
> whose references were passed to it.
I know PBR is convenient in some cases, but
currently the only way to modify a variable is
by directly assigning to it (or passing a value to a parameter).
I do not want any indirect, sneaky ways in which a variable can
be modified. Aliasing (two different names for the same thing) is bad.
Programming is simpler when you only have to think about values, not
storage locations that can be "pointed at" in various ways.
> 2/ Variable sharing
>=20
> Description: enable two or more routines to access a symbol which is n=
ot local=20
> (filewide) or global.
>=20
> Syntax: share x with rt1 [as y ][in file]
> When this code is found in the declarations of routine rt2, the symbol=
x is also made available
> to the routine rt1. x would be seen in rt1 as x if no "as" clause is ther=
e, pr as y
> otherwise. The routine rt1 may be in another file, in which case the "fil=
e" clause is needed.
> x must have been declared before being shared.
Not necessary.
People can barely understand the scope rules as they are.
> 3/ Static variables in routines
>=20
> Description: Allow routines to keep track of the values of private sym=
bols between executions.
>=20=20=20=20
> Syntax: static <type> <var-list>
> In order for a static variable to be initialized before it's first rea=
d,
> uninitialized variables should be handled.
A frill that would add some complexity
to address a trivial scope issue.
Just use file scope to retain the values.
> 4/ Allow uninitialized symbols to be passed to and returned=20
> from routines
>=20
> So that initialization routines can be used. Obviously, reading the va=
lue=20
> of an unitialized symbol will raise an error.
Currently, variables must be initialized before being used.
Why introduce the concept of an uninitialized variable
that can still be used. What problem are you trying to solve?
Is this another form of PBR?
> 5/ Arraying of symbols
>=20
> Description: allow symbols to be referenced by a sequence
>=20
> Syntax: array arrname v1[,v2,....]
> This would create a sequence arrname whose first element aliases ident=
ifier v1,=20
> the second, if any, the symbol v2, and so on. This statement is a declara=
tion statement.
>=20
> The idea of this, aas well as its usefulness, comes from the SAS langu=
age.
No aliases, please.
> 6/ Namespace hierarchy
>=20
> Description: Ensures that two symbols without a namespace don't collid=
e when this was not meant.
> When two or more global symbols are identified by the same string, Eu =
considers it an error,
> since it can't tell which one is meant. But such collisions may come from=
> conflicting names in unrelated libraries.
> A simple solution is to adopt rules for choice, issuing a warning for =
the
> programmer's information. The rules could be:
>=20
> a/ A conflict between explicitly namespaced symbols is an error condit=
ion;
> b/ Let the distance between two files be the minimal numbe of include =
statements that allows=20
> the two symbols to clash. Then, only consider the symbols which were defi=
ned
> in the closest file(s).
> c/ In case of ties, a linear link will take precedence over a broken l=
ink.
> A linear link means that the symbol is defined in a file that directly or=
indirectly
> includes or is included by the one in which the reference is being resolv=
ed.
> d/ In case of a tie, and if the links are of the same direction, an er=
ror must be raised.
> It means that two libraries define the same symbol, and more info is need=
ed.
> e/ The remaining case is when a symbol is defined both in a file inclu=
ding the current file and
> in a file included in the current one. Then, the downward link (the latte=
r) is to be
> preferred.
Too complicated.
People already have trouble understanding the current
rules for namespacing.
Most programs do not even need the namespace feature.
I'm already planning to do Matt Lewis's refinement.
I don't see accidental collisions as a big issue,
or even a small issue.
> 7/ Scoped symbols
>=20
> Descriptio: some symbols may be defined in a portion of routine/main c=
ode only.
> Syntax: scope <var decls> ... endscope
> Note that C-style braces, much easier to type, can't be used in Eu.
This level of scope control is too detailed.
It's not needed, and will add to people's confusion.
> B/ Routine management
>=20
> 1/ Forwarding.
>=20
> Description: Allows to use a routine before it is defined.
> Syntax:=20
> forward function f([args])
> ....
> x=3Df(something)
> ...
> function f
> ...
> code defining the function
> ...
> end function
>=20
> The alternative in 2.4 is to use call_proc/func, which obfuscates the =
code.
We crossed that bridge a long time ago.
Not interested.
> 2/ Allow discarding of function return values.
>=20
> Description: It is sometimes useful to call a function as if it were a=
procedure.
> Syntax: ~thefunc([args])
> where thefunc is a function.
Maybe. A small issue. No objection in principle.
> 3/ Return of several symbols.
>=20
> Descritption: Allow function to simultaneously update several variable=
s.
> Syntax: {x,y,....z}=3Df([args])
> f must return a sequence each element of which is assigned to the corr=
esponding variable.
> Extra returned values are to be ignored.
I looked at that carefully a few years ago, and eventually grew
tired of the idea, but I wouldn't rule it out.
> 4/ Optional parameters.
>=20
> Description: Allow the optional specification of parameters in routine=
calls.
> SQyntax: <routine> r([normal parms])([optional parms])
> And, when called, the optional parameters may or may not be passed.
Like many other suggestions above, it's a refinement that adds a bit
of complexity to the language and thickens the manual,
in exchange for some minor convenience in rare cases.
> 5/ Default values for arguments.
>=20
> Description: Allow to skip the most frequent value for a routine argum=
ent.
> Syntax:=20
> <routine> r(integer x=3D32767,sequence s)
> ....
> end <routine>
> ...
> y=3Dr(,s) --argument x is 32767
> Obviously, the comma is optional when no defaulted argulment is follow=
ed by a non-defaulted argument.
See previous comment.
> 6/ Named parameters
>=20
> Description: Allow parameters to be passed as name=3Dvalue.
> Named and unnamed arguments cannot be mixed in just any way.
See previous comment.
> 7/ Nested routines
>=20
> Description: For nested routines, the code of the routine they are def=
ined in
> behaves exactly as the code outside a routine for a non-nested routine.
> Syntax:=20
> sequence t
> .....
> routine r1(...)
> integer i
> sequence s
> routine r11(....)
> integer i
> ...
> end routine
> ...
> end routine
>=20
> In the example above, both routines r1 and r11 can see the sequence t=
=20
> as a public variable. If i is defined outside r1, r1 does not see this sy=
mbol.
> It defines another i that shadows the public i. Likewise, r11's i shadows=
r1's i.
> Retrieving the value of a shadowed symbol may resuire a special syntax=
.
> Normally, a nested routine is only called by the routine in which it i=
s nested.
> This limitation might be relaxed in some cases.
I've used languages with nested routines, and they are useful sometimes,
but I think the language definition is much easier to understand when
all routines are non-nested.
> 8/ Routine_ids for builtins.
>=20
> Description: routine_id() will return a value even for built-in routin=
es.
No reason why that hasn't been done.
I might get around to it. Not a huge demand.
> 9/ Routine redefinition.
>=20
> Description: Coding a routine with the same name as a built-in or othe=
rwise
> previously specified routine would not cause an error, but the new routin=
e
> would be called instead of the former, hijacking its routine_id.
>=20
> Syntax:
> No special synntax required.
> recover <routine decl> would undo all previous redefinitions.
"Hijacking" sounds like a recipe for confusion.
> Note that nested routines, shared and static variables will greatly re=
duce
> the use of global syymbols, hence alleviating the namespace collisiion pr=
oblem.
I don't think there is much of a collision problem to alleviate.
> C/ Instruction flow cntrol
>=20
> 1/ Optional argument for the exit statement.
>=20
> Description: Breaks out of several loop levels at the same time.
> Syntax: exit [arg]
> Arg may be:
> a/ A positive number, which is the extra number of loop levels to l=
eave.
> b/ A negative number, counting the loop levels from the top down. T=
hus,
> exit -1 means "exit the topmost loop".
> c/ exit 0 can be tolerated as a synonym for plain exit.
> d/ A label name, provided loops can be labelled.
> e/ A for loop indexvariable name.
>=20=20=20=20=20=20=20
> 2/ Next statement
>=20
> Description: Skips the rest of the designated loop and start a new ite=
ration.
> Syntax: next [arg]
> Same choices of [arg] as for exit.
>=20=20=20=20
> 3/ Retry statement
>=20
> Description: Restarts the current iteration of the designated for loop=
.
> Syntax: retry [arg]
> Same rules as above.
> retry does not quite make sense for while loops, since it would duplic=
ate next.
> So, it will count for loops only. This special behaviour might not be des=
irable=20
> if a repeat ... until construct is immplemented, because retry and next w=
ould have=20
> different meaning there..
>=20
> 4/ Exif statement
>=20
> Description: Same as exit, but applies to if blocks.
I have no philosophical objection to these.
It's just a question of how often they are useful.
As a minimalist, I have avoided them, and probably
will continue to avoid them.
> 5/ Select statement=20=20=20
>=20
> Description: Allows a decision to be made in more than two ways.
> Syntax:
> select <expr>
> case x1: code to execute if the value of expr is x1
> case x2: ...
> case x3 thru x4:
> case <5
> case f(v,_)=3D0:
> ....
> [otherwise
> ....]
> end select
>=20=20=20=20=20=20=20
> Each option inside the select statement is a case statement. A wide ra=
nge
> of ways to specify conditions can be devised, including using the anonymo=
us _=20
> symbol in complex constructs.
> The optional otherwise clause is executed if no case statement caused =
the=20
> program flow to break out of the select statement.
> Flow goes from ne case statement to the next, except when the break ke=
yword=20
> causes control to be passed to the statement following the closing end se=
lect statement.
In the early days I was considering adding a case statement,
but there was never a big user demand for it. I don't regret
leaving it out.
> 6/ xwhile loop
>=20
> Description: same as a while loop, except that exit occurs as soon as
> the condition specified in the xwhile statement is no longer true, withou=
t the need
> for endlessly repeating tests.
Not sure I understand.
> 7/ Exception handling
>=20
> Description: When some condition occurs, execute a specific handler.
> Syntax: setExcHandler(condition_code,handler_routine_id)
>=20
> The handler may access and modify any variable in scope when the handl=
er is invoked.
> The handler may abort the program, reexecute the last instruction or r=
eturn
> normally.
> Condition codes may not relate onlly to errors.
I'm still thinking seriously about a global exception handler.
It's easy to do, but there are some ramifications.
Fancier exception handling is probably not on.
> 8/ Guards
>=20
> Description: Check for conditions inside a given scope and exeute code=
when this happens.
> Syntax:
> on/when/whenever <condition> do
> ...
> end do
> The scope of the guards may vary:
> - on: current block only
> - when: current routine
> - whenever: from now on
No thanks.
> 9/ Dynamic code execution.
>=20
> Description: Allow execution of text generated or fetched somewhere.
> Syntax: execute(string)
> The string in interpreted as if it had been loaded in memory in the fi=
rst
> place. Note that the include statement allows to do this, but only outsid=
e
> loops or routines.
Lots of people suggest this. Few give any examples where they would use it.=
I used a statement like this in APL years ago. I dearly wanted to find
"cool" things to do with it. Eventually I realized it was largely useless,
except for a few novelties.
The interpreter is not currently designed to allow this kind of statement.
It would be a big effort to change that, and might even slow things down
a bit for all programs.
> 10/ Selective type checking.
>=20
> Description: Right now, either every assignment invokes type checking =
routines, or some=20
> supposedly minimal amount, not nown to programmer, is performed. The idea=
is to
> specify variables that will be checked without type_check.
>=20
> Syntax: check <variable decl>
>=20
> The check prefix is ignored when type_check is on.
Seems like overkill.
> 11/ Additional type checking.
>=20
> Description: On assignment, specified variables would go through a use=
r-definable
> set of validity checks. The user can add or remove such checks, performed=
> regardless of the type_check flag.
>=20
> Syntax:
> check(i1,var name/id)=20
> add_check(i2,var name/id)
> del_check(i2,var name/id)
> uncheck(var nname/id)
>=20
> These do what they say, i1 and i2 being routine_ids of additional chec=
king functions.
> Additional type checks are coded just like ordinary type functions.
User defined type checking is not used that much as it is.
Why add a new level of complexity?
> 12/ Watch facility
>=20
> Description: When a given variable is read, its watch function is invo=
ked,=20
> returning the value the variable (possibly) holds.
>=20
> Syntax:
> watch <variable decl>
> The routine invoked will be a rtype routine, which follows the same=
patterns=20
> and rules than type functions. Example:
> rtype integer (integer x)
> if x<0 then return 0
> else return x
> end if
> end rtype
> would make all negative integers appear as 0.
Why?
Who needs the confusion?
> D/ Sequences and slices
>=20
> 1/ Negatives indexes
>=20
> Description: inside any sequence index specifiation, a negative value =
might=20
> be used to count the elements backwards. So, longsequencename[length(long=
sequencename)]
> could be coded longsequencename[-1].
Accidental uses of negative indexes likely won't be caught as errors.
Why is this important?
> 2/ More slices
>=20
> Decription: slices might appear in index specifications in other place=
s than just the last.
> Thus, matrix[..][3] would be the 3rd row of a column-bnased matrix.
I implemented that in "Fourier", the language I did before Euphoria.
It was useful there because the parallel machine could do the operation
in hardware. In the Euphoria interpreter, I have no ultra-fast way to
implement this, so you might as well do it yourself in the
few places where it comes up. Maybe make a routine for it.
> 3/ Shorthands for "length(this)"
>=20
> Description: Allow more flexible coding of slices that extend to the e=
nd
> of a sequence.
> Syntax: matrix[..][3] --see above
> stack[$] --last element of stack
> word[2..] --chop first letter off word
I agree that it's often cumbersome to write stuff like:
longvariablename[1..length(longvariablename)-1]
I just don't know the best way to improve that.
Obviously:
longvariablename[1..$-1]
is one way. I don't really like having lots of special
characters in the language though. They scare away beginners.
> 4/ Composition of sequences
>=20
> Description: defines a subsequence using a sequence of indexes.
> Syntax: t=3D{3,-1,5,3}
> s=3D<some sequence>
> s1=3Ds=F8t s1 is a sequence of lenth 4: {s[3],s[-1],s[5],s[=
3]}
> Pairs in t could specify slices.
Probably wouldn't be used often enough.
Easy enough to do with a loop.
> 5/ Dynamic indexing
>=20
> Description: Allow variable length index specification
> Syntax: s=3D{1,3,2}
> t=3Du[[s]] --t=3Du[1][3][2]
>=20
> Again, pairs could be used in s to specify slices.
Wouldn't be used often enough.
There are many possibilities for defining subscripting a sequence
with a sequence. Maybe some day.
> 6/ Sequence manipulation routines
>=20
> Description: replace, insert and move elemnts around in a sequence.
> Syntax:
> replace(seq,places_list,subst_list)=20
> --places_list is a list of pairs of indexes delimiting subsequen=
ces in seq.
> --Each of these will be replaced by the matching element in subs=
t_list.
> insert(seq,where,x) --x is inserted at position where in seq, who=
se length increased by 1
> inserts(seq,where,x) --if x is a sequence, its elements are insert=
ed starting at position=20
> --where in seq.If x is an atom, same as insert.
> move(seq,start,end,where)
> --the subsequence seq[start..end] is moved so that it starts at =
where.
> remove'szq,where)
> --where is an index or a pair of indexes specifying element(s) t=
o be removed from seq.
>=20=20=20=20=20=20=20=20=20=20
> Note that all these could be just some functions in misc.e Their be=
ing
> built-ins would probably increase speed.
I don't mind adding some more general-purpose functions to misc.e.
> E/ Object programming capabilities.
Object oriented programming is great in theory,
but once you head down that road you will probably
end up doubling the size of the manual, trying to
explain the nuances and interactions among all the
different features. We can do a form of object oriented
programming using libraries like Mike Nelson's.
> F/ Miscellaneous
>=20
> 1/ Pre- and post-inc/decremnet operators C-style
> 2/ Allow concatenation of logical relations, such as 0<=3Dx<=3D9.
> 3/ Allow assignments inside conditions. The symbol :=3D could be used her=
e
> since =3D has a relational meaning.
Unnecessary frills.
-----------------
Thanks for your suggestions.
I'll save them in my Suggestions folder and I might
act on some of them.
Everyone has a different taste in programming languages.
My vision for Euphoria, since day 1, has been to create
a powerful, easy-to-learn, minimal, reliable and fast language.
I don't measure the progress of Euphoria by the number of
core language statements added each year.
New growth should mainly be in libraries, tools
and porting. BTW, someone with the source has recently ported Euphoria
to the Franklin eBookMan PDA - various text-mode programs are running.
Briefly, some other issues:
open source - I have no plans to make Euphoria open source or free in the
forseeable future. If I get tired of working on it, I'll consider it.
Keep in mind 95% of the Interpreter source is available to anyone for $49.
and keep in mind 95% of the functionality is already free to anyone.
Most libraries are open source.
I've gone as far as I can in the free and open direction without
giving up my income.
Euphoria sales - July 2003 set a new all-time record for registrations,
upgrades, and dollars income. Thanks to all who registered or upgraded.
Of course I'm not getting rich. I'm still driving a badly rusting
1989 Corolla.
Regards,
Rob Craig
Rapid Deployment Software
http://www.RapidEuphoria.com
303.
I just sent Rob updates for my Euphoria Database Browser and ODBC library.
ODBC:
Bug fixes, added routines for inserting data
EDB:
Can view, edit, import and export from ODBC databases.
Until they make it to the user contributions page, you can get them here:
http://www14.brinkster.com/matthewlewis/projects.html
Matt Lewis
304.
This is a multi-part message in MIME format.
------=_NextPart_000_000C_01C36DAA.368416C0
charset="iso-8859-1"
unsub-scribe
------=_NextPart_000_000C_01C36DAA.368416C0
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
------=_NextPart_000_000C_01C36DAA.368416C0--
305. Re:
Patrick Barnes wrote:
> That is fine, I know you're close to releasing 2.5 now.
> Could we have a page on rapideuphoria somewhere that shows the features you
> plan to implement in the next version of the language (So currently for
> 2.5), and a list of features that are being considered for unspecified
> versions beyond that? It would make it easier for us to see what you are
> planning with the language, and make appropriate suggestions.
That's been requested before,
and I think I promised to do something or other.
I'll think about it. Maybe we need an official
system for posting suggestions and bug reports
and getting a quick one-line response from me:
"Yes, it's a bug",
"I love that suggestion!",
"I hate that. I'll never, ever implement it"
etc.
It comes as a shock to some people, but
I don't have any master plan.
Once I latch onto something useful, I implement it,
then I go back to my pile of half-baked ideas
and suggestions, and pick out something new to
work on. There's no plan. If post my long list
of cryptic half-baked ideas, I'll be flooded with proposals
and questions about all sorts of odd things that I
really don't want to implement.
Regards,
Rob Craig
Rapid Deployment Software
http://www.RapidEuphoria.com
306. Re:
>From: Robert Craig <guest at RapidEuphoria.com>
> > That is fine, I know you're close to releasing 2.5 now.
> > Could we have a page on rapideuphoria somewhere that shows the features
>you
> > plan to implement in the next version of the language (So currently for
> > 2.5), and a list of features that are being considered for unspecified
> > versions beyond that? It would make it easier for us to see what you are
> > planning with the language, and make appropriate suggestions.
>
>That's been requested before,
>and I think I promised to do something or other.
>I'll think about it. Maybe we need an official
>system for posting suggestions and bug reports
>and getting a quick one-line response from me:
> "Yes, it's a bug",
> "I love that suggestion!",
> "I hate that. I'll never, ever implement it"
> etc.
>
>It comes as a shock to some people, but
>I don't have any master plan.
>Once I latch onto something useful, I implement it,
>then I go back to my pile of half-baked ideas
>and suggestions, and pick out something new to
>work on. There's no plan. If post my long list
>of cryptic half-baked ideas, I'll be flooded with proposals
>and questions about all sorts of odd things that I
>really don't want to implement.
Heheh...
Well, perhaps split it up into sections. Have a section called "Cloud 9", or
even just "Half-baked ideas" for that, and state at the top that they're not
being seriously considered now, or possible ever.
If someone submits something that is so obviously a bad idea ("Rob, why
can't I write inline COBOL in euphoria????!?!?") it can be moved to a "Bad
idea section".
Given your experience with ListFilter, a good idea might be to parse any
top-level submissions (proposals, not replies), and show a list of "this
idea may have been submitted already in one of these previous submissions,
check before posting" to reduce duplicates.
Allow users to edit the top-level submission (the proposal) as new ideas are
incorporated into the proposal, with a changelog. Mark agains replies to the
proposal what version the replies were made.
Hmmm, I think this would be nice.
MrTrick
307.
h=domainkey-signature:received:received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
bh=1fYpmmlZezspzb8lqefBBqwkTzqTfK+DoEkhA+8O3r8=;
b=GxRd3MWAEcpzUGzDDg0i0qIR2TWH72xOjdmSs9Odmyri47WC1sIQ0N8ciFk1mqIHs1sgolwYcU0mQc42/lX5W/0csaLs/0qbBTYPN/yNSCyUMsHqujttL2qpOk6frCiGU153YBal6maeKIesg+7eUazxbYTQdNgJixzrwTkReXY=
DomainKey-Signature: a=rsa-sha1; c=nofws;
d=gmail.com; s=beta;
h=received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
b=Lu1dYDtSurdd8R4F6nOGLMsa8QPa5ATA91+OLDiCkEdloQu7hVa9jvaF7snfvqRyTYHpOkL9O0tEqLK5Vu+GLecd51LRiGhfIEY6R4cgkGo3E2SN+emaoM37Qh608Vx3j1r4mApYjj6LqmWsPC0VvNdogrn7RQS+w/IITC8NE7w=
Received: by 10.67.25.6 with SMTP id c6mr1412140ugj.1193607512999;
Sun, 28 Oct 2007 14:38:32 -0700 (PDT)
Received: by 10.67.22.20 with HTTP; Sun, 28 Oct 2007 14:38:32 -0700 (PDT)
Message-ID: <5f27691c0710281438u5245a0e6m961d6013c6f4c3db at mail.gmail.com>
Date: Sun, 28 Oct 2007 14:38:32 -0700
From: "codepilot Gmail Account" <codepilot at gmail.com>
To: EUforum at topica.com
Subject: Re: C to EU Translator
In-Reply-To: <1032536536-1463792638-1193598966 at boing.topica.com>
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_Part_472_2774155.1193607512988"
References: <1032536536-1463792638-1193598966 at boing.topica.com>
------=_Part_472_2774155.1193607512988
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Hmm. Maybe I should make it do macros and structures? Good idea! I have
already done COM. I know that macros can do a lot of things, should they
turn into functions? At some point a full blown C to Euphoria translator
needs to be made, because made H files have things that aren't as cut and
dry as a simple specification of call point entries/types/constants. Many of
the macros do a lot of work precompile that would make much sense in run
time, in euphoria as functions. And I really can't think of a good way to do
structures, maybe some ideas would be good.
On 10/28/07, Chris Bensler <guest at rapideuphoria.com> wrote:
>
> ============ The Euphoria Mailing List ============
>
>
> posted by: Chris Bensler <eu at creat?vep?rtal.ca>
>
> c.k.lester wrote:
> >
> > What about the library from Daniel Kluss?
> >
> > <a href="http://www.rapideuphoria.com/h_to_e.zip">
> http://www.rapideuphoria.com/h_to_e.zip</a>
> >
> > I think Matt has something like that in wxEuphoria, too.
>
> h_to_e does not produce a 100% translation. Ideally a 1:1 translation.
> Namely it only generates constants and minimal function wrappers.
> It doesn't handle structures or macros, etc... IIRC.
> I haven't seen Matt's. Maybe he can comment.
>
> What I would like to see is a tool that will allow us to generate Euphoria
> wrappers for C API's
> with which we can directly use the original documentation and not have to
> port _anything_ by hand.
> The translations should be as accurate to the original as possible.
>
> Chris Bensler
> Code is Alchemy
>
> --^----------------------------------------------------------------
> This email was sent to: codepilot at gmail.com
>
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bTRIN1.Y29kZXBp
> Or send an email to: EUforum-unsubscribe at topica.com
>
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
>
>
------=_Part_472_2774155.1193607512988
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Hmm. Maybe I should make it do macros and structures? Good idea! I have
already done COM. I know that macros can do a lot of things, should they
turn into functions? At some point a full blown C to Euphoria translator
needs to be made, because made H files have things that aren't as
cut and dry as a simple specification of call point
entries/types/constants. Many of the macros do a lot of work precompile
that would make much sense in run time, in euphoria as functions. And I
really can't think of a good way to do structures, maybe some ideas
would be good.
<br><br>
<div><span class="gmail_quote">On 10/28/07, <b
class="gmail_sendername">Chris Bensler</b> <<a
href="mailto:guest at rapideuphoria.com">guest at rapideuphoria.com</a>>
wrote:</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px
0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">============ The Euphoria
Mailing List ============<br><br><br>posted by: Chris Bensler <eu at
creat?vep?rtal.ca>
<br><br>c.k.lester wrote:<br>><br>> What about the library from
Daniel Kluss?<br>><br>> <a
href="<a
href="http://www.rapideuphoria.com/h_to_e.zip">http://www.rapideuphoria.com/h_to_e.zip</a>">
<a
href="http://www.rapideuphoria.com/h_to_e.zip">http://www.rapideuphoria.com/h_to_e.zip</a></a><br>><br>>
I think Matt has something like that in wxEuphoria, too.<br><br>h_to_e
does not produce a 100% translation. Ideally a 1:1 translation.
<br>Namely it only generates constants and minimal function
wrappers.<br>It doesn't handle structures or macros, etc...
IIRC.<br>I haven't seen Matt's. Maybe he can
comment.<br><br>What I would like to see is a tool that will allow us to
generate Euphoria wrappers for C API's
<br>with which we can directly use the original documentation and not
have to port _anything_ by hand.<br>The translations should be as
accurate to the original as possible.<br><br>Chris Bensler<br>Code is
Alchemy<br><br>
--^----------------------------------------------------------------<br>This
email was sent to: <a
href="mailto:codepilot at gmail.com">codepilot at gmail.com</a><br><br>EASY
UNSUBSCRIBE click here: <a
href="http://topica.com/u/?b1dd66.bTRIN1.Y29kZXBp">
http://topica.com/u/?b1dd66.bTRIN1.Y29kZXBp</a><br>Or send an email to:
<a
href="mailto:EUforum-unsubscribe at topica.com">EUforum-unsubscribe at
topica.com</a><br><br>For
Topica's complete suite of email marketing solutions visit:
<br><a
href="http://www.topica.com/?p=TEXFOOTER">http://www.topica.com/?p=TEXFOOTER</a><br>--^----------------------------------------------------------------<br><br></blockquote></div><br>
------=_Part_472_2774155.1193607512988--
308.
- Posted by Jacques Deschenes <desja at QUEBECTEL.COM>
Nov 11, 1996
-
Last edited Nov 12, 1996
I added a procedure to ed to comment or uncomment a group of lines
the two functions are accessed by ALT_C to comment out and ALT_U to uncomment
to modify ed.ex do (backup ed.ex before any change)
1) find "-- special input characters"
2) add ALT_C = 302, and ALT_U = 278 to the list of constants
3) add ALT_C,ALT_U to CONTROL_CHARS constant
4) find "edit_file()" procedure and paste the following lines
at the right place
elsif key = ALT_C then
SetComment(1) -- comment lines
elsif key = ALT_U then
SetComment(0) -- uncomment lines
5) paste the following procedure somewhere before edit_file()
procedure SetComment(integer action)
-- if action = 1 then comment out a group of lines
-- if action = 0 then uncomment a group of lines
integer first, last,j
sequence inp
inp = {1,0}
while inp[1] do
if action then
set_top_line("Number of lines to comment out? (+ down, - up) ")
else
set_top_line("Number of lines to uncomment? (+ down, - up) ")
end if
inp = value(key_gets(""))
end while
if inp[2] < 0 then
first = b_line + inp[2] + 1
if first < 1 then
first = 1
end if
last = b_line
else
first = b_line
last = b_line + inp[2] - 1
if last > length(buffer) then
last = length(buffer)
end if
end if
if action then -- comment out
for i = first to last do
j = 1
-- skip white space and tab at line start
while j <= length(buffer[i]) and find(buffer[i][j], " \t") do
j = j+1
end while
if match("--",buffer[i][j..length(buffer[i])]) != 1 then
buffer[i] = "--" & buffer[i]
end if
end for
else -- uncomment
for i = first to last do
j = 1
-- skip white space and tab at line start
while j <= length(buffer[i]) and find(buffer[i][j], " \t") do
j = j+1
end while
if j < length(buffer[i]) then
if match("--", buffer[i][j..length(buffer[i])]) = 1 then
buffer[i] = buffer[i][j+2..length(buffer[i])]
end if
end if
end for
end if
set_modified()
normal_video()
DisplayWindow(b_line - s_line + 1, 1)
end procedure --SetComment()
Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at quebectel.com
309.
My apologies to people who tried to reach me: I am surviving under a fourth
network administrator in less than two years,
each with a different set of naming conventions - Rob Craig is right, I have
lost track of my own name...
To Daniel Berstein Zimmermann: Go for it, Daniel, my code is in the public
domain; I am glad you like it. Jiri.
310.
BABOR, JIRI wrote:
> To Daniel Berstein Zimmermann: Go for it, Daniel, my code is in the public
> domain; I am glad you like it. Jiri.
Thanks, I'll be posting it quite soon...
--
Daniel Berstein Zimmermann
dberst at cmet.net
http://www.geocities.com/SiliconValley/Heights/9316
311.
- Posted by rma <rma at RMA.DNT.MD>
Aug 05, 1999
Hi there,
I'm writing an article on Euphoria and maybe someone here is willing
to help me.
Best regards,
Mihai Ciumeica mailto:rma at rma.dnt.md
312.
- Posted by jesse kint <jk2000 at PA.NET>
Aug 09, 1999
-
Last edited Aug 10, 1999
------=_NextPart_000_0021_01BEE2B1.AE52BFE0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
sighnoff euphoria
------=_NextPart_000_0021_01BEE2B1.AE52BFE0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 =
Transitional//EN">
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>sighnoff =
------=_NextPart_000_0021_01BEE2B1.AE52BFE0--
313.
In a message dated 8/9/99 9:05:47 PM Central Daylight Time, jk2000 at PA.NET
writes:
<< sighnoff euphoria >>
To sign off, you need to send that message to the server of the listserv.
The address is listserv at listserv.muohio.edu.
Good luck in all your programming endeavors.
Derek Brown
314.
> Given ( as an output from err file when i hit shift-! on the lines below
> ) :
> datatofind = {19,48'0',48'0',124'|',115's',104'h',101'e',5}
>
> Why doesn't this line execute?:
> if find({" 00|"},{data}) then printf(1,"%s\n", {data} ) end if
>
> Or this line:
> if find(" 00|",{data}) then printf(1,"%s\n", {data} ) end if
>
> Or this line:
> if find(" 00|",data) then printf(1,"%s\n", {data} ) end if
>
> Or this line:
> if ( find({" 00|"},{data}) != 0 ) then printf(1,"%s\n", {data} ) end if
>
> Or these lines:
> StartOfRec = " 00|"
> if find(StartOfRec,data) then printf(1,"%s\n", {data} ) end if
>
> Or any line with {data}/" 00|" written with/without the {}. There is
> just nothing, no error, no printing. It traces onto it, then nothing
> happens on the other screen when i hit enter.
>
> The symbol there is a double ! in my editor, i get it by ctrl-s on the
> keybd.
>
> Kat,
> bewildered.
I believe the function you are looking for is match() instead of find().
Find looks for the first argument in each element of the second argument,
while match looks for the first argument as occurring as a slice in the
second.
Going back to your original example, I would rewrite it as:
object data
integer datafound
sequence datatofind
datafound = 0 -- false
while not datafound do
data = gets( dctstrfile )
if atom( data ) then
exit -- end-of-file
end if
datafound = match( datatofind, data )
end while
Later,
_______ ______ _______ ______
[ _ \[ _ ][ _ _ ][ _ ]
[/| [_] |[/| [_\][/ | | \][/| [_\]
| ___/ | _] | | | _]
[\| [/] [\| [_/] [\| |/] [\| [_/]
[_____] [______] [_____] [______]
xseal at harborside.com ICQ:13466657
http://www.harborside.com/home/x/xseal/euphoria/
315. Re: Re:
--------------Boundary-00=_ZL94MY50000000000000
--------------Boundary-00=_ZL94H890000000000000
charset="iso-8859-1"
I'm using EDS on a big project (news page not finished yet) and it works =
fine.
I haven't used the other libraries because I'm not a db expert and I don'=
t want to be one.
Win32lib is still on a development stage, but I think that's not that bug=
gy, maybe you could see some weird stuff, but the win32lib team had shown=
a special interest on fixing the bugs so it's not a big problem.
Give euphoria a try, it's easy and fast to devolp programs on it, and spe=
cial debugging them! (If you have thel full version you have more details=
to fix the problems).
Best Regards,
Guillermo Bonveh=ED
AKA: Knixeur, Red Knight, Caballero Rojo
-------Original Message-------
From: Ray Smith=20
To: EUforum=20
Subject: Re:
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
"Before myTopica, I was buried in an avalanche of email.
Now, thanks to this free solution, I am on top of my inbox."
Get rescued at
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Hi Chris,
> 1) Is there support for relational databases
The archives contain:
* a MySQL wrapper,
* a pretty new ODBC wrapper (this is not a full wrapper but I
think the basics work).
* Euphoria's own EDS database system.
I don't think any of these have been used on a big project yet????
not that I can recall hearing about anyway. I haven't used the MySQL
wrapper but the other two seem to work ok from my small amount
of playing.
> 2) I saw a win32 GUI Library, what controls does it support? More
> specifically, does it wrap dockables windows, etc?
Win32Lib is an excellent wrapper for the Windows API.
It has support for the majority of Windows features likes windows, button=
s,
toolbars, listviews, status bars, textboxes etc etc.
It is still being heavily developed and as such the odd bug still exists =
and
the
doco hasn't caught up yet.
You will find many many examples of reasonably simple demos using
Win32Lib.
>From my personal view I wouldn't start a major development project until
Win32Lib is a little more stable. Others might disagree?? I'd like to he=
ar
opinions of anyone who does disagree.
> 3) How does compiled Euphoria code compare to say (realistically) Visua=
l
> Basic?
Well, Euphoria in most cases are bound when distributed. This means the
runtime
interpreter and the source program is merged together for ease of
distribution.
I have never done any benchmarks against any of language ... but then aga=
in
I have
never had the need for more speed with Euphoria.
If you are planning any type of business software with Euphoria will have
power to burn.
There is also a translator available that translates your Euphoria progra=
m
to C which you can then compile .... which "might" increase the speed
somewhat.
The amount of increase has been debated on the list on and off for a few
months.
> Also, If anyone knows of a compiled GUI program that demonstrates the
> power of Euphoria could you please post the link?
I don't know of any large applications ... the best bet is to look throug=
h
the recent user contributions. I don't think you will find what your
looking
for though. (Maybe the IDE is a good example???)
> I'm trying to save myself a few months of development by finding a
> substitute language I could use for this project. I've made database
> programs in C++ before, and I don't want to go there again.
For windows development I don't think Euphoria is the tool to save yourse=
lf
time writing software.
Although the base language is very stable and fast, it by itself won't he=
lp
you
do anything in Windows. All the windows add on libraries are written by
users
you graciously give there code to the community. This in most cases mean=
s
bugs are more prominent, documentation is lacking and support is given
by a few devoted users.
My tool of choice for writing "business" type software for Windows would =
be
Visual Basic or Delphi.
Visual Basic (VB) has many knockers (especially around here on the Euphor=
ia
list)
and in some regards VB is very inefficent (the word bloatware was probabl=
y
conceived
by a VB programmer!) but for a development tool that helps you to deliver=
a
project
to a client on time with required functioanlity I don't thin anything com=
es
close.
If the size of your projects distribution is a major concern I'd suggest
Delphi.
Ray Smith
--------------Boundary-00=_ZL94H890000000000000
Content-Type: Multipart/related;
boundary="------------Boundary-00=_ZL94CJD0000000000000"
--------------Boundary-00=_ZL94CJD0000000000000
Content-Type: Text/HTML;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<html>
<head>
<meta name=3D"GENERATOR" content=3D"IncrediMail 1.0">
</head>
<BODY background=3D"" bgColor=3D#ffffff style=3D"BACKGROUND-POSITION: 0px=
0px; FONT-FAMILY: Arial" scroll=3Dyes ORGYPOS=3D"0">
<TABLE border=3D0 cellPadding=3D2 cellSpacing=3D0 id=3DINCREDIMAINTABLE w=
idth=3D"100%">
<TBODY>
<TR>
<TD id=3DINCREDIHEADER width=3D"100%"></TD>
</TR>
<TR>
<TD id=3DINCREDITEXTREGION width=3D"100%">
<DIV>I'm using EDS on a big project (news page not finished yet) an=
d it=20
works fine.</DIV>
<DIV>I haven't used the other libraries because I'm not a db expert=
and I=20
don't want to be one.</DIV>
<DIV> </DIV>
<DIV>Win32lib is still on a development stage, but I think that's n=
ot that=20
buggy, maybe you could see some weird stuff, but the win32lib team =
had=20
shown a special interest on fixing the bugs so it's not a big=20
problem.</DIV>
<DIV> </DIV>
<DIV>Give euphoria a try, it's easy and fast to devolp programs on =
it, and=20
special debugging them! (If you have thel full version you have mor=
e=20
details to fix the problems).</DIV>
<DIV> </DIV>
<DIV>
<DIV>Best Regards,</DIV>
<DIV> Guillermo Bonveh=ED</DIV>
<DIV> AKA: Knixeur, Red Knight, Cabal=
lero=20
Rojo</DIV></DIV>
<DIV> </DIV>
<DIV><I>-------Original Message-------</I></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV dir=3Dltr id=3Dfromshowfield><U><I>From:</I></U><B> Ray Smith=20
<SMITHR at IX.NET.AU></B></DIV>
<DIV dir=3Dltr id=3Dtoshowfield><U><I>To:</I></U><B> EUforum=20
<EUFORUM at TOPICA.COM></B></DIV>
<DIV dir=3Dltr id=3Dsubjectshowfield><U><I>Subject:</I></U><B>=20
Re:</B></DIV><BR> &n=
bsp; =20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D<BR>"Be=
fore=20
myTopica, I was buried in an avalanche of email.<BR>Now, thanks to =
this=20
free solution, I am on top of my inbox."<BR>Get rescued=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D<BR><BR>Hi=20
Chris,<BR><BR>> 1) Is there support for relational databases<BR>=
<BR>The=20
archives contain:<BR><BR>* a MySQL wrapper,<BR>* a pret=
ty new=20
ODBC wrapper (this is not a full wrapper but I<BR>think the basics=20
work).<BR>* Euphoria's own EDS database system.<BR><BR>I don'=
t think=20
any of these have been used on a big project yet????<BR>not that I =
can=20
recall hearing about anyway. I haven't used the MySQL<BR>wrap=
per but=20
the other two seem to work ok from my small amount<BR>of=20
playing.<BR><BR><BR>> 2) I saw a win32 GUI Library, what control=
s does=20
it support? More<BR>> specifically, does it wrap dockables windo=
ws,=20
etc?<BR><BR>Win32Lib is an excellent wrapper for the Windows=20
API.<BR>It has support for the majority of Windows features likes w=
indows,=20
buttons,<BR>toolbars, listviews, status bars, textboxes etc etc.<BR=
>It is=20
still being heavily developed and as such the odd bug still exists=20
and<BR>the<BR>doco hasn't caught up yet.<BR>You will find many many=
=20
examples of reasonably simple demos using<BR>Win32Lib.<BR>>From =
my=20
personal view I wouldn't start a major development project=20
until<BR>Win32Lib is a little more stable. Others might disag=
ree??=20
I'd like to hear<BR>opinions of anyone who does disagree.<BR><BR>&g=
t; 3)=20
How does compiled Euphoria code compare to say (realistically)=20
Visual<BR>> Basic?<BR><BR>Well, Euphoria in most cases are bound=
when=20
distributed. This means the<BR>runtime<BR>interpreter and the=
source=20
program is merged together for ease of<BR>distribution.<BR>I have n=
ever=20
done any benchmarks against any of language ... but then again<BR>I=
=20
have<BR>never had the need for more speed with Euphoria.<BR>If you =
are=20
planning any type of business software with Euphoria will have<BR>p=
ower to=20
burn.<BR><BR>There is also a translator available that translates y=
our=20
Euphoria program<BR>to C which you can then compile .... which "mig=
ht"=20
increase the speed<BR>somewhat.<BR>The amount of increase has been =
debated=20
on the list on and off for a few<BR>months.<BR><BR>> Also, If an=
yone=20
knows of a compiled GUI program that demonstrates the<BR>> power=
of=20
Euphoria could you please post the link?<BR><BR>I don't know of any=
large=20
applications ... the best bet is to look through<BR>the recent user=
=20
contributions. I don't think you will find what=20
your<BR>looking<BR>for though. (Maybe the IDE is a good=20
example???)<BR><BR>> I'm trying to save myself a few months of=20
development by finding a<BR>> substitute language I could use fo=
r this=20
project. I've made database<BR>> programs in C++ before, and I d=
on't=20
want to go there again.<BR><BR>For windows development I don't thin=
k=20
Euphoria is the tool to save yourself<BR>time writing=20
software.<BR>Although the base language is very stable and fast, it=
by=20
itself won't help<BR>you<BR>do anything in Windows. All the w=
indows=20
add on libraries are written by<BR>users<BR>you graciously give the=
re code=20
to the community. This in most cases means<BR>bugs are more=20
prominent, documentation is lacking and support is given<BR>by a fe=
w=20
devoted users.<BR><BR>My tool of choice for writing "business" type=
=20
software for Windows would be<BR>Visual Basic or Delphi.<BR>Visual =
Basic=20
(VB) has many knockers (especially around here on the=20
Euphoria<BR>list)<BR>and in some regards VB is very inefficent (the=
word=20
bloatware was probably<BR>conceived<BR>by a VB programmer!) but for=
a=20
development tool that helps you to deliver a<BR>project<BR>to a cli=
ent on=20
time with required functioanlity I don't thin anything=20
comes<BR>close.<BR><BR>If the size of your projects distribution is=
a=20
major concern I'd suggest<BR>Delphi.<BR><BR>Ray Smith<BR><BR><BR></=
TD>
</TR>
<TR>
<TD id=3DINCREDIFOOTER width=3D"100%">
=09<TABLE cellPadding=3D0 cellSpacing=3D0 width=3D"100%">
=09<TBODY>
=09<TR>
=09<TD width=3D"100%"></TD>
=09<TD align=3Dmiddle id=3DINCREDISOUND vAlign=3Dbottom></TD>
=09<TD align=3Dmiddle id=3DINCREDIANIM vAlign=3Dbottom></TD>
=09</TR>
=09</TBODY>
=09</TABLE>
</TD>
</TR>
</TBODY>
</TABLE><SPAN=20
id=3DIncrediStamp><FONT face=3D"Arial, Helvetica, sans-serif"=20
--------------Boundary-00=_ZL94CJD0000000000000--
--------------Boundary-00=_ZL94H890000000000000--
--------------Boundary-00=_ZL94MY50000000000000--
316. Re:
I've got a 40 meg and growing database and
havent run into a problem useing
Win98, Win32Lib and EDS.....
I just recently read that Win ME had no DOS support
so I asked if it would function and several people
said it would....
EDS is really nice if used (handled) proper
I converted 3.8 megs of Dbase .dbf .dbt files
over to EDS and saved alittle under 2 meg space.
Euman
----- Original Message -----
From: "Derek Parnell" <ddparnell at bigpond.com>
To: "EUforum" <EUforum at topica.com>
Sent: Sunday, April 01, 2001 22:05
Subject: RE: Re:
>
>
> Yeah, go for it. Euphoria with Win32lib and EDS could handle this task
> easily. The performance would be quite acceptable using a PC from the last 3
> years. (P2, 8Meg RAM, 200Meg disk, Windows 98)
>
> I have an application using EDS, Win32lib that is much more demanding than
> the one you outlined. (60 concurrent client machines handling the UI and a
> single server handling the Database) (Sorry, source and object code not
> available as it proprietary and I'm operating under a non-disclosure
> agreement).
>
> -----------
> cheers,
> Derek Parnell
>
>
> > -----Original Message-----
> > From: chris_esen at hotmail.com [mailto:chris_esen at hotmail.com]
> > Sent: Monday, 2 April 2001 12:42 PM
> > To: EUforum
> > Subject: RE: Re:
> >
> >
> >
> > Hey -
> >
> > I'm working on a database program with 300+ fields for each
> > individual.
> > I suspect an average of 25 individuals to be entered into the
> > database
> > at once. It's not a complicated program at all. Basicly I'm going to
> > sort >all< of this information after I compare it against the other
> > individual's fields, then display the top N winners for each
> > group (each
> > group has a table). Now there's more to it, like some individuals may
> > not have groups while others will and blah blah blah. The rest of the
> > program sets the MAX and MIN limit for the information being entered
> > into the fields. It's gonna be chock full of UI.
> >
> > Later,
> > Chris
> >
>
>
>
>
>
317. Re:
- Posted by eulev at DPG.HU
Apr 16, 2001
This is a cryptographically signed message in MIME format.
--7359-5655-23892-987328760
320.
>
>
>
------------------------------------------------------------
//// Totally FREE software. Just pay shipping! \\\\
|| Click here --->> http://www.free-cd-software.com ||
<a href="http://www.free-cd-software.com">AOL Link</a>
322.
- Posted by tjsnyders at HOME.COM
Apr 29, 2001
This is a multi-part message in MIME format.
------=_NextPart_000_0015_01C0D0D3.14584560
charset="iso-8859-1"
mailto:EUforum-unsubscribe at topica.com
------=_NextPart_000_0015_01C0D0D3.14584560
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2919.3800" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#befcfc>
<DIV><FONT face=3DArial size=3D2><A=20
href=3D"mailto:EUforum-unsubscribe at topica.com">mailto:EUforum-unsubscribe=
------=_NextPart_000_0015_01C0D0D3.14584560--
