mirror of
https://github.com/ganelson/inform.git
synced 2024-07-16 22:14:23 +03:00
25 lines
568 B
OpenEdge ABL
Executable file
25 lines
568 B
OpenEdge ABL
Executable file
[Basics::] Basics.
|
|
|
|
Some fundamental definitions.
|
|
|
|
@h Build identity.
|
|
First we define the build, using a notation which tangles out to the current
|
|
build number as specified in the contents section of this web.
|
|
|
|
@d INTOOL_NAME "inpolicy"
|
|
@d INPOLICY_BUILD "inpolicy [[Version Number]] ([[Build Number]])"
|
|
|
|
@h Setting up the memory manager.
|
|
We need to itemise the structures we'll want to allocate:
|
|
|
|
@e known_problem_MT
|
|
@e version_MT
|
|
@e project_MT
|
|
|
|
@ And then expand:
|
|
|
|
=
|
|
ALLOCATE_INDIVIDUALLY(known_problem)
|
|
ALLOCATE_INDIVIDUALLY(version)
|
|
ALLOCATE_INDIVIDUALLY(project)
|