-
| plugin | native | state | reads formats | writes formats -' - -files_io=`ls $PLUGINS/io_*/*.pup | sort` -files_e=`ls $PLUGINS/export_*/*.pup | sort` -files_i=`ls $PLUGINS/import_*/*.pup | sort` - -for n in $files_io $files_i $files_e -do - bn=`basename $n` - bn=${bn%%.pup} - sed ' - /^[$]fmt[-]/ { s@^@'$bn' @; p } - /^[$]state/ { s@^@'$bn' @; p } - { d } - ' $n -done | awk ' - BEGIN { - plgs = 0 - } - { - if ($1 != last) { - PLG[plgs] = $1 - last = $1 - plgs++ - } - p=$1 - f=$2 - text=$0 - sub("^[^ \t]+[ \t]+[^ \t]+[ \t]+", "", text) - DATA[p, f] = DATA[p, f] SUBSEP text - } - - function col(mask ,n,v,i,A) { - print " | "
- v = split(DATA[mask], A, "[" SUBSEP "]")
- if (v == 0) {
- print "n/a"
- return
- }
- i = 0;
- for(n = 1; n <= v; n++) {
- if (A[n] == "")
- continue;
- if (i)
- print " " - print " " A[n] - i++ - } - } - - function strip(s) - { - gsub("[" SUBSEP "]", " ", s) - sub("^[ \t]*", "", s) - sub("[ \t]*$", "", s) - return s - } - - function row(plg) { - print " |
|---|---|---|---|---|---|
| " plg - print " | " strip(DATA[plg, "$fmt-native"]) - print " | " strip(DATA[plg, "$state"]) - col(plg SUBSEP "$fmt-feature-r") - col(plg SUBSEP "$fmt-feature-w") - } - - END { - for(p=0; p < plgs; p++) - if (DATA[PLG[p], "$fmt-native"] ~ "yes") - row(PLG[p]) - - for(p=0; p < plgs; p++) - if (!(DATA[PLG[p], "$fmt-native"] ~ "yes")) - row(PLG[p]) - } -' - - -echo ' - |