File Manager

003 File Manager

Current Path: /usr/src/crypto/heimdal/lib/hx509

usr / src / crypto / heimdal / lib / hx509 /

📁 ..
📄 ChangeLog(71.11 KB)
📄 Makefile.am(10.85 KB)
📄 Makefile.in(109.81 KB)
📄 ca.c(38.68 KB)
📄 cert.c(83.12 KB)
📄 char_map.h(2.29 KB)
📄 cms.c(41.02 KB)
📄 collector.c(7.76 KB)
📄 crmf.asn1(2.72 KB)
📄 crypto.c(76.34 KB)
📄 doxygen.c(3.36 KB)
📄 env.c(5.5 KB)
📄 error.c(5.45 KB)
📄 file.c(5.96 KB)
📄 hx509-private.h(9.39 KB)
📄 hx509-protos.h(22.53 KB)
📄 hx509.h(5.88 KB)
📄 hx509_err.et(4.78 KB)
📄 hx_locl.h(6.42 KB)
📄 hxtool-commands.in(15.32 KB)
📄 hxtool.c(52.7 KB)
📄 keyset.c(18.85 KB)
📄 ks_dir.c(4.92 KB)
📄 ks_file.c(16.03 KB)
📄 ks_keychain.c(12.8 KB)
📄 ks_mem.c(5.23 KB)
📄 ks_null.c(2.6 KB)
📄 ks_p11.c(28.46 KB)
📄 ks_p12.c(16.46 KB)
📄 lock.c(5.55 KB)
📄 name.c(24.15 KB)
📄 ocsp.asn1(4.04 KB)
📄 ocsp.opt(68 B)
📄 peer.c(5.59 KB)
📄 pkcs10.asn1(521 B)
📄 pkcs10.opt(43 B)
📄 print.c(26.23 KB)
📄 quote.py(3.19 KB)
📁 ref
📄 req.c(7.65 KB)
📄 revoke.c(37.22 KB)
📄 sel-gram.y(3.53 KB)
📄 sel-lex.l(3.29 KB)
📄 sel.c(5.72 KB)
📄 sel.h(2.45 KB)
📄 softp11.c(43.25 KB)
📄 test_ca.in(13.49 KB)
📄 test_cert.in(3.02 KB)
📄 test_chain.in(8.63 KB)
📄 test_cms.in(16.23 KB)
📄 test_crypto.in(6.46 KB)
📄 test_java_pkcs11.in(2.23 KB)
📄 test_name.c(17.75 KB)
📄 test_nist.in(3.7 KB)
📄 test_nist2.in(3.85 KB)
📄 test_nist_cert.in(2.3 KB)
📄 test_nist_pkcs12.in(2.41 KB)
📄 test_pkcs11.in(2.1 KB)
📄 test_query.in(6.69 KB)
📄 test_req.in(2.26 KB)
📄 test_soft_pkcs11.c(6.27 KB)
📄 test_windows.in(3.03 KB)
📄 tst-crypto-available1(263 B)
📄 tst-crypto-available2(102 B)
📄 tst-crypto-available3(122 B)
📄 tst-crypto-select(22 B)
📄 tst-crypto-select1(23 B)
📄 tst-crypto-select2(22 B)
📄 tst-crypto-select3(21 B)
📄 tst-crypto-select4(21 B)
📄 tst-crypto-select5(22 B)
📄 tst-crypto-select6(21 B)
📄 tst-crypto-select7(24 B)
📄 version-script.map(6.21 KB)

Editing: sel.c

