cfad47cfa3/t3compiler/tads3/test/data/extfunc2.t

4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
/*
2
 *   test of 'extern function' declarations 
3
 */
4
5
#include "tads.h"
6
7
extern function test1(a, b, c);
8
extern function test2(d, e);
9
10
function test1(a, b, c)
11
{
12
    tadsSay('++ this is test1(' + a + ', ' + b + ', ' + c + ')\n');
13
    tadsSay('++ calling test2(888,999)...\n');
14
    test2(888, 999);
15
16
    tadsSay('++ back in test1 - returning\n');
17
}