source410: literal 4.10 source reconstruction + BC++ 4.52 fleet toolchain archived

- BORLAND/: Borland C++ 4.52 (chosen over 4.5 by byte-match: CODE/RP/CW32.LIB is identical to 4.52's install lib). BCC32/TLINK32/TLIB/MAKE run natively on Win11; CODE/BT/OPT.MAK is the shipped BTL4OPT.EXE's exact flag recipe (extender = Borland PowerPack DPMI32, not Phar Lap TNT). - restoration/source410/: the literal 1995-form reconstruction of the missing BT game source (never mixed into CODE/). Round 1-3 state: * 6 of 10 surviving original TUs COMPILE CLEAN under the period toolchain (BTMSSN, BTCNSL, BTSCNRL, BTTEAM, BTL4MODE, BTL4ARND) - first builds since 1996. * BT_L4/BTL4APP.CPP pilot reconstruction: 12/12 functions, Fail() lands on its binary-recorded line 400 exactly. * BT/BTCNSL.HPP: console wire IDs recovered from the binary's ctors (Killed=9, Damaged=10, ScoreUpdate=13, DeathWithoutHonor=15 [T1]; TeamScore=12 flagged [T4]). * MUNGA/: 8 engine-header backfills back-dated from the BT412 WinTesla tree (VDATA numbering decomp-verified; AUDREND's OpenAL-era virtual removed - the period compiler is the drift detector). * Tooling: backdate.py (WinTesla->1995 header transform), compile410.sh (per-TU verification sweep under authentic OPT.MAK flags). * README: corrected roadmap - MECH.HPP is the capstone grown with the mech TU reconstructions; BTREG.CPP green = the header-family milestone. Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-19 07:33:26 -05:00
parent 599b2388a1
commit 63312e07f9
5913 changed files with 756089 additions and 0 deletions
@@ -0,0 +1,104 @@
+{ lsql.pas }
+program LSql;
+
+{$IfDef VER80}
+uses SnipTool, SnipData, SysUtils, WinTypes, WinProcs,
+     DbiProcs, DbiTypes, DbiErrs;
+{$Else}
+uses WinTypes, WinCrt, Strings, DbiProcs, DbiTypes, DbiErrs,
+     SnipTool, SnipData;
+{$EndIf}
+
+{=====================================================================
+   Code:   LocalSQL();
+ 
+   Input:  None.
+ 
+   Return: None.
+ 
+   Description:
+           This example shows how to do local SQL on a dBASE table
+ ===================================================================== }
+
+var
+    hDb: hDBIDb;         { Handle to the Database }
+    hCur: hDBICur;       { Handle to the Answer Table }
+    hStmt: hDBIStmt;     { Handle to the SQL Statement }
+
+const
+    eDBIQryLang: DBIQryLang = qrylangSQL; { Language of the Query }
+    szQry = 'SELECT name, phone, country '#10#13+
+            'FROM "cust.dbf" '#10#13+
+            'WHERE cust_no>4000'#10#13;    { The Text of the SQL Statement }
+
+begin
+    Screen('*** Local SQL Example ***');
+    Screen('');
+
+    Screen('    Initializing IDAPI...');
+    if (InitAndConnect(hDb) <> DBIERR_NONE) then { Terminate example if }
+    begin                                        { Initialization fails }
+        Screen('');
+        Screen('*** End of Example ***');
+        exit;
+    end;
+
+    Screen('    Setting the default Database directory...');
+    ChkRslt(DbiSetDirectory(hDb, pCHAR(szTblDirectory)), DBIERR_NONE,
+            '    Error - SetDirectory.');
+
+    Screen('    Perform the following SQL statement on the table:');
+    Screen('');
+    Screen(szQry);
+
+    Screen('    Prepare the SQL statement...');
+    if (ChkRslt(DbiQPrepare(hDb, eDBIQryLang, szQry, hStmt),
+                   DBIERR_NONE, '        Error - QPrepare.')
+        <> DBIERR_NONE) then
+    begin
+        CloseDbAndExit(hDb);
+        Screen('');
+        Screen('*** End of Example ***');
+        exit;
+    end;
+
+    { Execute the SQL statement. }
+    Screen('    Execute the SQL statement...');
+    if (ChkRslt(DbiQExec(hStmt, @hCur), DBIERR_NONE,
+                '        Error - QExec.')
+        <> DBIERR_NONE) then
+    begin
+        CloseDbAndExit(hDb);
+        Screen('');
+        Screen('*** End of Example ***');
+        exit;
+    end;
+
+    { Determine if a valid hCursor was returned. }
+    if Assigned (hCur) then
+    begin
+        Screen('    Display the first 10 Records in the answer table...');
+
+        ChkRslt(DbiSetToBegin(hCur), DBIERR_NONE,
+                '    Error - SetToBegin.');
+        DisplayTable(hCur, 10);
+
+        Screen('');
+        Screen('    Close the cursor to the answer set...  ');
+        ChkRslt(DbiCloseCursor(hCur), DBIERR_NONE,
+                '    Error - CloseCursor.');
+    end
+    else
+        Screen('        Could not get cursor to the answer table.');
+
+    Screen('');
+    Screen('    Release memory allocated for the Query...');
+    ChkRslt(DbiQFree(hStmt), DBIERR_NONE, '        Error - QryFree.');
+
+    Screen('    Close the Database and exit IDAPI...');
+    CloseDbAndExit(hDb);
+    Screen('');
+
+    Screen('*** End of Example ***');
+
+end.