Gehversuche mit SWAT / Death due to DBCS

bolle732 · September 19, 2024 at 3:03 PM

Hallo zusammen

Keine Ahnung, wann ich SWAT das letzte Mal angeschaut habe. Aber heute war es wieder einmal soweit...

Dazu habe ich den Quelltext von GeoLadder ins Verzeichnis $ROOT_DIR/Appl kopiert und im $ROOT_DIR/Installed/Appl übersetzt. Das Target / SWAT lässt sich starten (standard DOSBOX, noch nicht Basebox). Die Geode kann mittels send in Target kopiert werden und dann weiter mit cont.

Soweit alles gut. Bis anhin nur Warnungen bezüglich MemLock von Chunks in Ressourcen mit ui-object Attribute.

Aber der Patient stirbt, sobald ich die Ctrl- / Strg-Taste drücke:

Code

Death due to CANNOT_USE_DOUBLE_BYTE_CHARS_IN_THIS_VERSION
LocalDowncaseChar+10: MOV     AX, 606 (025eh)
Execution died in patient geos:
LocalDowncaseChar+10: MOV     AX, 606 (025eh)
*** No explanation available ***
Interrupt 3: Breakpoint trap
Stopped in FatalError, line 870, "/home/bolle/pcgeos/Library/Kernel/Boot/bootBoot.asm"
       push    bp, si, ds, ax

Beim Target-Bau habe ich zu DBCS explizit nein gesagt. Aber meine App wurde anscheinend mit DBCS-Unterstützung gebaut. Muss ich hierzu explizit etwas konfigurieren?

bolle732 · September 19, 2024 at 4:57 PM

Also, im GeoWrite kann ich z.B. ohne Probleme Strg-F zum Suchen drücken. Irgendwie liegt das an meinem Keyboard-Handling im Code...

Dieser funktioniert im EC unter SWAT:

Code

// Handle escape key
if (character == 0xFF1B)

Dieser nicht, wird einfach ignoriert:

Code

// Key 'Arrow Up'
case 0xFF90:

Wenn ich F3 zum Schliessen drücke, kommt auch die Meldung CANNOT_USE_DOUBLE_BYTE_CHARS_IN_THIS_VERSION... Bei anderen Progammen nicht.

Muss da wohl einmal das Design der MSG_META_KBD_CHAR durchgehen... Als NC ohne SWAT lief das bisher tadellos.

Rainer · September 19, 2024 at 5:16 PM

Poste doch mal den Code (mit Variablendefiniton, wenn vorhanden) , der zum CANNOT_USE_DOUBLE_BYTE_CHARS_IN_THIS_VERSION geführt hat. ggf hilft das swat Kommando bt.

Damit du mit swat vernünftig arbeiten kannst musst du aktuell die EC-Version des Target UND die EC-Geode benutzen.

Rainer

bolle732 · September 19, 2024 at 6:50 PM

Hallo Rainer

Ich habe EC Target und auch den GeoLadder wurde mit EC übersetzt.

Der Backtrace sieht folgendermassen aus:

Code

(ladder:1) 2 => bt
 1: near FatalError(), bootBoot.asm:870
 2:  far AppFatalError(), bootBoot.asm:870
* 3:  far LocalDowncaseChar(), stringCase.asm:114
 5:  far TOLOWER(), localC.asm:330
 7:  far LADDERAPPLICATIONMETA_KBD_CHAR(), process.goc:1479
 9: call ^l4200h:0024h{_LadderApplicationClass}MSG_META_KBD_CHAR(ffe2h 2084h 1d02h) (@1, ^l4200h:0024h)
 9: near ObjCallMethodTable(), objectClass.asm:1700
10: near ObjCallMethodTableSaveBXSI(), objectClass.asm:752
11:  far SendMessage(), objectClass.asm:175
12:  far ObjMessage(), geodesEvent.asm:1796
13:  far MessageDispatchDefaultCallBack(), geodesEvent.asm:1432
14:  far MessageProcess(callBack = 1585h:14e3h (geos::kcode::MessageDispatchDefaultCallBack)), geodesEvent.asm:1334
15:  far MessageDispatch(), geodesEvent.asm:1134

