Charles KWON OhJun
486e466592
Major changes since last commit: - FiveSql2 SQL:1999 engine (10,458 LOC) — 43/43 ALL PASS - 21 compiler/runtime bugs fixed (short-circuit AND/OR, FOR LOOP, etc.) - @byref pass-by-reference via RefCell pattern - Mutable closure capture (EnsureLocalRef + RefCell sharing) - RTL: 400 → 479 functions (+79: file, string, datetime, hash, UTF-8) - DateTime/Timestamp fully working (hb_DateTime, hb_Hour/Min/Sec, display) - Reserved word guard (39 keywords blocked from function calls) - AEval arg order fix (element before index) - Closure capture redecl fix (unique _cap_ names per block) - Hash/string indexing in ArrayPush/ArrayPop - Harbour compat test suite: 51/51 - 4 docs: Porting Report, Implementation Plan, Optimization Plan, Commercialization Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
95 lines
2.1 KiB
Go
95 lines
2.1 KiB
Go
// Copyright (c) 2026 Charles KWON OhJun (charleskwonohjun@gmail.com)
|
|
// All rights reserved.
|
|
|
|
// Missing RTL functions needed by FiveSql2 and other Harbour programs.
|
|
package hbrtl
|
|
|
|
import (
|
|
"five/hbrt"
|
|
"os"
|
|
"strings"
|
|
)
|
|
|
|
// hb_FileExists(cFile) → lExists
|
|
func HbFileExists(t *hbrt.Thread) {
|
|
t.Frame(1, 0)
|
|
defer t.EndProcFast()
|
|
fname := t.Local(1).AsString()
|
|
_, err := os.Stat(fname)
|
|
t.PushBool(err == nil)
|
|
t.RetValue()
|
|
}
|
|
|
|
// hb_Second(dTimestamp) → nSeconds (seconds portion of timestamp)
|
|
func HbSecond(t *hbrt.Thread) {
|
|
t.Frame(1, 0)
|
|
defer t.EndProcFast()
|
|
v := t.Local(1)
|
|
if v.IsTimestamp() {
|
|
ms := v.AsTimeMs()
|
|
secs := int64(ms/1000) % 60
|
|
t.RetInt(secs)
|
|
} else {
|
|
t.RetInt(0)
|
|
}
|
|
}
|
|
|
|
// hb_ATokens(cString [, cDelim]) → aTokens
|
|
// Splits string by delimiter (default: space/tab/newline)
|
|
func HbATokens(t *hbrt.Thread) {
|
|
nParams := t.ParamCount()
|
|
t.Frame(nParams, 0)
|
|
defer t.EndProcFast()
|
|
|
|
s := t.Local(1).AsString()
|
|
delim := " "
|
|
if nParams >= 2 && !t.Local(2).IsNil() {
|
|
delim = t.Local(2).AsString()
|
|
}
|
|
|
|
var parts []string
|
|
if delim == " " {
|
|
parts = strings.Fields(s)
|
|
} else {
|
|
parts = strings.Split(s, delim)
|
|
}
|
|
|
|
items := make([]hbrt.Value, len(parts))
|
|
for i, p := range parts {
|
|
items[i] = hbrt.MakeString(p)
|
|
}
|
|
t.PushValue(hbrt.MakeArrayFrom(items))
|
|
t.RetValue()
|
|
}
|
|
|
|
// hb_cdpSelect([cCodepage]) → cPrevCodepage
|
|
// Stub: Five uses UTF-8 internally, codepage selection is a no-op.
|
|
func HbCdpSelect(t *hbrt.Thread) {
|
|
nParams := t.ParamCount()
|
|
t.Frame(nParams, 0)
|
|
defer t.EndProcFast()
|
|
t.RetString("")
|
|
}
|
|
|
|
// Used() → lUsed — checks if current workarea is in use
|
|
func Used(t *hbrt.Thread) {
|
|
t.Frame(0, 0)
|
|
defer t.EndProcFast()
|
|
wam := getWA(t)
|
|
if wam == nil {
|
|
t.RetBool(false)
|
|
return
|
|
}
|
|
t.RetBool(wam.Current() != nil)
|
|
}
|
|
|
|
// DBSETINDEX — SET INDEX TO <file> (adds index to current workarea)
|
|
func rtlDbSetIndex(t *hbrt.Thread) {
|
|
nParams := t.ParamCount()
|
|
t.Frame(nParams, 0)
|
|
defer t.EndProcFast()
|
|
// Delegate to the SET INDEX TO handler in the RDD layer
|
|
// For now, this is handled by the generated code's SET INDEX TO command.
|
|
t.RetNil()
|
|
}
|