Print Page - Remove line comment

Title: Remove line comment
Post by: HPW on July 07, 2005, 12:30:07 AM

I want to compact my lsp-code for delivery.

So I made a newLISP tool to get my sources smaller.

Here is a code to remove the comment at the end of a code line.

Is there a better way of doing this?

Any ideas?

Code Select Expand

(define (striplinecomment completelinestr      complinelst newlinestr)
	(setq complinelst (parse completelinestr ";"))
	(if (>(length complinelst)1)
		(if (not(find """(last complinelst)))     ;when semicolon not part of a string
			(begin
			(pop complinelst -1)
			(setq newlinestr (trim(join complinelst ";")"" "t"))
			)
			(setq newlinestr completelinestr)
		)
		(setq newlinestr completelinestr)
	)
	newlinestr
)

Title:
Post by: Sammo on July 07, 2005, 01:28:30 PM

Hi Hans-Peter,

Here's how I do it. In this code, I have not accounted for comments beginning with "#" or strings delimited with "{" and "}".

Code Select Expand
(define (uncomment str)
  (let
    ( loc (explode str)
      result '()
      comment nil
      in-quote nil
    )
  ;body of let
    (until (or comment (empty? loc))
      (let
        ( ch (pop loc) )
      ;body of let
        (case ch
          (""" (push ch result)
                (set 'in-quote (not in-quote)) )
          (";"  (if in-quote
                  (push ch result)
                  (set 'comment true) ))
          (true (push ch result) ))))
  ;return from outer let
    (trim (join (reverse result)) "" " ") ))

which is used like this:

Code Select Expand
(set 'OUT "outfile.lsp"
(set 'IN "infile.lsp"
(set 'NL "rn")
(write-file OUT (join (map uncomment (parse (read-file IN) NL)) NL))

Title:
Post by: HPW on July 07, 2005, 11:37:51 PM

Thanks Sam,

much more lispy!

I will give it a try.

Later: Works fine!

Title:
Post by: Dmi on July 08, 2005, 09:22:32 AM

Hmm... I'm very new to newLisp (and Lisp too).

Is the "explode" usage a correct resource-saving method of string handling here?

Say, if I need to similar parsing of syntactical structures that can be several k-bytes in length and goes in uninterruptable stream.

Will be the following version more efficient?

Or can I not to take care of that?

only modified fragment here:

Code Select Expand
(define (uncomment str)
  (let
    ( pos 0             ; my change here
      result '()
      comment nil
      in-quote nil
    )
  ;body of let
    (until (or comment (empty? (pos 1 str)))  ; my change here
      (let
        ( ch ((- (inc 'pos) 1) 1 str) )       ;my change here

Title:
Post by: alex on December 12, 2005, 12:13:26 AM

My version :)

Code Select Expand

(define (no-comments src)
# Remove all comments from newlisp program
# ATTENTION! The program must have RIGHT SYNTAX
# Example:
#     (println (no-comments (read-file "prog.lsp")))
#
  (setq src (append "(let (____ (lambda ()n" src "n))(eval ____))"))
  (regex "^[(] *lambda *[(][)] *(.*) *[)]$" (string (eval-string src)) 4)
  $1
)

Title:
Post by: HPW on December 12, 2005, 01:20:06 AM

Very short and very fast.

Smart idea to use newLISP's own parser.

;-)

Title:
Post by: alex on February 13, 2006, 05:50:33 AM

It can be shorter:

Code Select Expand

# by Alex  version 2005.02.08
(define (no-comments src) (rest (chop (string (eval-string (append "'(" src ")"))))))

;)

Title:
Post by: Fanda on February 13, 2006, 10:20:00 PM

Very nice! I like it!

Fanda

Title:
Post by: alex on February 14, 2006, 11:49:02 AM

I am sorry, it was version 2006.02.08 :-)

newLISP Fan Club

Forum => Anything else we might add? => Topic started by: HPW on July 07, 2005, 12:30:07 AM