1/* rexx */
2/* ========================================================================
3 * Copyright 1988-2006 University of Washington
4 *
5 * Licensed under the Apache License, Version 2.0 (the "License");
6 * you may not use this file except in compliance with the License.
7 * You may obtain a copy of the License at
8 *
9 *     http://www.apache.org/licenses/LICENSE-2.0
10 *
11 *
12 * ========================================================================
13 */
14/*
15 * Program:	Authenticator Linkage Generator for OS/2
16 *
17 * Author:	Mark Crispin
18 *		Networks and Distributed Computing
19 *		Computing & Communications
20 *		University of Washington
21 *		Administration Building, AG-44
22 *		Seattle, WA  98195
23 *		Internet: MRC@CAC.Washington.EDU
24 *
25 * Date:	10 June 1999
26 * Last Edited:	30 August 2006
27 */
28'@echo off'
29/* Erase old authenticators list */
30'if exist auths.c del auths.c'
31parse arg args
32n=words(args)
33a_file='auths.c'
34c_file='linkage.c'
35h_file='linkage.h'
36call stream a_file, 'C', 'open write'
37call stream c_file, 'C', 'open write'
38call stream h_file, 'C', 'open write'
39do i=1 to n
40  arg=word(args,i)
41  call lineout a_file, '#include "auth_'arg'.c"'
42  call lineout h_file, 'extern AUTHENTICATOR auth_'arg';'
43  call lineout c_file, '  auth_link (&auth_'arg');	/* link in the 'arg' authenticator */'
44  end
45call stream h_file, 'C', 'close'
46call stream c_file, 'C', 'close'
47call stream a_file, 'C', 'close'
48exit 0
49