source: hash/trunk/VWHSH8.m@ 1561

Last change on this file since 1561 was 684, checked in by John Leo Zimmer, 15 years ago

first commit from Glenwood

File size: 599 bytes
Line 
1VWHSH8 ;;GpZ; - ; IMPROVED HASHING UTILITY: INSTALL MODULE, GT.M; 01/08/2010
2V ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4 QUIT
5 ;
6INIT() 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 ;
16GTM(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.