1
0
Fork 0
mirror of https://github.com/ganelson/inform.git synced 2024-07-09 02:24:21 +03:00
inform7/inter/Tests/General/Primitives.intert
2019-09-07 01:28:18 +01:00

37 lines
822 B
Plaintext

packagetype _plain
packagetype _code
packagetype _linkage
primitive !return val -> void
primitive !modulo val val -> val
primitive !plus val val -> val
primitive !minus val val -> val
package main _plain
package resources _plain
kind K_unchecked unchecked
kind K_number int32
kind K_phrase_number____nothing function K_number -> void
package MyRoutine_B _code
symbol private misc x
symbol private misc y
symbol external misc K_number
local x K_number
local y K_number
code
inv !return
val K_number x
inv !return
inv !plus
val K_number x
val K_number y
inv !return
inv !minus
val K_number x
val K_number y
inv !return
inv !modulo
val K_number x
val K_number y
constant MyRoutine K_phrase_number____nothing = MyRoutine_B