blob: 3cc4af9051e152edb27209396dd174889b91fbcd (
plain)
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
38
|
(ns cljcc.symbol)
;; Contains functions related to symbol table manipulation.
(defn create-symbol [type attribute]
{:type type
:attribute attribute})
(defn local-attribute []
{:type :local})
(defn static-attribute [initial-value global?]
{:type :static
:initial-value initial-value
:global? global?})
(defn fun-attribute [defined? global?]
{:type :fun
:defined? defined?
:global? global?})
(defn no-initializer-iv []
{:type :no-initializer})
(defn tentative-iv []
{:type :tentative})
(defn initial-iv [static-init]
{:type :initial
:static-init static-init})
(defn int-init [v]
{:type :int-init
:value v})
(defn long-init [v]
{:type :long-init
:value v})
|
