style(user/bkytpldl-generic):Adjust comment
[BK-2020-03.git] / user / bk-copy-rand-music
1 #!/usr/bin/env bash
2 # Desc: Copies random audio files
3 # Usage: bk-copy-rand-music [dir SOURCE] [dir DEST] [int DURATION] ([int BYTES])
4 # Version: 0.4.1
5 # Depends: BK-2020-03: bkshuf v0.1.0
6
7 declare -Ag appRollCall # Associative array for storing app status
8 declare -Ag fileRollCall # Associative array for storing file status
9 declare -Ag dirRollCall # Associative array for storing dir status
10 declare -a music_codecs # Array for storing valid codec names (e.g. "aac" "mp3")
11
12 # Adjustable parameters
13 music_codecs=("vorbis" "aac" "mp3" "flac" "opus" "eac3"); # whitelist of valid codec_names ffprobe might return
14 ext_ignore=".ots\$|.mid\$|.json\$|.gz\$|.jpg\$|.png\$|.asc\$|.pdf\$|.txt\$|.vtt\$|\.SUM|.zip\$|.xz\$|.org\$|.txt\$"; # blacklist of file extensions for 'grep -Evi'
15 max_filename_length="255"; # max output filename length
16 min_file_duration="30"; # minimum duration per music file
17 max_file_duration="3600"; # maximum duration per music file
18 min_file_size="100000"; # minimum size per music file (bytes)
19 max_file_size="100000000"; # maximum size per music file (bytes)
20 siz_dest="600000000"; # default destination size limit: 600 MB
21 max_find_depth="10"; # max find depth
22
23 # Load env vars (bkshuf defaults for typical music albums)
24 if [[ ! -v BKSHUF_PARAM_LINEC ]]; then export BKSHUF_PARAM_LINEC=1000000; fi;
25 if [[ ! -v BKSHUF_PARAM_GSIZE ]]; then export BKSHUF_PARAM_GSIZE=10; fi;
26
27 yell() { echo "$0: $*" >&2; } # print script path and all args to stderr
28 die() { yell "$*"; exit 111; } # same as yell() but non-zero exit status
29 must() { "$@" || die "cannot $*"; } # runs args as command, reports args if command fails
30 checkapp() {
31 # Desc: If arg is a command, save result in assoc array 'appRollCall'
32 # Usage: checkapp arg1 arg2 arg3 ...
33 # Version: 0.1.1
34 # Input: global assoc. array 'appRollCall'
35 # Output: adds/updates key(value) to global assoc array 'appRollCall'
36 # Depends: bash 5.0.3
37 local returnState
38
39 #===Process Args===
40 for arg in "$@"; do
41 if command -v "$arg" 1>/dev/null 2>&1; then # Check if arg is a valid command
42 appRollCall[$arg]="true";
43 if ! [ "$returnState" = "false" ]; then returnState="true"; fi;
44 else
45 appRollCall[$arg]="false"; returnState="false";
46 fi;
47 done;
48
49 #===Determine function return code===
50 if [ "$returnState" = "true" ]; then
51 return 0;
52 else
53 return 1;
54 fi;
55 } # Check that app exists
56 checkfile() {
57 # Desc: If arg is a file path, save result in assoc array 'fileRollCall'
58 # Usage: checkfile arg1 arg2 arg3 ...
59 # Version: 0.1.1
60 # Input: global assoc. array 'fileRollCall'
61 # Output: adds/updates key(value) to global assoc array 'fileRollCall';
62 # Output: returns 0 if app found, 1 otherwise
63 # Depends: bash 5.0.3
64 local returnState
65
66 #===Process Args===
67 for arg in "$@"; do
68 if [ -f "$arg" ]; then
69 fileRollCall["$arg"]="true";
70 if ! [ "$returnState" = "false" ]; then returnState="true"; fi;
71 else
72 fileRollCall["$arg"]="false"; returnState="false";
73 fi;
74 done;
75
76 #===Determine function return code===
77 if [ "$returnState" = "true" ]; then
78 return 0;
79 else
80 return 1;
81 fi;
82 } # Check that file exists
83 checkdir() {
84 # Desc: If arg is a dir path, save result in assoc array 'dirRollCall'
85 # Usage: checkdir arg1 arg2 arg3 ...
86 # Version 0.1.2
87 # Input: global assoc. array 'dirRollCall'
88 # Output: adds/updates key(value) to global assoc array 'dirRollCall';
89 # Output: returns 0 if all args are dirs; 1 otherwise
90 # Depends: Bash 5.0.3
91 local returnState
92
93 #===Process Args===
94 for arg in "$@"; do
95 if [ -z "$arg" ]; then
96 dirRollCall["(Unspecified Dirname(s))"]="false"; returnState="false";
97 elif [ -d "$arg" ]; then
98 dirRollCall["$arg"]="true";
99 if ! [ "$returnState" = "false" ]; then returnState="true"; fi
100 else
101 dirRollCall["$arg"]="false"; returnState="false";
102 fi
103 done
104
105 #===Determine function return code===
106 if [ "$returnState" = "true" ]; then
107 return 0;
108 else
109 return 1;
110 fi
111 } # Check that dir exists
112 displayMissing() {
113 # Desc: Displays missing apps, files, and dirs
114 # Usage: displayMissing
115 # Version 1.0.0
116 # Input: associative arrays: appRollCall, fileRollCall, dirRollCall
117 # Output: stderr: messages indicating missing apps, file, or dirs
118 # Output: returns exit code 0 if nothing missing; 1 otherwise
119 # Depends: bash 5, checkAppFileDir()
120 local missingApps value appMissing missingFiles fileMissing
121 local missingDirs dirMissing
122
123 #==BEGIN Display errors==
124 #===BEGIN Display Missing Apps===
125 missingApps="Missing apps :";
126 #for key in "${!appRollCall[@]}"; do echo "DEBUG:$key => ${appRollCall[$key]}"; done
127 for key in "${!appRollCall[@]}"; do
128 value="${appRollCall[$key]}";
129 if [ "$value" = "false" ]; then
130 #echo "DEBUG:Missing apps: $key => $value";
131 missingApps="$missingApps""$key ";
132 appMissing="true";
133 fi;
134 done;
135 if [ "$appMissing" = "true" ]; then # Only indicate if an app is missing.
136 echo "$missingApps" 1>&2;
137 fi;
138 unset value;
139 #===END Display Missing Apps===
140
141 #===BEGIN Display Missing Files===
142 missingFiles="Missing files:";
143 #for key in "${!fileRollCall[@]}"; do echo "DEBUG:$key => ${fileRollCall[$key]}"; done
144 for key in "${!fileRollCall[@]}"; do
145 value="${fileRollCall[$key]}";
146 if [ "$value" = "false" ]; then
147 #echo "DEBUG:Missing files: $key => $value";
148 missingFiles="$missingFiles""$key ";
149 fileMissing="true";
150 fi;
151 done;
152 if [ "$fileMissing" = "true" ]; then # Only indicate if an app is missing.
153 echo "$missingFiles" 1>&2;
154 fi;
155 unset value;
156 #===END Display Missing Files===
157
158 #===BEGIN Display Missing Directories===
159 missingDirs="Missing dirs:";
160 #for key in "${!dirRollCall[@]}"; do echo "DEBUG:$key => ${dirRollCall[$key]}"; done
161 for key in "${!dirRollCall[@]}"; do
162 value="${dirRollCall[$key]}";
163 if [ "$value" = "false" ]; then
164 #echo "DEBUG:Missing dirs: $key => $value";
165 missingDirs="$missingDirs""$key ";
166 dirMissing="true";
167 fi;
168 done;
169 if [ "$dirMissing" = "true" ]; then # Only indicate if an dir is missing.
170 echo "$missingDirs" 1>&2;
171 fi;
172 unset value;
173 #===END Display Missing Directories===
174
175 #==END Display errors==
176 #==BEGIN Determine function return code===
177 if [ "$appMissing" == "true" ] || [ "$fileMissing" == "true" ] || [ "$dirMissing" == "true" ]; then
178 return 1;
179 else
180 return 0;
181 fi
182 #==END Determine function return code===
183 } # Display missing apps, files, dirs
184 showUsage() {
185 # Desc: Display script usage information
186 # Usage: showUsage
187 # Version 0.0.1
188 # Input: none
189 # Output: stdout
190 # Depends: GNU-coreutils 8.30 (cat)
191 cat <<'EOF'
192
193 DESCRIPTION:
194 This script may be used to copy a random selection of files containing
195 audio tracks from SOURCE to DEST.
196
197 USAGE:
198 bk-copy-rand-music [dir SOURCE] [dir DEST] [int DURATION] (int BYTES)
199
200 EXAMPLE:
201 bk-copy-rand-music ~/Music /tmp/music-sample 3600
202 bk-copy-rand-music ~/Music /tmp/music-sample 3600 680000000
203
204 DEPENDENCIES:
205 ffprobe
206 GNU Coreutils 8.30
207
208 ENVIRONMENT VARIABLES
209 BKSHUF_PARAM_LINEC (see `bkshuf` in BK-2020-03)
210 BKSHUF_PARAM_GSIZE (see `bkshuf` in BK-2020-03)
211 EOF
212 } # Display information on how to use this script.
213 check_parsable_audio_ffprobe() {
214 # Desc: Checks if ffprobe returns valid audio codec name for file
215 # Usage: check_parsable_audio_ffprobe [path FILE]
216 # Version: 0.0.1
217 # Input: arg1: file path
218 # Output: exit code 0 if returns valid codec name; 1 otherwise
219 # Depends: ffprobe, die()
220 local file_in ffprobe_out
221
222 if [[ $# -ne 1 ]]; then die "ERROR:Invalid number of args:$#"; fi;
223
224 file_in="$1";
225
226 # Check if ffprobe detects an audio stream
227 if ffprobe -v error -select_streams a -show_entries stream=codec_name -of default=nokey=1:noprint_wrappers=1 "$file_in" 1>/dev/null 2>&1; then
228 return_state="true";
229 else
230 return_state="false";
231 fi;
232
233 # Fail if ffprobe returns no result
234 ffprobe_out="$(ffprobe -v error -select_streams a -show_entries stream=codec_name -of default=nokey=1:noprint_wrappers=1 "$file_in")";
235 if [[ -z $ffprobe_out ]]; then
236 return_state="false";
237 fi;
238
239 # Report exit code
240 if [[ $return_state = "true" ]]; then
241 return 0;
242 else
243 return 1;
244 fi;
245 } # Checks if file has valid codec name using ffprobe
246 get_audio_format() {
247 # Desc: Gets audio format of file as string
248 # Usage: get_audio_format arg1
249 # Depends: ffprobe
250 # Version: 0.0.1
251 # Input: arg1: input file path
252 # Output: stdout (if valid audio format)
253 # exit code 0 if audio file; 1 otherwise
254 # Example: get_audio_format myvideo.mp4
255 # Note: Would return "opus" if full ffprobe report had 'Audio: opus, 48000 Hz, stereo, fltp'
256 # Note: Not tested with videos containing multiple video streams
257 # Ref/Attrib: [1] https://stackoverflow.com/questions/5618363/is-there-a-way-to-use-ffmpeg-to-determine-the-encoding-of-a-file-before-transcod
258 # [2] https://stackoverflow.com/questions/44123532/how-to-find-out-the-file-extension-for-extracting-audio-tracks-with-ffmpeg-and-p#comment88464070_50723126
259 local audio_format file_in;
260 local return_state;
261 file_in="$1";
262
263 # Return error exit code if not audio file
264 ## Return error if ffprobe itself exited on error
265 if ! ffprobe -v error -select_streams a -show_entries stream=codec_name -of default=nokey=1:noprint_wrappers=1 "$file_in" 1>/dev/null 2>&1; then
266 return_state="false";
267 fi;
268
269 # Get audio format
270 audio_format="$(ffprobe -v error -select_streams a -show_entries stream=codec_name -of default=nokey=1:noprint_wrappers=1 "$file_in")"; # see [1]
271
272 ## Return error if audio format is incorrectly formatted (e.g. reject if contains spaces)
273 pattern="^[[:alnum:]]+$"; # alphanumeric string with no spaces
274 if [[ $audio_format =~ $pattern ]]; then
275 return_state="true";
276 # Report audio format
277 echo "$audio_format";
278 else
279 return_state="false";
280 fi;
281
282 # Report exit code
283 if [[ $return_state = "true" ]]; then
284 return 0;
285 else
286 return 1;
287 fi;
288 } # Get audio format as stdout
289 get_media_length() {
290 # Use ffprobe to get media container length in seconds (float)
291 # Usage: get_media_length arg1
292 # Input: arg1: path to file
293 # Output: stdout: seconds (float)
294 # Depends: ffprobe 4.1.8
295 # Ref/Attrib: [1] How to get video duration in seconds? https://superuser.com/a/945604
296 local file_in
297 file_in="$1";
298 if [[ ! -f $file_in ]]; then
299 die "ERROR:Not a file:$file_in";
300 fi;
301 ffprobe -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 "$file_in";
302 } # Get media container length in seconds via stdout
303 checkInt() {
304 # Desc: Checks if arg is integer
305 # Usage: checkInt arg
306 # Input: arg: integer
307 # Output: - return code 0 (if arg is integer)
308 # - return code 1 (if arg is not integer)
309 # Example: if ! checkInt $arg; then echo "not int"; fi;
310 # Version: 0.0.1
311 local returnState
312
313 #===Process Arg===
314 if [[ $# -ne 1 ]]; then
315 die "ERROR:Invalid number of arguments:$#";
316 fi;
317
318 RETEST1='^[0-9]+$'; # Regular Expression to test
319 if [[ ! $1 =~ $RETEST1 ]] ; then
320 returnState="false";
321 else
322 returnState="true";
323 fi;
324
325 #===Determine function return code===
326 if [ "$returnState" = "true" ]; then
327 return 0;
328 else
329 return 1;
330 fi;
331 } # Checks if arg is integer
332 checkIsInArray() {
333 # Desc: Checks if input arg is element in array
334 # Usage: checkIsInArray arg1 arg2
335 # Version: 0.0.1
336 # Input: arg1: test string
337 # arg2: array
338 # Output: exit code 0 if test string is in array; 1 otherwise
339 # Example: checkIsInArray "foo" "${myArray[@]}"
340 # Ref/Attrib: [1] How do I check if variable is an array? https://stackoverflow.com/a/27254437
341 # [2] How to pass an array as function argument? https://askubuntu.com/a/674347
342 local return_state input arg1 string_test
343 declare -a arg2 array_test
344 input=("$@") # See [2]
345 arg1="${input[0]}";
346 arg2=("${input[@]:1}");
347 #yell "DEBUG:input:${input[@]}";
348 #yell "DEBUG:arg1:${arg1[@]}";
349 #yell "DEBUG:arg2:${arg2[@]}";
350
351 string_test="$arg1";
352 array_test=("${arg2[@]}");
353
354 #yell "DEBUG:string_test:$string_test";
355 #yell "DEBUG:$(declare -p array_test)";
356 for element in "${array_test[@]}"; do
357 #yell "DEBUG:element:$element";
358 if [[ "$element" =~ ^"$string_test" ]]; then
359 return_state="true";
360 continue;
361 fi;
362 done;
363
364 # Report exit code
365 if [[ $return_state == "true" ]]; then
366 return 0;
367 else
368 return 1;
369 fi;
370 } # Check if string is element in array
371 main() {
372 # Desc: Main program
373 # Input: arg1: path to source tree
374 # arg2: path to destination tree
375 # arg3: cumulative duration (seconds) of audio files in destination tree
376 # arg4: cumulative size (bytes) of audio files in destination tree (optional)
377 # assoc arrays: appRollCall, fileRollCall, dirRollCall
378 # env.var: BKSHUF_PARAM_LINEC (bkshuf)
379 # BKSHUF_PARAM_GSIZE (bkshuf)
380 # arrays: music_codecs
381 # vars: max_filename_length, min_file_duration, max_file_duration,
382 # min_file_size, max_file_size, siz_dest, max_find_depth
383 # Output: [none]
384 # Depends: yell(), checkdir() 0.1.2, displayMissing() 1.0.0, GNU Coreutils 8.30
385 # BK-2020-03: bkshuf v0.1.0
386 local arg1 arg2 arg3 dur_dest dir_source dir_dest
387 declare -a list_files # array for files to be considered
388 declare -a list_copy # array for files to be copied (string: "$dur,$fsize,$path")
389
390 # Parse args
391 arg1="$1";
392 arg2="$2";
393 arg3="$3";
394 arg4="$4";
395 if ! { [[ $# -eq 3 ]] || [[ $# -eq 4 ]]; }; then
396 showUsage;
397 die "ERROR:Invalid number of args:$#"; fi;
398
399 # Check env vars
400 if ! checkInt "$BKSHUF_PARAM_LINEC"; then
401 die "FATAL:Not an int:BKSHUF_PARAM_LINEC:$BKSHUF_PARAM_LINEC"; fi;
402 if ! checkInt "$BKSHUF_PARAM_GSIZE"; then
403 die "FATAL:Not an int:BKSHUF_PARAM_LINEC:$BKSHUF_PARAM_GSIZE"; fi;
404
405 ## Check duration
406 if checkInt "$arg3"; then
407 dur_dest="$arg3";
408 else
409 die "FATAL:Duration (seconds) not an int:$arg3"
410 fi;
411
412 ## Check size
413 if [[ -n "$arg4" ]]; then
414 if checkInt "$arg4"; then
415 siz_dest="$arg4";
416 else
417 die "FATAL:Size (bytes) not an int:$arg4";
418 fi;
419 fi;
420
421 ## Check directories
422 if checkdir "$arg1" "$arg2"; then
423 dir_source="$arg1";
424 dir_dest="$arg2";
425 else
426 yell "ERROR:Directory error";
427 fi;
428
429 ## Check apps
430 checkapp ffprobe bkshuf;
431
432 if ! displayMissing; then
433 showUsage;
434 die "ERROR:Check missing resources.";
435 fi;
436
437 yell "STATUS:Working...";
438
439 # Populate list_files array
440 while read -r line; do
441 list_files+=("$line");
442 done < <(find -L "$dir_source" -maxdepth "$max_find_depth" -type f | \
443 grep -Ev "$ext_ignore" | \
444 sort);
445
446 # Test and add random elements of list_files to list_copy
447 dur=0; # Initialize duration
448 siz=0; # Initialize size
449 n=0; # Initialize loop counter
450 dur_cand_w=1; # Init duration digit width counter
451 siz_cand_w=1; # Init size digit width counter
452 ## Get element count of list_files array
453 file_count="${#list_files[@]}";
454 while read -r line && \
455 [[ $dur -le $((dur_dest * 95 / 100)) ]] && \
456 [[ $siz -le $((siz_dest * 95 / 100)) ]] && \
457 [[ $n -le $file_count ]]; do
458 ((n++));
459
460 yell "DEBUG:list_copy building loop:$n/$file_count"; # debug
461 printf "DEBUG:%8d,%8d,%8d/%8d,%8d/%8d\n" "$dur_cand" "$siz_cand" "$dur" "$dur_dest" "$siz" "$siz_dest"; # debug
462
463 path_candfile="$line"; # path of candidate file
464
465 ### Check size
466 siz_cand="$(du -Lb "$path_candfile" | awk '{ print $1 }')"; # size in bytes
467 if ! checkInt "$siz_cand"; then continue; fi; # reject
468 if [[ "$((siz + siz_cand))" -gt "$siz_dest" ]]; then continue; fi; # reject
469 if [[ "$siz_cand" -lt "$min_file_size" ]]; then continue; fi; # reject
470 if [[ "$siz_cand" -gt "$max_file_size" ]]; then continue; fi; # reject
471
472 ### Check if has valid codec
473 if ! check_parsable_audio_ffprobe "$path_candfile"; then continue; fi; # reject
474
475 ### Check if desired codec
476 file_format="$(get_audio_format "$path_candfile")";
477 if ! checkIsInArray "$file_format" "${music_codecs[@]}"; then continue; fi; # reject
478
479 ### Check duration
480 dur_cand="$(get_media_length "$path_candfile")";
481 dur_cand="${dur_cand%%.*}"; # convert float to int
482 if ! checkInt "$dur_cand"; then continue; fi; # reject
483 if [[ "$((dur + dur_cand))" -gt "$dur_dest" ]]; then continue; fi; # reject
484 if [[ "$dur_cand" -lt "$min_file_duration" ]]; then continue; fi; # reject
485 if [[ "$dur_cand" -gt "$max_file_duration" ]]; then continue; fi; # reject
486
487 ### Update stats digits widths
488 #### duration
489 dur_cand_wnow="$(printf "%s" "$dur_cand" | wc -m)"; # duration width count
490 if [[ $dur_cand_wnow -gt $dur_cand_w ]]; then
491 dur_cand_w="$dur_cand_wnow"; fi;
492 #### size
493 siz_cand_wnow="$(printf "%s" "$siz_cand" | wc -m)"; # size width count
494 if [[ $siz_cand_wnow -gt $siz_cand_w ]]; then
495 siz_cand_w="$siz_cand_wnow"; fi;
496
497 ### Add/update candfile to array:
498 ### list_copy (array with "duration, size, path")
499 #yell "DEBUG:Adding $path_candfile";
500 printf "DEBUG:%8d,%8d,%s\n" "$dur_cand" "$siz_cand" "$path_candfile" 1>&2;
501 #printf "DEBUG:dur:%s\n" "$dur" 1>&2;
502 #printf "DEBUG:siz:%s\n" "$siz" 1>&2;
503 list_copy+=("$dur_cand,$siz_cand,$path_candfile"); # for copying with order
504
505 ### Update total duration $dur and total size $siz
506 dur="$((dur + dur_cand))";
507 siz="$((siz + siz_cand))";
508 yell "DEBUG:dur:$dur";
509 yell "DEBUG:siz:$siz";
510 done < <(printf "%s\n" "${list_files[@]}" | bkshuf);
511
512 #yell "DEBUG:BKSHUF_PARAM_LINEC:$BKSHUF_PARAM_LINEC";
513 #yell "DEBUG:BKSHUF_PARAM_GSIZE:$BKSHUF_PARAM_GSIZE";
514
515 n=0; # Initialize loop counter
516 num_w="$(printf "%s" "${#list_copy[@]}" | wc -m)"; # init file number format
517 num_fmt="%0""$num_w""d";
518 path_log_output="$dir_dest"/COPY.log;
519 printf "num,fingerprint,duration,size,original_path\n" >> "$path_log_output";
520 # Copy files in list_copy to dir_dest;
521 while read -r line; do
522 #yell "DEBUG:line:$line"; # debug
523 fdur="$(printf "%s" "$line" | cut -d',' -f1)";
524 fsize="$(printf "%s" "$line" | cut -d',' -f2)";
525 fpath="$(printf "%s" "$line" | cut -d',' -f3-)";
526 ## Get basename of path
527 file_basename="$(basename "$fpath")";
528 ### Get basename without unprintable non-ASCII characters
529 file_basename_compat="$(printf "%s" "$file_basename" | tr -dc '[:graph:][:space:]' )";
530
531 ## Get 16-character b2sum fingerprint (for different files that share basename)
532 fingerprint="$(b2sum -l32 "$fpath" | awk '{print $1}' )";
533
534 ## Form output filename
535 num="$(printf "$num_fmt" "$n")";
536 file_name="$num"_"$fingerprint".."$file_basename_compat";
537 file_name="${file_name:0:$max_filename_length}"; # Limit filename length (e.g. Windows has max of 255 characters)
538
539 ## Form output path
540 path_output="$dir_dest"/"$file_name";
541
542 ## Copy
543 must cp "$fpath" "$path_output" && yell "NOTICE:Copied ($(printf "%""$dur_cand_w"d "$fdur") seconds): $fpath ";
544 #yell "DEBUG:Copied $file_basename to $dur_dest.";
545
546 ## Append log
547 fpath_can="$(readlink -f "$fpath")"; # resolve symlinks to canonical path
548 log_fmt="%s,%s,%""$dur_cand_w""d,%""$siz_cand_w""d,%s\n"; # e.g. "%s,%3d,%5d,%s" if dur_cand_w=3 and siz_cand_w=5
549 printf "$log_fmt" "$num" "$fingerprint" "$fdur" "$fsize" "$fpath_can" >> "$path_log_output";
550
551 ((n++));
552 unset file_basename file_basename_compat path_output;
553 done < <(printf "%s\n" "${list_copy[@]}");
554
555 # Report total duration and size
556 yell "NOTICE:Total duration (seconds):$dur";
557 yell "NOTICE:Total size (bytes):$siz";
558
559 } # Main program
560
561 main "$@";
562
563 # Author: Steven Baltakatei Sandoval
564 # License: GPLv3+
565
566 # bkshuf v0.1.0
567 # Author: Steven Baltakatei Sandoval
568 # License: GPLv3+
569 # URL: https://gitlab.com/baltakatei/baltakatei-exdev/-/blob/b9e8b771e985fcdf26ba8b9ccb8e31b62da757d3/unitproc/bkshuf