XProfan

Sven
Bader

Da ich wieder mehr mit Profan2CPP zu tun habe dokumentiere ich hier Dinge, über die ich so stolpere. Ich benutze die Version 2.0a

Den Anfang möchte ich mit dem Zeilenweise Einlesen von Dateien machen

1.

cls
declare datei$, zeile$
datei$ = "test.txt"
Assign #1,datei$
Reset #1

WHILENOT Eof(#1)

    Input #1,zeile$
    print zeile$

ENDWHILE

Close #1
print "fertig!"
waitkey
end

Dieses Beispiel funktioniert bestens mit unter Windows erzeugten Dateien, mit Dateien aus Linux/Unix/Mac Umgebungen kommt es zu Fehlern. Profan2CPP scheint hier zwingend ein CR LF als Zeilenumbruch zu erwarten also \r\n und nicht nur \n oder nur \r

Der Effekt fällt in meinen Tests unterschiedlich aus. mit VC++ (1998) fehlt jeder Zeile das erste Zeichen, da hier wohl das fehlende "\r" übersprungen wird. Bei Borland C++ 5.5 wird gefühlt alles zerhackt und man landet zu allem Unglück beim Auslesen in einer Endlosschleife.

Eine (wenn auch Holzhammer)-Lösung ist das korrigieren der Zeilenumbrüche und speichern als KOPIE. Meine Lösung ist nicht ganz sauber, da sie \r geht \r\n austauscht und danach doppelte \n in einfache umwandelt. Das kann zuvor vorhandene leere Zeilen in der Datei löschen.

'Datei korrigieren
Dim Bereich#, FileSize(datei$)
BlockRead(datei$, Bereich#, 0, FileSize(datei$))
content$ = String$(Bereich#,0)
content$ = translate$(content$,Chr$(10),Chr$(13)+Chr$(10))
content$ = translate$(content$,Chr$(13)+Chr$(13),Chr$(13))
dispose Bereich#
Dim Bereich#, len(content$) + 1
String Bereich#,0 = content$
Assign #1, datei$+".tmp"
OpenRW #1
BlockWrite #1, Bereich#, 0, len(content$)-1
Close #1
dispose Bereich#
'Kopie Zeilenweise auslesen ohne Probleme
Assign #1,datei$+".tmp"
Reset #1
i& = 0

WhileNot Eof(#1)

    Input #1,zeile$
    getLine(zeile$)

EndWhile

Close #1

2. Angeblich falsche Parameter-Anzahl

Dies wird beim Syntaxcheck bei manchen Aufrufen angezeigt. Man kann den Fehler ignorieren, da die Programme am Ende trotzdem korrekt laufen. Dennoch nervt es, es bei jeder Compilierung bestätigen zu müssen und darüber evtl. echte Fehler zu verpassen.

Die Lösung steckt hier in der Datei subfuncs.dat bzw. funcdb.dat im \data\ Verzeichnis von Profan2CPP, hier können die Parameterzahlen korrigiert werden wie zum Beispiel ogl.outlinefont 2 statt 1 und ogl.pyramid mit 3 statt 2.

p2cpp.jpg

80 kB

Bezeichnung:

p2cpp

Hochgeladen:

04.08.2021

Ladeanzahl:

Herunterladen

subfuncs.jpg Vorschau

56 kB

Bezeichnung:

subfuncs

Hochgeladen:

04.08.2021

Ladeanzahl:

Herunterladen

04.08.2021 ▲

Sven
Bader

Einen hab ich noch

3. Vorzeichen

Ein Vorzeichenminus erzeugt in Kombination mit einem Minus-Operator einen Fehler beim Compilieren.

cls
declare i&,j&
i& = 5
j&  = 10 - -i&'Fehler
j&  = 10 + -i&'ok
j&  = 10 - -1'Fehler
j&  = 10 + -1'ok
j&  = 10 + +1'Fehler
j&  = 10 - +1'ok
print j&
waitkey
end

Also j& = 10 - -i& geht nicht, j& = 10 + -i& dagegen funktioniert. Es ist dabei egal ob das Vorzeichen an einer Zahl oder Variable steht. Ein doppeltes Plus (Operator + Vorzeichen) geht auch nicht, dort kann man natürlich das Vorzeichen einfach weglassen.

Die Lösung? Eine Klammer um die Zahl mit dem Vorzeichen: j& = 10 - (-1)

08.10.2021 ▲

Sven
Bader

Noch etwas zum Thema Abstürze

, da ich gerade wieder so einen Fall hatte...

Diese treten gelegentlich (dann reproduzierbar) beim Übersetzen auf, also wenn P2CPP "Übersetze..." anzeigt. Die Prozentzahl vor dem Absturz, gibt hier auch eine ungefähre Idee von der Stelle im Code.

Es kommt hier wohl zu Zugriffsverletzungen, denn beim Ausweichen auf alte Systeme (Windows XP) läuft die Übersetzung sauber durch.

Folgende Zeile war beispielsweise für einen Absturz verantwortlich.

factor! = 1.0 / Max(0.00001, sqrt(cross![0] * cross![0] + cross![1] * cross![1] + cross![2] *cross![2]))

Bei mir hat schon das mathematisch irrelvante Hinzufügen von Klammern geholfen, um den Absturz zu vermeiden:

factor! = 1.0 / Max(0.00001, sqrt((cross![0] * cross![0]) + (cross![1] * cross![1]) + (cross![2] *cross![2])))

Es scheint jedoch eine bestimmte Menge "kritischer" Zeilen für einen Absturz nötig zu sein, da ich es in einem kleinen Code nicht reproduzieren konnte.

Auch in der Vergangenheit waren immer Verkettungen vieler Operatoren die ursache. Die Lösung sind immer Klammern oder Teilrechnungen in eine Variable zwischenspeichern.

20.10.2021 ▲

Sven
Bader

Addfiles mit Unterverzeichnissen also führendem Stern, funktioniert nicht mit absoluten Pfaden.

Hier landen zwar Dateien in der Listbox aus dem angegebenen Verzeichnis aber der Pfad zur Datei ist stattdessen das aktuelle Arbeitsverzeichnis und damit falsch! In historyPath$ steckt ein absoluter Pfad. Beheben lässt es sich, indem man vor der Ausführung von AddFiles in das betreffende Verzeichnis wechselt.

ChDir historyPath$
AddFiles *historyPath$+"\\"+DateiName(dname$) +"*"
ChDir CurrentDir$'vorheriges Verzeichnis muss vorab gespeichert werden

Regex

Match$("^(~s*)~b(?i)cat~b","   CAT and dog")
print %MatchPos
Match$("~b(?i)cat~b","   CAT and dog")
print %MatchPos
Match$("~S", "   CAT and dog")
print %MatchPos

XProfan
1 Beliebig viele Whitespaces, dann cat als ganzes Wort (case-insensitive)
4 als ganzes Wort (case-insensitive)
4 erster nicht-Whitespace

Profan2CPP
-1 abweichend
4 passt
1 abweichend

Wer hier richtig liegt und warum, es in Profan einmal das kleine und einmal das große ~S braucht, weiß ich nicht, da ich im Umgang mit Regex nicht sehr erfahren bin.

21.03.2023 ▲

Sven
Bader

Das Thema Klammern hatten wir schon ein paar Mal aber genau das glaube ich noch nicht:

Um Bedingungen mit oder bzw und (|, &) sollte immer eine Klammer, sonst geht es in P2CPP nicht:

falsch

Long rtf#,0 = 60
Long rtf#,4 = ~CFM_FACE | ~CFM_CHARSET | ~CFM_COLOR

richtig

Long rtf#,0 = 60
Long rtf#,4 = (~CFM_FACE | ~CFM_CHARSET | ~CFM_COLOR)

21.11.2023 ▲