fix-multiline-comments.sh (1714B)
1 #! /bin/sh 2 # 3 # Fix multiline comments to match docs/devel/style.rst 4 # 5 # Copyright (C) 2018 Red Hat, Inc. 6 # 7 # Author: Paolo Bonzini 8 # 9 # Usage: scripts/fix-multiline-comments.sh [-i] FILE... 10 # 11 # -i edits the file in place (requires gawk 4.1.0). 12 # 13 # Set the AWK environment variable to choose the awk interpreter to use 14 # (default 'awk') 15 16 if test "$1" = -i; then 17 # gawk extension 18 inplace="-i inplace" 19 shift 20 fi 21 ${AWK-awk} $inplace 'BEGIN { indent = -1 } 22 { 23 line = $0 24 # apply a star to the indent on lines after the first 25 if (indent != -1) { 26 if (line == "") { 27 line = sp " *" 28 } else if (substr(line, 1, indent + 2) == sp " ") { 29 line = sp " *" substr(line, indent + 3) 30 } 31 } 32 33 is_lead = (line ~ /^[ \t]*\/\*/) 34 is_trail = (line ~ /\*\//) 35 if (is_lead && !is_trail) { 36 # grab the indent at the start of a comment, but not for 37 # single-line comments 38 match(line, /^[ \t]*\/\*/) 39 indent = RLENGTH - 2 40 sp = substr(line, 1, indent) 41 } 42 43 # the regular expression filters out lone /*, /**, or */ 44 if (indent != -1 && !(line ~ /^[ \t]*(\/\*+|\*\/)[ \t]*$/)) { 45 if (is_lead) { 46 # split the leading /* or /** on a separate line 47 match(line, /^[ \t]*\/\*+/) 48 lead = substr(line, 1, RLENGTH) 49 match(line, /^[ \t]*\/\*+[ \t]*/) 50 line = lead "\n" sp " *" substr(line, RLENGTH) 51 } 52 if (is_trail) { 53 # split the trailing */ on a separate line 54 match(line, /[ \t]*\*\//) 55 line = substr(line, 1, RSTART - 1) "\n" sp " */" 56 } 57 } 58 if (is_trail) { 59 indent = -1 60 } 61 print line 62 }' "$@"