mirror of https://github.com/PCSX2/pcsx2.git
204 lines
5.7 KiB
Awk
204 lines
5.7 KiB
Awk
#!/bin/awk -f
|
|
# scripts/dfn.awk - process a .dfn file
|
|
#
|
|
# last changed in libpng version 1.5.19 - August 21, 2014
|
|
#
|
|
# Copyright (c) 2013-2014 Glenn Randers-Pehrson
|
|
#
|
|
# This code is released under the libpng license.
|
|
# For conditions of distribution and use, see the disclaimer
|
|
# and license in png.h
|
|
|
|
# The output of this script is written to the file given by
|
|
# the variable 'out', which should be set on the command line.
|
|
# Error messages are printed to stdout and if any are printed
|
|
# the script will exit with error code 1.
|
|
|
|
BEGIN{
|
|
out="/dev/null" # as a flag
|
|
out_count=0 # count of output lines
|
|
err=0 # set if an error occurred
|
|
sort=0 # sort the output
|
|
array[""]=""
|
|
}
|
|
|
|
# The output file must be specified before any input:
|
|
NR==1 && out == "/dev/null" {
|
|
print "out=output.file must be given on the command line"
|
|
# but continue without setting the error code; this allows the
|
|
# script to be checked easily
|
|
}
|
|
|
|
# Output can be sorted; two lines are recognized
|
|
$1 == "PNG_DFN_START_SORT"{
|
|
sort=0+$2
|
|
next
|
|
}
|
|
|
|
$1 ~ /^PNG_DFN_END_SORT/{
|
|
# Do a very simple, slow, sort; notice that blank lines won't be
|
|
# output by this
|
|
for (entry in array) {
|
|
while (array[entry] != "") {
|
|
key = entry
|
|
value = array[key]
|
|
array[key] = ""
|
|
|
|
for (alt in array) {
|
|
if (array[alt] != "" && alt < key) {
|
|
array[key] = value
|
|
value = array[alt]
|
|
key = alt
|
|
array[alt] = ""
|
|
}
|
|
}
|
|
|
|
print value >out
|
|
}
|
|
}
|
|
sort=0
|
|
next
|
|
}
|
|
|
|
/^[^"]*PNG_DFN *".*"[^"]*$/{
|
|
# A definition line, apparently correctly formatted; extract the
|
|
# definition then replace any doubled "" that remain with a single
|
|
# double quote. Notice that the original doubled double quotes
|
|
# may have been split by tokenization
|
|
#
|
|
# Sometimes GCC splits the PNG_DFN lines; we know this has happened
|
|
# if the quotes aren't closed and must read another line. In this
|
|
# case it is essential to reject lines that start with '#' because those
|
|
# are introduced #line directives.
|
|
orig=$0
|
|
line=$0
|
|
lineno=FNR
|
|
if (lineno == "") lineno=NR
|
|
|
|
if (sub(/^[^"]*PNG_DFN *"/,"",line) != 1) {
|
|
print "line", lineno ": processing failed:"
|
|
print orig
|
|
err=1
|
|
next
|
|
} else {
|
|
++out_count
|
|
}
|
|
|
|
# Now examine quotes within the value:
|
|
#
|
|
# @" - delete this and any following spaces
|
|
# "@ - delete this and any preceding spaces
|
|
# @' - replace this by a double quote
|
|
#
|
|
# This allows macro substitution by the C compiler thus:
|
|
#
|
|
# #define first_name John
|
|
# #define last_name Smith
|
|
#
|
|
# PNG_DFN"#define name @'@" first_name "@ @" last_name "@@'"
|
|
#
|
|
# Might get C preprocessed to:
|
|
#
|
|
# PNG_DFN "#define foo @'@" John "@ @" Smith "@@'"
|
|
#
|
|
# Which this script reduces to:
|
|
#
|
|
# #define name "John Smith"
|
|
#
|
|
while (1) {
|
|
# While there is an @" remove it and the next "@
|
|
if (line ~ /@"/) {
|
|
if (line ~ /@".*"@/) {
|
|
# Do this special case first to avoid swallowing extra spaces
|
|
# before or after the @ stuff:
|
|
if (!sub(/@" *"@/, "", line)) {
|
|
# Ok, do it in pieces - there has to be a non-space between the
|
|
# two. NOTE: really weird things happen if a leading @" is
|
|
# lost - the code will error out below (I believe).
|
|
if (!sub(/@" */, "", line) || !sub(/ *"@/, "", line)) {
|
|
print "line", lineno, ": internal error:", orig
|
|
exit 1
|
|
}
|
|
}
|
|
}
|
|
|
|
# There is no matching "@. Assume a split line
|
|
else while (1) {
|
|
if (getline nextline) {
|
|
# If the line starts with '#' it is a preprocesor line directive
|
|
# from cc -E; skip it:
|
|
if (nextline !~ /^#/) {
|
|
line = line " " nextline
|
|
break
|
|
}
|
|
} else {
|
|
# This is end-of-input - probably a missing "@ on the first line:
|
|
print "line", lineno ": unbalanced @\" ... \"@ pair"
|
|
err=1
|
|
next
|
|
}
|
|
}
|
|
|
|
# Keep going until all the @" have gone
|
|
continue
|
|
}
|
|
|
|
# Attempt to remove a trailing " (not preceded by '@') - if this can
|
|
# be done, stop now; if not assume a split line again
|
|
if (sub(/"[^"]*$/, "", line))
|
|
break
|
|
|
|
# Read another line
|
|
while (1) {
|
|
if (getline nextline) {
|
|
if (nextline !~ /^#/) {
|
|
line = line " " nextline
|
|
# Go back to stripping @" "@ pairs
|
|
break
|
|
}
|
|
} else {
|
|
print "line", lineno ": unterminated PNG_DFN string"
|
|
err=1
|
|
next
|
|
}
|
|
}
|
|
}
|
|
|
|
# Put any needed double quotes in (at the end, because these would otherwise
|
|
# interfere with the processing above.)
|
|
gsub(/@'/,"\"", line)
|
|
|
|
# Remove any trailing spaces (not really required, but for
|
|
# editorial consistency
|
|
sub(/ *$/, "", line)
|
|
|
|
# Remove trailing CR
|
|
sub(/
|
|
$/, "", line)
|
|
|
|
if (sort) {
|
|
if (split(line, parts) < sort) {
|
|
print "line", lineno ": missing sort field:", line
|
|
err=1
|
|
} else
|
|
array[parts[sort]] = line
|
|
}
|
|
|
|
else
|
|
print line >out
|
|
next
|
|
}
|
|
|
|
/PNG_DFN/{
|
|
print "line", NR, "incorrectly formatted PNG_DFN line:"
|
|
print $0
|
|
err = 1
|
|
}
|
|
|
|
END{
|
|
if (out_count > 0 || err > 0)
|
|
exit err
|
|
|
|
print "no definition lines found"
|
|
exit 1
|
|
}
|