mirror of
https://github.com/ganelson/inform.git
synced 2024-07-16 22:14:23 +03:00
28 lines
713 B
Plaintext
28 lines
713 B
Plaintext
packagetype _plain
|
|
packagetype _code
|
|
packagetype _linkage
|
|
|
|
primitive !if val code -> void
|
|
primitive !goto lab -> void
|
|
|
|
package main _plain
|
|
typename K_number = int32
|
|
typename K_func = function K_number -> K_number
|
|
package my_fn _plain
|
|
package (/main/K_func) R_101 _code
|
|
local (/main/K_number) x
|
|
code
|
|
.begin
|
|
inv !if
|
|
val (/main/K_number) /main/troublesome
|
|
code
|
|
inv !goto
|
|
lab .begin
|
|
constant (/main/K_number) secret = 7
|
|
constant (/main/K_number) tricksy = /main/connectors/plug00002
|
|
constant (K_number) awkward = /main/my_fn/secret
|
|
constant (K_number) troublesome = 12
|
|
package connectors _linkage
|
|
socket secret ~~> /main/my_fn/secret
|
|
plug plug00002 ~~> "C_majors"
|