]> git.zerfleddert.de Git - micropolis/blob - src/tclx/tclsrc/strfile.tcl
Avoid SIGLOST==SIGPWR namespace collision on sparc (LP: #505080).
[micropolis] / src / tclx / tclsrc / strfile.tcl
1 #
2 # string_file --
3 #
4 # Functions to read and write strings from a file that has not been opened.
5 #------------------------------------------------------------------------------
6 # Copyright 1992 Karl Lehenbauer and Mark Diekhans.
7 #
8 # Permission to use, copy, modify, and distribute this software and its
9 # documentation for any purpose and without fee is hereby granted, provided
10 # that the above copyright notice appear in all copies. Karl Lehenbauer and
11 # Mark Diekhans make no representations about the suitability of this
12 # software for any purpose. It is provided "as is" without express or
13 # implied warranty.
14 #------------------------------------------------------------------------------
15 # $Id: stringfile.tcl,v 2.0 1992/10/16 04:52:13 markd Rel $
16 #------------------------------------------------------------------------------
17 #
18
19 #@package: TclX-stringfile_functions read_file write_file
20
21 proc read_file {fileName {numBytes {}}} {
22 set fp [open $fileName]
23 if {$numBytes != ""} {
24 set result [read $fp $numBytes]
25 } else {
26 set result [read $fp]
27 }
28 close $fp
29 return $result
30 }
31
32 proc write_file {fileName args} {
33 set fp [open $fileName w]
34 foreach string $args {
35 puts $fp $string
36 }
37 close $fp
38 }
39
Impressum, Datenschutz