oleaut32/tests: Test more return values.
[wine.git] / tools / wrc / writeres.c
blob07d4f748fe3defec20901d7744f3383aca5a9ee1
1 /*
2 * Write .res file from a resource-tree
4 * Copyright 1998 Bertho A. Stultiens
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 #include "config.h"
22 #include "wine/port.h"
24 #include <stdio.h>
25 #include <stdlib.h>
26 #include <string.h>
27 #include <assert.h>
29 #include "wrc.h"
30 #include "genres.h"
31 #include "newstruc.h"
32 #include "utils.h"
35 *****************************************************************************
36 * Function : write_resfile
37 * Syntax : void write_resfile(char *outname, resource_t *top)
38 * Input :
39 * outname - Filename to write to
40 * top - The resource-tree to convert
41 * Output :
42 * Description :
43 * Remarks :
44 *****************************************************************************
46 void write_resfile(char *outname, resource_t *top)
48 FILE *fo;
49 unsigned int ret;
50 char zeros[3] = {0, 0, 0};
52 fo = fopen(outname, "wb");
53 if(!fo)
54 fatal_perror("Could not open %s", outname);
56 if(win32)
58 /* Put an empty resource first to signal win32 format */
59 res_t *res = new_res();
60 put_dword(res, 0); /* ResSize */
61 put_dword(res, 0x00000020); /* HeaderSize */
62 put_word(res, 0xffff); /* ResType */
63 put_word(res, 0);
64 put_word(res, 0xffff); /* ResName */
65 put_word(res, 0);
66 put_dword(res, 0); /* DataVersion */
67 put_word(res, 0); /* Memory options */
68 put_word(res, 0); /* Language */
69 put_dword(res, 0); /* Version */
70 put_dword(res, 0); /* Characteristics */
71 ret = fwrite(res->data, 1, res->size, fo);
72 if(ret != res->size)
74 fclose(fo);
75 error("Error writing %s\n", outname);
77 free(res);
80 for(; top; top = top->next)
82 if(!top->binres)
83 continue;
85 ret = fwrite(top->binres->data, 1, top->binres->size, fo);
86 if(ret != top->binres->size)
88 fclose(fo);
89 error("Error writing %s\n", outname);
91 if(win32 && (top->binres->size & 0x03))
93 /* Write padding */
94 ret = fwrite(zeros, 1, 4 - (top->binres->size & 0x03), fo);
95 if(ret != 4 - (top->binres->size & 0x03))
97 fclose(fo);
98 error("Error writing %s\n", outname);
102 if (fclose(fo))
103 fatal_perror("Error writing %s", outname);