Mercurial > hg > xmms-sid
annotate src/xs_support.c @ 879:2a50d36215c3
Move error printing function to xs_support.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 09 Nov 2012 05:18:36 +0200 |
parents | 5e33075ed9dd |
children | 000baa9fcd4f |
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> |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
30 #include <glib.h> |
202 | 31 |
879
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
32 |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
33 /* Error messages |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
34 */ |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
35 void xs_error(const char *fmt, ...) |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
36 { |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
37 va_list ap; |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
38 fprintf(stderr, "XMMS-SID: "); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
39 va_start(ap, fmt); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
40 vfprintf(stderr, fmt, ap); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
41 va_end(ap); |
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 |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
44 #ifndef DEBUG_NP |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
45 void XSDEBUG(const char *fmt, ...) |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
46 { |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
47 #ifdef DEBUG |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
48 va_list ap; |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
49 fprintf(stderr, "XSDEBUG: "); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
50 va_start(ap, fmt); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
51 vfprintf(stderr, fmt, ap); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
52 va_end(ap); |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
53 #endif |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
54 } |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
55 #endif |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
56 |
2a50d36215c3
Move error printing function to xs_support.
Matti Hamalainen <ccr@tnsp.org>
parents:
877
diff
changeset
|
57 |
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
|
58 #ifndef __AUDACIOUS_NEWVFS__ |
866
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
59 off_t xs_fsize(XSFile *f) |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
60 { |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
61 off_t pos; |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
62 if (fseeko(f, 0, SEEK_END) < 0) |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
63 return -1; |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
64 |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
65 pos = ftello(f); |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
66 |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
67 if (fseeko(f, 0, SEEK_SET) < 0) |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
68 return -1; |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
69 |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
70 return pos; |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
71 } |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
72 #endif |
6b47d9813067
Add xs_fsize() helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
792
diff
changeset
|
73 |
226
858c09f59011
Moved some functions from xs_length.c here.
Matti Hamalainen <ccr@tnsp.org>
parents:
224
diff
changeset
|
74 |
751 | 75 guint16 xs_fread_be16(XSFile *f) |
516
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
76 { |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
77 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
|
78 } |
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 |
751 | 81 guint32 xs_fread_be32(XSFile *f) |
516
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
82 { |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
83 return |
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
84 (((guint32) xs_fgetc(f)) << 24) | |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
85 (((guint32) xs_fgetc(f)) << 16) | |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
86 (((guint32) xs_fgetc(f)) << 8) | |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
87 ((guint32) xs_fgetc(f)); |
516
c192468eb8ce
Audacious VFS support functions finished.
Matti Hamalainen <ccr@tnsp.org>
parents:
506
diff
changeset
|
88 } |
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 |
527
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
91 /* 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
|
92 */ |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
93 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
|
94 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
|
95 { |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
96 XSFile *fp = NULL; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
97 size_t readSize, fileSize; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
98 gboolean res = FALSE; |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
99 |
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
100 if (filename == NULL) |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
101 return FALSE; |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
102 |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
103 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
|
104 { |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
105 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
|
106 goto error; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
107 } |
527
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
108 |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
109 fileSize = xs_fsize(fp); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
110 if (failMaxSize && fileSize > maxSize) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
111 { |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
112 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
|
113 fileSize, maxSize); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
114 goto error; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
115 } |
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 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
|
118 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
119 if ((*pbuf = (guint8 *) g_malloc(readSize * sizeof(guint8))) == NULL) |
763
61a527ac3baa
Cleanups, remove useless function.
Matti Hamalainen <ccr@tnsp.org>
parents:
751
diff
changeset
|
120 { |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
121 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
|
122 readSize, filename); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
123 goto error; |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
124 } |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
125 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
126 *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
|
127 res = (readSize == *bufSize); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
128 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
129 error: |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
130 if (fp != NULL) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
131 xs_fclose(fp); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
132 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
133 if (!res) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
134 { |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
135 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
|
136 readSize, *bufSize); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
137 } |
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 return res; |
527
fe8b41abd923
Now everything necessary should be using the VFS functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
140 } |
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 |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
143 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
|
144 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
|
145 { |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
146 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
|
147 gboolean res; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
148 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
149 if (filename == NULL) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
150 return FALSE; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
151 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
152 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
|
153 |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
154 g_free(filename); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
155 return res; |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
156 } |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
157 |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
158 /* Copy a given string over in *result. |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
159 */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
160 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
|
161 { |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
162 /* Check the string pointers */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
163 if (!result || !str) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
164 return -1; |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
165 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
166 /* 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
|
167 g_free(*result); |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
168 |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
169 *result = (gchar *) g_malloc(strlen(str) + 1); |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
170 if (!*result) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
171 return -2; |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
172 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
173 /* Copy to the destination */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
174 strcpy(*result, str); |
4 | 175 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
176 return 0; |
4 | 177 } |
178 | |
179 | |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
180 /* 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
|
181 */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
182 gint xs_pstrcat(gchar **result, const gchar *str) |
4 | 183 { |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
184 /* Check the string pointers */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
185 if (!result || !str) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
186 return -1; |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
187 |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
188 if (*result != NULL) |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
189 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
190 *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
|
191 if (*result == NULL) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
192 return -1; |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
193 strcat(*result, str); |
867
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
194 } |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
195 else |
051ef70d0123
Improve xs_fload_buffer() and add xs_fload_buffer_path().
Matti Hamalainen <ccr@tnsp.org>
parents:
866
diff
changeset
|
196 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
197 *result = (gchar *) g_malloc(strlen(str) + 1); |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
198 if (*result == NULL) |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
199 return -1; |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
200 strcpy(*result, str); |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
201 } |
4 | 202 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
203 return 0; |
4 | 204 } |
205 | |
206 | |
239
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
207 /* 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
|
208 * 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
|
209 */ |
868 | 210 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
|
211 { |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
212 size_t i, n; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
213 const gchar *s; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
214 gchar *d; |
359
b1a858b8cb1a
Re-indentation all (non-generated) code.
Matti Hamalainen <ccr@tnsp.org>
parents:
324
diff
changeset
|
215 |
868 | 216 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
|
217 |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
218 s = str; |
868 | 219 while (*s && *s != '\n' && i < size) |
220 { | |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
221 *d = *s; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
222 d++; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
223 s++; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
224 i++; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
225 } |
359
b1a858b8cb1a
Re-indentation all (non-generated) code.
Matti Hamalainen <ccr@tnsp.org>
parents:
324
diff
changeset
|
226 |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
227 *d = 0; |
239
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
228 |
868 | 229 if (i >= size) |
230 { | |
660
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
231 i--; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
232 d--; |
868 | 233 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
|
234 *d = '.'; |
b0743dc9165d
Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents:
657
diff
changeset
|
235 } |
239
7833df935239
Added xs_pnstrcat() to ease forming of limited size strings.
Matti Hamalainen <ccr@tnsp.org>
parents:
230
diff
changeset
|
236 } |
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 |
206
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
239 /* Locate character in string |
8b896d461fdb
Trivial fixes and added strncpy replacement.
Matti Hamalainen <ccr@tnsp.org>
parents:
202
diff
changeset
|
240 */ |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
241 void xs_findnext(const gchar *str, size_t *pos) |
4 | 242 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
243 while (str[*pos] && isspace(str[*pos])) |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
244 (*pos)++; |
4 | 245 } |
246 | |
247 | |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
248 void xs_findeol(const gchar *str, size_t *pos) |
4 | 249 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
250 while (str[*pos] && (str[*pos] != '\n') && (str[*pos] != '\r')) |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
251 (*pos)++; |
4 | 252 } |
253 | |
254 | |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
255 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
|
256 { |
663
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
257 while (str[*pos] && isdigit(str[*pos])) |
180d7a0250d8
More cosmetic variable name changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
660
diff
changeset
|
258 (*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
|
259 } |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
260 |
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 * 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
|
264 * 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
|
265 * |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
266 * 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
|
267 * 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
|
268 * 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
|
269 * 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
|
270 */ |
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 #if G_BYTE_ORDER == G_LITTLE_ENDIAN |
772 | 273 # define xs_md5_bytereverse(buf, len) /* Nothing */ |
274 #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
|
275 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
|
276 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
277 guint32 t; |
868 | 278 do |
279 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
280 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
|
281 *(guint32 *) buf = t; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
282 buf += sizeof(guint32); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
283 } while (--l); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
284 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
285 #else |
772 | 286 # error Unsupported endianess! |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
287 #endif |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
288 |
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 /* 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
|
291 * initialization constants. |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
292 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
293 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
|
294 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
295 ctx->buf[0] = 0x67452301; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
296 ctx->buf[1] = 0xefcdab89; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
297 ctx->buf[2] = 0x98badcfe; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
298 ctx->buf[3] = 0x10325476; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
299 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
300 ctx->bits[0] = 0; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
301 ctx->bits[1] = 0; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
302 } |
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 /* 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
|
306 * 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
|
307 * 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
|
308 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
309 #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
|
310 #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
|
311 #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
|
312 #define F4(x, y, z) (y ^ (x | ~z)) |
868 | 313 #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
|
314 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
315 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
|
316 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
317 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
|
318 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
319 a = buf[0]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
320 b = buf[1]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
321 c = buf[2]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
322 d = buf[3]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
323 |
772 | 324 MD5STEP(F1, a, b, c, d, in[ 0] + 0xd76aa478, 7); |
325 MD5STEP(F1, d, a, b, c, in[ 1] + 0xe8c7b756, 12); | |
326 MD5STEP(F1, c, d, a, b, in[ 2] + 0x242070db, 17); | |
327 MD5STEP(F1, b, c, d, a, in[ 3] + 0xc1bdceee, 22); | |
328 MD5STEP(F1, a, b, c, d, in[ 4] + 0xf57c0faf, 7); | |
329 MD5STEP(F1, d, a, b, c, in[ 5] + 0x4787c62a, 12); | |
330 MD5STEP(F1, c, d, a, b, in[ 6] + 0xa8304613, 17); | |
331 MD5STEP(F1, b, c, d, a, in[ 7] + 0xfd469501, 22); | |
332 MD5STEP(F1, a, b, c, d, in[ 8] + 0x698098d8, 7); | |
333 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
|
334 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
|
335 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
|
336 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
|
337 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
|
338 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
|
339 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
|
340 |
772 | 341 MD5STEP(F2, a, b, c, d, in[ 1] + 0xf61e2562, 5); |
342 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
|
343 MD5STEP(F2, c, d, a, b, in[11] + 0x265e5a51, 14); |
772 | 344 MD5STEP(F2, b, c, d, a, in[ 0] + 0xe9b6c7aa, 20); |
345 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
|
346 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
|
347 MD5STEP(F2, c, d, a, b, in[15] + 0xd8a1e681, 14); |
772 | 348 MD5STEP(F2, b, c, d, a, in[ 4] + 0xe7d3fbc8, 20); |
349 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
|
350 MD5STEP(F2, d, a, b, c, in[14] + 0xc33707d6, 9); |
772 | 351 MD5STEP(F2, c, d, a, b, in[ 3] + 0xf4d50d87, 14); |
352 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
|
353 MD5STEP(F2, a, b, c, d, in[13] + 0xa9e3e905, 5); |
772 | 354 MD5STEP(F2, d, a, b, c, in[ 2] + 0xfcefa3f8, 9); |
355 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
|
356 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
|
357 |
772 | 358 MD5STEP(F3, a, b, c, d, in[ 5] + 0xfffa3942, 4); |
359 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
|
360 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
|
361 MD5STEP(F3, b, c, d, a, in[14] + 0xfde5380c, 23); |
772 | 362 MD5STEP(F3, a, b, c, d, in[ 1] + 0xa4beea44, 4); |
363 MD5STEP(F3, d, a, b, c, in[ 4] + 0x4bdecfa9, 11); | |
364 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
|
365 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
|
366 MD5STEP(F3, a, b, c, d, in[13] + 0x289b7ec6, 4); |
772 | 367 MD5STEP(F3, d, a, b, c, in[ 0] + 0xeaa127fa, 11); |
368 MD5STEP(F3, c, d, a, b, in[ 3] + 0xd4ef3085, 16); | |
369 MD5STEP(F3, b, c, d, a, in[ 6] + 0x04881d05, 23); | |
370 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
|
371 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
|
372 MD5STEP(F3, c, d, a, b, in[15] + 0x1fa27cf8, 16); |
772 | 373 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
|
374 |
772 | 375 MD5STEP(F4, a, b, c, d, in[ 0] + 0xf4292244, 6); |
376 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
|
377 MD5STEP(F4, c, d, a, b, in[14] + 0xab9423a7, 15); |
772 | 378 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
|
379 MD5STEP(F4, a, b, c, d, in[12] + 0x655b59c3, 6); |
772 | 380 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
|
381 MD5STEP(F4, c, d, a, b, in[10] + 0xffeff47d, 15); |
772 | 382 MD5STEP(F4, b, c, d, a, in[ 1] + 0x85845dd1, 21); |
383 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
|
384 MD5STEP(F4, d, a, b, c, in[15] + 0xfe2ce6e0, 10); |
772 | 385 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
|
386 MD5STEP(F4, b, c, d, a, in[13] + 0x4e0811a1, 21); |
772 | 387 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
|
388 MD5STEP(F4, d, a, b, c, in[11] + 0xbd3af235, 10); |
772 | 389 MD5STEP(F4, c, d, a, b, in[ 2] + 0x2ad7d2bb, 15); |
390 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
|
391 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
392 buf[0] += a; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
393 buf[1] += b; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
394 buf[2] += c; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
395 buf[3] += d; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
396 } |
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 /* 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
|
400 * of bytes. |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
401 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
402 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
|
403 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
404 guint32 t; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
405 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
406 /* Update bitcount */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
407 t = ctx->bits[0]; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
408 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
|
409 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
|
410 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
|
411 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
412 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
|
413 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
414 /* Handle any leading odd-sized chunks */ |
868 | 415 if (t) |
416 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
417 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
|
418 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
419 t = 64 - t; |
868 | 420 if (len < t) |
421 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
422 memcpy(p, buf, len); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
423 return; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
424 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
425 memcpy(p, buf, t); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
426 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
|
427 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
|
428 buf += t; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
429 len -= t; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
430 } |
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 /* Process data in 64-byte chunks */ |
868 | 433 while (len >= 64) |
434 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
435 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
|
436 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
|
437 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
|
438 buf += 64; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
439 len -= 64; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
440 } |
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 /* 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
|
443 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
|
444 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
445 |
868 | 446 |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
447 /* 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
|
448 * 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
|
449 */ |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
450 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
|
451 { |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
452 guint count; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
453 guint8 *p; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
454 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
455 /* 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
|
456 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
|
457 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
458 /* 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
|
459 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
|
460 p = ctx->in + count; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
461 *p++ = 0x80; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
462 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
463 /* 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
|
464 count = 64 - 1 - count; |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
465 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
466 /* Pad out to 56 mod 64 */ |
868 | 467 if (count < 8) |
468 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
469 /* 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
|
470 memset(p, 0, count); |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
471 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
|
472 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
|
473 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
474 /* 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
|
475 memset(ctx->in, 0, 56); |
868 | 476 } |
477 else | |
478 { | |
771
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
479 /* 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
|
480 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
|
481 } |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
482 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
|
483 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
484 /* Append length in bits and transform */ |
792
bee1f36efc16
Fix potential aliasing issues.
Matti Hamalainen <ccr@tnsp.org>
parents:
772
diff
changeset
|
485 memcpy(((guint32 *) ctx->in) + 14, &ctx->bits[0], sizeof(guint32)); |
bee1f36efc16
Fix potential aliasing issues.
Matti Hamalainen <ccr@tnsp.org>
parents:
772
diff
changeset
|
486 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
|
487 |
469b341734b2
Move MD5 implementation into xs_support, and some related Audacious
Matti Hamalainen <ccr@tnsp.org>
parents:
763
diff
changeset
|
488 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
|
489 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
|
490 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
|
491 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
|
492 } |