diff options
author | Kartik Agaram <vc@akkartik.com> | 2019-03-12 18:56:55 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2019-03-12 19:14:12 -0700 |
commit | 4a943d4ed313eff001504c2b5c472266e86a38af (patch) | |
tree | a5757233a8c81b303a808f251180c7344071ed51 /021check_instruction.cc | |
parent | 43711b0e9f18e0225ce14687fb6ea0902aa6fc61 (diff) | |
download | mu-4a943d4ed313eff001504c2b5c472266e86a38af.tar.gz |
5001 - drop the :(scenario) DSL
I've been saying for a while[1][2][3] that adding extra abstractions makes things harder for newcomers, and adding new notations doubly so. And then I notice this DSL in my own backyard. Makes me feel like a hypocrite. [1] https://news.ycombinator.com/item?id=13565743#13570092 [2] https://lobste.rs/s/to8wpr/configuration_files_are_canary_warning [3] https://lobste.rs/s/mdmcdi/little_languages_by_jon_bentley_1986#c_3miuf2 The implementation of the DSL was also highly hacky: a) It was happening in the tangle/ tool, but was utterly unrelated to tangling layers. b) There were several persnickety constraints on the different kinds of lines and the specific order they were expected in. I kept finding bugs where the translator would silently do the wrong thing. Or the error messages sucked, and readers may be stuck looking at the generated code to figure out what happened. Fixing error messages would require a lot more code, which is one of my arguments against DSLs in the first place: they may be easy to implement, but they're hard to design to go with the grain of the underlying platform. They require lots of iteration. Is that effort worth prioritizing in this project? On the other hand, the DSL did make at least some readers' life easier, the ones who weren't immediately put off by having to learn a strange syntax. There were fewer quotes to parse, fewer backslash escapes. Anyway, since there are also people who dislike having to put up with strange syntaxes, we'll call that consideration a wash and tear this DSL out. --- This commit was sheer drudgery. Hopefully it won't need to be redone with a new DSL because I grow sick of backslashes.
Diffstat (limited to '021check_instruction.cc')
-rw-r--r-- | 021check_instruction.cc | 112 |
1 files changed, 70 insertions, 42 deletions
diff --git a/021check_instruction.cc b/021check_instruction.cc index 5bc7fa9c..5a8e1324 100644 --- a/021check_instruction.cc +++ b/021check_instruction.cc @@ -43,48 +43,76 @@ void check_instruction(const recipe_ordinal r) { } } -:(scenario copy_checks_reagent_count) -% Hide_errors = true; -def main [ - 1:num, 2:num <- copy 34 -] -+error: main: too many products in '1:num, 2:num <- copy 34' - -:(scenario write_scalar_to_array_disallowed) -% Hide_errors = true; -def main [ - 1:array:num <- copy 34 -] -+error: main: can't copy '34' to '1:array:num'; types don't match - -:(scenario write_scalar_to_array_disallowed_2) -% Hide_errors = true; -def main [ - 1:num, 2:array:num <- copy 34, 35 -] -+error: main: can't copy '35' to '2:array:num'; types don't match - -:(scenario write_scalar_to_address_disallowed) -% Hide_errors = true; -def main [ - 1:&:num <- copy 34 -] -+error: main: can't copy '34' to '1:&:num'; types don't match - -:(scenario write_address_to_character_disallowed) -% Hide_errors = true; -def main [ - 1:&:num <- copy 12/unsafe - 2:char <- copy 1:&:num -] -+error: main: can't copy '1:&:num' to '2:char'; types don't match - -:(scenario write_number_to_character_allowed) -def main [ - 1:num <- copy 97 - 2:char <- copy 1:num -] -$error: 0 +void test_copy_checks_reagent_count() { + Hide_errors = true; + run( + "def main [\n" + " 1:num, 2:num <- copy 34\n" + "]\n" + ); + CHECK_TRACE_CONTENTS( + "error: main: too many products in '1:num, 2:num <- copy 34'\n" + ); +} + +void test_write_scalar_to_array_disallowed() { + Hide_errors = true; + run( + "def main [\n" + " 1:array:num <- copy 34\n" + "]\n" + ); + CHECK_TRACE_CONTENTS( + "error: main: can't copy '34' to '1:array:num'; types don't match\n" + ); +} + +void test_write_scalar_to_array_disallowed_2() { + Hide_errors = true; + run( + "def main [\n" + " 1:num, 2:array:num <- copy 34, 35\n" + "]\n" + ); + CHECK_TRACE_CONTENTS( + "error: main: can't copy '35' to '2:array:num'; types don't match\n" + ); +} + +void test_write_scalar_to_address_disallowed() { + Hide_errors = true; + run( + "def main [\n" + " 1:&:num <- copy 34\n" + "]\n" + ); + CHECK_TRACE_CONTENTS( + "error: main: can't copy '34' to '1:&:num'; types don't match\n" + ); +} + +void test_write_address_to_character_disallowed() { + Hide_errors = true; + run( + "def main [\n" + " 1:&:num <- copy 12/unsafe\n" + " 2:char <- copy 1:&:num\n" + "]\n" + ); + CHECK_TRACE_CONTENTS( + "error: main: can't copy '1:&:num' to '2:char'; types don't match\n" + ); +} + +void test_write_number_to_character_allowed() { + run( + "def main [\n" + " 1:num <- copy 97\n" + " 2:char <- copy 1:num\n" + "]\n" + ); + CHECK_TRACE_COUNT("error", 0); +} :(code) // types_match with some leniency |