Last change
on this file since 1024 was 684, checked in by John Leo Zimmer, 15 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.