Mercurial > hg > xmms-sid
annotate src/xs_support.c @ 887:89c05adc87cc
Silence a warning.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 09 Nov 2012 06:17:12 +0200 |
parents | 000baa9fcd4f |
children | 1779967c472a |
rev | line source |
---|---|
4 | 1 /* |
2 XMMS-SID - SIDPlay input plugin for X MultiMedia System (XMMS) | |
3 | |
4 Miscellaneous support functions | |
5 | |
324 | 6 Programmed and designed by Matti 'ccr' Hamalainen <ccr@tnsp.org> |
723 | 7 (C) Copyright 1999-2009 Tecnic Software productions (TNSP) |
4 | 8 |
9 This program is free software; you can redistribute it and/or modify | |
10 it under the terms of the GNU General Public License as published by | |
11 the Free Software Foundation; either version 2 of the License, or | |
12 (at your option) any later version. | |
13 | |
14 This program is distributed in the hope that it will be useful, | |
15 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 GNU General Public License for more details. | |
18 | |
412
7f694e5a1493
Updated GNU GPL (new FSF address) and some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
398
diff
changeset
|
19 You should have received a copy of the GNU General Public License along |
7f694e5a1493
Updated GNU GPL (new FSF address) and some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
398
diff
changeset
|
20 with this program; if not, write to the Free Software Foundation, Inc., |
7f694e5a1493
Updated GNU GPL (new FSF address) and some cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
398
diff
changeset
|
21 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
772 | 22 |
23 -- | |
24 Except for the MD5 related functionality at the end of this file. | |
25 -- | |
4 | 26 */ |
49
3518ca5c8b0f
Support for compile-time big/little-endian optimizations in audio output
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
27 #include "xs_support.h" |
879
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
28 #include <stdarg.h> |
224
df4cb5115322
Removed duplicate function, more portability cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
218
diff
changeset
|
29 #include <ctype.h> |
202 | 30 |
879
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
31 |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
32 /* Error messages |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
33 */ |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
34 void xs_error(const char *fmt, ...) |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
35 { |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
36 va_list ap; |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
37 fprintf(stderr, "XMMS-SID: "); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
38 va_start(ap, fmt); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
39 vfprintf(stderr, fmt, ap); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
40 va_end(ap); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
41 } |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
42 |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
43 #ifndef DEBUG_NP |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
44 void XSDEBUG(const char *fmt, ...) |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
45 { |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
46 #ifdef DEBUG |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
47 va_list ap; |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
48 fprintf(stderr, "XSDEBUG: "); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
49 va_start(ap, fmt); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
50 vfprintf(stderr, fmt, ap); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
51 va_end(ap); |
887 | 52 #else |
53 (void) fmt; | |
879
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
54 #endif |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
55 } |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
56 #endif |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
57 |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
58 |
877
5e33075ed9dd
Oops, a #ifdef was reversed, causing the xs_fsize() function not to be compiled.
Matti Hamalainen <ccr@tnsp.org>
parents:
868
diff
changeset
|
59 #ifndef __AUDACIOUS_NEWVFS__ |
866
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
60 off_t xs_fsize(XSFile *f) |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
61 { |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
62 off_t pos; |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
63 if (fseeko(f, 0, SEEK_END) < 0) |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
64 return -1; |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
65 |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
66 pos = ftello(f); |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
67 |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
68 if (fseeko(f, 0, SEEK_SET) < 0) |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
69 return -1; |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
70 |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
71 return pos; |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
72 } |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
73 #endif |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
74 |
226
858c09f59011
Moved some functions from xs_length.c here.
Matti Hamalainen <ccr@tnsp.org>
parents:
224
diff
changeset
|
75 |
751 | 76 guint16 xs_fread_be16(XSFile *f) |
516
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
77 { |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
78 return (((guint16) xs_fgetc(f)) << 8) | ((guint16) xs_fgetc(f)); |
516
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
79 } |
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
80 |
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
81 |
751 | 82 guint32 xs_fread_be32(XSFile *f) |
516
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
83 { |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
84 return |
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
85 (((guint32) xs_fgetc(f)) << 24) | |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
86 (((guint32) xs_fgetc(f)) << 16) | |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
87 (((guint32) xs_fgetc(f)) << 8) | |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
88 ((guint32) xs_fgetc(f)); |
516
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
89 } |
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
90 |
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
91 |
527
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
92 /* Load a file to a buffer, return 0 on success, negative value on error |
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
93 */ |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
94 gboolean xs_fload_buffer(const gchar *filename, |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
95 guint8 **pbuf, size_t *bufSize, const size_t maxSize, gboolean failMaxSize) |
527
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
96 { |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
97 XSFile *fp = NULL; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
98 size_t readSize, fileSize; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
99 gboolean res = FALSE; |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
100 |
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
101 if (filename == NULL) |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
102 return FALSE; |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
103 |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
104 if ((fp = xs_fopen(filename, "rb")) == NULL) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
105 { |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
106 xs_error("Could not open '%s' for reading.\n", filename); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
107 goto error; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
108 } |
527
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
109 |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
110 fileSize = xs_fsize(fp); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
111 if (failMaxSize && fileSize > maxSize) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
112 { |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
113 xs_error("File '%s' size %d exceeds maxSize %d.\n", |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
114 fileSize, maxSize); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
115 goto error; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
116 } |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
117 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
118 readSize = fileSize < maxSize ? fileSize : maxSize; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
119 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
120 if ((*pbuf = (guint8 *) g_malloc(readSize * sizeof(guint8))) == NULL) |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
121 { |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
122 xs_error("Could not allocate %d bytes for filebuffer '%s'.\n", |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
123 readSize, filename); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
124 goto error; |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
125 } |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
126 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
127 *bufSize = xs_fread(*pbuf, sizeof(guint8), readSize, fp); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
128 res = (readSize == *bufSize); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
129 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
130 error: |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
131 if (fp != NULL) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
132 xs_fclose(fp); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
133 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
134 if (!res) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
135 { |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
136 xs_error("File '%s', expected %d bytes, read %d bytes.\n", |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
137 readSize, *bufSize); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
138 } |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
139 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
140 return res; |
527
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
141 } |
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
142 |
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
143 |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
144 gboolean xs_fload_buffer_path(const gchar *ppath, const gchar *pfilename, |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
145 guint8 **pbuf, size_t *bufSize, const size_t maxSize, gboolean failMaxSize) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
146 { |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
147 gchar *filename = g_strdup_printf("%s%s", ppath != NULL ? ppath : "", pfilename); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
148 gboolean res; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
149 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
150 if (filename == NULL) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
151 return FALSE; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
152 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
153 res = xs_fload_buffer(filename, pbuf, bufSize, maxSize, failMaxSize); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
154 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
155 g_free(filename); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
156 return res; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
157 } |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
158 |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
159 /* Copy a given string over in *result. |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
160 */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
161 gint xs_pstrcpy(gchar **result, const gchar *str) |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
162 { |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
163 /* Check the string pointers */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
164 if (!result || !str) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
165 return -1; |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
166 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
167 /* Allocate memory for destination */ |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
168 g_free(*result); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
169 |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
170 *result = (gchar *) g_malloc(strlen(str) + 1); |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
171 if (!*result) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
172 return -2; |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
173 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
174 /* Copy to the destination */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
175 strcpy(*result, str); |
4 | 176 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
177 return 0; |
4 | 178 } |
179 | |
180 | |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
181 /* Concatenates a given string into string pointed by *result. |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
182 */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
183 gint xs_pstrcat(gchar **result, const gchar *str) |
4 | 184 { |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
185 /* Check the string pointers */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
186 if (!result || !str) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
187 return -1; |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
188 |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
189 if (*result != NULL) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
190 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
191 *result = (gchar *) g_realloc(*result, strlen(*result) + strlen(str) + 1); |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
192 if (*result == NULL) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
193 return -1; |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
194 strcat(*result, str); |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
195 } |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
196 else |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
197 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
198 *result = (gchar *) g_malloc(strlen(str) + 1); |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
199 if (*result == NULL) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
200 return -1; |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
201 strcpy(*result, str); |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
202 } |
4 | 203 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
204 return 0; |
4 | 205 } |
206 | |
207 | |
239
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
208 /* Concatenate a given string up to given dest size or \n. |
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
209 * If size max is reached, change the end to "..." |
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
210 */ |
868 | 211 void xs_pnstrcat(gchar *dest, const size_t size, const gchar *str) |
239
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
212 { |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
213 size_t i, n; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
214 const gchar *s; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
215 gchar *d; |
359
b1a858b8cb1a
Re-indentation all (non-generated) code.
Matti Hamalainen <ccr@tnsp.org>
parents:
324
diff
changeset
|
216 |
868 | 217 for (d = dest, i = 0; *d && i < size; i++, d++); |
239
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
218 |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
219 s = str; |
868 | 220 while (*s && *s != '\n' && i < size) |
221 { | |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
222 *d = *s; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
223 d++; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
224 s++; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
225 i++; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
226 } |
359
b1a858b8cb1a
Re-indentation all (non-generated) code.
Matti Hamalainen <ccr@tnsp.org>
parents:
324
diff
changeset
|
227 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
228 *d = 0; |
239
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
229 |
868 | 230 if (i >= size) |
231 { | |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
232 i--; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
233 d--; |
868 | 234 for (n = 3; i > 0 && n > 0; d--, i--, n--) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
235 *d = '.'; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
236 } |
239
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
237 } |
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
238 |
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
239 |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
240 /* Locate character in string |
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
241 */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
242 void xs_findnext(const gchar *str, size_t *pos) |
4 | 243 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
244 while (str[*pos] && isspace(str[*pos])) |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
245 (*pos)++; |
4 | 246 } |
247 | |
248 | |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
249 void xs_findeol(const gchar *str, size_t *pos) |
4 | 250 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
251 while (str[*pos] && (str[*pos] != '\n') && (str[*pos] != '\r')) |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
252 (*pos)++; |
4 | 253 } |
254 | |
255 | |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
256 void xs_findnum(const gchar *str, size_t *pos) |
109
578b71b62eeb
Fileinfo now basically working, STIL COMMENT-fields are not yet parsed or shown.
Matti Hamalainen <ccr@tnsp.org>
parents:
87
diff
changeset
|
257 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
258 while (str[*pos] && isdigit(str[*pos])) |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
259 (*pos)++; |
109
578b71b62eeb
Fileinfo now basically working, STIL COMMENT-fields are not yet parsed or shown.
Matti Hamalainen <ccr@tnsp.org>
parents:
87
diff
changeset
|
260 } |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
261 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
262 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
263 /* |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
264 * MD5 implementation, modified for XMMS-SID from |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
265 * Colin Plumb's implementation by Matti 'ccr' Hämäläinen. |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
266 * |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
267 * This code implements the MD5 message-digest algorithm. |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
268 * The algorithm is due to Ron Rivest. This code was |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
269 * written by Colin Plumb in 1993, no copyright is claimed. |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
270 * This code is in the public domain; do with it what you wish. |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
271 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
272 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
273 #if G_BYTE_ORDER == G_LITTLE_ENDIAN |
772 | 274 # define xs_md5_bytereverse(buf, len) /* Nothing */ |
275 #elif G_BYTE_ORDER == G_BIG_ENDIAN | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
276 static void xs_md5_bytereverse(guint8 *buf, guint l) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
277 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
278 guint32 t; |
868 | 279 do |
280 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
281 t = (guint32) ((guint) buf[3] << 8 | buf[2]) << 16 | ((guint) buf[1] << 8 | buf[0]); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
282 *(guint32 *) buf = t; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
283 buf += sizeof(guint32); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
284 } while (--l); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
285 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
286 #else |
772 | 287 # error Unsupported endianess! |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
288 #endif |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
289 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
290 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
291 /* Start MD5 accumulation. Set bit count to 0 and buffer to mysterious |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
292 * initialization constants. |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
293 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
294 void xs_md5_init(xs_md5state_t *ctx) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
295 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
296 ctx->buf[0] = 0x67452301; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
297 ctx->buf[1] = 0xefcdab89; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
298 ctx->buf[2] = 0x98badcfe; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
299 ctx->buf[3] = 0x10325476; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
300 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
301 ctx->bits[0] = 0; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
302 ctx->bits[1] = 0; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
303 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
304 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
305 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
306 /* The core of the MD5 algorithm, this alters an existing MD5 hash to |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
307 * reflect the addition of 16 longwords of new data. xs_md5_update blocks |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
308 * the data and converts bytes into longwords for this routine. |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
309 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
310 #define F1(x, y, z) (z ^ (x & (y ^ z))) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
311 #define F2(x, y, z) F1(z, x, y) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
312 #define F3(x, y, z) (x ^ y ^ z) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
313 #define F4(x, y, z) (y ^ (x | ~z)) |
868 | 314 #define MD5STEP(f, w, x, y, z, data, s) ( w += f(x, y, z) + data, w = w<<s | w>>(32-s), w += x ) |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
315 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
316 static void xs_md5_transform(guint32 buf[4], guint32 const in[16]) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
317 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
318 register guint32 a, b, c, d; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
319 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
320 a = buf[0]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
321 b = buf[1]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
322 c = buf[2]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
323 d = buf[3]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
324 |
772 | 325 MD5STEP(F1, a, b, c, d, in[ 0] + 0xd76aa478, 7); |
326 MD5STEP(F1, d, a, b, c, in[ 1] + 0xe8c7b756, 12); | |
327 MD5STEP(F1, c, d, a, b, in[ 2] + 0x242070db, 17); | |
328 MD5STEP(F1, b, c, d, a, in[ 3] + 0xc1bdceee, 22); | |
329 MD5STEP(F1, a, b, c, d, in[ 4] + 0xf57c0faf, 7); | |
330 MD5STEP(F1, d, a, b, c, in[ 5] + 0x4787c62a, 12); | |
331 MD5STEP(F1, c, d, a, b, in[ 6] + 0xa8304613, 17); | |
332 MD5STEP(F1, b, c, d, a, in[ 7] + 0xfd469501, 22); | |
333 MD5STEP(F1, a, b, c, d, in[ 8] + 0x698098d8, 7); | |
334 MD5STEP(F1, d, a, b, c, in[ 9] + 0x8b44f7af, 12); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
335 MD5STEP(F1, c, d, a, b, in[10] + 0xffff5bb1, 17); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
336 MD5STEP(F1, b, c, d, a, in[11] + 0x895cd7be, 22); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
337 MD5STEP(F1, a, b, c, d, in[12] + 0x6b901122, 7); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
338 MD5STEP(F1, d, a, b, c, in[13] + 0xfd987193, 12); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
339 MD5STEP(F1, c, d, a, b, in[14] + 0xa679438e, 17); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
340 MD5STEP(F1, b, c, d, a, in[15] + 0x49b40821, 22); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
341 |
772 | 342 MD5STEP(F2, a, b, c, d, in[ 1] + 0xf61e2562, 5); |
343 MD5STEP(F2, d, a, b, c, in[ 6] + 0xc040b340, 9); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
344 MD5STEP(F2, c, d, a, b, in[11] + 0x265e5a51, 14); |
772 | 345 MD5STEP(F2, b, c, d, a, in[ 0] + 0xe9b6c7aa, 20); |
346 MD5STEP(F2, a, b, c, d, in[ 5] + 0xd62f105d, 5); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
347 MD5STEP(F2, d, a, b, c, in[10] + 0x02441453, 9); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
348 MD5STEP(F2, c, d, a, b, in[15] + 0xd8a1e681, 14); |
772 | 349 MD5STEP(F2, b, c, d, a, in[ 4] + 0xe7d3fbc8, 20); |
350 MD5STEP(F2, a, b, c, d, in[ 9] + 0x21e1cde6, 5); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
351 MD5STEP(F2, d, a, b, c, in[14] + 0xc33707d6, 9); |
772 | 352 MD5STEP(F2, c, d, a, b, in[ 3] + 0xf4d50d87, 14); |
353 MD5STEP(F2, b, c, d, a, in[ 8] + 0x455a14ed, 20); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
354 MD5STEP(F2, a, b, c, d, in[13] + 0xa9e3e905, 5); |
772 | 355 MD5STEP(F2, d, a, b, c, in[ 2] + 0xfcefa3f8, 9); |
356 MD5STEP(F2, c, d, a, b, in[ 7] + 0x676f02d9, 14); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
357 MD5STEP(F2, b, c, d, a, in[12] + 0x8d2a4c8a, 20); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
358 |
772 | 359 MD5STEP(F3, a, b, c, d, in[ 5] + 0xfffa3942, 4); |
360 MD5STEP(F3, d, a, b, c, in[ 8] + 0x8771f681, 11); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
361 MD5STEP(F3, c, d, a, b, in[11] + 0x6d9d6122, 16); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
362 MD5STEP(F3, b, c, d, a, in[14] + 0xfde5380c, 23); |
772 | 363 MD5STEP(F3, a, b, c, d, in[ 1] + 0xa4beea44, 4); |
364 MD5STEP(F3, d, a, b, c, in[ 4] + 0x4bdecfa9, 11); | |
365 MD5STEP(F3, c, d, a, b, in[ 7] + 0xf6bb4b60, 16); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
366 MD5STEP(F3, b, c, d, a, in[10] + 0xbebfbc70, 23); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
367 MD5STEP(F3, a, b, c, d, in[13] + 0x289b7ec6, 4); |
772 | 368 MD5STEP(F3, d, a, b, c, in[ 0] + 0xeaa127fa, 11); |
369 MD5STEP(F3, c, d, a, b, in[ 3] + 0xd4ef3085, 16); | |
370 MD5STEP(F3, b, c, d, a, in[ 6] + 0x04881d05, 23); | |
371 MD5STEP(F3, a, b, c, d, in[ 9] + 0xd9d4d039, 4); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
372 MD5STEP(F3, d, a, b, c, in[12] + 0xe6db99e5, 11); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
373 MD5STEP(F3, c, d, a, b, in[15] + 0x1fa27cf8, 16); |
772 | 374 MD5STEP(F3, b, c, d, a, in[ 2] + 0xc4ac5665, 23); |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
375 |
772 | 376 MD5STEP(F4, a, b, c, d, in[ 0] + 0xf4292244, 6); |
377 MD5STEP(F4, d, a, b, c, in[ 7] + 0x432aff97, 10); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
378 MD5STEP(F4, c, d, a, b, in[14] + 0xab9423a7, 15); |
772 | 379 MD5STEP(F4, b, c, d, a, in[ 5] + 0xfc93a039, 21); |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
380 MD5STEP(F4, a, b, c, d, in[12] + 0x655b59c3, 6); |
772 | 381 MD5STEP(F4, d, a, b, c, in[ 3] + 0x8f0ccc92, 10); |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
382 MD5STEP(F4, c, d, a, b, in[10] + 0xffeff47d, 15); |
772 | 383 MD5STEP(F4, b, c, d, a, in[ 1] + 0x85845dd1, 21); |
384 MD5STEP(F4, a, b, c, d, in[ 8] + 0x6fa87e4f, 6); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
385 MD5STEP(F4, d, a, b, c, in[15] + 0xfe2ce6e0, 10); |
772 | 386 MD5STEP(F4, c, d, a, b, in[ 6] + 0xa3014314, 15); |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
387 MD5STEP(F4, b, c, d, a, in[13] + 0x4e0811a1, 21); |
772 | 388 MD5STEP(F4, a, b, c, d, in[ 4] + 0xf7537e82, 6); |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
389 MD5STEP(F4, d, a, b, c, in[11] + 0xbd3af235, 10); |
772 | 390 MD5STEP(F4, c, d, a, b, in[ 2] + 0x2ad7d2bb, 15); |
391 MD5STEP(F4, b, c, d, a, in[ 9] + 0xeb86d391, 21); | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
392 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
393 buf[0] += a; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
394 buf[1] += b; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
395 buf[2] += c; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
396 buf[3] += d; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
397 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
398 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
399 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
400 /* Update context to reflect the concatenation of another buffer full |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
401 * of bytes. |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
402 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
403 void xs_md5_append(xs_md5state_t *ctx, const guint8 *buf, guint len) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
404 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
405 guint32 t; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
406 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
407 /* Update bitcount */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
408 t = ctx->bits[0]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
409 if ((ctx->bits[0] = t + ((guint32) len << 3)) < t) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
410 ctx->bits[1]++; /* Carry from low to high */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
411 ctx->bits[1] += len >> 29; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
412 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
413 t = (t >> 3) & 0x3f; /* Bytes already in shsInfo->data */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
414 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
415 /* Handle any leading odd-sized chunks */ |
868 | 416 if (t) |
417 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
418 guint8 *p = (guint8 *) ctx->in + t; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
419 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
420 t = 64 - t; |
868 | 421 if (len < t) |
422 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
423 memcpy(p, buf, len); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
424 return; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
425 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
426 memcpy(p, buf, t); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
427 xs_md5_bytereverse(ctx->in, 16); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
428 xs_md5_transform(ctx->buf, (guint32 *) ctx->in); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
429 buf += t; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
430 len -= t; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
431 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
432 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
433 /* Process data in 64-byte chunks */ |
868 | 434 while (len >= 64) |
435 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
436 memcpy(ctx->in, buf, 64); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
437 xs_md5_bytereverse(ctx->in, 16); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
438 xs_md5_transform(ctx->buf, (guint32 *) ctx->in); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
439 buf += 64; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
440 len -= 64; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
441 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
442 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
443 /* Handle any remaining bytes of data. */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
444 memcpy(ctx->in, buf, len); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
445 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
446 |
868 | 447 |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
448 /* Final wrapup - pad to 64-byte boundary with the bit pattern |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
449 * 1 0* (64-bit count of bits processed, MSB-first) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
450 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
451 void xs_md5_finish(xs_md5state_t *ctx, xs_md5hash_t digest) |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
452 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
453 guint count; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
454 guint8 *p; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
455 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
456 /* Compute number of bytes mod 64 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
457 count = (ctx->bits[0] >> 3) & 0x3F; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
458 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
459 /* Set the first char of padding to 0x80. This is safe since there is |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
460 always at least one byte free */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
461 p = ctx->in + count; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
462 *p++ = 0x80; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
463 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
464 /* Bytes of padding needed to make 64 bytes */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
465 count = 64 - 1 - count; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
466 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
467 /* Pad out to 56 mod 64 */ |
868 | 468 if (count < 8) |
469 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
470 /* Two lots of padding: Pad the first block to 64 bytes */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
471 memset(p, 0, count); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
472 xs_md5_bytereverse(ctx->in, 16); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
473 xs_md5_transform(ctx->buf, (guint32 *) ctx->in); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
474 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
475 /* Now fill the next block with 56 bytes */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
476 memset(ctx->in, 0, 56); |
868 | 477 } |
478 else | |
479 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
480 /* Pad block to 56 bytes */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
481 memset(p, 0, count - 8); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
482 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
483 xs_md5_bytereverse(ctx->in, 14); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
484 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
485 /* Append length in bits and transform */ |
792
bee1f36efc16
Fix potential aliasing issues.
Matti Hamalainen <ccr@tnsp.org>
parents:
772
diff
changeset
|
486 memcpy(((guint32 *) ctx->in) + 14, &ctx->bits[0], sizeof(guint32)); |
bee1f36efc16
Fix potential aliasing issues.
Matti Hamalainen <ccr@tnsp.org>
parents:
772
diff
changeset
|
487 memcpy(((guint32 *) ctx->in) + 15, &ctx->bits[1], sizeof(guint32)); |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
488 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
489 xs_md5_transform(ctx->buf, (guint32 *) ctx->in); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
490 xs_md5_bytereverse((guint8 *) ctx->buf, 4); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
491 memcpy(digest, ctx->buf, 16); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
492 memset(ctx, 0, sizeof(ctx)); /* In case it's sensitive */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
493 } |