find outermost paren doesn't ignore comments

[x37v]

open

(
  //(
  "got it".postln;
)

:call SClang_block() anywhere inside gives an error about unmatched paren

closed

(
  //)
  "got it".postln;
)

:call SCLang_block() on the "got it" line gives an error about unmatched paren as well, if you eval on the //) line, the block block is sent to sclang and you get this error:

ERROR: Command line parse failed
-> nil
ERROR: syntax error, unexpected $end, expecting ')'
  in interpreted text
  line 3 char 1:

Because, I assume, the block that is sent is:

(
  //)

[kneitinger]

Weirdly enough, I consider this to be a helpful feature...

It's totally possible that I'm missing something about calling sclang from the command-line, but in all of my scd files, I've commented out the parens due to syntax errors when executing sclang my_super_cool_synth.scd with block parens.

With the parens commented in the behavior you described, I can have the best of both worlds: blocks in scvim and easy command-line running of files.

I wonder if there is a compromise here that can result in a more expected and predictable behavior for both of our use cases.

What if the situation you described was fixed, and blocks like

(
  //)
  "got it".postln;
)

work perfectly and the commented paren is ignored, but at the same time, using a documented token like ///( or //-( , code block delimiting parens could live in a comment. For example

$ cat gottem.scd
//-(
  //)
  "got it".postln;
//-)

would print "got it" in scvim when F5-ed and also print it when ran via sclang gottem.scd.

Curious about other people's thoughts. Is this a reasonable solution? Am I doing something wrong with my invocation of sclang? Does anybody else rely on commented parens being recognized (ideally only block-level ones)?

[poetaster]

I was rebuilding some scary Lsystems and this bit me. The following will choke on the comment blocks in the actions context. remove the comments and it runs.

    var interp = LSystemInterpreter(
        lsystem:lsys,
        globalstate:(
			//\up : 60.midicps * sc.ratios,
			//\down: 60.midicps * sc.ratios.reverse,
			\up : 60.midicps * [1, 16/15, 5/4, 4/3, 3/2, 8/5, 15/8],
			\down : 60.midicps * [2, 2*16/15, 2*5/4, 2*4/3, 2*3/2],
			//\pup : 60.midicps * [1, 9/8, 5/4, 3/2, 27/16, 2],
			//\pdn : 60.midicps * [2, 27/16, 3/2, 4/3, 5/4, 9/8, 1],
			\pnotes : 60.midicps * sc.ratios, //60.midicps * [1, 5/4],
			\customnotes: ["c3_16@numharm[12]","g-3_8@numharm[10]"], // not used.
            \transpose : 1,
			\counter : 0,
			\lag: 0.0,
            \tempo : 0.2,
			\dur : 0.2
        ),
        actions:(
            // whenever you encounter an F, extend the list of played notes
            'F' : [{ | glob, loc |
			    //glob[\tempo] = [0.8, 0.2, 0.4].choose;
				glob[\transpose] = [1/2,1,2].choose;
                // always return state at the end
                [glob, loc];
            }, nil],
            // whenever you encounter a +, transpose up
            '+': [{ | glob, loc |
                // extend list notes being played (using some randomness :) )
				glob[\pnotes] = glob[\pnotes].add(glob[\up].choose);
				// limit pattern to 8 notes.
				if (glob[\pnotes].size > 8) {
                    glob[\pnotes].pop;
                };

                // always return state at the end
                [glob, loc];
            }, nil],
            // whenever you encounter a -, transpose down
            '-': [{ | glob, loc |
                //"remove first note".postln;
				// limit pattern to 8 notes.
				glob[\pnotes] = glob[\pnotes].addFirst(glob[\down].choose);
				if (glob[\pnotes].size > 1) {
                    glob[\pnotes].pop;
                };
                // always return state at the end
                [glob, loc];
            }, nil],
            // whenever you encounter an X, remove first note from the played notes
            'X' : [{ | glob, loc |
                //"transpose down".postln;
				glob[\lag] = (glob[\lag] + 0.5).clip(0,2);
				glob[\tempo] = [3/8, 1/8, 1/4, 1/2].choose;
                // always return state at the end
                [glob, loc];
            }, nil],
			//[0.1, 0.2, 0.3, 0.4, 0.5].choose;
            // whenever you encounter a Y, change tempo (randomly) )
            'Y' : [{ | glob, loc |
				glob[\lag] = (glob[\lag] - 0.3).clip(0,2);
				//glob[\patternnotes] = glob[\patternnotes].add(glob[\customnotes].choose.debug("add new custom"));
				//glob[\tempo] = [0.4, 0.2, 0.8,10.0].choose;
				//glob[\tempo] = (glob[\tempo>] / 2).clip(1/8, 1/4, 1/2);
				glob[\tempo] = [1/2,3/4,1].choose;
                // always return state at the end
                [glob, loc];
            }, nil],
        )
    );

This runs:

    var interp = LSystemInterpreter(
        lsystem:lsys,
        globalstate:(
			//\up : 60.midicps * sc.ratios,
			//\down: 60.midicps * sc.ratios.reverse,
			\up : 60.midicps * [1, 16/15, 5/4, 4/3, 3/2, 8/5, 15/8],
			\down : 60.midicps * [2, 2*16/15, 2*5/4, 2*4/3, 2*3/2],
			//\pup : 60.midicps * [1, 9/8, 5/4, 3/2, 27/16, 2],
			//\pdn : 60.midicps * [2, 27/16, 3/2, 4/3, 5/4, 9/8, 1],
			\pnotes : 60.midicps * sc.ratios, //60.midicps * [1, 5/4],
			\customnotes: ["c3_16@numharm[12]","g-3_8@numharm[10]"], // not used.
            \transpose : 1,
			\counter : 0,
			\lag: 0.0,
            \tempo : 0.2,
			\dur : 0.2
        ),
        actions:(
            'F' : [{ | glob, loc |
				glob[\transpose] = [1/2,1,2].choose;
                [glob, loc];
            }, nil],
            '+': [{ | glob, loc |
				glob[\pnotes] = glob[\pnotes].add(glob[\up].choose);
				if (glob[\pnotes].size > 8) {
                    glob[\pnotes].pop;
                };

                [glob, loc];
            }, nil],
            '-': [{ | glob, loc |
				glob[\pnotes] = glob[\pnotes].addFirst(glob[\down].choose);
				if (glob[\pnotes].size > 1) {
                    glob[\pnotes].pop;
                };
                [glob, loc];
            }, nil],
            'X' : [{ | glob, loc |
				glob[\lag] = (glob[\lag] + 0.5).clip(0,2);
				glob[\tempo] = [3/8, 1/8, 1/4, 1/2].choose;
                [glob, loc];
            }, nil],
            'Y' : [{ | glob, loc |
				glob[\lag] = (glob[\lag] - 0.3).clip(0,2);
				glob[\tempo] = [1/2,3/4,1].choose;
                [glob, loc];
            }, nil],
        )
    );

[capocasa]

Thanks for your report!