Display More

Die Methode wäre das (ok, ist etwas grösser...)

Code

@method LadderApplicationClass, MSG_META_KBD_CHAR
{
 Message msg;
 // Handle key presses during dedicated input states
 if (!(flags & CF_RELEASE) && (g.ss.inputState != INP_S_NONE) && !(g.ss.windowState == WIN_S_MINI))
 {
   // Set the default message to nothing
   msg = NULL;
   // Handle escape key
   if (character == 0xFF1B)
   {
     switch (g.ss.executionState)
     {
     case EXE_S_DEMO:
       // Stop demo
       msg = MSG_LAD_DEMO_STOP;
       break;
     case EXE_S_PLAY:
       // Set restore point and message to stop the game
       g.ss.restorePoint = MSG_LAD_PLAY_STOP;
       msg = MSG_LAD_PLAY_STOP;
       break;
     default:
       // Return to menu
       msg = MSG_LAD_MENU;
//      break;
     }
   }
   // Handle change font size
   if ((flags >> 8) & (SS_LCTRL | SS_RCTRL))
   {
     switch (tolower(character))
     {
     case C_ONE:
       if (g.ss.windowState != WIN_S_MAXI)
       {
         @send process::MSG_LAD_FONT_DEC_SIZE();
       }
       return;
     case C_TWO:
       if (g.ss.windowState != WIN_S_MAXI)
       {
         @send process::MSG_LAD_FONT_INC_SIZE();
       }
       return;
     case C_ZERO:
       if (g.ss.windowState == WIN_S_MAXI)
       {
         @send LadderPrimary::MSG_GEN_DISPLAY_SET_NOT_MAXIMIZED();
       }
       else
       {
         @send LadderPrimary::MSG_GEN_DISPLAY_SET_MAXIMIZED();
       }
       return;
     }
   }
   // Handle the keys according the application states
   switch (g.ss.inputState)
   {
   case INP_S_EXEC:
     // Handle the key press
     switch (character)
     {
     // Key 'Arrow Up'
     case 0xFF90:
       g.ss.lad.ndir = DIR_N;
       return;
     // Key 'Arrow Right'
     case 0xFF92:
       g.ss.lad.ndir = DIR_E;
       return;
     // Key 'Arrow Down'
     case 0xFF91:
       g.ss.lad.ndir = DIR_S;
       return;
     // Key 'Arrow Left'
     case 0xFF93:
       g.ss.lad.ndir = DIR_W;
       return;
     case C_SPACE:
       g.ss.lad.njump = L_TRUE;
       return;
     case C_SMALL_P:
     case C_CAP_P:
       // Set restore point and message to pause the game
       g.ss.restorePoint = MSG_LAD_PLAY_HOLD;
       msg = MSG_LAD_PLAY_HOLD;
       break;
     // Any other key
     default:
       // Check for printable character
       if ((character < 255) && isprint(character))
       {
         g.ss.lad.ndir = DIR_NONE;
         return;
       }
//      break;
     }
     break;
   case INP_S_MENU:
     // Handle the key press
     switch (tolower(character))
     {
     case C_SMALL_D:
       msg = MSG_LAD_MENU_DIFF;
       break;
     case C_SMALL_S:
       msg = MSG_LAD_MENU_SOUND;
       break;
     case C_SMALL_P:
       msg = MSG_LAD_PLAY;
       break;
     case C_SMALL_I:
       msg = MSG_LAD_HELP;
       break;
     case C_SMALL_E:
       msg = MSG_LAD_EXIT;
//      break;
     }
     break;
   case INP_S_HOLD:
     // Key 'Enter'
     if (character == 0xFF0D)
     {
       // Set restore point and message to do the get ready
       g.ss.restorePoint = MSG_LAD_PLAY_READY;
       msg = MSG_LAD_PLAY_READY;
     }
     break;
   case INP_S_HIGH:
     // Handle the key press
     switch (character)
     {
     // Key 'Enter'
     case 0xFF0D:
       // Set restore point and message to save the game
       g.ss.restorePoint = MSG_LAD_PLAY_SAVE;
       msg = MSG_LAD_PLAY_SAVE;
       break;
     // Key 'Backspace'
     case 0xFF08:
     case C_DELETE:
       @send LadderHighName::MSG_INP_DEL_CHAR();
       return;
     default:
       // Check for printable character
       if ((character < 255) && isprint(character))
       {
         @send LadderHighName::MSG_INP_ADD_CHAR(character);
         return;
       }
//      break;
     }
     break;
   case INP_S_DONE:
   case INP_S_OVER:
     // Key 'Enter'
     if (character == 0xFF0D)
     {
       // Check for new high score
       if (@call LadderMenuRank::MSG_RNK_IS_NEW_RANK(g.ss.game.score) == L_TRUE)
       {
         // Set restore point and message to show high score
         g.ss.restorePoint = MSG_LAD_PLAY_HIGH;
         msg = MSG_LAD_PLAY_HIGH;
       }
       else
       {
         // Set restore point and message to stop the game
         g.ss.restorePoint = MSG_LAD_PLAY_STOP;
         msg = MSG_LAD_PLAY_STOP;
       }
     }
//    break;
   }
   // Send the message
   if (msg != NULL)
   {
     @send process::{MSG_LAD_PROTO} msg();
     return;
   }
 }
 // Not handled, put the key press upstream
//  @send oself::MSG_META_FUP_KBD_CHAR(character, flags, state);
 @callsuper();
}

