|
Last change
on this file since 803 was 684, checked in by John Leo Zimmer, 16 years ago |
|
first commit from Glenwood
|
|
File size:
599 bytes
|
| Line | |
|---|
| 1 | VWHSH8 ;;GpZ; - ; IMPROVED HASHING UTILITY: INSTALL MODULE, GT.M; 01/08/2010
|
|---|
| 2 | V ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | QUIT
|
|---|
| 5 | ;
|
|---|
| 6 | INIT() S MUMPS=^%ZOSF("OS"),OS=$$GTM("uname -o")
|
|---|
| 7 | S PATH=$P($P($$GTM("whereis gpg")," ",2),"gpg")
|
|---|
| 8 | S X=$TR("host:"_MUMPS_OS_":","^ ","-")
|
|---|
| 9 | O "PIPE":(COMM="gpg --version|grep -E ^Hash:":READONLY)::"PIPE"
|
|---|
| 10 | U "PIPE" R HASHLIST
|
|---|
| 11 | C "PIPE" U 0
|
|---|
| 12 | S HASHLIST=$TR($P(HASHLIST,"Hash:",2),",")
|
|---|
| 13 | S HASHLIST=HASHLIST_" ||"_PATH_"||"_MUMPS_OS_"||"
|
|---|
| 14 | QUIT HASHLIST
|
|---|
| 15 | ;
|
|---|
| 16 | GTM(PIPE) ;
|
|---|
| 17 | N (PIPE)
|
|---|
| 18 | OPEN "PIPE":(command=PIPE)::"pipe"
|
|---|
| 19 | S X="" F I=1:1:4 U "PIPE" R XX Q:$ZEOF S X=X_XX
|
|---|
| 20 | CLOSE "PIPE"
|
|---|
| 21 | QUIT X
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
