imap/src/osdep/os2/auths.cmd

   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'
  31 parse arg args
  32 n=words(args)
  33 a_file='auths.c'
  34 c_file='linkage.c'
  35 h_file='linkage.h'
  36 call stream a_file, 'C', 'open write'
  37 call stream c_file, 'C', 'open write'
  38 call stream h_file, 'C', 'open write'
  39 do 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
  45 call stream h_file, 'C', 'close'
  46 call stream c_file, 'C', 'close'
  47 call stream a_file, 'C', 'close'
  48 exit 0