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