WaveSwissKnife 0.0.1.20101110-x86-cygwin

data/AUTHORS

@@ -0,0 +1 @@
+= Muriel Salvan (murielsalvan@users.sourceforge.net)

data/ChangeLog

@@ -0,0 +1,5 @@
+= WaveSwissKnife Release History
+
+== 0.0.1.20101110 (Alpha)
+
+* Initial public release.

data/Credits

@@ -0,0 +1,3 @@
+= Projects used by WaveSwissKnife
+
+= People that helped a lot in developing WaveSwissKnife

data/LICENSE

@@ -0,0 +1,31 @@
+
+The license stated herein is a copy of the BSD License (modified on July 1999).
+The AUTHOR mentionned below refers to the list of people involved in the
+creation and modification of any file included in the delivered package.
+This list is found in the file named AUTHORS.
+The AUTHORS and LICENSE files have to be included in any release of software
+embedding source code of this package, or using it as a derivative software.
+
+Copyright (c) 2010 Muriel Salvan (murielsalvan@users.sourceforge.net)
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+   1. Redistributions of source code must retain the above copyright notice,
+      this list of conditions and the following disclaimer.
+   2. Redistributions in binary form must reproduce the above copyright notice,
+      this list of conditions and the following disclaimer in the documentation
+      and/or other materials provided with the distribution.
+   3. The name of the author may not be used to endorse or promote products
+      derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
+OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
+IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
+OF SUCH DAMAGE.

data/README

@@ -0,0 +1,18 @@
+-- This file is best viewed when processed by rdoc.
+++
+
+= WaveSwissKnife
+
+Command-line utility handling Wave files.
+
+== Where is the documentation ?
+
+Check the website at http://waveswissknife.sourceforge.net
+
+== Who wrote it ?
+
+Check the AUTHORS[link:files/AUTHORS.html] file.
+
+== What is the license ?
+
+You can find out in the LICENSE[link:files/LICENSE.html] file.

data/ReleaseInfo

@@ -0,0 +1,8 @@
+
+# This file has been generated by RubyPackager during a delivery.
+# More info about RubyPackager: http://rubypackager.sourceforge.net
+{
+  :Version => '0.0.1.20101110',
+  :Tags => [ 'Alpha' ],
+  :DevStatus => 'Alpha'
+}

data/TODO

@@ -0,0 +1,2 @@
+* Make regression.
+* Implement Functions methods in C as they can become costly (use mpq_t from GMP).

data/bin/WSK.rb

@@ -0,0 +1,14 @@
+#!env ruby
+#--
+# Copyright (c) 2009-2010 Muriel Salvan (murielsalvan@users.sourceforge.net)
+# Licensed under the terms specified in LICENSE file. No warranty is provided.
+#++
+
+# Main file
+
+require 'rUtilAnts/Logging'
+RUtilAnts::Logging::initializeLogging('', '')
+require 'WSK/Common'
+require 'WSK/Launcher'
+
+exit WSK::Launcher.new.execute(ARGV)

data/ext/WSK/AnalyzeUtils/AnalyzeUtils.c

