Method ExecScript

music/sequencer.cpp:344–570

music kernal.

// music kernal.
void OutrageMusicSeq::ExecScript(music_stream *strm) {
  if (!strm)
    return;

// get command
next_ins:
  music_ins *cur_ins = &strm->ins[strm->ip];
  uint8_t cmd = cur_ins->cmd;
  tMusicVal val = cur_ins->opr.num;
  char *str = cur_ins->opr.str;
  const char *name;

  // goto next instruction.
  strm->ip++;

  //	mprintf(0, "%d ", cmd);
  AudioStream *stream = &strm->strm->m_stream;

  // execute opcodes.
  //	if (strm->last_ip != strm->ip) {
  //		LOGFILE((_logfp, "ins=%d\n", cmd));
  //	}
  strm->last_ip = strm->ip;

  switch (cmd) {
  case OMFCMD_PLAY:
    name = m_tracklist.get(strm->ln_reg);
    if (name) {
      // close this song's stream.
      bool err = false;

      strm->old_strm = strm->strm;

      strm->error = false;

      if (strm->immediate_switch) {
        // we start playing the current stream immediately.
        stream->Close();
        m_dominant_strm = DOMINANT_STRM_ADJUST();
        //	mprintf(0, "MUSIC: Starting stream with %s on channel %d.\n", name, m_dominant_strm);
        LOGFILE((_logfp, "MUSIC: Starting stream with %s on channel %d.\n", name, m_dominant_strm));
        strm->strm = &m_strm[m_dominant_strm];
        stream = &strm->strm->m_stream;
        err = stream->Open(name);
      } else {
        m_dominant_strm = DOMINANT_STRM_ADJUST();
        //	mprintf(0, "MUSIC: Preparing stream with %s on channel %d.\n", name, m_dominant_strm);
        LOGFILE((_logfp, "MUSIC: Preparing stream with %s on channel %d.\n", name, m_dominant_strm));
        strm->strm = &m_strm[m_dominant_strm];
        stream = &strm->strm->m_stream;
        err = stream->Open(name);
        //	stream->Open(name, STRM_OPNF_GRADUAL);
      }

      // skip instructions until error is cleared.
      if (!err) {
        //	mprintf(0, "MUSIC: Error opening stream %s on channel %d.\n", name, m_dominant_strm);
        LOGFILE((_logfp, "MUSIC: Error opening stream %s on channel %d.\n", name, m_dominant_strm));