Is there something between `prin1-to-string' and `princ'?

Is there something between `prin1-to-string' and `princ'?

[Thorsten Jolitz]

Hi List, 

using `prin1-to-string' on a property list gives me:

,-------------------------------------------------------------
| ... :CATEGORY "tmp2" :title (#("C2 " 0 3 (:parent nil))) ...
`-------------------------------------------------------------

using `princ' gives me:

,-----------------------------------
| ... :CATEGORY tmp2 :title (C2) ...
`-----------------------------------

but what I want is either

,-----------------------------------
| ... :CATEGORY "tmp2" :title (C2) ...
`-----------------------------------

or even better

,-----------------------------------
| ... :CATEGORY "tmp2" :title ("C2") ...
`-----------------------------------

but there seems to be no print command or configuration option that
gives me strings quoted, but text without properties at the same time?

PS
this is not about `buffer-substring-no-properties' or so, its about how
to print out a *given* property list in a certain format.

-- 
cheers,
Thorsten

Re: Is there something between `prin1-to-string' and `princ'?

[Pascal J. Bourguignon]

Thorsten Jolitz <tjolitz@gmail.com> writes:

> Hi List, 
> or even better
>
> ,-----------------------------------
> | ... :CATEGORY "tmp2" :title ("C2") ...
> `-----------------------------------
>
> but there seems to be no print command or configuration option that
> gives me strings quoted, but text without properties at the same time?

I'm afraid, you'll have to strip the properties before printing.
cf.:   substring-no-properties

(defun sexp-remove-string-properties (sexp)
   (cond
      ((stringp sexp) (substring-no-properties sexp))
      ((atom sexp) sexp)
      (t (cons (sexp-remove-string-properties (car sexp))
               (sexp-remove-string-properties (cdr sexp))))))

(prin1-to-string
  (sexp-remove-string-properties    
    '(:category "tmp2" :title (#("C2 " 0 3 (:parent nil))))))
--> "(:category \"tmp2\" :title (\"C2 \"))"

-- 
__Pascal Bourguignon__
http://www.informatimago.com/

Re: Is there something between `prin1-to-string' and `princ'?

[Thorsten Jolitz]

"Pascal J. Bourguignon" <pjb@informatimago.com> writes:

> Thorsten Jolitz <tjolitz@gmail.com> writes:
>
>> Hi List, 
>> or even better
>>
>> ,-----------------------------------
>> | ... :CATEGORY "tmp2" :title ("C2") ...
>> `-----------------------------------
>>
>> but there seems to be no print command or configuration option that
>> gives me strings quoted, but text without properties at the same time?
>
> I'm afraid, you'll have to strip the properties before printing.
> cf.:   substring-no-properties
>
> (defun sexp-remove-string-properties (sexp)
>    (cond
>       ((stringp sexp) (substring-no-properties sexp))
>       ((atom sexp) sexp)
>       (t (cons (sexp-remove-string-properties (car sexp))
>                (sexp-remove-string-properties (cdr sexp))))))
>
> (prin1-to-string
>   (sexp-remove-string-properties    
>     '(:category "tmp2" :title (#("C2 " 0 3 (:parent nil))))))
> --> "(:category \"tmp2\" :title (\"C2 \"))"

Exactly what I need, thank you!

-- 
cheers,
Thorsten

Re: Is there something between `prin1-to-string' and `princ'?

[Thorsten Jolitz]

"Pascal J. Bourguignon" <pjb@informatimago.com> writes:

> (defun sexp-remove-string-properties (sexp)
>    (cond
>       ((stringp sexp) (substring-no-properties sexp))
>       ((atom sexp) sexp)
>       (t (cons (sexp-remove-string-properties (car sexp))
>                (sexp-remove-string-properties (cdr sexp))))))
>
> (prin1-to-string
>   (sexp-remove-string-properties    
>     '(:category "tmp2" :title (#("C2 " 0 3 (:parent nil))))))
> --> "(:category \"tmp2\" :title (\"C2 \"))"

A classic solution, but - unfortunately - applied to a (not even very
big) real world Org-mode parse-tree the debugger is entered immediately
(without showing a backtrace really). I think recursion becomes to deep
and max number of allowed symbols is exceeded rapidly.

Although this asks for a recursive solution, I would need one that works
on really big sexp's (like parse-trees of moderate to big .org files). 

Is that possible, or do I de facto need some kind of iterative solution
here for the real world? 

-- 
cheers,
Thorsten