From 1bc38e6e6aa3af9e207aeb7baf2d6960cf33d999 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Wed, 17 Sep 2003 14:12:37 +0000 Subject: script for adding things to a user's .pdrc svn path=/trunk/; revision=991 --- packages/darwin_pkg/pdrc-parser.pl | 62 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100755 packages/darwin_pkg/pdrc-parser.pl (limited to 'packages/darwin_pkg') diff --git a/packages/darwin_pkg/pdrc-parser.pl b/packages/darwin_pkg/pdrc-parser.pl new file mode 100755 index 00000000..6bc0ac6d --- /dev/null +++ b/packages/darwin_pkg/pdrc-parser.pl @@ -0,0 +1,62 @@ +#!/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 zexy", + "$EXTERNALS", + "$HELP" + ); + + foreach $line (@pdrc) { + addLineToPdrc ($line); + } + +} else { + print "ERROR: no home: $ENV{'HOME'}\n"; +} -- cgit v1.2.1