tdf#130857 qt weld: Implement QtInstanceWidget::strip_mnemonic
[LibreOffice.git] / solenv / bin / modules / pre2par / files.pm
blobddc8d9157eaeff7b37877898dd39dfb6d2c7bedd
2 # This file is part of the LibreOffice project.
4 # This Source Code Form is subject to the terms of the Mozilla Public
5 # License, v. 2.0. If a copy of the MPL was not distributed with this
6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 # This file incorporates work covered by the following license notice:
10 # Licensed to the Apache Software Foundation (ASF) under one or more
11 # contributor license agreements. See the NOTICE file distributed
12 # with this work for additional information regarding copyright
13 # ownership. The ASF licenses this file to you under the Apache
14 # License, Version 2.0 (the "License"); you may not use this file
15 # except in compliance with the License. You may obtain a copy of
16 # the License at http://www.apache.org/licenses/LICENSE-2.0 .
19 package pre2par::files;
21 use pre2par::exiter;
23 ############################################
24 # File Operations
25 ############################################
27 sub read_file
29 my ($localfile) = @_;
31 my @localfile = ();
33 open( IN, "<$localfile" ) || pre2par::exiter::exit_program("ERROR: Cannot open file: $localfile", "read_file");
34 while ( <IN> ) { push(@localfile, $_); }
35 close( IN );
37 return \@localfile;
40 ###########################################
41 # Saving files
42 ###########################################
44 sub save_file
46 my ($savefile, $savecontent) = @_;
47 if (-f $savefile) { unlink $savefile };
48 if (-f $savefile) { pre2par::exiter::exit_program("ERROR: Cannot delete existing file: $savefile", "save_file"); };
49 open( OUT, ">$savefile" );
50 print OUT @{$savecontent};
51 close( OUT);
52 if (! -f $savefile) { pre2par::exiter::exit_program("ERROR: Cannot write file: $savefile", "save_file"); }