/*
 * Copyright (c) 2008 Kungliga Tekniska Högskolan
 * (Royal Institute of Technology, Stockholm, Sweden).
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * 3. Neither the name of the Institute nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include "hx_locl.h"

struct hx_expr *
_hx509_make_expr(enum hx_expr_op op, void *arg1, void *arg2)
{
    struct hx_expr *expr;

expr = malloc(sizeof(*expr));
    if (expr == NULL)
	return NULL;
    expr->op = op;
    expr->arg1 = arg1;
    expr->arg2 = arg2;

return expr;
}

static const char *
eval_word(hx509_context context, hx509_env env, struct hx_expr *word)
{
    switch (word->op) {
    case expr_STRING:
	return word->arg1;
    case expr_VAR:
	if (word->arg2 == NULL)
	    return hx509_env_find(context, env, word->arg1);

env = hx509_env_find_binding(context, env, word->arg1);
	if (env == NULL)
	    return NULL;

return eval_word(context, env, word->arg2);
    default:
	return NULL;
    }
}

static hx509_env
find_variable(hx509_context context, hx509_env env, struct hx_expr *word)
{
    assert(word->op == expr_VAR);

if (word->arg2 == NULL)
	return hx509_env_find_binding(context, env, word->arg1);

env = hx509_env_find_binding(context, env, word->arg1);
    if (env == NULL)
	return NULL;
    return find_variable(context, env, word->arg2);
}

static int
eval_comp(hx509_context context, hx509_env env, struct hx_expr *expr)
{
    switch (expr->op) {
    case comp_NE:
    case comp_EQ:
    case comp_TAILEQ: {
	const char *s1, *s2;
	int ret;

s1 = eval_word(context, env, expr->arg1);
	s2 = eval_word(context, env, expr->arg2);

if (s1 == NULL || s2 == NULL)
	    return FALSE;

if (expr->op == comp_TAILEQ) {
	    size_t len1 = strlen(s1);
	    size_t len2 = strlen(s2);

if (len1 < len2)
		return 0;
	    ret = strcmp(s1 + (len1 - len2), s2) == 0;
	} else {
	    ret = strcmp(s1, s2) == 0;
	    if (expr->op == comp_NE)
		ret = !ret;
	}
	return ret;
    }
    case comp_IN: {
	struct hx_expr *subexpr;
	const char *w, *s1;

w = eval_word(context, env, expr->arg1);

subexpr = expr->arg2;

if (subexpr->op == expr_WORDS) {
	    while (subexpr) {
		s1 = eval_word(context, env, subexpr->arg1);
		if (strcmp(w, s1) == 0)
		    return TRUE;
		subexpr = subexpr->arg2;
	    }
	} else if (subexpr->op == expr_VAR) {
	    hx509_env subenv;

subenv = find_variable(context, env, subexpr);
	    if (subenv == NULL)
		return FALSE;

while (subenv) {
		if (subenv->type != env_string)
		    continue;
		if (strcmp(w, subenv->name) == 0)
		    return TRUE;
		if (strcmp(w, subenv->u.string) == 0)
		    return TRUE;
		subenv = subenv->next;
	    }

} else
	    _hx509_abort("hx509 eval IN unknown op: %d", (int)subexpr->op);

return FALSE;
    }
    default:
	_hx509_abort("hx509 eval expr with unknown op: %d", (int)expr->op);
    }
    return FALSE;
}

int
_hx509_expr_eval(hx509_context context, hx509_env env, struct hx_expr *expr)
{
    switch (expr->op) {
    case op_TRUE:
	return 1;
    case op_FALSE:
	return 0;
    case op_NOT:
	return ! _hx509_expr_eval(context, env, expr->arg1);
    case op_AND:
	return _hx509_expr_eval(context, env, expr->arg1) &&
	    _hx509_expr_eval(context, env, expr->arg2);
    case op_OR:
	return _hx509_expr_eval(context, env, expr->arg1) ||
	    _hx509_expr_eval(context, env, expr->arg2);
    case op_COMP:
	return eval_comp(context, env, expr->arg1);
    default:
	_hx509_abort("hx509 eval expr with unknown op: %d", (int)expr->op);
	UNREACHABLE(return 0);
    }
}

void
_hx509_expr_free(struct hx_expr *expr)
{
    switch (expr->op) {
    case expr_STRING:
    case expr_NUMBER:
	free(expr->arg1);
	break;
    case expr_WORDS:
    case expr_FUNCTION:
    case expr_VAR:
	free(expr->arg1);
	if (expr->arg2)
	    _hx509_expr_free(expr->arg2);
	break;
    default:
	if (expr->arg1)
	    _hx509_expr_free(expr->arg1);
	if (expr->arg2)
	    _hx509_expr_free(expr->arg2);
	break;
    }
    free(expr);
}

struct hx_expr *
_hx509_expr_parse(const char *buf)
{
    _hx509_expr_input.buf = buf;
    _hx509_expr_input.length = strlen(buf);
    _hx509_expr_input.offset = 0;
    _hx509_expr_input.expr = NULL;

if (_hx509_expr_input.error) {
	free(_hx509_expr_input.error);
	_hx509_expr_input.error = NULL;
    }

yyparse();

return _hx509_expr_input.expr;
}

void
_hx509_sel_yyerror (const char *s)
{
     if (_hx509_expr_input.error)
         free(_hx509_expr_input.error);

_hx509_expr_input.error = strdup(s);
}

003 File Manager

Editing: sel.c

Upload File

Create Folder