From 92de61b8d8d66a02cd18dbbae4c773fc4e6860ab Mon Sep 17 00:00:00 2001
From: Kostis at kilo <ankostis@gmail.com>
Date: Wed, 23 Apr 2014 10:27:29 +0200
Subject: [PATCH] Add EUPL header also to extract-comments script.
---
Tools/TranslateComments/extract_comments.ps1 | 50 ++++++++++++--------
1 file changed, 31 insertions(+), 19 deletions(-)
diff --git a/Tools/TranslateComments/extract_comments.ps1 b/Tools/TranslateComments/extract_comments.ps1
index 6da08f5a64..667cefb569 100644
--- a/Tools/TranslateComments/extract_comments.ps1
+++ b/Tools/TranslateComments/extract_comments.ps1
@@ -1,18 +1,30 @@
+# Copyright 2014 European Union.
+# Licensed under the EUPL (the 'Licence');
+#
+# * You may not use this work except in compliance with the Licence.
+# * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
+# * Unless required by applicable law or agreed to in writing,
+# software distributed under the Licence is distributed on an "AS IS" basis,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#
+# See the LICENSE.txt for the specific language governing permissions and limitations.
+
+
## 0. Transform all ACII files to UTF
$basepath = '../../VECTO';
-ls "*/*/*/*.vb","*/*/*.vb","*/*.vb","*.vb" |
+ls "*/*/*/*.vb","*/*/*.vb","*/*.vb","*.vb" |
%{
- $f=$_;
+ $f=$_;
if ((Get-FileEncoding $f) -ne UTF8) {
echo "Re-encoding $f";
- (cat $f) |
+ (cat $f) |
Out-File -FilePath $f -Encoding UTF8
} else {
echo "Skipping $f";
}
}
-
-
+
+
## 1. Gather all single-line comments.
##
@@ -27,7 +39,7 @@ filter extract-comments {
$last = $_
}
Select-String -Path *.vb,*/*vb -Pattern "^\s*'.*[a-z]" -Encoding UTF8 |
- extract-comments |
+ extract-comments |
Out-File -Encoding UTF8 ../comments.txt
@@ -43,7 +55,7 @@ filter isolate-text() {
echo "";
}
}
-cat comments2.txt |
+cat comments2.txt |
isolate-text |
Out-File -Encoding UTF8 ../translate_from.txt
@@ -63,7 +75,7 @@ function isolate-untranslated($coms, $from, $to) {
} elseif ($tline -and !($tline.startsWith('@'))) {
echo "$fline" | Out-File -Encoding UTF8 comments_untrans.txt -Append;
}
- }
+ }
}
## 5.a. Merge translated comment-lines with original ones.
@@ -92,12 +104,12 @@ $r=for($i=0; $i -lt $coms.length; $i++) {
$ocom = "";
$ln = "<?>"
}
-
+
if ($ocom -ne $fline) {
echo "Unmtached with Original(parsed) line ${ln}:`n Parsed: ${ocom}`n TrFrom: $fline";
return;
}
-
+
if (!$tline) {
#echo "$nline"; ## UNCOMMENT HERE and delete the rest else-case for producing original.txt
continue;
@@ -109,23 +121,23 @@ $r=for($i=0; $i -lt $coms.length; $i++) {
}
echo "$nline"
}
-}
+}
Set-Content -Path comments2-trans.txt -Value $r -Encoding UTF8
-
+
## 5.b Manually remove empty filepaths (those without translated lines)
## 6.a comments2-orig.txt: Created by runing the above code slightly modified
-## so as to remove those non-translated lines from the verbatim-comments, and then
+## so as to remove those non-translated lines from the verbatim-comments, and then
## 6.b Manually remove empty filepaths (those without translated lines)
-
+
## 7. PATCH files
function matchTransLine($line) {
[hashtable]$res = @{};
-
+
$m = [regex]::Matches($line, "^(\d+):(.*)");
if ($m[0]) {
$mm = $m[0];
@@ -158,7 +170,7 @@ PROCESS {
}
}
$isFileOK = $true;
-
+
$fname = "$basepath/" + $_.Substring(4);
echo "Merging: ${fname}";
$file = cat "$fname";
@@ -184,7 +196,7 @@ PROCESS {
echo "Mismatch in line-nums:`n EXP($explnum):$expline`n TRN($trnlnum):$trnline"
} else {
$orgline = $file[($trnlnum - 1)];
-
+
if ($orgline -ne $expline) {
$isFileOK = $false;
echo "Unexpected line $lnum:`n ORG:$orgline`n EXP:$expline`n TRN:$trnline"
@@ -250,8 +262,8 @@ filter ec {
Select-String -Encoding Default -Path ../../*.vb,../../*/*vb -Pattern "^\s*'"|
select Path,LineNumber,Line|
Export-Clixml -Path ../comments.xml
-
-
+
+
## Invocted from with from within 'VectoSource/Vecto' folder.
Select-String -Encoding Default -Path ../../*.vb,../../*/*vb -Pattern "^\s*'.*[a-z]"|
select -Property LineNumber,Line |
--
GitLab