Topic: Get rid of comments (Using NP++ or VLIDE)

[Grrr1337]

You can write a simple lisp routine to clear out comments.  You will need to decide whether to
you want to deal with inline/multiline notes as well  ie

Code: [Select]

  ;|   This is a comment |;
-David

Yeah, David - I was thinking about writing some conditional that switches few booleans if comment is active.
And would process the list of strings from the .lsp file. But just left it as starting conception (not finished) :

Code: [Select]

(cond ( (not row) ) ( (setq row (car L)) (setq L (cdr L)) ) )
(cond
  ( (not row) row)
  (cmt (setq row nil) ) ; comment mode is on
  ( (wcmatch row "*;|*") (setq cmt T) (setq row nil) ) ; comment mode on
  ( (wcmatch row "*|;*") (setq cmt nil) (setq row (TrimStingUpTo row "|;")) ) ; comment mode off
  ( (wcmatch row "*;*") ; theres a code'n'comment
    (setq row (TrimStingUpTo row ";"))
  )
  ( (wcmatch row "*;") ; code and a single ';'
    (setq row (TrimStingUpTo row ";"))
  )
  ( (wcmatch row ";*") ; comment
    (setq row nil)
  )     
  (T row) ; no comment, only code
); cond

Unfortunately I'm tight on free time again, but would finish it if it was very important (although initially I didn't think the task would translate into coding).

Don't have time for more than quick & dirty ...

Seems to work - Thanks for sharing your skills, Michael!

Question, why do you want to remove comments?

Simply said: over commenting
Say I wanted to learn someone's code by reading whats happening in the plain code, but there are too many comments that I loose my mind in a redundant descriptions, (thru the mid-evaluation).
Other reason would be, if the code is commented in Spanish/Russian/German/Chineese - a lisper might don't know the language, but still would be able to understand whats happening in there (and the comments still get in the way).

Few times I had such problem, so that brought my question that there might be a global solution for this.
And I'm not talking about removing any copyrighted footers or headers(that'd be silly), but a stuff like:

Code - Auto/Visual Lisp: [Select]

1. (+
2.   ; Hey hey
3.   ; This is ..
4.   ; ...
5.   ; ...
6.   (1+
7.     ; bla-bla
8.     ; bla-bla
9.     2
10.   )
11.   ; ...
12.   3
13. )

It's a Trump directive.

That would be "How do I remove twitter comments". 

EDIT:

MP, I've forgot to mention that I did a small addition to your code:
inside nom's def.. :

Code: [Select]

(and (or (and lisp (findfile lisp)) (setq lisp (getfiled "Specify LISP file" (strcat (getenv "userprofile") "\\Desktop\\") "lsp" 16))) (setq handle (open lisp "r")))so then:

Code: [Select]

(_CleanLisp "sample.lsp") or (_CleanLisp nil)

[MP]

Seems to work - Thanks for sharing your skills, Michael!

My pleasure. PS: Removes ;| This is a comment |; type comments too.

That would be "How do I remove twitter comments". 

Exactly.

[MP]

I don't see the point in (_CleanLisp nil) hand holding code.

Yeah, if you pass it a nil it will crash.

So will passing nils to native functions that expect non nil values, e.g. (+ nil nil).

/2¢

[Grrr1337]

My pleasure. PS: Removes ;| This is a comment |; type comments too.

Yeah, I've expected this after a quick glance, still not tested if would work for multiline ;| ... \n ... \n ... |; comments.

Yeah, if you pass it a nil it will crash.

Nonono, the point is that now you could either pass a filename or use nil to prompt for a file.
Not talking about error-proofing the argument(s).

[MP]

Yeah, I've expected this after a quick glance, still not tested if would work for multiline ;| ... \n ... \n ... |; comments.

it will.

Nonono, the point is that now you could either pass a filename or use nil to prompt for a file.

My bad, please accept my apologies, read it was too fast with bleary eyes. I actually do that in a utility I have to harvest cvs/tsv data.

[Grrr1337]

My bad, please accept my apologies, read it was too fast with bleary eyes. I actually do that in a utility I have to harvest cvs/tsv data.

No worries MP, that'd be stupid of me to pick on a newly offered code which I'm unable to write myself. 

[MP]

Disagree. What I wrote does not step outside your skill set. I was surprised to beat you to the punch to be honest. And critique away! I may not agree but any code posted should be equal candidate for examination, improvement, yada.

[Grrr1337]

Disagree. What I wrote does not step outside your skill set. I was surprised to beat you to the punch to be honest.

I'd take this as a compliment, problem is that I'm so confused recently that I cannot estimate what I'm able to write and what I can't (so usually then im invoking the 'HelpFromTheSwamp method).
I think its like "I'm unable to find the right words to describe it" for coding.

And critique away! I may not agree but any code posted should be equal candidate for examination, improvement, yada.

I agree about criticism on codes, just trying to avoid the obvious stuff (nitpick).
Because saying to you that you should check'n' error-proof the input args sounds like "Hey Lee, (strcase str) for str = nil will error out". 

[VovKa]

Code: [Select]

(alert "\"Test1;Test2\"")

[MP]

Code: [Select]

(alert "\"Test1;Test2\"")

Fun!

And revised.

[MP]

I'd take this as a compliment

that was the intention

problem is that I'm so confused recently that I cannot estimate what I'm able to write and what I can't (so usually then im invoking the 'HelpFromTheSwamp method).
I think its like "I'm unable to find the right words to describe it" for coding.

you're doing fine from what I've read

I agree about criticism on codes, just trying to avoid the obvious stuff

generally a good strategy

[VovKa]

And revised.

Code: [Select]

(+ 1  ;|2|;)


[kdub_nz]

My pleasure. PS: Removes ;| This is a comment |; type comments too.

Yeah, I've expected this after a quick glance, still not tested if would work for multiline ;| ... \n ... \n ... |; comments.

Yeah, if you pass it a nil it will crash.

Nonono, the point is that now you could either pass a filename or use nil to prompt for a file.
Not talking about error-proofing the argument(s).

Personally I'd leave the original as is and write a wrapper function to test/prompt for a filename ... have the wrapper call the function that does the work.

I've assumed the question/statement about 'why do you want to remove comments' was rhetorical.

[MP]

Code: [Select]

(+ 1  ;|2|;)


And revised.

[VovKa]

And revised.

Code: [Select]

(alert "1
;2")