Mercurial > hg > xmms-sid

annotate src/xs_sidplay.h @ 838:ae1f6418d093

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
libSIDPlay2-FP backend interface is now in a separate module. Configuration related things still pending.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 08 Nov 2012 21:24:38 +0200
parents 778531e968ed
children 2663b1ac9ce6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
479
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
1 /*
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
2 XMMS-SID - SIDPlay input plugin for X MultiMedia System (XMMS)
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
3
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
4 libSIDPlay skeleton functions used both by v1 and 2 of the backends
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
5
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
6 Programmed and designed by Matti 'ccr' Hamalainen <ccr@tnsp.org>
723
9321ffa2ea7e Update copyright years.
Matti Hamalainen <ccr@tnsp.org>
parents: 660
diff changeset
7 (C) Copyright 2005-2009 Tecnic Software productions (TNSP)
479
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
8
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
9 This program is free software; you can redistribute it and/or modify
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
10 it under the terms of the GNU General Public License as published by
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
11 the Free Software Foundation; either version 2 of the License, or
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
12 (at your option) any later version.
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
13
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
14 This program is distributed in the hope that it will be useful,
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
17 GNU General Public License for more details.
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
18
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
19 You should have received a copy of the GNU General Public License along
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
20 with this program; if not, write to the Free Software Foundation, Inc.,
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
21 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
22 */
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
23
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
24
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
25 /* This function gets most of the information, though we do miss some
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
26 * (those variables that are only set by libSIDPlay when tune is initialized).
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
27 * Rest of the information is acquired in TFUNCTION2()
76
741291e14080 Added missing header
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
28 */
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
29 XSTuneInfo *TFUNCTION(const gchar *filename)
76
741291e14080 Added missing header
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
30 {
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
31 XSTuneInfo *res;
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
32 TTUNEINFO info;
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
33 TTUNE *tune;
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
34 guint8 *buf = NULL;
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
35 size_t bufSize = 0;
87
94497283affa Various fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 76
diff changeset
36
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
37 /* Load file */
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
38 if (xs_fload_buffer(filename, &buf, &bufSize) != 0)
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
39 return NULL;
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
40
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
41 /* Check if the tune exists and is readable */
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
42 if ((tune = new TTUNE(buf, bufSize)) == NULL)
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
43 {
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
44 g_free(buf);
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
45 return NULL;
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
46 }
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
47 g_free(buf);
87
94497283affa Various fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 76
diff changeset
48
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
49 if (!tune->getStatus())
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
50 {
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
51 delete tune;
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
52 return NULL;
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
53 }
87
94497283affa Various fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 76
diff changeset
54
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
55 /* Get general tune information */
526
fa95d942f226 Header cleanup; Moved some types from xmms-sid.h to xs_player.h; Renamed few functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 479
diff changeset
56 #ifdef XS_SIDPLAY1_H
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
57 tune->getInfo(info);
95
4e929bb71057 Fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 93
diff changeset
58 #endif
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
59
526
fa95d942f226 Header cleanup; Moved some types from xmms-sid.h to xs_player.h; Renamed few functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 479
diff changeset
60 #ifdef XS_SIDPLAY2_H
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
61 info = tune->getInfo();
95
4e929bb71057 Fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 93
diff changeset
62 #endif
4e929bb71057 Fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 93
diff changeset
63
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
64 /* Allocate tuneinfo structure and set information */
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
65 res = xs_tuneinfo_new(filename,
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
66 info.songs, info.startSong,
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
67 info.infoString[0], info.infoString[1], info.infoString[2],
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
68 info.loadAddr, info.initAddr, info.playAddr,
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
69 info.dataFileLen, info.formatString,
838
ae1f6418d093 libSIDPlay2-FP backend interface is now in a separate module. Configuration
Matti Hamalainen <ccr@tnsp.org>
parents: 820
diff changeset
70 #if defined(XS_SIDPLAYFP_H) && defined(HAVE_SIDPLAYFP)
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
71 info.sidModel1
744
c7fa50576c70 Initial implementation for supporting libSIDPlay2-FP (or libSIDPlay-FP, as
Matti Hamalainen <ccr@tnsp.org>
parents: 723
diff changeset
72 #else
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
73 info.sidModel
744
c7fa50576c70 Initial implementation for supporting libSIDPlay2-FP (or libSIDPlay-FP, as
Matti Hamalainen <ccr@tnsp.org>
parents: 723
diff changeset
74 #endif
c7fa50576c70 Initial implementation for supporting libSIDPlay2-FP (or libSIDPlay-FP, as
Matti Hamalainen <ccr@tnsp.org>
parents: 723
diff changeset
75 );
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
76
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
77 /* NOTICE! libSIDPlay[12] headers specifically state that sidModel,
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
78 * songSpeed and clockSpeed are "undefined" before song initialization,
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
79 * but in practice sidModel is known after getInfo() invocation...
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
80 * This of course does not take the sub-tune specific changes into account,
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
81 * but at least we have a reasonable guesstimate.
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
82 */
87
94497283affa Various fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 76
diff changeset
83
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
84 delete tune;
87
94497283affa Various fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 76
diff changeset
85
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
86 return res;
87
94497283affa Various fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 76
diff changeset
87 }
94497283affa Various fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 76
diff changeset
88
445
f277dad3180f Working on the localization and fixing up the breakage in song information
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
89
479
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
90 /* Updates the information of currently playing tune
99f05a74de5b Improvements in titlestring handling and information passing in
Matti Hamalainen <ccr@tnsp.org>
parents: 472
diff changeset
91 */
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
92 gboolean TFUNCTION2(XSEngineState *state)
445
f277dad3180f Working on the localization and fixing up the breakage in song information
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
93 {
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
94 TTUNEINFO info;
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
95 TENGINE *engine;
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
96
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
97 /* Check if we have required structures initialized */
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
98 if (!state || !state->tuneInfo || !state->internal)
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
99 return FALSE;
460
9e683fb666ba Updates
Matti Hamalainen <ccr@tnsp.org>
parents: 445
diff changeset
100
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
101 engine = (TENGINE *) state->internal;
820
778531e968ed Clean up tune loading.
Matti Hamalainen <ccr@tnsp.org>
parents: 796
diff changeset
102 if (!(engine->tune))
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
103 return FALSE;
445
f277dad3180f Working on the localization and fixing up the breakage in song information
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
104
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
105 /* Get currently playing tune information */
838
ae1f6418d093 libSIDPlay2-FP backend interface is now in a separate module. Configuration
Matti Hamalainen <ccr@tnsp.org>
parents: 820
diff changeset
106 #if defined(XS_SIDPLAY1_H)
820
778531e968ed Clean up tune loading.
Matti Hamalainen <ccr@tnsp.org>
parents: 796
diff changeset
107 engine->tune->getInfo(info);
838
ae1f6418d093 libSIDPlay2-FP backend interface is now in a separate module. Configuration
Matti Hamalainen <ccr@tnsp.org>
parents: 820
diff changeset
108 #elif defined(XS_SIDPLAY2_H)
ae1f6418d093 libSIDPlay2-FP backend interface is now in a separate module. Configuration
Matti Hamalainen <ccr@tnsp.org>
parents: 820
diff changeset
109 info = engine->tune.getInfo();
ae1f6418d093 libSIDPlay2-FP backend interface is now in a separate module. Configuration
Matti Hamalainen <ccr@tnsp.org>
parents: 820
diff changeset
110 #elif defined(XS_SIDPLAYFP_H)
820
778531e968ed Clean up tune loading.
Matti Hamalainen <ccr@tnsp.org>
parents: 796
diff changeset
111 info = engine->tune.getInfo();
445
f277dad3180f Working on the localization and fixing up the breakage in song information
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
112 #endif
f277dad3180f Working on the localization and fixing up the breakage in song information
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
113
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
114 /* NOTICE! Here we assume that libSIDPlay[12] headers define
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
115 * SIDTUNE_SIDMODEL_* similarly to our enums in xs_config.h ...
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
116 */
838
ae1f6418d093 libSIDPlay2-FP backend interface is now in a separate module. Configuration
Matti Hamalainen <ccr@tnsp.org>
parents: 820
diff changeset
117 #if defined(XS_SIDPLAYFP_H) && defined(HAVE_SIDPLAYFP)
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
118 state->tuneInfo->sidModel = info.sidModel1;
744
c7fa50576c70 Initial implementation for supporting libSIDPlay2-FP (or libSIDPlay-FP, as
Matti Hamalainen <ccr@tnsp.org>
parents: 723
diff changeset
119 #else
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
120 state->tuneInfo->sidModel = info.sidModel;
744
c7fa50576c70 Initial implementation for supporting libSIDPlay2-FP (or libSIDPlay-FP, as
Matti Hamalainen <ccr@tnsp.org>
parents: 723
diff changeset
121 #endif
468
6963982fcbb6 New songinfo system.
Matti Hamalainen <ccr@tnsp.org>
parents: 460
diff changeset
122
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
123 if (state->currSong > 0 && state->currSong <= state->tuneInfo->nsubTunes)
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
124 {
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
125 gint tmpSpeed = -1;
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
126
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
127 switch (info.clockSpeed)
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
128 {
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
129 case SIDTUNE_CLOCK_PAL:
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
130 tmpSpeed = XS_CLOCK_PAL;
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
131 break;
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
132 case SIDTUNE_CLOCK_NTSC:
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
133 tmpSpeed = XS_CLOCK_NTSC;
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
134 break;
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
135 case SIDTUNE_CLOCK_ANY:
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
136 tmpSpeed = XS_CLOCK_ANY;
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
137 break;
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
138 case SIDTUNE_CLOCK_UNKNOWN:
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
139 switch (info.songSpeed)
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
140 {
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
141 case SIDTUNE_SPEED_VBI:
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
142 tmpSpeed = XS_CLOCK_VBI;
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
143 break;
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
144 case SIDTUNE_SPEED_CIA_1A:
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
145 tmpSpeed = XS_CLOCK_CIA;
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
146 break;
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
147 default:
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
148 tmpSpeed = info.songSpeed;
762
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
149 break;
03c5cde1dfbb Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 753
diff changeset
150 }
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
151 default:
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
152 tmpSpeed = info.clockSpeed;
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
153 break;
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
154 }
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
155
796
dfda3d47baf7 Clean up the variables etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 762
diff changeset
156 state->tuneInfo->subTunes[state->currSong - 1].tuneSpeed = tmpSpeed;
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
157 }
445
f277dad3180f Working on the localization and fixing up the breakage in song information
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
158
660
b0743dc9165d Change tabs to 4 spaces, everywhere.
Matti Hamalainen <ccr@tnsp.org>
parents: 657
diff changeset
159 return TRUE;
445
f277dad3180f Working on the localization and fixing up the breakage in song information
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
160 }
f277dad3180f Working on the localization and fixing up the breakage in song information
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
161
95
4e929bb71057 Fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 93
diff changeset
162 /* Undefine these */
202
fe684a2ccdc7 Reworking code.
Matti Hamalainen <ccr@tnsp.org>
parents: 130
diff changeset
163 #undef TFUNCTION
460
9e683fb666ba Updates
Matti Hamalainen <ccr@tnsp.org>
parents: 445
diff changeset
164 #undef TFUNCTION2
95
4e929bb71057 Fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 93
diff changeset
165 #undef TTUNEINFO
4e929bb71057 Fixes and improvements
Matti Hamalainen <ccr@tnsp.org>
parents: 93
diff changeset
166 #undef TTUNE