equal
deleted
inserted
replaced
102 |
102 |
103 pid := OperatingSystem getProcessId printString. |
103 pid := OperatingSystem getProcessId printString. |
104 pid := pid copyLast:(3 min:pid size). |
104 pid := pid copyLast:(3 min:pid size). |
105 nr := NextTempFilenameIndex printString. |
105 nr := NextTempFilenameIndex printString. |
106 nr := nr copyLast:(3 min:nr size). |
106 nr := nr copyLast:(3 min:nr size). |
107 nameString := (self tempFileNameTemplate) |
107 nameString := (self tempFileNameTemplate) bindWith:pid with:nr. |
108 bindWith:pid |
|
109 with:nr. |
|
110 NextTempFilenameIndex := NextTempFilenameIndex + 1. |
108 NextTempFilenameIndex := NextTempFilenameIndex + 1. |
111 |
109 |
112 (aDirectoryPrefix isNil or:[aDirectoryPrefix asString isEmpty]) ifFalse:[ |
110 (aDirectoryPrefix isNil or:[aDirectoryPrefix asString isEmpty]) ifFalse:[ |
113 ^ aDirectoryPrefix asFilename construct:nameString |
111 ^ aDirectoryPrefix asFilename construct:nameString |
114 ]. |
112 ]. |
134 Filename newTemporaryIn:nil |
132 Filename newTemporaryIn:nil |
135 Filename newTemporaryIn:'.' |
133 Filename newTemporaryIn:'.' |
136 Filename newTemporaryIn:('source' asFilename) |
134 Filename newTemporaryIn:('source' asFilename) |
137 " |
135 " |
138 |
136 |
139 "Modified: 7.9.1995 / 10:48:31 / claus" |
137 "Modified: / 07-09-1995 / 10:48:31 / claus" |
140 "Modified: 8.9.1997 / 00:28:33 / cg" |
138 "Created: / 30-01-1998 / 11:49:33 / md" |
141 "Created: 30.1.1998 / 11:49:33 / md" |
139 "Modified: / 30-01-1998 / 12:09:18 / dq" |
142 "Modified: 30.1.1998 / 11:52:06 / md" |
140 "Modified: / 23-03-2011 / 16:29:34 / cg" |
143 "Modified: 30.1.1998 / 12:09:18 / dq" |
|
144 ! |
141 ! |
145 |
142 |
146 rootDirectoryOnVolume:aVolumeName |
143 rootDirectoryOnVolume:aVolumeName |
147 "return a filename for the root directory on some volume" |
144 "return a filename for the root directory on some volume" |
148 |
145 |
884 ! ! |
881 ! ! |
885 |
882 |
886 !PCFilename class methodsFor:'documentation'! |
883 !PCFilename class methodsFor:'documentation'! |
887 |
884 |
888 version |
885 version |
889 ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.52 2010-12-01 17:54:15 cg Exp $' |
886 ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.53 2011-03-23 15:46:46 cg Exp $' |
890 ! |
887 ! |
891 |
888 |
892 version_CVS |
889 version_CVS |
893 ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.52 2010-12-01 17:54:15 cg Exp $' |
890 ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.53 2011-03-23 15:46:46 cg Exp $' |
894 ! ! |
891 ! ! |