diff options
author | Alexander M Pickering <alex@cogarr.net> | 2024-10-15 11:32:01 -0500 |
---|---|---|
committer | Alexander M Pickering <alex@cogarr.net> | 2024-10-15 11:32:01 -0500 |
commit | 91a209d5cb103feab7f4f73c43f67d3cae541ce6 (patch) | |
tree | 6bb7ac1add7c3490a9bd9122bdfcc3c78e779cba /guid_replacer.awk | |
parent | ce0c322562bdcd6fd8c84b2cddcc7fd38f833b5f (diff) | |
download | lua4win-dist-lua-91a209d5cb103feab7f4f73c43f67d3cae541ce6.tar.gz lua4win-dist-lua-91a209d5cb103feab7f4f73c43f67d3cae541ce6.tar.bz2 lua4win-dist-lua-91a209d5cb103feab7f4f73c43f67d3cae541ce6.zip |
Add License task
Diffstat (limited to 'guid_replacer.awk')
-rw-r--r-- | guid_replacer.awk | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/guid_replacer.awk b/guid_replacer.awk new file mode 100644 index 0000000..2a95a93 --- /dev/null +++ b/guid_replacer.awk | |||
@@ -0,0 +1,26 @@ | |||
1 | #!/usr/bin/env awk | ||
2 | |||
3 | BEGIN{ | ||
4 | print "#!/usr/bin/env sed" | ||
5 | } | ||
6 | |||
7 | match($0, /Guid="Lua4Win.[^"]+"/) { | ||
8 | plain = substr($0, RSTART+6, RLENGTH-7) | ||
9 | cmd = "echo -n " plain " | sha512sum | head -c 32" | ||
10 | while((cmd | getline) > 0) | ||
11 | str = toupper($0) | ||
12 | print str | ||
13 | i = 1 | ||
14 | guid_1 = substr(str,i,8) | ||
15 | i+=8 | ||
16 | guid_2 = substr(str,i,4) | ||
17 | i+=4 | ||
18 | guid_3 = substr(str,i,4) | ||
19 | i+=4 | ||
20 | guid_4 = substr(str,i,4) | ||
21 | i+=4 | ||
22 | guid_5 = substr(str,i,12) | ||
23 | i+=12 | ||
24 | print "s/" plain "/" guid_1 "-" guid_2 "-" guid_3 "-" guid_4 "-" guid_5 "/g" | ||
25 | close(cmd) | ||
26 | } | ||