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
620 B
Plaintext
32 lines
620 B
Plaintext
// Harbour Get system sample — adapted from harbour-core/tests/read.prg
|
|
// Tests PRG compatibility: @ SAY GET, READ, PICTURE
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL cName := "Harbour "
|
|
LOCAL cWish := "Power "
|
|
LOCAL cEffort := "Join us! "
|
|
|
|
LOCAL GetList := {}
|
|
|
|
CLS
|
|
|
|
@ 2, 2 SAY "Enter your name :" GET cName PICTURE "@!"
|
|
@ 4, 2 SAY "Enter your wish :" GET cWish
|
|
@ 6, 2 SAY "Enter your effort:" GET cEffort
|
|
|
|
@ 8, 2 SAY "GetList:" + Str(Len(GetList))
|
|
@ 9, 2 SAY "Enter=Next ESC=Quit"
|
|
|
|
READ
|
|
|
|
CLS
|
|
? cName
|
|
? cWish
|
|
? cEffort
|
|
? ""
|
|
? "Press any key..."
|
|
Inkey(0)
|
|
|
|
RETURN
|