1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/ossrv/genericopenlibs/liboil/src/build_marshal.c Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,199 @@
1.4 +/*
1.5 + * LIBOIL - Library of Optimized Inner Loops
1.6 + * Copyright (c) 2004 David A. Schleef <ds@schleef.org>
1.7 + * All rights reserved.
1.8 + *
1.9 + * Redistribution and use in source and binary forms, with or without
1.10 + * modification, are permitted provided that the following conditions
1.11 + * are met:
1.12 + * 1. Redistributions of source code must retain the above copyright
1.13 + * notice, this list of conditions and the following disclaimer.
1.14 + * 2. Redistributions in binary form must reproduce the above copyright
1.15 + * notice, this list of conditions and the following disclaimer in the
1.16 + * documentation and/or other materials provided with the distribution.
1.17 + *
1.18 + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
1.19 + * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
1.20 + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
1.21 + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
1.22 + * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
1.23 + * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
1.24 + * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
1.25 + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
1.26 + * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
1.27 + * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
1.28 + * POSSIBILITY OF SUCH DAMAGE.
1.29 + */
1.30 +
1.31 +
1.32 +#include <stdio.h>
1.33 +#include <liboil/liboil.h>
1.34 +#include <ctype.h>
1.35 +#include <stdlib.h>
1.36 +#include <string.h>
1.37 +
1.38 +#include <liboil/liboilprototype.h>
1.39 +
1.40 +void print_header (void);
1.41 +void print_footer (void);
1.42 +void add_pointer_mask (unsigned int mask);
1.43 +
1.44 +unsigned int proto_masks[1000];
1.45 +int n_for_mask[1000];
1.46 +int n_proto_masks;
1.47 +
1.48 +int main (int argc, char *argv[])
1.49 +{
1.50 + OilFunctionClass *klass;
1.51 + OilPrototype *proto;
1.52 + int i;
1.53 + int j;
1.54 + int n;
1.55 + unsigned int pointer_mask;
1.56 +
1.57 + oil_init_no_optimize ();
1.58 +
1.59 + print_header ();
1.60 +
1.61 + n = oil_class_get_n_classes ();
1.62 + for (i=0;i<n; i++ ){
1.63 + klass = oil_class_get_by_index (i);
1.64 +
1.65 + if(klass->prototype) {
1.66 + proto = oil_prototype_from_string (klass->prototype);
1.67 + if (proto) {
1.68 + pointer_mask = 1;
1.69 +
1.70 + for (j=0;j<proto->n_params;j++){
1.71 + pointer_mask <<= 1;
1.72 + if (proto->params[j].is_pointer) pointer_mask |= 1;
1.73 + }
1.74 +
1.75 + add_pointer_mask (pointer_mask);
1.76 +
1.77 + oil_prototype_free (proto);
1.78 + } else {
1.79 + printf("/* ERROR: could not parse %s(%s) */\n", klass->name, klass->prototype);
1.80 + }
1.81 + }
1.82 + }
1.83 +
1.84 + for(i=0;i<n_proto_masks;i++){
1.85 + unsigned int bit;
1.86 + unsigned int hibit;
1.87 +
1.88 + pointer_mask = proto_masks[i];
1.89 + for(hibit=1;hibit<=pointer_mask;hibit<<=1);
1.90 + hibit>>=2;
1.91 +
1.92 + printf(" case 0x%04x:\n", pointer_mask);
1.93 + printf(" oil_profile_start (prof);\n");
1.94 + printf(" ((void (*)(");
1.95 + if(hibit == 0) {
1.96 + printf("void");
1.97 + } else {
1.98 + for(bit=hibit;bit;bit >>= 1) {
1.99 + if (pointer_mask & bit) {
1.100 + printf("void *");
1.101 + } else {
1.102 + printf("int");
1.103 + }
1.104 + if (bit > 1) {
1.105 + printf(",");
1.106 + }
1.107 + }
1.108 + }
1.109 + printf("))func)\n");
1.110 + printf(" (");
1.111 + j=0;
1.112 + for(bit=hibit;bit;bit >>= 1) {
1.113 + if (pointer_mask & bit) {
1.114 + printf("(void *)args[%d]", j);
1.115 + } else {
1.116 + printf("(int)args[%d]", j);
1.117 + }
1.118 + if (bit > 1) {
1.119 + printf(",");
1.120 + }
1.121 + j++;
1.122 + }
1.123 + printf(");\n");
1.124 + printf(" oil_profile_stop (prof);\n");
1.125 + printf(" break;\n");
1.126 + }
1.127 +
1.128 + print_footer ();
1.129 +
1.130 + return 0;
1.131 +}
1.132 +
1.133 +void
1.134 +add_pointer_mask (unsigned int mask)
1.135 +{
1.136 + int i;
1.137 + for(i=0;i<n_proto_masks;i++){
1.138 + if (proto_masks[i] == mask) {
1.139 + n_for_mask[i]++;
1.140 + return;
1.141 + }
1.142 + }
1.143 + proto_masks[n_proto_masks] = mask;
1.144 + n_for_mask[n_proto_masks]++;
1.145 + n_proto_masks++;
1.146 +}
1.147 +
1.148 +void print_header (void)
1.149 +{
1.150 + printf ("/*\n");
1.151 + printf (" * LIBOIL - Library of Optimized Inner Loops\n");
1.152 + printf (" * Copyright (c) 2004 David A. Schleef <ds@schleef.org>\n");
1.153 + printf (" * All rights reserved.\n");
1.154 + printf (" *\n");
1.155 + printf (" * Redistribution and use in source and binary forms, with or without\n");
1.156 + printf (" * modification, are permitted provided that the following conditions\n");
1.157 + printf (" * are met:\n");
1.158 + printf (" * 1. Redistributions of source code must retain the above copyright\n");
1.159 + printf (" * notice, this list of conditions and the following disclaimer.\n");
1.160 + printf (" * 2. Redistributions in binary form must reproduce the above copyright\n");
1.161 + printf (" * notice, this list of conditions and the following disclaimer in the\n");
1.162 + printf (" * documentation and/or other materials provided with the distribution.\n");
1.163 + printf (" * \n");
1.164 + printf (" * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR\n");
1.165 + printf (" * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED\n");
1.166 + printf (" * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\n");
1.167 + printf (" * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,\n");
1.168 + printf (" * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES\n");
1.169 + printf (" * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR\n");
1.170 + printf (" * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)\n");
1.171 + printf (" * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,\n");
1.172 + printf (" * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING\n");
1.173 + printf (" * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE\n");
1.174 + printf (" * POSSIBILITY OF SUCH DAMAGE.\n");
1.175 + printf (" */\n");
1.176 + printf ("\n");
1.177 + printf ("/* This file is automatically generated. Do not edit. */\n");
1.178 + printf ("\n");
1.179 + printf ("#ifdef HAVE_CONFIG_H\n");
1.180 + printf ("#include <config.h>\n");
1.181 + printf ("#endif\n");
1.182 + printf ("\n");
1.183 + printf ("#include <liboil/liboiltest.h>\n");
1.184 + printf ("#include <liboil/liboildebug.h>\n");
1.185 + printf ("#include <liboil/liboilprofile.h>\n");
1.186 + printf ("\n");
1.187 + printf ("void\n");
1.188 + printf ("_oil_test_marshal_function (void *func, unsigned long *args, int n_args,\n");
1.189 + printf (" unsigned int pointer_mask, OilProfile *prof)\n");
1.190 + printf ("{\n");
1.191 + printf (" switch (pointer_mask) {\n");
1.192 +}
1.193 +
1.194 +void print_footer (void)
1.195 +{
1.196 + printf (" default:\n");
1.197 + printf (" OIL_ERROR (\"unhandled marshal case\");\n");
1.198 + printf (" }\n");
1.199 + printf ("}\n");
1.200 + printf ("\n");
1.201 +}
1.202 +