pike.git / src / mklibpike.pike

version» Context lines:

pike.git/src/mklibpike.pike:1:   /* -  * $Id: mklibpike.pike,v 1.4 2005/01/03 18:57:29 grubba Exp $ +  * $Id: mklibpike.pike,v 1.5 2008/06/28 22:05:04 mast Exp $    *    * Create strapping code for a list of symbols in pike.so,    * and the pike headerfiles.    *    * Henrik Grubbström 2005-01-03    */      constant default_headers = ({    "global.h",    "pike_embed.h",
pike.git/src/mklibpike.pike:176:    int fail;    foreach(Array.uniq(sort(symbols)), string sym) {    array(array(Parser.C.Token)) info = symbol_info[sym];    if (!info) {    werror("Symbol %O not found!\n", sym);    fail = 1;    continue;    }    string rettype = String.trim_whites(Parser.C.simple_reconstitute(info[0]));    string params = Parser.C.simple_reconstitute(info[1]); -  out->write("static %s (*vec_%s)%s;\n" +  out->write("protected %s (*vec_%s)%s;\n"    "%s %s%s\n"    "{\n"    // FIXME: Code to resolve the symbol here.    " %svec_%s(",    rettype, sym, params,    rettype, sym, params,    (rettype=="void")?"":"return ", sym);       array(array(Parser.C.Token)) args = info[1][1..sizeof(info[1])-2]/({","});    foreach(args; int n; array(Parser.C.Token) arg) {