* main.h, import.c (import_one): Optionally return the fingerprint of
[gnupg.git] / cipher / dynload.c
1 /* dynload.c - load cipher extensions
2  *      Copyright (C) 1998, 1999, 2001, 2002 Free Software Foundation, Inc.
3  *
4  * This file is part of GnuPG.
5  *
6  * GnuPG is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * GnuPG is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
19  * USA.
20  */
21
22 #include <config.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <unistd.h>
27 #include "util.h"
28 #include "cipher.h"
29 #include "algorithms.h"
30
31
32 typedef struct ext_list {
33     struct ext_list *next;
34     char name[1];
35 } *EXTLIST;
36
37 static EXTLIST extensions;
38
39 /* This is actually not used anymore but we keep a list of already 
40  * set extensions modules here.   
41  *
42  * Here is the ancient comment:
43  * Register an extension module.  The last registered module will
44  * be loaded first.  A name may have a list of classes
45  * appended; e.g:
46  *      mymodule.so(1:17,3:20,3:109)
47  * means that this module provides digest algorithm 17 and public key
48  * algorithms 20 and 109.  This is only a hint but if it is there the
49  * loader may decide to only load a module which claims to have a
50  * requested algorithm.
51  *
52  * mainpgm is the path to the program which wants to load a module
53  * it is only used in some environments.
54  */
55 void
56 register_cipher_extension( const char *mainpgm, const char *fname )
57 {
58     EXTLIST r, el, intex;
59     char *p, *pe;
60
61     if( *fname != DIRSEP_C ) { /* do tilde expansion etc */
62         char *tmp;
63
64         if( strchr(fname, DIRSEP_C) )
65             tmp = make_filename(fname, NULL);
66         else
67             tmp = make_filename(GNUPG_LIBDIR, fname, NULL);
68         el = xmalloc_clear( sizeof *el + strlen(tmp) );
69         strcpy(el->name, tmp );
70         xfree(tmp);
71     }
72     else {
73         el = xmalloc_clear( sizeof *el + strlen(fname) );
74         strcpy(el->name, fname );
75     }
76     /* check whether we have a class hint */
77     if( (p=strchr(el->name,'(')) && (pe=strchr(p+1,')')) && !pe[1] )
78         *p = *pe = 0;
79
80     /* check that it is not already registered */
81     intex = NULL;
82     for(r = extensions; r; r = r->next ) {
83         if( !compare_filenames(r->name, el->name) ) {
84             log_info("extension `%s' already registered\n", el->name );
85             xfree(el);
86             return;
87         }
88     }
89     /* and register */
90     el->next = extensions;
91     extensions = el;
92 }
93
94 /* Return the module name with index SEQ, return NULL as as indication
95    for end of list. */
96 const char *
97 dynload_enum_module_names (int seq)
98 {
99   EXTLIST el = extensions;
100
101   for (; el && el->name && seq; el = el->next, seq--)
102     ;
103   return el? el->name:NULL;
104 }