Strip block comments: Difference between revisions

A block comment begins with a ''beginning delimiter'' and ends with a ''ending delimiter'', including the delimiters. These delimiters are often multi-character sequences.

 

Ada.Text_IO.Close (File => File);

end Strip;</lang>

output:

<pre>

pause();

return 0;

Specify an input file via the first command line argument, and optionally specify comment opening and closing delimiters with the next two args, or defaults of /* and */ are assumed.

 

function subroutine() {

</pre>

 

 

class Program

return sampleText;

}

 

=={{header|Clojure}}==

(= delim-count 0)(recur (str out (first txt)) (rest txt) delim-count)

true (recur out (rest txt) delim-count))))))</lang>

<pre>user> (comment-strip "This /* is */ some /* /* /* */ funny */ */ text")

hdtxt= Th resttxt=is /* is */ some /* /* /* */ funny */ */ text out= txt=This /* is */ some /* /* /* */ funny */ */ text delim-count=0

* Another comment.

*/</pre>

=={{header|Go}}==

For the extra credit: No optional parameters in Go, but documented below is an efficient technique for letting the caller specify the delimiters.

=={{header|Haskell}}==

Comment delimiters can be changed by calling stripComments with different start and end parameters.

<lang Haskell>import Data.List

 

 

=={{header|Icon}} and {{header|Unicon}}==

<lang Icon>procedure main()

every (unstripped := "") ||:= !&input || "\n" # Load file as one string

}

end</lang>

Otherwise, the following handles an arbitrary length input:

<lang Icon>procedure main()

every writes(stripBlockComment(!&input,"/*","*/"))

 

=={{header|J}}==

<lang j>strip=:#~1 0 _1*./@:(|."0 1)2>4{"1(5;(0,"0~".;._2]0 :0);'/*'i.a.)&;:

1 0 0

0 2 2

)</lang>

Example data:

<lang j>example=: 0 :0

/**

}

)</lang>

Example use:

<lang j> strip example

function something() {

}</lang>

Here is a version which allows the delimiters to be passed as an optional left argument as a pair of strings:

<lang j>stripp=:3 :0

('/*';'*/') stripp y

y #~ -. (+._1&|.) (1 <. 0 >. +)/\.&.|. marks

)</lang>

=={{header|Java}}==

<lang java>import java.io.*;

 

public class StripBlockComments{

System.out.println("Usage: BeginToken EndToken StringToProcess");

String beginToken = args[0];

String endToken = args[1];

String inputFile = args[2];

String input = "";

StringBuilder fileContents = new StringBuilder();

char[] buffer = new char[4096];

}

input = fileContents.toString();

e.printStackTrace();

System.exit(1);

}

StringBuilder output = new StringBuilder();

int begin = input.indexOf(beginToken);

int end = input.indexOf(endToken, begin+beginToken.length());

break;

}

}

}

}

 

=={{header|Liberty BASIC}}==

CRLF$ =chr$( 13) +chr$( 10)

 

end if

next i

<pre>

 

</pre>

 

=={{header|Lua}}==

function something() {

 

=={{header|MATLAB}} / {{header|Octave}}==

}

'}</lang>

function subroutine() {

a = b + c ;

 

=={{header|PL/I}}==

strip: procedure options (main); /* 8/1/2011 */

declare text character (80) varying;

end;

 

 

=={{header|PureBasic}}==

=={{header|Python}}==

The code has comment delimeters as an argument and will also strip ''nested'' block comments.

<lang python>def _commentstripper(txt, delim):

'Strips first nest of block comments'

txt = _commentstripper(txt, delim)

return txt</lang>

<lang python>def test():

print('\nNON-NESTED BLOCK COMMENT EXAMPLE:')

 

puts remove_comments example</lang>

outputs

<pre>

{{omit from|Openscad}}

{{omit from|PARI/GP|No real capacity for string manipulation}}