awk: fix regexp errors
As of awk version 5.0.0 the regexp library used switched to GNULIB. This means that using \" is no longer escaping the quotation mark but only matching a literal backslash followed by a quotation mark. Another project that dealt with the same warning is here: https://github.com/soimort/translate-shell/issues/285 Change-Id: If465b5966e448591acdae9e764c22bc2fce79f5d Reviewed-on: https://review.haiku-os.org/c/haiku/+/8836 Reviewed-by: Adrien Destugues <[email protected]> Tested-by: Commit checker robot <[email protected]> Haiku-Format: Haiku-format Bot <[email protected]>
This commit is contained in:
committed by
waddlesplash
parent
c96e40d299
commit
36fac427b5
@@ -47,7 +47,7 @@ BEGIN {
|
||||
# store vendor ID for possible devices afterwards
|
||||
vendorid = $1
|
||||
vendor = substr($0, 7)
|
||||
gsub( /\"/, "&&", vendor )
|
||||
gsub( /"/, "&&", vendor )
|
||||
|
||||
# Remove double interrogation points that may be interpreted as trigraphs
|
||||
gsub( /\?\?\?/, "xxx", vendor )
|
||||
@@ -61,7 +61,7 @@ BEGIN {
|
||||
|
||||
device = substr($0, 8)
|
||||
gsub( /\\/, "&&", device )
|
||||
gsub( /\"/, "&&", device )
|
||||
gsub( /"/, "&&", device )
|
||||
|
||||
# Remove double interrogation points that may be interpreted as trigraphs
|
||||
gsub( /\?\?\?/, "xxx", device )
|
||||
@@ -81,7 +81,7 @@ BEGIN {
|
||||
/^\t\t[[:xdigit:]][[:xdigit:]][[:xdigit:]][[:xdigit:]] / {
|
||||
|
||||
device = substr($0, 14)
|
||||
gsub( /\"/, "\\\"", device )
|
||||
gsub( /"/, "\\\"", device )
|
||||
|
||||
devicecount++
|
||||
devices[devicecount, 1] = vendorid
|
||||
@@ -96,7 +96,7 @@ BEGIN {
|
||||
|
||||
class = $2
|
||||
classname = substr($0, 7)
|
||||
gsub( /\"/, "\\\"", classname )
|
||||
gsub( /"/, "\\\"", classname )
|
||||
}
|
||||
|
||||
# match subclass, use device class data captured earlier, and output
|
||||
@@ -104,7 +104,7 @@ BEGIN {
|
||||
|
||||
subclass = $1
|
||||
subclassname = substr($0, 6)
|
||||
gsub( /\"/, "\\\"", subclassname )
|
||||
gsub( /"/, "\\\"", subclassname )
|
||||
|
||||
classcount++
|
||||
classes[classcount, 1] = class
|
||||
@@ -120,7 +120,7 @@ BEGIN {
|
||||
|
||||
proginterface = $1
|
||||
proginterfacename = substr($0, 7)
|
||||
gsub( /\"/, "\\\"", proginterfacename )
|
||||
gsub( /"/, "\\\"", proginterfacename )
|
||||
|
||||
classcount++
|
||||
classes[classcount, 1] = class
|
||||
|
||||
@@ -49,7 +49,7 @@ BEGIN {
|
||||
# store vendor ID for possible devices afterwards
|
||||
vendorid = $1
|
||||
vendor = substr($0, 7)
|
||||
gsub( /\"/, "&&", vendor )
|
||||
gsub( /"/, "&&", vendor )
|
||||
|
||||
# Remove double interrogation points that may be interpreted as trigraphs
|
||||
gsub( /\?\?\?/, "xxx", vendor )
|
||||
@@ -63,7 +63,7 @@ BEGIN {
|
||||
|
||||
device = substr($0, 8)
|
||||
gsub( /\\/, "&&", device )
|
||||
gsub( /\"/, "&&", device )
|
||||
gsub( /"/, "&&", device )
|
||||
|
||||
# Remove double interrogation points that may be interpreted as trigraphs
|
||||
gsub( /\?\?\?/, "xxx", device )
|
||||
@@ -82,7 +82,7 @@ BEGIN {
|
||||
|
||||
class = $2
|
||||
classname = substr($0, 7)
|
||||
gsub( /\"/, "\\\"", classname )
|
||||
gsub( /"/, "\\\"", classname )
|
||||
|
||||
inClassesDefinition = 1
|
||||
|
||||
@@ -99,7 +99,7 @@ BEGIN {
|
||||
inClassesDefinition && (/^\t[[:xdigit:]][[:xdigit:]] /) {
|
||||
subclass = $1
|
||||
subclassname = substr($0, 6)
|
||||
gsub( /\"/, "\\\"", subclassname )
|
||||
gsub( /"/, "\\\"", subclassname )
|
||||
|
||||
classcount++
|
||||
classes[classcount, 1] = class
|
||||
@@ -115,7 +115,7 @@ inClassesDefinition && (/^\t\t[[:xdigit:]][[:xdigit:]] /) {
|
||||
|
||||
protocol = $1
|
||||
protocolname = substr($0, 7)
|
||||
gsub( /\"/, "\\\"", protocolname )
|
||||
gsub( /"/, "\\\"", protocolname )
|
||||
|
||||
classcount++
|
||||
classes[classcount, 1] = class
|
||||
|
||||
Reference in New Issue
Block a user