bahasa-simpl 1.0.6 → 1.0.8

package/README.md

@@ -16,7 +16,6 @@ Berikut fitur yang _sekarang_ sudah diimplementasikan:
 - **Semua** kata kunci berjumlah 5 huruf dan dalam bahasa Indonesia 
 
 Fitur yang akan datang:
-- Website untuk menjalankan `simpl`
 - dokumentasi penuh
 - Pembersihan dan perapihan kode sumber :')
 - Pengecekan sebelum eksekusi (Analisa semantik)
@@ -114,7 +113,7 @@ Pengguna lain = Pengguna.baru("Hengker Anongnimus")
 cetak Pengguna.kepetik(admin)
 # "{ nama: zie, id: 0, status: online }"
 
-cetak Pengguna.kePetik(lain)
+cetak lain.kePetik()
 # "{ nama: Hengker Anongnimus, id: 1, status: online }"
 ```
 
@@ -124,4 +123,4 @@ cetak Pengguna.kePetik(lain)
 - [https://ruslanspivak.com/lsbasi-part1/](https://ruslanspivak.com/lsbasi-part1/)
 - [https://craftinginterpreters.com/](https://craftinginterpreters.com/)
 
-(No AI was used while making this, the proof is apparent in the spaghetti codebase)
+

package/dist/simpl-interpreter.js

@@ -88,38 +88,38 @@ class Stipe extends Variable {
 
 }
 
+function kePetik(v, thing) {
+    if (thing.type === logisSymbol) {
+        return thing.data ? "benar" : "salah";
+    } else if (thing.type === barisSymbol) {
+        return '[' + thing.data.reduce((str, val) => {
+            let item = kePetik(v, val);
+            return str + ", " + (val.type === Value.petikSymbol ? `"${item}"` : item);
+        }, "").slice(1) + ' ]';
+    } else if (thing.type === stipeSymbol) {
+        return `Model<${thing.symbol.description}>`;
+    } else if (thing.type === mesinSymbol) {
+        let underlying = thing.data.returnType?.description;
+        return `Mesin<${underlying ? underlying : 'datum'}>`;
+    } else if (thing.type === angkaSymbol) {
+        return thing.data.toString();
+    } else if (thing.type === petikSymbol) {
+        return '"' + thing.data + '"';
+    } else {
+        if (!thing?.type) return `nihil`;
+        let type = v.environment.get(thing.type.description);
+        if (type?.member.has("kePetik")) {
+            let res = v.callFunc(type.member.get("kePetik").data, [thing]).data;
+            return res;
+        }
+        return `${thing.type.description}<>`;
+    }
+}
+
 class PetikTipe extends Stipe {
     constructor() {
-        super(petikSymbol, new Callable(null, (v, args) => {
-            const kePetik = (thing) => {
-                if (thing.type === logisSymbol) {
-                    return thing.data ? "benar" : "salah";
-                } else if (thing.type === barisSymbol) {
-                    return '[' + thing.data.reduce((str, val) => str + ", " + kePetik(val), "").slice(1) + ' ]';
-                } else if (thing.type === stipeSymbol) {
-                    return `Model<${thing.symbol.description}>`;
-                } else if (thing.type === mesinSymbol) {
-                    let underlying = thing.data.returnType?.description;
-                    return `Mesin<${underlying ? underlying : 'datum'}>`;
-                } else if (thing.type === angkaSymbol) {
-                    return thing.data.toString();
-                } else if (thing.type === petikSymbol) {
-                    return '"' + thing.data + '"';
-                } else {
-                    if (!thing?.type) return `nihil`;
-                    let type = v.environment.get(thing.type.description);
-                    if (type?.member.has("kePetik")) {
-                        v.stack.push(v.line);
-                        let res = v.callFunc(type.member.get("kePetik").data, [thing]).data;
-                        v.stack.pop();
-                        return res;
-                    }
-                    return `${thing.type.description}<>`;
-                }
-            };
-            return new Value(petikSymbol, kePetik(args[0]));
-        }, [[null]], petikSymbol, true)
-        );
+        super(petikSymbol, new Callable(null, (v, args) => new Value(petikSymbol, kePetik(v, args[0])), 
+            [[null]], petikSymbol, true) );
         this.init();
     }
 
@@ -147,6 +147,9 @@ class PetikTipe extends Stipe {
         this.member.define("SERU_UNER",
             makeBuiltInFunc([petikSymbol], logisSymbol, (_, [r]) => new Value(logisSymbol, !Boolean(r.data))));
 
+        this.member.define("kePetik", 
+            makeBuiltInFunc([petikSymbol], petikSymbol, (v, [p]) => new Value(petikSymbol, kePetik(v, p))));
+
         this.member.define("pisah", makeBuiltInFunc([petikSymbol, petikSymbol], barisSymbol, (_, [d, sep]) => {
             return new Value(barisSymbol, d.data.split(sep.data).map(val => new Value(petikSymbol, val)));
         }));
@@ -226,6 +229,9 @@ class AngkaTipe extends Stipe {
         this.member.define("MINUS_UNER",
             makeBuiltInFunc([angkaSymbol], angkaSymbol, (_, [r]) => new Value(angkaSymbol, -r.data)));
 
+        this.member.define("kePetik", 
+            makeBuiltInFunc([angkaSymbol], petikSymbol, (v, [a]) => new Value(petikSymbol, kePetik(v, a))));
+
         this.member.define("bulat", makeBuiltInFunc([angkaSymbol], angkaSymbol, (_, [a]) => {
             return new Value(angkaSymbol, Math.round(a.data));
         }));
@@ -241,7 +247,10 @@ class AngkaTipe extends Stipe {
 class LogisTipe extends Stipe {
     constructor() {
         super(logisSymbol, new Callable(null, (_, args) => {
-            return new Value(logisSymbol, Boolean(args[0].data) || Boolean(args[0].data.member.size));
+            if (args[0].type === barisSymbol && args[0].data.length === 0) {
+                return new Value(logisSymbol, false);
+            }
+            return new Value(logisSymbol, Boolean(args[0].data) || Boolean(args[0].data?.member?.size));
         }, [[null]], logisSymbol, true)
         );
         this.init();
@@ -258,6 +267,9 @@ class LogisTipe extends Stipe {
             makeBuiltInFunc([logisSymbol, logisSymbol], logisSymbol, (_, [r, l]) => new Value(logisSymbol, l.data || r.data)));
         this.member.define("SERU_UNER",
             makeBuiltInFunc([logisSymbol], logisSymbol, (_, [r]) => new Value(logisSymbol, !Boolean(r.data))));
+
+        this.member.define("kePetik", 
+            makeBuiltInFunc([logisSymbol], petikSymbol, (v, [l]) => new Value(petikSymbol, kePetik(v, l))));
     }
 }
 
@@ -268,6 +280,13 @@ class BarisTipe extends Stipe {
     }
 
     init() {
+        const valueToVariableDatum = (d) => {
+            let input = new Variable(d.type, false, d.data);
+            input.member = d.member;
+            input.isDatum = true;
+            return input;
+        };
+
         this.member.define("PLUS",
             makeBuiltInFunc([barisSymbol, barisSymbol], barisSymbol, (_, [r, l]) =>
                 new Value(barisSymbol, Array(...l.data, ...r.data))
@@ -305,6 +324,9 @@ class BarisTipe extends Stipe {
         this.member.define("SERU_UNER",
             makeBuiltInFunc([barisSymbol], logisSymbol, (_, [r]) => new Value(logisSymbol, !Boolean(r.data))));
 
+        this.member.define("kePetik", 
+            makeBuiltInFunc([barisSymbol], petikSymbol, (v, [p]) => new Value(petikSymbol, kePetik(v, p))));
+
         this.member.define("hapus", makeBuiltInFunc([barisSymbol, angkaSymbol], barisSymbol, (v, [b, i]) => {
             if (b.data.length <= i.data) {
                 v.error(`Indeks tidak boleh lebih besar atau sama dengan ukuran baris, ${i.data} >= ${b.data.length}`);
@@ -317,12 +339,12 @@ class BarisTipe extends Stipe {
 
         this.member.define("potongan", makeBuiltInFunc([barisSymbol, angkaSymbol, angkaSymbol], barisSymbol, (v, [b, fr, to]) => {
             if (fr.data >= b.data.length || fr.data < 0 || to.data <= fr.data || to.data > b.data.length) {
-                v.error(`Indeks tidak valid, ${fr.data}:${to.data}, dengan ukuran baris ${b.data.length}`);
+                v.error(`Indeks tidak valid, ${fr.data} sampai ${to.data}, dengan ukuran baris ${b.data.length}`);
             }
             return new Value(barisSymbol, b.data.slice(fr.data, to.data));
         }));
         this.member.define("tumpuk", makeBuiltInFunc([barisSymbol, null], null, (_, [b, d]) => {
-            b.data.push(d);
+            b.data.push(valueToVariableDatum(d));
             return b;
         }));
         this.member.define("tumpah", makeBuiltInFunc([barisSymbol], null, (_, [b]) => {
@@ -333,14 +355,14 @@ class BarisTipe extends Stipe {
             if (idx.data > b.data.length) {
                 v.error(`Indeks tidak valid, ${idx.data}, dengan ukuran baris ${b.data.length}`);
             }
-            b.data.splice(idx.data, 0, d);
+            b.data.splice(idx.data, 0, valueToVariableDatum(d));
             return b;
         }));
         this.member.define("petakan", makeBuiltInFunc([barisSymbol, mesinSymbol], barisSymbol, (v, [b, m]) => {
             let newBaris = new Value(barisSymbol, []);
             for (let datum of b.data) {
                 let result = v.callFunc(m.data, [datum]);
-                newBaris.data.push(result);
+                newBaris.data.push(valueToVariableDatum(result));
             }
             return newBaris;
         }));
@@ -349,7 +371,7 @@ class BarisTipe extends Stipe {
             for (let datum of b.data) {
                 let result = v.callFunc(m.data, [datum]);
                 if (result.data === true) {
-                    newBaris.data.push(datum);
+                    newBaris.data.push(valueToVariableDatum(datum));
                 }
             }
             return newBaris;
@@ -361,13 +383,33 @@ class BarisTipe extends Stipe {
             }
             return d;
         }));
+
+        this.member.define("punya?", makeBuiltInFunc([barisSymbol, null], logisSymbol, (v, [b, d]) => {
+            let type = v.environment.get(d.type?.description);
+            if (!type) 
+                v.error(`Tipe tidak ditemukan atau tidak valid`);
+            let equalFunc;
+            if (type.member?.has("SAMA_SAMA")) {
+                equalFunc = type.member.get("SAMA_SAMA");
+            } else {
+                v.error(`model ${d.type.description} tidak mempunyai mesin SAMA_SAMA di dalam modulnya.`);
+            }
+            for (let datum of b.data) {
+                if (datum.type !== d.type) continue;
+                let isEqual = v.callFunc(equalFunc.data, [datum, d]);
+                if (isEqual.data) return new Value(logisSymbol, true);
+            }
+            return new Value(logisSymbol, false);
+        }));
     }
 }
 
 class MesinTipe extends Stipe {
     constructor() {
         super(mesinSymbol);
-        this.member.define("$", null);
+
+        this.member.define("kePetik", 
+            makeBuiltInFunc([mesinSymbol], petikSymbol, (v, [m]) => new Value(petikSymbol, kePetik(v, m))));
     }
 }
 
@@ -411,6 +453,10 @@ let Jenis$1 = class Jenis extends Stipe {
         enums.forEach((thing, idx) => {
             this.member.define(thing.lexeme, new Value(sym, idx));
         });
+        this.member.define("kePetik", makeBuiltInFunc([sym], petikSymbol, (_, [j]) => {
+            let enumName = enums.map(thing=>thing.lexeme)[j.data];
+            return new Value(petikSymbol, `${name}.${enumName}`);
+        }));
         this.init(sym);
     }
 
@@ -444,7 +490,12 @@ function copier(thing) {
         case angkaSymbol: return new Value(angkaSymbol, thing.data);
         case logisSymbol: return new Value(logisSymbol, thing.data);
         case mesinSymbol: return new Value(mesinSymbol, thing.data);
-        case barisSymbol: return new Value(barisSymbol, thing.data.map((val) => copier(val)));
+        case barisSymbol: return new Value(barisSymbol, thing.data.map((val) => {
+            let copy = copier(val);
+            let varCopy = new Variable(copy.type, false, copy.data);
+            varCopy.member = copy.member;
+            return varCopy
+        }));
         case stipeSymbol: return NIHIL;
         case modulSymbol: return NIHIL;
         default:
@@ -453,13 +504,17 @@ function copier(thing) {
                 let valCopy = new Value(thing.type, null);
                 let newMember = new Environment();
                 for (let i of keys) {
-                    newMember.define(i, copier(thing.member.get(i)));
+                    let varPrev = thing.member.get(i);
+                    let tempCopy = copier(varPrev);
+                    let varCopy = new Variable(varPrev.type, varPrev.tetap, tempCopy.data);
+                    varCopy.member = tempCopy.member;
+                    newMember.define(i, varCopy);
                 }
                 valCopy.member = newMember;
-
+                valCopy.data = thing.data;
                 return valCopy;
             }
-            return NIHIL;
+            return new Value(thing.type, thing.data);
     }
 }
 
@@ -922,8 +977,9 @@ class Interpreter {
             if (type.member?.has(name)) {
                 if (willBeCalled) {
                     this.objectStack = main;
+                    return type.member.get(name);
                 }
-                return type.member.get(name);
+                this.error(`akses titik . dari objek ke model harus berupa panggilan/penggunaaan mesin.`);
             }
             this.error(`nama .${name} tidak ditemukan dalam tipe ${main.type.description}`);
         } else {
@@ -943,40 +999,7 @@ class Interpreter {
 
     visitCetakStmt(cetakStmt) {
         let result = cetakStmt.expr.accept(this);
-        const kePetik = (thing) => {
-            if (thing.type === logisSymbol) {
-                return thing.data ? "benar" : "salah";
-            } else if (thing.type === barisSymbol) {
-                return '[' + thing.data.reduce((str, val) => {
-                    let item = kePetik(val);
-                    return str + ", " + (val.type === petikSymbol ? `"${item}"` : item);
-                }, "").slice(1) + ' ]';
-            } else if (thing.type === stipeSymbol) {
-                return `Model<${thing.symbol.description}>`;
-            } else if (thing.type === mesinSymbol) {
-                let underlying = thing.data.returnType?.description;
-                return `Mesin<${underlying ? underlying : 'datum'}>`;
-            } else if (thing.type === angkaSymbol) {
-                return thing.data.toString();
-            } else if (thing.type === petikSymbol) {
-                return thing.data;
-            } else {
-                if (!thing?.type) return `nihil`;
-                let type = this.environment.get(thing.type.description);
-                if (type?.member?.has("kePetik")) {
-                    let prevState = this.state;
-                    this.state = location.MESIN;
-                    this.stack.push(this.line);
-                    let res = this.callFunc(type.member.get("kePetik").data, [thing]).data;
-                    this.stack.pop();
-                    this.state = prevState;
-                    return res;
-                }
-                return `${thing.type.description}<>`;
-            }
-        };
-
-        this.output.push(kePetik(result));
+        this.output.push(kePetik(this, result));
 
     }
 
@@ -1008,6 +1031,9 @@ class Interpreter {
 
     visitRubahStmt(rubahStmt) {
         let variable = rubahStmt.variable.accept(this); // is a reference to the variable data
+        if (variable.tetap === undefined) {
+            this.error(`Pe-rubah-an hanya dapat dilakukan kepada Variabel!`);
+        }
         if (variable.tetap) {
             this.error(`Variabel tetap tidak dapat di-rubah.`);
         }
@@ -2295,6 +2321,7 @@ class Simpl {
             let output = this.interpreter.interpret(pohon);
             return output.join("\n");
         } catch (err) {
+            // throw err
             if (err instanceof SimplError) {
                 const errorCode = textLines[err.line - 1];
                 let errorText = (errorCode ? `ERROR! Pada baris ke-${err.line}\n>> ` + errorCode + '\n' : "") + err.message;

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "bahasa-simpl",
-  "version": "1.0.6",
+  "version": "1.0.8",
   "description": "Simpl: Indonesian Mini Programming Language interpreter",
   "main": "./dist/simpl-interpreter.js",
   "scripts": {