1 #!/bin/bash |
|
2 |
|
3 # Relational pipes |
|
4 # Copyright © 2020 František Kučera (Frantovo.cz, GlobalCode.info) |
|
5 # |
|
6 # This program is free software: you can redistribute it and/or modify |
|
7 # it under the terms of the GNU General Public License as published by |
|
8 # the Free Software Foundation, version 3 of the License. |
|
9 # |
|
10 # This program is distributed in the hope that it will be useful, |
|
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
13 # GNU General Public License for more details. |
|
14 # |
|
15 # You should have received a copy of the GNU General Public License |
|
16 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
|
17 |
|
18 |
|
19 # This streamlet counts lines of code of given files. It calls the tool cloc. |
|
20 # |
|
21 # With no options, these attributes are provided: language, code, comment, blank |
|
22 # Specific attributes can be selected using options – e.g. --option 'attribute' 'code' |
|
23 # or --option "attribute" "total" (sum of code, comment and blank lines, hidden by default). |
|
24 # |
|
25 # Optional prefix can be added to attribute names: --option 'prefix' 'my_prefix_' |
|
26 |
|
27 |
|
28 . "$(dirname $0)/streamlet-common.sh" |
|
29 |
|
30 processMessage_WAITING_FOR_OUTPUT_ATTRIBUTES_METADATA() { |
|
31 clocFields=() |
|
32 |
|
33 for (( i=0; i<${#optionNames[@]}; i++)); do |
|
34 if [[ "x${optionNames[$i]}" == "xattribute" ]]; then |
|
35 if [[ "${optionValues[$i]}" =~ ^(language|blank|comment|code)$ ]]; then |
|
36 clocFields+=("${optionValues[$i]}"); |
|
37 else |
|
38 echo "Unsupported attribute: ${optionValues[$i]}" >&2 |
|
39 fi |
|
40 elif [[ "x${optionNames[$i]}" == "xprefix" ]]; then |
|
41 clocPrefix="${optionValues[$i]}"; |
|
42 else |
|
43 echo "Unsupported option: ${optionNames[$i]}" >&2 |
|
44 fi |
|
45 done |
|
46 |
|
47 if [[ -z "$clocFields" ]]; then |
|
48 clocFields=( "language" "code" "comment" "blank" ); # + "total" |
|
49 fi |
|
50 |
|
51 for (( i=0; i<${#clocFields[@]}; i++)); do |
|
52 if [[ "x${clocFields[$i]}" == "xlanguage" ]]; then local type="string"; else local type="integer"; fi |
|
53 send OUTPUT_ATTRIBUTE_METADATA "${outputAttributeAliases[$i]-$clocPrefix${clocFields[$i]}}" "$type" |
|
54 done |
|
55 |
|
56 send WAITING_FOR_INPUT_ATTRIBUTES |
|
57 } |
|
58 |
|
59 processMessage_WAITING_FOR_OUTPUT_ATTRIBUTES() { |
|
60 local language files blank comment code total; |
|
61 |
|
62 [[ -d "$currentFile" ]] || read_nullbyte language files blank comment code total < <( cloc "$currentFile" | perl -ne 'if (/(.*?)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/) { print "$1\0$2\0$3\0$4\0$5\0"; print $3 + $4 + $5; print "\0"; }' ); |
|
63 |
|
64 for (( i=0; i<${#clocFields[@]}; i++)); do |
|
65 value="${!clocFields[$i]}"; |
|
66 |
|
67 if [[ "x$files" == "x1" ]]; then isNull="false"; |
|
68 elif [[ "x${clocFields[$i]}" == "xlanguage" ]]; then value=""; isNull="true"; |
|
69 else value="0"; isNull="true"; fi |
|
70 |
|
71 send OUTPUT_ATTRIBUTE "$value" "$isNull"; |
|
72 done |
|
73 |
|
74 send WAITING_FOR_INPUT_ATTRIBUTES; |
|
75 } |
|
76 |
|
77 initialize |
|
78 processMessages |
|