Display More

Externe Variablen wären g.ss.XXX. Diese sind aber nur zur Flusssteuerung im Einsatz:

Code

// All global data which must be saved into the extra state
typedef struct                 // Save state structure
{
 byte executionState;         //   1B+0 - Execution state
 byte cancelExecution;        //   1B+0 - Request cancel of execution
 byte inputState;             //   1B+0 - Input state (keyboard)
 byte focusState;             //   1B+0 - Focus state
 byte windowState;            //   1B+1 - Window state
 Message restorePoint;        //   2B+0 - Restart point (from state file)
 GLGame game;                 //  18B+0 - Game data
 GLLevel level;               //  20B+0 - Level data
 GLDer ders[DERS_MAX];        //  48B+0 - Der data
 GLLad lad;                   //  12B+0 - Lad data
 word hookaState;             //   2B+0 - Hooka state
} GLSaveState;                 // 107B+1 = 108 bytes used

Display More

bolle732 · September 19, 2024 at 6:52 PM

Die Zeile process.goc:1479 wäre:

Code

    if ((flags >> 8) & (SS_LCTRL | SS_RCTRL))

Das würde auch passen, dass der Crash beim drücken der Ctrl-Taste passiert.

bolle732 · September 19, 2024 at 6:56 PM

Andere Programme machen das auch:

Code

