#!/usr/bin/env perl ## $Id$ ## parse the db #defines to php. ## syntax: ./db_def_to_php < ../db/boinc_db.h > boinc_db.inc # print "# Generated by db_def_to_py on "; # system('date'); while (<>) { if (/^\s*#define\s+([^\s]+)\s+([0-9]+)\s*$/) { print qq/$1 = $2\n/; } }