knazarov/markdown.awk
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add support for BSD awk

Browse source
This commit is contained in:
Konstantin Nazarov 2021-08-15 19:34:52 +01:00
parent f00a95c6a3
commit f36413def0
Signed by: knazarov
GPG key ID: 4CFE0A42FA409C22
1 changed files with 46 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
markdown.awk
View file

@ -96,7 +96,7 @@ function parse_list(str, buf, result, i, ind, line, lines, indent, is_bullet)
split(str, lines, "\n"); split(str, lines, "\n");
str = "" str = ""
for (i in lines) { for (i=1; i<=length(lines); i++) {
line = lines[i]; line = lines[i];
if (match(line, /^[[:space:]]*[-+*][[:space:]]/) || if (match(line, /^[[:space:]]*[-+*][[:space:]]/) ||
@ -116,7 +116,7 @@ function parse_list(str, buf, result, i, ind, line, lines, indent, is_bullet)
else else
result = "<ol>\n" result = "<ol>\n"
for (i in lines) { for (i=1; i<=length(lines); i++) {
line = lines[i]; line = lines[i];
if (match(line, "[^ ]") > indent) { if (match(line, "[^ ]") > indent) {
@ -190,39 +190,63 @@ function is_escape_sequence(str, i, sstr) {
function extract_link(str, i, sstr) { function extract_link(str, i, sstr) {
sstr=substr(str, i, length(str) - i + 1); sstr=substr(str, i, length(str) - i + 1);
if (!match(sstr, /^\[([^\[\]]*)\]\( *([^() ]*)( +"([^"]*)")? *\)/, arr)) if (!match(sstr, /^\[([^\[\]]*)\]\( *([^() ]*)( +"([^"]*)")? *\)/))
return ""; return "";
return substr(str, i, RLENGTH); return substr(str, i, RLENGTH);
} }
function parse_link(str, arr) { function parse_link(str, arr) {
if (!match(str, /^\[([^\[\]]*)\]\( *([^() ]*)( +"([^"]*)")? *\)/, arr)) match(str, /^\[([^\[\]]*)\]/);
return ""; name = substr(str, 2, RLENGTH-2);
sub(/^\[([^\[\]]*)\]/, "", str);
if (arr[4] == "") { sub(/^ *\( */, "", str);
return "<a href=\"" arr[2] "\">" arr[1] "</a>" sub(/ *\) *$/, "", str);
match(str, /^[^() ]*/);
url = substr(str, 1, RLENGTH);
sub(/^[^() ]*/, "", str);
sub(/^ *"/, "", str);
sub(/" *$/, "", str);
title = str;
if (title == "") {
return "<a href=\"" url "\">" name "</a>"
} }
return "<a href=\"" arr[2] "\" title=\"" arr[4] "\">" arr[1] "</a>" return "<a href=\"" url "\" title=\"" title "\">" name "</a>"
} }
function extract_image(str, i, sstr) { function extract_image(str, i, sstr) {
sstr=substr(str, i, length(str) - i + 1); sstr=substr(str, i, length(str) - i + 1);
if (!match(sstr, /^!\[([^\[\]]*)\]\( *([^() ]*)( +"([^"]*)")? *\)/, arr)) if (!match(sstr, /^!\[([^\[\]]*)\]\( *([^() ]*)( +"([^"]*)")? *\)/))
return ""; return "";
return substr(str, i, RLENGTH); return substr(str, i, RLENGTH);
} }
function parse_image(str, arr) { function parse_image(str, arr) {
if (!match(str, /^!\[([^\[\]]*)\]\( *([^() ]*)( +"([^"]*)")? *\)/, arr)) match(str, /^!\[([^\[\]]*)\]/);
return ""; name = substr(str, 3, RLENGTH-3);
sub(/^!\[([^\[\]]*)\]/, "", str);
if (arr[4] == "") { sub(/^ *\( */, "", str);
return "<img src=\"" arr[2] "\" alt=\"" arr[1] "\" />" sub(/ *\) *$/, "", str);
match(str, /^[^() ]*/);
url = substr(str, 1, RLENGTH);
sub(/^[^() ]*/, "", str);
sub(/^ *"/, "", str);
sub(/" *$/, "", str);
title = str;
if (title == "") {
return "<img src=\"" url "\" alt=\"" name "\" />"
} }
return "<img src=\"" arr[2] "\" alt=\"" arr[1] "\" title=\"" arr[4] "\" />" return "<img src=\"" url "\" alt=\"" name "\" title=\"" title "\" />"
} }
function is_link(str, i) { function is_link(str, i) {
@ -339,7 +363,7 @@ function parse_blockquote(str, i, lines, line, buf, result) {
split(str, lines, "\n"); split(str, lines, "\n");
str = "" str = ""
for (i in lines) { for (i=1; i<=length(lines); i++) {
line = lines[i]; line = lines[i];
if (match(line, /^>/)) if (match(line, /^>/))
@ -352,7 +376,7 @@ function parse_blockquote(str, i, lines, line, buf, result) {
result = "<blockquote>"; result = "<blockquote>";
buf = ""; buf = "";
for (i in lines) { for (i=1; i<=length(lines); i++) {
line = lines[i]; line = lines[i];
gsub(/^> ?/, "", line); gsub(/^> ?/, "", line);
@ -380,7 +404,7 @@ function parse_code(str, i, lines, result) {
result = ""; result = "";
split(str, lines, "\n"); split(str, lines, "\n");
for (i in lines) { for (i=1; i<=length(lines); i++) {
line = lines[i]; line = lines[i];
gsub(/^ /, "", line); gsub(/^ /, "", line);
result = result "\n" line; result = result "\n" line;
@ -424,7 +448,7 @@ function parse_body(str, body, line, lines, result, i) {
result = ""; result = "";
body = ""; body = "";
for (i in lines) { for (i=1; i<=length(lines); i++) {
line = lines[i]; line = lines[i];
if (line_continues(body, line)) { if (line_continues(body, line)) {
if (body != "") if (body != "")