On Thu, Apr 25, 2002 at 01:05:50PM -0700, Thien-Thi Nguyen wrote: >[...] > if someone can confirm similar behavior on another system (perhaps by > varying the appended string length), i will add this to the bugs db. > (i ask for this confirmation because my system's old sdrams are prone to > mysterious failures, and i want to rule that out as a reason.)
Ok, this is on my rather 'old' guile-1.5 box (the guile-HEAD is at home): | guile> (version) | "1.5.0" | guile> (use-modules (ice-9 regex)) | guile> | guile> (define ok "<section_name>Projects List</section_name>") | guile> | guile> (define rx (make-regexp "<section_name>(.*)</section_name>")) | guile> | guile> (define (+space s n) | ... (string-append s (make-string n #\space))) | guile> | guile> (define (test s) | ... (format #t "string-length ~A\t=> ~A\n" | ... (string-length s) | ... (if (regexp-exec rx s) | ... "ok" | ... "FAIL"))) | guile> (test ok) | string-length 42 => ok | guile> (test (+space ok 11672)) | string-length 11714 => ok | guile> (test (+space ok 11673)) | string-length 11715 => ok | guile> (test (+space ok 11674)) | string-length 11716 => FAIL | guile> (test (+space ok 11675)) | string-length 11717 => FAIL | guile> (test (+space ok 11700)) | string-length 11742 => FAIL | guile> | Hmmm, never really used guile's regex heavily - that's where i still use <blush>perl</blush>. Ralf > thi > > ____________________________________________ > (use-modules (ice-9 regex)) > > (define ok "<section_name>Projects List</section_name>") > > (define rx (make-regexp "<section_name>(.*)</section_name>")) > > (define (+space s n) > (string-append s (make-string n #\space))) > > (define (test s) > (format #t "string-length ~A\t=> ~A\n" > (string-length s) > (if (regexp-exec rx s) > "ok" > "FAIL"))) > > ;; do it > (test ok) ; ok > (test (+space ok 11672)) ; ok > (test (+space ok 11673)) ; ok > (test (+space ok 11674)) ; FAIL > (test (+space ok 11675)) ; FAIL > (test (+space ok 11700)) ; FAIL > > _______________________________________________ > Guile-user mailing list > [EMAIL PROTECTED] > http://mail.gnu.org/mailman/listinfo/guile-user _______________________________________________ Bug-guile mailing list [EMAIL PROTECTED] http://mail.gnu.org/mailman/listinfo/bug-guile
