mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 08:27:03 +03:00
26 lines
292 B
Plaintext
26 lines
292 B
Plaintext
module Input;
|
|
|
|
type 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;
|