From 3fc18d3db73f03ed7a19df5368b5d68deef65fca Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 13 Feb 2006 06:10:07 +0000 Subject: built Pd-0.38.4-extendedRC8 and deleted the ancient darwin_pkg section svn path=/trunk/; revision=4585 --- packages/darwin_pkg/pdrc-parser.pl | 63 -------------------------------------- 1 file changed, 63 deletions(-) delete mode 100755 packages/darwin_pkg/pdrc-parser.pl (limited to 'packages/darwin_pkg/pdrc-parser.pl') diff --git a/packages/darwin_pkg/pdrc-parser.pl b/packages/darwin_pkg/pdrc-parser.pl deleted file mode 100755 index cb034c35..00000000 --- a/packages/darwin_pkg/pdrc-parser.pl +++ /dev/null @@ -1,63 +0,0 @@ -#!/usr/bin/perl -# -# Hans-Christoph Steiner -# -# This script adds things to the user's .pdrc to support the -# included external libs and a personal external/help folder -# for each user. - -# this script has a bug in it: it doesn't create -# the dirs $EXTERNALS and $HELP - -#----------------------------------------------------------------------------# - -sub addLineToPdrc { - my $addline = shift(@_); - - $DESTFILE = "$home/.pdrc"; - - if ( ! -e $DESTFILE ) { - my $now = time; - utime $now, $now, $DESTFILE; - } - - if ( ! `grep -- \'$addline\' \"$DESTFILE\"` ) { - print "Adding: $addline\n"; - `echo $addline >> $DESTFILE`; - } else { print "( found: $addline )\n"; } -} - -#----------------------------------------------------------------------------# - -# if the user has a home dir, add stuff to it -if ( -d $ENV{'HOME'} ) { - $home = $ENV{'HOME'}; - print "Found home dir: $home\n"; - -# create place for users to install their own help/externals - $EXTERNALS="$home/Library/Pd/Externals"; - $HELP="$home/Library/Pd/Help"; - if ( ! -d "$EXTERNALS" ) { mkdir("$EXTERNALS"); } - if ( ! -d "$HELP" ) { mkdir("$HELP"); } - - @pdrc = ( - "-listdev", - "-lib Gem", - "-lib iemlib1", - "-lib iemlib2", - "-lib iem_mp3", - "-lib iem_t3_lib", - "-lib pdp", - "-lib xsample", - "-lib zexy", - "-path $EXTERNALS", - "-helppath $HELP" - ); - - foreach $line (@pdrc) { - addLineToPdrc ($line); - } - -} else { - print "ERROR: no home: $ENV{'HOME'}\n"; -} -- cgit v1.2.1