Catching up after the holidays.
[kakapo:kakapo.git] / src / kakapo_bottom_pir.tmpl
1 # kakapo_bottom.pir - code to be attached to the end of kakapo libraries.
2
3 # Copyright (C) 2009, Austin Hastings. See LICENSE distributed with this file 
4 # or at http://www.opensource.org/licenses/artistic-license-2.0.php
5
6 .namespace [ 'Kakapo' ; 'krt0' ]
7
8 .sub kakapo_bottom_init :init
9         $P0 = get_hll_global ['Program'], 'process_init_queue'
10         unless null $P0 goto process_queue
11         
12         die "Could not locate 'Program::process_init_queue' function."
13
14 process_queue:
15         $P0()
16 .end
17
18 .sub kakapo_bottom_load :load
19         $P0 = get_hll_global ['Program'], 'process_load_queue'
20         unless null $P0 goto process_queue
21         
22         die "Could not locate 'Program::process_load_queue' function."
23
24 process_queue:
25         $P0()
26 .end