Changeset 3118 for palm

Timestamp:

Jul 11, 2018 12:57:35 PM (6 years ago)

Author:

knoop

Message:

Bugfix: palm_find_lowest_available_error_number is now able to find error numbers used in multi-line message calls

File:

• palm/trunk/SCRIPTS/palm_find_lowest_available_error_number (modified) (2 diffs)

palm/trunk/SCRIPTS/palm_find_lowest_available_error_number

@@ -41 +41 @@
 working_dir=$(readlink -f "${SCRIPT_LOCATION}/../../")
 trunk_dir=$(readlink -f "${SCRIPT_LOCATION}/../")
+source_dir=${trunk_dir}/SOURCE
 
 contains() {
@@ -48 +49 @@
 error_code_prefix="PA"
 
-all_found_error_codes=$(grep -P "CALL +message\(.+\)" ${trunk_dir}/SOURCE/* \
+all_found_error_codes=$(grep -A10 -P "CALL message\( " ${source_dir}/*.f90 \
+      | sed -e ':a;N;$!ba;s/ *& *\n */ /g' \
+      | grep -P "CALL message\( " \
       | grep -oP "${error_code_prefix}(?<!\d)\d{4}(?!\d)" | sort | uniq -c  \
       | grep -oP "${error_code_prefix}(?<!\d)\d{4}(?!\d)")