[Freeswitch-branches] [commit] r1744 - freeswitch/branches/stkn

Freeswitch SVN stkn at freeswitch.org
Mon Jul 3 21:59:14 EDT 2006


Author: stkn
Date: Mon Jul  3 21:59:14 2006
New Revision: 1744

Added:
   freeswitch/branches/stkn/fsxs.in   (contents, props changed)

Log:
Add initial version of fsxs, integration into autotools pending

Added: freeswitch/branches/stkn/fsxs.in
==============================================================================
--- (empty file)
+++ freeswitch/branches/stkn/fsxs.in	Mon Jul  3 21:59:14 2006
@@ -0,0 +1,306 @@
+#!/usr/bin/perl
+#
+# FreeSwitch fsxs
+#
+# (C) 2006 Stefan Knoblich <stkn at netdomination.org>
+
+use strict;
+
+#
+# @FOO@ will be replaced by the freeswitch build process
+#
+my %vars = (
+	CC => '@CC@',
+	LD => '@LD@',
+	MKDIR => '@MKINSTALLDIR@',
+	INSTALL => '@INSTALL@',
+	LIBS => '@LIBS@',
+	CFLAGS => '@CFLAGS@',
+	LDFLAGS => '@LDFLAGS@',
+	SOLINK => '@SOLINK@',
+	APR_CFLAGS => '@APR_CFLAGS@',
+	APR_LIBS => '@APR_LIBS@',
+
+	MODULES_DIR => '@MODULES_DIR@'
+	LIB_DIR => '@LIB_DIR@',
+	BIN_DIR => '@BIN_DIR@',
+	DB_DIR => '@DB_DIR@',
+	CFG_DIR => '@CFG_DIR@',
+	PREFIX => '@PREFIX@'
+);
+
+## example
+#my %vars = (
+#	CC => 'gcc',
+#	LD => 'gcc',
+#	MKDIR => 'mkdir -p',
+#	INSTALL => 'install',
+#	LIBS => '-lfreeswitch',
+#	CFLAGS => '-O2 -march=athlon-xp -pipe -ggdb3 -I/opt/freeswitch/include -I/opt/freeswitch/include/apr-1 -I/opt/freeswitch/include/apr-util-1',
+#	LDFLAGS => '-L/opt/freeswitch/lib',
+#	SOLINK => '-shared -Xlinker -x',
+#	APR_CFLAGS => '-pthread -DLINUX=2 -D_REENTRANT -D_GNU_SOURCE -D_LARGEFILE64_SOURCE',
+#	APR_LIBS => '',
+#
+#	MODULES_DIR => '/opt/freeswitch/mod',
+#	LIB_DIR => '/opt/freeswitch/lib',
+#	BIN_DIR => '/opt/freeswitch/bin',
+#	DB_DIR => '/opt/freeswitch/db',
+#	CFG_DIR => '/opt/freeswitch/conf',
+#	PREFIX => '/opt/freeswitch'
+#);
+
+#
+# Misc variables
+#
+my @files = ();
+
+my $command;
+my $target;
+
+my $needs_target = 1;
+my $debug = 0;
+
+#
+# functions 
+#
+
+sub do_exec {
+	my $retval = system( "@_ >/dev/null" );
+	if( $retval ) {
+		exit $retval;
+	}
+}
+
+sub fsxs_usage {
+	print "FreeSwitch fsxs\n(C) 2006 Stefan Knoblich <stkn at netdomination.org>\n";
+	print "\n";
+	print "Usage:\n";
+	print "\t$0 compile [options] <file1 ...>\n";
+	print "\t$0 link    [options] <target> <file1 ...>\n";
+	print "\t$0 build   [options] <target> <file1 ...>\n";
+	print "\t$0 install [options] <file1 ...>\n";
+	print "\t$0 show    <var1 ...>\n\n";
+	print "Command description:\n";
+	print "\tcompile: Compile source file(s) into object file(s)\n";
+	print "\tlink:    Create module from object file(s)\n";
+	print "\tbuild:   Build module from source file(s) (compile + link)\n";
+	print "\tinstall: Install module(s) into freeswitch module directory\n";
+	print "\tshow:    Show defined variable(s)\n";
+	print "\n";
+
+	print "Options:\n";
+	print "\t--add-cflags  Append custom cflags   [compile, build]\n";
+	print "\t--set-cflags  Override cflags        [compile, build]\n";
+	print "\n";
+	print "\t--add-ldflags Append custom ldflags  [link, build]\n";
+	print "\t--set-ldflags Override ldflags       [link, build]\n";
+	print "\t--add-libs    Append additional libs [link, build]\n";
+	print "\t--set-libs    Override libs          [link, build]\n";
+	print "\n";
+	print "\t--destdir     Installation prefix    [install]\n";
+	print "\n";
+
+	print "Examples:\n";
+	print "\t$0 compile --add-cflags=\"-DFOO=1 -DBAR\" mod_test.c mod_test2.c\n\n";
+	print "\t$0 link --add-ldflags=\"-ltest\" mod_test.so mod_test.o mod_test2.o\n\n";
+	print "\t$0 build --add-cflags=\"-DFOO\" --add-ldflags=\"-ltest\" mod_test.so mod_test.c mod_test2.c\n\n";
+	exit 1;
+}
+
+sub fsxs_compile {
+	my $cc_cmd;
+
+	$cc_cmd = "$vars{CC}";
+	if( defined( $vars{APR_CFLAGS} ) && $vars{APR_CFLAGS} ) {
+		$cc_cmd = $cc_cmd . " $vars{APR_CFLAGS}"
+	}
+	$cc_cmd = $cc_cmd . " $vars{CFLAGS} -c -o";
+
+	foreach( @_ ) {
+		chomp( $_ );
+
+		# replace file extension
+		my $outfile = $_;
+		$outfile =~ s/\.(cpp|cc|c)$/.o/;
+
+		print "CC\t$_\n";
+		if( $debug ) {
+			print "$cc_cmd $outfile $_\n"
+		}
+		do_exec( "$cc_cmd $outfile $_" );
+	}
+}
+
+sub fsxs_link {
+	my $target = shift;
+	my @objs = @_;
+	my $ld_cmd;
+
+	$ld_cmd = "$vars{LD}";
+	if( defined( $vars{APR_LIBS} ) && $vars{APR_LIBS} ) {
+		$ld_cmd = $ld_cmd . " $vars{APR_LIBS}"
+	}
+	$ld_cmd = $ld_cmd . " $vars{LDFLAGS} $vars{SOLINK} -o";
+
+	print "LD\t$target\t[@objs]\n";
+	if( $debug ) {
+		print "$ld_cmd $target @objs $vars{LIBS}\n"
+	}
+	do_exec( "$ld_cmd $target @objs $vars{LIBS}" );
+}
+
+sub fsxs_install {
+	my @files = @_;
+	my $destination = $vars{DESTDIR} . $vars{MODULES_DIR};
+
+	# check if destination exists, create if it doesn't
+	if( ! -e $destination ) {
+		if( $debug ) {
+			print "$vars{MKDIR} $destination\n";
+		}
+		do_exec( "$vars{MKDIR} $destination" );
+	}
+	if( $debug ) {
+		print "$vars{INSTALL} -m644 @files $destination\n";
+	}
+	do_exec( "$vars{INSTALL} -m644 @files $destination" );
+}
+
+sub fsxs_show {
+	my @varlist = @_;
+
+	if( $#varlist < 0 ) {
+		# none requested, show all variables with names
+		my $key;
+		foreach $key ( keys %vars ) {
+			print "$key: $vars{$key}\n";
+		}
+	}
+	elsif( $#varlist > 0 ) {
+		# more than one requested, show with name
+		foreach( @varlist ) {
+			if( defined $vars{$_} ) {
+				print "$_: $vars{$_}\n";
+			}
+		}
+	} else {
+		# show only one variable, without name
+		if( defined $vars{$varlist[0]} ) {
+			print "$vars{$varlist[0]}\n";
+		}
+	}
+}
+
+#
+# main part
+#
+if( $#ARGV < 0 ) {
+	fsxs_usage;
+}
+chomp( $command = shift @ARGV );
+
+if( $command =~ /^install|build|link|compile|show$/ ) {
+
+	if( $command =~ /^show|compile|install$/ ) {
+		$needs_target = 0;
+	}
+}
+else {
+	print STDERR "Unknown command: $command\n";
+	fsxs_usage;
+}
+
+# parse environment variables
+if( defined $ENV{DEBUG} && $ENV{DEBUG} ) {
+	$debug = 1;
+}
+
+# parse arguments
+foreach(@ARGV) {
+	chomp( $_ );
+
+	if( $command ne 'show' )
+	{
+		if( /^\--add-cflags=(.*)$/ ) {
+			$vars{CFLAGS} = "$vars{CFLAGS} $1";
+		}
+		elsif( /^\--set-cflags=(.*)$/ ) {
+			$vars{CFLAGS} = "$1";
+		}
+		elsif( /^\--add-ldflags=(.*)$/ ) {
+			$vars{LDFLAGS} = "$vars{LDFLAGS} $1";
+		}
+		elsif( /^\--set-ldflags=(.*)$/ ) {
+			$vars{LDFLAGS} = "$1";
+		}
+		elsif( /^\--add-libs=(.*)$/ ) {
+			$vars{LIBS} = "$vars{LIBS} $1";
+		}
+		elsif( /^\--set-libs=(.*)$/ ) {
+			$vars{LIBS} = "$1";
+		}
+		elsif( /^\--destdir=(.*)$/ ) {
+			$vars{DESTDIR} = "$1";
+		}
+		elsif( /^\--debug$/ ) {
+			$debug = 1;
+		}
+		elsif( /^(DESTDIR|CFLAGS|CC|LDFLAGS|LD|LIBS)=(.*)$/ ) {
+			if( $debug ) {
+				print "Overriding $1 (new value: $2)\n";
+			}
+			$vars{$1} = "$2";
+		}
+		elsif( /^([^\-]+.*)$/ ) {
+			if( $needs_target ) {
+				$target = "$1";
+				$needs_target = 0;
+			} else {
+				push(@files, "$1");
+			}
+		}
+	} else {
+		# show command has different parameter handling
+		if( /^\--(.*)$/ ) {
+			push( @files, uc "$1" );
+		}
+		elsif( /^([^\-]+.*)$/ ) {
+			push( @files, uc "$1" );
+		}
+	}
+}
+
+#
+# execute commands
+#
+if( $command eq 'link' ) {
+	fsxs_link( $target, @files );
+}
+elsif( $command eq 'compile' ) {
+	fsxs_compile( @files );
+}
+elsif( $command eq 'build' ) {
+	my @objs = ();
+
+	fsxs_compile( @files );
+
+	foreach( @files ) {
+		chomp( $_ );
+		$_ =~ s/\.(cpp|cc|c)$/.o/;
+		push( @objs, "$_" );
+	}
+
+	fsxs_link( $target, @objs );
+}
+elsif( $command eq 'show' ) {
+	fsxs_show( @files );
+}
+elsif( $command eq 'install' ) {
+	fsxs_install( @files );
+}
+else {
+	fsxs_usage;
+}
+
+exit 0;



More information about the Freeswitch-branches mailing list