[go: up one dir, main page]

Menu

[r1]: / trunk / fuss.pl  Maximize  Restore  History

Download this file

23 lines (18 with data), 560 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
#! /usr/bin/perl -w
# Author : Gautam Iyer <gautam@math.uchicago.edu>
# Created : Wed 24 Nov 2005 10:23:55 AM CST
# Modified : Thu 15 Sep 2005 01:21:59 AM CDT
# Licence : GNU General Programers Licence. See the file Licence for the
# exact licence.
use strict;
use integer;
use Cwd qw(abs_path);
use FindBin qw($RealBin);
use lib $RealBin;
use funroll::Config;
# Parse config file
# read_file( $string): Parse file $file. Read globals, and exec actions.
# clear_globals()
if( defined( $ARGV[0]) && $ARGV[0] ne "" ) {
parse_config_file( $ARGV[0]);
}