musix 0.3.3

Music player library for esoteric audio formats (music from C64,Amiga etc)
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

/////////////////////////////////////////////////////////////////////////////
//
// bios - Holds BIOS image and can retrieve environment data
//
/////////////////////////////////////////////////////////////////////////////

#ifndef EMU_COMPILE
#error "Hi I forgot to set EMU_COMPILE"
#endif

#include "bios.h"

/////////////////////////////////////////////////////////////////////////////

static uint8 *image = {0};
static uint32 image_size = 0;

uint8* EMU_CALL bios_get_image_native(void) { return image; }
uint32 EMU_CALL bios_get_imagesize(void) { return image_size; }

/////////////////////////////////////////////////////////////////////////////
//
// Static init
//
void EMU_CALL bios_set_image(uint8 *_image, uint32 _size) {
#ifdef EMU_BIG_ENDIAN
  uint32 i;
  for (i = 0; i < _size; i += 4) {
    uint8 a = _image[i + 0];
    uint8 b = _image[i + 1];
    _image[i + 0] = _image[i + 3];
    _image[i + 1] = _image[i + 2];
    _image[i + 2] = b;
    _image[i + 3] = a;
  }
#endif
  image = _image;
  image_size = _size;
}

/////////////////////////////////////////////////////////////////////////////
//
// Find environment variables
// Returns nonzero on error
//
sint32 EMU_CALL bios_getenv(
  const char *name,
  char *dest,
  sint32 dest_l
) {
  uint8 *romnative = bios_get_image_native();
  uint8 whole_env_area[129];
  uint8 *env;
  uint8 *banner = "Highly Experimental";
  sint32 banner_l = strlen(banner);
  sint32 name_l = strlen(name);
  sint32 i;

  for(i = 0; i < 128; i++) {
    sint32 byteofs = 0x80 + (i ^ (EMU_ENDIAN_XOR(3)));
    whole_env_area[i] = romnative[byteofs];
  }
  whole_env_area[128] = 0;

  env = whole_env_area;

  if(!dest_l) return 1;
  if(memcmp(env, banner, banner_l)) return 1;
  env += banner_l;

  for(;;) {
    sint32 isquote = 0;
    uint8 *varnamestart;
    uint8 *varnameend;
    uint8 *varvalstart;
    uint8 *varvalend;
    sint32 varnamelen;
    sint32 varvallen;
    // find a variable name
    for(;; env++) { uint8 c = *env; if(!c) return 1; if(c != ' ') break; }
    varnamestart = env;
    // find where it ends
    for(;; env++) { uint8 c = *env; if(!c) return 1; if(c == '=') break; }
    varnameend = env;
    // eat trailing spaces
    while(
      (varnameend > varnamestart) &&
      (varnameend[-1] == ' ')
    ) varnameend--;
    // skip equals sign
    env++;
    // compute length
    varnamelen = varnameend - varnamestart;
    // find the value
    for(;; env++) { uint8 c = *env; if(!c) return 1; if(c != ' ') break; }
    varvalstart = env;
    // if it's a quote, handle it as such
    if(*env == '\"') { varvalstart++; env++; isquote = 1; }
    // seek to the end of the value
    for(;; env++) {
      uint8 c = *env;
      if(!c) break;
      if(isquote && c == '\"') break;
      if((!isquote) && c == ' ') break;
    }
    varvalend = env;
    // skip trailing quote if it's there
    if(isquote && *env == '\"') env++;
    // compute length
    varvallen = varvalend - varvalstart;

    // now, if this is the variable name we want...
    if(varnamelen == name_l && !memcmp(varnamestart, name, name_l)) {
      // return it in the destination buffer
      if(varvallen > (dest_l - 1)) varvallen = (dest_l - 1);
      if(varvallen) memcpy(dest, varvalstart, varvallen);
      dest[varvallen] = 0;
      return 0;
    }

  }

  return 1;
}

/////////////////////////////////////////////////////////////////////////////