xmms-sid: src/xs_length.c annotate

annotate src/xs_length.c @ 86:9533b78f1a7d

Updated

author	Matti Hamalainen <ccr@tnsp.org>
date	Sat, 04 Oct 2003 08:21:01 +0000
parents	2bc607888f53
children	94497283affa

rev	line source
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1 /*
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2 XMMS-SID - SIDPlay input plugin for X MultiMedia System (XMMS)
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	3
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	4 Get song length (from database or by other means)
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	5
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	6 Written by Matti "ccr" Hamalainen <ccr@tnsp.org>
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	7
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	8 This program is free software; you can redistribute it and/or modify
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	9 it under the terms of the GNU General Public License as published by
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	10 the Free Software Foundation; either version 2 of the License, or
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	11 (at your option) any later version.
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	12
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	13 This program is distributed in the hope that it will be useful,
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	14 but WITHOUT ANY WARRANTY; without even the implied warranty of
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	16 GNU General Public License for more details.
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	17
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	18 You should have received a copy of the GNU General Public License
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	19 along with this program; if not, write to the Free Software
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	21 */
39 85a7753e2a9a Lots of new code Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	22 #include "xs_length.h"
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	23 #include "xs_support.h"
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	24 #include "xs_config.h"
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	25 #include <stdlib.h>
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	26 #include <stdio.h>
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	27 #include <ctype.h>
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	28 #include <string.h>
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	29
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	30
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	31 /*
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	32 * Pointer to database in memory
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	33 */
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	34 static t_xs_sldb_node *xs_database = NULL;
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	35 static t_xs_sldb_node **xs_dbindex = NULL;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	36 static gint xs_dbnodes = 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	37
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	38
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	39 /*
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	40 * Hash-database handling functions
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	41 */
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	42 t_xs_sldb_node *xs_db_node_new(void)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	43 {
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	44 t_xs_sldb_node *pResult;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	45
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	46 /* Allocate memory for new node */
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	47 pResult = (t_xs_sldb_node *) g_malloc0(sizeof(t_xs_sldb_node));
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	48 if (!pResult) return NULL;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	49
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	50 return pResult;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	51 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	52
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	53
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	54 void xs_db_node_free(t_xs_sldb_node *pNode)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	55 {
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	56 if (pNode) g_free(pNode);
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	57 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	58
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	59
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	60 /*
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	61 * Insert given node to db linked list
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	62 */
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	63 #define LPREV (pNode->pPrev)
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	64 #define LTHIS (pNode)
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	65 #define LNEXT (pNode->pNext)
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	66
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	67 void xs_db_node_insert(t_xs_sldb_node *pNode)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	68 {
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	69 if (xs_database)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	70 {
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	71 /* The first node's pPrev points to last node */
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	72 LPREV = xs_database->pPrev; /* New node's prev = Previous last node */
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	73 xs_database->pPrev->pNext = pNode; /* Previous last node's next = New node */
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	74 xs_database->pPrev = pNode; /* New last node = New node */
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	75 LNEXT = NULL; /* But next is NULL! */
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	76 } else {
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	77 xs_database = pNode; /* First node ... */
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	78 LPREV = pNode; /* ... it's also last */
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	79 LNEXT = NULL; /* But next is NULL! */
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	80 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	81 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	82
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	83
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	84 /*
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	85 * Compare two given MD5-hashes.
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	86 * Return: 0 if equal
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	87 * negative if testHash1 < testHash2
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	88 * positive if testHash1 > testHash2
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	89 */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	90 gint xs_db_cmphash(t_xs_md5hash testHash1, t_xs_md5hash testHash2)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	91 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	92 register gint i, res = 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	93
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	94 /* Compute difference of hashes */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	95 for (i = 0; (i < XS_MD5HASH_LENGTH) && (!res); i++)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	96 res = (testHash1[i] - testHash2[i]);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	97
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	98 return res;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	99 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	100
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	101
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	102 /*
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	103 * Get song length from database
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	104 */
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	105 t_xs_sldb_node * xs_db_get(t_xs_md5hash pHash)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	106 {
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	107 gint iStartNode, iEndNode, iQNode, r, i;
bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	108 gboolean iFound;
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	109 t_xs_sldb_node *pResult;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	110
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	111 /* Check the database pointers */
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	112 if (!xs_database \|\| !xs_dbindex)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	113 return NULL;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	114
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	115 /* Look-up via index using binary search */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	116 pResult = NULL;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	117 iStartNode = 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	118 iEndNode = (xs_dbnodes - 1);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	119 iQNode = (iEndNode / 2);
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	120 iFound = FALSE;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	121
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	122 while ((!iFound) && ((iEndNode - iStartNode) > 128))
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	123 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	124 r = xs_db_cmphash(pHash, xs_dbindex[iQNode]->md5Hash);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	125 if (r < 0)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	126 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	127 /* Hash was in the <- LEFT side */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	128 iEndNode = iQNode;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	129 iQNode = iStartNode + ((iEndNode - iStartNode) / 2);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	130 } else
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	131 if (r > 0)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	132 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	133 /* Hash was in the RIGHT -> side */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	134 iStartNode = iQNode;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	135 iQNode = iStartNode + ((iEndNode - iStartNode) / 2);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	136 } else
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	137 iFound = TRUE;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	138 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	139
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	140 /* If not found already */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	141 if (!iFound)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	142 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	143 /* Search the are linearly */
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	144 iFound = FALSE;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	145 i = iStartNode;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	146 while ((i <= iEndNode) && (!iFound))
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	147 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	148 if (xs_db_cmphash(pHash, xs_dbindex[i]->md5Hash) == 0)
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	149 iFound = TRUE;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	150 else
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	151 i++;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	152 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	153
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	154 /* Check the result */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	155 if (iFound)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	156 pResult = xs_dbindex[i];
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	157
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	158 } else {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	159 /* Found via binary search */
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	160 pResult = xs_dbindex[iQNode];
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	161 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	162
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	163
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	164 return pResult;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	165 }
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	166
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	167
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	168 /*
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	169 * Parses a time-entry in SLDB format
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	170 */
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	171 gint32 xs_gettime(gchar pcStr, int piPos)
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	172 {
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	173 gint32 iResult, iTemp;
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	174
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	175 /* Check if it starts with a digit */
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	176 if (isdigit(pcStr[*piPos]))
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	177 {
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	178 /* Get minutes-field */
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	179 iResult = 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	180 while (isdigit(pcStr[*piPos]))
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	181 iResult = (iResult * 10) + (pcStr[(*piPos)++] - '0');
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	182
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	183 iResult *= 60;
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	184
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	185 /* Check the field separator char */
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	186 if (pcStr[*piPos] == ':')
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	187 {
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	188 /* Get seconds-field */
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	189 (*piPos)++;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	190 iTemp = 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	191 while (isdigit(pcStr[*piPos]))
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	192 iTemp = (iTemp * 10) + (pcStr[(*piPos)++] - '0');
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	193
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	194 iResult += iTemp;
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	195 } else
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	196 iResult = -2;
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	197 } else
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	198 iResult = -1;
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	199
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	200 /* Ignore and skip the possible attributes */
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	201 while (!isspace(pcStr[piPos])) (piPos)++;
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	202
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	203 return iResult;
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	204 }
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	205
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	206
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	207 /*
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	208 * Read database to memory
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	209 */
57 85811bcd049e Improved, re-written configuration code and lots of minor fixes Matti Hamalainen <ccr@tnsp.org> parents: 56 diff changeset	210 gint xs_db_read(gchar *dbFilename)
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	211 {
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	212 FILE *inFile;
24 271be59be975 Lots of changes Matti Hamalainen <ccr@tnsp.org> parents: 22 diff changeset	213 gchar inLine[XS_BUFSIZE];
57 85811bcd049e Improved, re-written configuration code and lots of minor fixes Matti Hamalainen <ccr@tnsp.org> parents: 56 diff changeset	214 guint lineNum, linePos;
85811bcd049e Improved, re-written configuration code and lots of minor fixes Matti Hamalainen <ccr@tnsp.org> parents: 56 diff changeset	215 gboolean iOK;
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	216 t_xs_sldb_node *tmpNode;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	217
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	218 /* Try to open the file */
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	219 if ((inFile = fopen(dbFilename, "ra")) == NULL)
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	220 {
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	221 XSERR("Could not open SongLengthDB '%s'\n", dbFilename);
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	222 return -1;
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	223 }
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	224
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	225 /* Read and parse the data */
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	226 lineNum = 0;
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	227
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	228 while (!feof(inFile))
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	229 {
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	230 fgets(inLine, sizeof(inLine), inFile);
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	231 lineNum++;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	232
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	233 /* Check if it is datafield */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	234 if (isxdigit(inLine[0]))
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	235 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	236 /* Check the length of the hash */
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	237 linePos = 0;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	238 while (isxdigit(inLine[linePos])) linePos++;
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	239
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	240 if (linePos != XS_MD5HASH_LENGTH_CH)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	241 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	242 XSERR("Invalid hash in SongLengthDB file '%s' line #%d!\n",
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	243 dbFilename, lineNum);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	244 } else {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	245 /* Allocate new node */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	246 if ((tmpNode = xs_db_node_new()) == NULL)
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	247 {
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	248 XSERR("Error allocating new node. Fatal error.\n");
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	249 exit(5);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	250 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	251
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	252 /* Get hash value */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	253 #if (XS_MD5HASH_LENGTH != 16)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	254 #error Mismatch in hashcode length. Fix here.
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	255 #endif
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	256 sscanf(&inLine[0], "%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x",
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	257 (guint ) &(tmpNode->md5Hash[0]), (guint ) &(tmpNode->md5Hash[1]),
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	258 (guint ) &(tmpNode->md5Hash[2]), (guint ) &(tmpNode->md5Hash[3]),
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	259 (guint ) &(tmpNode->md5Hash[4]), (guint ) &(tmpNode->md5Hash[5]),
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	260 (guint ) &(tmpNode->md5Hash[6]), (guint ) &(tmpNode->md5Hash[7]),
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	261 (guint ) &(tmpNode->md5Hash[8]), (guint ) &(tmpNode->md5Hash[9]),
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	262 (guint ) &(tmpNode->md5Hash[10]), (guint ) &(tmpNode->md5Hash[11]),
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	263 (guint ) &(tmpNode->md5Hash[12]), (guint ) &(tmpNode->md5Hash[13]),
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	264 (guint ) &(tmpNode->md5Hash[14]), (guint ) &(tmpNode->md5Hash[15]));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	265
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	266 /* Get playtimes */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	267 if (inLine[linePos] != '=')
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	268 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	269 XSERR("'=' expected in SongLengthDB file '%s' line #%d, column #%d\n",
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	270 dbFilename, lineNum, linePos);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	271
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	272 xs_db_node_free(tmpNode);
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	273 } else {
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	274 /* First playtime is after '=' */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	275 linePos++;
57 85811bcd049e Improved, re-written configuration code and lots of minor fixes Matti Hamalainen <ccr@tnsp.org> parents: 56 diff changeset	276 iOK = TRUE;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	277
57 85811bcd049e Improved, re-written configuration code and lots of minor fixes Matti Hamalainen <ccr@tnsp.org> parents: 56 diff changeset	278 while ((linePos < strlen(inLine)) && iOK)
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	279 {
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	280 xs_findnext(inLine, &linePos);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	281
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	282 if (tmpNode->nLengths < XS_STIL_MAXENTRY)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	283 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	284 tmpNode->sLengths[tmpNode->nLengths] =
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	285 xs_gettime(inLine, &linePos);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	286 tmpNode->nLengths++;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	287 } else
57 85811bcd049e Improved, re-written configuration code and lots of minor fixes Matti Hamalainen <ccr@tnsp.org> parents: 56 diff changeset	288 iOK = FALSE;
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	289 }
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	290
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	291 /* Add an node to db in memory */
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	292 if (iOK)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	293 xs_db_node_insert(tmpNode);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	294 else
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	295 xs_db_node_free(tmpNode);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	296 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	297 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	298 } else
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	299 if ((inLine[0] != ';') && (inLine[0] != '['))
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	300 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	301 XSERR("Invalid line in SongLengthDB file '%s' line #%d\n",
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	302 dbFilename, lineNum);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	303 }
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	304
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	305 } /* while */
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	306
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	307 /* Close the file */
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	308 fclose(inFile);
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	309
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	310 return 0;
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	311 }
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	312
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	313
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	314 /*
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	315 * Compare two nodes' hashes
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	316 */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	317 gint xs_db_cmp(const void pNode1, const void pNode2)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	318 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	319 /* We assume here that we never ever get NULL-pointers or similar */
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	320 return xs_db_cmphash(((t_xs_sldb_node *) pNode1)->md5Hash,
0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	321 ((t_xs_sldb_node *) pNode2)->md5Hash);
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	322 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	323
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	324
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	325 /*
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	326 * Initialize the song-length system
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	327 */
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	328 gint xs_songlen_init(void)
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	329 {
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	330 t_xs_sldb_node *pCurr;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	331 gint i;
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	332
bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	333 XSDEBUG("sldb_init()\n");
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	334
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	335 /* Read the database */
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	336 if (!xs_cfg.songlenDBPath)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	337 return -10;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	338
57 85811bcd049e Improved, re-written configuration code and lots of minor fixes Matti Hamalainen <ccr@tnsp.org> parents: 56 diff changeset	339 if (xs_db_read(xs_cfg.songlenDBPath) < 0)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	340 return -9;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	341
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	342 XSDEBUG("indexing...\n");
bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	343
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	344 /* Get size of db */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	345 pCurr = xs_database;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	346 xs_dbnodes = 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	347 while (pCurr)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	348 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	349 xs_dbnodes++;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	350 pCurr = pCurr->pNext;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	351 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	352
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	353 /* Check number of nodes */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	354 if (xs_dbnodes > 0)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	355 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	356 /* Allocate memory for index-table */
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	357 xs_dbindex = (t_xs_sldb_node *) g_malloc(sizeof(t_xs_sldb_node ) * xs_dbnodes);
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	358 if (!xs_dbindex) return -6;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	359
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	360 /* Get node-pointers to table */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	361 i = 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	362 pCurr = xs_database;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	363 while (pCurr)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	364 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	365 xs_dbindex[i++] = pCurr;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	366 pCurr = pCurr->pNext;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	367 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	368
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	369 /* Sort the indexes */
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	370 qsort(xs_dbindex, xs_dbnodes, sizeof(t_xs_sldb_node *), xs_db_cmp);
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	371 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	372
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	373 /* OK */
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	374 XSDEBUG("init ok.\n");
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	375 return 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	376 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	377
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	378
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	379 /*
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	380 * Close song-length system
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	381 */
22 ac2972a7ccd5 Fixed typos and stuff. Matti Hamalainen <ccr@tnsp.org> parents: 14 diff changeset	382 void xs_songlen_close(void)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	383 {
62 0d1df20745dd Started to rewrite STIL-support Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	384 t_xs_sldb_node pCurr, pNext;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	385
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	386 /* Free the memory allocated for database */
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	387 XSDEBUG("sldb_close()\n");
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	388 pCurr = xs_database;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	389 while (pCurr)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	390 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	391 pNext = pCurr->pNext;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	392 xs_db_node_free(pCurr);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	393 pCurr = pNext;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	394 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	395
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	396 xs_database = NULL;
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	397
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	398 /* Free memory allocated for indexes */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	399 if (xs_dbindex)
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	400 {
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	401 g_free(xs_dbindex);
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	402 xs_dbindex = NULL;
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	403 }
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	404 }
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	405
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	406
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	407 /*
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	408 * Compute md5hash of given SID-file
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	409 */
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	410 typedef struct {
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	411 gchar magicID[4]; /* "PSID" magic identifier */
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	412 guint16 version, /* Version number */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	413 dataOffset, /* Start of actual c64 data in file */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	414 loadAddress, /* Loading address */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	415 initAddress, /* Initialization address */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	416 playAddress, /* Play one frame */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	417 nSongs, /* Number of subsongs */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	418 startSong; /* Default starting song */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	419 guint32 speed; /* Speed */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	420 gchar sidName[32]; /* Descriptive text-fields, ASCIIZ */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	421 gchar sidAuthor[32];
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	422 gchar sidCopyright[32];
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	423 } t_xs_psidv1_header;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	424
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	425
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	426 typedef struct {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	427 guint16 flags; /* Flags */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	428 guint8 startPage,
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	429 pageLength;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	430 guint16 reserved;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	431 } t_xs_psidv2_header;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	432
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	433
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	434 guint16 rd_be16(FILE *f)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	435 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	436 return (((guint16) fgetc(f)) * 256) +
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	437 ((guint16) fgetc(f));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	438 }
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	439
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	440
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	441 guint32 rd_be32(FILE *f)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	442 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	443 return (((guint32) fgetc(f)) * 16777216) +
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	444 (((guint32) fgetc(f)) * 65536) +
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	445 (((guint32) fgetc(f)) * 256) +
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	446 ((guint32) fgetc(f));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	447 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	448
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	449
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	450 gint rd_str(FILE f, gchar s, gint l)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	451 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	452 return fread(s, sizeof(gchar), l, f);
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	453 }
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	454
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	455
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	456 gint xs_get_sid_hash(gchar *pcFilename, t_xs_md5hash hash)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	457 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	458 FILE *inFile;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	459 t_xs_md5state inState;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	460 t_xs_psidv1_header psidH;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	461 t_xs_psidv2_header psidH2;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	462 guint8 *songData, ib8[2], i8;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	463 gint iIndex, iRes, songDataLen;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	464
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	465 /* Try to open the file */
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	466 if ((inFile = fopen(pcFilename, "rb")) == NULL)
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	467 return -1;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	468
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	469 /* Read PSID header in */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	470 rd_str(inFile, psidH.magicID, sizeof(psidH.magicID));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	471 if ((psidH.magicID[0] != 'P') \|\| (psidH.magicID[1] != 'S') \|\|
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	472 (psidH.magicID[2] != 'I') \|\| (psidH.magicID[3] != 'D'))
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	473 return -2;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	474
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	475 psidH.version = rd_be16(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	476 psidH.dataOffset = rd_be16(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	477 psidH.loadAddress = rd_be16(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	478 psidH.initAddress = rd_be16(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	479 psidH.playAddress = rd_be16(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	480 psidH.nSongs = rd_be16(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	481 psidH.startSong = rd_be16(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	482 psidH.speed = rd_be32(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	483
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	484 rd_str(inFile, psidH.sidName, sizeof(psidH.sidName));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	485 rd_str(inFile, psidH.sidAuthor, sizeof(psidH.sidAuthor));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	486 rd_str(inFile, psidH.sidCopyright, sizeof(psidH.sidCopyright));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	487
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	488 /* Check if we need to load PSIDv2NG header ... */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	489 if (psidH.version == 2)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	490 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	491 /* Yes, we need to */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	492 psidH2.flags = rd_be16(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	493 psidH2.startPage = fgetc(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	494 psidH2.pageLength = fgetc(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	495 psidH2.reserved = rd_be16(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	496 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	497
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	498 /* Get data length and seek to data offset */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	499 fseek(inFile, 0L, SEEK_END);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	500 songDataLen = ftell(inFile) - psidH.dataOffset;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	501 fseek(inFile, psidH.dataOffset, SEEK_SET);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	502
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	503 /* Allocate memory */
56 6a3ce7260ae1 Changed some standard functions to glib ones Matti Hamalainen <ccr@tnsp.org> parents: 40 diff changeset	504 songData = (guint8 ) g_malloc(sizeof(guint8) songDataLen);
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	505 if (songData == NULL)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	506 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	507 fclose(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	508 return -7;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	509 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	510
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	511 /* Read data to buffer */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	512 iRes = fread(songData, sizeof(guint8), songDataLen, inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	513 fclose(inFile);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	514
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	515 if (iRes != songDataLen)
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	516 {
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	517 g_free(songData);
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	518 return -9;
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	519 }
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	520
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	521 /* Initialize and start MD5-hash calculation */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	522 xs_md5_init(&inState);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	523 if (psidH.loadAddress == 0)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	524 /* COULD SOMEONE EXPLAIN WHY DO WE NEED THIS +2 STRIP???? */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	525 xs_md5_append(&inState, songData+2, iRes-2);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	526 else
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	527 xs_md5_append(&inState, songData, iRes);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	528
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	529 g_free(songData);
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	530
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	531 /* Append header data to hash */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	532 #define XSADDHASH(QDATAB) { ib8[0] = (QDATAB & 0xff); ib8[1] = (QDATAB >> 8); xs_md5_append(&inState, (guint8 *) &ib8, sizeof(ib8)); }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	533
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	534 XSADDHASH(psidH.initAddress)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	535 XSADDHASH(psidH.playAddress)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	536 XSADDHASH(psidH.nSongs)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	537
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	538 #undef XSADDHASH
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	539
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	540 /* Append song speed data to hash */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	541 i8 = 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	542 for (iIndex = 0; (iIndex < psidH.nSongs) && (iIndex < 32); iIndex++)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	543 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	544 i8 = (psidH.speed & (1 << iIndex)) ? 60 : 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	545 xs_md5_append(&inState, &i8, sizeof(i8));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	546 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	547
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	548 /* Rest of songs (more than 32) */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	549 for (iIndex = 32; iIndex < psidH.nSongs; iIndex++)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	550 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	551 xs_md5_append(&inState, &i8, sizeof(i8));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	552 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	553
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	554
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	555 /* PSIDv2NG specific */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	556 if (psidH.version == 2)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	557 {
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	558 /* SEE SIDPLAY HEADERS FOR INFO */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	559 i8 = (psidH2.flags >> 2) & 3;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	560 if (i8 == 2)
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	561 xs_md5_append(&inState, &i8, sizeof(i8));
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	562 }
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	563
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	564 /* Calculate the hash */
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	565 xs_md5_finish(&inState, hash);
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	566
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	567 return 0;
f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	568 }
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	569
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	570
4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	571 /*
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	572 * Get song lengths
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	573 */
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	574 t_xs_sldb_node * xs_songlen_get(gchar *pcFilename)
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	575 {
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	576 t_xs_sldb_node *pResult;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	577 t_xs_md5hash dbHash;
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	578
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	579 pResult = NULL;
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	580
39 85a7753e2a9a Lots of new code Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	581 if (xs_cfg.songlenDBEnable)
85a7753e2a9a Lots of new code Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	582 {
14 f5d82424b0ed Made song-length database support FINALLY work! Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	583 /* Get the hash and then look up from db */
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	584 if (xs_get_sid_hash(pcFilename, dbHash) == 0)
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	585 {
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	586 pResult = xs_db_get(dbHash);
9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	587 }
39 85a7753e2a9a Lots of new code Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	588 }
65 bf7b647b3239 The fabled 0.8-rewrite now works to some extent Matti Hamalainen <ccr@tnsp.org> parents: 62 diff changeset	589
86 9533b78f1a7d Updated Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	590 return pResult;
4 4bb09e405eab Added new files for 0.8 Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	591 }

Mercurial > hg > xmms-sid

annotate src/xs_length.c @ 86:9533b78f1a7d