Thijs Brobbel tiesmaster
tiesmaster
/ build_magik_image-no_notify_caller-workaround.magik
Created
July 6, 2011 11:27
build_magik_image() doesn't notify its caller on a failing load_code_proc()
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| _block | |
| _global build_failed | |
| build_failed << _false | |
| magik_image.register_new("test", | |
| :image_file_name, "test", | |
| :load_modules, :non_existing_module, | |
| :load_code_proc, | |
| _proc(mi) | |
| _try |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # https://raw.github.com/github/gitignore/master/Global/vim.gitignore | |
| .*.sw[a-z] | |
| *.un~ | |
| Session.vim | |
| # binaries | |
| *.exe | |
| *.dll |
tiesmaster
/ get_user_default_locale.c
Created
September 28, 2011 12:53
Retrieve the default user locale on Windows
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #include <windows.h> | |
| #include <stdio.h> | |
| void main() { | |
| char locale_name[32]; | |
| if (GetLocaleInfo (LOCALE_USER_DEFAULT, | |
| LOCALE_SABBREVLANGNAME | LOCALE_USE_CP_ACP, | |
| locale_name, sizeof (locale_name))) | |
| { | |
| printf("%s\n", locale_name); |
tiesmaster
/ export_internal_world_substation_union_lane_as_png.magik
Created
June 29, 2012 18:23
Export internal world substation as PNG
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| remex(:export_internal_world_substation_union_lane_as_png) | |
| $ | |
| @export_internal_world_substation_union_lane_as_png.delete() | |
| $ | |
| def_slotted_exemplar(:export_internal_world_substation_union_lane_as_png, {}) | |
| $ | |
| _method export_internal_world_substation_union_lane_as_png.write_png |
tiesmaster
/ transfer.magik
Created
September 27, 2012 06:47
Do a ds_transfer using source concurrency mode on :singleuser
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| _block | |
| sw_module_manager.load_module(:ds_transfer) | |
| _endblock | |
| $ | |
| _block | |
| ds_environment.concurrency_mode << :singleuser | |
| ds_environment.init() | |
| _endblock | |
| $ |
tiesmaster
/ example_of_alias_stream_usage.magik
Created
October 11, 2012 12:52
Explanation of alias_stream...
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| _block | |
| _local st_which_changes_like_output << alias_stream.new_on(@!output!) | |
| _local write_hoi << | |
| _proc @write_hoi(st) | |
| st.write("hoi") | |
| st.newline() | |
| _endproc | |
| _local call_proc_with_dynamic_changed_and_callback << | |
| _proc @call_proc_with_dynamic_changed_and_callback(callback, st) | |
| _dynamic !output! << internal_text_output_stream.new() |
tiesmaster
/ git_adds_magikc_files_for_missing_magik_files.sh
Created
October 15, 2012 10:32
Adds magikc files for missing *.magik files.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| find . -name '*.magikc' -type f -exec sh -c '[ ! -f `file={}; echo ${file%c}` ] && git add -f {}' \; |head |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| namelan << ds_collection.cold_start(gv.file("rwo.ds"), :ds!namelan, 0, gv.namelan_table) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| _block | |
| _local quote_char << character.from_value(34) | |
| _local s << { | |
| "_block", | |
| " _local quote_char << character.from_value(34)", | |
| " _local s << {", | |
| " }", | |
| " _for line _over s.slice(1, 3).fast_elements()", | |
| " _loop", | |
| " write(line)", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| _block | |
| # results in a failed assertion | |
| _thisthread.sys!slot(:vm_dynamic_environment) << | |
| _thisthread.vm_dynamic_environment.sys!augment_dynamic_environment(@!hoi!, :dag) | |
| _endblock | |
| $ | |
| _block | |
| # results in an access violation | |
| terminal.method(:put_charvec|()|).value.sys!perform(:at0|()<<|, 0, 0) |
OlderNewer