| import glob | |
| import os | |
| import sys | |
| def WriteTarget(file, name, depends): | |
| file.write(name + ".o: ") | |
| for d in depends: | |
| file.write(d + " ") | |
| file.write("\n\t$(CC) $(CCFLAGS) -c " + name + ".c -o " + name + ".o\n") |
It seems the command-line toolchain of choice changes every fortnight on Windows (except if you're in the MSVC camp, but that's a no-go for ooc at the time of this writing).
The new kid on the block is msys2, which I first had doubts about, but it turns out it's a great way to get a shell, install the packages you need via pacman (!) and get started with ooc on windows.
| from string import Template | |
| import inspect | |
| import os | |
| import sys | |
| import math | |
| autogen_warning = """ | |
| /* THIS FILE IS AUTOGENERATED BY: | |
| * tools/athena_bin_to_c.py | |
| * DO NOT EDIT THIS FILE MANUALLY |
| #include "lime_string.hpp" | |
| #if ! (defined LIME_STRING_NEW && defined LIME_STRING_DELETE) | |
| #include <cstdlib> | |
| #endif | |
| namespace Lime{ | |
| #ifndef LIME_STRING_NEW |
| def EnableableOption(name, default): | |
| AddOption("--enable-" + name, | |
| action="store_true", dest="en_" + name, default=False, | |
| help="Enables " + name) | |
| AddOption("--disable-" + name, | |
| action="store_true", dest="dis_" + name, default=False, | |
| help="Disables " + name) | |
| enable = GetOption("en_" + name) | |
| disable = GetOption("dis_" + name) |
| <?xml version="1.0" encoding="UTF-8"?> | |
| <Scheme> | |
| <keyword-classes> | |
| <keyword-class name="mercury.keywords"> | |
| module end_module use_module import_module include_module | |
| bound ground free unique cloberred mostly_unique | |
| is | |
| if then else | |
| foreign_code foreign_decl foreign_proc foreign_enum | |
| interface implementation |
| #include <FL/Fl.H> | |
| #include <FL/Fl_Window.H> | |
| #include <FL/Fl_Single_Window.H> | |
| #include <FL/Fl_Button.H> | |
| #include <FL/Fl_Slider.H> | |
| #include <FL/Fl_Group.H> | |
| #include <FL/Fl_Box.H> | |
| #include <FL/fl_draw.H> | |
| #include <cstdio> |
| :- module guid. | |
| :- interface. | |
| :- import_module io. | |
| % A larger but dependable GUID type. | |
| :- type guid.guid. | |
| % Simpler but more naive. Also more performant to generate and compare. | |
| :- type guid.id. |
| :- module inst_test. | |
| :- interface. | |
| % An example of defining a mode for a type that only maintains partial uniqueness. | |
| % The type. | |
| % In the inst, we will want to keep the string unique, but we won't worry about the int's uniqueness. | |
| :- type test ---> test(int, string). | |
| % Define the start and end states for the test_di mode. | |
| :- inst test_in_di ---> test(ground, unique). |
| :- module unique_integer. | |
| :- interface. | |
| % Written without testing...ignore small errors :P | |
| :- type xyz ---> xyz(int). | |
| :- pred abc(int::in, xyz::uo) is det. | |
| :- implementation. | |
| :- import_module int. |