flaithbheartaigh/jaikuengine-mobile-frontend
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Folders and files
Name | Name | Last commit message | Last commit date | |
---|---|---|---|---|
Repository files navigation
# Copyright (c) 2007-2009 Google Inc. # Copyright (c) 2006-2007 Jaiku Ltd. # Copyright (c) 2002-2006 Mika Raento and Renaud Petit # # This software is licensed at your choice under either 1 or 2 below. # # 1. MIT License # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to deal # in the Software without restriction, including without limitation the rights # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell # copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN # THE SOFTWARE. # # 2. Gnu General Public license 2.0 # # 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; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # # # This file is part of the JaikuEngine mobile client. use strict; my $notice = $ARGV[0]; my $source = $ARGV[1]; open(NOTICE, "<$notice") || die "cannot open $notice for reading"; my @notice_lines = <NOTICE>; close(NOTICE); open(SOURCE, "<$source") || die "cannot open $source for reading"; my @source_lines = <SOURCE>; close(SOURCE); my $comment_prefix = "//"; $comment_prefix = "#" if ($source =~ /\.sh$/i); $comment_prefix = "#" if ($source =~ /\.pl$/i); $comment_prefix = "#" if ($source =~ /\.pm$/i); $comment_prefix = "#" if ($source =~ /\.t$/i); $comment_prefix = '@REM' if ($source =~ /\.bat$/i); my $comment_prefix_len = length($comment_prefix); my $line_end = "\n"; $line_end = "\r\n" if ($notice_lines[0] =~ /\r/); @notice_lines = map { s/\r?\n//; $comment_prefix . " " . $_ } @notice_lines; @notice_lines = map { s/\s*$//; $_ } @notice_lines; my $notice_text = join($line_end, @notice_lines); @source_lines = map { s/\r?\n//; $_ } @source_lines; my $source_text = ""; my $line_no = 0; foreach my $line (@source_lines) { $line_no++; next if ($line_no <= 2); $source_text .= $line . $line_end; } $source_text = $notice_text . $line_end x 2 . $source_text; open(TMP, ">${source}.tmp") || die "cannot open ${source}.tmp for writing"; print TMP $source_text; close(TMP); system("mv ${source}.tmp $source");
About
Automatically exported from code.google.com/p/jaikuengine-mobile-frontend
Stars
Watchers
Forks
Releases
No releases published
Packages 0
No packages published