Mercurial > repos > rhope

comparison file.rhope @ 114:25a205094f9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More performance optimizations
author Mike Pavone <pavone@retrodev.com>
date Wed, 13 Oct 2010 01:15:04 +0000
parents f51c4c17457c
children ac5c2d78663f
comparison
equal deleted inserted replaced
110:336da6ce8174 114:25a205094f9b
217 } 217 }
218 } 218 }
219 219
220 Write@File Write[file,data(Array):out,err] 220 Write@File Write[file,data(Array):out,err]
221 { 221 {
222 err <- If[write[[file]Descriptor >>, data, Int64[[data]Length >>]]] {} 222 err <- If[[write[[file]Descriptor >>, data, Int64[[data]Length >>]]]<[0i32]] {}
223 { 223 {
224 out <- file 224 out <- file
225 } 225 }
226 }
227
228 Write to File@String[str,file:out,err]
229 {
230 out,err <- [file]Write[[str]Buffer >>]
231 }
232
233 Write to File@String Slice[str,file:out,err]
234 {
235 out,err <- [[str]Flatten]Write to File[file]
236 }
237
238 Write to File@String Cat[str,file:out,err]
239 {
240 ,err <- [[str]Left >>]Write to File[file]
241 { out,err <- [[str]Right >>]Write to File[~] }
226 } 242 }
227 243
228 Close@File Write[file:out] 244 Close@File Write[file:out]
229 { 245 {
230 fsync[[file]Descriptor >>] 246 fsync[[file]Descriptor >>]