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,88 @@
+// BDE - (C) Copyright 1995 by Borland International
+
+// lsql.c
+#include "snipit.h"
+
+//=====================================================================
+//  Function:
+//          LocalSQL();
+//
+//  Description:
+//          This example shows how to do local SQL on a dBASE table.
+//=====================================================================
+void
+LocalSQL (void)
+{
+    DBIResult       rslt;       // Return value from IDAPI
+    hDBIDb          hDb;        // Handle to the database
+    hDBICur         hCur;       // Handle to the answer table
+    hDBIStmt        hStmt;      // Handle to the SQL statement
+    CHAR            szQry[]     = { // The text of the SQL statement
+                "SELECT name, phone, country \r\n"
+                "FROM \"cust.dbf\" \r\n"
+                "WHERE cust_no>4000"
+                                  };
+
+    Screen("*** Local SQL Example ***\r\n");
+
+    BREAK_IN_DEBUGGER();
+
+    Screen("    Initializing IDAPI...");
+    if (InitAndConnect(&hDb) != DBIERR_NONE)
+    {                                        
+        Screen("\r\n*** End of Example ***");
+        return;
+    }
+                             
+    Screen("    Setting the database directory...");
+    rslt = DbiSetDirectory(hDb, (pCHAR) szTblDirectory);
+    ChkRslt(rslt, "SetDirectory");
+
+    Screen("    Perform the following SQL statement on the table:\r\n");
+    Screen(szQry);
+
+    Screen("\r\n    Prepare the SQL statement...");
+    rslt = DbiQPrepare(hDb, qrylangSQL, szQry, &hStmt);
+    if (ChkRslt(rslt, "QPrepare") != DBIERR_NONE)
+    {
+        CloseDbAndExit(&hDb);
+        Screen("\r\n*** End of Example ***");
+        return;
+    }
+
+    Screen("    Execute the SQL statement...");
+    rslt = DbiQExec(hStmt, &hCur);
+    if (ChkRslt(rslt, "QExec") != DBIERR_NONE)
+    {
+        CloseDbAndExit(&hDb);
+        Screen("\r\n*** End of Example ***");
+        return;
+    }
+
+    // Check for a valid cursor.
+    if (hCur)
+    {
+        Screen("    Display the first 10 records in the answer table...");
+        rslt = DbiSetToBegin(hCur);
+        ChkRslt(rslt, "SetToBegin");
+        DisplayTable(hCur, 10);
+
+        Screen("\r\n    Close the cursor to the answer set...");
+        rslt = DbiCloseCursor(&hCur);
+        ChkRslt(rslt, "CloseCursor");
+    }
+    else
+    {
+        Screen("        Could not get cursor to the answer table");
+    }
+
+    Screen("    Release memory allocated for the query...");
+    rslt = DbiQFree(&hStmt);
+    ChkRslt(rslt, "QryFree");
+
+    Screen("    Close the database and exit IDAPI...");
+    CloseDbAndExit(&hDb);
+
+    Screen("\r\n*** End of Example ***");
+}
+