view release on metacpan or  search on metacpan

Rsynth.xs.in  view on Meta::CPAN

      // call rsynth pre-destructor
      rsynth_clear(synth);

      // call native perl free
      safefree((rsynth_synth *)synth);
    };


#//---------------- start the synth
int
rsxs_Start(synth)
     rsynth_synth_ptr synth
     CODE:
       RETVAL = rsynth_start(synth);
     OUTPUT:
       RETVAL

#//--------------- stop the synth
int
rsxs_Stop(synth)
     rsynth_synth_ptr synth
     CODE:
       RETVAL = rsynth_stop(synth);
     OUTPUT:
       RETVAL

#//--------------- sync the synth
int
rsxs_Sync(synth)
     rsynth_synth_ptr synth
     CODE:
       RETVAL = rsynth_sync(synth);
     OUTPUT:
       RETVAL


#//--------------- Configure the synth (dummy)
int
rsxs_Configure_Dummy(synth)
     rsynth_synth_ptr synth
     CODE:
       RETVAL = rsynth_configure(synth,0,NULL);
     OUTPUT:
       RETVAL

#//---------------- speak to me!
void
rsxs_Say_String(synth,val)
       rsynth_synth_ptr synth
       char * val
     CODE:
#     ifdef RSXS_DEBUG_STRING
       printf("Say_String: got string '%s'\n", val);
#     endif
       say_string(synth,val);
#     ifdef RSXS_DEBUG_STRING
       printf("Say_String: done.\n", val);
#     endif


#//---------------- speak to me streamingly
void
rsxs_Say_File(synth,file)
       rsynth_synth_ptr synth
       FILE *file
     CODE:
#     ifdef RSXS_DEBUG_FILE
       printf("Saying file: %d (stdin=%d)\n", fileno(file),fileno(stdin));
#     endif
       say_file(synth,file);
#     ifdef RSXS_DEBUG_FILE
       printf("said file: %d\n", fileno(file));
#     endif



#/*--------------------------------------------------------------
# * Accessors / Manipulators get autgenerated below here!
# *--------------------------------------------------------------*/

#XS_ACCESSOR_CODE#