Skip to content
This repository was archived by the owner on Oct 2, 2023. It is now read-only.

Commit 9b69d86

Browse files
author
matthew-white
committed
Add version 1.2.0
1 parent 2ba032e commit 9b69d86

File tree

2 files changed

+112
-42
lines changed

2 files changed

+112
-42
lines changed

‎help/truecrypt.hlp

+17-8
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
{smcl}
2-
{* *! version 1.1.0 Matthew White 14mar2012}{...}
2+
{* *! version 1.2.0 Matthew White 03jul2012}{...}
33
{cmd:help truecrypt}
44
{hline}
55

@@ -30,9 +30,12 @@ Dismount a TrueCrypt volume
3030
{synopthdr}
3131
{synoptline}
3232
{synopt :{opt m:ount}}mount the TrueCrypt volume {it:filename}{p_end}
33-
{synopt :{opt dis:mount}}dismount the TrueCrypt volume specified by {opt drive}{p_end}
34-
{synopt :{opt dr:ive(drive_letter)}}mount the volume as {it:drive_letter} or dismount the volume specified by {it:drive_letter}{p_end}
35-
{synopt :{opt prog:dir(directory_name)}}the directory that contains TrueCrypt.exe; default is {res:C:\Program Files\TrueCrypt}{p_end}
33+
{synopt :{opt dis:mount}}dismount the TrueCrypt volume specified by {opt drive()}{p_end}
34+
{synopt :{opt dr:ive(drive_letter)}}mount the volume as {it:drive_letter} or dismount the volume specified by
35+
{it:drive_letter}{p_end}
36+
{synopt :{opt prog:dir(directory_name)}}the directory that contains the TrueCrypt application; default is
37+
{cmd:C:\Program Files\TrueCrypt} (Stata for Windows) or {cmd:/Applications} (Stata for Mac)
38+
{p_end}
3639
{synoptline}
3740
{p2colreset}{...}
3841

@@ -46,12 +49,18 @@ Dismount a TrueCrypt volume
4649
{title:Options}
4750

4851
{phang}
49-
{opt m:ount} specifies that the TrueCrypt volume {it:filename} will be mounted. If neither {opt mount} nor {opt dismount} is specified, {opt mount}
50-
is implied.
52+
{opt m:ount} specifies that the TrueCrypt volume {it:filename} will be mounted. If neither {opt mount} nor
53+
{opt dismount} is specified, {opt mount} is implied.
5154

5255
{phang}
53-
{opt dr:ive(drive_letter)} specifies the drive letter to use for mounting or dismounting. If {opt mount} is specified and {opt drive()} is not, the
54-
first free drive letter is used.
56+
{opt dr:ive(drive_letter)} specifies the drive letter to use for mounting or dismounting. If {opt mount} is specified
57+
and {opt drive()} is not, the first free drive letter is used. On Mac, the mount directory is
58+
{cmd:~/}{it:drive_letter}{cmd:colon}.
59+
60+
61+
{title:Acknowledgements}
62+
63+
{phang}Christopher Robert of the Harvard Kennedy School supplied code to make {cmd:truecrypt} compatible with Stata for Mac.
5564

5665

5766
{title:Author}

‎truecrypt.ado

