Re: gEDA-user: gnetlist backend for xml-bom generation

[Mike Crowe <mcrowe@xxxxxxxxxxxxxxxxxx>]

Thanks
I know so little about scheme that I don't know what's needed and what's
not!

On Wed, 2009-02-25 at 21:18 +0000, Peter TB Brett wrote:
> On Wednesday 25 February 2009 19:22:37 Mike Crowe wrote:
> 
> >(define xmlsearchandreplace
> >  (lambda (s1 sstring rstring spos)
> >        (let ((fpos1 (string-contains s1 sstring spos)))
> >                (if fpos1  
> >                (begin
> >                        (xmlsearchandreplace (string-insert s1 (+ 1
> >fpos1) rstring ) sstring rstring (+ fpos1 (string-length rstring)))
> >                )
> >                (begin
> >                        s1
> >                )
> >                )
> >        )
> >  )
> >)  
> 
> I consider this more readable. :P Note the alternative define syntax.
> 
> (define (xmlsearchandreplace s1 sstring rstring spos)
>   (let ((fpos1 (string-contains s1 sstring spos)))
>     (if fpos1
>         (xmlsearchandreplace
>          (string-insert s1 (+ 1 fpos1) rstring)
>          sstring rstring
>          (+ fpos1 (string-length rstring)))
>         s1)))
> 
> 
> 
>                                               Peter
> 
> 
> _______________________________________________
> geda-user mailing list
> geda-user@xxxxxxxxxxxxxx
> http://www.seul.org/cgi-bin/mailman/listinfo/geda-user
-- 
+---------------------------------------------------------------+
Mike Crowe
Gulf Coast Data Concepts
611 Nicholson Ave
Waveland, MS  39576
e-mail: mcrowe@xxxxxxxxxxxxxxxxxx
phone: 228.424.6307
30d 17.753' North  089d 22.022' West
home of the USB-Accelerometer 
http://www.gcdataconcepts.com/xlr8r-1.html
+---------------------------------------------------------------+



_______________________________________________
geda-user mailing list
geda-user@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-user