Branch: Tag:

2005-01-03

2005-01-03 17:22:22 by Henrik Grubbström (Grubba) <grubba@grubba.org>

First version. Needs argument parsing and removal of hardcoded stuff.

Rev: src/mklibpike.pike:1.1

1: + /* +  * $Id: mklibpike.pike,v 1.1 2005/01/03 17:22:22 grubba 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", + }); +  + class C_Include_Handler(array(string) search_path) + { +  string handle_include(string f, string current_file, int local_include) +  { +  if (!local_include) { +  // Ignore system header files. +  return ""; +  } else { +  foreach(search_path, string path) { +  path = combine_path(path, f); +  if (file_stat(path)) { +  return path; +  } +  } +  } +  return 0; // Header not found. +  } +  +  string read_include(string f) +  { +  if (!sizeof(f)) return ""; // System header. +  return Stdio.read_file(f); +  } + } +  + //! Returns a mapping from symbol to a tuple of return type and parameters. + mapping(string:array(array(Parser.C.Token))) parse(array(Parser.C.Token) tokens) + { +  mapping(string:array(array(Parser.C.Token))) res = ([]); +  int i; +  int start; +  for (start=i=0; i < sizeof(tokens); i++) { +  array(Parser.C.Token)|object(Parser.C.Token) token = tokens[i]; +  if ((objectp(token)) && (token->text == ";")) { +  if (i > start + 2) { +  if (objectp(tokens[start]) && (tokens[start]->text == "typedef")) { +  // Ignore. +  } else { +  array(Parser.C.Token)|Parser.C.Token last; +  if (arrayp(last = tokens[i-1]) && sizeof(last)) { +  if (last[0]->text == "(") { +  // Function declaration. +  res[(string)tokens[i-2]] = ({ +  tokens[start..i-3], +  last, +  }); +  } else { +  // { : possible inline function, but probably an struct or enum. +  // [ : array declaration. +  // Ignored for now. +  } +  } +  } +  } else { +  // Too few tokens to be a function. +  } +  start = i+1; +  } +  } +  return res; + } +  + int main(int argc, array(string) argv) + { +  array(string) headers = default_headers; +  array(string) srcdirs = ({ ".", "/home/grubba/src/Pike/7.7/src", }); +  array(string) symbols = ({ "init_pike", "pike_set_default_master" }); +  +  Stdio.File out = Stdio.stdout; +  +  // FIXME: Argument parsing here. +  +  // Suggested arguments: +  // +  // -h Help. +  // -i Add include file. +  // -I Add include directory. +  // -o Specify output filename. +  // -s Add single symbol. +  // -S Specify symbol file. +  +  string raw = cpp(sprintf("%{#include \"%s\"\n%}", headers), "include_all.c", +  0, +  C_Include_Handler(srcdirs)); +  +  array(Parser.C.Token|array) tokens = +  Parser.C.strip_line_statements( +  Parser.C.hide_whitespaces( +  Parser.C.group(Parser.C.tokenize(Parser.C.split(raw))) +  ) +  ); +  +  mapping(string:array(array(Parser.C.Token))) symbol_info = parse(tokens); +  +  int fail; +  foreach(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" +  "%s %s%s\n" +  "{\n" +  " %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) { +  // FIXME: function pointer args! +  out->write("%s%s", n?", ":"",arg[-1]->text); +  } +  out->write(");\n" +  "}\n\n"); +  } +  return fail; + } +    Newline at end of file added.