aboutsummaryrefslogtreecommitdiffstats
path: root/moon-abe/pbc-0.5.14/doc/extract
diff options
context:
space:
mode:
authorwukong <rebirthmonkey@gmail.com>2015-11-23 17:48:48 +0100
committerwukong <rebirthmonkey@gmail.com>2015-11-23 17:48:48 +0100
commitfca74d4bc3569506a6659880a89aa009dc11f552 (patch)
tree4cefd06af989608ea8ebd3bc6306889e2a1ad175 /moon-abe/pbc-0.5.14/doc/extract
parent840ac3ebca7af381132bf7e93c1e4c0430d6b16a (diff)
moon-abe cleanup
Change-Id: Ie1259856db03f0b9e80de3e967ec6bd1f03191b3
Diffstat (limited to 'moon-abe/pbc-0.5.14/doc/extract')
-rw-r--r--moon-abe/pbc-0.5.14/doc/extract67
1 files changed, 0 insertions, 67 deletions
diff --git a/moon-abe/pbc-0.5.14/doc/extract b/moon-abe/pbc-0.5.14/doc/extract
deleted file mode 100644
index 77a6a69a..00000000
--- a/moon-abe/pbc-0.5.14/doc/extract
+++ /dev/null
@@ -1,67 +0,0 @@
-#!/usr/bin/gawk -f
-# Extract GMP-style documentation from source using AsciiDoc format.
-# Fragile:
-# - requires function definition/declaration to end with ")\n" or ");" or ") {"
-# - does not play nice with function pointer parameters
-
-# Look for the magic string "/*@manual "
-/^\/\*@manual / {
- outfile = "gen/" gensub(".*manual ", "", 1) ".txt"
- print "Writing to " outfile
- n = 0
- getline
- # Stop at the line "*/".
- while ($0 != "*/") {
- a[n] = $0
- n++
- getline
- }
-
-# Simple version with no markup:
-# do {
-# getline
-# print
-# } while (!match($0, ";") && !match($0, "{"))
-
-# Mark up bits of the function declaration with AsciiDoc, e.g:
-# "int main(int argc, char *argv[]);" should become
-# "int *main*('int argc', 'char *argv[]');"
-# Also suppress "static inline".
- getline
-
-# Handle variable declarations.
- if (!match($0, "\\(")) {
- s = gensub("([^ ]*);", "*\\1*", 1) # Bold variable name.
-# Handle macro declarations.
- } else if (match($0, "^#define")) {
- s = gensub("^#define *(.*[^ ]) *\\\\$", "*\\1*", 1)
-# Otherwise it's a function.
- } else {
-
- sub("static inline ", "")
- s = gensub("(\\w*)\\(", " *\\1*(", 1) # Bold function name.
- s = gensub("\\((.*$)", "('\\1", 1, s) # First parameter.
- gsub(", *", "', '", s) # Separating commas.
- gsub("_ptr", "_t", s)
-# Handle multi-line function declarations.
- while (!match(s, ");") && !match(s, ") *$") && !match(s, ") *{")) {
- getline
- gsub("^ *", "") # Remove leading whitespace.
- gsub(", *", "', '") # Commas again.
- gsub("_ptr", "_t")
- s = s $0
- }
- s = gensub("(.*)\\)", "\\1')", 1, s) # Last parameter
- gsub("_ptr", "_t", s)
- gsub(")[^)]*$", ")", s);
- }
-
- print s "\n" > outfile
- if (n > 0) {
- print "____" > outfile
- for(i = 0; i < n; i++) {
- print a[i] > outfile
- }
- print "____" > outfile
- }
-}