How to change a symbol to a string ?

Hi,

I need to change a symbol : (c:scale) to a string "(c:scale)".

Is that possible ?

 

Please define what you mean by the term "symbol".


Dave

 

Marcel -

maybe (vl-princ-to-string '(c:scale)) ?

if you don't quote the function it will be called.

You may also want to look at the atoms-family function.

Peter

 

I forget who wrote this, but I've had since 1998.


;converts a quoted symbol to a string
(defun symstr (name)
(if (= (type name) 'SYM)
(
(list
(if (boundp name)
(cons '/ (atoms-family 0))
(cons '/ (cons name (atoms-family 0)))
)
(list setq name 0)
(list car (list atoms-family 1))
)
)
nil
)
)


-David

 

Command: (defun c:foo () (princ "foo"))
C:FOO

Command: (vl-princ-to-string c:foo)
"#<SUBR @02e5b5a0 C:FOO>"

Command: (vl-princ-to-string (c:foo))
foo"foo"

Command: (vl-princ-to-string '(c:foo))
"(C:FOO)"

 

Dan,

How to do the reverse? String/Character to variable name?

Thanks,

MNRaghu

 

Use the READ function.

- Rusty

 

Here are three methods I was told about here -
(vl-symbol-value (quote (strcat "C:" CNAME))) ;does NOT generate warning
during fas build
(eval (list (read (strcat "C:" CNAME)))) ;generates warning
during fas build
(apply (read (strcat "C:" CNAME)) nil) ;generates warning
during fas build

 

Alan and Rusty,

Thanks for the solutions.

MNRaghu