mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 17:32:00 +03:00
27 lines
299 B
Plaintext
27 lines
299 B
Plaintext
module Input;
|
|
|
|
inductive Unit {
|
|
unit : Unit;
|
|
};
|
|
|
|
axiom Action : Type;
|
|
|
|
compile Action {
|
|
c ↦ "int";
|
|
};
|
|
|
|
axiom ignore : {A : Type} -> A -> Action;
|
|
|
|
compile ignore {
|
|
c ↦ "ignore";
|
|
};
|
|
|
|
foreign c {
|
|
static int ignore(uintptr_t ptr) { return 0; \}
|
|
};
|
|
|
|
main : Action;
|
|
main := ignore unit;
|
|
|
|
end;
|