1
0
Fork 0
mirror of https://github.com/ganelson/inform.git synced 2024-07-03 07:24:58 +03:00
inform7/inbuild/supervisor-module/Chapter 5/Pipeline Services.w
Graham Nelson 1268a0f40e Colonised
2020-04-14 17:56:54 +01:00

18 lines
422 B
OpenEdge ABL

[Pipelines::] Pipeline Services.
Behaviour specific to copies of the pipeline genre.
@ =
typedef struct inform_pipeline {
struct inbuild_copy *as_copy;
struct semantic_version_number version;
MEMORY_MANAGEMENT
} inform_pipeline;
inform_pipeline *Pipelines::new_ip(text_stream *name, filename *F) {
inform_pipeline *T = CREATE(inform_pipeline);
T->as_copy = NULL;
T->version = VersionNumbers::null();
return T;
}