irandom-ics.awk - ics2txt - convert icalendar .ics file to plain text	Err	bitreich.org	70
hgit clone git://bitreich.org/ics2txt git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ics2txt	URL:git://bitreich.org/ics2txt git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ics2txt	bitreich.org	70
1Log	/scm/ics2txt/log.gph	bitreich.org	70
1Files	/scm/ics2txt/files.gph	bitreich.org	70
1Refs	/scm/ics2txt/refs.gph	bitreich.org	70
1Tags	/scm/ics2txt/tag	bitreich.org	70
1README	/scm/ics2txt/file/README.md.gph	bitreich.org	70
i---	Err	bitreich.org	70
irandom-ics.awk (661B)	Err	bitreich.org	70
i---	Err	bitreich.org	70
i     1 #!/usr/bin/awk -f	Err	bitreich.org	70
i     2 	Err	bitreich.org	70
i     3 function random(n) {	Err	bitreich.org	70
i     4         "exec od -An </dev/urandom" | getline num	Err	bitreich.org	70
i     5         return num % n	Err	bitreich.org	70
i     6 }	Err	bitreich.org	70
i     7 	Err	bitreich.org	70
i     8 BEGIN {	Err	bitreich.org	70
i     9         data = "exec tr -cd -- '-a-zA-Z0-9\n' </dev/urandom"	Err	bitreich.org	70
i    10 	Err	bitreich.org	70
i    11         first = 1	Err	bitreich.org	70
i    12         while (data | getline) {	Err	bitreich.org	70
i    13                 if (random(2) && !first) {	Err	bitreich.org	70
i    14                         print(" " $0)	Err	bitreich.org	70
i    15                         continue	Err	bitreich.org	70
i    16                 }	Err	bitreich.org	70
i    17                 first = 0	Err	bitreich.org	70
i    18 	Err	bitreich.org	70
i    19                 data | getline	Err	bitreich.org	70
i    20                 col = random(26) + 1	Err	bitreich.org	70
i    21                 out = "X-"substr($0, 1, col)	Err	bitreich.org	70
i    22                 $0 = substr($0, col + 1)	Err	bitreich.org	70
i    23                 n = random(30)	Err	bitreich.org	70
i    24                 for (i = 0; i <= n; i++) {	Err	bitreich.org	70
i    25                         col = random(30) + 5	Err	bitreich.org	70
i    26                         if (length($0) < col)	Err	bitreich.org	70
i    27                                 continue	Err	bitreich.org	70
i    28                         eq = random(int(col / 2)) + 1	Err	bitreich.org	70
i    29                         out = out ";" substr($0, 1, eq) "=" substr($1, eq + 1, col)	Err	bitreich.org	70
i    30                         $0 = substr($0, col + 1)	Err	bitreich.org	70
i    31                 }	Err	bitreich.org	70
i    32                 out = out $0 ":"	Err	bitreich.org	70
i    33                 print(out)	Err	bitreich.org	70
i    34         }	Err	bitreich.org	70
i    35 	Err	bitreich.org	70
i    36         close(cmd)	Err	bitreich.org	70
i    37 }	Err	bitreich.org	70
.