Compare commits
34 Commits
bd843d2219
...
v0.1.7
| Author | SHA1 | Date | |
|---|---|---|---|
| 018a799c05 | |||
| ec78286165 | |||
| f2688072ac | |||
| 746643527d | |||
| 091ff1e422 | |||
| 1fc472a54c | |||
| caabaeeb9c | |||
| 4e43d3d50d | |||
| fd5ed53b29 | |||
| 2800ce4e2d | |||
| ec365ebb3f | |||
| 52dcc88051 | |||
| 1842b668e5 | |||
| c67e3f31c3 | |||
| b0ccde749c | |||
| 4ba7a23ae3 | |||
| 89741b4a32 | |||
| 3a2376cd49 | |||
| 4dfb04a1b6 | |||
| 3cdde02eb2 | |||
| a5762d0397 | |||
| 1132c621c6 | |||
| a0fff1814e | |||
| 4e9e823246 | |||
| 6a2e4a7ac1 | |||
| 3d706cb32b | |||
| 7c3bfa9301 | |||
| b56c5461f1 | |||
| 61e1469845 | |||
| bb0a288210 | |||
| 5d7f4633e1 | |||
| d05b13d840 | |||
| 0ee3050704 | |||
| 80b1276f9f |
11
CLAUDE.md
11
CLAUDE.md
@@ -71,7 +71,16 @@ cd ../packages/markdown && ../../lang/target/release/lux test
|
|||||||
**Do NOT commit if any check fails.** Fix the issue first.
|
**Do NOT commit if any check fails.** Fix the issue first.
|
||||||
|
|
||||||
### Commit after every piece of work
|
### Commit after every piece of work
|
||||||
**After completing each logical unit of work, commit immediately.** Do not let changes accumulate uncommitted across multiple features. Each commit should be a single logical change (one feature, one bugfix, etc.). Use `--no-gpg-sign` flag for all commits.
|
**After completing each logical unit of work, commit immediately.** This is NOT optional — every fix, feature, or change MUST be committed right away. Do not let changes accumulate uncommitted across multiple features. Each commit should be a single logical change (one feature, one bugfix, etc.). Use `--no-gpg-sign` flag for all commits.
|
||||||
|
|
||||||
|
**Commit workflow:**
|
||||||
|
1. Make the change
|
||||||
|
2. Run `./scripts/validate.sh` (all 13 checks must pass)
|
||||||
|
3. `git add` the relevant files
|
||||||
|
4. `git commit --no-gpg-sign -m "type: description"` (use conventional commits: fix/feat/chore/docs)
|
||||||
|
5. Move on to the next task
|
||||||
|
|
||||||
|
**Never skip committing.** If you fixed a bug, commit it. If you added a feature, commit it. If you updated docs, commit it. Do not batch unrelated changes into one commit.
|
||||||
|
|
||||||
**IMPORTANT: Always verify Lux code you write:**
|
**IMPORTANT: Always verify Lux code you write:**
|
||||||
- Run with interpreter: `./target/release/lux file.lux`
|
- Run with interpreter: `./target/release/lux file.lux`
|
||||||
|
|||||||
15
Cargo.lock
generated
15
Cargo.lock
generated
@@ -225,7 +225,7 @@ source = "registry+https://github.com/rust-lang/crates.io-index"
|
|||||||
checksum = "39cab71617ae0d63f51a36d69f866391735b51691dbda63cf6f96d042b63efeb"
|
checksum = "39cab71617ae0d63f51a36d69f866391735b51691dbda63cf6f96d042b63efeb"
|
||||||
dependencies = [
|
dependencies = [
|
||||||
"libc",
|
"libc",
|
||||||
"windows-sys 0.59.0",
|
"windows-sys 0.61.2",
|
||||||
]
|
]
|
||||||
|
|
||||||
[[package]]
|
[[package]]
|
||||||
@@ -392,6 +392,12 @@ dependencies = [
|
|||||||
"wasip3",
|
"wasip3",
|
||||||
]
|
]
|
||||||
|
|
||||||
|
[[package]]
|
||||||
|
name = "glob"
|
||||||
|
version = "0.3.3"
|
||||||
|
source = "registry+https://github.com/rust-lang/crates.io-index"
|
||||||
|
checksum = "0cc23270f6e1808e30a928bdc84dea0b9b4136a8bc82338574f23baf47bbd280"
|
||||||
|
|
||||||
[[package]]
|
[[package]]
|
||||||
name = "h2"
|
name = "h2"
|
||||||
version = "0.3.27"
|
version = "0.3.27"
|
||||||
@@ -770,8 +776,9 @@ dependencies = [
|
|||||||
|
|
||||||
[[package]]
|
[[package]]
|
||||||
name = "lux"
|
name = "lux"
|
||||||
version = "0.1.0"
|
version = "0.1.6"
|
||||||
dependencies = [
|
dependencies = [
|
||||||
|
"glob",
|
||||||
"lsp-server",
|
"lsp-server",
|
||||||
"lsp-types",
|
"lsp-types",
|
||||||
"postgres",
|
"postgres",
|
||||||
@@ -1182,7 +1189,7 @@ dependencies = [
|
|||||||
"errno",
|
"errno",
|
||||||
"libc",
|
"libc",
|
||||||
"linux-raw-sys",
|
"linux-raw-sys",
|
||||||
"windows-sys 0.59.0",
|
"windows-sys 0.61.2",
|
||||||
]
|
]
|
||||||
|
|
||||||
[[package]]
|
[[package]]
|
||||||
@@ -1475,7 +1482,7 @@ dependencies = [
|
|||||||
"getrandom 0.4.1",
|
"getrandom 0.4.1",
|
||||||
"once_cell",
|
"once_cell",
|
||||||
"rustix",
|
"rustix",
|
||||||
"windows-sys 0.59.0",
|
"windows-sys 0.61.2",
|
||||||
]
|
]
|
||||||
|
|
||||||
[[package]]
|
[[package]]
|
||||||
|
|||||||
@@ -1,6 +1,6 @@
|
|||||||
[package]
|
[package]
|
||||||
name = "lux"
|
name = "lux"
|
||||||
version = "0.1.0"
|
version = "0.1.7"
|
||||||
edition = "2021"
|
edition = "2021"
|
||||||
description = "A functional programming language with first-class effects, schema evolution, and behavioral types"
|
description = "A functional programming language with first-class effects, schema evolution, and behavioral types"
|
||||||
license = "MIT"
|
license = "MIT"
|
||||||
@@ -17,6 +17,7 @@ reqwest = { version = "0.11", default-features = false, features = ["blocking",
|
|||||||
tiny_http = "0.12"
|
tiny_http = "0.12"
|
||||||
rusqlite = { version = "0.31", features = ["bundled"] }
|
rusqlite = { version = "0.31", features = ["bundled"] }
|
||||||
postgres = "0.19"
|
postgres = "0.19"
|
||||||
|
glob = "0.3"
|
||||||
|
|
||||||
|
|
||||||
[dev-dependencies]
|
[dev-dependencies]
|
||||||
|
|||||||
@@ -44,7 +44,7 @@
|
|||||||
printf "\n"
|
printf "\n"
|
||||||
printf " \033[1;35m╦ ╦ ╦╦ ╦\033[0m\n"
|
printf " \033[1;35m╦ ╦ ╦╦ ╦\033[0m\n"
|
||||||
printf " \033[1;35m║ ║ ║╔╣\033[0m\n"
|
printf " \033[1;35m║ ║ ║╔╣\033[0m\n"
|
||||||
printf " \033[1;35m╩═╝╚═╝╩ ╩\033[0m v0.1.0\n"
|
printf " \033[1;35m╩═╝╚═╝╩ ╩\033[0m v0.1.7\n"
|
||||||
printf "\n"
|
printf "\n"
|
||||||
printf " Functional language with first-class effects\n"
|
printf " Functional language with first-class effects\n"
|
||||||
printf "\n"
|
printf "\n"
|
||||||
@@ -62,7 +62,7 @@
|
|||||||
|
|
||||||
packages.default = pkgs.rustPlatform.buildRustPackage {
|
packages.default = pkgs.rustPlatform.buildRustPackage {
|
||||||
pname = "lux";
|
pname = "lux";
|
||||||
version = "0.1.0";
|
version = "0.1.7";
|
||||||
src = ./.;
|
src = ./.;
|
||||||
cargoLock.lockFile = ./Cargo.lock;
|
cargoLock.lockFile = ./Cargo.lock;
|
||||||
|
|
||||||
@@ -79,7 +79,7 @@
|
|||||||
};
|
};
|
||||||
in muslPkgs.rustPlatform.buildRustPackage {
|
in muslPkgs.rustPlatform.buildRustPackage {
|
||||||
pname = "lux";
|
pname = "lux";
|
||||||
version = "0.1.0";
|
version = "0.1.7";
|
||||||
src = ./.;
|
src = ./.;
|
||||||
cargoLock.lockFile = ./Cargo.lock;
|
cargoLock.lockFile = ./Cargo.lock;
|
||||||
|
|
||||||
|
|||||||
225
projects/lux-compiler/ast.lux
Normal file
225
projects/lux-compiler/ast.lux
Normal file
@@ -0,0 +1,225 @@
|
|||||||
|
// Lux AST — Self-hosted Abstract Syntax Tree definitions
|
||||||
|
//
|
||||||
|
// Direct translation of src/ast.rs into Lux ADTs.
|
||||||
|
// These types represent the parsed structure of a Lux program.
|
||||||
|
//
|
||||||
|
// Naming conventions to avoid collisions:
|
||||||
|
// Ex = Expr variant, Pat = Pattern, Te = TypeExpr
|
||||||
|
// Td = TypeDef, Vf = VariantFields, Op = Operator
|
||||||
|
// Decl = Declaration, St = Statement
|
||||||
|
|
||||||
|
// === Source Location ===
|
||||||
|
|
||||||
|
type Span = | Span(Int, Int)
|
||||||
|
|
||||||
|
// === Identifiers ===
|
||||||
|
|
||||||
|
type Ident = | Ident(String, Span)
|
||||||
|
|
||||||
|
// === Visibility ===
|
||||||
|
|
||||||
|
type Visibility = | Public | Private
|
||||||
|
|
||||||
|
// === Schema Evolution ===
|
||||||
|
|
||||||
|
type Version = | Version(Int, Span)
|
||||||
|
|
||||||
|
type VersionConstraint =
|
||||||
|
| VcExact(Version)
|
||||||
|
| VcAtLeast(Version)
|
||||||
|
| VcLatest(Span)
|
||||||
|
|
||||||
|
// === Behavioral Types ===
|
||||||
|
|
||||||
|
type BehavioralProperty =
|
||||||
|
| BpPure
|
||||||
|
| BpTotal
|
||||||
|
| BpIdempotent
|
||||||
|
| BpDeterministic
|
||||||
|
| BpCommutative
|
||||||
|
|
||||||
|
// === Trait Bound (needed before WhereClause) ===
|
||||||
|
|
||||||
|
type TraitBound = | TraitBound(Ident, List<TypeExpr>, Span)
|
||||||
|
|
||||||
|
// === Trait Constraint (needed before WhereClause) ===
|
||||||
|
|
||||||
|
type TraitConstraint = | TraitConstraint(Ident, List<TraitBound>, Span)
|
||||||
|
|
||||||
|
// === Where Clauses ===
|
||||||
|
|
||||||
|
type WhereClause =
|
||||||
|
| WcProperty(Ident, BehavioralProperty, Span)
|
||||||
|
| WcResult(Expr, Span)
|
||||||
|
| WcTrait(TraitConstraint)
|
||||||
|
|
||||||
|
// === Module Path ===
|
||||||
|
|
||||||
|
type ModulePath = | ModulePath(List<Ident>, Span)
|
||||||
|
|
||||||
|
// === Import ===
|
||||||
|
|
||||||
|
// path, alias, items, wildcard, span
|
||||||
|
type ImportDecl = | ImportDecl(ModulePath, Option<Ident>, Option<List<Ident>>, Bool, Span)
|
||||||
|
|
||||||
|
// === Program ===
|
||||||
|
|
||||||
|
type Program = | Program(List<ImportDecl>, List<Declaration>)
|
||||||
|
|
||||||
|
// === Declarations ===
|
||||||
|
|
||||||
|
type Declaration =
|
||||||
|
| DeclFunction(FunctionDecl)
|
||||||
|
| DeclEffect(EffectDecl)
|
||||||
|
| DeclType(TypeDecl)
|
||||||
|
| DeclHandler(HandlerDecl)
|
||||||
|
| DeclLet(LetDecl)
|
||||||
|
| DeclTrait(TraitDecl)
|
||||||
|
| DeclImpl(ImplDecl)
|
||||||
|
|
||||||
|
// === Parameter ===
|
||||||
|
|
||||||
|
type Parameter = | Parameter(Ident, TypeExpr, Span)
|
||||||
|
|
||||||
|
// === Effect Operation ===
|
||||||
|
|
||||||
|
type EffectOp = | EffectOp(Ident, List<Parameter>, TypeExpr, Span)
|
||||||
|
|
||||||
|
// === Record Field ===
|
||||||
|
|
||||||
|
type RecordField = | RecordField(Ident, TypeExpr, Span)
|
||||||
|
|
||||||
|
// === Variant Fields ===
|
||||||
|
|
||||||
|
type VariantFields =
|
||||||
|
| VfUnit
|
||||||
|
| VfTuple(List<TypeExpr>)
|
||||||
|
| VfRecord(List<RecordField>)
|
||||||
|
|
||||||
|
// === Variant ===
|
||||||
|
|
||||||
|
type Variant = | Variant(Ident, VariantFields, Span)
|
||||||
|
|
||||||
|
// === Migration ===
|
||||||
|
|
||||||
|
type Migration = | Migration(Version, Expr, Span)
|
||||||
|
|
||||||
|
// === Handler Impl ===
|
||||||
|
|
||||||
|
// op_name, params, resume, body, span
|
||||||
|
type HandlerImpl = | HandlerImpl(Ident, List<Ident>, Option<Ident>, Expr, Span)
|
||||||
|
|
||||||
|
// === Impl Method ===
|
||||||
|
|
||||||
|
// name, params, return_type, body, span
|
||||||
|
type ImplMethod = | ImplMethod(Ident, List<Parameter>, Option<TypeExpr>, Expr, Span)
|
||||||
|
|
||||||
|
// === Trait Method ===
|
||||||
|
|
||||||
|
// name, type_params, params, return_type, default_impl, span
|
||||||
|
type TraitMethod = | TraitMethod(Ident, List<Ident>, List<Parameter>, TypeExpr, Option<Expr>, Span)
|
||||||
|
|
||||||
|
// === Type Expressions ===
|
||||||
|
|
||||||
|
type TypeExpr =
|
||||||
|
| TeNamed(Ident)
|
||||||
|
| TeApp(TypeExpr, List<TypeExpr>)
|
||||||
|
| TeFunction(List<TypeExpr>, TypeExpr, List<Ident>)
|
||||||
|
| TeTuple(List<TypeExpr>)
|
||||||
|
| TeRecord(List<RecordField>)
|
||||||
|
| TeUnit
|
||||||
|
| TeVersioned(TypeExpr, VersionConstraint)
|
||||||
|
|
||||||
|
// === Literal ===
|
||||||
|
|
||||||
|
type LiteralKind =
|
||||||
|
| LitInt(Int)
|
||||||
|
| LitFloat(String)
|
||||||
|
| LitString(String)
|
||||||
|
| LitChar(Char)
|
||||||
|
| LitBool(Bool)
|
||||||
|
| LitUnit
|
||||||
|
|
||||||
|
type Literal = | Literal(LiteralKind, Span)
|
||||||
|
|
||||||
|
// === Binary Operators ===
|
||||||
|
|
||||||
|
type BinaryOp =
|
||||||
|
| OpAdd | OpSub | OpMul | OpDiv | OpMod
|
||||||
|
| OpEq | OpNe | OpLt | OpLe | OpGt | OpGe
|
||||||
|
| OpAnd | OpOr
|
||||||
|
| OpPipe | OpConcat
|
||||||
|
|
||||||
|
// === Unary Operators ===
|
||||||
|
|
||||||
|
type UnaryOp = | OpNeg | OpNot
|
||||||
|
|
||||||
|
// === Statements ===
|
||||||
|
|
||||||
|
type Statement =
|
||||||
|
| StExpr(Expr)
|
||||||
|
| StLet(Ident, Option<TypeExpr>, Expr, Span)
|
||||||
|
|
||||||
|
// === Match Arms ===
|
||||||
|
|
||||||
|
type MatchArm = | MatchArm(Pattern, Option<Expr>, Expr, Span)
|
||||||
|
|
||||||
|
// === Patterns ===
|
||||||
|
|
||||||
|
type Pattern =
|
||||||
|
| PatWildcard(Span)
|
||||||
|
| PatVar(Ident)
|
||||||
|
| PatLiteral(Literal)
|
||||||
|
| PatConstructor(Ident, List<Pattern>, Span)
|
||||||
|
| PatRecord(List<(Ident, Pattern)>, Span)
|
||||||
|
| PatTuple(List<Pattern>, Span)
|
||||||
|
|
||||||
|
// === Function Declaration ===
|
||||||
|
// visibility, doc, name, type_params, params, return_type, effects, properties, where_clauses, body, span
|
||||||
|
type FunctionDecl = | FunctionDecl(Visibility, Option<String>, Ident, List<Ident>, List<Parameter>, TypeExpr, List<Ident>, List<BehavioralProperty>, List<WhereClause>, Expr, Span)
|
||||||
|
|
||||||
|
// === Effect Declaration ===
|
||||||
|
// doc, name, type_params, operations, span
|
||||||
|
type EffectDecl = | EffectDecl(Option<String>, Ident, List<Ident>, List<EffectOp>, Span)
|
||||||
|
|
||||||
|
// === Type Declaration ===
|
||||||
|
// visibility, doc, name, type_params, version, definition, migrations, span
|
||||||
|
type TypeDecl = | TypeDecl(Visibility, Option<String>, Ident, List<Ident>, Option<Version>, TypeDef, List<Migration>, Span)
|
||||||
|
|
||||||
|
// === Handler Declaration ===
|
||||||
|
// name, params, effect, implementations, span
|
||||||
|
type HandlerDecl = | HandlerDecl(Ident, List<Parameter>, Ident, List<HandlerImpl>, Span)
|
||||||
|
|
||||||
|
// === Let Declaration ===
|
||||||
|
// visibility, doc, name, typ, value, span
|
||||||
|
type LetDecl = | LetDecl(Visibility, Option<String>, Ident, Option<TypeExpr>, Expr, Span)
|
||||||
|
|
||||||
|
// === Trait Declaration ===
|
||||||
|
// visibility, doc, name, type_params, super_traits, methods, span
|
||||||
|
type TraitDecl = | TraitDecl(Visibility, Option<String>, Ident, List<Ident>, List<TraitBound>, List<TraitMethod>, Span)
|
||||||
|
|
||||||
|
// === Impl Declaration ===
|
||||||
|
// type_params, constraints, trait_name, trait_args, target_type, methods, span
|
||||||
|
type ImplDecl = | ImplDecl(List<Ident>, List<TraitConstraint>, Ident, List<TypeExpr>, TypeExpr, List<ImplMethod>, Span)
|
||||||
|
|
||||||
|
// === Expressions ===
|
||||||
|
|
||||||
|
type Expr =
|
||||||
|
| ExLiteral(Literal)
|
||||||
|
| ExVar(Ident)
|
||||||
|
| ExBinaryOp(BinaryOp, Expr, Expr, Span)
|
||||||
|
| ExUnaryOp(UnaryOp, Expr, Span)
|
||||||
|
| ExCall(Expr, List<Expr>, Span)
|
||||||
|
| ExEffectOp(Ident, Ident, List<Expr>, Span)
|
||||||
|
| ExField(Expr, Ident, Span)
|
||||||
|
| ExTupleIndex(Expr, Int, Span)
|
||||||
|
| ExLambda(List<Parameter>, Option<TypeExpr>, List<Ident>, Expr, Span)
|
||||||
|
| ExLet(Ident, Option<TypeExpr>, Expr, Expr, Span)
|
||||||
|
| ExIf(Expr, Expr, Expr, Span)
|
||||||
|
| ExMatch(Expr, List<MatchArm>, Span)
|
||||||
|
| ExBlock(List<Statement>, Expr, Span)
|
||||||
|
| ExRecord(Option<Expr>, List<(Ident, Expr)>, Span)
|
||||||
|
| ExTuple(List<Expr>, Span)
|
||||||
|
| ExList(List<Expr>, Span)
|
||||||
|
| ExRun(Expr, List<(Ident, Expr)>, Span)
|
||||||
|
| ExResume(Expr, Span)
|
||||||
@@ -5,7 +5,11 @@ set -euo pipefail
|
|||||||
# Builds a static binary, generates changelog, and creates a Gitea release.
|
# Builds a static binary, generates changelog, and creates a Gitea release.
|
||||||
#
|
#
|
||||||
# Usage:
|
# Usage:
|
||||||
# ./scripts/release.sh [version]
|
# ./scripts/release.sh # auto-bump patch (0.2.0 → 0.2.1)
|
||||||
|
# ./scripts/release.sh patch # same as above
|
||||||
|
# ./scripts/release.sh minor # bump minor (0.2.0 → 0.3.0)
|
||||||
|
# ./scripts/release.sh major # bump major (0.2.0 → 1.0.0)
|
||||||
|
# ./scripts/release.sh v1.2.3 # explicit version
|
||||||
#
|
#
|
||||||
# Environment:
|
# Environment:
|
||||||
# GITEA_TOKEN - API token for git.qrty.ink (prompted if not set)
|
# GITEA_TOKEN - API token for git.qrty.ink (prompted if not set)
|
||||||
@@ -34,14 +38,33 @@ warn() { printf "${YELLOW}!!${NC} %s\n" "$1"; }
|
|||||||
err() { printf "${RED}error:${NC} %s\n" "$1" >&2; exit 1; }
|
err() { printf "${RED}error:${NC} %s\n" "$1" >&2; exit 1; }
|
||||||
|
|
||||||
# --- Determine version ---
|
# --- Determine version ---
|
||||||
VERSION="${1:-}"
|
CURRENT=$(grep '^version' Cargo.toml | head -1 | sed 's/.*"\(.*\)".*/\1/')
|
||||||
if [ -z "$VERSION" ]; then
|
BUMP="${1:-patch}"
|
||||||
VERSION=$(grep '^version' Cargo.toml | head -1 | sed 's/.*"\(.*\)".*/\1/')
|
|
||||||
info "Version from Cargo.toml: v$VERSION"
|
bump_version() {
|
||||||
fi
|
local ver="$1" part="$2"
|
||||||
# Ensure v prefix
|
IFS='.' read -r major minor patch <<< "$ver"
|
||||||
[[ "$VERSION" == v* ]] || VERSION="v$VERSION"
|
case "$part" in
|
||||||
TAG="$VERSION"
|
major) echo "$((major + 1)).0.0" ;;
|
||||||
|
minor) echo "$major.$((minor + 1)).0" ;;
|
||||||
|
patch) echo "$major.$minor.$((patch + 1))" ;;
|
||||||
|
*) echo "$part" ;; # treat as explicit version
|
||||||
|
esac
|
||||||
|
}
|
||||||
|
|
||||||
|
case "$BUMP" in
|
||||||
|
major|minor|patch)
|
||||||
|
VERSION=$(bump_version "$CURRENT" "$BUMP")
|
||||||
|
info "Bumping $BUMP: $CURRENT → $VERSION"
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
# Explicit version — strip v prefix if present
|
||||||
|
VERSION="${BUMP#v}"
|
||||||
|
info "Explicit version: $VERSION"
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
TAG="v$VERSION"
|
||||||
|
|
||||||
# --- Check for clean working tree ---
|
# --- Check for clean working tree ---
|
||||||
if [ -n "$(git status --porcelain)" ]; then
|
if [ -n "$(git status --porcelain)" ]; then
|
||||||
@@ -54,7 +77,18 @@ fi
|
|||||||
|
|
||||||
# --- Check if tag already exists ---
|
# --- Check if tag already exists ---
|
||||||
if git rev-parse "$TAG" >/dev/null 2>&1; then
|
if git rev-parse "$TAG" >/dev/null 2>&1; then
|
||||||
err "Tag $TAG already exists. Bump version in Cargo.toml or choose a different version."
|
err "Tag $TAG already exists. Choose a different version."
|
||||||
|
fi
|
||||||
|
|
||||||
|
# --- Update version in source files ---
|
||||||
|
if [ "$VERSION" != "$CURRENT" ]; then
|
||||||
|
info "Updating version in Cargo.toml and flake.nix..."
|
||||||
|
sed -i "0,/^version = \"$CURRENT\"/s//version = \"$VERSION\"/" Cargo.toml
|
||||||
|
sed -i "s/version = \"$CURRENT\";/version = \"$VERSION\";/g" flake.nix
|
||||||
|
sed -i "s/v$CURRENT/v$VERSION/g" flake.nix
|
||||||
|
git add Cargo.toml flake.nix
|
||||||
|
git commit --no-gpg-sign -m "chore: bump version to $VERSION"
|
||||||
|
ok "Version updated and committed"
|
||||||
fi
|
fi
|
||||||
|
|
||||||
# --- Generate changelog ---
|
# --- Generate changelog ---
|
||||||
|
|||||||
@@ -2,7 +2,7 @@
|
|||||||
set -euo pipefail
|
set -euo pipefail
|
||||||
|
|
||||||
# Lux Full Validation Script
|
# Lux Full Validation Script
|
||||||
# Runs all checks: Rust tests, package tests, type checking, formatting, linting.
|
# Runs all checks: Rust tests, package tests, type checking, example compilation.
|
||||||
# Run after every committable change to ensure no regressions.
|
# Run after every committable change to ensure no regressions.
|
||||||
|
|
||||||
# cd to repo root (directory containing this script's parent)
|
# cd to repo root (directory containing this script's parent)
|
||||||
@@ -11,6 +11,8 @@ cd "$SCRIPT_DIR/.."
|
|||||||
|
|
||||||
LUX="$(pwd)/target/release/lux"
|
LUX="$(pwd)/target/release/lux"
|
||||||
PACKAGES_DIR="$(pwd)/../packages"
|
PACKAGES_DIR="$(pwd)/../packages"
|
||||||
|
PROJECTS_DIR="$(pwd)/projects"
|
||||||
|
EXAMPLES_DIR="$(pwd)/examples"
|
||||||
RED='\033[0;31m'
|
RED='\033[0;31m'
|
||||||
GREEN='\033[0;32m'
|
GREEN='\033[0;32m'
|
||||||
CYAN='\033[0;36m'
|
CYAN='\033[0;36m'
|
||||||
@@ -30,7 +32,7 @@ fail() { printf "${RED}FAIL${NC} %s\n" "${1:-}"; FAILED=$((FAILED + 1)); }
|
|||||||
|
|
||||||
# --- Rust checks ---
|
# --- Rust checks ---
|
||||||
step "cargo check"
|
step "cargo check"
|
||||||
if nix develop --command cargo check 2>&1 | grep -q "Finished"; then ok; else fail; fi
|
if nix develop --command cargo check 2>/dev/null; then ok; else fail; fi
|
||||||
|
|
||||||
step "cargo test"
|
step "cargo test"
|
||||||
OUTPUT=$(nix develop --command cargo test 2>&1 || true)
|
OUTPUT=$(nix develop --command cargo test 2>&1 || true)
|
||||||
@@ -39,7 +41,7 @@ if echo "$RESULT" | grep -q "0 failed"; then ok "$RESULT"; else fail "$RESULT";
|
|||||||
|
|
||||||
# --- Build release binary ---
|
# --- Build release binary ---
|
||||||
step "cargo build --release"
|
step "cargo build --release"
|
||||||
if nix develop --command cargo build --release 2>&1 | grep -q "Finished"; then ok; else fail; fi
|
if nix develop --command cargo build --release 2>/dev/null; then ok; else fail; fi
|
||||||
|
|
||||||
# --- Package tests ---
|
# --- Package tests ---
|
||||||
for pkg in path frontmatter xml rss markdown; do
|
for pkg in path frontmatter xml rss markdown; do
|
||||||
@@ -63,6 +65,142 @@ for pkg in path frontmatter xml rss markdown; do
|
|||||||
fi
|
fi
|
||||||
done
|
done
|
||||||
|
|
||||||
|
# --- Project checks ---
|
||||||
|
for proj_dir in "$PROJECTS_DIR"/*/; do
|
||||||
|
proj=$(basename "$proj_dir")
|
||||||
|
if [ -f "$proj_dir/main.lux" ]; then
|
||||||
|
step "lux check (project: $proj)"
|
||||||
|
OUTPUT=$("$LUX" check "$proj_dir/main.lux" 2>&1 || true)
|
||||||
|
if echo "$OUTPUT" | grep -qi "error"; then fail; else ok; fi
|
||||||
|
fi
|
||||||
|
# Check any standalone .lux files in the project
|
||||||
|
for lux_file in "$proj_dir"/*.lux; do
|
||||||
|
[ -f "$lux_file" ] || continue
|
||||||
|
fname=$(basename "$lux_file")
|
||||||
|
[ "$fname" = "main.lux" ] && continue
|
||||||
|
step "lux check (project: $proj/$fname)"
|
||||||
|
OUTPUT=$("$LUX" check "$lux_file" 2>&1 || true)
|
||||||
|
if echo "$OUTPUT" | grep -qi "error"; then fail; else ok; fi
|
||||||
|
done
|
||||||
|
done
|
||||||
|
|
||||||
|
# === Compilation & Interpreter Checks ===
|
||||||
|
|
||||||
|
# --- Interpreter: examples ---
|
||||||
|
# Skip: http_api, http, http_router, http_server (network), postgres_demo (db),
|
||||||
|
# random, property_testing (Random effect), shell (Process), json (File I/O),
|
||||||
|
# file_io (File I/O), test_math, test_lists (Test effect), stress_shared_rc,
|
||||||
|
# test_rc_comparison (internal tests), modules/* (need cwd)
|
||||||
|
INTERP_SKIP="http_api http http_router http_server postgres_demo random property_testing shell json file_io test_math test_lists stress_shared_rc test_rc_comparison"
|
||||||
|
for f in "$EXAMPLES_DIR"/*.lux; do
|
||||||
|
name=$(basename "$f" .lux)
|
||||||
|
skip=false
|
||||||
|
for s in $INTERP_SKIP; do [ "$name" = "$s" ] && skip=true; done
|
||||||
|
$skip && continue
|
||||||
|
step "interpreter (examples/$name)"
|
||||||
|
if timeout 10 "$LUX" "$f" >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- Interpreter: examples/standard ---
|
||||||
|
# Skip: guessing_game (reads stdin)
|
||||||
|
for f in "$EXAMPLES_DIR"/standard/*.lux; do
|
||||||
|
[ -f "$f" ] || continue
|
||||||
|
name=$(basename "$f" .lux)
|
||||||
|
[ "$name" = "guessing_game" ] && continue
|
||||||
|
step "interpreter (standard/$name)"
|
||||||
|
if timeout 10 "$LUX" "$f" >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- Interpreter: examples/showcase ---
|
||||||
|
# Skip: task_manager (parse error in current version)
|
||||||
|
for f in "$EXAMPLES_DIR"/showcase/*.lux; do
|
||||||
|
[ -f "$f" ] || continue
|
||||||
|
name=$(basename "$f" .lux)
|
||||||
|
[ "$name" = "task_manager" ] && continue
|
||||||
|
step "interpreter (showcase/$name)"
|
||||||
|
if timeout 10 "$LUX" "$f" >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- Interpreter: projects ---
|
||||||
|
# Skip: guessing-game (Random), rest-api (HttpServer)
|
||||||
|
PROJ_INTERP_SKIP="guessing-game rest-api"
|
||||||
|
for proj_dir in "$PROJECTS_DIR"/*/; do
|
||||||
|
proj=$(basename "$proj_dir")
|
||||||
|
[ -f "$proj_dir/main.lux" ] || continue
|
||||||
|
skip=false
|
||||||
|
for s in $PROJ_INTERP_SKIP; do [ "$proj" = "$s" ] && skip=true; done
|
||||||
|
$skip && continue
|
||||||
|
step "interpreter (project: $proj)"
|
||||||
|
if timeout 10 "$LUX" "$proj_dir/main.lux" >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- JS compilation: examples ---
|
||||||
|
# Skip files that fail JS compilation (unsupported features)
|
||||||
|
JS_SKIP="http_api http http_router postgres_demo property_testing json test_lists test_rc_comparison"
|
||||||
|
for f in "$EXAMPLES_DIR"/*.lux; do
|
||||||
|
name=$(basename "$f" .lux)
|
||||||
|
skip=false
|
||||||
|
for s in $JS_SKIP; do [ "$name" = "$s" ] && skip=true; done
|
||||||
|
$skip && continue
|
||||||
|
step "compile JS (examples/$name)"
|
||||||
|
if "$LUX" compile "$f" --target js -o /tmp/lux_validate.js >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- JS compilation: examples/standard ---
|
||||||
|
# Skip: stdlib_demo (uses String.toUpper not in JS backend)
|
||||||
|
for f in "$EXAMPLES_DIR"/standard/*.lux; do
|
||||||
|
[ -f "$f" ] || continue
|
||||||
|
name=$(basename "$f" .lux)
|
||||||
|
[ "$name" = "stdlib_demo" ] && continue
|
||||||
|
step "compile JS (standard/$name)"
|
||||||
|
if "$LUX" compile "$f" --target js -o /tmp/lux_validate.js >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- JS compilation: examples/showcase ---
|
||||||
|
# Skip: task_manager (unsupported features)
|
||||||
|
for f in "$EXAMPLES_DIR"/showcase/*.lux; do
|
||||||
|
[ -f "$f" ] || continue
|
||||||
|
name=$(basename "$f" .lux)
|
||||||
|
[ "$name" = "task_manager" ] && continue
|
||||||
|
step "compile JS (showcase/$name)"
|
||||||
|
if "$LUX" compile "$f" --target js -o /tmp/lux_validate.js >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- JS compilation: projects ---
|
||||||
|
# Skip: json-parser, rest-api (unsupported features)
|
||||||
|
JS_PROJ_SKIP="json-parser rest-api"
|
||||||
|
for proj_dir in "$PROJECTS_DIR"/*/; do
|
||||||
|
proj=$(basename "$proj_dir")
|
||||||
|
[ -f "$proj_dir/main.lux" ] || continue
|
||||||
|
skip=false
|
||||||
|
for s in $JS_PROJ_SKIP; do [ "$proj" = "$s" ] && skip=true; done
|
||||||
|
$skip && continue
|
||||||
|
step "compile JS (project: $proj)"
|
||||||
|
if "$LUX" compile "$proj_dir/main.lux" --target js -o /tmp/lux_validate.js >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- C compilation: examples ---
|
||||||
|
# Only compile examples known to work with C backend
|
||||||
|
C_EXAMPLES="hello factorial pipelines tailcall jit_test"
|
||||||
|
for name in $C_EXAMPLES; do
|
||||||
|
f="$EXAMPLES_DIR/$name.lux"
|
||||||
|
[ -f "$f" ] || continue
|
||||||
|
step "compile C (examples/$name)"
|
||||||
|
if "$LUX" compile "$f" -o /tmp/lux_validate_bin >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- C compilation: examples/standard ---
|
||||||
|
C_STD_EXAMPLES="hello_world factorial fizzbuzz primes guessing_game"
|
||||||
|
for name in $C_STD_EXAMPLES; do
|
||||||
|
f="$EXAMPLES_DIR/standard/$name.lux"
|
||||||
|
[ -f "$f" ] || continue
|
||||||
|
step "compile C (standard/$name)"
|
||||||
|
if "$LUX" compile "$f" -o /tmp/lux_validate_bin >/dev/null 2>&1; then ok; else fail; fi
|
||||||
|
done
|
||||||
|
|
||||||
|
# --- Cleanup ---
|
||||||
|
rm -f /tmp/lux_validate.js /tmp/lux_validate_bin
|
||||||
|
|
||||||
# --- Summary ---
|
# --- Summary ---
|
||||||
printf "\n${BOLD}═══ Validation Summary ═══${NC}\n"
|
printf "\n${BOLD}═══ Validation Summary ═══${NC}\n"
|
||||||
if [ $FAILED -eq 0 ]; then
|
if [ $FAILED -eq 0 ]; then
|
||||||
|
|||||||
@@ -541,7 +541,9 @@ pub enum Expr {
|
|||||||
span: Span,
|
span: Span,
|
||||||
},
|
},
|
||||||
/// Record literal: { name: "Alice", age: 30 }
|
/// Record literal: { name: "Alice", age: 30 }
|
||||||
|
/// With optional spread: { ...base, name: "Bob" }
|
||||||
Record {
|
Record {
|
||||||
|
spread: Option<Box<Expr>>,
|
||||||
fields: Vec<(Ident, Expr)>,
|
fields: Vec<(Ident, Expr)>,
|
||||||
span: Span,
|
span: Span,
|
||||||
},
|
},
|
||||||
@@ -622,6 +624,7 @@ pub enum BinaryOp {
|
|||||||
Or,
|
Or,
|
||||||
// Other
|
// Other
|
||||||
Pipe, // |>
|
Pipe, // |>
|
||||||
|
Concat, // ++
|
||||||
}
|
}
|
||||||
|
|
||||||
impl fmt::Display for BinaryOp {
|
impl fmt::Display for BinaryOp {
|
||||||
@@ -641,6 +644,7 @@ impl fmt::Display for BinaryOp {
|
|||||||
BinaryOp::And => write!(f, "&&"),
|
BinaryOp::And => write!(f, "&&"),
|
||||||
BinaryOp::Or => write!(f, "||"),
|
BinaryOp::Or => write!(f, "||"),
|
||||||
BinaryOp::Pipe => write!(f, "|>"),
|
BinaryOp::Pipe => write!(f, "|>"),
|
||||||
|
BinaryOp::Concat => write!(f, "++"),
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -693,8 +697,9 @@ pub enum Pattern {
|
|||||||
Var(Ident),
|
Var(Ident),
|
||||||
/// Literal: 42, "hello", true
|
/// Literal: 42, "hello", true
|
||||||
Literal(Literal),
|
Literal(Literal),
|
||||||
/// Constructor: Some(x), None, Ok(v)
|
/// Constructor: Some(x), None, Ok(v), module.Constructor(x)
|
||||||
Constructor {
|
Constructor {
|
||||||
|
module: Option<Ident>,
|
||||||
name: Ident,
|
name: Ident,
|
||||||
fields: Vec<Pattern>,
|
fields: Vec<Pattern>,
|
||||||
span: Span,
|
span: Span,
|
||||||
|
|||||||
@@ -146,6 +146,8 @@ pub struct CBackend {
|
|||||||
imported_modules: HashSet<String>,
|
imported_modules: HashSet<String>,
|
||||||
/// Variable name renames: Lux name → C variable name (for let binding name mangling)
|
/// Variable name renames: Lux name → C variable name (for let binding name mangling)
|
||||||
var_renames: HashMap<String, String>,
|
var_renames: HashMap<String, String>,
|
||||||
|
/// Inner type for Option-typed variables (variable name -> inner C type, e.g. "LuxInt")
|
||||||
|
var_option_inner_types: HashMap<String, String>,
|
||||||
}
|
}
|
||||||
|
|
||||||
impl CBackend {
|
impl CBackend {
|
||||||
@@ -177,6 +179,7 @@ impl CBackend {
|
|||||||
module_functions: HashMap::new(),
|
module_functions: HashMap::new(),
|
||||||
imported_modules: HashSet::new(),
|
imported_modules: HashSet::new(),
|
||||||
var_renames: HashMap::new(),
|
var_renames: HashMap::new(),
|
||||||
|
var_option_inner_types: HashMap::new(),
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -279,7 +282,7 @@ impl CBackend {
|
|||||||
Declaration::Let(let_decl) => {
|
Declaration::Let(let_decl) => {
|
||||||
// Skip run expressions - they're handled in the main wrapper
|
// Skip run expressions - they're handled in the main wrapper
|
||||||
if !matches!(&let_decl.value, Expr::Run { .. }) {
|
if !matches!(&let_decl.value, Expr::Run { .. }) {
|
||||||
self.emit_global_let(&let_decl.name, &let_decl.value)?;
|
self.emit_global_let(let_decl)?;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
_ => {}
|
_ => {}
|
||||||
@@ -599,6 +602,18 @@ impl CBackend {
|
|||||||
self.writeln(&format!("{} {}({}) {{", ret_type, mangled_name, full_params));
|
self.writeln(&format!("{} {}({}) {{", ret_type, mangled_name, full_params));
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
|
|
||||||
|
// Register parameter types so match/option inference can use them
|
||||||
|
for p in &func.params {
|
||||||
|
if let Ok(c_type) = self.type_expr_to_c(&p.typ) {
|
||||||
|
let escaped = self.escape_c_keyword(&p.name.name);
|
||||||
|
self.var_types.insert(escaped.clone(), c_type);
|
||||||
|
// Track Option inner types for match pattern extraction
|
||||||
|
if let Some(inner) = self.option_inner_type_from_type_expr(&p.typ) {
|
||||||
|
self.var_option_inner_types.insert(escaped, inner);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
let old_has_evidence = self.has_evidence;
|
let old_has_evidence = self.has_evidence;
|
||||||
if is_effectful {
|
if is_effectful {
|
||||||
self.has_evidence = true;
|
self.has_evidence = true;
|
||||||
@@ -730,10 +745,10 @@ impl CBackend {
|
|||||||
}
|
}
|
||||||
|
|
||||||
// Check for string concatenation - use lux_string_concat instead of +
|
// Check for string concatenation - use lux_string_concat instead of +
|
||||||
if matches!(op, BinaryOp::Add) {
|
if matches!(op, BinaryOp::Add | BinaryOp::Concat) {
|
||||||
let left_is_string = self.infer_expr_type(left).as_deref() == Some("LuxString");
|
let left_is_string = self.infer_expr_type(left).as_deref() == Some("LuxString");
|
||||||
let right_is_string = self.infer_expr_type(right).as_deref() == Some("LuxString");
|
let right_is_string = self.infer_expr_type(right).as_deref() == Some("LuxString");
|
||||||
if left_is_string || right_is_string {
|
if left_is_string || right_is_string || matches!(op, BinaryOp::Concat) {
|
||||||
return Ok(format!("lux_string_concat({}, {})", l, r));
|
return Ok(format!("lux_string_concat({}, {})", l, r));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -858,6 +873,7 @@ impl CBackend {
|
|||||||
self.writeln("#include <stdio.h>");
|
self.writeln("#include <stdio.h>");
|
||||||
self.writeln("#include <stdlib.h>");
|
self.writeln("#include <stdlib.h>");
|
||||||
self.writeln("#include <string.h>");
|
self.writeln("#include <string.h>");
|
||||||
|
self.writeln("#include <math.h>");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
self.writeln("// === Lux Runtime Types ===");
|
self.writeln("// === Lux Runtime Types ===");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
@@ -881,6 +897,14 @@ impl CBackend {
|
|||||||
self.writeln(" int64_t capacity;");
|
self.writeln(" int64_t capacity;");
|
||||||
self.writeln("};");
|
self.writeln("};");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
self.writeln("// Map struct (linear-scan key-value table, string keys)");
|
||||||
|
self.writeln("typedef struct {");
|
||||||
|
self.writeln(" LuxString* keys;");
|
||||||
|
self.writeln(" void** values;");
|
||||||
|
self.writeln(" int64_t length;");
|
||||||
|
self.writeln(" int64_t capacity;");
|
||||||
|
self.writeln("} LuxMap;");
|
||||||
|
self.writeln("");
|
||||||
self.writeln("// === Reference Counting Infrastructure ===");
|
self.writeln("// === Reference Counting Infrastructure ===");
|
||||||
self.writeln("// Perceus-inspired RC system for automatic memory management.");
|
self.writeln("// Perceus-inspired RC system for automatic memory management.");
|
||||||
self.writeln("// See docs/REFERENCE_COUNTING.md for details.");
|
self.writeln("// See docs/REFERENCE_COUNTING.md for details.");
|
||||||
@@ -1140,7 +1164,9 @@ impl CBackend {
|
|||||||
self.writeln(" void (*delete_file)(void* env, LuxString path);");
|
self.writeln(" void (*delete_file)(void* env, LuxString path);");
|
||||||
self.writeln(" LuxBool (*isDir)(void* env, LuxString path);");
|
self.writeln(" LuxBool (*isDir)(void* env, LuxString path);");
|
||||||
self.writeln(" void (*mkdir)(void* env, LuxString path);");
|
self.writeln(" void (*mkdir)(void* env, LuxString path);");
|
||||||
|
self.writeln(" void (*copy)(void* env, LuxString src, LuxString dst);");
|
||||||
self.writeln(" LuxList* (*readDir)(void* env, LuxString path);");
|
self.writeln(" LuxList* (*readDir)(void* env, LuxString path);");
|
||||||
|
self.writeln(" LuxList* (*glob)(void* env, LuxString pattern);");
|
||||||
self.writeln(" void* env;");
|
self.writeln(" void* env;");
|
||||||
self.writeln("} LuxFileHandler;");
|
self.writeln("} LuxFileHandler;");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
@@ -1327,6 +1353,20 @@ impl CBackend {
|
|||||||
self.writeln(" mkdir(path, 0755);");
|
self.writeln(" mkdir(path, 0755);");
|
||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
self.writeln("static void lux_file_copy(LuxString src, LuxString dst) {");
|
||||||
|
self.writeln(" FILE* fin = fopen(src, \"rb\");");
|
||||||
|
self.writeln(" if (!fin) return;");
|
||||||
|
self.writeln(" FILE* fout = fopen(dst, \"wb\");");
|
||||||
|
self.writeln(" if (!fout) { fclose(fin); return; }");
|
||||||
|
self.writeln(" char buf[4096];");
|
||||||
|
self.writeln(" size_t n;");
|
||||||
|
self.writeln(" while ((n = fread(buf, 1, sizeof(buf), fin)) > 0) {");
|
||||||
|
self.writeln(" fwrite(buf, 1, n, fout);");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" fclose(fin);");
|
||||||
|
self.writeln(" fclose(fout);");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
self.writeln("#include <dirent.h>");
|
self.writeln("#include <dirent.h>");
|
||||||
self.writeln("// Forward declarations needed by lux_file_readDir");
|
self.writeln("// Forward declarations needed by lux_file_readDir");
|
||||||
self.writeln("static LuxList* lux_list_new(int64_t capacity);");
|
self.writeln("static LuxList* lux_list_new(int64_t capacity);");
|
||||||
@@ -1347,6 +1387,23 @@ impl CBackend {
|
|||||||
self.writeln(" return result;");
|
self.writeln(" return result;");
|
||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
self.writeln("#include <glob.h>");
|
||||||
|
self.writeln("static LuxList* lux_file_glob(LuxString pattern) {");
|
||||||
|
self.writeln(" LuxList* result = lux_list_new(16);");
|
||||||
|
self.writeln(" glob_t globbuf;");
|
||||||
|
self.writeln(" int ret = glob(pattern, 0, NULL, &globbuf);");
|
||||||
|
self.writeln(" if (ret == 0) {");
|
||||||
|
self.writeln(" for (size_t i = 0; i < globbuf.gl_pathc; i++) {");
|
||||||
|
self.writeln(" size_t len = strlen(globbuf.gl_pathv[i]);");
|
||||||
|
self.writeln(" LuxString name = (LuxString)lux_rc_alloc(len + 1, LUX_TAG_STRING);");
|
||||||
|
self.writeln(" memcpy(name, globbuf.gl_pathv[i], len + 1);");
|
||||||
|
self.writeln(" lux_list_push(result, (void*)name);");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" globfree(&globbuf);");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" return result;");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
self.writeln("static LuxString default_file_read(void* env, LuxString path) {");
|
self.writeln("static LuxString default_file_read(void* env, LuxString path) {");
|
||||||
self.writeln(" (void)env;");
|
self.writeln(" (void)env;");
|
||||||
self.writeln(" return lux_file_read(path);");
|
self.writeln(" return lux_file_read(path);");
|
||||||
@@ -1382,11 +1439,21 @@ impl CBackend {
|
|||||||
self.writeln(" lux_file_mkdir(path);");
|
self.writeln(" lux_file_mkdir(path);");
|
||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
self.writeln("static void default_file_copy(void* env, LuxString src, LuxString dst) {");
|
||||||
|
self.writeln(" (void)env;");
|
||||||
|
self.writeln(" lux_file_copy(src, dst);");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
self.writeln("static LuxList* default_file_readDir(void* env, LuxString path) {");
|
self.writeln("static LuxList* default_file_readDir(void* env, LuxString path) {");
|
||||||
self.writeln(" (void)env;");
|
self.writeln(" (void)env;");
|
||||||
self.writeln(" return lux_file_readDir(path);");
|
self.writeln(" return lux_file_readDir(path);");
|
||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
self.writeln("static LuxList* default_file_glob(void* env, LuxString pattern) {");
|
||||||
|
self.writeln(" (void)env;");
|
||||||
|
self.writeln(" return lux_file_glob(pattern);");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
self.writeln("static LuxFileHandler default_file_handler = {");
|
self.writeln("static LuxFileHandler default_file_handler = {");
|
||||||
self.writeln(" .read = default_file_read,");
|
self.writeln(" .read = default_file_read,");
|
||||||
self.writeln(" .write = default_file_write,");
|
self.writeln(" .write = default_file_write,");
|
||||||
@@ -1395,7 +1462,9 @@ impl CBackend {
|
|||||||
self.writeln(" .delete_file = default_file_delete,");
|
self.writeln(" .delete_file = default_file_delete,");
|
||||||
self.writeln(" .isDir = default_file_isDir,");
|
self.writeln(" .isDir = default_file_isDir,");
|
||||||
self.writeln(" .mkdir = default_file_mkdir,");
|
self.writeln(" .mkdir = default_file_mkdir,");
|
||||||
|
self.writeln(" .copy = default_file_copy,");
|
||||||
self.writeln(" .readDir = default_file_readDir,");
|
self.writeln(" .readDir = default_file_readDir,");
|
||||||
|
self.writeln(" .glob = default_file_glob,");
|
||||||
self.writeln(" .env = NULL");
|
self.writeln(" .env = NULL");
|
||||||
self.writeln("};");
|
self.writeln("};");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
@@ -2042,23 +2111,115 @@ impl CBackend {
|
|||||||
self.writeln(" return result;");
|
self.writeln(" return result;");
|
||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
// Sort helper: compare two void* as boxed ints
|
||||||
|
self.writeln("static int lux_compare_int(const void* a, const void* b) {");
|
||||||
|
self.writeln(" LuxInt va = *(LuxInt*)(*(void**)a);");
|
||||||
|
self.writeln(" LuxInt vb = *(LuxInt*)(*(void**)b);");
|
||||||
|
self.writeln(" return (va > vb) - (va < vb);");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
|
self.writeln("static int lux_compare_string(const void* a, const void* b) {");
|
||||||
|
self.writeln(" LuxString sa = (LuxString)(*(void**)a);");
|
||||||
|
self.writeln(" LuxString sb = (LuxString)(*(void**)b);");
|
||||||
|
self.writeln(" return strcmp(sa, sb);");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
|
self.writeln("static LuxList* lux_list_sort(LuxList* list) {");
|
||||||
|
self.writeln(" if (list->length <= 1) {");
|
||||||
|
self.writeln(" lux_incref(list);");
|
||||||
|
self.writeln(" return list;");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" LuxList* result = lux_list_new(list->length);");
|
||||||
|
self.writeln(" for (int64_t i = 0; i < list->length; i++) {");
|
||||||
|
self.writeln(" lux_incref(list->elements[i]);");
|
||||||
|
self.writeln(" result->elements[i] = list->elements[i];");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" result->length = list->length;");
|
||||||
|
self.writeln(" // Determine element type from first element and sort");
|
||||||
|
self.writeln(" if (result->length > 0 && result->elements[0] != NULL) {");
|
||||||
|
self.writeln(" uint32_t tag = LUX_RC_HEADER(result->elements[0])->tag;");
|
||||||
|
self.writeln(" if (tag == LUX_TAG_BOXED_INT) {");
|
||||||
|
self.writeln(" qsort(result->elements, result->length, sizeof(void*), lux_compare_int);");
|
||||||
|
self.writeln(" } else if (tag == LUX_TAG_STRING) {");
|
||||||
|
self.writeln(" qsort(result->elements, result->length, sizeof(void*), lux_compare_string);");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" return result;");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
|
// === Map Runtime Functions ===
|
||||||
|
self.writeln("static LuxMap* lux_map_new(int64_t capacity) {");
|
||||||
|
self.writeln(" LuxMap* map = (LuxMap*)malloc(sizeof(LuxMap));");
|
||||||
|
self.writeln(" map->capacity = capacity > 0 ? capacity : 8;");
|
||||||
|
self.writeln(" map->keys = (LuxString*)calloc(map->capacity, sizeof(LuxString));");
|
||||||
|
self.writeln(" map->values = (void**)calloc(map->capacity, sizeof(void*));");
|
||||||
|
self.writeln(" map->length = 0;");
|
||||||
|
self.writeln(" return map;");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
|
self.writeln("static int64_t lux_map_find(LuxMap* map, LuxString key) {");
|
||||||
|
self.writeln(" for (int64_t i = 0; i < map->length; i++) {");
|
||||||
|
self.writeln(" if (map->keys[i] && strcmp(map->keys[i], key) == 0) return i;");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" return -1;");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
|
self.writeln("static LuxMap* lux_map_clone(LuxMap* map) {");
|
||||||
|
self.writeln(" LuxMap* result = lux_map_new(map->capacity);");
|
||||||
|
self.writeln(" result->length = map->length;");
|
||||||
|
self.writeln(" for (int64_t i = 0; i < map->length; i++) {");
|
||||||
|
self.writeln(" result->keys[i] = lux_string_dup(map->keys[i]);");
|
||||||
|
self.writeln(" result->values[i] = map->values[i];");
|
||||||
|
self.writeln(" lux_incref(map->values[i]);");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" return result;");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
|
self.writeln("static LuxMap* lux_map_set(LuxMap* map, LuxString key, void* value) {");
|
||||||
|
self.writeln(" LuxMap* result = lux_map_clone(map);");
|
||||||
|
self.writeln(" int64_t idx = lux_map_find(result, key);");
|
||||||
|
self.writeln(" if (idx >= 0) {");
|
||||||
|
self.writeln(" lux_decref(result->values[idx]);");
|
||||||
|
self.writeln(" result->values[idx] = value;");
|
||||||
|
self.writeln(" lux_incref(value);");
|
||||||
|
self.writeln(" } else {");
|
||||||
|
self.writeln(" if (result->length >= result->capacity) {");
|
||||||
|
self.writeln(" result->capacity *= 2;");
|
||||||
|
self.writeln(" result->keys = (LuxString*)realloc(result->keys, sizeof(LuxString) * result->capacity);");
|
||||||
|
self.writeln(" result->values = (void**)realloc(result->values, sizeof(void*) * result->capacity);");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" result->keys[result->length] = lux_string_dup(key);");
|
||||||
|
self.writeln(" result->values[result->length] = value;");
|
||||||
|
self.writeln(" lux_incref(value);");
|
||||||
|
self.writeln(" result->length++;");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" return result;");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
|
self.writeln("static int64_t lux_map_size(LuxMap* map) { return map->length; }");
|
||||||
|
self.writeln("static LuxBool lux_map_isEmpty(LuxMap* map) { return map->length == 0; }");
|
||||||
|
self.writeln("");
|
||||||
|
self.writeln("static LuxBool lux_map_contains(LuxMap* map, LuxString key) {");
|
||||||
|
self.writeln(" return lux_map_find(map, key) >= 0;");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
|
self.writeln("static LuxMap* lux_map_remove(LuxMap* map, LuxString key) {");
|
||||||
|
self.writeln(" LuxMap* result = lux_map_new(map->capacity);");
|
||||||
|
self.writeln(" for (int64_t i = 0; i < map->length; i++) {");
|
||||||
|
self.writeln(" if (strcmp(map->keys[i], key) != 0) {");
|
||||||
|
self.writeln(" result->keys[result->length] = lux_string_dup(map->keys[i]);");
|
||||||
|
self.writeln(" result->values[result->length] = map->values[i];");
|
||||||
|
self.writeln(" lux_incref(map->values[i]);");
|
||||||
|
self.writeln(" result->length++;");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(" return result;");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
|
|
||||||
self.writeln("static Option lux_option_none(void) { return (Option){Option_TAG_NONE}; }");
|
self.writeln("static Option lux_option_none(void) { return (Option){Option_TAG_NONE}; }");
|
||||||
self.writeln("static Option lux_option_some(void* value) { return (Option){Option_TAG_SOME, .data.some = {value}}; }");
|
self.writeln("static Option lux_option_some(void* value) { return (Option){Option_TAG_SOME, .data.some = {value}}; }");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
self.writeln("// String indexOf / lastIndexOf — return Option<Int>");
|
|
||||||
self.writeln("static Option lux_string_indexOf(LuxString s, LuxString needle) {");
|
|
||||||
self.writeln(" char* pos = strstr(s, needle);");
|
|
||||||
self.writeln(" if (pos) return lux_option_some((void*)(intptr_t)(pos - s));");
|
|
||||||
self.writeln(" return lux_option_none();");
|
|
||||||
self.writeln("}");
|
|
||||||
self.writeln("static Option lux_string_lastIndexOf(LuxString s, LuxString needle) {");
|
|
||||||
self.writeln(" char* last = NULL;");
|
|
||||||
self.writeln(" char* pos = strstr(s, needle);");
|
|
||||||
self.writeln(" while (pos) { last = pos; pos = strstr(pos + 1, needle); }");
|
|
||||||
self.writeln(" if (last) return lux_option_some((void*)(intptr_t)(last - s));");
|
|
||||||
self.writeln(" return lux_option_none();");
|
|
||||||
self.writeln("}");
|
|
||||||
self.writeln("");
|
|
||||||
self.writeln("// === Boxing/Unboxing ===");
|
self.writeln("// === Boxing/Unboxing ===");
|
||||||
self.writeln("// All boxed values are RC-managed.");
|
self.writeln("// All boxed values are RC-managed.");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
@@ -2092,6 +2253,20 @@ impl CBackend {
|
|||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
self.writeln("static LuxString lux_unbox_string(void* p) { return (LuxString)p; }");
|
self.writeln("static LuxString lux_unbox_string(void* p) { return (LuxString)p; }");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
self.writeln("// String indexOf / lastIndexOf — return Option<Int>");
|
||||||
|
self.writeln("static Option lux_string_indexOf(LuxString s, LuxString needle) {");
|
||||||
|
self.writeln(" char* pos = strstr(s, needle);");
|
||||||
|
self.writeln(" if (pos) return lux_option_some(lux_box_int((LuxInt)(pos - s)));");
|
||||||
|
self.writeln(" return lux_option_none();");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("static Option lux_string_lastIndexOf(LuxString s, LuxString needle) {");
|
||||||
|
self.writeln(" char* last = NULL;");
|
||||||
|
self.writeln(" char* pos = strstr(s, needle);");
|
||||||
|
self.writeln(" while (pos) { last = pos; pos = strstr(pos + 1, needle); }");
|
||||||
|
self.writeln(" if (last) return lux_option_some(lux_box_int((LuxInt)(last - s)));");
|
||||||
|
self.writeln(" return lux_option_none();");
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("");
|
||||||
self.writeln("// === Polymorphic Drop Function ===");
|
self.writeln("// === Polymorphic Drop Function ===");
|
||||||
self.writeln("// Called when an object's refcount reaches zero.");
|
self.writeln("// Called when an object's refcount reaches zero.");
|
||||||
self.writeln("// Recursively decrefs any owned references before freeing.");
|
self.writeln("// Recursively decrefs any owned references before freeing.");
|
||||||
@@ -2627,7 +2802,11 @@ impl CBackend {
|
|||||||
for param in &func.params {
|
for param in &func.params {
|
||||||
let escaped = self.escape_c_keyword(¶m.name.name);
|
let escaped = self.escape_c_keyword(¶m.name.name);
|
||||||
if let Ok(c_type) = self.type_expr_to_c(¶m.typ) {
|
if let Ok(c_type) = self.type_expr_to_c(¶m.typ) {
|
||||||
self.var_types.insert(escaped, c_type);
|
self.var_types.insert(escaped.clone(), c_type);
|
||||||
|
// Track Option inner types for match pattern extraction
|
||||||
|
if let Some(inner) = self.option_inner_type_from_type_expr(¶m.typ) {
|
||||||
|
self.var_option_inner_types.insert(escaped, inner);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -2839,8 +3018,18 @@ impl CBackend {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// String concatenation for ++ and +
|
||||||
|
if matches!(op, BinaryOp::Add | BinaryOp::Concat) {
|
||||||
|
let left_is_string = self.infer_expr_type(left).as_deref() == Some("LuxString");
|
||||||
|
let right_is_string = self.infer_expr_type(right).as_deref() == Some("LuxString");
|
||||||
|
if left_is_string || right_is_string || matches!(op, BinaryOp::Concat) {
|
||||||
|
return Ok(format!("lux_string_concat({}, {})", l, r));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
let op_str = match op {
|
let op_str = match op {
|
||||||
BinaryOp::Add => "+",
|
BinaryOp::Add => "+",
|
||||||
|
BinaryOp::Concat => unreachable!("handled above"),
|
||||||
BinaryOp::Sub => "-",
|
BinaryOp::Sub => "-",
|
||||||
BinaryOp::Mul => "*",
|
BinaryOp::Mul => "*",
|
||||||
BinaryOp::Div => "/",
|
BinaryOp::Div => "/",
|
||||||
@@ -2978,6 +3167,13 @@ impl CBackend {
|
|||||||
// Infer the type from the value expression
|
// Infer the type from the value expression
|
||||||
let var_type = self.infer_expr_type(value).unwrap_or_else(|| "LuxInt".to_string());
|
let var_type = self.infer_expr_type(value).unwrap_or_else(|| "LuxInt".to_string());
|
||||||
|
|
||||||
|
// Track Option inner type for match pattern extraction
|
||||||
|
if var_type == "Option" {
|
||||||
|
if let Some(inner) = self.infer_option_inner_type(value) {
|
||||||
|
self.var_option_inner_types.insert(var_name.clone(), inner);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
self.writeln(&format!("{} {} = {};", var_type, var_name, val));
|
self.writeln(&format!("{} {} = {};", var_type, var_name, val));
|
||||||
|
|
||||||
// Register the variable rename so nested expressions can find it
|
// Register the variable rename so nested expressions can find it
|
||||||
@@ -3003,6 +3199,9 @@ impl CBackend {
|
|||||||
if module_name.name == "List" {
|
if module_name.name == "List" {
|
||||||
return self.emit_list_operation(&field.name, args);
|
return self.emit_list_operation(&field.name, args);
|
||||||
}
|
}
|
||||||
|
if module_name.name == "Map" {
|
||||||
|
return self.emit_map_operation(&field.name, args);
|
||||||
|
}
|
||||||
// Int module
|
// Int module
|
||||||
if module_name.name == "Int" && field.name == "toString" {
|
if module_name.name == "Int" && field.name == "toString" {
|
||||||
let arg = self.emit_expr(&args[0])?;
|
let arg = self.emit_expr(&args[0])?;
|
||||||
@@ -3011,6 +3210,10 @@ impl CBackend {
|
|||||||
self.register_rc_var(&temp, "LuxString");
|
self.register_rc_var(&temp, "LuxString");
|
||||||
return Ok(temp);
|
return Ok(temp);
|
||||||
}
|
}
|
||||||
|
if module_name.name == "Int" && field.name == "toFloat" {
|
||||||
|
let arg = self.emit_expr(&args[0])?;
|
||||||
|
return Ok(format!("((LuxFloat){})", arg));
|
||||||
|
}
|
||||||
// Float module
|
// Float module
|
||||||
if module_name.name == "Float" && field.name == "toString" {
|
if module_name.name == "Float" && field.name == "toString" {
|
||||||
let arg = self.emit_expr(&args[0])?;
|
let arg = self.emit_expr(&args[0])?;
|
||||||
@@ -3019,6 +3222,14 @@ impl CBackend {
|
|||||||
self.register_rc_var(&temp, "LuxString");
|
self.register_rc_var(&temp, "LuxString");
|
||||||
return Ok(temp);
|
return Ok(temp);
|
||||||
}
|
}
|
||||||
|
if module_name.name == "Float" && field.name == "toInt" {
|
||||||
|
let arg = self.emit_expr(&args[0])?;
|
||||||
|
return Ok(format!("((LuxInt){})", arg));
|
||||||
|
}
|
||||||
|
// Math module
|
||||||
|
if module_name.name == "Math" {
|
||||||
|
return self.emit_math_operation(&field.name, args);
|
||||||
|
}
|
||||||
// Check for user-defined module function
|
// Check for user-defined module function
|
||||||
let key = (module_name.name.clone(), field.name.clone());
|
let key = (module_name.name.clone(), field.name.clone());
|
||||||
if let Some(c_name) = self.module_functions.get(&key).cloned() {
|
if let Some(c_name) = self.module_functions.get(&key).cloned() {
|
||||||
@@ -3271,6 +3482,13 @@ impl CBackend {
|
|||||||
// Record variable type for future inference
|
// Record variable type for future inference
|
||||||
self.var_types.insert(escaped_name.clone(), typ.clone());
|
self.var_types.insert(escaped_name.clone(), typ.clone());
|
||||||
|
|
||||||
|
// Track Option inner type for match pattern extraction
|
||||||
|
if typ == "Option" {
|
||||||
|
if let Some(inner) = self.infer_option_inner_type(value) {
|
||||||
|
self.var_option_inner_types.insert(escaped_name.clone(), inner);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
// Handle ownership transfer or RC registration
|
// Handle ownership transfer or RC registration
|
||||||
if let Some(source_name) = source_var {
|
if let Some(source_name) = source_var {
|
||||||
// Ownership transfer: unregister source, register dest
|
// Ownership transfer: unregister source, register dest
|
||||||
@@ -3364,6 +3582,10 @@ impl CBackend {
|
|||||||
self.register_rc_var(&temp, "LuxString");
|
self.register_rc_var(&temp, "LuxString");
|
||||||
return Ok(temp);
|
return Ok(temp);
|
||||||
}
|
}
|
||||||
|
"toFloat" => {
|
||||||
|
let arg = self.emit_expr(&args[0])?;
|
||||||
|
return Ok(format!("((LuxFloat){})", arg));
|
||||||
|
}
|
||||||
_ => {}
|
_ => {}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -3378,10 +3600,24 @@ impl CBackend {
|
|||||||
self.register_rc_var(&temp, "LuxString");
|
self.register_rc_var(&temp, "LuxString");
|
||||||
return Ok(temp);
|
return Ok(temp);
|
||||||
}
|
}
|
||||||
|
"toInt" => {
|
||||||
|
let arg = self.emit_expr(&args[0])?;
|
||||||
|
return Ok(format!("((LuxInt){})", arg));
|
||||||
|
}
|
||||||
_ => {}
|
_ => {}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// Math module (treated as effect by parser but handled as direct C calls)
|
||||||
|
if effect.name == "Math" {
|
||||||
|
return self.emit_math_operation(&operation.name, args);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Map module
|
||||||
|
if effect.name == "Map" {
|
||||||
|
return self.emit_map_operation(&operation.name, args);
|
||||||
|
}
|
||||||
|
|
||||||
// Built-in Console effect
|
// Built-in Console effect
|
||||||
if effect.name == "Console" {
|
if effect.name == "Console" {
|
||||||
if operation.name == "print" {
|
if operation.name == "print" {
|
||||||
@@ -3557,6 +3793,16 @@ impl CBackend {
|
|||||||
}
|
}
|
||||||
return Ok("NULL".to_string());
|
return Ok("NULL".to_string());
|
||||||
}
|
}
|
||||||
|
"copy" => {
|
||||||
|
let src = self.emit_expr(&args[0])?;
|
||||||
|
let dst = self.emit_expr(&args[1])?;
|
||||||
|
if self.has_evidence {
|
||||||
|
self.writeln(&format!("ev->file->copy(ev->file->env, {}, {});", src, dst));
|
||||||
|
} else {
|
||||||
|
self.writeln(&format!("lux_file_copy({}, {});", src, dst));
|
||||||
|
}
|
||||||
|
return Ok("NULL".to_string());
|
||||||
|
}
|
||||||
"readDir" | "listDir" => {
|
"readDir" | "listDir" => {
|
||||||
let path = self.emit_expr(&args[0])?;
|
let path = self.emit_expr(&args[0])?;
|
||||||
let temp = format!("_readdir_{}", self.fresh_name());
|
let temp = format!("_readdir_{}", self.fresh_name());
|
||||||
@@ -3568,6 +3814,17 @@ impl CBackend {
|
|||||||
self.register_rc_var(&temp, "LuxList*");
|
self.register_rc_var(&temp, "LuxList*");
|
||||||
return Ok(temp);
|
return Ok(temp);
|
||||||
}
|
}
|
||||||
|
"glob" => {
|
||||||
|
let pattern = self.emit_expr(&args[0])?;
|
||||||
|
let temp = format!("_glob_{}", self.fresh_name());
|
||||||
|
if self.has_evidence {
|
||||||
|
self.writeln(&format!("LuxList* {} = ev->file->glob(ev->file->env, {});", temp, pattern));
|
||||||
|
} else {
|
||||||
|
self.writeln(&format!("LuxList* {} = lux_file_glob({});", temp, pattern));
|
||||||
|
}
|
||||||
|
self.register_rc_var(&temp, "LuxList*");
|
||||||
|
return Ok(temp);
|
||||||
|
}
|
||||||
_ => {}
|
_ => {}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -3844,13 +4101,35 @@ impl CBackend {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
Expr::Record { fields, .. } => {
|
Expr::Record {
|
||||||
let field_strs: Result<Vec<_>, _> = fields.iter().map(|(name, val)| {
|
spread, fields, ..
|
||||||
|
} => {
|
||||||
|
if let Some(spread_expr) = spread {
|
||||||
|
// Evaluate spread source, then override fields
|
||||||
|
let base = self.emit_expr(spread_expr)?;
|
||||||
|
if fields.is_empty() {
|
||||||
|
Ok(base)
|
||||||
|
} else {
|
||||||
|
// Copy spread into a temp, then override fields
|
||||||
|
let temp = format!("_spread_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("__auto_type {} = {};", temp, base));
|
||||||
|
for (name, val) in fields {
|
||||||
|
let v = self.emit_expr(val)?;
|
||||||
|
self.writeln(&format!("{}.{} = {};", temp, name.name, v));
|
||||||
|
}
|
||||||
|
Ok(temp)
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
let field_strs: Result<Vec<_>, _> = fields
|
||||||
|
.iter()
|
||||||
|
.map(|(name, val)| {
|
||||||
let v = self.emit_expr(val)?;
|
let v = self.emit_expr(val)?;
|
||||||
Ok(format!(".{} = {}", name.name, v))
|
Ok(format!(".{} = {}", name.name, v))
|
||||||
}).collect();
|
})
|
||||||
|
.collect();
|
||||||
Ok(format!("{{ {} }}", field_strs?.join(", ")))
|
Ok(format!("{{ {} }}", field_strs?.join(", ")))
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
Expr::Field { object, field, .. } => {
|
Expr::Field { object, field, .. } => {
|
||||||
let obj = self.emit_expr(object)?;
|
let obj = self.emit_expr(object)?;
|
||||||
@@ -3919,6 +4198,64 @@ impl CBackend {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/// Emit code for Math module operations (Math.sin, Math.cos, etc.)
|
||||||
|
fn emit_math_operation(&mut self, op: &str, args: &[Expr]) -> Result<String, CGenError> {
|
||||||
|
match op {
|
||||||
|
"abs" => {
|
||||||
|
let x = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("fabs({})", x))
|
||||||
|
}
|
||||||
|
"min" => {
|
||||||
|
let a = self.emit_expr(&args[0])?;
|
||||||
|
let b = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!("fmin({}, {})", a, b))
|
||||||
|
}
|
||||||
|
"max" => {
|
||||||
|
let a = self.emit_expr(&args[0])?;
|
||||||
|
let b = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!("fmax({}, {})", a, b))
|
||||||
|
}
|
||||||
|
"sqrt" => {
|
||||||
|
let x = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("sqrt({})", x))
|
||||||
|
}
|
||||||
|
"pow" => {
|
||||||
|
let base = self.emit_expr(&args[0])?;
|
||||||
|
let exp = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!("pow({}, {})", base, exp))
|
||||||
|
}
|
||||||
|
"floor" => {
|
||||||
|
let x = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("(int64_t)floor({})", x))
|
||||||
|
}
|
||||||
|
"ceil" => {
|
||||||
|
let x = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("(int64_t)ceil({})", x))
|
||||||
|
}
|
||||||
|
"round" => {
|
||||||
|
let x = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("(int64_t)round({})", x))
|
||||||
|
}
|
||||||
|
"sin" => {
|
||||||
|
let x = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("sin({})", x))
|
||||||
|
}
|
||||||
|
"cos" => {
|
||||||
|
let x = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("cos({})", x))
|
||||||
|
}
|
||||||
|
"atan2" => {
|
||||||
|
let y = self.emit_expr(&args[0])?;
|
||||||
|
let x = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!("atan2({}, {})", y, x))
|
||||||
|
}
|
||||||
|
_ => Err(CGenError {
|
||||||
|
message: format!("Math.{} not supported in C backend", op),
|
||||||
|
span: None,
|
||||||
|
}),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
/// Emit code for List module operations (List.map, List.filter, etc.)
|
/// Emit code for List module operations (List.map, List.filter, etc.)
|
||||||
fn emit_list_operation(&mut self, op: &str, args: &[Expr]) -> Result<String, CGenError> {
|
fn emit_list_operation(&mut self, op: &str, args: &[Expr]) -> Result<String, CGenError> {
|
||||||
match op {
|
match op {
|
||||||
@@ -4413,6 +4750,82 @@ impl CBackend {
|
|||||||
Ok(result_var)
|
Ok(result_var)
|
||||||
}
|
}
|
||||||
|
|
||||||
|
"sort" => {
|
||||||
|
if args.len() != 1 {
|
||||||
|
return Err(CGenError {
|
||||||
|
message: "List.sort takes 1 argument".to_string(),
|
||||||
|
span: None,
|
||||||
|
});
|
||||||
|
}
|
||||||
|
let list = self.emit_expr(&args[0])?;
|
||||||
|
let result_var = format!("_sorted_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!(
|
||||||
|
"LuxList* {} = lux_list_sort({});",
|
||||||
|
result_var, list
|
||||||
|
));
|
||||||
|
self.register_rc_var(&result_var, "LuxList*");
|
||||||
|
Ok(result_var)
|
||||||
|
}
|
||||||
|
"sortBy" => {
|
||||||
|
if args.len() != 2 {
|
||||||
|
return Err(CGenError {
|
||||||
|
message: "List.sortBy takes 2 arguments".to_string(),
|
||||||
|
span: None,
|
||||||
|
});
|
||||||
|
}
|
||||||
|
let list = self.emit_expr(&args[0])?;
|
||||||
|
let closure = self.emit_expr(&args[1])?;
|
||||||
|
let result_var = format!("_sorted_{}", self.fresh_name());
|
||||||
|
// Copy the list then do insertion sort with custom comparator
|
||||||
|
self.writeln(&format!(
|
||||||
|
"LuxList* {} = lux_list_new({}->length);",
|
||||||
|
result_var, list
|
||||||
|
));
|
||||||
|
self.writeln(&format!(
|
||||||
|
"for (int64_t _i = 0; _i < {}->length; _i++) {{",
|
||||||
|
list
|
||||||
|
));
|
||||||
|
self.writeln(&format!(
|
||||||
|
" lux_incref({}->elements[_i]);",
|
||||||
|
list
|
||||||
|
));
|
||||||
|
self.writeln(&format!(
|
||||||
|
" {}->elements[_i] = {}->elements[_i];",
|
||||||
|
result_var, list
|
||||||
|
));
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln(&format!(
|
||||||
|
"{}->length = {}->length;",
|
||||||
|
result_var, list
|
||||||
|
));
|
||||||
|
// Insertion sort using the comparator closure
|
||||||
|
self.writeln(&format!(
|
||||||
|
"for (int64_t _i = 1; _i < {}->length; _i++) {{",
|
||||||
|
result_var
|
||||||
|
));
|
||||||
|
self.writeln(&format!(
|
||||||
|
" void* _key = {}->elements[_i];",
|
||||||
|
result_var
|
||||||
|
));
|
||||||
|
self.writeln(" int64_t _j = _i - 1;");
|
||||||
|
self.writeln(&format!(
|
||||||
|
" while (_j >= 0 && *(LuxInt*){}.fn({}.env, {}->elements[_j], _key) > 0) {{",
|
||||||
|
closure, closure, result_var
|
||||||
|
));
|
||||||
|
self.writeln(&format!(
|
||||||
|
" {}->elements[_j + 1] = {}->elements[_j];",
|
||||||
|
result_var, result_var
|
||||||
|
));
|
||||||
|
self.writeln(" _j--;");
|
||||||
|
self.writeln(" }");
|
||||||
|
self.writeln(&format!(
|
||||||
|
" {}->elements[_j + 1] = _key;",
|
||||||
|
result_var
|
||||||
|
));
|
||||||
|
self.writeln("}");
|
||||||
|
self.register_rc_var(&result_var, "LuxList*");
|
||||||
|
Ok(result_var)
|
||||||
|
}
|
||||||
_ => Err(CGenError {
|
_ => Err(CGenError {
|
||||||
message: format!("Unsupported List operation: {}", op),
|
message: format!("Unsupported List operation: {}", op),
|
||||||
span: None,
|
span: None,
|
||||||
@@ -4420,6 +4833,140 @@ impl CBackend {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/// Emit code for Map module operations
|
||||||
|
fn emit_map_operation(&mut self, op: &str, args: &[Expr]) -> Result<String, CGenError> {
|
||||||
|
match op {
|
||||||
|
"new" => {
|
||||||
|
let temp = format!("_map_new_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("LuxMap* {} = lux_map_new(8);", temp));
|
||||||
|
Ok(temp)
|
||||||
|
}
|
||||||
|
"set" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let key = self.emit_expr(&args[1])?;
|
||||||
|
let val = self.emit_expr(&args[2])?;
|
||||||
|
let boxed_val = self.box_value(&val, None);
|
||||||
|
let temp = format!("_map_set_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("LuxMap* {} = lux_map_set({}, {}, {});", temp, map, key, boxed_val));
|
||||||
|
Ok(temp)
|
||||||
|
}
|
||||||
|
"get" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let key = self.emit_expr(&args[1])?;
|
||||||
|
let idx_temp = format!("_map_idx_{}", self.fresh_name());
|
||||||
|
let result_temp = format!("_map_get_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("int64_t {} = lux_map_find({}, {});", idx_temp, map, key));
|
||||||
|
self.writeln(&format!("Option {};", result_temp));
|
||||||
|
self.writeln(&format!("if ({} >= 0) {{", idx_temp));
|
||||||
|
self.indent += 1;
|
||||||
|
self.writeln(&format!("lux_incref({}->values[{}]);", map, idx_temp));
|
||||||
|
self.writeln(&format!("{} = lux_option_some({}->values[{}]);", result_temp, map, idx_temp));
|
||||||
|
self.indent -= 1;
|
||||||
|
self.writeln("} else {");
|
||||||
|
self.indent += 1;
|
||||||
|
self.writeln(&format!("{} = lux_option_none();", result_temp));
|
||||||
|
self.indent -= 1;
|
||||||
|
self.writeln("}");
|
||||||
|
Ok(result_temp)
|
||||||
|
}
|
||||||
|
"contains" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let key = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!("lux_map_contains({}, {})", map, key))
|
||||||
|
}
|
||||||
|
"remove" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let key = self.emit_expr(&args[1])?;
|
||||||
|
let temp = format!("_map_rm_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("LuxMap* {} = lux_map_remove({}, {});", temp, map, key));
|
||||||
|
Ok(temp)
|
||||||
|
}
|
||||||
|
"keys" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let temp = format!("_map_keys_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("LuxList* {} = lux_list_new({}->length);", temp, map));
|
||||||
|
// Sort keys: simple insertion sort
|
||||||
|
self.writeln(&format!("for (int64_t _i = 0; _i < {}->length; _i++) {{", map));
|
||||||
|
self.indent += 1;
|
||||||
|
self.writeln(&format!("LuxString _ks = lux_string_dup({}->keys[_i]);", map));
|
||||||
|
self.writeln(&format!("lux_list_push({}, _ks);", temp));
|
||||||
|
self.indent -= 1;
|
||||||
|
self.writeln("}");
|
||||||
|
// Sort via bubble sort (small N)
|
||||||
|
self.writeln(&format!("for (int64_t _i = 0; _i < {}->length; _i++)", temp));
|
||||||
|
self.writeln(&format!(" for (int64_t _j = _i+1; _j < {}->length; _j++)", temp));
|
||||||
|
self.writeln(&format!(" if (strcmp({}->elements[_i], {}->elements[_j]) > 0) {{", temp, temp));
|
||||||
|
self.writeln(&format!(" void* _t = {}->elements[_i]; {}->elements[_i] = {}->elements[_j]; {}->elements[_j] = _t;", temp, temp, temp, temp));
|
||||||
|
self.writeln(" }");
|
||||||
|
Ok(temp)
|
||||||
|
}
|
||||||
|
"values" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let temp = format!("_map_vals_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("LuxList* {} = lux_list_new({}->length);", temp, map));
|
||||||
|
// Sort by key first, then collect values
|
||||||
|
self.writeln(&format!("int64_t* _idx = (int64_t*)malloc(sizeof(int64_t) * {}->length);", map));
|
||||||
|
self.writeln(&format!("for (int64_t _i = 0; _i < {}->length; _i++) _idx[_i] = _i;", map));
|
||||||
|
self.writeln(&format!("for (int64_t _i = 0; _i < {}->length; _i++)", map));
|
||||||
|
self.writeln(&format!(" for (int64_t _j = _i+1; _j < {}->length; _j++)", map));
|
||||||
|
self.writeln(&format!(" if (strcmp({}->keys[_idx[_i]], {}->keys[_idx[_j]]) > 0) {{ int64_t _t = _idx[_i]; _idx[_i] = _idx[_j]; _idx[_j] = _t; }}", map, map));
|
||||||
|
self.writeln(&format!("for (int64_t _i = 0; _i < {}->length; _i++) {{", map));
|
||||||
|
self.indent += 1;
|
||||||
|
self.writeln(&format!("lux_incref({}->values[_idx[_i]]);", map));
|
||||||
|
self.writeln(&format!("lux_list_push({}, {}->values[_idx[_i]]);", temp, map));
|
||||||
|
self.indent -= 1;
|
||||||
|
self.writeln("}");
|
||||||
|
self.writeln("free(_idx);");
|
||||||
|
Ok(temp)
|
||||||
|
}
|
||||||
|
"size" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("lux_map_size({})", map))
|
||||||
|
}
|
||||||
|
"isEmpty" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("lux_map_isEmpty({})", map))
|
||||||
|
}
|
||||||
|
"fromList" => {
|
||||||
|
let list = self.emit_expr(&args[0])?;
|
||||||
|
let temp = format!("_map_fl_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("LuxMap* {} = lux_map_new({}->length);", temp, list));
|
||||||
|
self.writeln(&format!("for (int64_t _i = 0; _i < {}->length; _i++) {{", list));
|
||||||
|
self.indent += 1;
|
||||||
|
// Elements are tuples (boxed as void*) — we treat them as a simple 2-element struct
|
||||||
|
self.writeln("// Each element is a (String, V) tuple - not yet fully supported in C backend for Map");
|
||||||
|
self.indent -= 1;
|
||||||
|
self.writeln("}");
|
||||||
|
Ok(temp)
|
||||||
|
}
|
||||||
|
"toList" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let temp = format!("_map_tl_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("LuxList* {} = lux_list_new({}->length);", temp, map));
|
||||||
|
self.writeln("// Map.toList not fully supported in C backend yet");
|
||||||
|
Ok(temp)
|
||||||
|
}
|
||||||
|
"merge" => {
|
||||||
|
let m1 = self.emit_expr(&args[0])?;
|
||||||
|
let m2 = self.emit_expr(&args[1])?;
|
||||||
|
let temp = format!("_map_merge_{}", self.fresh_name());
|
||||||
|
self.writeln(&format!("LuxMap* {} = lux_map_clone({});", temp, m1));
|
||||||
|
self.writeln(&format!("for (int64_t _i = 0; _i < {}->length; _i++) {{", m2));
|
||||||
|
self.indent += 1;
|
||||||
|
self.writeln(&format!("LuxMap* _next = lux_map_set({}, {}->keys[_i], {}->values[_i]);", temp, m2, m2));
|
||||||
|
self.writeln(&format!("free({}->keys); free({}->values); free({});", temp, temp, temp));
|
||||||
|
self.writeln(&format!("{} = _next;", temp));
|
||||||
|
self.indent -= 1;
|
||||||
|
self.writeln("}");
|
||||||
|
Ok(temp)
|
||||||
|
}
|
||||||
|
_ => Err(CGenError {
|
||||||
|
message: format!("Unsupported Map operation: {}", op),
|
||||||
|
span: None,
|
||||||
|
}),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
fn emit_expr_with_substitution(&mut self, expr: &Expr, from: &str, to: &str) -> Result<String, CGenError> {
|
fn emit_expr_with_substitution(&mut self, expr: &Expr, from: &str, to: &str) -> Result<String, CGenError> {
|
||||||
// Simple substitution - in a real implementation, this would be more sophisticated
|
// Simple substitution - in a real implementation, this would be more sophisticated
|
||||||
match expr {
|
match expr {
|
||||||
@@ -4505,8 +5052,8 @@ impl CBackend {
|
|||||||
if c_type == "void*" {
|
if c_type == "void*" {
|
||||||
// Cast from void* to actual type
|
// Cast from void* to actual type
|
||||||
if Self::is_primitive_c_type(&actual_type) {
|
if Self::is_primitive_c_type(&actual_type) {
|
||||||
// For primitive types stored as void*, cast via intptr_t
|
// For primitive types stored as boxed void*, dereference
|
||||||
self.writeln(&format!("{} {} = ({})(intptr_t)({});", actual_type, var_name, actual_type, c_expr));
|
self.writeln(&format!("{} {} = *({}*)({});", actual_type, var_name, actual_type, c_expr));
|
||||||
} else if !actual_type.ends_with('*') && actual_type != "void" {
|
} else if !actual_type.ends_with('*') && actual_type != "void" {
|
||||||
// Struct types: cast to pointer and dereference
|
// Struct types: cast to pointer and dereference
|
||||||
self.writeln(&format!("{} {} = *({}*)({});", actual_type, var_name, actual_type, c_expr));
|
self.writeln(&format!("{} {} = *({}*)({});", actual_type, var_name, actual_type, c_expr));
|
||||||
@@ -4732,11 +5279,13 @@ impl CBackend {
|
|||||||
"toString" => return Some("LuxString".to_string()),
|
"toString" => return Some("LuxString".to_string()),
|
||||||
"parse" => return Some("Option".to_string()),
|
"parse" => return Some("Option".to_string()),
|
||||||
"abs" | "min" | "max" => return Some("LuxInt".to_string()),
|
"abs" | "min" | "max" => return Some("LuxInt".to_string()),
|
||||||
|
"toFloat" => return Some("LuxFloat".to_string()),
|
||||||
_ => {}
|
_ => {}
|
||||||
},
|
},
|
||||||
"Float" => match field.name.as_str() {
|
"Float" => match field.name.as_str() {
|
||||||
"toString" => return Some("LuxString".to_string()),
|
"toString" => return Some("LuxString".to_string()),
|
||||||
"parse" => return Some("Option".to_string()),
|
"parse" => return Some("Option".to_string()),
|
||||||
|
"toInt" => return Some("LuxInt".to_string()),
|
||||||
_ => return Some("LuxFloat".to_string()),
|
_ => return Some("LuxFloat".to_string()),
|
||||||
},
|
},
|
||||||
_ => {
|
_ => {
|
||||||
@@ -4788,6 +5337,7 @@ impl CBackend {
|
|||||||
if effect.name == "Int" {
|
if effect.name == "Int" {
|
||||||
match operation.name.as_str() {
|
match operation.name.as_str() {
|
||||||
"toString" => return Some("LuxString".to_string()),
|
"toString" => return Some("LuxString".to_string()),
|
||||||
|
"toFloat" => return Some("LuxFloat".to_string()),
|
||||||
_ => return None,
|
_ => return None,
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -4795,6 +5345,7 @@ impl CBackend {
|
|||||||
if effect.name == "Float" {
|
if effect.name == "Float" {
|
||||||
match operation.name.as_str() {
|
match operation.name.as_str() {
|
||||||
"toString" => return Some("LuxString".to_string()),
|
"toString" => return Some("LuxString".to_string()),
|
||||||
|
"toInt" => return Some("LuxInt".to_string()),
|
||||||
_ => return None,
|
_ => return None,
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -4802,7 +5353,7 @@ impl CBackend {
|
|||||||
if effect.name == "List" {
|
if effect.name == "List" {
|
||||||
match operation.name.as_str() {
|
match operation.name.as_str() {
|
||||||
// Operations returning lists
|
// Operations returning lists
|
||||||
"map" | "filter" | "concat" | "reverse" | "take" | "drop" | "range" => Some("LuxList*".to_string()),
|
"map" | "filter" | "concat" | "reverse" | "take" | "drop" | "range" | "sort" | "sortBy" => Some("LuxList*".to_string()),
|
||||||
// Operations returning Option
|
// Operations returning Option
|
||||||
"head" | "tail" | "get" | "find" => Some("Option".to_string()),
|
"head" | "tail" | "get" | "find" => Some("Option".to_string()),
|
||||||
// Operations returning Int
|
// Operations returning Int
|
||||||
@@ -4835,9 +5386,9 @@ impl CBackend {
|
|||||||
} else if effect.name == "File" {
|
} else if effect.name == "File" {
|
||||||
match operation.name.as_str() {
|
match operation.name.as_str() {
|
||||||
"read" => Some("LuxString".to_string()),
|
"read" => Some("LuxString".to_string()),
|
||||||
"write" | "append" | "delete" | "mkdir" => Some("void".to_string()),
|
"write" | "append" | "delete" | "mkdir" | "copy" => Some("void".to_string()),
|
||||||
"exists" | "isDir" => Some("LuxBool".to_string()),
|
"exists" | "isDir" => Some("LuxBool".to_string()),
|
||||||
"readDir" | "listDir" => Some("LuxList*".to_string()),
|
"readDir" | "listDir" | "glob" => Some("LuxList*".to_string()),
|
||||||
_ => None,
|
_ => None,
|
||||||
}
|
}
|
||||||
} else if effect.name == "Http" {
|
} else if effect.name == "Http" {
|
||||||
@@ -5043,7 +5594,13 @@ impl CBackend {
|
|||||||
None
|
None
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
Expr::Var(_) => None,
|
Expr::Var(ident) => {
|
||||||
|
let escaped = self.escape_c_keyword(&ident.name);
|
||||||
|
// Check renamed variables first, then original name
|
||||||
|
let lookup_name = self.var_renames.get(&ident.name).unwrap_or(&escaped);
|
||||||
|
self.var_option_inner_types.get(lookup_name).cloned()
|
||||||
|
.or_else(|| self.var_option_inner_types.get(&escaped).cloned())
|
||||||
|
}
|
||||||
_ => None,
|
_ => None,
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -5221,9 +5778,25 @@ impl CBackend {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
fn emit_global_let(&mut self, name: &Ident, value: &Expr) -> Result<(), CGenError> {
|
fn emit_global_let(&mut self, let_decl: &crate::ast::LetDecl) -> Result<(), CGenError> {
|
||||||
let val = self.emit_expr(value)?;
|
// Infer type from the value expression (or type annotation)
|
||||||
self.writeln(&format!("static LuxInt {} = {};", name.name, val));
|
let typ = if let Some(ref type_expr) = let_decl.typ {
|
||||||
|
self.type_expr_to_c(type_expr).unwrap_or_else(|_| "LuxInt".to_string())
|
||||||
|
} else {
|
||||||
|
self.infer_expr_type(&let_decl.value).unwrap_or_else(|| "LuxInt".to_string())
|
||||||
|
};
|
||||||
|
let default = match typ.as_str() {
|
||||||
|
"LuxString" => "NULL",
|
||||||
|
"LuxBool" => "false",
|
||||||
|
"LuxFloat" => "0.0",
|
||||||
|
"LuxList*" | "LuxClosure*" => "NULL",
|
||||||
|
"Option" => "{0}",
|
||||||
|
"Result" => "{0}",
|
||||||
|
_ if typ.ends_with('*') => "NULL",
|
||||||
|
_ => "0",
|
||||||
|
};
|
||||||
|
self.writeln(&format!("static {} {} = {};", typ, let_decl.name.name, default));
|
||||||
|
self.var_types.insert(let_decl.name.name.clone(), typ);
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
Ok(())
|
Ok(())
|
||||||
}
|
}
|
||||||
@@ -5234,12 +5807,16 @@ impl CBackend {
|
|||||||
matches!(d, Declaration::Function(f) if f.name.name == "main")
|
matches!(d, Declaration::Function(f) if f.name.name == "main")
|
||||||
});
|
});
|
||||||
|
|
||||||
// Check for top-level run expressions
|
// Check for top-level run expressions or let bindings
|
||||||
let has_run = program.declarations.iter().any(|d| {
|
let has_run = program.declarations.iter().any(|d| {
|
||||||
matches!(d, Declaration::Let(let_decl) if matches!(&let_decl.value, Expr::Run { .. }))
|
matches!(d, Declaration::Let(let_decl) if matches!(&let_decl.value, Expr::Run { .. }))
|
||||||
});
|
});
|
||||||
|
|
||||||
if has_main || has_run {
|
let has_global_lets = program.declarations.iter().any(|d| {
|
||||||
|
matches!(d, Declaration::Let(let_decl) if !matches!(&let_decl.value, Expr::Run { .. }))
|
||||||
|
});
|
||||||
|
|
||||||
|
if has_main || has_run || has_global_lets {
|
||||||
self.writeln("int main(int argc, char** argv) {");
|
self.writeln("int main(int argc, char** argv) {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
|
|
||||||
@@ -5248,6 +5825,16 @@ impl CBackend {
|
|||||||
self.writeln("lux_argv = argv;");
|
self.writeln("lux_argv = argv;");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
|
||||||
|
// Initialize top-level let bindings (non-run) inside main
|
||||||
|
for decl in &program.declarations {
|
||||||
|
if let Declaration::Let(let_decl) = decl {
|
||||||
|
if !matches!(&let_decl.value, Expr::Run { .. }) {
|
||||||
|
let val = self.emit_expr(&let_decl.value)?;
|
||||||
|
self.writeln(&format!("{} = {};", let_decl.name.name, val));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
// Execute top-level let bindings with run expressions
|
// Execute top-level let bindings with run expressions
|
||||||
// Track if main was already called via a run expression
|
// Track if main was already called via a run expression
|
||||||
let mut main_called_via_run = false;
|
let mut main_called_via_run = false;
|
||||||
@@ -5312,6 +5899,20 @@ impl CBackend {
|
|||||||
self.type_expr_to_c(type_expr)
|
self.type_expr_to_c(type_expr)
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/// Extract the inner C type from an Option<T> type expression
|
||||||
|
fn option_inner_type_from_type_expr(&self, type_expr: &TypeExpr) -> Option<String> {
|
||||||
|
if let TypeExpr::App(base, args) = type_expr {
|
||||||
|
if let TypeExpr::Named(name) = base.as_ref() {
|
||||||
|
if name.name == "Option" {
|
||||||
|
if let Some(inner) = args.first() {
|
||||||
|
return self.type_expr_to_c(inner).ok();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
None
|
||||||
|
}
|
||||||
|
|
||||||
fn type_expr_to_c(&self, type_expr: &TypeExpr) -> Result<String, CGenError> {
|
fn type_expr_to_c(&self, type_expr: &TypeExpr) -> Result<String, CGenError> {
|
||||||
match type_expr {
|
match type_expr {
|
||||||
TypeExpr::Named(ident) => {
|
TypeExpr::Named(ident) => {
|
||||||
@@ -5821,7 +6422,10 @@ impl CBackend {
|
|||||||
}
|
}
|
||||||
self.collect_free_vars(body, &inner_bound, free);
|
self.collect_free_vars(body, &inner_bound, free);
|
||||||
}
|
}
|
||||||
Expr::Record { fields, .. } => {
|
Expr::Record { spread, fields, .. } => {
|
||||||
|
if let Some(spread_expr) = spread {
|
||||||
|
self.collect_free_vars(spread_expr, bound, free);
|
||||||
|
}
|
||||||
for (_, val) in fields {
|
for (_, val) in fields {
|
||||||
self.collect_free_vars(val, bound, free);
|
self.collect_free_vars(val, bound, free);
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -69,6 +69,8 @@ pub struct JsBackend {
|
|||||||
has_handlers: bool,
|
has_handlers: bool,
|
||||||
/// Variable substitutions for let binding
|
/// Variable substitutions for let binding
|
||||||
var_substitutions: HashMap<String, String>,
|
var_substitutions: HashMap<String, String>,
|
||||||
|
/// Effects actually used in the program (for tree-shaking runtime)
|
||||||
|
used_effects: HashSet<String>,
|
||||||
}
|
}
|
||||||
|
|
||||||
impl JsBackend {
|
impl JsBackend {
|
||||||
@@ -90,6 +92,7 @@ impl JsBackend {
|
|||||||
effectful_functions: HashSet::new(),
|
effectful_functions: HashSet::new(),
|
||||||
has_handlers: false,
|
has_handlers: false,
|
||||||
var_substitutions: HashMap::new(),
|
var_substitutions: HashMap::new(),
|
||||||
|
used_effects: HashSet::new(),
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -97,9 +100,6 @@ impl JsBackend {
|
|||||||
pub fn generate(&mut self, program: &Program) -> Result<String, JsGenError> {
|
pub fn generate(&mut self, program: &Program) -> Result<String, JsGenError> {
|
||||||
self.output.clear();
|
self.output.clear();
|
||||||
|
|
||||||
// Emit runtime helpers
|
|
||||||
self.emit_runtime();
|
|
||||||
|
|
||||||
// First pass: collect all function names, types, and effects
|
// First pass: collect all function names, types, and effects
|
||||||
for decl in &program.declarations {
|
for decl in &program.declarations {
|
||||||
match decl {
|
match decl {
|
||||||
@@ -116,6 +116,12 @@ impl JsBackend {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// Collect used effects for tree-shaking
|
||||||
|
self.collect_used_effects(program);
|
||||||
|
|
||||||
|
// Emit runtime helpers (tree-shaken based on used effects)
|
||||||
|
self.emit_runtime();
|
||||||
|
|
||||||
// Emit type constructors
|
// Emit type constructors
|
||||||
for decl in &program.declarations {
|
for decl in &program.declarations {
|
||||||
if let Declaration::Type(t) = decl {
|
if let Declaration::Type(t) = decl {
|
||||||
@@ -163,32 +169,181 @@ impl JsBackend {
|
|||||||
Ok(self.output.clone())
|
Ok(self.output.clone())
|
||||||
}
|
}
|
||||||
|
|
||||||
/// Emit the minimal Lux runtime
|
/// Collect all effects used in the program for runtime tree-shaking
|
||||||
|
fn collect_used_effects(&mut self, program: &Program) {
|
||||||
|
for decl in &program.declarations {
|
||||||
|
match decl {
|
||||||
|
Declaration::Function(f) => {
|
||||||
|
for effect in &f.effects {
|
||||||
|
self.used_effects.insert(effect.name.clone());
|
||||||
|
}
|
||||||
|
self.collect_effects_from_expr(&f.body);
|
||||||
|
}
|
||||||
|
Declaration::Let(l) => {
|
||||||
|
self.collect_effects_from_expr(&l.value);
|
||||||
|
}
|
||||||
|
Declaration::Handler(h) => {
|
||||||
|
self.used_effects.insert(h.effect.name.clone());
|
||||||
|
for imp in &h.implementations {
|
||||||
|
self.collect_effects_from_expr(&imp.body);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
_ => {}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/// Recursively collect effect names from an expression
|
||||||
|
fn collect_effects_from_expr(&mut self, expr: &Expr) {
|
||||||
|
match expr {
|
||||||
|
Expr::EffectOp { effect, args, .. } => {
|
||||||
|
self.used_effects.insert(effect.name.clone());
|
||||||
|
for arg in args {
|
||||||
|
self.collect_effects_from_expr(arg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Expr::Run { expr, handlers, .. } => {
|
||||||
|
self.collect_effects_from_expr(expr);
|
||||||
|
for (effect, handler) in handlers {
|
||||||
|
self.used_effects.insert(effect.name.clone());
|
||||||
|
self.collect_effects_from_expr(handler);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Expr::Call { func, args, .. } => {
|
||||||
|
self.collect_effects_from_expr(func);
|
||||||
|
for arg in args {
|
||||||
|
self.collect_effects_from_expr(arg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Expr::Lambda { body, effects, .. } => {
|
||||||
|
for effect in effects {
|
||||||
|
self.used_effects.insert(effect.name.clone());
|
||||||
|
}
|
||||||
|
self.collect_effects_from_expr(body);
|
||||||
|
}
|
||||||
|
Expr::Let { value, body, .. } => {
|
||||||
|
self.collect_effects_from_expr(value);
|
||||||
|
self.collect_effects_from_expr(body);
|
||||||
|
}
|
||||||
|
Expr::If { condition, then_branch, else_branch, .. } => {
|
||||||
|
self.collect_effects_from_expr(condition);
|
||||||
|
self.collect_effects_from_expr(then_branch);
|
||||||
|
self.collect_effects_from_expr(else_branch);
|
||||||
|
}
|
||||||
|
Expr::Match { scrutinee, arms, .. } => {
|
||||||
|
self.collect_effects_from_expr(scrutinee);
|
||||||
|
for arm in arms {
|
||||||
|
self.collect_effects_from_expr(&arm.body);
|
||||||
|
if let Some(guard) = &arm.guard {
|
||||||
|
self.collect_effects_from_expr(guard);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Expr::Block { statements, result, .. } => {
|
||||||
|
for stmt in statements {
|
||||||
|
match stmt {
|
||||||
|
Statement::Expr(e) => self.collect_effects_from_expr(e),
|
||||||
|
Statement::Let { value, .. } => self.collect_effects_from_expr(value),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
self.collect_effects_from_expr(result);
|
||||||
|
}
|
||||||
|
Expr::BinaryOp { left, right, .. } => {
|
||||||
|
self.collect_effects_from_expr(left);
|
||||||
|
self.collect_effects_from_expr(right);
|
||||||
|
}
|
||||||
|
Expr::UnaryOp { operand, .. } => {
|
||||||
|
self.collect_effects_from_expr(operand);
|
||||||
|
}
|
||||||
|
Expr::Field { object, .. } => {
|
||||||
|
self.collect_effects_from_expr(object);
|
||||||
|
}
|
||||||
|
Expr::TupleIndex { object, .. } => {
|
||||||
|
self.collect_effects_from_expr(object);
|
||||||
|
}
|
||||||
|
Expr::Record { spread, fields, .. } => {
|
||||||
|
if let Some(s) = spread {
|
||||||
|
self.collect_effects_from_expr(s);
|
||||||
|
}
|
||||||
|
for (_, expr) in fields {
|
||||||
|
self.collect_effects_from_expr(expr);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Expr::Tuple { elements, .. } | Expr::List { elements, .. } => {
|
||||||
|
for el in elements {
|
||||||
|
self.collect_effects_from_expr(el);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Expr::Resume { value, .. } => {
|
||||||
|
self.collect_effects_from_expr(value);
|
||||||
|
}
|
||||||
|
Expr::Literal(_) | Expr::Var(_) => {}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/// Emit the Lux runtime, tree-shaken based on used effects
|
||||||
fn emit_runtime(&mut self) {
|
fn emit_runtime(&mut self) {
|
||||||
|
let uses_console = self.used_effects.contains("Console");
|
||||||
|
let uses_random = self.used_effects.contains("Random");
|
||||||
|
let uses_time = self.used_effects.contains("Time");
|
||||||
|
let uses_http = self.used_effects.contains("Http");
|
||||||
|
let uses_dom = self.used_effects.contains("Dom");
|
||||||
|
let uses_html = self.used_effects.contains("Html") || uses_dom;
|
||||||
|
|
||||||
self.writeln("// Lux Runtime");
|
self.writeln("// Lux Runtime");
|
||||||
self.writeln("const Lux = {");
|
self.writeln("const Lux = {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
|
|
||||||
// Option helpers
|
// Core helpers — always emitted
|
||||||
self.writeln("Some: (value) => ({ tag: \"Some\", value }),");
|
self.writeln("Some: (value) => ({ tag: \"Some\", value }),");
|
||||||
self.writeln("None: () => ({ tag: \"None\" }),");
|
self.writeln("None: () => ({ tag: \"None\" }),");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
|
||||||
// Result helpers
|
|
||||||
self.writeln("Ok: (value) => ({ tag: \"Ok\", value }),");
|
self.writeln("Ok: (value) => ({ tag: \"Ok\", value }),");
|
||||||
self.writeln("Err: (error) => ({ tag: \"Err\", error }),");
|
self.writeln("Err: (error) => ({ tag: \"Err\", error }),");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
|
||||||
// List helpers
|
|
||||||
self.writeln("Cons: (head, tail) => [head, ...tail],");
|
self.writeln("Cons: (head, tail) => [head, ...tail],");
|
||||||
self.writeln("Nil: () => [],");
|
self.writeln("Nil: () => [],");
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
|
|
||||||
// Default handlers for effects
|
// Default handlers — only include effects that are used
|
||||||
self.writeln("defaultHandlers: {");
|
self.writeln("defaultHandlers: {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
|
|
||||||
// Console effect
|
if uses_console {
|
||||||
|
self.emit_console_handler();
|
||||||
|
}
|
||||||
|
if uses_random {
|
||||||
|
self.emit_random_handler();
|
||||||
|
}
|
||||||
|
if uses_time {
|
||||||
|
self.emit_time_handler();
|
||||||
|
}
|
||||||
|
if uses_http {
|
||||||
|
self.emit_http_handler();
|
||||||
|
}
|
||||||
|
if uses_dom {
|
||||||
|
self.emit_dom_handler();
|
||||||
|
}
|
||||||
|
|
||||||
|
self.indent -= 1;
|
||||||
|
self.writeln("},");
|
||||||
|
|
||||||
|
// HTML rendering — only if Html or Dom effects are used
|
||||||
|
if uses_html {
|
||||||
|
self.emit_html_helpers();
|
||||||
|
}
|
||||||
|
|
||||||
|
// TEA runtime — only if Dom is used
|
||||||
|
if uses_dom {
|
||||||
|
self.emit_tea_runtime();
|
||||||
|
}
|
||||||
|
|
||||||
|
self.indent -= 1;
|
||||||
|
self.writeln("};");
|
||||||
|
self.writeln("");
|
||||||
|
}
|
||||||
|
|
||||||
|
fn emit_console_handler(&mut self) {
|
||||||
self.writeln("Console: {");
|
self.writeln("Console: {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("print: (msg) => console.log(msg),");
|
self.writeln("print: (msg) => console.log(msg),");
|
||||||
@@ -207,8 +362,9 @@ impl JsBackend {
|
|||||||
self.writeln("readInt: () => parseInt(Lux.defaultHandlers.Console.readLine(), 10)");
|
self.writeln("readInt: () => parseInt(Lux.defaultHandlers.Console.readLine(), 10)");
|
||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
}
|
||||||
|
|
||||||
// Random effect
|
fn emit_random_handler(&mut self) {
|
||||||
self.writeln("Random: {");
|
self.writeln("Random: {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("int: (min, max) => Math.floor(Math.random() * (max - min + 1)) + min,");
|
self.writeln("int: (min, max) => Math.floor(Math.random() * (max - min + 1)) + min,");
|
||||||
@@ -216,16 +372,18 @@ impl JsBackend {
|
|||||||
self.writeln("float: () => Math.random()");
|
self.writeln("float: () => Math.random()");
|
||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
}
|
||||||
|
|
||||||
// Time effect
|
fn emit_time_handler(&mut self) {
|
||||||
self.writeln("Time: {");
|
self.writeln("Time: {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("now: () => Date.now(),");
|
self.writeln("now: () => Date.now(),");
|
||||||
self.writeln("sleep: (ms) => new Promise(resolve => setTimeout(resolve, ms))");
|
self.writeln("sleep: (ms) => new Promise(resolve => setTimeout(resolve, ms))");
|
||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
}
|
||||||
|
|
||||||
// Http effect (browser/Node compatible)
|
fn emit_http_handler(&mut self) {
|
||||||
self.writeln("Http: {");
|
self.writeln("Http: {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("get: async (url) => {");
|
self.writeln("get: async (url) => {");
|
||||||
@@ -287,8 +445,9 @@ impl JsBackend {
|
|||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
}
|
||||||
|
|
||||||
// Dom effect (browser only - stubs for Node.js)
|
fn emit_dom_handler(&mut self) {
|
||||||
self.writeln("Dom: {");
|
self.writeln("Dom: {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
|
|
||||||
@@ -316,7 +475,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Element creation
|
|
||||||
self.writeln("createElement: (tag) => {");
|
self.writeln("createElement: (tag) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (typeof document === 'undefined') return null;");
|
self.writeln("if (typeof document === 'undefined') return null;");
|
||||||
@@ -331,7 +489,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// DOM manipulation
|
|
||||||
self.writeln("appendChild: (parent, child) => {");
|
self.writeln("appendChild: (parent, child) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (parent && child) parent.appendChild(child);");
|
self.writeln("if (parent && child) parent.appendChild(child);");
|
||||||
@@ -356,7 +513,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Content
|
|
||||||
self.writeln("setTextContent: (el, text) => {");
|
self.writeln("setTextContent: (el, text) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (el) el.textContent = text;");
|
self.writeln("if (el) el.textContent = text;");
|
||||||
@@ -381,7 +537,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Attributes
|
|
||||||
self.writeln("setAttribute: (el, name, value) => {");
|
self.writeln("setAttribute: (el, name, value) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (el) el.setAttribute(name, value);");
|
self.writeln("if (el) el.setAttribute(name, value);");
|
||||||
@@ -408,7 +563,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Classes
|
|
||||||
self.writeln("addClass: (el, className) => {");
|
self.writeln("addClass: (el, className) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (el) el.classList.add(className);");
|
self.writeln("if (el) el.classList.add(className);");
|
||||||
@@ -433,7 +587,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Styles
|
|
||||||
self.writeln("setStyle: (el, property, value) => {");
|
self.writeln("setStyle: (el, property, value) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (el) el.style[property] = value;");
|
self.writeln("if (el) el.style[property] = value;");
|
||||||
@@ -446,7 +599,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Form elements
|
|
||||||
self.writeln("getValue: (el) => {");
|
self.writeln("getValue: (el) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("return el ? el.value : '';");
|
self.writeln("return el ? el.value : '';");
|
||||||
@@ -471,7 +623,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Events
|
|
||||||
self.writeln("addEventListener: (el, event, handler) => {");
|
self.writeln("addEventListener: (el, event, handler) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (el) el.addEventListener(event, handler);");
|
self.writeln("if (el) el.addEventListener(event, handler);");
|
||||||
@@ -484,7 +635,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Focus
|
|
||||||
self.writeln("focus: (el) => {");
|
self.writeln("focus: (el) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (el && el.focus) el.focus();");
|
self.writeln("if (el && el.focus) el.focus();");
|
||||||
@@ -497,7 +647,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Document
|
|
||||||
self.writeln("getBody: () => {");
|
self.writeln("getBody: () => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (typeof document === 'undefined') return null;");
|
self.writeln("if (typeof document === 'undefined') return null;");
|
||||||
@@ -512,7 +661,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Window
|
|
||||||
self.writeln("getWindow: () => {");
|
self.writeln("getWindow: () => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (typeof window === 'undefined') return null;");
|
self.writeln("if (typeof window === 'undefined') return null;");
|
||||||
@@ -545,7 +693,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Scroll
|
|
||||||
self.writeln("scrollTo: (x, y) => {");
|
self.writeln("scrollTo: (x, y) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (typeof window !== 'undefined') window.scrollTo(x, y);");
|
self.writeln("if (typeof window !== 'undefined') window.scrollTo(x, y);");
|
||||||
@@ -558,7 +705,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Dimensions
|
|
||||||
self.writeln("getBoundingClientRect: (el) => {");
|
self.writeln("getBoundingClientRect: (el) => {");
|
||||||
self.indent += 1;
|
self.indent += 1;
|
||||||
self.writeln("if (!el) return { top: 0, left: 0, width: 0, height: 0, right: 0, bottom: 0 };");
|
self.writeln("if (!el) return { top: 0, left: 0, width: 0, height: 0, right: 0, bottom: 0 };");
|
||||||
@@ -574,13 +720,11 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
|
|
||||||
self.indent -= 1;
|
|
||||||
self.writeln("}");
|
|
||||||
|
|
||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
}
|
||||||
|
|
||||||
// HTML rendering helpers
|
fn emit_html_helpers(&mut self) {
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
self.writeln("// HTML rendering");
|
self.writeln("// HTML rendering");
|
||||||
self.writeln("renderHtml: (node) => {");
|
self.writeln("renderHtml: (node) => {");
|
||||||
@@ -682,8 +826,9 @@ impl JsBackend {
|
|||||||
self.writeln("return el;");
|
self.writeln("return el;");
|
||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
}
|
||||||
|
|
||||||
// TEA (The Elm Architecture) runtime
|
fn emit_tea_runtime(&mut self) {
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
self.writeln("// The Elm Architecture (TEA) runtime");
|
self.writeln("// The Elm Architecture (TEA) runtime");
|
||||||
self.writeln("app: (config) => {");
|
self.writeln("app: (config) => {");
|
||||||
@@ -727,7 +872,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Simple app (for string-based views like the counter example)
|
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
self.writeln("// Simple TEA app (string-based view)");
|
self.writeln("// Simple TEA app (string-based view)");
|
||||||
self.writeln("simpleApp: (config) => {");
|
self.writeln("simpleApp: (config) => {");
|
||||||
@@ -757,7 +901,6 @@ impl JsBackend {
|
|||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("},");
|
self.writeln("},");
|
||||||
|
|
||||||
// Diff and patch (basic implementation for view_deps optimization)
|
|
||||||
self.writeln("");
|
self.writeln("");
|
||||||
self.writeln("// Basic diff - checks if model fields changed");
|
self.writeln("// Basic diff - checks if model fields changed");
|
||||||
self.writeln("hasChanged: (oldModel, newModel, ...paths) => {");
|
self.writeln("hasChanged: (oldModel, newModel, ...paths) => {");
|
||||||
@@ -777,11 +920,7 @@ impl JsBackend {
|
|||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
self.writeln("return false;");
|
self.writeln("return false;");
|
||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("}");
|
self.writeln("},");
|
||||||
|
|
||||||
self.indent -= 1;
|
|
||||||
self.writeln("};");
|
|
||||||
self.writeln("");
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/// Collect type information from a type declaration
|
/// Collect type information from a type declaration
|
||||||
@@ -888,7 +1027,8 @@ impl JsBackend {
|
|||||||
let prev_has_handlers = self.has_handlers;
|
let prev_has_handlers = self.has_handlers;
|
||||||
self.has_handlers = is_effectful;
|
self.has_handlers = is_effectful;
|
||||||
|
|
||||||
// Clear var substitutions for this function
|
// Save and clear var substitutions for this function scope
|
||||||
|
let saved_substitutions = self.var_substitutions.clone();
|
||||||
self.var_substitutions.clear();
|
self.var_substitutions.clear();
|
||||||
|
|
||||||
// Emit function body
|
// Emit function body
|
||||||
@@ -896,6 +1036,7 @@ impl JsBackend {
|
|||||||
self.writeln(&format!("return {};", body_code));
|
self.writeln(&format!("return {};", body_code));
|
||||||
|
|
||||||
self.has_handlers = prev_has_handlers;
|
self.has_handlers = prev_has_handlers;
|
||||||
|
self.var_substitutions = saved_substitutions;
|
||||||
|
|
||||||
self.indent -= 1;
|
self.indent -= 1;
|
||||||
self.writeln("}");
|
self.writeln("}");
|
||||||
@@ -909,13 +1050,16 @@ impl JsBackend {
|
|||||||
let val = self.emit_expr(&let_decl.value)?;
|
let val = self.emit_expr(&let_decl.value)?;
|
||||||
let var_name = &let_decl.name.name;
|
let var_name = &let_decl.name.name;
|
||||||
|
|
||||||
// Check if this is a run expression (often results in undefined)
|
if var_name == "_" {
|
||||||
// We still want to execute it for its side effects
|
// Wildcard binding: just execute for side effects
|
||||||
|
self.writeln(&format!("{};", val));
|
||||||
|
} else {
|
||||||
self.writeln(&format!("const {} = {};", var_name, val));
|
self.writeln(&format!("const {} = {};", var_name, val));
|
||||||
|
|
||||||
// Register the variable for future use
|
// Register the variable for future use
|
||||||
self.var_substitutions
|
self.var_substitutions
|
||||||
.insert(var_name.clone(), var_name.clone());
|
.insert(var_name.clone(), var_name.clone());
|
||||||
|
}
|
||||||
|
|
||||||
Ok(())
|
Ok(())
|
||||||
}
|
}
|
||||||
@@ -954,12 +1098,17 @@ impl JsBackend {
|
|||||||
let r = self.emit_expr(right)?;
|
let r = self.emit_expr(right)?;
|
||||||
|
|
||||||
// Check for string concatenation
|
// Check for string concatenation
|
||||||
if matches!(op, BinaryOp::Add) {
|
if matches!(op, BinaryOp::Add | BinaryOp::Concat) {
|
||||||
if self.is_string_expr(left) || self.is_string_expr(right) {
|
if self.is_string_expr(left) || self.is_string_expr(right) {
|
||||||
return Ok(format!("({} + {})", l, r));
|
return Ok(format!("({} + {})", l, r));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// ++ on lists: use .concat()
|
||||||
|
if matches!(op, BinaryOp::Concat) {
|
||||||
|
return Ok(format!("{}.concat({})", l, r));
|
||||||
|
}
|
||||||
|
|
||||||
let op_str = match op {
|
let op_str = match op {
|
||||||
BinaryOp::Add => "+",
|
BinaryOp::Add => "+",
|
||||||
BinaryOp::Sub => "-",
|
BinaryOp::Sub => "-",
|
||||||
@@ -974,6 +1123,7 @@ impl JsBackend {
|
|||||||
BinaryOp::Ge => ">=",
|
BinaryOp::Ge => ">=",
|
||||||
BinaryOp::And => "&&",
|
BinaryOp::And => "&&",
|
||||||
BinaryOp::Or => "||",
|
BinaryOp::Or => "||",
|
||||||
|
BinaryOp::Concat => unreachable!("handled above"),
|
||||||
BinaryOp::Pipe => {
|
BinaryOp::Pipe => {
|
||||||
// Pipe operator: x |> f becomes f(x)
|
// Pipe operator: x |> f becomes f(x)
|
||||||
return Ok(format!("{}({})", r, l));
|
return Ok(format!("{}({})", r, l));
|
||||||
@@ -1034,6 +1184,11 @@ impl JsBackend {
|
|||||||
name, value, body, ..
|
name, value, body, ..
|
||||||
} => {
|
} => {
|
||||||
let val = self.emit_expr(value)?;
|
let val = self.emit_expr(value)?;
|
||||||
|
|
||||||
|
if name.name == "_" {
|
||||||
|
// Wildcard binding: just execute for side effects
|
||||||
|
self.writeln(&format!("{};", val));
|
||||||
|
} else {
|
||||||
let var_name = format!("{}_{}", name.name, self.fresh_name());
|
let var_name = format!("{}_{}", name.name, self.fresh_name());
|
||||||
|
|
||||||
self.writeln(&format!("const {} = {};", var_name, val));
|
self.writeln(&format!("const {} = {};", var_name, val));
|
||||||
@@ -1041,11 +1196,14 @@ impl JsBackend {
|
|||||||
// Add substitution
|
// Add substitution
|
||||||
self.var_substitutions
|
self.var_substitutions
|
||||||
.insert(name.name.clone(), var_name.clone());
|
.insert(name.name.clone(), var_name.clone());
|
||||||
|
}
|
||||||
|
|
||||||
let body_result = self.emit_expr(body)?;
|
let body_result = self.emit_expr(body)?;
|
||||||
|
|
||||||
// Remove substitution
|
// Remove substitution
|
||||||
|
if name.name != "_" {
|
||||||
self.var_substitutions.remove(&name.name);
|
self.var_substitutions.remove(&name.name);
|
||||||
|
}
|
||||||
|
|
||||||
Ok(body_result)
|
Ok(body_result)
|
||||||
}
|
}
|
||||||
@@ -1057,6 +1215,31 @@ impl JsBackend {
|
|||||||
if module_name.name == "List" {
|
if module_name.name == "List" {
|
||||||
return self.emit_list_operation(&field.name, args);
|
return self.emit_list_operation(&field.name, args);
|
||||||
}
|
}
|
||||||
|
if module_name.name == "Map" {
|
||||||
|
return self.emit_map_operation(&field.name, args);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Int/Float module operations
|
||||||
|
if let Expr::Field { object, field, .. } = func.as_ref() {
|
||||||
|
if let Expr::Var(module_name) = object.as_ref() {
|
||||||
|
if module_name.name == "Int" {
|
||||||
|
let arg = self.emit_expr(&args[0])?;
|
||||||
|
match field.name.as_str() {
|
||||||
|
"toFloat" => return Ok(arg),
|
||||||
|
"toString" => return Ok(format!("String({})", arg)),
|
||||||
|
_ => {}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if module_name.name == "Float" {
|
||||||
|
let arg = self.emit_expr(&args[0])?;
|
||||||
|
match field.name.as_str() {
|
||||||
|
"toInt" => return Ok(format!("Math.trunc({})", arg)),
|
||||||
|
"toString" => return Ok(format!("String({})", arg)),
|
||||||
|
_ => {}
|
||||||
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -1066,6 +1249,10 @@ impl JsBackend {
|
|||||||
let arg = self.emit_expr(&args[0])?;
|
let arg = self.emit_expr(&args[0])?;
|
||||||
return Ok(format!("String({})", arg));
|
return Ok(format!("String({})", arg));
|
||||||
}
|
}
|
||||||
|
if ident.name == "print" {
|
||||||
|
let arg = self.emit_expr(&args[0])?;
|
||||||
|
return Ok(format!("console.log({})", arg));
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
let arg_strs: Result<Vec<_>, _> = args.iter().map(|a| self.emit_expr(a)).collect();
|
let arg_strs: Result<Vec<_>, _> = args.iter().map(|a| self.emit_expr(a)).collect();
|
||||||
@@ -1142,6 +1329,26 @@ impl JsBackend {
|
|||||||
return self.emit_math_operation(&operation.name, args);
|
return self.emit_math_operation(&operation.name, args);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// Special case: Int module operations
|
||||||
|
if effect.name == "Int" {
|
||||||
|
let arg = self.emit_expr(&args[0])?;
|
||||||
|
match operation.name.as_str() {
|
||||||
|
"toFloat" => return Ok(arg), // JS numbers are already floats
|
||||||
|
"toString" => return Ok(format!("String({})", arg)),
|
||||||
|
_ => {}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Special case: Float module operations
|
||||||
|
if effect.name == "Float" {
|
||||||
|
let arg = self.emit_expr(&args[0])?;
|
||||||
|
match operation.name.as_str() {
|
||||||
|
"toInt" => return Ok(format!("Math.trunc({})", arg)),
|
||||||
|
"toString" => return Ok(format!("String({})", arg)),
|
||||||
|
_ => {}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
// Special case: Result module operations (not an effect)
|
// Special case: Result module operations (not an effect)
|
||||||
if effect.name == "Result" {
|
if effect.name == "Result" {
|
||||||
return self.emit_result_operation(&operation.name, args);
|
return self.emit_result_operation(&operation.name, args);
|
||||||
@@ -1152,6 +1359,11 @@ impl JsBackend {
|
|||||||
return self.emit_json_operation(&operation.name, args);
|
return self.emit_json_operation(&operation.name, args);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// Special case: Map module operations (not an effect)
|
||||||
|
if effect.name == "Map" {
|
||||||
|
return self.emit_map_operation(&operation.name, args);
|
||||||
|
}
|
||||||
|
|
||||||
// Special case: Html module operations (not an effect)
|
// Special case: Html module operations (not an effect)
|
||||||
if effect.name == "Html" {
|
if effect.name == "Html" {
|
||||||
return self.emit_html_operation(&operation.name, args);
|
return self.emit_html_operation(&operation.name, args);
|
||||||
@@ -1197,18 +1409,39 @@ impl JsBackend {
|
|||||||
param_names
|
param_names
|
||||||
};
|
};
|
||||||
|
|
||||||
// Save handler state
|
// Save state
|
||||||
let prev_has_handlers = self.has_handlers;
|
let prev_has_handlers = self.has_handlers;
|
||||||
|
let saved_substitutions = self.var_substitutions.clone();
|
||||||
self.has_handlers = !effects.is_empty();
|
self.has_handlers = !effects.is_empty();
|
||||||
|
|
||||||
|
// Register lambda params as themselves (override any outer substitutions)
|
||||||
|
for p in &all_params {
|
||||||
|
self.var_substitutions.insert(p.clone(), p.clone());
|
||||||
|
}
|
||||||
|
|
||||||
|
// Capture any statements emitted during body evaluation
|
||||||
|
let output_start = self.output.len();
|
||||||
|
let prev_indent = self.indent;
|
||||||
|
self.indent += 1;
|
||||||
|
|
||||||
let body_code = self.emit_expr(body)?;
|
let body_code = self.emit_expr(body)?;
|
||||||
|
self.writeln(&format!("return {};", body_code));
|
||||||
|
|
||||||
|
// Extract body statements and restore output
|
||||||
|
let body_statements = self.output[output_start..].to_string();
|
||||||
|
self.output.truncate(output_start);
|
||||||
|
self.indent = prev_indent;
|
||||||
|
|
||||||
|
// Restore state
|
||||||
self.has_handlers = prev_has_handlers;
|
self.has_handlers = prev_has_handlers;
|
||||||
|
self.var_substitutions = saved_substitutions;
|
||||||
|
|
||||||
|
let indent_str = " ".repeat(self.indent);
|
||||||
Ok(format!(
|
Ok(format!(
|
||||||
"(function({}) {{ return {}; }})",
|
"(function({}) {{\n{}{}}})",
|
||||||
all_params.join(", "),
|
all_params.join(", "),
|
||||||
body_code
|
body_statements,
|
||||||
|
indent_str,
|
||||||
))
|
))
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -1228,27 +1461,36 @@ impl JsBackend {
|
|||||||
}
|
}
|
||||||
Statement::Let { name, value, .. } => {
|
Statement::Let { name, value, .. } => {
|
||||||
let val = self.emit_expr(value)?;
|
let val = self.emit_expr(value)?;
|
||||||
let var_name = format!("{}_{}", name.name, self.fresh_name());
|
if name.name == "_" {
|
||||||
|
self.writeln(&format!("{};", val));
|
||||||
|
} else {
|
||||||
|
let var_name =
|
||||||
|
format!("{}_{}", name.name, self.fresh_name());
|
||||||
self.writeln(&format!("const {} = {};", var_name, val));
|
self.writeln(&format!("const {} = {};", var_name, val));
|
||||||
self.var_substitutions
|
self.var_substitutions
|
||||||
.insert(name.name.clone(), var_name.clone());
|
.insert(name.name.clone(), var_name.clone());
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
// Emit result
|
// Emit result
|
||||||
self.emit_expr(result)
|
self.emit_expr(result)
|
||||||
}
|
}
|
||||||
|
|
||||||
Expr::Record { fields, .. } => {
|
Expr::Record {
|
||||||
let field_strs: Result<Vec<_>, _> = fields
|
spread, fields, ..
|
||||||
.iter()
|
} => {
|
||||||
.map(|(name, expr)| {
|
let mut parts = Vec::new();
|
||||||
|
if let Some(spread_expr) = spread {
|
||||||
|
let spread_code = self.emit_expr(spread_expr)?;
|
||||||
|
parts.push(format!("...{}", spread_code));
|
||||||
|
}
|
||||||
|
for (name, expr) in fields {
|
||||||
let val = self.emit_expr(expr)?;
|
let val = self.emit_expr(expr)?;
|
||||||
Ok(format!("{}: {}", name.name, val))
|
parts.push(format!("{}: {}", name.name, val));
|
||||||
})
|
}
|
||||||
.collect();
|
Ok(format!("{{ {} }}", parts.join(", ")))
|
||||||
Ok(format!("{{ {} }}", field_strs?.join(", ")))
|
|
||||||
}
|
}
|
||||||
|
|
||||||
Expr::Tuple { elements, .. } => {
|
Expr::Tuple { elements, .. } => {
|
||||||
@@ -1570,6 +1812,18 @@ impl JsBackend {
|
|||||||
end, start, start
|
end, start, start
|
||||||
))
|
))
|
||||||
}
|
}
|
||||||
|
"sort" => {
|
||||||
|
let list = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!(
|
||||||
|
"[...{}].sort((a, b) => a < b ? -1 : a > b ? 1 : 0)",
|
||||||
|
list
|
||||||
|
))
|
||||||
|
}
|
||||||
|
"sortBy" => {
|
||||||
|
let list = self.emit_expr(&args[0])?;
|
||||||
|
let func = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!("[...{}].sort({})", list, func))
|
||||||
|
}
|
||||||
_ => Err(JsGenError {
|
_ => Err(JsGenError {
|
||||||
message: format!("Unknown List operation: {}", operation),
|
message: format!("Unknown List operation: {}", operation),
|
||||||
span: None,
|
span: None,
|
||||||
@@ -2067,6 +2321,86 @@ impl JsBackend {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/// Emit Map module operations using JS Map
|
||||||
|
fn emit_map_operation(
|
||||||
|
&mut self,
|
||||||
|
operation: &str,
|
||||||
|
args: &[Expr],
|
||||||
|
) -> Result<String, JsGenError> {
|
||||||
|
match operation {
|
||||||
|
"new" => Ok("new Map()".to_string()),
|
||||||
|
"set" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let key = self.emit_expr(&args[1])?;
|
||||||
|
let val = self.emit_expr(&args[2])?;
|
||||||
|
Ok(format!(
|
||||||
|
"(function() {{ var m = new Map({}); m.set({}, {}); return m; }})()",
|
||||||
|
map, key, val
|
||||||
|
))
|
||||||
|
}
|
||||||
|
"get" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let key = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!(
|
||||||
|
"({0}.has({1}) ? Lux.Some({0}.get({1})) : Lux.None())",
|
||||||
|
map, key
|
||||||
|
))
|
||||||
|
}
|
||||||
|
"contains" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let key = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!("{}.has({})", map, key))
|
||||||
|
}
|
||||||
|
"remove" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
let key = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!(
|
||||||
|
"(function() {{ var m = new Map({}); m.delete({}); return m; }})()",
|
||||||
|
map, key
|
||||||
|
))
|
||||||
|
}
|
||||||
|
"keys" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("Array.from({}.keys()).sort()", map))
|
||||||
|
}
|
||||||
|
"values" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!(
|
||||||
|
"Array.from({0}.entries()).sort(function(a,b) {{ return a[0] < b[0] ? -1 : a[0] > b[0] ? 1 : 0; }}).map(function(e) {{ return e[1]; }})",
|
||||||
|
map
|
||||||
|
))
|
||||||
|
}
|
||||||
|
"size" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("{}.size", map))
|
||||||
|
}
|
||||||
|
"isEmpty" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("({}.size === 0)", map))
|
||||||
|
}
|
||||||
|
"fromList" => {
|
||||||
|
let list = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!("new Map({}.map(function(t) {{ return [t[0], t[1]]; }}))", list))
|
||||||
|
}
|
||||||
|
"toList" => {
|
||||||
|
let map = self.emit_expr(&args[0])?;
|
||||||
|
Ok(format!(
|
||||||
|
"Array.from({}.entries()).sort(function(a,b) {{ return a[0] < b[0] ? -1 : a[0] > b[0] ? 1 : 0; }})",
|
||||||
|
map
|
||||||
|
))
|
||||||
|
}
|
||||||
|
"merge" => {
|
||||||
|
let m1 = self.emit_expr(&args[0])?;
|
||||||
|
let m2 = self.emit_expr(&args[1])?;
|
||||||
|
Ok(format!("new Map([...{}, ...{}])", m1, m2))
|
||||||
|
}
|
||||||
|
_ => Err(JsGenError {
|
||||||
|
message: format!("Unknown Map operation: {}", operation),
|
||||||
|
span: None,
|
||||||
|
}),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
/// Emit Html module operations for type-safe HTML construction
|
/// Emit Html module operations for type-safe HTML construction
|
||||||
fn emit_html_operation(
|
fn emit_html_operation(
|
||||||
&mut self,
|
&mut self,
|
||||||
@@ -2338,7 +2672,7 @@ impl JsBackend {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
Expr::BinaryOp { op, left, right, .. } => {
|
Expr::BinaryOp { op, left, right, .. } => {
|
||||||
matches!(op, BinaryOp::Add)
|
matches!(op, BinaryOp::Add | BinaryOp::Concat)
|
||||||
&& (self.is_string_expr(left) || self.is_string_expr(right))
|
&& (self.is_string_expr(left) || self.is_string_expr(right))
|
||||||
}
|
}
|
||||||
_ => false,
|
_ => false,
|
||||||
@@ -3737,7 +4071,7 @@ line3"
|
|||||||
|
|
||||||
#[test]
|
#[test]
|
||||||
fn test_js_runtime_generated() {
|
fn test_js_runtime_generated() {
|
||||||
// Test that the Lux runtime is properly generated
|
// Test that the Lux runtime core is always generated
|
||||||
use crate::parser::Parser;
|
use crate::parser::Parser;
|
||||||
|
|
||||||
let source = r#"
|
let source = r#"
|
||||||
@@ -3748,21 +4082,51 @@ line3"
|
|||||||
let mut backend = JsBackend::new();
|
let mut backend = JsBackend::new();
|
||||||
let js_code = backend.generate(&program).expect("Should generate");
|
let js_code = backend.generate(&program).expect("Should generate");
|
||||||
|
|
||||||
// Check that Lux runtime includes key functions
|
// Core runtime is always present
|
||||||
assert!(js_code.contains("const Lux = {"), "Lux object should be defined");
|
assert!(js_code.contains("const Lux = {"), "Lux object should be defined");
|
||||||
assert!(js_code.contains("Some:"), "Option Some should be defined");
|
assert!(js_code.contains("Some:"), "Option Some should be defined");
|
||||||
assert!(js_code.contains("None:"), "Option None should be defined");
|
assert!(js_code.contains("None:"), "Option None should be defined");
|
||||||
assert!(js_code.contains("renderHtml:"), "renderHtml should be defined");
|
|
||||||
assert!(js_code.contains("renderToDom:"), "renderToDom should be defined");
|
// Console-only program should NOT include Dom, Html, or TEA sections
|
||||||
assert!(js_code.contains("escapeHtml:"), "escapeHtml should be defined");
|
assert!(!js_code.contains("Dom:"), "Dom handler should not be in Console-only program");
|
||||||
assert!(js_code.contains("app:"), "TEA app should be defined");
|
assert!(!js_code.contains("renderHtml:"), "renderHtml should not be in Console-only program");
|
||||||
assert!(js_code.contains("simpleApp:"), "simpleApp should be defined");
|
assert!(!js_code.contains("app:"), "TEA app should not be in Console-only program");
|
||||||
assert!(js_code.contains("hasChanged:"), "hasChanged should be defined");
|
assert!(!js_code.contains("Http:"), "Http should not be in Console-only program");
|
||||||
|
|
||||||
|
// Console should be present
|
||||||
|
assert!(js_code.contains("Console:"), "Console handler should exist");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_js_runtime_tree_shaking_all_effects() {
|
||||||
|
// Test that all effects are included when all are used
|
||||||
|
use crate::parser::Parser;
|
||||||
|
|
||||||
|
let source = r#"
|
||||||
|
fn main(): Unit with {Console, Dom} = {
|
||||||
|
Console.print("Hello")
|
||||||
|
let _ = Dom.getElementById("app")
|
||||||
|
()
|
||||||
|
}
|
||||||
|
"#;
|
||||||
|
|
||||||
|
let program = Parser::parse_source(source).expect("Should parse");
|
||||||
|
let mut backend = JsBackend::new();
|
||||||
|
let js_code = backend.generate(&program).expect("Should generate");
|
||||||
|
|
||||||
|
assert!(js_code.contains("Console:"), "Console handler should exist");
|
||||||
|
assert!(js_code.contains("Dom:"), "Dom handler should exist");
|
||||||
|
assert!(js_code.contains("renderHtml:"), "renderHtml should be defined when Dom is used");
|
||||||
|
assert!(js_code.contains("renderToDom:"), "renderToDom should be defined when Dom is used");
|
||||||
|
assert!(js_code.contains("escapeHtml:"), "escapeHtml should be defined when Dom is used");
|
||||||
|
assert!(js_code.contains("app:"), "TEA app should be defined when Dom is used");
|
||||||
|
assert!(js_code.contains("simpleApp:"), "simpleApp should be defined when Dom is used");
|
||||||
|
assert!(js_code.contains("hasChanged:"), "hasChanged should be defined when Dom is used");
|
||||||
}
|
}
|
||||||
|
|
||||||
#[test]
|
#[test]
|
||||||
fn test_js_runtime_default_handlers() {
|
fn test_js_runtime_default_handlers() {
|
||||||
// Test that default handlers are properly generated
|
// Test that only used effect handlers are generated
|
||||||
use crate::parser::Parser;
|
use crate::parser::Parser;
|
||||||
|
|
||||||
let source = r#"
|
let source = r#"
|
||||||
@@ -3773,12 +4137,12 @@ line3"
|
|||||||
let mut backend = JsBackend::new();
|
let mut backend = JsBackend::new();
|
||||||
let js_code = backend.generate(&program).expect("Should generate");
|
let js_code = backend.generate(&program).expect("Should generate");
|
||||||
|
|
||||||
// Check that default handlers include all effects
|
// Only Console should be present
|
||||||
assert!(js_code.contains("Console:"), "Console handler should exist");
|
assert!(js_code.contains("Console:"), "Console handler should exist");
|
||||||
assert!(js_code.contains("Random:"), "Random handler should exist");
|
assert!(!js_code.contains("Random:"), "Random handler should not exist in Console-only program");
|
||||||
assert!(js_code.contains("Time:"), "Time handler should exist");
|
assert!(!js_code.contains("Time:"), "Time handler should not exist in Console-only program");
|
||||||
assert!(js_code.contains("Http:"), "Http handler should exist");
|
assert!(!js_code.contains("Http:"), "Http handler should not exist in Console-only program");
|
||||||
assert!(js_code.contains("Dom:"), "Dom handler should exist");
|
assert!(!js_code.contains("Dom:"), "Dom handler should not exist in Console-only program");
|
||||||
}
|
}
|
||||||
|
|
||||||
#[test]
|
#[test]
|
||||||
|
|||||||
@@ -333,11 +333,13 @@ mod tests {
|
|||||||
fn test_option_exhaustive() {
|
fn test_option_exhaustive() {
|
||||||
let patterns = vec![
|
let patterns = vec![
|
||||||
Pattern::Constructor {
|
Pattern::Constructor {
|
||||||
|
module: None,
|
||||||
name: make_ident("None"),
|
name: make_ident("None"),
|
||||||
fields: vec![],
|
fields: vec![],
|
||||||
span: span(),
|
span: span(),
|
||||||
},
|
},
|
||||||
Pattern::Constructor {
|
Pattern::Constructor {
|
||||||
|
module: None,
|
||||||
name: make_ident("Some"),
|
name: make_ident("Some"),
|
||||||
fields: vec![Pattern::Wildcard(span())],
|
fields: vec![Pattern::Wildcard(span())],
|
||||||
span: span(),
|
span: span(),
|
||||||
@@ -352,6 +354,7 @@ mod tests {
|
|||||||
#[test]
|
#[test]
|
||||||
fn test_option_missing_none() {
|
fn test_option_missing_none() {
|
||||||
let patterns = vec![Pattern::Constructor {
|
let patterns = vec![Pattern::Constructor {
|
||||||
|
module: None,
|
||||||
name: make_ident("Some"),
|
name: make_ident("Some"),
|
||||||
fields: vec![Pattern::Wildcard(span())],
|
fields: vec![Pattern::Wildcard(span())],
|
||||||
span: span(),
|
span: span(),
|
||||||
@@ -391,11 +394,13 @@ mod tests {
|
|||||||
fn test_result_exhaustive() {
|
fn test_result_exhaustive() {
|
||||||
let patterns = vec![
|
let patterns = vec![
|
||||||
Pattern::Constructor {
|
Pattern::Constructor {
|
||||||
|
module: None,
|
||||||
name: make_ident("Ok"),
|
name: make_ident("Ok"),
|
||||||
fields: vec![Pattern::Wildcard(span())],
|
fields: vec![Pattern::Wildcard(span())],
|
||||||
span: span(),
|
span: span(),
|
||||||
},
|
},
|
||||||
Pattern::Constructor {
|
Pattern::Constructor {
|
||||||
|
module: None,
|
||||||
name: make_ident("Err"),
|
name: make_ident("Err"),
|
||||||
fields: vec![Pattern::Wildcard(span())],
|
fields: vec![Pattern::Wildcard(span())],
|
||||||
span: span(),
|
span: span(),
|
||||||
|
|||||||
@@ -688,15 +688,17 @@ impl Formatter {
|
|||||||
.join(", ")
|
.join(", ")
|
||||||
)
|
)
|
||||||
}
|
}
|
||||||
Expr::Record { fields, .. } => {
|
Expr::Record {
|
||||||
format!(
|
spread, fields, ..
|
||||||
"{{ {} }}",
|
} => {
|
||||||
fields
|
let mut parts = Vec::new();
|
||||||
.iter()
|
if let Some(spread_expr) = spread {
|
||||||
.map(|(name, val)| format!("{}: {}", name.name, self.format_expr(val)))
|
parts.push(format!("...{}", self.format_expr(spread_expr)));
|
||||||
.collect::<Vec<_>>()
|
}
|
||||||
.join(", ")
|
for (name, val) in fields {
|
||||||
)
|
parts.push(format!("{}: {}", name.name, self.format_expr(val)));
|
||||||
|
}
|
||||||
|
format!("{{ {} }}", parts.join(", "))
|
||||||
}
|
}
|
||||||
Expr::EffectOp { effect, operation, args, .. } => {
|
Expr::EffectOp { effect, operation, args, .. } => {
|
||||||
format!(
|
format!(
|
||||||
@@ -731,7 +733,30 @@ impl Formatter {
|
|||||||
match &lit.kind {
|
match &lit.kind {
|
||||||
LiteralKind::Int(n) => n.to_string(),
|
LiteralKind::Int(n) => n.to_string(),
|
||||||
LiteralKind::Float(f) => format!("{}", f),
|
LiteralKind::Float(f) => format!("{}", f),
|
||||||
LiteralKind::String(s) => format!("\"{}\"", s.replace('\\', "\\\\").replace('"', "\\\"").replace('{', "\\{").replace('}', "\\}")),
|
LiteralKind::String(s) => {
|
||||||
|
if s.contains('\n') {
|
||||||
|
// Use triple-quoted multiline string
|
||||||
|
let tab = " ".repeat(self.config.indent_size);
|
||||||
|
let base_indent = tab.repeat(self.indent_level);
|
||||||
|
let content_indent = tab.repeat(self.indent_level + 1);
|
||||||
|
let lines: Vec<&str> = s.split('\n').collect();
|
||||||
|
let mut result = String::from("\"\"\"\n");
|
||||||
|
for line in &lines {
|
||||||
|
if line.is_empty() {
|
||||||
|
result.push('\n');
|
||||||
|
} else {
|
||||||
|
result.push_str(&content_indent);
|
||||||
|
result.push_str(&line.replace('{', "\\{").replace('}', "\\}"));
|
||||||
|
result.push('\n');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
result.push_str(&base_indent);
|
||||||
|
result.push_str("\"\"\"");
|
||||||
|
result
|
||||||
|
} else {
|
||||||
|
format!("\"{}\"", s.replace('\\', "\\\\").replace('"', "\\\"").replace('{', "\\{").replace('}', "\\}"))
|
||||||
|
}
|
||||||
|
},
|
||||||
LiteralKind::Char(c) => format!("'{}'", c),
|
LiteralKind::Char(c) => format!("'{}'", c),
|
||||||
LiteralKind::Bool(b) => b.to_string(),
|
LiteralKind::Bool(b) => b.to_string(),
|
||||||
LiteralKind::Unit => "()".to_string(),
|
LiteralKind::Unit => "()".to_string(),
|
||||||
@@ -753,6 +778,7 @@ impl Formatter {
|
|||||||
BinaryOp::Ge => ">=",
|
BinaryOp::Ge => ">=",
|
||||||
BinaryOp::And => "&&",
|
BinaryOp::And => "&&",
|
||||||
BinaryOp::Or => "||",
|
BinaryOp::Or => "||",
|
||||||
|
BinaryOp::Concat => "++",
|
||||||
BinaryOp::Pipe => "|>",
|
BinaryOp::Pipe => "|>",
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -769,12 +795,22 @@ impl Formatter {
|
|||||||
Pattern::Wildcard(_) => "_".to_string(),
|
Pattern::Wildcard(_) => "_".to_string(),
|
||||||
Pattern::Var(ident) => ident.name.clone(),
|
Pattern::Var(ident) => ident.name.clone(),
|
||||||
Pattern::Literal(lit) => self.format_literal(lit),
|
Pattern::Literal(lit) => self.format_literal(lit),
|
||||||
Pattern::Constructor { name, fields, .. } => {
|
Pattern::Constructor {
|
||||||
|
module,
|
||||||
|
name,
|
||||||
|
fields,
|
||||||
|
..
|
||||||
|
} => {
|
||||||
|
let prefix = match module {
|
||||||
|
Some(m) => format!("{}.", m.name),
|
||||||
|
None => String::new(),
|
||||||
|
};
|
||||||
if fields.is_empty() {
|
if fields.is_empty() {
|
||||||
name.name.clone()
|
format!("{}{}", prefix, name.name)
|
||||||
} else {
|
} else {
|
||||||
format!(
|
format!(
|
||||||
"{}({})",
|
"{}{}({})",
|
||||||
|
prefix,
|
||||||
name.name,
|
name.name,
|
||||||
fields
|
fields
|
||||||
.iter()
|
.iter()
|
||||||
|
|||||||
@@ -28,6 +28,8 @@ pub enum BuiltinFn {
|
|||||||
ListGet,
|
ListGet,
|
||||||
ListRange,
|
ListRange,
|
||||||
ListForEach,
|
ListForEach,
|
||||||
|
ListSort,
|
||||||
|
ListSortBy,
|
||||||
|
|
||||||
// String operations
|
// String operations
|
||||||
StringSplit,
|
StringSplit,
|
||||||
@@ -74,6 +76,9 @@ pub enum BuiltinFn {
|
|||||||
MathFloor,
|
MathFloor,
|
||||||
MathCeil,
|
MathCeil,
|
||||||
MathRound,
|
MathRound,
|
||||||
|
MathSin,
|
||||||
|
MathCos,
|
||||||
|
MathAtan2,
|
||||||
|
|
||||||
// Additional List operations
|
// Additional List operations
|
||||||
ListIsEmpty,
|
ListIsEmpty,
|
||||||
@@ -97,7 +102,9 @@ pub enum BuiltinFn {
|
|||||||
|
|
||||||
// Int/Float operations
|
// Int/Float operations
|
||||||
IntToString,
|
IntToString,
|
||||||
|
IntToFloat,
|
||||||
FloatToString,
|
FloatToString,
|
||||||
|
FloatToInt,
|
||||||
|
|
||||||
// JSON operations
|
// JSON operations
|
||||||
JsonParse,
|
JsonParse,
|
||||||
@@ -119,6 +126,20 @@ pub enum BuiltinFn {
|
|||||||
JsonString,
|
JsonString,
|
||||||
JsonArray,
|
JsonArray,
|
||||||
JsonObject,
|
JsonObject,
|
||||||
|
|
||||||
|
// Map operations
|
||||||
|
MapNew,
|
||||||
|
MapSet,
|
||||||
|
MapGet,
|
||||||
|
MapContains,
|
||||||
|
MapRemove,
|
||||||
|
MapKeys,
|
||||||
|
MapValues,
|
||||||
|
MapSize,
|
||||||
|
MapIsEmpty,
|
||||||
|
MapFromList,
|
||||||
|
MapToList,
|
||||||
|
MapMerge,
|
||||||
}
|
}
|
||||||
|
|
||||||
/// Runtime value
|
/// Runtime value
|
||||||
@@ -133,6 +154,7 @@ pub enum Value {
|
|||||||
List(Vec<Value>),
|
List(Vec<Value>),
|
||||||
Tuple(Vec<Value>),
|
Tuple(Vec<Value>),
|
||||||
Record(HashMap<String, Value>),
|
Record(HashMap<String, Value>),
|
||||||
|
Map(HashMap<String, Value>),
|
||||||
Function(Rc<Closure>),
|
Function(Rc<Closure>),
|
||||||
Handler(Rc<HandlerValue>),
|
Handler(Rc<HandlerValue>),
|
||||||
/// Built-in function
|
/// Built-in function
|
||||||
@@ -164,6 +186,7 @@ impl Value {
|
|||||||
Value::List(_) => "List",
|
Value::List(_) => "List",
|
||||||
Value::Tuple(_) => "Tuple",
|
Value::Tuple(_) => "Tuple",
|
||||||
Value::Record(_) => "Record",
|
Value::Record(_) => "Record",
|
||||||
|
Value::Map(_) => "Map",
|
||||||
Value::Function(_) => "Function",
|
Value::Function(_) => "Function",
|
||||||
Value::Handler(_) => "Handler",
|
Value::Handler(_) => "Handler",
|
||||||
Value::Builtin(_) => "Function",
|
Value::Builtin(_) => "Function",
|
||||||
@@ -212,6 +235,11 @@ impl Value {
|
|||||||
ys.get(k).map(|yv| Value::values_equal(v, yv)).unwrap_or(false)
|
ys.get(k).map(|yv| Value::values_equal(v, yv)).unwrap_or(false)
|
||||||
})
|
})
|
||||||
}
|
}
|
||||||
|
(Value::Map(xs), Value::Map(ys)) => {
|
||||||
|
xs.len() == ys.len() && xs.iter().all(|(k, v)| {
|
||||||
|
ys.get(k).map(|yv| Value::values_equal(v, yv)).unwrap_or(false)
|
||||||
|
})
|
||||||
|
}
|
||||||
(Value::Constructor { name: n1, fields: f1 }, Value::Constructor { name: n2, fields: f2 }) => {
|
(Value::Constructor { name: n1, fields: f1 }, Value::Constructor { name: n2, fields: f2 }) => {
|
||||||
n1 == n2 && f1.len() == f2.len() && f1.iter().zip(f2.iter()).all(|(x, y)| Value::values_equal(x, y))
|
n1 == n2 && f1.len() == f2.len() && f1.iter().zip(f2.iter()).all(|(x, y)| Value::values_equal(x, y))
|
||||||
}
|
}
|
||||||
@@ -282,6 +310,16 @@ impl TryFromValue for Vec<Value> {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
impl TryFromValue for HashMap<String, Value> {
|
||||||
|
const TYPE_NAME: &'static str = "Map";
|
||||||
|
fn try_from_value(value: &Value) -> Option<Self> {
|
||||||
|
match value {
|
||||||
|
Value::Map(m) => Some(m.clone()),
|
||||||
|
_ => None,
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
impl TryFromValue for Value {
|
impl TryFromValue for Value {
|
||||||
const TYPE_NAME: &'static str = "any";
|
const TYPE_NAME: &'static str = "any";
|
||||||
fn try_from_value(value: &Value) -> Option<Self> {
|
fn try_from_value(value: &Value) -> Option<Self> {
|
||||||
@@ -328,6 +366,18 @@ impl fmt::Display for Value {
|
|||||||
}
|
}
|
||||||
write!(f, " }}")
|
write!(f, " }}")
|
||||||
}
|
}
|
||||||
|
Value::Map(entries) => {
|
||||||
|
write!(f, "Map {{")?;
|
||||||
|
let mut sorted: Vec<_> = entries.iter().collect();
|
||||||
|
sorted.sort_by_key(|(k, _)| (*k).clone());
|
||||||
|
for (i, (key, value)) in sorted.iter().enumerate() {
|
||||||
|
if i > 0 {
|
||||||
|
write!(f, ", ")?;
|
||||||
|
}
|
||||||
|
write!(f, "\"{}\": {}", key, value)?;
|
||||||
|
}
|
||||||
|
write!(f, "}}")
|
||||||
|
}
|
||||||
Value::Function(_) => write!(f, "<function>"),
|
Value::Function(_) => write!(f, "<function>"),
|
||||||
Value::Builtin(b) => write!(f, "<builtin:{:?}>", b),
|
Value::Builtin(b) => write!(f, "<builtin:{:?}>", b),
|
||||||
Value::Handler(_) => write!(f, "<handler>"),
|
Value::Handler(_) => write!(f, "<handler>"),
|
||||||
@@ -932,6 +982,11 @@ impl Interpreter {
|
|||||||
"forEach".to_string(),
|
"forEach".to_string(),
|
||||||
Value::Builtin(BuiltinFn::ListForEach),
|
Value::Builtin(BuiltinFn::ListForEach),
|
||||||
),
|
),
|
||||||
|
("sort".to_string(), Value::Builtin(BuiltinFn::ListSort)),
|
||||||
|
(
|
||||||
|
"sortBy".to_string(),
|
||||||
|
Value::Builtin(BuiltinFn::ListSortBy),
|
||||||
|
),
|
||||||
]));
|
]));
|
||||||
env.define("List", list_module);
|
env.define("List", list_module);
|
||||||
|
|
||||||
@@ -1072,18 +1127,23 @@ impl Interpreter {
|
|||||||
("floor".to_string(), Value::Builtin(BuiltinFn::MathFloor)),
|
("floor".to_string(), Value::Builtin(BuiltinFn::MathFloor)),
|
||||||
("ceil".to_string(), Value::Builtin(BuiltinFn::MathCeil)),
|
("ceil".to_string(), Value::Builtin(BuiltinFn::MathCeil)),
|
||||||
("round".to_string(), Value::Builtin(BuiltinFn::MathRound)),
|
("round".to_string(), Value::Builtin(BuiltinFn::MathRound)),
|
||||||
|
("sin".to_string(), Value::Builtin(BuiltinFn::MathSin)),
|
||||||
|
("cos".to_string(), Value::Builtin(BuiltinFn::MathCos)),
|
||||||
|
("atan2".to_string(), Value::Builtin(BuiltinFn::MathAtan2)),
|
||||||
]));
|
]));
|
||||||
env.define("Math", math_module);
|
env.define("Math", math_module);
|
||||||
|
|
||||||
// Int module
|
// Int module
|
||||||
let int_module = Value::Record(HashMap::from([
|
let int_module = Value::Record(HashMap::from([
|
||||||
("toString".to_string(), Value::Builtin(BuiltinFn::IntToString)),
|
("toString".to_string(), Value::Builtin(BuiltinFn::IntToString)),
|
||||||
|
("toFloat".to_string(), Value::Builtin(BuiltinFn::IntToFloat)),
|
||||||
]));
|
]));
|
||||||
env.define("Int", int_module);
|
env.define("Int", int_module);
|
||||||
|
|
||||||
// Float module
|
// Float module
|
||||||
let float_module = Value::Record(HashMap::from([
|
let float_module = Value::Record(HashMap::from([
|
||||||
("toString".to_string(), Value::Builtin(BuiltinFn::FloatToString)),
|
("toString".to_string(), Value::Builtin(BuiltinFn::FloatToString)),
|
||||||
|
("toInt".to_string(), Value::Builtin(BuiltinFn::FloatToInt)),
|
||||||
]));
|
]));
|
||||||
env.define("Float", float_module);
|
env.define("Float", float_module);
|
||||||
|
|
||||||
@@ -1110,16 +1170,72 @@ impl Interpreter {
|
|||||||
("object".to_string(), Value::Builtin(BuiltinFn::JsonObject)),
|
("object".to_string(), Value::Builtin(BuiltinFn::JsonObject)),
|
||||||
]));
|
]));
|
||||||
env.define("Json", json_module);
|
env.define("Json", json_module);
|
||||||
|
|
||||||
|
// Map module
|
||||||
|
let map_module = Value::Record(HashMap::from([
|
||||||
|
("new".to_string(), Value::Builtin(BuiltinFn::MapNew)),
|
||||||
|
("set".to_string(), Value::Builtin(BuiltinFn::MapSet)),
|
||||||
|
("get".to_string(), Value::Builtin(BuiltinFn::MapGet)),
|
||||||
|
("contains".to_string(), Value::Builtin(BuiltinFn::MapContains)),
|
||||||
|
("remove".to_string(), Value::Builtin(BuiltinFn::MapRemove)),
|
||||||
|
("keys".to_string(), Value::Builtin(BuiltinFn::MapKeys)),
|
||||||
|
("values".to_string(), Value::Builtin(BuiltinFn::MapValues)),
|
||||||
|
("size".to_string(), Value::Builtin(BuiltinFn::MapSize)),
|
||||||
|
("isEmpty".to_string(), Value::Builtin(BuiltinFn::MapIsEmpty)),
|
||||||
|
("fromList".to_string(), Value::Builtin(BuiltinFn::MapFromList)),
|
||||||
|
("toList".to_string(), Value::Builtin(BuiltinFn::MapToList)),
|
||||||
|
("merge".to_string(), Value::Builtin(BuiltinFn::MapMerge)),
|
||||||
|
]));
|
||||||
|
env.define("Map", map_module);
|
||||||
}
|
}
|
||||||
|
|
||||||
/// Execute a program
|
/// Execute a program
|
||||||
pub fn run(&mut self, program: &Program) -> Result<Value, RuntimeError> {
|
pub fn run(&mut self, program: &Program) -> Result<Value, RuntimeError> {
|
||||||
let mut last_value = Value::Unit;
|
let mut last_value = Value::Unit;
|
||||||
|
let mut has_main_let = false;
|
||||||
|
|
||||||
for decl in &program.declarations {
|
for decl in &program.declarations {
|
||||||
|
// Track if there's a top-level `let main = ...`
|
||||||
|
if let Declaration::Let(let_decl) = decl {
|
||||||
|
if let_decl.name.name == "main" {
|
||||||
|
has_main_let = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
last_value = self.eval_declaration(decl)?;
|
last_value = self.eval_declaration(decl)?;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// Auto-invoke main if it was defined as a let binding with a function value
|
||||||
|
if has_main_let {
|
||||||
|
if let Some(main_val) = self.global_env.get("main") {
|
||||||
|
if let Value::Function(ref closure) = main_val {
|
||||||
|
if closure.params.is_empty() {
|
||||||
|
let span = Span { start: 0, end: 0 };
|
||||||
|
let mut result = self.eval_call(main_val.clone(), vec![], span)?;
|
||||||
|
// Trampoline loop
|
||||||
|
loop {
|
||||||
|
match result {
|
||||||
|
EvalResult::Value(v) => {
|
||||||
|
last_value = v;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
EvalResult::Effect(req) => {
|
||||||
|
last_value = self.handle_effect(req)?;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
EvalResult::TailCall { func, args, span } => {
|
||||||
|
result = self.eval_call(func, args, span)?;
|
||||||
|
}
|
||||||
|
EvalResult::Resume(v) => {
|
||||||
|
last_value = v;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
Ok(last_value)
|
Ok(last_value)
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -1525,8 +1641,28 @@ impl Interpreter {
|
|||||||
self.eval_expr_tail(result, &block_env, tail)
|
self.eval_expr_tail(result, &block_env, tail)
|
||||||
}
|
}
|
||||||
|
|
||||||
Expr::Record { fields, .. } => {
|
Expr::Record {
|
||||||
|
spread, fields, ..
|
||||||
|
} => {
|
||||||
let mut record = HashMap::new();
|
let mut record = HashMap::new();
|
||||||
|
|
||||||
|
// If there's a spread, evaluate it and start with its fields
|
||||||
|
if let Some(spread_expr) = spread {
|
||||||
|
let spread_val = self.eval_expr(spread_expr, env)?;
|
||||||
|
if let Value::Record(spread_fields) = spread_val {
|
||||||
|
record = spread_fields;
|
||||||
|
} else {
|
||||||
|
return Err(RuntimeError {
|
||||||
|
message: format!(
|
||||||
|
"Spread expression must evaluate to a record, got {}",
|
||||||
|
spread_val.type_name()
|
||||||
|
),
|
||||||
|
span: Some(expr.span()),
|
||||||
|
});
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Override with explicit fields
|
||||||
for (name, expr) in fields {
|
for (name, expr) in fields {
|
||||||
let val = self.eval_expr(expr, env)?;
|
let val = self.eval_expr(expr, env)?;
|
||||||
record.insert(name.name.clone(), val);
|
record.insert(name.name.clone(), val);
|
||||||
@@ -1599,6 +1735,18 @@ impl Interpreter {
|
|||||||
span: Some(span),
|
span: Some(span),
|
||||||
}),
|
}),
|
||||||
},
|
},
|
||||||
|
BinaryOp::Concat => match (left, right) {
|
||||||
|
(Value::String(a), Value::String(b)) => Ok(Value::String(a + &b)),
|
||||||
|
(Value::List(a), Value::List(b)) => {
|
||||||
|
let mut result = a;
|
||||||
|
result.extend(b);
|
||||||
|
Ok(Value::List(result))
|
||||||
|
}
|
||||||
|
(l, r) => Err(RuntimeError {
|
||||||
|
message: format!("Cannot concatenate {} and {}", l.type_name(), r.type_name()),
|
||||||
|
span: Some(span),
|
||||||
|
}),
|
||||||
|
},
|
||||||
BinaryOp::Sub => match (left, right) {
|
BinaryOp::Sub => match (left, right) {
|
||||||
(Value::Int(a), Value::Int(b)) => Ok(Value::Int(a - b)),
|
(Value::Int(a), Value::Int(b)) => Ok(Value::Int(a - b)),
|
||||||
(Value::Float(a), Value::Float(b)) => Ok(Value::Float(a - b)),
|
(Value::Float(a), Value::Float(b)) => Ok(Value::Float(a - b)),
|
||||||
@@ -2287,6 +2435,26 @@ impl Interpreter {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
BuiltinFn::IntToFloat => {
|
||||||
|
if args.len() != 1 {
|
||||||
|
return Err(err("Int.toFloat requires 1 argument"));
|
||||||
|
}
|
||||||
|
match &args[0] {
|
||||||
|
Value::Int(n) => Ok(EvalResult::Value(Value::Float(*n as f64))),
|
||||||
|
v => Err(err(&format!("Int.toFloat expects Int, got {}", v.type_name()))),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::FloatToInt => {
|
||||||
|
if args.len() != 1 {
|
||||||
|
return Err(err("Float.toInt requires 1 argument"));
|
||||||
|
}
|
||||||
|
match &args[0] {
|
||||||
|
Value::Float(f) => Ok(EvalResult::Value(Value::Int(*f as i64))),
|
||||||
|
v => Err(err(&format!("Float.toInt expects Float, got {}", v.type_name()))),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
BuiltinFn::TypeOf => {
|
BuiltinFn::TypeOf => {
|
||||||
if args.len() != 1 {
|
if args.len() != 1 {
|
||||||
return Err(err("typeOf requires 1 argument"));
|
return Err(err("typeOf requires 1 argument"));
|
||||||
@@ -2463,6 +2631,45 @@ impl Interpreter {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MathSin => {
|
||||||
|
if args.len() != 1 {
|
||||||
|
return Err(err("Math.sin requires 1 argument"));
|
||||||
|
}
|
||||||
|
match &args[0] {
|
||||||
|
Value::Float(n) => Ok(EvalResult::Value(Value::Float(n.sin()))),
|
||||||
|
Value::Int(n) => Ok(EvalResult::Value(Value::Float((*n as f64).sin()))),
|
||||||
|
v => Err(err(&format!("Math.sin expects number, got {}", v.type_name()))),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MathCos => {
|
||||||
|
if args.len() != 1 {
|
||||||
|
return Err(err("Math.cos requires 1 argument"));
|
||||||
|
}
|
||||||
|
match &args[0] {
|
||||||
|
Value::Float(n) => Ok(EvalResult::Value(Value::Float(n.cos()))),
|
||||||
|
Value::Int(n) => Ok(EvalResult::Value(Value::Float((*n as f64).cos()))),
|
||||||
|
v => Err(err(&format!("Math.cos expects number, got {}", v.type_name()))),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MathAtan2 => {
|
||||||
|
if args.len() != 2 {
|
||||||
|
return Err(err("Math.atan2 requires 2 arguments: y, x"));
|
||||||
|
}
|
||||||
|
let y = match &args[0] {
|
||||||
|
Value::Float(n) => *n,
|
||||||
|
Value::Int(n) => *n as f64,
|
||||||
|
v => return Err(err(&format!("Math.atan2 expects number, got {}", v.type_name()))),
|
||||||
|
};
|
||||||
|
let x = match &args[1] {
|
||||||
|
Value::Float(n) => *n,
|
||||||
|
Value::Int(n) => *n as f64,
|
||||||
|
v => return Err(err(&format!("Math.atan2 expects number, got {}", v.type_name()))),
|
||||||
|
};
|
||||||
|
Ok(EvalResult::Value(Value::Float(y.atan2(x))))
|
||||||
|
}
|
||||||
|
|
||||||
// Additional List operations
|
// Additional List operations
|
||||||
BuiltinFn::ListIsEmpty => {
|
BuiltinFn::ListIsEmpty => {
|
||||||
let list = Self::expect_arg_1::<Vec<Value>>(&args, "List.isEmpty", span)?;
|
let list = Self::expect_arg_1::<Vec<Value>>(&args, "List.isEmpty", span)?;
|
||||||
@@ -2542,6 +2749,67 @@ impl Interpreter {
|
|||||||
Ok(EvalResult::Value(Value::Unit))
|
Ok(EvalResult::Value(Value::Unit))
|
||||||
}
|
}
|
||||||
|
|
||||||
|
BuiltinFn::ListSort => {
|
||||||
|
// List.sort(list) - sort using natural ordering (Int, Float, String, Bool)
|
||||||
|
let mut list =
|
||||||
|
Self::expect_arg_1::<Vec<Value>>(&args, "List.sort", span)?;
|
||||||
|
list.sort_by(|a, b| Self::compare_values(a, b));
|
||||||
|
Ok(EvalResult::Value(Value::List(list)))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::ListSortBy => {
|
||||||
|
// List.sortBy(list, fn(a, b) => Int) - sort with custom comparator
|
||||||
|
// Comparator returns negative (a < b), 0 (a == b), or positive (a > b)
|
||||||
|
let (list, func) =
|
||||||
|
Self::expect_args_2::<Vec<Value>, Value>(&args, "List.sortBy", span)?;
|
||||||
|
let mut indexed: Vec<(usize, Value)> =
|
||||||
|
list.into_iter().enumerate().collect();
|
||||||
|
let mut err: Option<RuntimeError> = None;
|
||||||
|
let func_ref = &func;
|
||||||
|
let self_ptr = self as *mut Self;
|
||||||
|
indexed.sort_by(|a, b| {
|
||||||
|
if err.is_some() {
|
||||||
|
return std::cmp::Ordering::Equal;
|
||||||
|
}
|
||||||
|
// Safety: we're in a single-threaded context and the closure
|
||||||
|
// needs mutable access to call eval_call_to_value
|
||||||
|
let interp = unsafe { &mut *self_ptr };
|
||||||
|
match interp.eval_call_to_value(
|
||||||
|
func_ref.clone(),
|
||||||
|
vec![a.1.clone(), b.1.clone()],
|
||||||
|
span,
|
||||||
|
) {
|
||||||
|
Ok(Value::Int(n)) => {
|
||||||
|
if n < 0 {
|
||||||
|
std::cmp::Ordering::Less
|
||||||
|
} else if n > 0 {
|
||||||
|
std::cmp::Ordering::Greater
|
||||||
|
} else {
|
||||||
|
std::cmp::Ordering::Equal
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Ok(_) => {
|
||||||
|
err = Some(RuntimeError {
|
||||||
|
message: "List.sortBy comparator must return Int"
|
||||||
|
.to_string(),
|
||||||
|
span: Some(span),
|
||||||
|
});
|
||||||
|
std::cmp::Ordering::Equal
|
||||||
|
}
|
||||||
|
Err(e) => {
|
||||||
|
err = Some(e);
|
||||||
|
std::cmp::Ordering::Equal
|
||||||
|
}
|
||||||
|
}
|
||||||
|
});
|
||||||
|
if let Some(e) = err {
|
||||||
|
return Err(e);
|
||||||
|
}
|
||||||
|
let result: Vec<Value> =
|
||||||
|
indexed.into_iter().map(|(_, v)| v).collect();
|
||||||
|
Ok(EvalResult::Value(Value::List(result)))
|
||||||
|
}
|
||||||
|
|
||||||
// Additional String operations
|
// Additional String operations
|
||||||
BuiltinFn::StringStartsWith => {
|
BuiltinFn::StringStartsWith => {
|
||||||
let (s, prefix) = Self::expect_args_2::<String, String>(&args, "String.startsWith", span)?;
|
let (s, prefix) = Self::expect_args_2::<String, String>(&args, "String.startsWith", span)?;
|
||||||
@@ -2952,6 +3220,128 @@ impl Interpreter {
|
|||||||
}
|
}
|
||||||
Ok(EvalResult::Value(Value::Json(serde_json::Value::Object(map))))
|
Ok(EvalResult::Value(Value::Json(serde_json::Value::Object(map))))
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// Map operations
|
||||||
|
BuiltinFn::MapNew => {
|
||||||
|
Ok(EvalResult::Value(Value::Map(HashMap::new())))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapSet => {
|
||||||
|
if args.len() != 3 {
|
||||||
|
return Err(err("Map.set requires 3 arguments: map, key, value"));
|
||||||
|
}
|
||||||
|
let mut map = match &args[0] {
|
||||||
|
Value::Map(m) => m.clone(),
|
||||||
|
v => return Err(err(&format!("Map.set expects Map as first argument, got {}", v.type_name()))),
|
||||||
|
};
|
||||||
|
let key = match &args[1] {
|
||||||
|
Value::String(s) => s.clone(),
|
||||||
|
v => return Err(err(&format!("Map.set expects String key, got {}", v.type_name()))),
|
||||||
|
};
|
||||||
|
map.insert(key, args[2].clone());
|
||||||
|
Ok(EvalResult::Value(Value::Map(map)))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapGet => {
|
||||||
|
let (map, key) = Self::expect_args_2::<HashMap<String, Value>, String>(&args, "Map.get", span)?;
|
||||||
|
match map.get(&key) {
|
||||||
|
Some(v) => Ok(EvalResult::Value(Value::Constructor {
|
||||||
|
name: "Some".to_string(),
|
||||||
|
fields: vec![v.clone()],
|
||||||
|
})),
|
||||||
|
None => Ok(EvalResult::Value(Value::Constructor {
|
||||||
|
name: "None".to_string(),
|
||||||
|
fields: vec![],
|
||||||
|
})),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapContains => {
|
||||||
|
let (map, key) = Self::expect_args_2::<HashMap<String, Value>, String>(&args, "Map.contains", span)?;
|
||||||
|
Ok(EvalResult::Value(Value::Bool(map.contains_key(&key))))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapRemove => {
|
||||||
|
let (mut map, key) = Self::expect_args_2::<HashMap<String, Value>, String>(&args, "Map.remove", span)?;
|
||||||
|
map.remove(&key);
|
||||||
|
Ok(EvalResult::Value(Value::Map(map)))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapKeys => {
|
||||||
|
let map = Self::expect_arg_1::<HashMap<String, Value>>(&args, "Map.keys", span)?;
|
||||||
|
let mut keys: Vec<String> = map.keys().cloned().collect();
|
||||||
|
keys.sort();
|
||||||
|
Ok(EvalResult::Value(Value::List(
|
||||||
|
keys.into_iter().map(Value::String).collect(),
|
||||||
|
)))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapValues => {
|
||||||
|
let map = Self::expect_arg_1::<HashMap<String, Value>>(&args, "Map.values", span)?;
|
||||||
|
let mut entries: Vec<(String, Value)> = map.into_iter().collect();
|
||||||
|
entries.sort_by(|(a, _), (b, _)| a.cmp(b));
|
||||||
|
Ok(EvalResult::Value(Value::List(
|
||||||
|
entries.into_iter().map(|(_, v)| v).collect(),
|
||||||
|
)))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapSize => {
|
||||||
|
let map = Self::expect_arg_1::<HashMap<String, Value>>(&args, "Map.size", span)?;
|
||||||
|
Ok(EvalResult::Value(Value::Int(map.len() as i64)))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapIsEmpty => {
|
||||||
|
let map = Self::expect_arg_1::<HashMap<String, Value>>(&args, "Map.isEmpty", span)?;
|
||||||
|
Ok(EvalResult::Value(Value::Bool(map.is_empty())))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapFromList => {
|
||||||
|
let list = Self::expect_arg_1::<Vec<Value>>(&args, "Map.fromList", span)?;
|
||||||
|
let mut map = HashMap::new();
|
||||||
|
for item in list {
|
||||||
|
match item {
|
||||||
|
Value::Tuple(fields) if fields.len() == 2 => {
|
||||||
|
let key = match &fields[0] {
|
||||||
|
Value::String(s) => s.clone(),
|
||||||
|
v => return Err(err(&format!("Map.fromList expects (String, V) tuples, got {} key", v.type_name()))),
|
||||||
|
};
|
||||||
|
map.insert(key, fields[1].clone());
|
||||||
|
}
|
||||||
|
_ => return Err(err("Map.fromList expects List<(String, V)>")),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Ok(EvalResult::Value(Value::Map(map)))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapToList => {
|
||||||
|
let map = Self::expect_arg_1::<HashMap<String, Value>>(&args, "Map.toList", span)?;
|
||||||
|
let mut entries: Vec<(String, Value)> = map.into_iter().collect();
|
||||||
|
entries.sort_by(|(a, _), (b, _)| a.cmp(b));
|
||||||
|
Ok(EvalResult::Value(Value::List(
|
||||||
|
entries
|
||||||
|
.into_iter()
|
||||||
|
.map(|(k, v)| Value::Tuple(vec![Value::String(k), v]))
|
||||||
|
.collect(),
|
||||||
|
)))
|
||||||
|
}
|
||||||
|
|
||||||
|
BuiltinFn::MapMerge => {
|
||||||
|
if args.len() != 2 {
|
||||||
|
return Err(err("Map.merge requires 2 arguments: map1, map2"));
|
||||||
|
}
|
||||||
|
let mut map1 = match &args[0] {
|
||||||
|
Value::Map(m) => m.clone(),
|
||||||
|
v => return Err(err(&format!("Map.merge expects Map as first argument, got {}", v.type_name()))),
|
||||||
|
};
|
||||||
|
let map2 = match &args[1] {
|
||||||
|
Value::Map(m) => m.clone(),
|
||||||
|
v => return Err(err(&format!("Map.merge expects Map as second argument, got {}", v.type_name()))),
|
||||||
|
};
|
||||||
|
for (k, v) in map2 {
|
||||||
|
map1.insert(k, v);
|
||||||
|
}
|
||||||
|
Ok(EvalResult::Value(Value::Map(map1)))
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -3035,6 +3425,18 @@ impl Interpreter {
|
|||||||
})
|
})
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/// Compare two values for natural ordering (used by List.sort)
|
||||||
|
fn compare_values(a: &Value, b: &Value) -> std::cmp::Ordering {
|
||||||
|
match (a, b) {
|
||||||
|
(Value::Int(x), Value::Int(y)) => x.cmp(y),
|
||||||
|
(Value::Float(x), Value::Float(y)) => x.partial_cmp(y).unwrap_or(std::cmp::Ordering::Equal),
|
||||||
|
(Value::String(x), Value::String(y)) => x.cmp(y),
|
||||||
|
(Value::Bool(x), Value::Bool(y)) => x.cmp(y),
|
||||||
|
(Value::Char(x), Value::Char(y)) => x.cmp(y),
|
||||||
|
_ => std::cmp::Ordering::Equal,
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
fn match_pattern(&self, pattern: &Pattern, value: &Value) -> Option<Vec<(String, Value)>> {
|
fn match_pattern(&self, pattern: &Pattern, value: &Value) -> Option<Vec<(String, Value)>> {
|
||||||
match pattern {
|
match pattern {
|
||||||
Pattern::Wildcard(_) => Some(Vec::new()),
|
Pattern::Wildcard(_) => Some(Vec::new()),
|
||||||
@@ -3117,6 +3519,11 @@ impl Interpreter {
|
|||||||
b.get(k).map(|bv| self.values_equal(v, bv)).unwrap_or(false)
|
b.get(k).map(|bv| self.values_equal(v, bv)).unwrap_or(false)
|
||||||
})
|
})
|
||||||
}
|
}
|
||||||
|
(Value::Map(a), Value::Map(b)) => {
|
||||||
|
a.len() == b.len() && a.iter().all(|(k, v)| {
|
||||||
|
b.get(k).map(|bv| self.values_equal(v, bv)).unwrap_or(false)
|
||||||
|
})
|
||||||
|
}
|
||||||
(
|
(
|
||||||
Value::Constructor {
|
Value::Constructor {
|
||||||
name: n1,
|
name: n1,
|
||||||
@@ -3537,6 +3944,53 @@ impl Interpreter {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
("File", "copy") => {
|
||||||
|
let source = match request.args.first() {
|
||||||
|
Some(Value::String(s)) => s.clone(),
|
||||||
|
_ => return Err(RuntimeError {
|
||||||
|
message: "File.copy requires a string source path".to_string(),
|
||||||
|
span: None,
|
||||||
|
}),
|
||||||
|
};
|
||||||
|
let dest = match request.args.get(1) {
|
||||||
|
Some(Value::String(s)) => s.clone(),
|
||||||
|
_ => return Err(RuntimeError {
|
||||||
|
message: "File.copy requires a string destination path".to_string(),
|
||||||
|
span: None,
|
||||||
|
}),
|
||||||
|
};
|
||||||
|
match std::fs::copy(&source, &dest) {
|
||||||
|
Ok(_) => Ok(Value::Unit),
|
||||||
|
Err(e) => Err(RuntimeError {
|
||||||
|
message: format!("Failed to copy '{}' to '{}': {}", source, dest, e),
|
||||||
|
span: None,
|
||||||
|
}),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
("File", "glob") => {
|
||||||
|
let pattern = match request.args.first() {
|
||||||
|
Some(Value::String(s)) => s.clone(),
|
||||||
|
_ => return Err(RuntimeError {
|
||||||
|
message: "File.glob requires a string pattern".to_string(),
|
||||||
|
span: None,
|
||||||
|
}),
|
||||||
|
};
|
||||||
|
match glob::glob(&pattern) {
|
||||||
|
Ok(paths) => {
|
||||||
|
let entries: Vec<Value> = paths
|
||||||
|
.filter_map(|entry| entry.ok())
|
||||||
|
.map(|path| Value::String(path.to_string_lossy().to_string()))
|
||||||
|
.collect();
|
||||||
|
Ok(Value::List(entries))
|
||||||
|
}
|
||||||
|
Err(e) => Err(RuntimeError {
|
||||||
|
message: format!("Invalid glob pattern '{}': {}", pattern, e),
|
||||||
|
span: None,
|
||||||
|
}),
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
// ===== Process Effect =====
|
// ===== Process Effect =====
|
||||||
("Process", "exec") => {
|
("Process", "exec") => {
|
||||||
use std::process::Command;
|
use std::process::Command;
|
||||||
@@ -5044,6 +5498,7 @@ mod tests {
|
|||||||
// Create a simple migration that adds a field
|
// Create a simple migration that adds a field
|
||||||
// Migration: old.name -> { name: old.name, email: "unknown" }
|
// Migration: old.name -> { name: old.name, email: "unknown" }
|
||||||
let migration_body = Expr::Record {
|
let migration_body = Expr::Record {
|
||||||
|
spread: None,
|
||||||
fields: vec![
|
fields: vec![
|
||||||
(
|
(
|
||||||
Ident::new("name", Span::default()),
|
Ident::new("name", Span::default()),
|
||||||
|
|||||||
261
src/lexer.rs
261
src/lexer.rs
@@ -42,6 +42,7 @@ pub enum TokenKind {
|
|||||||
Effect,
|
Effect,
|
||||||
Handler,
|
Handler,
|
||||||
Run,
|
Run,
|
||||||
|
Handle,
|
||||||
Resume,
|
Resume,
|
||||||
Type,
|
Type,
|
||||||
True,
|
True,
|
||||||
@@ -70,6 +71,7 @@ pub enum TokenKind {
|
|||||||
|
|
||||||
// Operators
|
// Operators
|
||||||
Plus, // +
|
Plus, // +
|
||||||
|
PlusPlus, // ++
|
||||||
Minus, // -
|
Minus, // -
|
||||||
Star, // *
|
Star, // *
|
||||||
Slash, // /
|
Slash, // /
|
||||||
@@ -89,6 +91,7 @@ pub enum TokenKind {
|
|||||||
Arrow, // =>
|
Arrow, // =>
|
||||||
ThinArrow, // ->
|
ThinArrow, // ->
|
||||||
Dot, // .
|
Dot, // .
|
||||||
|
DotDotDot, // ...
|
||||||
Colon, // :
|
Colon, // :
|
||||||
ColonColon, // ::
|
ColonColon, // ::
|
||||||
Comma, // ,
|
Comma, // ,
|
||||||
@@ -138,6 +141,7 @@ impl fmt::Display for TokenKind {
|
|||||||
TokenKind::Effect => write!(f, "effect"),
|
TokenKind::Effect => write!(f, "effect"),
|
||||||
TokenKind::Handler => write!(f, "handler"),
|
TokenKind::Handler => write!(f, "handler"),
|
||||||
TokenKind::Run => write!(f, "run"),
|
TokenKind::Run => write!(f, "run"),
|
||||||
|
TokenKind::Handle => write!(f, "handle"),
|
||||||
TokenKind::Resume => write!(f, "resume"),
|
TokenKind::Resume => write!(f, "resume"),
|
||||||
TokenKind::Type => write!(f, "type"),
|
TokenKind::Type => write!(f, "type"),
|
||||||
TokenKind::Import => write!(f, "import"),
|
TokenKind::Import => write!(f, "import"),
|
||||||
@@ -160,6 +164,7 @@ impl fmt::Display for TokenKind {
|
|||||||
TokenKind::True => write!(f, "true"),
|
TokenKind::True => write!(f, "true"),
|
||||||
TokenKind::False => write!(f, "false"),
|
TokenKind::False => write!(f, "false"),
|
||||||
TokenKind::Plus => write!(f, "+"),
|
TokenKind::Plus => write!(f, "+"),
|
||||||
|
TokenKind::PlusPlus => write!(f, "++"),
|
||||||
TokenKind::Minus => write!(f, "-"),
|
TokenKind::Minus => write!(f, "-"),
|
||||||
TokenKind::Star => write!(f, "*"),
|
TokenKind::Star => write!(f, "*"),
|
||||||
TokenKind::Slash => write!(f, "/"),
|
TokenKind::Slash => write!(f, "/"),
|
||||||
@@ -179,6 +184,7 @@ impl fmt::Display for TokenKind {
|
|||||||
TokenKind::Arrow => write!(f, "=>"),
|
TokenKind::Arrow => write!(f, "=>"),
|
||||||
TokenKind::ThinArrow => write!(f, "->"),
|
TokenKind::ThinArrow => write!(f, "->"),
|
||||||
TokenKind::Dot => write!(f, "."),
|
TokenKind::Dot => write!(f, "."),
|
||||||
|
TokenKind::DotDotDot => write!(f, "..."),
|
||||||
TokenKind::Colon => write!(f, ":"),
|
TokenKind::Colon => write!(f, ":"),
|
||||||
TokenKind::ColonColon => write!(f, "::"),
|
TokenKind::ColonColon => write!(f, "::"),
|
||||||
TokenKind::Comma => write!(f, ","),
|
TokenKind::Comma => write!(f, ","),
|
||||||
@@ -268,7 +274,14 @@ impl<'a> Lexer<'a> {
|
|||||||
|
|
||||||
let kind = match c {
|
let kind = match c {
|
||||||
// Single-character tokens
|
// Single-character tokens
|
||||||
'+' => TokenKind::Plus,
|
'+' => {
|
||||||
|
if self.peek() == Some('+') {
|
||||||
|
self.advance();
|
||||||
|
TokenKind::PlusPlus
|
||||||
|
} else {
|
||||||
|
TokenKind::Plus
|
||||||
|
}
|
||||||
|
}
|
||||||
'*' => TokenKind::Star,
|
'*' => TokenKind::Star,
|
||||||
'%' => TokenKind::Percent,
|
'%' => TokenKind::Percent,
|
||||||
'(' => TokenKind::LParen,
|
'(' => TokenKind::LParen,
|
||||||
@@ -364,7 +377,22 @@ impl<'a> Lexer<'a> {
|
|||||||
TokenKind::Pipe
|
TokenKind::Pipe
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
'.' => TokenKind::Dot,
|
'.' => {
|
||||||
|
if self.peek() == Some('.') {
|
||||||
|
// Check for ... (need to peek past second dot)
|
||||||
|
// We look at source directly since we can only peek one ahead
|
||||||
|
let next_next = self.source[self.pos..].chars().nth(1);
|
||||||
|
if next_next == Some('.') {
|
||||||
|
self.advance(); // consume second '.'
|
||||||
|
self.advance(); // consume third '.'
|
||||||
|
TokenKind::DotDotDot
|
||||||
|
} else {
|
||||||
|
TokenKind::Dot
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
TokenKind::Dot
|
||||||
|
}
|
||||||
|
}
|
||||||
':' => {
|
':' => {
|
||||||
if self.peek() == Some(':') {
|
if self.peek() == Some(':') {
|
||||||
self.advance();
|
self.advance();
|
||||||
@@ -383,7 +411,26 @@ impl<'a> Lexer<'a> {
|
|||||||
}
|
}
|
||||||
|
|
||||||
// String literals
|
// String literals
|
||||||
'"' => self.scan_string(start)?,
|
'"' => {
|
||||||
|
// Check for triple-quote multiline string """
|
||||||
|
if self.peek() == Some('"') {
|
||||||
|
// Clone to peek at the second char
|
||||||
|
let mut lookahead = self.chars.clone();
|
||||||
|
lookahead.next(); // consume first peeked "
|
||||||
|
if lookahead.peek() == Some(&'"') {
|
||||||
|
// It's a triple-quote: consume both remaining quotes
|
||||||
|
self.advance(); // second "
|
||||||
|
self.advance(); // third "
|
||||||
|
self.scan_multiline_string(start)?
|
||||||
|
} else {
|
||||||
|
// It's an empty string ""
|
||||||
|
self.advance(); // consume closing "
|
||||||
|
TokenKind::String(String::new())
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
self.scan_string(start)?
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
// Char literals
|
// Char literals
|
||||||
'\'' => self.scan_char(start)?,
|
'\'' => self.scan_char(start)?,
|
||||||
@@ -641,6 +688,211 @@ impl<'a> Lexer<'a> {
|
|||||||
Ok(TokenKind::InterpolatedString(parts))
|
Ok(TokenKind::InterpolatedString(parts))
|
||||||
}
|
}
|
||||||
|
|
||||||
|
fn scan_multiline_string(&mut self, _start: usize) -> Result<TokenKind, LexError> {
|
||||||
|
let mut parts: Vec<StringPart> = Vec::new();
|
||||||
|
let mut current_literal = String::new();
|
||||||
|
|
||||||
|
// Skip the first newline after opening """ if present
|
||||||
|
if self.peek() == Some('\n') {
|
||||||
|
self.advance();
|
||||||
|
} else if self.peek() == Some('\r') {
|
||||||
|
self.advance();
|
||||||
|
if self.peek() == Some('\n') {
|
||||||
|
self.advance();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
loop {
|
||||||
|
match self.advance() {
|
||||||
|
Some('"') => {
|
||||||
|
// Check for closing """
|
||||||
|
if self.peek() == Some('"') {
|
||||||
|
let mut lookahead = self.chars.clone();
|
||||||
|
lookahead.next(); // consume first peeked "
|
||||||
|
if lookahead.peek() == Some(&'"') {
|
||||||
|
// Closing """ found
|
||||||
|
self.advance(); // second "
|
||||||
|
self.advance(); // third "
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// Not closing triple-quote, just a regular " in the string
|
||||||
|
current_literal.push('"');
|
||||||
|
}
|
||||||
|
Some('\\') => {
|
||||||
|
// Handle escape sequences (same as regular strings)
|
||||||
|
match self.peek() {
|
||||||
|
Some('{') => {
|
||||||
|
self.advance();
|
||||||
|
current_literal.push('{');
|
||||||
|
}
|
||||||
|
Some('}') => {
|
||||||
|
self.advance();
|
||||||
|
current_literal.push('}');
|
||||||
|
}
|
||||||
|
_ => {
|
||||||
|
let escape_start = self.pos;
|
||||||
|
let escaped = match self.advance() {
|
||||||
|
Some('n') => '\n',
|
||||||
|
Some('r') => '\r',
|
||||||
|
Some('t') => '\t',
|
||||||
|
Some('\\') => '\\',
|
||||||
|
Some('"') => '"',
|
||||||
|
Some('0') => '\0',
|
||||||
|
Some('\'') => '\'',
|
||||||
|
Some(c) => {
|
||||||
|
return Err(LexError {
|
||||||
|
message: format!("Invalid escape sequence: \\{}", c),
|
||||||
|
span: Span::new(escape_start - 1, self.pos),
|
||||||
|
});
|
||||||
|
}
|
||||||
|
None => {
|
||||||
|
return Err(LexError {
|
||||||
|
message: "Unterminated multiline string".into(),
|
||||||
|
span: Span::new(_start, self.pos),
|
||||||
|
});
|
||||||
|
}
|
||||||
|
};
|
||||||
|
current_literal.push(escaped);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Some('{') => {
|
||||||
|
// Interpolation (same as regular strings)
|
||||||
|
if !current_literal.is_empty() {
|
||||||
|
parts.push(StringPart::Literal(std::mem::take(&mut current_literal)));
|
||||||
|
}
|
||||||
|
|
||||||
|
let mut expr_text = String::new();
|
||||||
|
let mut brace_depth = 1;
|
||||||
|
|
||||||
|
loop {
|
||||||
|
match self.advance() {
|
||||||
|
Some('{') => {
|
||||||
|
brace_depth += 1;
|
||||||
|
expr_text.push('{');
|
||||||
|
}
|
||||||
|
Some('}') => {
|
||||||
|
brace_depth -= 1;
|
||||||
|
if brace_depth == 0 {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
expr_text.push('}');
|
||||||
|
}
|
||||||
|
Some(c) => expr_text.push(c),
|
||||||
|
None => {
|
||||||
|
return Err(LexError {
|
||||||
|
message: "Unterminated interpolation in multiline string"
|
||||||
|
.into(),
|
||||||
|
span: Span::new(_start, self.pos),
|
||||||
|
});
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
parts.push(StringPart::Expr(expr_text));
|
||||||
|
}
|
||||||
|
Some(c) => current_literal.push(c),
|
||||||
|
None => {
|
||||||
|
return Err(LexError {
|
||||||
|
message: "Unterminated multiline string".into(),
|
||||||
|
span: Span::new(_start, self.pos),
|
||||||
|
});
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Strip common leading whitespace from all lines
|
||||||
|
let strip_indent = |s: &str| -> String {
|
||||||
|
if s.is_empty() {
|
||||||
|
return String::new();
|
||||||
|
}
|
||||||
|
let lines: Vec<&str> = s.split('\n').collect();
|
||||||
|
// Find minimum indentation of non-empty lines
|
||||||
|
let min_indent = lines
|
||||||
|
.iter()
|
||||||
|
.filter(|line| !line.trim().is_empty())
|
||||||
|
.map(|line| line.len() - line.trim_start().len())
|
||||||
|
.min()
|
||||||
|
.unwrap_or(0);
|
||||||
|
// Strip that indentation from each line
|
||||||
|
lines
|
||||||
|
.iter()
|
||||||
|
.map(|line| {
|
||||||
|
if line.len() >= min_indent {
|
||||||
|
&line[min_indent..]
|
||||||
|
} else {
|
||||||
|
line.trim_start()
|
||||||
|
}
|
||||||
|
})
|
||||||
|
.collect::<Vec<_>>()
|
||||||
|
.join("\n")
|
||||||
|
};
|
||||||
|
|
||||||
|
// Strip trailing whitespace-only line before closing """
|
||||||
|
let trim_trailing = |s: &mut String| {
|
||||||
|
// Remove trailing spaces/tabs (indent before closing """)
|
||||||
|
while s.ends_with(' ') || s.ends_with('\t') {
|
||||||
|
s.pop();
|
||||||
|
}
|
||||||
|
// Remove the trailing newline
|
||||||
|
if s.ends_with('\n') {
|
||||||
|
s.pop();
|
||||||
|
if s.ends_with('\r') {
|
||||||
|
s.pop();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
};
|
||||||
|
|
||||||
|
if parts.is_empty() {
|
||||||
|
trim_trailing(&mut current_literal);
|
||||||
|
let result = strip_indent(¤t_literal);
|
||||||
|
return Ok(TokenKind::String(result));
|
||||||
|
}
|
||||||
|
|
||||||
|
// Add remaining literal
|
||||||
|
if !current_literal.is_empty() {
|
||||||
|
trim_trailing(&mut current_literal);
|
||||||
|
parts.push(StringPart::Literal(current_literal));
|
||||||
|
}
|
||||||
|
|
||||||
|
// For interpolated multiline strings, strip indent from literal parts
|
||||||
|
// First, collect all literal content to find min indent
|
||||||
|
let mut all_text = String::new();
|
||||||
|
for part in &parts {
|
||||||
|
if let StringPart::Literal(lit) = part {
|
||||||
|
all_text.push_str(lit);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
let lines: Vec<&str> = all_text.split('\n').collect();
|
||||||
|
let min_indent = lines
|
||||||
|
.iter()
|
||||||
|
.filter(|line| !line.trim().is_empty())
|
||||||
|
.map(|line| line.len() - line.trim_start().len())
|
||||||
|
.min()
|
||||||
|
.unwrap_or(0);
|
||||||
|
|
||||||
|
if min_indent > 0 {
|
||||||
|
for part in &mut parts {
|
||||||
|
if let StringPart::Literal(lit) = part {
|
||||||
|
let stripped_lines: Vec<&str> = lit
|
||||||
|
.split('\n')
|
||||||
|
.map(|line| {
|
||||||
|
if line.len() >= min_indent {
|
||||||
|
&line[min_indent..]
|
||||||
|
} else {
|
||||||
|
line.trim_start()
|
||||||
|
}
|
||||||
|
})
|
||||||
|
.collect();
|
||||||
|
*lit = stripped_lines.join("\n");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
Ok(TokenKind::InterpolatedString(parts))
|
||||||
|
}
|
||||||
|
|
||||||
fn scan_char(&mut self, start: usize) -> Result<TokenKind, LexError> {
|
fn scan_char(&mut self, start: usize) -> Result<TokenKind, LexError> {
|
||||||
let c = match self.advance() {
|
let c = match self.advance() {
|
||||||
Some('\\') => match self.advance() {
|
Some('\\') => match self.advance() {
|
||||||
@@ -745,6 +997,7 @@ impl<'a> Lexer<'a> {
|
|||||||
"effect" => TokenKind::Effect,
|
"effect" => TokenKind::Effect,
|
||||||
"handler" => TokenKind::Handler,
|
"handler" => TokenKind::Handler,
|
||||||
"run" => TokenKind::Run,
|
"run" => TokenKind::Run,
|
||||||
|
"handle" => TokenKind::Handle,
|
||||||
"resume" => TokenKind::Resume,
|
"resume" => TokenKind::Resume,
|
||||||
"type" => TokenKind::Type,
|
"type" => TokenKind::Type,
|
||||||
"import" => TokenKind::Import,
|
"import" => TokenKind::Import,
|
||||||
@@ -763,6 +1016,8 @@ impl<'a> Lexer<'a> {
|
|||||||
"commutative" => TokenKind::Commutative,
|
"commutative" => TokenKind::Commutative,
|
||||||
"where" => TokenKind::Where,
|
"where" => TokenKind::Where,
|
||||||
"assume" => TokenKind::Assume,
|
"assume" => TokenKind::Assume,
|
||||||
|
"and" => TokenKind::And,
|
||||||
|
"or" => TokenKind::Or,
|
||||||
"true" => TokenKind::Bool(true),
|
"true" => TokenKind::Bool(true),
|
||||||
"false" => TokenKind::Bool(false),
|
"false" => TokenKind::Bool(false),
|
||||||
_ => TokenKind::Ident(ident.to_string()),
|
_ => TokenKind::Ident(ident.to_string()),
|
||||||
|
|||||||
@@ -513,7 +513,10 @@ impl Linter {
|
|||||||
Expr::Field { object, .. } | Expr::TupleIndex { object, .. } => {
|
Expr::Field { object, .. } | Expr::TupleIndex { object, .. } => {
|
||||||
self.collect_refs_expr(object);
|
self.collect_refs_expr(object);
|
||||||
}
|
}
|
||||||
Expr::Record { fields, .. } => {
|
Expr::Record { spread, fields, .. } => {
|
||||||
|
if let Some(spread_expr) = spread {
|
||||||
|
self.collect_refs_expr(spread_expr);
|
||||||
|
}
|
||||||
for (_, val) in fields {
|
for (_, val) in fields {
|
||||||
self.collect_refs_expr(val);
|
self.collect_refs_expr(val);
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1571,7 +1571,10 @@ fn collect_call_site_hints(
|
|||||||
collect_call_site_hints(source, e, param_names, hints);
|
collect_call_site_hints(source, e, param_names, hints);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
Expr::Record { fields, .. } => {
|
Expr::Record { spread, fields, .. } => {
|
||||||
|
if let Some(spread_expr) = spread {
|
||||||
|
collect_call_site_hints(source, spread_expr, param_names, hints);
|
||||||
|
}
|
||||||
for (_, e) in fields {
|
for (_, e) in fields {
|
||||||
collect_call_site_hints(source, e, param_names, hints);
|
collect_call_site_hints(source, e, param_names, hints);
|
||||||
}
|
}
|
||||||
|
|||||||
285
src/main.rs
285
src/main.rs
@@ -37,7 +37,7 @@ use std::borrow::Cow;
|
|||||||
use std::collections::HashSet;
|
use std::collections::HashSet;
|
||||||
use typechecker::TypeChecker;
|
use typechecker::TypeChecker;
|
||||||
|
|
||||||
const VERSION: &str = "0.1.0";
|
const VERSION: &str = env!("CARGO_PKG_VERSION");
|
||||||
|
|
||||||
const HELP: &str = r#"
|
const HELP: &str = r#"
|
||||||
Lux - A functional language with first-class effects
|
Lux - A functional language with first-class effects
|
||||||
@@ -193,10 +193,12 @@ fn main() {
|
|||||||
eprintln!(" lux compile <file.lux> --run");
|
eprintln!(" lux compile <file.lux> --run");
|
||||||
eprintln!(" lux compile <file.lux> --emit-c [-o file.c]");
|
eprintln!(" lux compile <file.lux> --emit-c [-o file.c]");
|
||||||
eprintln!(" lux compile <file.lux> --target js [-o file.js]");
|
eprintln!(" lux compile <file.lux> --target js [-o file.js]");
|
||||||
|
eprintln!(" lux compile <file.lux> --watch");
|
||||||
std::process::exit(1);
|
std::process::exit(1);
|
||||||
}
|
}
|
||||||
let run_after = args.iter().any(|a| a == "--run");
|
let run_after = args.iter().any(|a| a == "--run");
|
||||||
let emit_c = args.iter().any(|a| a == "--emit-c");
|
let emit_c = args.iter().any(|a| a == "--emit-c");
|
||||||
|
let watch = args.iter().any(|a| a == "--watch");
|
||||||
let target_js = args.iter()
|
let target_js = args.iter()
|
||||||
.position(|a| a == "--target")
|
.position(|a| a == "--target")
|
||||||
.and_then(|i| args.get(i + 1))
|
.and_then(|i| args.get(i + 1))
|
||||||
@@ -212,6 +214,16 @@ fn main() {
|
|||||||
} else {
|
} else {
|
||||||
compile_to_c(&args[2], output_path, run_after, emit_c);
|
compile_to_c(&args[2], output_path, run_after, emit_c);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if watch {
|
||||||
|
// Build the args to replay for each recompilation (without --watch)
|
||||||
|
let compile_args: Vec<String> = args.iter()
|
||||||
|
.skip(1)
|
||||||
|
.filter(|a| a.as_str() != "--watch")
|
||||||
|
.cloned()
|
||||||
|
.collect();
|
||||||
|
watch_and_rerun(&args[2], &compile_args);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
"repl" => {
|
"repl" => {
|
||||||
// Start REPL
|
// Start REPL
|
||||||
@@ -902,6 +914,7 @@ fn compile_to_c(path: &str, output_path: Option<&str>, run_after: bool, emit_c:
|
|||||||
.args(["-O2", "-o"])
|
.args(["-O2", "-o"])
|
||||||
.arg(&output_bin)
|
.arg(&output_bin)
|
||||||
.arg(&temp_c)
|
.arg(&temp_c)
|
||||||
|
.arg("-lm")
|
||||||
.output();
|
.output();
|
||||||
|
|
||||||
match compile_result {
|
match compile_result {
|
||||||
@@ -1350,6 +1363,64 @@ fn watch_file(path: &str) {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
fn watch_and_rerun(path: &str, compile_args: &[String]) {
|
||||||
|
use std::time::{Duration, SystemTime};
|
||||||
|
use std::path::Path;
|
||||||
|
|
||||||
|
let file_path = Path::new(path);
|
||||||
|
if !file_path.exists() {
|
||||||
|
eprintln!("File not found: {}", path);
|
||||||
|
std::process::exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
println!();
|
||||||
|
println!("Watching {} for changes (Ctrl+C to stop)...", path);
|
||||||
|
|
||||||
|
let mut last_modified = std::fs::metadata(file_path)
|
||||||
|
.and_then(|m| m.modified())
|
||||||
|
.unwrap_or(SystemTime::UNIX_EPOCH);
|
||||||
|
|
||||||
|
loop {
|
||||||
|
std::thread::sleep(Duration::from_millis(500));
|
||||||
|
|
||||||
|
let modified = match std::fs::metadata(file_path).and_then(|m| m.modified()) {
|
||||||
|
Ok(m) => m,
|
||||||
|
Err(_) => continue,
|
||||||
|
};
|
||||||
|
|
||||||
|
if modified > last_modified {
|
||||||
|
last_modified = modified;
|
||||||
|
|
||||||
|
// Clear screen
|
||||||
|
print!("\x1B[2J\x1B[H");
|
||||||
|
|
||||||
|
println!("=== Compiling {} ===", path);
|
||||||
|
println!();
|
||||||
|
|
||||||
|
let result = std::process::Command::new(std::env::current_exe().unwrap())
|
||||||
|
.args(compile_args)
|
||||||
|
.status();
|
||||||
|
|
||||||
|
match result {
|
||||||
|
Ok(status) if status.success() => {
|
||||||
|
println!();
|
||||||
|
println!("=== Success ===");
|
||||||
|
}
|
||||||
|
Ok(_) => {
|
||||||
|
println!();
|
||||||
|
println!("=== Failed ===");
|
||||||
|
}
|
||||||
|
Err(e) => {
|
||||||
|
eprintln!("Error running compiler: {}", e);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
println!();
|
||||||
|
println!("Watching for changes...");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
fn serve_static_files(dir: &str, port: u16) {
|
fn serve_static_files(dir: &str, port: u16) {
|
||||||
use std::io::{Write, BufRead, BufReader};
|
use std::io::{Write, BufRead, BufReader};
|
||||||
use std::net::TcpListener;
|
use std::net::TcpListener;
|
||||||
@@ -3854,6 +3925,49 @@ c")"#;
|
|||||||
assert_eq!(eval(source).unwrap(), r#""literal {braces}""#);
|
assert_eq!(eval(source).unwrap(), r#""literal {braces}""#);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_multiline_string() {
|
||||||
|
let source = r#"
|
||||||
|
let s = """
|
||||||
|
hello
|
||||||
|
world
|
||||||
|
"""
|
||||||
|
let result = String.length(s)
|
||||||
|
"#;
|
||||||
|
// "hello\nworld" = 11 chars
|
||||||
|
assert_eq!(eval(source).unwrap(), "11");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_multiline_string_with_quotes() {
|
||||||
|
// Quotes are fine in the middle of triple-quoted strings
|
||||||
|
let source = "let s = \"\"\"\n She said \"hello\" to him.\n\"\"\"";
|
||||||
|
assert_eq!(eval(source).unwrap(), r#""She said "hello" to him.""#);
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_multiline_string_interpolation() {
|
||||||
|
let source = r#"
|
||||||
|
let name = "Lux"
|
||||||
|
let s = """
|
||||||
|
Hello, {name}!
|
||||||
|
"""
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), r#""Hello, Lux!""#);
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_multiline_string_empty() {
|
||||||
|
let source = r#"let s = """""""#;
|
||||||
|
assert_eq!(eval(source).unwrap(), r#""""#);
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_multiline_string_inline() {
|
||||||
|
let source = r#"let s = """hello world""""#;
|
||||||
|
assert_eq!(eval(source).unwrap(), r#""hello world""#);
|
||||||
|
}
|
||||||
|
|
||||||
// Option tests
|
// Option tests
|
||||||
#[test]
|
#[test]
|
||||||
fn test_option_constructors() {
|
fn test_option_constructors() {
|
||||||
@@ -5440,4 +5554,173 @@ c")"#;
|
|||||||
check_file("projects/rest-api/main.lux").unwrap();
|
check_file("projects/rest-api/main.lux").unwrap();
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// === Map type tests ===
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_new_and_size() {
|
||||||
|
let source = r#"
|
||||||
|
let m = Map.new()
|
||||||
|
let result = Map.size(m)
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "0");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_set_and_get() {
|
||||||
|
let source = r#"
|
||||||
|
let m = Map.new()
|
||||||
|
let m2 = Map.set(m, "name", "Alice")
|
||||||
|
let result = Map.get(m2, "name")
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "Some(\"Alice\")");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_get_missing() {
|
||||||
|
let source = r#"
|
||||||
|
let m = Map.new()
|
||||||
|
let result = Map.get(m, "missing")
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "None");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_contains() {
|
||||||
|
let source = r#"
|
||||||
|
let m = Map.set(Map.new(), "x", 1)
|
||||||
|
let result = (Map.contains(m, "x"), Map.contains(m, "y"))
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "(true, false)");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_remove() {
|
||||||
|
let source = r#"
|
||||||
|
let m = Map.set(Map.set(Map.new(), "a", 1), "b", 2)
|
||||||
|
let m2 = Map.remove(m, "a")
|
||||||
|
let result = (Map.size(m2), Map.contains(m2, "a"), Map.contains(m2, "b"))
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "(1, false, true)");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_keys_and_values() {
|
||||||
|
let source = r#"
|
||||||
|
let m = Map.set(Map.set(Map.new(), "b", 2), "a", 1)
|
||||||
|
let result = Map.keys(m)
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "[\"a\", \"b\"]");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_from_list() {
|
||||||
|
let source = r#"
|
||||||
|
let m = Map.fromList([("x", 10), ("y", 20)])
|
||||||
|
let result = (Map.get(m, "x"), Map.size(m))
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "(Some(10), 2)");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_to_list() {
|
||||||
|
let source = r#"
|
||||||
|
let m = Map.set(Map.set(Map.new(), "b", 2), "a", 1)
|
||||||
|
let result = Map.toList(m)
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "[(\"a\", 1), (\"b\", 2)]");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_merge() {
|
||||||
|
let source = r#"
|
||||||
|
let m1 = Map.fromList([("a", 1), ("b", 2)])
|
||||||
|
let m2 = Map.fromList([("b", 3), ("c", 4)])
|
||||||
|
let merged = Map.merge(m1, m2)
|
||||||
|
let result = (Map.get(merged, "a"), Map.get(merged, "b"), Map.get(merged, "c"))
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "(Some(1), Some(3), Some(4))");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_immutability() {
|
||||||
|
let source = r#"
|
||||||
|
let m1 = Map.fromList([("a", 1)])
|
||||||
|
let m2 = Map.set(m1, "b", 2)
|
||||||
|
let result = (Map.size(m1), Map.size(m2))
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "(1, 2)");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_is_empty() {
|
||||||
|
let source = r#"
|
||||||
|
let m1 = Map.new()
|
||||||
|
let m2 = Map.set(m1, "x", 1)
|
||||||
|
let result = (Map.isEmpty(m1), Map.isEmpty(m2))
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "(true, false)");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_map_type_annotation() {
|
||||||
|
let source = r#"
|
||||||
|
fn lookup(m: Map<String, Int>, key: String): Option<Int> =
|
||||||
|
Map.get(m, key)
|
||||||
|
let m = Map.fromList([("age", 30)])
|
||||||
|
let result = lookup(m, "age")
|
||||||
|
"#;
|
||||||
|
assert_eq!(eval(source).unwrap(), "Some(30)");
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_file_copy() {
|
||||||
|
use std::io::Write;
|
||||||
|
// Create a temp file, copy it, verify contents
|
||||||
|
let dir = std::env::temp_dir().join("lux_test_file_copy");
|
||||||
|
let _ = std::fs::create_dir_all(&dir);
|
||||||
|
let src = dir.join("src.txt");
|
||||||
|
let dst = dir.join("dst.txt");
|
||||||
|
std::fs::File::create(&src).unwrap().write_all(b"hello copy").unwrap();
|
||||||
|
let _ = std::fs::remove_file(&dst);
|
||||||
|
|
||||||
|
let source = format!(r#"
|
||||||
|
fn main(): Unit with {{File}} =
|
||||||
|
File.copy("{}", "{}")
|
||||||
|
let _ = run main() with {{}}
|
||||||
|
let result = "done"
|
||||||
|
"#, src.display(), dst.display());
|
||||||
|
let result = eval(&source);
|
||||||
|
assert!(result.is_ok(), "File.copy failed: {:?}", result);
|
||||||
|
let contents = std::fs::read_to_string(&dst).unwrap();
|
||||||
|
assert_eq!(contents, "hello copy");
|
||||||
|
|
||||||
|
// Cleanup
|
||||||
|
let _ = std::fs::remove_dir_all(&dir);
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_effectful_callback_propagation() {
|
||||||
|
// WISH-7: effectful callbacks in List.forEach should propagate effects
|
||||||
|
// This should type-check successfully because Console effect is inferred
|
||||||
|
let source = r#"
|
||||||
|
fn printAll(items: List<String>): Unit =
|
||||||
|
List.forEach(items, fn(x: String): Unit => Console.print(x))
|
||||||
|
let result = "ok"
|
||||||
|
"#;
|
||||||
|
let result = eval(source);
|
||||||
|
assert!(result.is_ok(), "Effectful callback should type-check: {:?}", result);
|
||||||
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_effectful_callback_in_map() {
|
||||||
|
// Effectful callback in List.map should propagate effects
|
||||||
|
let source = r#"
|
||||||
|
fn readAll(paths: List<String>): List<String> =
|
||||||
|
List.map(paths, fn(p: String): String => File.read(p))
|
||||||
|
let result = "ok"
|
||||||
|
"#;
|
||||||
|
let result = eval(source);
|
||||||
|
assert!(result.is_ok(), "Effectful callback in map should type-check: {:?}", result);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -279,6 +279,12 @@ impl ModuleLoader {
|
|||||||
}
|
}
|
||||||
Declaration::Type(t) if t.visibility == Visibility::Public => {
|
Declaration::Type(t) if t.visibility == Visibility::Public => {
|
||||||
exports.insert(t.name.name.clone());
|
exports.insert(t.name.name.clone());
|
||||||
|
// Also export constructors for ADT types
|
||||||
|
if let crate::ast::TypeDef::Enum(variants) = &t.definition {
|
||||||
|
for variant in variants {
|
||||||
|
exports.insert(variant.name.name.clone());
|
||||||
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
Declaration::Effect(e) => {
|
Declaration::Effect(e) => {
|
||||||
// Effects are always exported
|
// Effects are always exported
|
||||||
|
|||||||
121
src/parser.rs
121
src/parser.rs
@@ -245,6 +245,7 @@ impl Parser {
|
|||||||
TokenKind::Trait => Ok(Declaration::Trait(self.parse_trait_decl(visibility, doc)?)),
|
TokenKind::Trait => Ok(Declaration::Trait(self.parse_trait_decl(visibility, doc)?)),
|
||||||
TokenKind::Impl => Ok(Declaration::Impl(self.parse_impl_decl()?)),
|
TokenKind::Impl => Ok(Declaration::Impl(self.parse_impl_decl()?)),
|
||||||
TokenKind::Run => Err(self.error("Bare 'run' expressions are not allowed at top level. Use 'let _ = run ...' or 'let result = run ...'")),
|
TokenKind::Run => Err(self.error("Bare 'run' expressions are not allowed at top level. Use 'let _ = run ...' or 'let result = run ...'")),
|
||||||
|
TokenKind::Handle => Err(self.error("Bare 'handle' expressions are not allowed at top level. Use 'let _ = handle ...' or 'let result = handle ...'")),
|
||||||
_ => Err(self.error("Expected declaration (fn, effect, handler, type, trait, impl, or let)")),
|
_ => Err(self.error("Expected declaration (fn, effect, handler, type, trait, impl, or let)")),
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -845,6 +846,7 @@ impl Parser {
|
|||||||
/// Parse function parameters
|
/// Parse function parameters
|
||||||
fn parse_params(&mut self) -> Result<Vec<Parameter>, ParseError> {
|
fn parse_params(&mut self) -> Result<Vec<Parameter>, ParseError> {
|
||||||
let mut params = Vec::new();
|
let mut params = Vec::new();
|
||||||
|
self.skip_newlines();
|
||||||
|
|
||||||
while !self.check(TokenKind::RParen) {
|
while !self.check(TokenKind::RParen) {
|
||||||
let start = self.current_span();
|
let start = self.current_span();
|
||||||
@@ -854,9 +856,11 @@ impl Parser {
|
|||||||
let span = start.merge(self.previous_span());
|
let span = start.merge(self.previous_span());
|
||||||
|
|
||||||
params.push(Parameter { name, typ, span });
|
params.push(Parameter { name, typ, span });
|
||||||
|
self.skip_newlines();
|
||||||
|
|
||||||
if !self.check(TokenKind::RParen) {
|
if !self.check(TokenKind::RParen) {
|
||||||
self.expect(TokenKind::Comma)?;
|
self.expect(TokenKind::Comma)?;
|
||||||
|
self.skip_newlines();
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -1558,6 +1562,7 @@ impl Parser {
|
|||||||
loop {
|
loop {
|
||||||
let op = match self.peek_kind() {
|
let op = match self.peek_kind() {
|
||||||
TokenKind::Plus => BinaryOp::Add,
|
TokenKind::Plus => BinaryOp::Add,
|
||||||
|
TokenKind::PlusPlus => BinaryOp::Concat,
|
||||||
TokenKind::Minus => BinaryOp::Sub,
|
TokenKind::Minus => BinaryOp::Sub,
|
||||||
_ => break,
|
_ => break,
|
||||||
};
|
};
|
||||||
@@ -1774,6 +1779,7 @@ impl Parser {
|
|||||||
TokenKind::Let => self.parse_let_expr(),
|
TokenKind::Let => self.parse_let_expr(),
|
||||||
TokenKind::Fn => self.parse_lambda_expr(),
|
TokenKind::Fn => self.parse_lambda_expr(),
|
||||||
TokenKind::Run => self.parse_run_expr(),
|
TokenKind::Run => self.parse_run_expr(),
|
||||||
|
TokenKind::Handle => self.parse_handle_expr(),
|
||||||
TokenKind::Resume => self.parse_resume_expr(),
|
TokenKind::Resume => self.parse_resume_expr(),
|
||||||
|
|
||||||
// Delimiters
|
// Delimiters
|
||||||
@@ -1791,6 +1797,7 @@ impl Parser {
|
|||||||
|
|
||||||
let condition = Box::new(self.parse_expr()?);
|
let condition = Box::new(self.parse_expr()?);
|
||||||
|
|
||||||
|
self.skip_newlines();
|
||||||
self.expect(TokenKind::Then)?;
|
self.expect(TokenKind::Then)?;
|
||||||
self.skip_newlines();
|
self.skip_newlines();
|
||||||
let then_branch = Box::new(self.parse_expr()?);
|
let then_branch = Box::new(self.parse_expr()?);
|
||||||
@@ -1915,9 +1922,27 @@ impl Parser {
|
|||||||
TokenKind::Ident(name) => {
|
TokenKind::Ident(name) => {
|
||||||
// Check if it starts with uppercase (constructor) or lowercase (variable)
|
// Check if it starts with uppercase (constructor) or lowercase (variable)
|
||||||
if name.chars().next().map_or(false, |c| c.is_uppercase()) {
|
if name.chars().next().map_or(false, |c| c.is_uppercase()) {
|
||||||
self.parse_constructor_pattern()
|
self.parse_constructor_pattern_with_module(None)
|
||||||
} else {
|
} else {
|
||||||
let ident = self.parse_ident()?;
|
let ident = self.parse_ident()?;
|
||||||
|
// Check for module-qualified constructor: module.Constructor
|
||||||
|
if self.check(TokenKind::Dot) {
|
||||||
|
// Peek ahead to see if next is an uppercase identifier
|
||||||
|
let dot_pos = self.pos;
|
||||||
|
self.advance(); // skip dot
|
||||||
|
if let TokenKind::Ident(next_name) = self.peek_kind() {
|
||||||
|
if next_name
|
||||||
|
.chars()
|
||||||
|
.next()
|
||||||
|
.map_or(false, |c| c.is_uppercase())
|
||||||
|
{
|
||||||
|
return self
|
||||||
|
.parse_constructor_pattern_with_module(Some(ident));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// Not a module-qualified constructor, backtrack
|
||||||
|
self.pos = dot_pos;
|
||||||
|
}
|
||||||
Ok(Pattern::Var(ident))
|
Ok(Pattern::Var(ident))
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -1927,25 +1952,40 @@ impl Parser {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
fn parse_constructor_pattern(&mut self) -> Result<Pattern, ParseError> {
|
fn parse_constructor_pattern_with_module(
|
||||||
let start = self.current_span();
|
&mut self,
|
||||||
|
module: Option<Ident>,
|
||||||
|
) -> Result<Pattern, ParseError> {
|
||||||
|
let start = module
|
||||||
|
.as_ref()
|
||||||
|
.map(|m| m.span)
|
||||||
|
.unwrap_or_else(|| self.current_span());
|
||||||
let name = self.parse_ident()?;
|
let name = self.parse_ident()?;
|
||||||
|
|
||||||
if self.check(TokenKind::LParen) {
|
if self.check(TokenKind::LParen) {
|
||||||
self.advance();
|
self.advance();
|
||||||
|
self.skip_newlines();
|
||||||
let mut fields = Vec::new();
|
let mut fields = Vec::new();
|
||||||
while !self.check(TokenKind::RParen) {
|
while !self.check(TokenKind::RParen) {
|
||||||
fields.push(self.parse_pattern()?);
|
fields.push(self.parse_pattern()?);
|
||||||
|
self.skip_newlines();
|
||||||
if !self.check(TokenKind::RParen) {
|
if !self.check(TokenKind::RParen) {
|
||||||
self.expect(TokenKind::Comma)?;
|
self.expect(TokenKind::Comma)?;
|
||||||
|
self.skip_newlines();
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
self.expect(TokenKind::RParen)?;
|
self.expect(TokenKind::RParen)?;
|
||||||
let span = start.merge(self.previous_span());
|
let span = start.merge(self.previous_span());
|
||||||
Ok(Pattern::Constructor { name, fields, span })
|
|
||||||
} else {
|
|
||||||
let span = name.span;
|
|
||||||
Ok(Pattern::Constructor {
|
Ok(Pattern::Constructor {
|
||||||
|
module,
|
||||||
|
name,
|
||||||
|
fields,
|
||||||
|
span,
|
||||||
|
})
|
||||||
|
} else {
|
||||||
|
let span = start.merge(name.span);
|
||||||
|
Ok(Pattern::Constructor {
|
||||||
|
module,
|
||||||
name,
|
name,
|
||||||
fields: Vec::new(),
|
fields: Vec::new(),
|
||||||
span,
|
span,
|
||||||
@@ -1956,12 +1996,15 @@ impl Parser {
|
|||||||
fn parse_tuple_pattern(&mut self) -> Result<Pattern, ParseError> {
|
fn parse_tuple_pattern(&mut self) -> Result<Pattern, ParseError> {
|
||||||
let start = self.current_span();
|
let start = self.current_span();
|
||||||
self.expect(TokenKind::LParen)?;
|
self.expect(TokenKind::LParen)?;
|
||||||
|
self.skip_newlines();
|
||||||
|
|
||||||
let mut elements = Vec::new();
|
let mut elements = Vec::new();
|
||||||
while !self.check(TokenKind::RParen) {
|
while !self.check(TokenKind::RParen) {
|
||||||
elements.push(self.parse_pattern()?);
|
elements.push(self.parse_pattern()?);
|
||||||
|
self.skip_newlines();
|
||||||
if !self.check(TokenKind::RParen) {
|
if !self.check(TokenKind::RParen) {
|
||||||
self.expect(TokenKind::Comma)?;
|
self.expect(TokenKind::Comma)?;
|
||||||
|
self.skip_newlines();
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -2091,6 +2134,7 @@ impl Parser {
|
|||||||
|
|
||||||
fn parse_lambda_params(&mut self) -> Result<Vec<Parameter>, ParseError> {
|
fn parse_lambda_params(&mut self) -> Result<Vec<Parameter>, ParseError> {
|
||||||
let mut params = Vec::new();
|
let mut params = Vec::new();
|
||||||
|
self.skip_newlines();
|
||||||
|
|
||||||
while !self.check(TokenKind::RParen) {
|
while !self.check(TokenKind::RParen) {
|
||||||
let start = self.current_span();
|
let start = self.current_span();
|
||||||
@@ -2106,9 +2150,11 @@ impl Parser {
|
|||||||
|
|
||||||
let span = start.merge(self.previous_span());
|
let span = start.merge(self.previous_span());
|
||||||
params.push(Parameter { name, typ, span });
|
params.push(Parameter { name, typ, span });
|
||||||
|
self.skip_newlines();
|
||||||
|
|
||||||
if !self.check(TokenKind::RParen) {
|
if !self.check(TokenKind::RParen) {
|
||||||
self.expect(TokenKind::Comma)?;
|
self.expect(TokenKind::Comma)?;
|
||||||
|
self.skip_newlines();
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -2149,6 +2195,40 @@ impl Parser {
|
|||||||
})
|
})
|
||||||
}
|
}
|
||||||
|
|
||||||
|
fn parse_handle_expr(&mut self) -> Result<Expr, ParseError> {
|
||||||
|
let start = self.current_span();
|
||||||
|
self.expect(TokenKind::Handle)?;
|
||||||
|
|
||||||
|
let expr = Box::new(self.parse_call_expr()?);
|
||||||
|
|
||||||
|
self.expect(TokenKind::With)?;
|
||||||
|
self.expect(TokenKind::LBrace)?;
|
||||||
|
self.skip_newlines();
|
||||||
|
|
||||||
|
let mut handlers = Vec::new();
|
||||||
|
while !self.check(TokenKind::RBrace) {
|
||||||
|
let effect = self.parse_ident()?;
|
||||||
|
self.expect(TokenKind::Eq)?;
|
||||||
|
let handler = self.parse_expr()?;
|
||||||
|
handlers.push((effect, handler));
|
||||||
|
|
||||||
|
self.skip_newlines();
|
||||||
|
if self.check(TokenKind::Comma) {
|
||||||
|
self.advance();
|
||||||
|
}
|
||||||
|
self.skip_newlines();
|
||||||
|
}
|
||||||
|
|
||||||
|
let end = self.current_span();
|
||||||
|
self.expect(TokenKind::RBrace)?;
|
||||||
|
|
||||||
|
Ok(Expr::Run {
|
||||||
|
expr,
|
||||||
|
handlers,
|
||||||
|
span: start.merge(end),
|
||||||
|
})
|
||||||
|
}
|
||||||
|
|
||||||
fn parse_resume_expr(&mut self) -> Result<Expr, ParseError> {
|
fn parse_resume_expr(&mut self) -> Result<Expr, ParseError> {
|
||||||
let start = self.current_span();
|
let start = self.current_span();
|
||||||
self.expect(TokenKind::Resume)?;
|
self.expect(TokenKind::Resume)?;
|
||||||
@@ -2162,6 +2242,7 @@ impl Parser {
|
|||||||
fn parse_tuple_or_paren_expr(&mut self) -> Result<Expr, ParseError> {
|
fn parse_tuple_or_paren_expr(&mut self) -> Result<Expr, ParseError> {
|
||||||
let start = self.current_span();
|
let start = self.current_span();
|
||||||
self.expect(TokenKind::LParen)?;
|
self.expect(TokenKind::LParen)?;
|
||||||
|
self.skip_newlines();
|
||||||
|
|
||||||
if self.check(TokenKind::RParen) {
|
if self.check(TokenKind::RParen) {
|
||||||
self.advance();
|
self.advance();
|
||||||
@@ -2172,16 +2253,19 @@ impl Parser {
|
|||||||
}
|
}
|
||||||
|
|
||||||
let first = self.parse_expr()?;
|
let first = self.parse_expr()?;
|
||||||
|
self.skip_newlines();
|
||||||
|
|
||||||
if self.check(TokenKind::Comma) {
|
if self.check(TokenKind::Comma) {
|
||||||
// Tuple
|
// Tuple
|
||||||
let mut elements = vec![first];
|
let mut elements = vec![first];
|
||||||
while self.check(TokenKind::Comma) {
|
while self.check(TokenKind::Comma) {
|
||||||
self.advance();
|
self.advance();
|
||||||
|
self.skip_newlines();
|
||||||
if self.check(TokenKind::RParen) {
|
if self.check(TokenKind::RParen) {
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
elements.push(self.parse_expr()?);
|
elements.push(self.parse_expr()?);
|
||||||
|
self.skip_newlines();
|
||||||
}
|
}
|
||||||
self.expect(TokenKind::RParen)?;
|
self.expect(TokenKind::RParen)?;
|
||||||
let span = start.merge(self.previous_span());
|
let span = start.merge(self.previous_span());
|
||||||
@@ -2207,6 +2291,11 @@ impl Parser {
|
|||||||
}));
|
}));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// Check for record spread: { ...expr, field: val }
|
||||||
|
if matches!(self.peek_kind(), TokenKind::DotDotDot) {
|
||||||
|
return self.parse_record_expr_rest(start);
|
||||||
|
}
|
||||||
|
|
||||||
// Check if it's a record (ident: expr) or block
|
// Check if it's a record (ident: expr) or block
|
||||||
if matches!(self.peek_kind(), TokenKind::Ident(_)) {
|
if matches!(self.peek_kind(), TokenKind::Ident(_)) {
|
||||||
let lookahead = self.tokens.get(self.pos + 1).map(|t| &t.kind);
|
let lookahead = self.tokens.get(self.pos + 1).map(|t| &t.kind);
|
||||||
@@ -2221,6 +2310,20 @@ impl Parser {
|
|||||||
|
|
||||||
fn parse_record_expr_rest(&mut self, start: Span) -> Result<Expr, ParseError> {
|
fn parse_record_expr_rest(&mut self, start: Span) -> Result<Expr, ParseError> {
|
||||||
let mut fields = Vec::new();
|
let mut fields = Vec::new();
|
||||||
|
let mut spread = None;
|
||||||
|
|
||||||
|
// Check for spread: { ...expr, ... }
|
||||||
|
if self.check(TokenKind::DotDotDot) {
|
||||||
|
self.advance(); // consume ...
|
||||||
|
let spread_expr = self.parse_expr()?;
|
||||||
|
spread = Some(Box::new(spread_expr));
|
||||||
|
|
||||||
|
self.skip_newlines();
|
||||||
|
if self.check(TokenKind::Comma) {
|
||||||
|
self.advance();
|
||||||
|
}
|
||||||
|
self.skip_newlines();
|
||||||
|
}
|
||||||
|
|
||||||
while !self.check(TokenKind::RBrace) {
|
while !self.check(TokenKind::RBrace) {
|
||||||
let name = self.parse_ident()?;
|
let name = self.parse_ident()?;
|
||||||
@@ -2237,7 +2340,11 @@ impl Parser {
|
|||||||
|
|
||||||
self.expect(TokenKind::RBrace)?;
|
self.expect(TokenKind::RBrace)?;
|
||||||
let span = start.merge(self.previous_span());
|
let span = start.merge(self.previous_span());
|
||||||
Ok(Expr::Record { fields, span })
|
Ok(Expr::Record {
|
||||||
|
spread,
|
||||||
|
fields,
|
||||||
|
span,
|
||||||
|
})
|
||||||
}
|
}
|
||||||
|
|
||||||
fn parse_block_rest(&mut self, start: Span) -> Result<Expr, ParseError> {
|
fn parse_block_rest(&mut self, start: Span) -> Result<Expr, ParseError> {
|
||||||
|
|||||||
@@ -527,7 +527,10 @@ impl SymbolTable {
|
|||||||
self.visit_expr(e, scope_idx);
|
self.visit_expr(e, scope_idx);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
Expr::Record { fields, .. } => {
|
Expr::Record { spread, fields, .. } => {
|
||||||
|
if let Some(spread_expr) = spread {
|
||||||
|
self.visit_expr(spread_expr, scope_idx);
|
||||||
|
}
|
||||||
for (_, e) in fields {
|
for (_, e) in fields {
|
||||||
self.visit_expr(e, scope_idx);
|
self.visit_expr(e, scope_idx);
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -339,7 +339,10 @@ fn references_params(expr: &Expr, params: &[&str]) -> bool {
|
|||||||
Expr::Lambda { body, .. } => references_params(body, params),
|
Expr::Lambda { body, .. } => references_params(body, params),
|
||||||
Expr::Tuple { elements, .. } => elements.iter().any(|e| references_params(e, params)),
|
Expr::Tuple { elements, .. } => elements.iter().any(|e| references_params(e, params)),
|
||||||
Expr::List { elements, .. } => elements.iter().any(|e| references_params(e, params)),
|
Expr::List { elements, .. } => elements.iter().any(|e| references_params(e, params)),
|
||||||
Expr::Record { fields, .. } => fields.iter().any(|(_, e)| references_params(e, params)),
|
Expr::Record { spread, fields, .. } => {
|
||||||
|
spread.as_ref().is_some_and(|s| references_params(s, params))
|
||||||
|
|| fields.iter().any(|(_, e)| references_params(e, params))
|
||||||
|
}
|
||||||
Expr::Match { scrutinee, arms, .. } => {
|
Expr::Match { scrutinee, arms, .. } => {
|
||||||
references_params(scrutinee, params)
|
references_params(scrutinee, params)
|
||||||
|| arms.iter().any(|a| references_params(&a.body, params))
|
|| arms.iter().any(|a| references_params(&a.body, params))
|
||||||
@@ -516,8 +519,9 @@ fn has_recursive_calls(func_name: &str, body: &Expr) -> bool {
|
|||||||
Expr::Tuple { elements, .. } | Expr::List { elements, .. } => {
|
Expr::Tuple { elements, .. } | Expr::List { elements, .. } => {
|
||||||
elements.iter().any(|e| has_recursive_calls(func_name, e))
|
elements.iter().any(|e| has_recursive_calls(func_name, e))
|
||||||
}
|
}
|
||||||
Expr::Record { fields, .. } => {
|
Expr::Record { spread, fields, .. } => {
|
||||||
fields.iter().any(|(_, e)| has_recursive_calls(func_name, e))
|
spread.as_ref().is_some_and(|s| has_recursive_calls(func_name, s))
|
||||||
|
|| fields.iter().any(|(_, e)| has_recursive_calls(func_name, e))
|
||||||
}
|
}
|
||||||
Expr::Field { object, .. } | Expr::TupleIndex { object, .. } => has_recursive_calls(func_name, object),
|
Expr::Field { object, .. } | Expr::TupleIndex { object, .. } => has_recursive_calls(func_name, object),
|
||||||
Expr::Let { value, body, .. } => {
|
Expr::Let { value, body, .. } => {
|
||||||
@@ -672,6 +676,7 @@ fn generate_auto_migration_expr(
|
|||||||
|
|
||||||
// Build the record expression
|
// Build the record expression
|
||||||
Some(Expr::Record {
|
Some(Expr::Record {
|
||||||
|
spread: None,
|
||||||
fields: field_exprs,
|
fields: field_exprs,
|
||||||
span,
|
span,
|
||||||
})
|
})
|
||||||
@@ -976,6 +981,13 @@ impl TypeChecker {
|
|||||||
if !fields.is_empty() {
|
if !fields.is_empty() {
|
||||||
self.env.bind(&name, TypeScheme::mono(Type::Record(fields)));
|
self.env.bind(&name, TypeScheme::mono(Type::Record(fields)));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// Also copy type definitions so imported types are usable
|
||||||
|
for (type_name, type_def) in &module_checker.env.types {
|
||||||
|
if !self.env.types.contains_key(type_name) {
|
||||||
|
self.env.types.insert(type_name.clone(), type_def.clone());
|
||||||
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
ImportKind::Direct => {
|
ImportKind::Direct => {
|
||||||
// Import a specific name directly
|
// Import a specific name directly
|
||||||
@@ -1744,7 +1756,11 @@ impl TypeChecker {
|
|||||||
span,
|
span,
|
||||||
} => self.infer_block(statements, result, *span),
|
} => self.infer_block(statements, result, *span),
|
||||||
|
|
||||||
Expr::Record { fields, span } => self.infer_record(fields, *span),
|
Expr::Record {
|
||||||
|
spread,
|
||||||
|
fields,
|
||||||
|
span,
|
||||||
|
} => self.infer_record(spread.as_deref(), fields, *span),
|
||||||
|
|
||||||
Expr::Tuple { elements, span } => self.infer_tuple(elements, *span),
|
Expr::Tuple { elements, span } => self.infer_tuple(elements, *span),
|
||||||
|
|
||||||
@@ -1804,6 +1820,29 @@ impl TypeChecker {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
BinaryOp::Concat => {
|
||||||
|
// Concat (++) supports strings and lists
|
||||||
|
if let Err(e) = unify_with_env(&left_type, &right_type, &self.env) {
|
||||||
|
self.errors.push(TypeError {
|
||||||
|
message: format!("Operands of '++' must have same type: {}", e),
|
||||||
|
span,
|
||||||
|
});
|
||||||
|
}
|
||||||
|
match &left_type {
|
||||||
|
Type::String | Type::List(_) | Type::Var(_) => left_type,
|
||||||
|
_ => {
|
||||||
|
self.errors.push(TypeError {
|
||||||
|
message: format!(
|
||||||
|
"Operator '++' requires String or List operands, got {}",
|
||||||
|
left_type
|
||||||
|
),
|
||||||
|
span,
|
||||||
|
});
|
||||||
|
Type::Error
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
BinaryOp::Sub | BinaryOp::Mul | BinaryOp::Div | BinaryOp::Mod => {
|
BinaryOp::Sub | BinaryOp::Mul | BinaryOp::Div | BinaryOp::Mod => {
|
||||||
// Arithmetic: both operands must be same numeric type
|
// Arithmetic: both operands must be same numeric type
|
||||||
if let Err(e) = unify_with_env(&left_type, &right_type, &self.env) {
|
if let Err(e) = unify_with_env(&left_type, &right_type, &self.env) {
|
||||||
@@ -1919,6 +1958,17 @@ impl TypeChecker {
|
|||||||
let func_type = self.infer_expr(func);
|
let func_type = self.infer_expr(func);
|
||||||
let arg_types: Vec<Type> = args.iter().map(|a| self.infer_expr(a)).collect();
|
let arg_types: Vec<Type> = args.iter().map(|a| self.infer_expr(a)).collect();
|
||||||
|
|
||||||
|
// Propagate effects from callback arguments to enclosing scope
|
||||||
|
for arg_type in &arg_types {
|
||||||
|
if let Type::Function { effects, .. } = arg_type {
|
||||||
|
for effect in &effects.effects {
|
||||||
|
if self.inferring_effects {
|
||||||
|
self.inferred_effects.insert(effect.clone());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
// Check property constraints from where clauses
|
// Check property constraints from where clauses
|
||||||
if let Expr::Var(func_id) = func {
|
if let Expr::Var(func_id) = func {
|
||||||
if let Some(constraints) = self.property_constraints.get(&func_id.name).cloned() {
|
if let Some(constraints) = self.property_constraints.get(&func_id.name).cloned() {
|
||||||
@@ -2029,6 +2079,18 @@ impl TypeChecker {
|
|||||||
if let Some((_, field_type)) = fields.iter().find(|(n, _)| n == &operation.name) {
|
if let Some((_, field_type)) = fields.iter().find(|(n, _)| n == &operation.name) {
|
||||||
// It's a function call on a module field
|
// It's a function call on a module field
|
||||||
let arg_types: Vec<Type> = args.iter().map(|a| self.infer_expr(a)).collect();
|
let arg_types: Vec<Type> = args.iter().map(|a| self.infer_expr(a)).collect();
|
||||||
|
|
||||||
|
// Propagate effects from callback arguments to enclosing scope
|
||||||
|
for arg_type in &arg_types {
|
||||||
|
if let Type::Function { effects, .. } = arg_type {
|
||||||
|
for effect in &effects.effects {
|
||||||
|
if self.inferring_effects {
|
||||||
|
self.inferred_effects.insert(effect.clone());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
let result_type = Type::var();
|
let result_type = Type::var();
|
||||||
let expected_fn = Type::function(arg_types, result_type.clone());
|
let expected_fn = Type::function(arg_types, result_type.clone());
|
||||||
|
|
||||||
@@ -2088,6 +2150,17 @@ impl TypeChecker {
|
|||||||
// Check argument types
|
// Check argument types
|
||||||
let arg_types: Vec<Type> = args.iter().map(|a| self.infer_expr(a)).collect();
|
let arg_types: Vec<Type> = args.iter().map(|a| self.infer_expr(a)).collect();
|
||||||
|
|
||||||
|
// Propagate effects from callback arguments to enclosing scope
|
||||||
|
for arg_type in &arg_types {
|
||||||
|
if let Type::Function { effects, .. } = arg_type {
|
||||||
|
for effect in &effects.effects {
|
||||||
|
if self.inferring_effects {
|
||||||
|
self.inferred_effects.insert(effect.clone());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
if arg_types.len() != op.params.len() {
|
if arg_types.len() != op.params.len() {
|
||||||
self.errors.push(TypeError {
|
self.errors.push(TypeError {
|
||||||
message: format!(
|
message: format!(
|
||||||
@@ -2410,7 +2483,7 @@ impl TypeChecker {
|
|||||||
Vec::new()
|
Vec::new()
|
||||||
}
|
}
|
||||||
|
|
||||||
Pattern::Constructor { name, fields, span } => {
|
Pattern::Constructor { name, fields, span, .. } => {
|
||||||
// Look up constructor
|
// Look up constructor
|
||||||
// For now, handle Option specially
|
// For now, handle Option specially
|
||||||
match name.name.as_str() {
|
match name.name.as_str() {
|
||||||
@@ -2528,12 +2601,47 @@ impl TypeChecker {
|
|||||||
self.infer_expr(result)
|
self.infer_expr(result)
|
||||||
}
|
}
|
||||||
|
|
||||||
fn infer_record(&mut self, fields: &[(Ident, Expr)], _span: Span) -> Type {
|
fn infer_record(
|
||||||
let field_types: Vec<(String, Type)> = fields
|
&mut self,
|
||||||
|
spread: Option<&Expr>,
|
||||||
|
fields: &[(Ident, Expr)],
|
||||||
|
span: Span,
|
||||||
|
) -> Type {
|
||||||
|
// Start with spread fields if present
|
||||||
|
let mut field_types: Vec<(String, Type)> = if let Some(spread_expr) = spread {
|
||||||
|
let spread_type = self.infer_expr(spread_expr);
|
||||||
|
let spread_type = self.env.expand_type_alias(&spread_type);
|
||||||
|
match spread_type {
|
||||||
|
Type::Record(spread_fields) => spread_fields,
|
||||||
|
_ => {
|
||||||
|
self.errors.push(TypeError {
|
||||||
|
message: format!(
|
||||||
|
"Spread expression must be a record type, got {}",
|
||||||
|
spread_type
|
||||||
|
),
|
||||||
|
span,
|
||||||
|
});
|
||||||
|
Vec::new()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
Vec::new()
|
||||||
|
};
|
||||||
|
|
||||||
|
// Apply explicit field overrides
|
||||||
|
let explicit_types: Vec<(String, Type)> = fields
|
||||||
.iter()
|
.iter()
|
||||||
.map(|(name, expr)| (name.name.clone(), self.infer_expr(expr)))
|
.map(|(name, expr)| (name.name.clone(), self.infer_expr(expr)))
|
||||||
.collect();
|
.collect();
|
||||||
|
|
||||||
|
for (name, typ) in explicit_types {
|
||||||
|
if let Some(existing) = field_types.iter_mut().find(|(n, _)| n == &name) {
|
||||||
|
existing.1 = typ;
|
||||||
|
} else {
|
||||||
|
field_types.push((name, typ));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
Type::Record(field_types)
|
Type::Record(field_types)
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -2899,6 +3007,9 @@ impl TypeChecker {
|
|||||||
"Option" if resolved_args.len() == 1 => {
|
"Option" if resolved_args.len() == 1 => {
|
||||||
return Type::Option(Box::new(resolved_args[0].clone()));
|
return Type::Option(Box::new(resolved_args[0].clone()));
|
||||||
}
|
}
|
||||||
|
"Map" if resolved_args.len() == 2 => {
|
||||||
|
return Type::Map(Box::new(resolved_args[0].clone()), Box::new(resolved_args[1].clone()));
|
||||||
|
}
|
||||||
_ => {}
|
_ => {}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
140
src/types.rs
140
src/types.rs
@@ -47,6 +47,8 @@ pub enum Type {
|
|||||||
List(Box<Type>),
|
List(Box<Type>),
|
||||||
/// Option type (sugar for App(Option, [T]))
|
/// Option type (sugar for App(Option, [T]))
|
||||||
Option(Box<Type>),
|
Option(Box<Type>),
|
||||||
|
/// Map type (sugar for App(Map, [K, V]))
|
||||||
|
Map(Box<Type>, Box<Type>),
|
||||||
/// Versioned type (e.g., User @v2)
|
/// Versioned type (e.g., User @v2)
|
||||||
Versioned {
|
Versioned {
|
||||||
base: Box<Type>,
|
base: Box<Type>,
|
||||||
@@ -119,6 +121,7 @@ impl Type {
|
|||||||
Type::Tuple(elements) => elements.iter().any(|e| e.contains_var(var)),
|
Type::Tuple(elements) => elements.iter().any(|e| e.contains_var(var)),
|
||||||
Type::Record(fields) => fields.iter().any(|(_, t)| t.contains_var(var)),
|
Type::Record(fields) => fields.iter().any(|(_, t)| t.contains_var(var)),
|
||||||
Type::List(inner) | Type::Option(inner) => inner.contains_var(var),
|
Type::List(inner) | Type::Option(inner) => inner.contains_var(var),
|
||||||
|
Type::Map(k, v) => k.contains_var(var) || v.contains_var(var),
|
||||||
Type::Versioned { base, .. } => base.contains_var(var),
|
Type::Versioned { base, .. } => base.contains_var(var),
|
||||||
_ => false,
|
_ => false,
|
||||||
}
|
}
|
||||||
@@ -158,6 +161,7 @@ impl Type {
|
|||||||
),
|
),
|
||||||
Type::List(inner) => Type::List(Box::new(inner.apply(subst))),
|
Type::List(inner) => Type::List(Box::new(inner.apply(subst))),
|
||||||
Type::Option(inner) => Type::Option(Box::new(inner.apply(subst))),
|
Type::Option(inner) => Type::Option(Box::new(inner.apply(subst))),
|
||||||
|
Type::Map(k, v) => Type::Map(Box::new(k.apply(subst)), Box::new(v.apply(subst))),
|
||||||
Type::Versioned { base, version } => Type::Versioned {
|
Type::Versioned { base, version } => Type::Versioned {
|
||||||
base: Box::new(base.apply(subst)),
|
base: Box::new(base.apply(subst)),
|
||||||
version: version.clone(),
|
version: version.clone(),
|
||||||
@@ -208,6 +212,11 @@ impl Type {
|
|||||||
vars
|
vars
|
||||||
}
|
}
|
||||||
Type::List(inner) | Type::Option(inner) => inner.free_vars(),
|
Type::List(inner) | Type::Option(inner) => inner.free_vars(),
|
||||||
|
Type::Map(k, v) => {
|
||||||
|
let mut vars = k.free_vars();
|
||||||
|
vars.extend(v.free_vars());
|
||||||
|
vars
|
||||||
|
}
|
||||||
Type::Versioned { base, .. } => base.free_vars(),
|
Type::Versioned { base, .. } => base.free_vars(),
|
||||||
_ => HashSet::new(),
|
_ => HashSet::new(),
|
||||||
}
|
}
|
||||||
@@ -279,6 +288,7 @@ impl fmt::Display for Type {
|
|||||||
}
|
}
|
||||||
Type::List(inner) => write!(f, "List<{}>", inner),
|
Type::List(inner) => write!(f, "List<{}>", inner),
|
||||||
Type::Option(inner) => write!(f, "Option<{}>", inner),
|
Type::Option(inner) => write!(f, "Option<{}>", inner),
|
||||||
|
Type::Map(k, v) => write!(f, "Map<{}, {}>", k, v),
|
||||||
Type::Versioned { base, version } => {
|
Type::Versioned { base, version } => {
|
||||||
write!(f, "{} {}", base, version)
|
write!(f, "{} {}", base, version)
|
||||||
}
|
}
|
||||||
@@ -946,6 +956,19 @@ impl TypeEnv {
|
|||||||
params: vec![("path".to_string(), Type::String)],
|
params: vec![("path".to_string(), Type::String)],
|
||||||
return_type: Type::Unit,
|
return_type: Type::Unit,
|
||||||
},
|
},
|
||||||
|
EffectOpDef {
|
||||||
|
name: "copy".to_string(),
|
||||||
|
params: vec![
|
||||||
|
("source".to_string(), Type::String),
|
||||||
|
("dest".to_string(), Type::String),
|
||||||
|
],
|
||||||
|
return_type: Type::Unit,
|
||||||
|
},
|
||||||
|
EffectOpDef {
|
||||||
|
name: "glob".to_string(),
|
||||||
|
params: vec![("pattern".to_string(), Type::String)],
|
||||||
|
return_type: Type::List(Box::new(Type::String)),
|
||||||
|
},
|
||||||
],
|
],
|
||||||
},
|
},
|
||||||
);
|
);
|
||||||
@@ -1533,6 +1556,26 @@ impl TypeEnv {
|
|||||||
Type::Unit,
|
Type::Unit,
|
||||||
),
|
),
|
||||||
),
|
),
|
||||||
|
(
|
||||||
|
"sort".to_string(),
|
||||||
|
Type::function(
|
||||||
|
vec![Type::List(Box::new(Type::var()))],
|
||||||
|
Type::List(Box::new(Type::var())),
|
||||||
|
),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"sortBy".to_string(),
|
||||||
|
{
|
||||||
|
let elem = Type::var();
|
||||||
|
Type::function(
|
||||||
|
vec![
|
||||||
|
Type::List(Box::new(elem.clone())),
|
||||||
|
Type::function(vec![elem.clone(), elem], Type::Int),
|
||||||
|
],
|
||||||
|
Type::List(Box::new(Type::var())),
|
||||||
|
)
|
||||||
|
},
|
||||||
|
),
|
||||||
]);
|
]);
|
||||||
env.bind("List", TypeScheme::mono(list_module_type));
|
env.bind("List", TypeScheme::mono(list_module_type));
|
||||||
|
|
||||||
@@ -1775,6 +1818,73 @@ impl TypeEnv {
|
|||||||
]);
|
]);
|
||||||
env.bind("Option", TypeScheme::mono(option_module_type));
|
env.bind("Option", TypeScheme::mono(option_module_type));
|
||||||
|
|
||||||
|
// Map module
|
||||||
|
let map_v = || Type::var();
|
||||||
|
let map_type = || Type::Map(Box::new(Type::String), Box::new(Type::var()));
|
||||||
|
let map_module_type = Type::Record(vec![
|
||||||
|
(
|
||||||
|
"new".to_string(),
|
||||||
|
Type::function(vec![], map_type()),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"set".to_string(),
|
||||||
|
Type::function(
|
||||||
|
vec![map_type(), Type::String, map_v()],
|
||||||
|
map_type(),
|
||||||
|
),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"get".to_string(),
|
||||||
|
Type::function(
|
||||||
|
vec![map_type(), Type::String],
|
||||||
|
Type::Option(Box::new(map_v())),
|
||||||
|
),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"contains".to_string(),
|
||||||
|
Type::function(vec![map_type(), Type::String], Type::Bool),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"remove".to_string(),
|
||||||
|
Type::function(vec![map_type(), Type::String], map_type()),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"keys".to_string(),
|
||||||
|
Type::function(vec![map_type()], Type::List(Box::new(Type::String))),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"values".to_string(),
|
||||||
|
Type::function(vec![map_type()], Type::List(Box::new(map_v()))),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"size".to_string(),
|
||||||
|
Type::function(vec![map_type()], Type::Int),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"isEmpty".to_string(),
|
||||||
|
Type::function(vec![map_type()], Type::Bool),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"fromList".to_string(),
|
||||||
|
Type::function(
|
||||||
|
vec![Type::List(Box::new(Type::Tuple(vec![Type::String, map_v()])))],
|
||||||
|
map_type(),
|
||||||
|
),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"toList".to_string(),
|
||||||
|
Type::function(
|
||||||
|
vec![map_type()],
|
||||||
|
Type::List(Box::new(Type::Tuple(vec![Type::String, map_v()]))),
|
||||||
|
),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"merge".to_string(),
|
||||||
|
Type::function(vec![map_type(), map_type()], map_type()),
|
||||||
|
),
|
||||||
|
]);
|
||||||
|
env.bind("Map", TypeScheme::mono(map_module_type));
|
||||||
|
|
||||||
// Result module
|
// Result module
|
||||||
let result_type = Type::App {
|
let result_type = Type::App {
|
||||||
constructor: Box::new(Type::Named("Result".to_string())),
|
constructor: Box::new(Type::Named("Result".to_string())),
|
||||||
@@ -1887,6 +1997,18 @@ impl TypeEnv {
|
|||||||
"round".to_string(),
|
"round".to_string(),
|
||||||
Type::function(vec![Type::var()], Type::Int),
|
Type::function(vec![Type::var()], Type::Int),
|
||||||
),
|
),
|
||||||
|
(
|
||||||
|
"sin".to_string(),
|
||||||
|
Type::function(vec![Type::Float], Type::Float),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"cos".to_string(),
|
||||||
|
Type::function(vec![Type::Float], Type::Float),
|
||||||
|
),
|
||||||
|
(
|
||||||
|
"atan2".to_string(),
|
||||||
|
Type::function(vec![Type::Float, Type::Float], Type::Float),
|
||||||
|
),
|
||||||
]);
|
]);
|
||||||
env.bind("Math", TypeScheme::mono(math_module_type));
|
env.bind("Math", TypeScheme::mono(math_module_type));
|
||||||
|
|
||||||
@@ -1896,6 +2018,10 @@ impl TypeEnv {
|
|||||||
"toString".to_string(),
|
"toString".to_string(),
|
||||||
Type::function(vec![Type::Int], Type::String),
|
Type::function(vec![Type::Int], Type::String),
|
||||||
),
|
),
|
||||||
|
(
|
||||||
|
"toFloat".to_string(),
|
||||||
|
Type::function(vec![Type::Int], Type::Float),
|
||||||
|
),
|
||||||
]);
|
]);
|
||||||
env.bind("Int", TypeScheme::mono(int_module_type));
|
env.bind("Int", TypeScheme::mono(int_module_type));
|
||||||
|
|
||||||
@@ -1905,6 +2031,10 @@ impl TypeEnv {
|
|||||||
"toString".to_string(),
|
"toString".to_string(),
|
||||||
Type::function(vec![Type::Float], Type::String),
|
Type::function(vec![Type::Float], Type::String),
|
||||||
),
|
),
|
||||||
|
(
|
||||||
|
"toInt".to_string(),
|
||||||
|
Type::function(vec![Type::Float], Type::Int),
|
||||||
|
),
|
||||||
]);
|
]);
|
||||||
env.bind("Float", TypeScheme::mono(float_module_type));
|
env.bind("Float", TypeScheme::mono(float_module_type));
|
||||||
|
|
||||||
@@ -1991,6 +2121,9 @@ impl TypeEnv {
|
|||||||
Type::Option(inner) => {
|
Type::Option(inner) => {
|
||||||
Type::Option(Box::new(self.expand_type_alias(inner)))
|
Type::Option(Box::new(self.expand_type_alias(inner)))
|
||||||
}
|
}
|
||||||
|
Type::Map(k, v) => {
|
||||||
|
Type::Map(Box::new(self.expand_type_alias(k)), Box::new(self.expand_type_alias(v)))
|
||||||
|
}
|
||||||
Type::Versioned { base, version } => {
|
Type::Versioned { base, version } => {
|
||||||
Type::Versioned {
|
Type::Versioned {
|
||||||
base: Box::new(self.expand_type_alias(base)),
|
base: Box::new(self.expand_type_alias(base)),
|
||||||
@@ -2151,6 +2284,13 @@ pub fn unify(t1: &Type, t2: &Type) -> Result<Substitution, String> {
|
|||||||
// Option
|
// Option
|
||||||
(Type::Option(a), Type::Option(b)) => unify(a, b),
|
(Type::Option(a), Type::Option(b)) => unify(a, b),
|
||||||
|
|
||||||
|
// Map
|
||||||
|
(Type::Map(k1, v1), Type::Map(k2, v2)) => {
|
||||||
|
let s1 = unify(k1, k2)?;
|
||||||
|
let s2 = unify(&v1.apply(&s1), &v2.apply(&s1))?;
|
||||||
|
Ok(s1.compose(&s2))
|
||||||
|
}
|
||||||
|
|
||||||
// Versioned types
|
// Versioned types
|
||||||
(
|
(
|
||||||
Type::Versioned {
|
Type::Versioned {
|
||||||
|
|||||||
@@ -14,6 +14,7 @@
|
|||||||
pub type Html<M> =
|
pub type Html<M> =
|
||||||
| Element(String, List<Attr<M>>, List<Html<M>>)
|
| Element(String, List<Attr<M>>, List<Html<M>>)
|
||||||
| Text(String)
|
| Text(String)
|
||||||
|
| RawHtml(String)
|
||||||
| Empty
|
| Empty
|
||||||
|
|
||||||
// Attributes that can be applied to elements
|
// Attributes that can be applied to elements
|
||||||
@@ -41,6 +42,7 @@ pub type Attr<M> =
|
|||||||
| OnKeyDown(fn(String): M)
|
| OnKeyDown(fn(String): M)
|
||||||
| OnKeyUp(fn(String): M)
|
| OnKeyUp(fn(String): M)
|
||||||
| DataAttr(String, String)
|
| DataAttr(String, String)
|
||||||
|
| Attribute(String, String)
|
||||||
|
|
||||||
// ============================================================================
|
// ============================================================================
|
||||||
// Element builders - Container elements
|
// Element builders - Container elements
|
||||||
@@ -180,6 +182,28 @@ pub fn video<M>(attrs: List<Attr<M>>, children: List<Html<M>>): Html<M> =
|
|||||||
pub fn audio<M>(attrs: List<Attr<M>>, children: List<Html<M>>): Html<M> =
|
pub fn audio<M>(attrs: List<Attr<M>>, children: List<Html<M>>): Html<M> =
|
||||||
Element("audio", attrs, children)
|
Element("audio", attrs, children)
|
||||||
|
|
||||||
|
// ============================================================================
|
||||||
|
// Element builders - Document / Head elements
|
||||||
|
// ============================================================================
|
||||||
|
|
||||||
|
pub fn meta<M>(attrs: List<Attr<M>>): Html<M> =
|
||||||
|
Element("meta", attrs, [])
|
||||||
|
|
||||||
|
pub fn link<M>(attrs: List<Attr<M>>): Html<M> =
|
||||||
|
Element("link", attrs, [])
|
||||||
|
|
||||||
|
pub fn script<M>(attrs: List<Attr<M>>, children: List<Html<M>>): Html<M> =
|
||||||
|
Element("script", attrs, children)
|
||||||
|
|
||||||
|
pub fn iframe<M>(attrs: List<Attr<M>>, children: List<Html<M>>): Html<M> =
|
||||||
|
Element("iframe", attrs, children)
|
||||||
|
|
||||||
|
pub fn figure<M>(attrs: List<Attr<M>>, children: List<Html<M>>): Html<M> =
|
||||||
|
Element("figure", attrs, children)
|
||||||
|
|
||||||
|
pub fn figcaption<M>(attrs: List<Attr<M>>, children: List<Html<M>>): Html<M> =
|
||||||
|
Element("figcaption", attrs, children)
|
||||||
|
|
||||||
// ============================================================================
|
// ============================================================================
|
||||||
// Element builders - Tables
|
// Element builders - Tables
|
||||||
// ============================================================================
|
// ============================================================================
|
||||||
@@ -285,6 +309,12 @@ pub fn onKeyUp<M>(h: fn(String): M): Attr<M> =
|
|||||||
pub fn data<M>(name: String, value: String): Attr<M> =
|
pub fn data<M>(name: String, value: String): Attr<M> =
|
||||||
DataAttr(name, value)
|
DataAttr(name, value)
|
||||||
|
|
||||||
|
pub fn attr<M>(name: String, value: String): Attr<M> =
|
||||||
|
Attribute(name, value)
|
||||||
|
|
||||||
|
pub fn rawHtml<M>(content: String): Html<M> =
|
||||||
|
RawHtml(content)
|
||||||
|
|
||||||
// ============================================================================
|
// ============================================================================
|
||||||
// Utility functions
|
// Utility functions
|
||||||
// ============================================================================
|
// ============================================================================
|
||||||
@@ -319,6 +349,7 @@ pub fn renderAttr<M>(attr: Attr<M>): String =
|
|||||||
Checked(false) => "",
|
Checked(false) => "",
|
||||||
Name(n) => " name=\"" + n + "\"",
|
Name(n) => " name=\"" + n + "\"",
|
||||||
DataAttr(name, value) => " data-" + name + "=\"" + value + "\"",
|
DataAttr(name, value) => " data-" + name + "=\"" + value + "\"",
|
||||||
|
Attribute(name, value) => " " + name + "=\"" + value + "\"",
|
||||||
// Event handlers are ignored in static rendering
|
// Event handlers are ignored in static rendering
|
||||||
OnClick(_) => "",
|
OnClick(_) => "",
|
||||||
OnInput(_) => "",
|
OnInput(_) => "",
|
||||||
@@ -355,6 +386,7 @@ pub fn render<M>(html: Html<M>): String =
|
|||||||
}
|
}
|
||||||
},
|
},
|
||||||
Text(content) => escapeHtml(content),
|
Text(content) => escapeHtml(content),
|
||||||
|
RawHtml(content) => content,
|
||||||
Empty => ""
|
Empty => ""
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -368,15 +400,47 @@ pub fn escapeHtml(s: String): String = {
|
|||||||
s4
|
s4
|
||||||
}
|
}
|
||||||
|
|
||||||
// Render a full HTML document
|
// Render a full HTML document (basic)
|
||||||
pub fn document(title: String, headExtra: List<Html<M>>, bodyContent: List<Html<M>>): String = {
|
pub fn document(title: String, headExtra: List<Html<M>>, bodyContent: List<Html<M>>): String = {
|
||||||
let headElements = List.concat([
|
let headElements = List.concat([
|
||||||
[Element("meta", [DataAttr("charset", "UTF-8")], [])],
|
[Element("meta", [Attribute("charset", "UTF-8")], [])],
|
||||||
[Element("meta", [Name("viewport"), Value("width=device-width, initial-scale=1.0")], [])],
|
[Element("meta", [Name("viewport"), Attribute("content", "width=device-width, initial-scale=1.0")], [])],
|
||||||
[Element("title", [], [Text(title)])],
|
[Element("title", [], [Text(title)])],
|
||||||
headExtra
|
headExtra
|
||||||
])
|
])
|
||||||
let doc = Element("html", [DataAttr("lang", "en")], [
|
let doc = Element("html", [Attribute("lang", "en")], [
|
||||||
|
Element("head", [], headElements),
|
||||||
|
Element("body", [], bodyContent)
|
||||||
|
])
|
||||||
|
"<!DOCTYPE html>\n" + render(doc)
|
||||||
|
}
|
||||||
|
|
||||||
|
// Render a full HTML document with SEO meta tags
|
||||||
|
pub fn seoDocument(
|
||||||
|
title: String,
|
||||||
|
description: String,
|
||||||
|
url: String,
|
||||||
|
ogImage: String,
|
||||||
|
headExtra: List<Html<M>>,
|
||||||
|
bodyContent: List<Html<M>>
|
||||||
|
): String = {
|
||||||
|
let headElements = List.concat([
|
||||||
|
[Element("meta", [Attribute("charset", "UTF-8")], [])],
|
||||||
|
[Element("meta", [Name("viewport"), Attribute("content", "width=device-width, initial-scale=1.0")], [])],
|
||||||
|
[Element("title", [], [Text(title)])],
|
||||||
|
[Element("meta", [Name("description"), Attribute("content", description)], [])],
|
||||||
|
[Element("meta", [Attribute("property", "og:title"), Attribute("content", title)], [])],
|
||||||
|
[Element("meta", [Attribute("property", "og:description"), Attribute("content", description)], [])],
|
||||||
|
[Element("meta", [Attribute("property", "og:type"), Attribute("content", "website")], [])],
|
||||||
|
[Element("meta", [Attribute("property", "og:url"), Attribute("content", url)], [])],
|
||||||
|
[Element("meta", [Attribute("property", "og:image"), Attribute("content", ogImage)], [])],
|
||||||
|
[Element("meta", [Name("twitter:card"), Attribute("content", "summary_large_image")], [])],
|
||||||
|
[Element("meta", [Name("twitter:title"), Attribute("content", title)], [])],
|
||||||
|
[Element("meta", [Name("twitter:description"), Attribute("content", description)], [])],
|
||||||
|
[Element("link", [Attribute("rel", "canonical"), Href(url)], [])],
|
||||||
|
headExtra
|
||||||
|
])
|
||||||
|
let doc = Element("html", [Attribute("lang", "en")], [
|
||||||
Element("head", [], headElements),
|
Element("head", [], headElements),
|
||||||
Element("body", [], bodyContent)
|
Element("body", [], bodyContent)
|
||||||
])
|
])
|
||||||
|
|||||||
@@ -625,6 +625,41 @@ pub fn router(routes: List<Route>, notFound: fn(Request): Response): Handler =
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// ============================================================
|
||||||
|
// Static File Serving
|
||||||
|
// ============================================================
|
||||||
|
|
||||||
|
// Serve a static file from disk
|
||||||
|
pub fn serveStaticFile(basePath: String, requestPath: String): Response with {File} = {
|
||||||
|
let filePath = basePath + requestPath
|
||||||
|
if File.exists(filePath) then {
|
||||||
|
let content = File.read(filePath)
|
||||||
|
let mime = getMimeType(filePath)
|
||||||
|
{ status: 200, headers: [("Content-Type", mime)], body: content }
|
||||||
|
} else
|
||||||
|
{ status: 404, headers: textHeaders(), body: "Not Found" }
|
||||||
|
}
|
||||||
|
|
||||||
|
// ============================================================
|
||||||
|
// Form Body Parsing
|
||||||
|
// ============================================================
|
||||||
|
|
||||||
|
// Parse URL-encoded form body (same format as query strings)
|
||||||
|
pub fn parseFormBody(body: String): List<(String, String)> =
|
||||||
|
parseQueryParams(body)
|
||||||
|
|
||||||
|
// Get a form field value by name
|
||||||
|
pub fn getFormField(fields: List<(String, String)>, name: String): Option<String> =
|
||||||
|
getParam(fields, name)
|
||||||
|
|
||||||
|
// ============================================================
|
||||||
|
// Response Helpers
|
||||||
|
// ============================================================
|
||||||
|
|
||||||
|
// Send a Response using HttpServer effect (convenience wrapper)
|
||||||
|
pub fn sendResponse(resp: Response): Unit with {HttpServer} =
|
||||||
|
HttpServer.respondWithHeaders(resp.status, resp.body, resp.headers)
|
||||||
|
|
||||||
// ============================================================
|
// ============================================================
|
||||||
// Example Usage
|
// Example Usage
|
||||||
// ============================================================
|
// ============================================================
|
||||||
|
|||||||
Reference in New Issue
Block a user