REBOL [
    Title: "uncomment"
    Date: 23-Jul-2002
    Version: 1.0.0
    File: %uncomment.r
    Author: "Gregory Pecheret"
    Purpose: "uncomment Java or C++ sources"
    Email: gregory.pecheret@free.fr
    Category: [text util]
]



remove-slashslash: func [java] [
    parse/all java [any [to "//" begin: thru newline ending: (remove/part begin ((index? ending) - (index? begin))) :begin]]
]

remove-slashstar: func [java] [
    parse/all java [any [to "/*" begin: thru "*/" ending: (remove/part begin ((index? ending) - (index? begin))) :begin]]
]

uncomment: func [java] [
        remove-slashslash java
        remove-slashstar java
]

{
; use sample
a: read %./CfgCmdOperations.java
uncomment a
print a
}