From 10a314bf1195fa1fd8c131808ef11480ef353fb3 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 28 Mar 2002 17:12:47 +0000 Subject: [PATCH] r1691: *** empty log message *** --- examples/atoifl.cl | 10 +++++++++- tests/atoifl.cl | 10 +++++++++- 2 files changed, 18 insertions(+), 2 deletions(-) diff --git a/examples/atoifl.cl b/examples/atoifl.cl index d6e48fd..3db5a8b 100644 --- a/examples/atoifl.cl +++ b/examples/atoifl.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: atoifl.cl,v 1.1 2002/03/25 01:24:35 kevin Exp $ +;;;; $Id: atoifl.cl,v 1.2 2002/03/28 17:11:11 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -22,6 +22,14 @@ ((str :cstring)) :returning :int) +(uffi:def-function ("atol" c-atoi) + ((str :cstring)) + :returning :long) + +(uffi:def-function ("atof" c-atoi) + ((str :cstring)) + :returning :double) + (defun atoi (str) "Returns a int from a string." (uffi:with-cstring (str-cstring str) diff --git a/tests/atoifl.cl b/tests/atoifl.cl index d6e48fd..3db5a8b 100644 --- a/tests/atoifl.cl +++ b/tests/atoifl.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: atoifl.cl,v 1.1 2002/03/25 01:24:35 kevin Exp $ +;;;; $Id: atoifl.cl,v 1.2 2002/03/28 17:11:11 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -22,6 +22,14 @@ ((str :cstring)) :returning :int) +(uffi:def-function ("atol" c-atoi) + ((str :cstring)) + :returning :long) + +(uffi:def-function ("atof" c-atoi) + ((str :cstring)) + :returning :double) + (defun atoi (str) "Returns a int from a string." (uffi:with-cstring (str-cstring str) -- 2.34.1