Commit c731b962 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

C float parser is matching to nothing

The cl-ppcre C float parser is matching to nothing because there's no
single part of a float that is required; d. .d and d all possible, so
none of digit-before-decimal, decimal, or digit-after-decimal are
required.  Workaround is to check for length of 'mant and just return
the string if it's zero.
parent 076f9358
;; Convert the GSL tests
;; Liam Healy 2010-05-22 13:03:53EDT convert.lisp
;; Time-stamp: <2010-05-26 10:05:26EDT convert.lisp>
;; Time-stamp: <2010-05-26 17:57:38EDT convert.lisp>
;;; This file is not normally loaded; it is only used to convert the
;;; GSL tests in C to CL tests. It requires cl-ppcre, lisp-util, and iterate.
......@@ -59,10 +59,15 @@
(second registers)))
:simple-calls t))
(defvar *float-parse-regex*
(defparameter *float-parse-regex*
;; Based on advice given in
(cl-ppcre:parse-string "([-+]?[0-9]*\\.?[0-9]+)([eE][-+]?[0-9]+)?")
;; I'm not sure if decimal point should be mandatory; convert integers?
;; How do I insist on at least one character for the mantissa,
;; without requiring at least one of any specific component?
;; ddd ddd. ddd.ddd .ddd
;; are all permitted, but no single part is required.
(cl-ppcre:parse-string "([-+]?[0-9]*\\.?[0-9]*)([eE][-+]?[0-9]+)?")
"A ppcre regular expression that matches a C floating point number.")
(defun translate-c-numbers (string)
......@@ -71,10 +76,14 @@
(lambda (match mant expon)
(declare (ignore match))
(format nil "~ad~:[0~;~a~]" mant expon (when expon (subseq expon 1))))
(if (plusp (length mant))
(format nil "~ad~:[0~;~a~]" mant expon (when expon (subseq expon 1)))
:simple-calls t))
;; (translate-c-numbers "-5.00318309780080559e-1 5.003183097800 5.00e+13 -4.e-1 4. 4")
;; "-5.00318309780080559d-1 5.003183097800d0 5.00d+13 -4.d-1 4.d0 4d0"
(defun replace-tolerance (string)
(cl-ppcre:regex-replace "TEST_(\\w*)" string "+TEST-\\{1}+"))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment