时刻

Absolute point-in-time primitive with precision contract.

Syntax: 时刻 | 时刻<ms> | 时刻<us> | 时刻<ns>

Category#

conversion

Related#

• ↦
• ⊥
• 文本

Examples#

radix/corpus/conversio/instans.fab (canonical · conversio)#

Conversio arms for 时刻 precision family and 文本 datetime provenance.

# =============================================================================
# 时刻 — Conversio arms for 时刻 precision family and 文本 datetime provenance.
# =============================================================================
#
# What this teaches:
#   • Precision family — `时刻<ms>`, `时刻<us>`, `时刻<ns>` let you choose sub-second precision on datetime 变换.
#   • Widening vs narrowing — coarse→fine widening is lossless; fine→coarse narrowing truncates sub-second bits.
#   • RFC3339 roundtrip — text→时刻 parses, 时刻→文本 emits at the declared precision without fabricated digits.
#
# Common mistakes:
#   • Converting `时刻<ns>` to `时刻` and expecting sub-second precision in the text output — fine→coarse narrowing truncates sub-second bits.
#
# See also: ↦, ⊥, 文本
# =============================================================================

# 转换 — 时刻 precision family and 动态值 provenance
#
# WHY: `文本 ↦ 时刻<N>` restores datetime provenance from wire carriers;
# `时刻 ↔ 时刻` re-tags precision; `时刻 ↦ 文本` emits RFC3339 UTC
# at the declared precision contract (no fabricated sub-precision digits).
#
# 文本 ↦ 时刻<N>    — RFC3339 wire per target precision
# 时刻 ↦ 时刻<ms>  — coarse→fine widening (lossless at storage)
# 时刻<ns> ↦ 时刻    — fine→coarse narrowing (truncates sub-second bits)
# 时刻 ↦ 文本        — precision-honoring RFC3339 `Z` emit
# 文本 ↦ 时刻 ⊥ …     — explicit recovery when wire is not a datetime

main {
    const string utc ← "1979-05-27T07:32:00.123456Z"
    const string offset ← "1979-05-27T16:32:00+0900"
    const instant seconds ← utc ↦ instant
    const instant<ms> millis ← seconds ↦ instant<ms>
    const instant<us> micros ← utc ↦ instant<us>
    const instant<ns> nanos ← utc ↦ instant<ns>
    const instant normalized ← offset ↦ instant
    assert (millis ↦ string) ≡ "1979-05-27T07:32:00.000Z"
    assert (micros ↦ string) ≡ "1979-05-27T07:32:00.123456Z"
    assert normalized ≡ seconds panic "offset ingest lands on same UTC instant"
    const instant<ns> fine ← nanos
    const instant narrowed ← fine ↦ instant
    assert (narrowed ↦ string) ≡ "1979-05-27T07:32:00Z"
    const string bad ← "not-a-datetime"
    const instant recovered ← bad ↦ instant ⊥ seconds
    assert recovered ≡ seconds
    print seconds ↦ string
    print millis ↦ string
    print micros ↦ string
    print nanos ↦ string
    print narrowed ↦ string
}

Expected output:

1979-05-27T07:32:00Z
1979-05-27T07:32:00.000Z
1979-05-27T07:32:00.123456Z
1979-05-27T07:32:00.123456000Z
1979-05-27T07:32:00Z

radix/corpus/instans/instans.fab (canonical · keyword)#

Absolute point-in-time primitive with precision contract.

# =============================================================================
# 时刻 — Absolute point-in-time primitive with precision contract
# =============================================================================
#
# What this teaches:
#   • Absolute point-in-time primitive with precision contract.
#   • Related keywords: ↦, ⊥, 文本
#
# Common mistakes:
#   • Using `时刻 ∷ T` (static ascription) instead of `时刻 ↦ T` (runtime 变换) — use `↦` for runtime datetime parsing and extraction (SEM016).
#
# See also: ↦, ⊥, 文本
# =============================================================================

# 时刻 — wall clock, precision contract, offset ingest, TOML provenance
#
# GRAMMAR:
#   时刻 | 时刻<ms> | 时刻<us> | 时刻<ns>
#   tempus.now() → 时刻<ns>; downconvert at use site
#   动态值 ↦ 时刻<N> | 时刻 ↦ 文本
#
# EXPECTED OUTPUT:
#   Smoke asserts exit 0 only.

import from "norma:time" tempus

import from "norma:toml" toml

import from "norma:value" 动态值

fn epoch_wire(instant t) → string {
    return t ↦ string
}

main {
    # --- precision declarations from canonical nanosecond wall clock ---
    const instant<ns> nanos ← tempus.now()
    const instant secunda ← nanos ↦ instant
    const instant<ms> millis ← nanos ↦ instant<ms>
    const instant<us> micros ← nanos ↦ instant<us>

    # --- 动态值 ↦ 时刻: UTC wire and numeric offset normalize to same instant ---
    const value utc ← "1979-05-27T07:32:00Z"
    const value offset ← "1979-05-27T03:32:00-04:00"
    const instant parsed ← utc ↦ instant
    const instant normalized ← offset ↦ instant
    assert parsed ≡ normalized panic "offset ingest normalizes to UTC instant"

    # --- TOML datetime provenance (Valor::Instans carrier, not 文本) ---
    const value doc ← toml.parse("creatus = 1979-05-27T07:32:00.123456Z")
    const value carrier ← valor.get(doc, "creatus")
    const instant<us> fromToml ← carrier ↦ instant<us>
    assert (fromToml ↦ string) ≡ "1979-05-27T07:32:00.123456Z" panic "emit honors micros contract"

    # --- precision-tagged equality: distinct at ns, equal at ms ---
    const value leftWire ← "1979-05-27T07:32:00.123456Z"
    const value rightWire ← "1979-05-27T07:32:00.123999Z"
    const instant<ns> left ← leftWire ↦ instant<ns>
    const instant<ns> right ← rightWire ↦ instant<ns>
    assert left ≠ right panic "sub-millisecond bits differ at nanosecond precision"
    const instant<ms> leftMs ← left ↦ instant<ms>
    const instant<ms> rightMs ← right ↦ instant<ms>
    assert leftMs ≡ rightMs panic "same millisecond at declared ms precision"

    # --- cross-precision 转换: widen and narrow with observable truncation ---
    const instant<ns> fine ← parsed ↦ instant<ns>
    const instant<ms> coarse ← fine ↦ instant<ms>
    const instant seconds ← fine ↦ instant
    assert (seconds ↦ string) ≡ "1979-05-27T07:32:00Z" panic "narrow to seconds strips sub-second wire"
    const instant<ms> wider ← secunda ↦ instant<ms>
    assert wider ≤ millis panic "cross-precision comparison at coarser operand"

    # --- wire emit and parse-back via TOML (same instant) ---
    const string wire ← epoch_wire(parsed)
    const value replayDoc ← toml.parse("creatus = 1979-05-27T07:32:00Z")
    const value replayCarrier ← valor.get(replayDoc, "creatus")
    const instant roundtrip ← replayCarrier ↦ instant
    assert roundtrip ≡ parsed panic "TOML ingest roundtrip matches UTC valor extract"
    assert wire ≡ "1979-05-27T07:32:00Z" panic "seconds-precision wire emit"
    print wire, secunda, millis, micros, nanos, fromToml, coarse
}