diff options
| author | Shagun Agrawal <agrawalshagun07@gmail.com> | 2024-08-30 18:49:17 +0530 |
|---|---|---|
| committer | Shagun Agrawal <agrawalshagun07@gmail.com> | 2024-08-30 18:49:17 +0530 |
| commit | 276b0c200e5159b1d099ff85aab544480c2ac757 (patch) | |
| tree | 8cb86289809936901b2a49344818528799fa81da /src/cljcc/analyzer.clj | |
| parent | 7a3e7151ea7e05952ec58648d71d9ed33168109d (diff) | |
Add compound assignment operators
Added compound assignment operators ( >>==, += etc )
Pass chapter 5 extra credit tests
Diffstat (limited to 'src/cljcc/analyzer.clj')
| -rw-r--r-- | src/cljcc/analyzer.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/cljcc/analyzer.clj b/src/cljcc/analyzer.clj index 504e8ab..7d82f53 100644 --- a/src/cljcc/analyzer.clj +++ b/src/cljcc/analyzer.clj @@ -16,10 +16,12 @@ (throw (ex-info "Undeclared variable seen." {:variable e}))) :assignment-exp (let [left (:left e) right (:right e) + op (:assignment-operator e) left-var? (= :variable-exp (:exp-type left))] (if left-var? (p/assignment-exp-node (resolve-exp left mp) - (resolve-exp right mp)) + (resolve-exp right mp) + op) (throw (ex-info "Invalid lvalue." {:lvalue e})))) :binary-exp (p/binary-exp-node (resolve-exp (:left e) mp) (resolve-exp (:right e) mp) @@ -33,8 +35,6 @@ (let [ident (:identifier d) unique-name (unique-identifier ident) updated-mp (assoc mp ident unique-name) - _ (pp/pprint mp) - _ (pp/pprint updated-mp) init (when (:initial d) (resolve-exp (:initial d) updated-mp))] (if init {:declaration (p/declaration-node unique-name init) |