$ grep -RI "flags.*SS_LCTRL.*SS_RCTRL"
Library/FlatFile/Database/ffDatabaseText.goc:            flags &= ~((SS_LCTRL | SS_RCTRL | SS_LSHIFT | SS_RSHIFT) << 8);
Library/FlatFile/Database/ffDatabaseText.goc:            flags &= ~((SS_LCTRL | SS_RCTRL | SS_LSHIFT | SS_RSHIFT) << 8);
Appl/EduApps/TAide/SEATING.goc:            ((flags & ((SS_LALT|SS_RALT|SS_LCTRL|SS_RCTRL)<<8))==0))  {
Appl/Breadbox/NewsRead/UIClass/NApp.goc:            ((flags >> 8) & (SS_LCTRL|SS_RCTRL))
Appl/Breadbox/NewsRead/UIClass/NApp.goc:    //        !((flags >> 8) & (SS_LCTRL|SS_RCTRL|SS_LSHIFT|SS_RSHIFT))
Appl/Breadbox/NewsRead/UIClass/NApp.goc:    //        !((flags >> 8) & (SS_LCTRL|SS_RCTRL|SS_LSHIFT|SS_RSHIFT))
Appl/GeoLadder/Main/process.goc:    if ((flags >> 8) & (SS_LCTRL | SS_RCTRL))

Rainer · September 19, 2024 at 9:06 PM

Meine Vermutung ist, dass du tolower (resp LocalDonwcaseChar) einen Wert >255 übergibst. character ist ja int und 0xFFxx wenn es ein Steuerzeichen ist. Das interpretiert swat möglicherweise als Double-byte-character. Also Steuerzeichen vorher abfangen oder tolower(character) -> tolower(charachter & 0xFF) oder LocalDonwcaseChar(charachter & 0xFF).

Rainer

bolle732 · September 19, 2024 at 9:19 PM

Hallo Rainer

Das macht soweit Sinn. Ich werde das morgen am anderen Rechner mit funktionierendem Swat ausprobieren. Das tolower() im Fall von einer Ctrl-Kombination ist eigentlich überflüssig. Es gibt ja nur Ctrl-[0...2].

Der mit dem Beenden durch F3 muss ich mal im Backtrace anschauen.

Gruss
Andreas

bolle732 · September 19, 2024 at 9:40 PM

Generell bin ich mit dem Handling vom Keyboard noch nicht so ganz glücklich...

Aktuell ist ja der Prozess zuständig. Aber anstatt mit vielen ifs und switchs zu arbeiten, würde ich lieber die einzelnen Objekte verwenden. In meinem Fall würde sich die LadderScreenClass für die MSG_META_KBD_CHAR anbieten. Wenn ich es richtig verstehe, ist eine Message für jede Klasse fix definiert und man kann nicht pro Objekt-Instanz eine Methode überschreiben, ohne entsprechend weiter Sub-Klassen zu erzeugen. Für mich hiesse das, entsprechnd viele Sub-Klassen zu definieren.

Was mich auch noch davon abhielt, ist die Vermutung, dass sich dies negativ auf die Latenz auswirkt. Beim GeoLadder ist es schon relativ wichtig, dass die Latenz klein bleibt, noch wichtiger ist aber, dass sie nicht zu sehr schwankt. Es ist einfacher mit einer konstanten grösseren Latenz zu spielen als mit einer schwankenden kleinen.

Und ich bin mir auch noch nicht absolut sicher, wie genau die Weitergabe eines Tastendrucks in der Objekt-Hirarchie aussieht. War mal der Meinung, dass ein Key-Event dem untersten Objekt übergeben wird und dieses dann den Event dem Parent weiterreicht, wenn der Event nicht behandelt wurde.

Habe mal eine kleine Zeichnug erstellt, in welcher man die Objekt-Hirarchie sieht:

Ladder Code Classes & Objects.pdf

bolle732 · September 19, 2024 at 9:59 PM

Quote from Rainer

Meine Vermutung ist, dass du tolower (resp LocalDonwcaseChar) einen Wert >255 übergibst. character ist ja int und 0xFFxx wenn es ein Steuerzeichen ist. Das interpretiert swat möglicherweise als Double-byte-character. Also Steuerzeichen vorher abfangen oder tolower(character) -> tolower(charachter & 0xFF) oder LocalDonwcaseChar(charachter & 0xFF).
Rainer

Gibt es einen Unterschied zwischen tolower() und LocalDowncaseChar()?

jpolzfuss · September 20, 2024 at 8:19 AM

Hallo!

tolower() ist die normale C-Funktion aus ctype.h. Laut Standarddefinition werden nur die Großbuchstaben A-Z in die Kleinbuchstaben a-z umgewandelt (durch ein +44). Alle anderen Zeichen bleiben, wie sie sind. Ein Ä wird z.B. nicht in ein ä umgewandelt, ebensowenig ein É in ein é. Jedenfalls, wenn sich der Hersteller des Compilers (und der Bibliothek) an den Standard hält.

LocalDowncaseChar() berücksichtigt hingegen die aktuellen Spracheinstellungen, wandelt also auch ein Ä in ein ä und ein É in ein é um.

(Das klingt zwar trivial, da das Regelwerk gar nicht von den Ländereinstellungen abhängen sollte. Aber theoretisch könnte es auch Regeln für nicht-lateinische 8Bit-Zeichensätze wie Kyrillisch oder Griechisch implementieren, was bei Geos nicht der Fall sein sollte. Das Gegenstück LocalUppercaseChar() sollte z.B. berücksichtigen, ob aus dem é ein É oder ein E werden soll. Hier gibt es also definitiv „regionale Sonderlocken“.)

bolle732 · September 20, 2024 at 8:24 AM

Sodele, das maskieren mit 0xFF bei tolower() war erfolgreich Danke Rainer!

Das Problem beim Beenden (F3) war, dass Swat beim Aufrufen von ObjMarkDirty() den Block gelockt haben möchte. Auch gelöst.

Dass die Pfeiltasten nicht funktionierten lag an der Konfiguration der DosBox (im Bereich [sdl] den Eintrag usescancodes=false setzen). Liegt wohl daran, dass ich nur noch mit der DosEmu2 unterwegs war...

Aktuell ist gerade nur noch die Warnung CANNOT_CALL_MEM_LOCK_ON_AN_OBJECT_BLOCK:

Code

  // Set the help file name
 MemLock(HandleOf(@LadderHelpFile));
 memcpy(&buf, LMemDeref(@LadderHelpFile), LMemGetChunkSize(@LadderHelpFile));
 @call application::MSG_META_SET_HELP_FILE(buf);
 MemUnlock(HandleOf(@LadderHelpFile));

Der Chunk @LadderHelpFile liegt beim Application-Objekt in der gleichen Ressource, welche als ui-object klassifiziert ist.

bolle732 · September 20, 2024 at 8:27 AM

Quote from jpolzfuss

Hallo!
tolower() ist die normale C-Funktion aus ctype.h. Laut Standarddefinition werden nur die Großbuchstaben A-Z in die Kleinbuchstaben a-z umgewandelt (durch ein +44). Alle anderen Zeichen bleiben, wie sie sind. Ein Ä wird z.B. nicht in ein ä umgewandelt, ebensowenig ein É in ein é. Jedenfalls, wenn sich der Hersteller des Compilers (und der Bibliothek) an den Standard hält.
LocalDowncaseChar() berücksichtigt hingegen die aktuellen Spracheinstellungen, wandelt also auch ein Ä in ein ä und ein É in ein é um.
(Das klingt zwar trivial, da das Regelwerk gar nicht von den Ländereinstellungen abhängen sollte. Aber theoretisch könnte es auch Regeln für nicht-lateinische 8Bit-Zeichensätze wie Kyrillisch oder Griechisch implementieren, was bei Geos nicht der Fall sein sollte. Das Gegenstück LocalUppercaseChar() sollte z.B. berücksichtigen, ob aus dem é ein É oder ein E werden soll. Hier gibt es also definitiv „regionale Sonderlocken“.)

Hallo Jörg

Sehr schön beschrieben und herzlichen Dank für die Aufklärung

In diesem Fall werde ich bei tolower() bleiben, da es keine Umlaute behandeln muss und entsprechend effizienter sein sollte.

Schönen Gruss
Andreas

Rainer · September 20, 2024 at 9:10 AM

Quote from jpolzfuss

tolower() ist die normale C-Funktion aus ctype.h. Laut Standarddefinition werden nur die Großbuchstaben A-Z in die Kleinbuchstaben a-z umgewandelt (durch ein +44). Alle anderen Zeichen bleiben, wie sie sind. Ein Ä wird z.B. nicht in ein ä umgewandelt, ebensowenig ein É in ein é. Jedenfalls, wenn sich der Hersteller des Compilers (und der Bibliothek) an den Standard hält.

Ich habe das auch vermutet, aber es scheint nicht zu stimmen. Beim WordMatcher verwenden Sie auch toupper und ich dachte, dass es Probleme gibt. Tut es aber nicht.

bolle732 Ich würde auf jeden Fall die Localize-Routinen benuzten. Dein Backtrace zeigt, das TOLOWER LocalDowncaseChar ruft, was den Fehler erzeugt, wenn ah != 0 ist.

Rainer

bolle732 · September 20, 2024 at 10:16 AM

Also, wenn die toXXX im Hintergrund LocalXXX aufruft, dann nehme ich den zusätzlichen Include in Kauf...

Rainer · September 20, 2024 at 12:00 PM

Quote from bolle732

Wenn ich es richtig verstehe, ist eine Message für jede Klasse fix definiert und man kann nicht pro Objekt-Instanz eine Methode überschreiben, ohne entsprechend weiter Sub-Klassen zu erzeugen. Für mich hiesse das, entsprechnd viele Sub-Klassen zu definieren.

Genau so verstehe ich das auch. Viel subclassen bedeuten aber viel Fixed Speicher. Das würde ich also nicht machen. In R-BASIC hatte ich ähnliche Überlegungen und habe letztlich primär MSG_META_KBD_CHAR der ApplicationClass verwendet.

Quote from bolle732

Und ich bin mir auch noch nicht absolut sicher, wie genau die Weitergabe eines Tastendrucks in der Objekt-Hirarchie aussieht.

Da musst du mal in die Doku schauen, da gibts ein ganzes Kapitel dazu. Soweit ich mich erinnere bekommt das Application-Objekt die Tastendrücke als erstes zu sehen.

Rainer

Rainer · September 20, 2024 at 12:02 PM

Quote from bolle732

Der Chunk @LadderHelpFile liegt beim Application-Objekt in der gleichen Ressource, welche als ui-object klassifiziert ist.

Dann musst du den Chunk in eine Datenresource verschieben, dann sollte auch die Meldung weg sein.

bolle732 · September 20, 2024 at 1:28 PM

Quote from Rainer

Genau so verstehe ich das auch. Viel subclassen bedeuten aber viel Fixed Speicher. Das würde ich also nicht machen. In R-BASIC hatte ich ähnliche Überlegungen und habe letztlich primär MSG_META_KBD_CHAR der ApplicationClass verwendet.

Ich tue mich auch schwer, der Schönheitshalber Ressourcen zu vrebrauchen...

Quote

Da musst du mal in die Doku schauen, da gibts ein ganzes Kapitel dazu. Soweit ich mich erinnere bekommt das Application-Objekt die Tastendrücke als erstes zu sehen.

Ja, das habe ich mir auch gedacht. Wollte eben zuerst mal nachfragen, was technisch gesehen Sinn macht oder nicht. Nehme mal an, dass eine ui-object Ressource nicht fixed ist. Dachte, es gäbe eventuell einen anderen Weg, diese zu fixieren.

bolle732 · September 20, 2024 at 1:38 PM

Interessanterweise kann ein Chunk in der gleichen Ressource vom UserStandardDialogOptr problemlos darauf zugreifen. Und ein Pointer in einer anderen ui-object Ressource kann ohne Probleme gelockt werden.

Rainer · September 20, 2024 at 6:37 PM

Quote from bolle732

Nehme mal an, dass eine ui-object Ressource nicht fixed ist. Dachte, es gäbe eventuell einen anderen Weg, diese zu fixieren.

Das Problem ist - falls ich das richtig verstanden habe - beim Locken einer Ressoure mit UI-Objketen ein paar Schritte erfordert, die beim Locken einer reinen Daten-Ressource nicht erforderlich sind. Auf einen Datenchunk in einer UI-Ressource kannst du ohne weitere Probleme zugreifen, bei dem Chunks, die Objekte enthalten wäre ich mir da nicht sicher, sonst würde es die Warnung nicht geben.
Insofern: Des Verschieben eine Datenchunks in eine Data-Resource ist klein Ressourcenverbrauch sondern nur saubere Programmierung Du hast doch ganz bestimmt mehr als einen Daten-Chunk.

Quote from bolle732

Interessanterweise kann ein Chunk in der gleichen Ressource vom UserStandardDialogOptr problemlos darauf zugreifen. Und ein Pointer in einer anderen ui-object Ressource kann ohne Probleme gelockt werden.

? Ok, jetzt kann ich dir nicht mehr folgen.

Rainer