+95-34
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,16 @@
1-
*! version 1.1.0 Matthew White 14mar2012
1+
*! version 1.2.0 Matthew White 03jul2012
22
pr truecrypt
33
vers 9
4-
if c(os) != "Windows" {
5-
di as err "Stata for Windows required"
4+
5+
if !inlist(c(os), "Windows", "MacOSX") {
6+
di as err "Stata for Windows or Mac required"
67
ex 198
78
}
9+
810
syntax [anything(name=volume)], [Mount DISmount DRive(str) PROGdir(str)]
9-
11+
1012
***Check syntax***
13+
1114
* Check strings.
1215
loc volume `volume'
1316
loc temp : subinstr loc volume `"""' "", count(loc dq)
@@ -22,69 +25,127 @@ pr truecrypt
2225
ex 198
2326
}
2427
}
25-
28+
2629
* -mount-, -dismount-
2730
if "`mount'`dismount'" == "" loc mount mount
2831
else if "`mount'" != "" & "`dismount'" != "" {
2932
di as err "options mount and dismount are mutually exclusive"
3033
ex 198
3134
}
32-
33-
* -mount- options
35+
36+
* -mount-
3437
if "`mount'" != "" {
3538
* `volume'
3639
conf f "`volume'"
40+
41+
* Make `volume' a clean absolute reference.
42+
* TrueCrypt can't handle absolute references that are unclean
43+
* (understood by Stata but not the OS) or relative references up the
44+
* directory tree (containing ..).
45+
mata: st_local("file", pathbasename("`volume'"))
46+
mata: st_local("path", strreverse(subinstr(strreverse("`volume'"), strreverse("`file'"), "", 1)))
47+
nobreak {
48+
loc curdir = c(pwd)
49+
* -cd ""- in Stata for Mac changes the working directory to the home
50+
* directory.
51+
if "`path'" != "" qui cd "`path'"
52+
loc path = c(pwd)
53+
qui cd "`curdir'"
54+
}
55+
loc volume `path'`=cond(c(os) == "Windows", "\", "/")'`file'
3756
}
38-
* -dismount- options
57+
* -dismount-
3958
else {
4059
* `volume'
4160
if "`volume'" != "" {
4261
di as err "option dismount: filename not allowed"
4362
ex 198
4463
}
45-
46-
* -drive-
64+
65+
* -drive()-
4766
if "`drive'" == "" {
48-
di as err "option dismount must be specified with option drive"
67+
di as err "option dismount must be specified with option drive()"
4968
ex 198
5069
}
5170
}
52-
53-
* -drive-
71+
72+
* -drive()-
5473
if "`drive'" != "" {
5574
if !regexm("`drive'", "^[A-Za-z]:?$") {
5675
di as err "option drive(): invalid drive"
5776
ex 198
5877
}
59-
else loc drive = regexr("`drive'", ":$", "")
78+
79+
loc driveletter = regexr("`drive'", ":$", "")
80+
if c(os) == "Windows" ///
81+
loc drive `driveletter':
82+
else ///
83+
loc drive = "~/`driveletter'colon"
84+
85+
* Check that the drive is available if -mount- or is mounted if -dismount-.
86+
mata: st_local("mounted", strofreal(direxists("`drive'")))
87+
if "`mount'" != "" & `mounted' {
88+
di as err "option mount: drive letter `driveletter' not available"
89+
ex 198
90+
}
91+
else if "`dismount'" != "" & !`mounted' {
92+
di as err "option dismount: no volume specified by drive letter `driveletter'"
93+
ex 198
94+
}
6095
}
61-
62-
* -progdir-
63-
if "`progdir'" == "" loc progdir C:\Program Files\TrueCrypt
64-
conf f "`progdir'\TrueCrypt.exe"
65-
66-
* Check that the drive is available if -mount- or is mounted if -dismount-.
67-
mata: st_local("mounted", strofreal(direxists("`drive':")))
68-
if "`mount'" != "" & `mounted' {
69-
di as err "mount: drive letter `drive' not available"
70-
ex 198
96+
else if "`mount'" != "" & c(os) == "MacOSX" {
97+
* If -mount- is specified and -drive()- is not, we want TrueCrypt to use
98+
* the first free drive letter. On Windows, TrueCrypt will do this
99+
* automatically if not specified a drive letter, but on Mac, it will
100+
* select something other than a drive letter as the mount directory. So
101+
* if -truecrypt- is run on Stata for Mac, we'll have Stata determine the
102+
* first free drive letter, then pass it to TrueCrypt.
103+
104+
foreach letter in `c(ALPHA)' {
105+
loc drive ~/`letter'colon
106+
mata: st_local("mounted", strofreal(direxists("`drive'")))
107+
if !`mounted' continue, break
108+
}
109+
110+
if `mounted' {
111+
di as err "option mount: no drive letter available"
112+
ex 198
113+
}
71114
}
72-
else if "`dismount'" != "" & !`mounted' {
73-
di as err "dismount: no volume specified by drive letter `drive'"
74-
ex 198
115+
116+
* -progdir()-
117+
if "`progdir'" == "" {
118+
if c(os) == "Windows" ///
119+
loc progdir C:\Program Files\TrueCrypt
120+
else ///
121+
loc progdir /Applications/TrueCrypt.app/Contents/MacOS
75122
}
123+
else if c(os) == "MacOSX" ///
124+
loc progdir `progdir'/TrueCrypt.app/Contents/MacOS
125+
conf f "`progdir'/TrueCrypt`=cond(c(os) == "Windows", ".exe", "")'"
76126
***End***
77-
78-
* -mount-
79-
if "`mount'" != "" ///
80-
sh "`progdir'\TrueCrypt.exe" /v "`volume'" `=cond("`drive'" != "", "/l `drive'", "")' /q
81-
* -dismount-
82-
else ///
83-
sh "`progdir'\TrueCrypt.exe" /d `drive' /q
127+
128+
if c(os) == "Windows" {
129+
* -mount-
130+
if "`mount'" != "" ///
131+
sh "`progdir'\TrueCrypt.exe" /v "`volume'" `=cond("`drive'" != "", "/l `drive'", "")' /q
132+
* -dismount-
133+
else ///
134+
sh "`progdir'\TrueCrypt.exe" /d `drive' /q
135+
}
136+
else {
137+
if "`mount'" != "" ///
138+
sh "`progdir'/TrueCrypt" "`volume'" `drive'
139+
else ///
140+
sh "`progdir'/TrueCrypt" -d `drive'
141+
}
84142
end
85143

86144
* Changes history
87145
* version 1.0.0 21feb2012
88146
* version 1.1.0 14mar2012
89147
* -progdir()- is optional
90148
* Syntax checks added
149+
* version 1.2.0 03jul2012
150+
* Compatible with Mac OS X
151+
* All references to the TrueCrypt volume accepted

0 commit comments

Comments
 (0)