OpenVista/GT.M Integration

Merge lp:~jeff-apple/openvista-gtm-integration/bug360290 into lp:openvista-gtm-integration

  1. bug360290
  2. Merge into mainline
Proposed by jeff.apple
Status: Merged
Merged at revision: not available
Proposed branch: lp:~jeff-apple/openvista-gtm-integration/bug360290
Merge into: lp:openvista-gtm-integration
Diff against target: None lines
To merge this branch: bzr merge lp:~jeff-apple/openvista-gtm-integration/bug360290
Reviewer Review Type Date Requested Status
Jon Tai Approve
Review via email: mp+5553@code.launchpad.net
To post a comment you must log in.
Revision history for this message
Jon Tai (jontai) :
review: Approve

Preview Diff

[H/L] Next/Prev Comment, [J/K] Next/Prev File, [N/P] Next/Prev Hunk
1=== modified file 'mumps/ZOSVGUX.m'
2--- mumps/ZOSVGUX.m 2009-04-14 03:18:12 +0000
3+++ mumps/ZOSVGUX.m 2009-04-15 03:13:40 +0000
4@@ -15,9 +15,10 @@
5 Q Y
6 ;
7 RTNDIR() ; primary routine source directory
8- ;Assume /home/xxx/o(/home/xxx/r /home/gtm)
9- Q $P($S($ZRO["(":$P($P($ZRO,"(",2),")"),1:$ZRO)," ")_"/"
10- ;
11+ ; If $ZRO is a single directory, e.g., xxx, returns that directory, e.g., xxx/
12+ ; If $ZRO is of the form xxx yyy ... returns xxx/
13+ ; If $ZRO is of the form www(xxx) ... or www(xxx yyy) ... returns xxx/
14+ Q $P($S(($F($ZRO_" "," ")>$F($ZRO,"("))&$F($ZRO,"("):$P($P($ZRO,")"),"(",2),1:$ZRO)," ")_"/" ;
15 TEMP() ; Return path to temp directory
16 ;N %TEMP S %TEMP=$P($$RTNDIR," "),%TEMP=$P(%TEMP,"/",1,$L(%TEMP,"/")-2)_"/t/"
17 Q $G(^%ZOSF("TMP"),"/tmp/")

Subscribers

People subscribed via source and target branches