1 /* crypto/conf/conf.c */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
5 * This package is an SSL implementation written
6 * by Eric Young (eay@cryptsoft.com).
7 * The implementation was written so as to conform with Netscapes SSL.
9 * This library is free for commercial and non-commercial use as long as
10 * the following conditions are aheared to. The following conditions
11 * apply to all code found in this distribution, be it the RC4, RSA,
12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13 * included with this distribution is covered by the same copyright terms
14 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
16 * Copyright remains Eric Young's, and as such any Copyright notices in
17 * the code are not to be removed.
18 * If this package is used in a product, Eric Young should be given attribution
19 * as the author of the parts of the library used.
20 * This can be in the form of a textual message at program startup or
21 * in documentation (online or textual) provided with the package.
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
26 * 1. Redistributions of source code must retain the copyright
27 * notice, this list of conditions and the following disclaimer.
28 * 2. Redistributions in binary form must reproduce the above copyright
29 * notice, this list of conditions and the following disclaimer in the
30 * documentation and/or other materials provided with the distribution.
31 * 3. All advertising materials mentioning features or use of this software
32 * must display the following acknowledgement:
33 * "This product includes cryptographic software written by
34 * Eric Young (eay@cryptsoft.com)"
35 * The word 'cryptographic' can be left out if the rouines from the library
36 * being used are not cryptographic related :-).
37 * 4. If you include any Windows specific code (or a derivative thereof) from
38 * the apps directory (application code) you must include an acknowledgement:
39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
53 * The licence and distribution terms for any publically available version or
54 * derivative of this code cannot be changed. i.e. this code cannot simply be
55 * copied and put under another distribution licence
56 * [including the GNU Public Licence.]
59 /* Part of the code in here was originally in conf.c, which is now removed */
63 #include <openssl/stack.h>
64 #include <openssl/lhash.h>
65 #include <openssl/conf.h>
66 #include <openssl/conf_api.h>
68 #include <openssl/buffer.h>
69 #include <openssl/err.h>
72 static char *eat_ws(CONF
*conf
, char *p
);
73 static char *eat_alpha_numeric(CONF
*conf
, char *p
);
74 static void clear_comments(CONF
*conf
, char *p
);
75 static int str_copy(CONF
*conf
,char *section
,char **to
, char *from
);
76 static char *scan_quote(CONF
*conf
, char *p
);
77 static char *scan_dquote(CONF
*conf
, char *p
);
78 #define scan_esc(conf,p) (((IS_EOF((conf),(p)[1]))?((p)+1):((p)+2)))
80 static CONF
*def_create(CONF_METHOD
*meth
);
81 static int def_init_default(CONF
*conf
);
82 static int def_init_WIN32(CONF
*conf
);
83 static int def_destroy(CONF
*conf
);
84 static int def_destroy_data(CONF
*conf
);
85 static int def_load(CONF
*conf
, const char *name
, long *eline
);
86 static int def_load_bio(CONF
*conf
, BIO
*bp
, long *eline
);
87 static int def_dump(const CONF
*conf
, BIO
*bp
);
88 static int def_is_number(const CONF
*conf
, char c
);
89 static int def_to_int(const CONF
*conf
, char c
);
91 const char *CONF_def_version
="CONF_def" OPENSSL_VERSION_PTEXT
;
93 static CONF_METHOD default_method
= {
106 static CONF_METHOD WIN32_method
= {
119 CONF_METHOD
*NCONF_default()
121 return &default_method
;
123 CONF_METHOD
*NCONF_WIN32()
125 return &WIN32_method
;
128 static CONF
*def_create(CONF_METHOD
*meth
)
132 ret
= (CONF
*)OPENSSL_malloc(sizeof(CONF
) + sizeof(unsigned short *));
134 if (meth
->init(ret
) == 0)
142 static int def_init_default(CONF
*conf
)
147 conf
->meth
= &default_method
;
148 conf
->meth_data
= (void *)CONF_type_default
;
154 static int def_init_WIN32(CONF
*conf
)
159 conf
->meth
= &WIN32_method
;
160 conf
->meth_data
= (void *)CONF_type_win32
;
166 static int def_destroy(CONF
*conf
)
168 if (def_destroy_data(conf
))
176 static int def_destroy_data(CONF
*conf
)
180 _CONF_free_data(conf
);
184 static int def_load(CONF
*conf
, const char *name
, long *line
)
189 #ifdef OPENSSL_SYS_VMS
190 in
=BIO_new_file(name
, "r");
192 in
=BIO_new_file(name
, "rb");
196 if (ERR_GET_REASON(ERR_peek_last_error()) == BIO_R_NO_SUCH_FILE
)
197 CONFerr(CONF_F_CONF_LOAD
,CONF_R_NO_SUCH_FILE
);
199 CONFerr(CONF_F_CONF_LOAD
,ERR_R_SYS_LIB
);
203 ret
= def_load_bio(conf
, in
, line
);
209 static int def_load_bio(CONF
*conf
, BIO
*in
, long *line
)
211 /* The macro BUFSIZE conflicts with a system macro in VxWorks */
212 #define CONFBUFSIZE 512
218 char btmp
[DECIMAL_SIZE(eline
)+1];
219 CONF_VALUE
*v
=NULL
,*tv
;
221 char *section
=NULL
,*buf
;
222 STACK_OF(CONF_VALUE
) *section_sk
=NULL
,*ts
;
223 char *start
,*psection
,*pname
;
224 void *h
= (void *)(conf
->data
);
226 if ((buff
=BUF_MEM_new()) == NULL
)
228 CONFerr(CONF_F_CONF_LOAD_BIO
,ERR_R_BUF_LIB
);
232 section
=(char *)OPENSSL_malloc(10);
235 CONFerr(CONF_F_CONF_LOAD_BIO
,ERR_R_MALLOC_FAILURE
);
238 strcpy(section
,"default");
240 if (_CONF_new_data(conf
) == 0)
242 CONFerr(CONF_F_CONF_LOAD_BIO
,ERR_R_MALLOC_FAILURE
);
246 sv
=_CONF_new_section(conf
,section
);
249 CONFerr(CONF_F_CONF_LOAD_BIO
,
250 CONF_R_UNABLE_TO_CREATE_NEW_SECTION
);
253 section_sk
=(STACK_OF(CONF_VALUE
) *)sv
->value
;
259 if (!BUF_MEM_grow(buff
,bufnum
+CONFBUFSIZE
))
261 CONFerr(CONF_F_CONF_LOAD_BIO
,ERR_R_BUF_LIB
);
264 p
= &(buff
->data
[bufnum
]);
266 BIO_gets(in
, p
, CONFBUFSIZE
-1);
267 p
[CONFBUFSIZE
-1]='\0';
272 if ((p
[i
-1] != '\r') && (p
[i
-1] != '\n'))
277 /* we removed some trailing stuff so there is a new
278 * line on the end. */
280 again
=1; /* long line */
284 eline
++; /* another input line */
287 /* we now have a line with trailing \r\n removed */
289 /* i is the number of bytes */
293 /* check for line continuation */
296 /* If we have bytes and the last char '\\' and
297 * second last char is not '\\' */
298 p
= &(buff
->data
[bufnum
-1]);
299 if (IS_ESC(conf
,p
[0]) &&
300 ((bufnum
<= 1) || !IS_ESC(conf
,p
[-1])))
310 clear_comments(conf
, buf
);
313 if (IS_EOF(conf
,*s
)) continue; /* blank line */
319 start
=eat_ws(conf
, s
);
322 end
=eat_alpha_numeric(conf
, ss
);
331 CONFerr(CONF_F_CONF_LOAD_BIO
,
332 CONF_R_MISSING_CLOSE_SQUARE_BRACKET
);
336 if (!str_copy(conf
,NULL
,§ion
,start
)) goto err
;
337 if ((sv
=_CONF_get_section(conf
,section
)) == NULL
)
338 sv
=_CONF_new_section(conf
,section
);
341 CONFerr(CONF_F_CONF_LOAD_BIO
,
342 CONF_R_UNABLE_TO_CREATE_NEW_SECTION
);
345 section_sk
=(STACK_OF(CONF_VALUE
) *)sv
->value
;
352 end
=eat_alpha_numeric(conf
, s
);
353 if ((end
[0] == ':') && (end
[1] == ':'))
359 end
=eat_alpha_numeric(conf
, end
);
364 CONFerr(CONF_F_CONF_LOAD_BIO
,
365 CONF_R_MISSING_EQUAL_SIGN
);
370 start
=eat_ws(conf
, p
);
371 while (!IS_EOF(conf
,*p
))
374 while ((p
!= start
) && (IS_WS(conf
,*p
)))
379 if (!(v
=(CONF_VALUE
*)OPENSSL_malloc(sizeof(CONF_VALUE
))))
381 CONFerr(CONF_F_CONF_LOAD_BIO
,
382 ERR_R_MALLOC_FAILURE
);
385 if (psection
== NULL
) psection
=section
;
386 v
->name
=(char *)OPENSSL_malloc(strlen(pname
)+1);
390 CONFerr(CONF_F_CONF_LOAD_BIO
,
391 ERR_R_MALLOC_FAILURE
);
394 strcpy(v
->name
,pname
);
395 if (!str_copy(conf
,psection
,&(v
->value
),start
)) goto err
;
397 if (strcmp(psection
,section
) != 0)
399 if ((tv
=_CONF_get_section(conf
,psection
))
401 tv
=_CONF_new_section(conf
,psection
);
404 CONFerr(CONF_F_CONF_LOAD_BIO
,
405 CONF_R_UNABLE_TO_CREATE_NEW_SECTION
);
408 ts
=(STACK_OF(CONF_VALUE
) *)tv
->value
;
416 if (_CONF_add_string(conf
, tv
, v
) == 0)
418 CONFerr(CONF_F_CONF_LOAD_BIO
,
419 ERR_R_MALLOC_FAILURE
);
423 v
->section
=tv
->section
;
424 if (!sk_CONF_VALUE_push(ts
,v
))
426 CONFerr(CONF_F_CONF_LOAD_BIO
,
427 ERR_R_MALLOC_FAILURE
);
430 vv
=(CONF_VALUE
*)lh_insert(conf
->data
,v
);
433 sk_CONF_VALUE_delete_ptr(ts
,vv
);
434 OPENSSL_free(vv
->name
);
435 OPENSSL_free(vv
->value
);
442 if (buff
!= NULL
) BUF_MEM_free(buff
);
443 if (section
!= NULL
) OPENSSL_free(section
);
446 if (buff
!= NULL
) BUF_MEM_free(buff
);
447 if (section
!= NULL
) OPENSSL_free(section
);
448 if (line
!= NULL
) *line
=eline
;
449 sprintf(btmp
,"%ld",eline
);
450 ERR_add_error_data(2,"line ",btmp
);
451 if ((h
!= conf
->data
) && (conf
->data
!= NULL
))
453 CONF_free(conf
->data
);
458 if (v
->name
!= NULL
) OPENSSL_free(v
->name
);
459 if (v
->value
!= NULL
) OPENSSL_free(v
->value
);
460 if (v
!= NULL
) OPENSSL_free(v
);
465 static void clear_comments(CONF
*conf
, char *p
)
472 if (IS_FCOMMENT(conf
,*p
))
486 if (IS_COMMENT(conf
,*p
))
491 if (IS_DQUOTE(conf
,*p
))
493 p
=scan_dquote(conf
, p
);
496 if (IS_QUOTE(conf
,*p
))
498 p
=scan_quote(conf
, p
);
513 static int str_copy(CONF
*conf
, char *section
, char **pto
, char *from
)
515 int q
,r
,rr
=0,to
=0,len
=0;
516 char *s
,*e
,*rp
,*p
,*rrp
,*np
,*cp
,v
;
519 if ((buf
=BUF_MEM_new()) == NULL
) return(0);
522 if (!BUF_MEM_grow(buf
,len
)) goto err
;
526 if (IS_QUOTE(conf
,*from
))
530 while (!IS_EOF(conf
,*from
) && (*from
!= q
))
532 if (IS_ESC(conf
,*from
))
535 if (IS_EOF(conf
,*from
)) break;
537 buf
->data
[to
++]= *(from
++);
539 if (*from
== q
) from
++;
541 else if (IS_DQUOTE(conf
,*from
))
545 while (!IS_EOF(conf
,*from
))
558 buf
->data
[to
++]= *(from
++);
560 if (*from
== q
) from
++;
562 else if (IS_ESC(conf
,*from
))
566 if (IS_EOF(conf
,v
)) break;
567 else if (v
== 'r') v
='\r';
568 else if (v
== 'n') v
='\n';
569 else if (v
== 'b') v
='\b';
570 else if (v
== 't') v
='\t';
573 else if (IS_EOF(conf
,*from
))
575 else if (*from
== '$')
577 /* try to expand it */
589 while (IS_ALPHA_NUMERIC(conf
,*e
))
591 if ((e
[0] == ':') && (e
[1] == ':'))
599 while (IS_ALPHA_NUMERIC(conf
,*e
))
609 CONFerr(CONF_F_STR_COPY
,CONF_R_NO_CLOSE_BRACE
);
614 /* So at this point we have
615 * ns which is the start of the name string which is
617 * cs which is the start of the section string which is
619 * e is the 'next point after'.
620 * r and s are the chars replaced by the '\0'
621 * rp and sp is where 'r' and 's' came from.
623 p
=_CONF_get_string(conf
,cp
,np
);
624 if (rrp
!= NULL
) *rrp
=rr
;
628 CONFerr(CONF_F_STR_COPY
,CONF_R_VARIABLE_HAS_NO_VALUE
);
631 BUF_MEM_grow_clean(buf
,(strlen(p
)+len
-(e
-from
)));
633 buf
->data
[to
++]= *(p
++);
637 buf
->data
[to
++]= *(from
++);
640 if (*pto
!= NULL
) OPENSSL_free(*pto
);
645 if (buf
!= NULL
) BUF_MEM_free(buf
);
649 static char *eat_ws(CONF
*conf
, char *p
)
651 while (IS_WS(conf
,*p
) && (!IS_EOF(conf
,*p
)))
656 static char *eat_alpha_numeric(CONF
*conf
, char *p
)
665 if (!IS_ALPHA_NUMERIC_PUNCT(conf
,*p
))
671 static char *scan_quote(CONF
*conf
, char *p
)
676 while (!(IS_EOF(conf
,*p
)) && (*p
!= q
))
681 if (IS_EOF(conf
,*p
)) return(p
);
690 static char *scan_dquote(CONF
*conf
, char *p
)
695 while (!(IS_EOF(conf
,*p
)))
714 static void dump_value(CONF_VALUE
*a
, BIO
*out
)
717 BIO_printf(out
, "[%s] %s=%s\n", a
->section
, a
->name
, a
->value
);
719 BIO_printf(out
, "[[%s]]\n", a
->section
);
722 static IMPLEMENT_LHASH_DOALL_ARG_FN(dump_value
, CONF_VALUE
*, BIO
*)
724 static int def_dump(const CONF
*conf
, BIO
*out
)
726 lh_doall_arg(conf
->data
, LHASH_DOALL_ARG_FN(dump_value
), out
);
730 static int def_is_number(const CONF
*conf
, char c
)
732 return IS_NUMBER(conf
,c
);
735 static int def_to_int(const CONF
*conf
, char c
)