Charles KWON OhJun
59568f3301
- Compiler: PP → Lexer → Parser → Analyzer → Gengo pipeline - Parser: 232/236 (98%) Harbour compatibility, registry-based dispatch - RTL: 351 Harbour-compatible functions - RDD: DBF/NTX/CDX engines with Rushmore bitmap optimization - Go Interop: IMPORT + pkg.Func() + obj:Method() with FastPath (15M calls/sec) - HB_FUNC API: Full Harbour C API compatible Go bridge - Concurrency: SPAWN/LAUNCH/GOROUTINE, <-, WATCH, PARALLEL FOR, ASYNC/AWAIT - Extensions: Multi-return, DEFER, Slice, f-string, Nil-safe ?:, CONST - Macro Compiler: Runtime AST parsing and evaluation - Debugger: TUI debugger with source display, breakpoints, stepping - FRB: Native + Pcode dual mode runtime binary - Tests: 13 packages ALL PASS Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
32 lines
665 B
Plaintext
32 lines
665 B
Plaintext
// Minimal debug: just stabilize once and print
|
|
|
|
FUNCTION Main()
|
|
LOCAL oBrowse, oCol
|
|
|
|
USE "dbf/customer"
|
|
|
|
? "Step 1: USE OK, records:", RecCount()
|
|
|
|
oBrowse := TBrowseDB(2, 0, 22, 79)
|
|
? "Step 2: TBrowse created"
|
|
|
|
oCol := TBColumnNew("ID", {|| FieldGet(1)})
|
|
oBrowse:addColumn(oCol)
|
|
? "Step 3: Column added"
|
|
|
|
oCol := TBColumnNew("FIRST", {|| FieldGet(2)})
|
|
oBrowse:addColumn(oCol)
|
|
? "Step 4: Column 2 added, count:", oBrowse:colCount()
|
|
|
|
? "Step 5: Calling stabilize..."
|
|
oBrowse:stabilize()
|
|
? "Step 6: stabilize done"
|
|
|
|
? "Step 7: Calling Inkey..."
|
|
Inkey(0)
|
|
? "Step 8: Inkey returned"
|
|
|
|
USE
|
|
? "Done!"
|
|
RETURN NIL
|