@@ -0,0 +1,272 @@
+/**
+ * Copyright (c) 2009-2010 Muriel Salvan (murielsalvan@users.sourceforge.net)
+ * Licensed under the terms specified in LICENSE file. No warranty is provided.
+ **/
+
+#include "ruby.h"
+#include <math.h>
+#include <stdio.h>
+#include <CommonUtils.h>
+
+// Structure used to compute sum of squares
+typedef struct {
+  unsigned long long int high;
+  unsigned long long int low;
+} t128bits;
+
+// Structure used to give variables to iteration process
+typedef struct {
+  long long int * maxValues;
+  long long int * minValues;
+  long long int * sumValues;
+  long long int * absSumValues;
+  t128bits * squareSumValues;
+} tAnalyzeStruct;
+
+/** Add a 64 bits unsigned integer to a 128 bits unsigned integer
+ *
+ * Parameters:
+ * * *ioPtrVal* (<em>t128bits*</em>): The 128 bits integer to modify
+ * * *iAddValue* (<em>const unsigned long long int</em>): The value to add
+ **/
+inline void add128bits(t128bits* ioPtrVal, const unsigned long long int iAddValue) {
+  unsigned long long int lOldLow = ioPtrVal->low;
+
+  ioPtrVal->low += iAddValue;
+  // check for overflow of low 64 bits, add carry to high
+  if (ioPtrVal->low < lOldLow)
+    ++ioPtrVal->high;
+}
+
+/** Create empty arrays of long long integers to be used for various sums
+ *
+ * Parameters:
+ * * *iSelf* (_FFT_): Self
+ * * *iValNbrChannels* (_Integer_): Number of channels
+ * * *iValInitialValue* (_Integer_): Initial value
+ * Return:
+ * * _Object_: An encapsulated array for computation
+ **/
+static VALUE analyzeutils_init64bitsArray(
+  VALUE iSelf,
+  VALUE iValNbrChannels,
+  VALUE iValInitialValue) {
+  VALUE rValContainer;
+  int lNbrChannels = FIX2INT(iValNbrChannels);
+  long long int lInitialValue = FIX2LONG(iValInitialValue);
+
+  long long int * lSumArray = ALLOC_N(long long int, lNbrChannels);
+  int lIdxChannel;
+  for (lIdxChannel = 0; lIdxChannel < lNbrChannels; ++lIdxChannel) {
+    lSumArray[lIdxChannel] = lInitialValue;
+  }
+
+  // Encapsulate it
+  rValContainer = Data_Wrap_Struct(rb_cObject, NULL, free, lSumArray);
+
+  return rValContainer;
+}
+
+/** Create empty arrays of 128 bits integers to be used for various sums
+ *
+ * Parameters:
+ * * *iSelf* (_FFT_): Self
+ * * *iValNbrChannels* (_Integer_): Number of channels
+ * Return:
+ * * _Object_: An encapsulated array for computation
+ **/
+static VALUE analyzeutils_init128bitsArray(
+  VALUE iSelf,
+  VALUE iValNbrChannels) {
+  VALUE rValContainer;
+  int lNbrChannels = FIX2INT(iValNbrChannels);
+
+  t128bits * lSumArray = ALLOC_N(t128bits, lNbrChannels);
+  // Fill it with 0
+  memset(lSumArray, 0, lNbrChannels*sizeof(t128bits));
+
+  // Encapsulate it
+  rValContainer = Data_Wrap_Struct(rb_cObject, NULL, free, lSumArray);
+
+  return rValContainer;
+}
+
+/**
+ * Process a value read from an input buffer for the Analyze function.
+ * Use the trigo cache.
+ *
+ * Parameters:
+ * * *iValue* (<em>const tSampleValue</em>): The value being read
+ * * *iIdxSample* (<em>const tSampleIndex</em>): Index of this sample
+ * * *iIdxChannel* (<em>const int</em>): Channel corresponding to the value being read
+ * * *iPtrArgs* (<em>void*</em>): additional arguments. In fact a <em>tAnalyzeStruct*</em>.
+ * Return:
+ * * _int_: The return code:
+ * ** 0: Continue iteration
+ * ** 1: Break all iterations
+ * ** 2: Skip directly to the next sample (don't call us for other channels of this sample)
+ */
+int analyzeutils_processValue_Analyze(
+  const tSampleValue iValue,
+  const tSampleIndex iIdxSample,
+  const int iIdxChannel,
+  void* iPtrArgs) {
+  // Interpret parameters
+  tAnalyzeStruct* lPtrVariables = (tAnalyzeStruct*)iPtrArgs;
+
+  if (iValue > lPtrVariables->maxValues[iIdxChannel]) {
+    lPtrVariables->maxValues[iIdxChannel] = iValue;
+  }
+  if (iValue < lPtrVariables->minValues[iIdxChannel]) {
+    lPtrVariables->minValues[iIdxChannel] = iValue;
+  }
+  lPtrVariables->sumValues[iIdxChannel] += iValue;
+  lPtrVariables->absSumValues[iIdxChannel] += abs(iValue);
+  add128bits(&(lPtrVariables->squareSumValues[iIdxChannel]), ((long long int)iValue)*((long long int)iValue));
+
+  return 0;
+}
+
+/** Complete the arrays of sums for analyzis
+ * 
+ * Parameters:
+ * * *iSelf* (_FFT_): Self
+ * * *iValInputRawBuffer* (_String_): The input raw buffer
+ * * *iValNbrBitsPerSample* (_Integer_): The number of bits per sample
+ * * *iValNbrSamples* (_Integer_): The number of samples
+ * * *iValNbrChannels* (_Integer_): The number of channels
+ * * *ioValMaxValues* (_Object_): Container of the max values array (should be initialized with init64bitsArray)
+ * * *ioValMinValues* (_Object_): Container of the min values array (should be initialized with init64bitsArray)
+ * * *ioValSumValues* (_Object_): Container of the sum values array (should be initialized with init64bitsArray)
+ * * *ioValAbsSumValues* (_Object_): Container of the abs sum values array (should be initialized with init64bitsArray)
+ * * *ioValSquareSumValues* (_Object_): Container of the square sum values array (should be initialized with init128bitsArray)
+ **/
+static VALUE analyzeutils_completeAnalyze(
+  VALUE iSelf,
+  VALUE iValInputRawBuffer,
+  VALUE iValNbrBitsPerSample,
+  VALUE iValNbrSamples,
+  VALUE iValNbrChannels,
+  VALUE ioValMaxValues,
+  VALUE ioValMinValues,
+  VALUE ioValSumValues,
+  VALUE ioValAbsSumValues,
+  VALUE ioValSquareSumValues) {
+  // Translate Ruby objects
+  tSampleIndex iNbrSamples = FIX2LONG(iValNbrSamples);
+  int iNbrChannels = FIX2INT(iValNbrChannels);
+  int iNbrBitsPerSample = FIX2LONG(iValNbrBitsPerSample);
+  char* lPtrRawBuffer = RSTRING(iValInputRawBuffer)->ptr;
+  // Get the arrays
+  tAnalyzeStruct lProcessParams;
+  Data_Get_Struct(ioValMaxValues, long long int, lProcessParams.maxValues);
+  Data_Get_Struct(ioValMinValues, long long int, lProcessParams.minValues);
+  Data_Get_Struct(ioValSumValues, long long int, lProcessParams.sumValues);
+  Data_Get_Struct(ioValAbsSumValues, long long int, lProcessParams.absSumValues);
+  Data_Get_Struct(ioValSquareSumValues, t128bits, lProcessParams.squareSumValues);
+
+  // Parse the data
+  commonutils_iterateThroughRawBuffer(
+    lPtrRawBuffer,
+    iNbrBitsPerSample,
+    iNbrChannels,
+    iNbrSamples,
+    0,
+    &analyzeutils_processValue_Analyze,
+    &lProcessParams
+  );
+
+  return Qnil;
+}
+
+/** Get a Bignum Ruby arrays out of a 64bits C integers array
+ *
+ * Parameters:
+ * * *iSelf* (_FFT_): Self
+ * * *iValArray* (_Object_): Container of the array (should be initialized with init64bitsArray)
+ * * *iValNbrItems* (_Integer_): The number of items in the array
+ * Return:
+ * * <em>list<Integer></em>: Corresponding Ruby array
+ **/
+static VALUE analyzeutils_getRuby64bitsArray(
+  VALUE iSelf,
+  VALUE iValArray,
+  VALUE iValNbrItems) {
+  // Translate Ruby objects
+  int lNbrItems = FIX2INT(iValNbrItems);
+  // Get the array
+  long long int * lArray;
+  Data_Get_Struct(iValArray, long long int, lArray);
+  // The C-array of the final result
+  VALUE lFinalArray[lNbrItems];
+
+  // Buffer that stores string representation of long long int for Ruby RBigNum
+  char lStrValue[128];
+  int lIdxItem;
+  for (lIdxItem = 0; lIdxItem < lNbrItems; ++lIdxItem) {
+    sprintf(lStrValue, "%lld", lArray[lIdxItem]);
+    lFinalArray[lIdxItem] = rb_cstr2inum(lStrValue, 10);
+  }
+
+  return rb_ary_new4(lNbrItems, lFinalArray);
+}
+
+/** Get a Bignum Ruby arrays out of a 128bits C integers array
+ *
+ * Parameters:
+ * * *iSelf* (_FFT_): Self
+ * * *iValArray* (_Object_): Container of the array (should be initialized with init128bitsArray)
+ * * *iValNbrItems* (_Integer_): The number of items in the array
+ * Return:
+ * * <em>list<Integer></em>: Corresponding Ruby array
+ **/
+static VALUE analyzeutils_getRuby128bitsArray(
+  VALUE iSelf,
+  VALUE iValArray,
+  VALUE iValNbrItems) {
+  // Translate Ruby objects
+  int lNbrItems = FIX2INT(iValNbrItems);
+  // Get the array
+  t128bits * lArray;
+  Data_Get_Struct(iValArray, t128bits, lArray);
+  // The C-array of the final result
+  VALUE lFinalArray[lNbrItems];
+  // Operations that will be used
+  ID lPlusID = rb_intern("+");
+  ID lMultiplyID = rb_intern("*");
+
+  // Buffer that stores string representation of long long int for Ruby RBigNum
+  char lStrValue[128];
+  int lIdxItem;
+  VALUE lValHigh;
+  VALUE lValLow;
+  VALUE lValHighShifted;
+  // We will need to multiply High part by 2^64
+  VALUE lValShiftFactor = rb_cstr2inum("18446744073709551616", 10);
+  for (lIdxItem = 0; lIdxItem < lNbrItems; ++lIdxItem) {
+    sprintf(lStrValue, "%llu", lArray[lIdxItem].high);
+    lValHigh = rb_cstr2inum(lStrValue, 10);
+    sprintf(lStrValue, "%llu", lArray[lIdxItem].low);
+    lValLow = rb_cstr2inum(lStrValue, 10);
+    lValHighShifted = rb_funcall(lValHigh, lMultiplyID, 1, lValShiftFactor);
+    lFinalArray[lIdxItem] = rb_funcall(lValHighShifted, lPlusID, 1, lValLow);
+  }
+
+  return rb_ary_new4(lNbrItems, lFinalArray);
+}
+
+// Initialize the module
+void Init_AnalyzeUtils() {
+  VALUE lWSKModule;
+  VALUE lAnalyzeUtilsModule;
+  VALUE lAnalyzeUtilsClass;
+  
+  lWSKModule = rb_define_module("WSK");
+  lAnalyzeUtilsModule = rb_define_module_under(lWSKModule, "AnalyzeUtils");
+  lAnalyzeUtilsClass = rb_define_class_under(lAnalyzeUtilsModule, "AnalyzeUtils", rb_cObject);
+  rb_define_method(lAnalyzeUtilsClass, "init64bitsArray", analyzeutils_init64bitsArray, 2);
+  rb_define_method(lAnalyzeUtilsClass, "init128bitsArray", analyzeutils_init128bitsArray, 1);
+  rb_define_method(lAnalyzeUtilsClass, "completeAnalyze", analyzeutils_completeAnalyze, 9);
+  rb_define_method(lAnalyzeUtilsClass, "getRuby64bitsArray", analyzeutils_getRuby64bitsArray, 2);
+  rb_define_method(lAnalyzeUtilsClass, "getRuby128bitsArray", analyzeutils_getRuby128bitsArray, 2);
+}

