Skip to content

unit Atom

em.lang/Atom.em
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
package em.lang

module Atom

    config NULL_A: atom_t = @"<<null>>"
    config UNDEFINED_A: atom_t = @"<<undefined>>"

    function fromString(str: string, oatom: atom_t*): bool
    function hasTable(): bool
    function toString(atom: atom_t): string

private:

    const MASK: addr_t = 0x80000000

    config tableFlag: bool

end

def em$construct()
    tableFlag = ^^!!em$props.get(em$session.PROP_ATOM_TABLE)^^
end

def fromString(str, oatom)
    auto saddr = <addr_t>str
    return false if tableFlag || (saddr & MASK) == 0
    *oatom = <atom_t>saddr
    return true
end

def hasTable()
    return tableFlag
end

def toString(atom)
    return tableFlag ? ^^em$atoms[atom]^^ : <string>((<addr_t>atom) | MASK)
end