1. Re: Ralf-circuiting ;-)
> My cleaner version is a thought-n-progged-in-a-sec as well.
Maybe we should just say when the code we post *IS* tested and
debugged... :)
Most of the code I see is non-debuged-typed-in-on-the-fly stuff.
(Including mine, of course. That explains the find("EOF", s") and
length(a) :)
> I know lotsa languages, lotsa hacks, lotsa virus-making tricks
>[;->], but only ONE language saying 'Prog run w/ PD version, it exceeds
>limit, please reg to debug'.
>
> At least other languages would tell me what the ERROR was! (luv
> ya, Perl!) No core-dump is needed either.
>
> (btw, in UNIX you can core-dump almost any program, also C++
>programs)
Ok, how many of those languages didn't cost any money (legally :)?
QBasic (MS-DOS 5 - Win95 (98???), WinNT) <-- Even if you don't use it
Perl (You said it come with Unix systems)
Euphoria (Download for free. Well -- You don't even need a computer
to get this one! Go to a friends house or library (If that
particular library will let you d/l programs)
[Add to this list]
> No, you may not make functions or types to accomplish a single if
> (because they ALSO COUNT AGAINST YOUR STATEMENT COUNT).
Register. It's cheaper than Visual Basic or C/C++ ($300+ in U.S.) Then
you never have to worry about it again. The entire point to the 300
statement count debugging limit is to get you to want to register.
>>Like I said, use a different approuch.
>
> approAch.
Give Ralf a break on spelling. English isn't his first language.
(Besides, it's not mature to nitpick spelling in an argument. It gives
the impression that you can't think of any real argument against what is
being said, so try to humiliate the offender instead.)
> Both Euphoria and ASM need some code to do that basic operation.
> ("func #23" is not a function, of course, it needs lots of code to
> set up the "this func number, these are args, do it" style.)
>
> At least Delphi, Visual Basic, Pascal, QBasic has a function to do
> those.
I think doswrap.e and/or dos.e can do that stuff..... (Would you just
forget about the 300 statement limit? I don't even worry about it,
because if it crashes over 300 statements, I've always figured out why..
well, except that one weird error in my game Vector, but I'll register
someday so I can kill it... :)
> if am_i_shrouded then
> puts(2, "You may not shroud me!")
> abort(255)
> end if
> sequence cl
> integer f
> cl = command_line()
> f = open(cl[2], "ub")
> -- self-modification code goes here...
Just warn the users not to shroud them. You know, you can test for the
first statement being a comment (--), since comments are taken out in
shrouding..
-- UNTESTED CODE, NO SYNTAX NITPICKING! :)
function am_i_shrouded()
sequence cmd, firstline
integer fn
cmd = command_line()
fn = open(cmd[1], "rt")
firstline = gets(fn)
-- First 2 characters in file comment marks?
if match("--", firstline) = 1 then
puts(1, "I have been shrouded, bound, or edited! You jerk!\n")
abort(255)
end if
end function
>
> Alright -- at least allow
>
> include dir.e
> if compare(command_line()[2], "C:\\EUPHORIA\\TEST.EX") then
> puts(2, "You have moved or renamed me! You may not do
>that!\n")
> abort(255)
> else
> for i = 1 to length(command_line())
> printf(1, "%s is %d bytes long.\n", {command_line()[i],
> dir(command_line()[i])[1][3])
> end for -- includes sizes of EX and TEST.EX
> end if
That's just wrong. Add 2 little statements!
sequence cmd
cmd = command_line()
And if you already have an object <stuff> or sequence <stuff> in the same
function (or global), then you don't even have to add it! Even a constant
can be used! So really, it usually will be only 1 statement! :)
(Besides, REFMAN.DOC points out that it may sometimes be convenient, but
most of the time, it's just wasting calculations that have already been
made, and it would encourage less clean programming, IMO.)
> Heh, correct. Why is there only thousands of Euph users and lots
>of other languages' users? Why should I care about Euph anyway?
>'Cause I like it and have some "hey, if this is implemented, it'd be
>great" ideas...
Euphoria hasn't had the same exposure as other languages. You can't just
easily pick it up at the local computer store like you can Visual Basic.
(For ~$300+)
_____________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
Or call Juno at (800) 654-JUNO [654-5866]
