No more segfaults ?

Classes/BuboBoot.sc

@@ -95,19 +95,17 @@ Boot {
 
       Event.addEventType(\buboLoopEvent, {
         arg server;
-        [~sp, ~nb].postln;
         ~sp = BuboUtils.cleanSampleName(~sp);
         ~nb = BuboUtils.cleanSampleIndex(~nb);
-        [~sp, ~nb].postln;
         if (~sp.notNil && ~nb.notNil, {
-          ~sp = ~sp ?? 'default';
+          if (~sp != "", {
-          ~nb = ~nb ?? 0;
+            ~buf = Bank(~sp)[~nb % Bank(~sp).paths.size];
-          ~buf = Bank(~sp)[~nb % Bank(~sp).paths.size];
+            if (Bank(~sp).metadata[~nb % Bank(~sp).size][\numChannels] == 1) {
-          if (Bank(~sp).metadata[~nb % Bank(~sp).size][\numChannels] == 1) {
+                ~instrument = \looperMono;
-              ~instrument = \looperMono;
+            } {
-          } {
+                ~instrument = \looperStereo;
-              ~instrument = \looperStereo;
+            };
-          };
+          })
         });
         ~type = \note;
         currentEnvironment.play;
@@ -115,17 +113,20 @@ Boot {
 
       Event.addEventType(\buboEvent, {
         arg server;
-        ~sp = BuboUtils.cleanSampleName(~sp);
+        [~sp, ~nb, ~instrument].postln;
-        ~nb = BuboUtils.cleanSampleIndex(~nb);
+        if (BuboUtils.stringIsNumber(~sp), {}, {
-        if (~sp.notNil && ~nb.notNil, {
+          ~sp = BuboUtils.cleanSampleName(~sp);
-          if (~sp != "", {
+          ~nb = BuboUtils.cleanSampleIndex(~nb);
-            ~buf = Bank(~sp)[~nb % Bank(~sp).paths.size];
+          if (~sp.notNil && ~nb.notNil, {
-            if (Bank(~sp).metadata[~nb % Bank(~sp).size][\numChannels] == 1) {
+            if (~sp !== "", {
-                ~instrument = \player;
+              ~buf = Bank(~sp)[~nb % Bank(~sp).paths.size];
-            } {
+              if (Bank(~sp).metadata[~nb % Bank(~sp).size][\numChannels] == 1) {
-                ~instrument = \splayer;
+                  ~instrument = \player;
-            };
+              } {
-          })
+                  ~instrument = \splayer;
+              };
+            })
+          });
         });
         ~type = \note;
         currentEnvironment.play;

Classes/BuboUtils.sc

@@ -15,7 +15,7 @@ BuboUtils {
   *cleanSampleName {
     arg str;
     var good_string;
-    if (str == nil, { ^nil });
+    if (str == nil, { ^"" });
 	  good_string = str.asList.collect({
 	  	|char|
 	  	if (char.isAlphaNum, char, "")
@@ -23,6 +23,14 @@ BuboUtils {
     ^good_string
   }
 
+  *stringIsNumber {
+    arg string;
+    if (string == nil, { ^true });
+    string = string.asList.collect({arg char; char.ascii});
+    string = (48..57).includesAll(string);
+    ^string
+  }
+
   *cleanSampleIndex {
     arg number;
     if (number.isKindOf(Number), { ^number }, { ^0 });

Classes/EventShortener.sc

@@ -54,9 +54,8 @@ EventShortener {
           if (type !== 'midi', {
             if (pattern.includes('i') || pattern.includes('instrument') == false, {
               new_pattern = new_pattern ++ [
-                sp: Pfunc { |e| e.str ? 'default' },
+                sp: Pfunc { |e| e.str ? "" },
-                nb: Pfunc(\num),
+                nb: Pfunc { |e| e.num ? 0 },
-                instrument: 'default',
                 fast: 1,
               ];
             });

dev_sessions/with_midi.scd

@@ -37,7 +37,25 @@ m = MIDIOut.newByName("MIDI", "Bus 1");
 ~plop.play;
 )
 
-Bank.list
+
+// TEST: Cinquième test
+(
+~testInstrument => [
+  instrument: 'default',
+  pat: "0 2 3 4"
+];
+~testInstrument.play;
+)
+
+// TEST: Sixième test
+// WARNING: celui-ci crashe !
+(
+~testInstrument => [
+  pat: "0 2 3 4"
+];
+~testInstrument.play;
+)
+
 
 Sweep.help