int main() {
qc_init();
gen gs[] = { gen_odd };
print ps[] = { print_int };
// Are all odd numbers odd?
for_all(is_odd, 1, gs, ps, int);
gen gs2[] = { gen_int };
print ps2[] = { print_int };
// Are all integers odd?
for_all(is_odd, 1, gs2, ps2, int);
gen gs3[] = { gen_int, gen_int, gen_int };
print ps3[] = { print_int, print_int, print_int };
// Are any two integers less than a third integer?
for_all(both_less_than, 3, gs3, ps3, int);
gen gs4[] = { gen_digit_char, gen_digit };
print ps4[] = { print_char, print_int };
// Do any characters parse to a matching integer?
for_all(does_not_parse_to, 2, gs4, ps4, int);
gen gs5[] = { gen_string };
print ps5[] = { print_string };
// Do any string pairs match?
for_all(does_not_have_an_h, 1, gs5, ps5, char*);
return 0;
}
vmem_t *
vmem_init(vmem_t *vm, const char *name,
vmem_addr_t base, vmem_size_t size, vmem_size_t quantum,
vmem_import_t *importfn, vmem_release_t *releasefn,
vmem_t *arg, vmem_size_t qcache_max, vm_flag_t flags, int ipl)
{
int i;
KASSERT((flags & (VM_SLEEP|VM_NOSLEEP)) != 0);
KASSERT((~flags & (VM_SLEEP|VM_NOSLEEP)) != 0);
KASSERT(quantum > 0);
#if defined(_KERNEL)
/* XXX: SMP, we get called early... */
if (!vmem_bootstrapped) {
vmem_bootstrap();
}
#endif /* defined(_KERNEL) */
if (vm == NULL) {
vm = xmalloc(sizeof(*vm), flags);
}
if (vm == NULL) {
return NULL;
}
VMEM_CONDVAR_INIT(vm, "vmem");
VMEM_LOCK_INIT(vm, ipl);
vm->vm_flags = flags;
vm->vm_nfreetags = 0;
LIST_INIT(&vm->vm_freetags);
strlcpy(vm->vm_name, name, sizeof(vm->vm_name));
vm->vm_quantum_mask = quantum - 1;
vm->vm_quantum_shift = SIZE2ORDER(quantum);
KASSERT(ORDER2SIZE(vm->vm_quantum_shift) == quantum);
vm->vm_importfn = importfn;
vm->vm_releasefn = releasefn;
vm->vm_arg = arg;
vm->vm_nbusytag = 0;
vm->vm_size = 0;
vm->vm_inuse = 0;
#if defined(QCACHE)
qc_init(vm, qcache_max, ipl);
#endif /* defined(QCACHE) */
TAILQ_INIT(&vm->vm_seglist);
for (i = 0; i < VMEM_MAXORDER; i++) {
LIST_INIT(&vm->vm_freelist[i]);
}
memset(&vm->vm_hash0, 0, sizeof(struct vmem_hashlist));
vm->vm_hashsize = 1;
vm->vm_hashlist = &vm->vm_hash0;
if (size != 0) {
if (vmem_add(vm, base, size, flags) != 0) {
vmem_destroy1(vm);
return NULL;
}
}
#if defined(_KERNEL)
if (flags & VM_BOOTSTRAP) {
bt_refill(vm, VM_NOSLEEP);
}
mutex_enter(&vmem_list_lock);
LIST_INSERT_HEAD(&vmem_list, vm, vm_alllist);
mutex_exit(&vmem_list_lock);
#endif /* defined(_KERNEL) */
return vm;
}
