Operatoren

H.Brill

Manchmal findet man ja im Netz noch alte Quelltexte für Profan.

Diese nutzen noch die alten Operatoren. Man möchte aber gerne

solche Programme ausführen, aber jetzt nicht sonderlich viel an

den Quelltexten rum arbeiten. Oft sind es auch lange DEF's, die

diese Operatoren enthalten und man muß sich sehr lange reindenken,

um die Funktion zu verstehen. Andererseits geht es nur ums Ausprobieren

und man verwirft den Quelltext evtl. wieder, weil es doch nicht das ist,

was man sucht. Man hat aber einige Zeit damit verbracht, den Quelltext

lauffähig zu machen. Vorher, als es den Schalter $O+ noch gab, war es

kein Problem. Mittlerweile ist dieser wirkungslos.

Da kann man sich aber auch mit ein paar kleinen DEF's selber behelfen :

Code

DEF Add(2) @%(1) + @%(2)
DEF Sub(2) @%(1) - @%(2)
DEF Mul(2) @%(1) * @%(2)
DEF Div(2) @%(1) / @%(2)
DEF Equ(2) IF(@%(1) = @%(2), 1, 0)
DEF Equ$(2) IF(@$(1) = @$(2), 1, 0)
DEF NEqu(2) IF(@%(1) <> @%(2), 1, 0)
DEF NEqu$(2) IF(@$(1) <> @$(2), 1, 0)
DEF LT(2) IF(@%(1) < @%(2), 1, 0)
DEF GT(2) IF(@%(1) > @%(2), 1, 0)

CLS
Print Add(5, 8)
Print Equ(5, 5)
Print NEqu$("Hallo", "Hallo")
Print LT(5, 8)
Print GT(5, 8)

WaitKey

Alles anzeigen

Vielleicht ist es ja für den einen oder anderen brauchbar.

RGH

Man kann natürlich auch einfach die Include-Datei "profalt.inc" nutzen, die mit XProfan installiert wird:

Code

' ----------------------------
' Include-Datei für Quellcodes
' früher Profan-Versionen, die
' noch keine Operatoren nutzen
'-----------------------------

DEF add(2) @!(1) + @!(2)
DEF sub(2) @!(1) - @!(2)
DEF mul(2) @!(1) * @!(2)
DEF div(2) @!(1) / @!(2)
DEF div&(2) @!(1) \ @!(2)
DEF pow(2) @!(1) ^ @!(2)
DEF mod(2) @!(1) mod @!(2)
DEF or(2) @!(1) | @!(2)
DEF and(2) @!(1) & @!(2)
DEF equ(2) @!(1) = @!(2)
DEF neq(2) @!(1) <> @!(2)
DEF lt(2) @!(1) < @!(2)
DEF gt(2) @!(1) > @!(2)
DEF add$(2) @$(1) + @$(2)
DEF equ$(2) @$(1) = @$(2)
DEF neq$(2) @$(1) <> @$(2)
DEF lt$(2) @$(1) < @$(2)
DEF gt$(2) @$(1) > @$(2)

Alles anzeigen

H.Brill

Oh, die ist mir gar nicht aufgefallen, da nie benutzt.

Hatte früher immer nur den Schalter $O+ benutzt.

Ist dann wohl hinfällig.

Vielleicht wäre ein Vermerk in der Hilfe machbar, wenn

diese mal irgendwann wieder bearbeitet wird.

PS: Aber schön, von Roland mal wieder was zu hören.

RGH

Zitat aus der Hilfe (Kapitel 30: Kompatibilität zu früheren Profanversionen):

Zitat

Operator-Ersatz-Funktionen nicht mehr direkt unterstützt
Wie schon lange angekündigt, wurden die Operator-Ersatz-Funktionen aus der XProfan-Syntax herausgenommen.
Folgende Funktionen gibt es daher nicht mehr:
Add(), Sub(), Div(), Div&(), Mul(), Mod(), Pow()
And(), Or(), Equ(), Neq(), Gt(), LT()
Add$(), Equ$(), Neq$(), Gt$(), LT$()
Die entsprechenden Operatoren gibt es seit Profan² 6.0.
Damit aber auch noch Programme interpretiert und kompiliert werden können, die auf noch älteren Quellcodes beruhen, wird eine Include-Datei PROFALT.INC mitgeliefert, die diese Funktionen enthält. Bei Quellcodes, die noch die Operatorfunktionen nutzen reicht es also aus, diese Include-Datei mit "$I PROFALT.INC" einzubinden und sie dann erneut zu kompilieren.

Alles anzeigen

Ok, vielleicht wäre ein Hinweis auch direkt bei den Operatoren angebracht gewesen.

Gruß

Roland