55 	isccc_sexpr_t *alist, *tag;  in isccc_alist_create()  local
61 	alist = isccc_sexpr_cons(tag, NULL);  in isccc_alist_create()
62 	if (alist == NULL) {  in isccc_alist_create()
67 	return (alist);  in isccc_alist_create()
71 isccc_alist_alistp(isccc_sexpr_t *alist) {  in isccc_alist_alistp()  argument
74 	if (alist == NULL || alist->type != ISCCC_SEXPRTYPE_DOTTEDPAIR) {  in isccc_alist_alistp()
77 	car = CAR(alist);  in isccc_alist_alistp()
88 isccc_alist_emptyp(isccc_sexpr_t *alist) {  in isccc_alist_emptyp()  argument
89 	REQUIRE(isccc_alist_alistp(alist));  in isccc_alist_emptyp()
91 	if (CDR(alist) == NULL) {  in isccc_alist_emptyp()
98 isccc_alist_first(isccc_sexpr_t *alist) {  in isccc_alist_first()  argument
99 	REQUIRE(isccc_alist_alistp(alist));  in isccc_alist_first()
101 	return (CDR(alist));  in isccc_alist_first()
105 isccc_alist_assq(isccc_sexpr_t *alist, const char *key) {  in isccc_alist_assq()  argument
108 	REQUIRE(isccc_alist_alistp(alist));  in isccc_alist_assq()
113 	alist = CDR(alist);  in isccc_alist_assq()
115 	while (alist != NULL) {  in isccc_alist_assq()
116 		INSIST(alist->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);  in isccc_alist_assq()
117 		car = CAR(alist);  in isccc_alist_assq()
125 		alist = CDR(alist);  in isccc_alist_assq()
132 isccc_alist_delete(isccc_sexpr_t *alist, const char *key) {  in isccc_alist_delete()  argument
135 	REQUIRE(isccc_alist_alistp(alist));  in isccc_alist_delete()
137 	prev = alist;  in isccc_alist_delete()
138 	rest = CDR(alist);  in isccc_alist_delete()
158 isccc_alist_define(isccc_sexpr_t *alist, const char *key,  in isccc_alist_define()  argument
162 	kv = isccc_alist_assq(alist, key);  in isccc_alist_define()
176 		elt = isccc_sexpr_addtolist(&alist, kv);  in isccc_alist_define()
193 isccc_alist_definestring(isccc_sexpr_t *alist, const char *key,  in isccc_alist_definestring()  argument
201 	kv = isccc_alist_define(alist, key, v);  in isccc_alist_definestring()
210 isccc_alist_definebinary(isccc_sexpr_t *alist, const char *key,  in isccc_alist_definebinary()  argument
218 	kv = isccc_alist_define(alist, key, v);  in isccc_alist_definebinary()
227 isccc_alist_lookup(isccc_sexpr_t *alist, const char *key) {  in isccc_alist_lookup()  argument
230 	kv = isccc_alist_assq(alist, key);  in isccc_alist_lookup()
238 isccc_alist_lookupstring(isccc_sexpr_t *alist, const char *key, char **strp) {  in isccc_alist_lookupstring()  argument
241 	kv = isccc_alist_assq(alist, key);  in isccc_alist_lookupstring()
258 isccc_alist_lookupbinary(isccc_sexpr_t *alist, const char *key,  in isccc_alist_lookupbinary()  argument
262 	kv = isccc_alist_assq(alist, key);  in isccc_alist_lookupbinary()