data/ext/WSK/AnalyzeUtils/Makefile

@@ -0,0 +1,149 @@
+
+SHELL = /bin/sh
+
+#### Start of system configuration section. ####
+
+srcdir = .
+topdir = /usr/lib/ruby/1.8/i386-cygwin
+hdrdir = $(topdir)
+VPATH = $(srcdir):$(topdir):$(hdrdir)
+prefix = $(DESTDIR)/usr
+exec_prefix = $(prefix)
+sitedir = $(prefix)/lib/ruby/site_ruby
+rubylibdir = $(libdir)/ruby/$(ruby_version)
+docdir = $(datarootdir)/doc/$(PACKAGE)
+dvidir = $(docdir)
+datarootdir = $(prefix)/share
+archdir = $(rubylibdir)/$(arch)
+sbindir = $(exec_prefix)/sbin
+psdir = $(docdir)
+localedir = $(datarootdir)/locale
+htmldir = $(docdir)
+datadir = $(prefix)/share
+includedir = $(prefix)/include
+infodir = $(prefix)/share/info
+sysconfdir = $(DESTDIR)/etc
+mandir = $(prefix)/share/man
+libdir = $(exec_prefix)/lib
+sharedstatedir = $(prefix)/com
+oldincludedir = $(DESTDIR)/usr/include
+pdfdir = $(docdir)
+sitearchdir = $(sitelibdir)/$(sitearch)
+bindir = $(exec_prefix)/bin
+localstatedir = $(DESTDIR)/var
+sitelibdir = $(sitedir)/$(ruby_version)
+libexecdir = $(prefix)/sbin
+
+CC = gcc
+LIBRUBY = lib$(RUBY_SO_NAME).dll.a
+LIBRUBY_A = lib$(RUBY_SO_NAME)-static.a
+LIBRUBYARG_SHARED = -l$(RUBY_SO_NAME)
+LIBRUBYARG_STATIC = -l$(RUBY_SO_NAME)-static
+
+RUBY_EXTCONF_H = 
+CFLAGS   =  -g -O2  -Wall  -I/cygdrive/f/RR/Source/waveswissknife/svn/waveswissknife/external/CommonUtils/include  
+INCFLAGS = -I. -I$(topdir) -I$(hdrdir) -I$(srcdir)
+CPPFLAGS =  
+CXXFLAGS = $(CFLAGS) 
+DLDFLAGS = -L.  -L/cygdrive/f/RR/Source/waveswissknife/svn/waveswissknife/external/CommonUtils/lib -lCommonUtils   -Wl,--enable-auto-image-base,--enable-auto-import,--export-all 
+LDSHARED = gcc -shared -s
+AR = ar
+EXEEXT = .exe
+
+RUBY_INSTALL_NAME = ruby
+RUBY_SO_NAME = ruby
+arch = i386-cygwin
+sitearch = i386-cygwin
+ruby_version = 1.8
+ruby = /usr/bin/ruby
+RUBY = $(ruby)
+RM = rm -f
+MAKEDIRS = mkdir -p
+INSTALL = /usr/bin/install -c
+INSTALL_PROG = $(INSTALL) -m 0755
+INSTALL_DATA = $(INSTALL) -m 644
+COPY = cp
+
+#### End of system configuration section. ####
+
+preload = 
+
+libpath = . $(libdir)
+LIBPATH =  -L"." -L"$(libdir)"
+DEFFILE = 
+
+CLEANFILES = mkmf.log
+DISTCLEANFILES = 
+
+extout = 
+extout_prefix = 
+target_prefix = 
+LOCAL_LIBS = 
+LIBS = $(LIBRUBYARG_SHARED)  -ldl -lcrypt  
+SRCS = AnalyzeUtils.c
+OBJS = AnalyzeUtils.o
+TARGET = AnalyzeUtils
+DLLIB = $(TARGET).so
+EXTSTATIC = 
+STATIC_LIB = 
+
+RUBYCOMMONDIR = $(sitedir)$(target_prefix)
+RUBYLIBDIR    = $(sitelibdir)$(target_prefix)
+RUBYARCHDIR   = $(sitearchdir)$(target_prefix)
+
+TARGET_SO     = $(DLLIB)
+CLEANLIBS     = $(TARGET).so $(TARGET).il? $(TARGET).tds $(TARGET).map
+CLEANOBJS     = *.o *.a *.s[ol] *.pdb *.exp *.bak
+
+all:		$(DLLIB)
+static:		$(STATIC_LIB)
+
+clean:
+		@-$(RM) $(CLEANLIBS) $(CLEANOBJS) $(CLEANFILES)
+
+distclean:	clean
+		@-$(RM) Makefile $(RUBY_EXTCONF_H) conftest.* mkmf.log
+		@-$(RM) core ruby$(EXEEXT) *~ $(DISTCLEANFILES)
+
+realclean:	distclean
+install: install-so install-rb
+
+install-so: $(RUBYARCHDIR)
+install-so: $(RUBYARCHDIR)/$(DLLIB)
+$(RUBYARCHDIR)/$(DLLIB): $(DLLIB)
+	$(INSTALL_PROG) $(DLLIB) $(RUBYARCHDIR)
+install-rb: pre-install-rb install-rb-default
+install-rb-default: pre-install-rb-default
+pre-install-rb: Makefile
+pre-install-rb-default: Makefile
+$(RUBYARCHDIR):
+	$(MAKEDIRS) $@
+
+site-install: site-install-so site-install-rb
+site-install-so: install-so
+site-install-rb: install-rb
+
+.SUFFIXES: .c .m .cc .cxx .cpp .C .o
+
+.cc.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.cxx.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.cpp.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.C.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.c.o:
+	$(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) -c $<
+
+$(DLLIB): $(OBJS)
+	@-$(RM) $@
+	$(LDSHARED) -o $@ $(OBJS) $(LIBPATH) $(DLDFLAGS) $(LOCAL_LIBS) $(LIBS)
+
+
+
+$(OBJS): ruby.h defines.h

data/ext/WSK/AnalyzeUtils/build.rb

@@ -0,0 +1,18 @@
+#--
+# Copyright (c) 2009-2010 Muriel Salvan (murielsalvan@users.sourceforge.net)
+# Licensed under the terms specified in LICENSE file. No warranty is provided.
+#++
+
+lAdditionalLocalLibs = [
+  'CommonUtils'
+]
+
+require 'mkmf'
+$CFLAGS += ' -Wall '
+lAdditionalLocalLibs.each do |iLibName|
+  lLibDir = File.expand_path("#{File.dirname(__FILE__)}/../../../external/#{iLibName}")
+  $CFLAGS += " -I#{lLibDir}/include "
+  $LDFLAGS += " -L#{lLibDir}/lib -l#{iLibName} "
+end
+create_makefile('AnalyzeUtils')
+system('make')