On Thu, 30 Oct 2003, Patrick Wallace wrote:
> Tim,
>
>
> > It occurs to me that specifically for SLA, using GPL rather than LGPL is
> > warranted since that means commercial companies will not want to use the
> > "free" version since they would have to GPL their applications, providing
> > a reason for them to pay for the C implementation. (I'm imagining here
> > that most commercial companies would not want to open up their source
> > code)/
> >
> > Will that overcome the objections to a GPL slalib?
>
> Thank you for alerting me to this issue.
>
> I had failed to notice that there are the two flavours of GPL, and had
> naively thought that the SLALIB/F licensing was such that use in building
> proprietary applications remained prohibited. I strongly recommend that
> SLALIB/F be licensed under the GPL provisions, not LGPL.
>
> By the way, do I need to edit some stuff into each of the Fortran modules
> to specify the licensing status? If so, can you produce the requisite
> perl script to save me some work?
>
Brand new package (I'm calling it sla 2.4-12 for now) available from
ftp://ftp.jach.hawaii.edu/pub/jcmt/timj/sla-2.4_12.tar.gz
This is a standard Starlink tar file with
- GPL licence in SLA_CONDITIONS (I needed to tweak the makefile
for this since there was no conditions file previously)
- all source code has been modified to include the standard GPL
declaration
Pat - can you take over from here to integrate any new changes you have
(this is based on the version from the current CD). Just in case you want
to make sure you are starting from your source code I have attached the
fudge perl script as requested :-) Just run it in the source directory.
Two files won't be fudged:
random.f_pcm - because it doesn't have a "*-" (there is a "*+" in the
wrong place.
rtl_random.c - because I'm looking for the fortran prologue.
Would it be possible to put this current version on Starlink FTP for now
rather than wait for the next CD release?
--
Tim Jenness
JAC software
http://www.jach.hawaii.edu/~timj
#!perl
opendir(DIR,".") or die "Oops: $!";
my @files = readdir(DIR);
closedir(DIR) or die "Oops2: $!";
my @lic = <DATA>;
for my $file (@files) {
next if $file =~ /\.pl/;
print "********* $file *****************\n";
open my $fh, "<$file" or die "Error opening file $file: $!";
my $outfile = "$file.new";
open my $outh, "> $outfile" or die "error opening output file: $!";
my $mod = 0;
while (defined (my $line = <$fh>)) {
if ($line =~ /^\*\-/) {
print $outh @lic;
$mod = 1;
}
print $outh $line;
}
close($outh) or die "Error closing file $outfile: $!";
if ($mod) {
rename $outfile, $file or die "Error renaming file $file: $!";
}
}
__DATA__
*
* License:
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program (see SLA_CONDITIONS); if not, write to the
* Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA
*
|