Menu
▾
▴
htoolkit-users — HToolkit Users Forum
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(2) |
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(6) |
Feb
(6) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(3) |
Sep
(5) |
Oct
(8) |
Nov
(4) |
Dec
(1) |
| 2004 |
Jan
(2) |
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2005 |
Jan
|
Feb
(8) |
Mar
(8) |
Apr
|
May
|
Jun
(6) |
Jul
|
Aug
|
Sep
(1) |
Oct
(1) |
Nov
(4) |
Dec
(2) |
| 2006 |
Jan
(1) |
Feb
(5) |
Mar
(3) |
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
(8) |
Sep
|
Oct
(1) |
Nov
(3) |
Dec
(3) |
| 2007 |
Jan
(5) |
Feb
(11) |
Mar
(5) |
Apr
(5) |
May
|
Jun
(1) |
Jul
(3) |
Aug
(2) |
Sep
(9) |
Oct
(4) |
Nov
(6) |
Dec
(6) |
| 2008 |
Jan
(7) |
Feb
(9) |
Mar
(39) |
Apr
(23) |
May
(17) |
Jun
(5) |
Jul
(31) |
Aug
(16) |
Sep
(10) |
Oct
(23) |
Nov
(53) |
Dec
(61) |
| 2009 |
Jan
(31) |
Feb
(17) |
Mar
(23) |
Apr
(46) |
May
(122) |
Jun
(87) |
Jul
(67) |
Aug
(24) |
Sep
(23) |
Oct
(39) |
Nov
(10) |
Dec
(15) |
| 2010 |
Jan
(9) |
Feb
(9) |
Mar
(35) |
Apr
(55) |
May
(91) |
Jun
(60) |
Jul
(32) |
Aug
(50) |
Sep
(20) |
Oct
(3) |
Nov
(1) |
Dec
|
| 2011 |
Jan
(1) |
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
(1) |
Jul
(1) |
Aug
|
Sep
|
Oct
(1) |
Nov
(1) |
Dec
|
| 2012 |
Jan
|
Feb
(2) |
Mar
|
Apr
(1) |
May
(1) |
Jun
|
Jul
|
Aug
(2) |
Sep
|
Oct
|
Nov
(1) |
Dec
|
| 2015 |
Jan
(1) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Quinn <Fut...@gm...> - 2007-01-23 20:55:34
|
triply
countermovement tripling
Press Release: USSG friendliness
USA Signal Technology USSG Appoints Strategic & Learning Services=
Its Manufacturers Representative for New Mexico. pigeons
DALLAS, TX--(MARKET WIRE)--Jan 22, 2007 -- USA Signal Technology, Inc. US=
SG, a Dallas, Texas-based Company that designs, manufactures and markets =
state-of-the-art traffic signaling and video surveillance monitoring syst=
ems, as well as LED (Light Emitting Diode) traffic signals, has appointed=
Strategic & Learning Services, Inc. as its sales representative comp=
any for New Mexico. It previously appointed sales representatives for Ark=
ansas, Louisiana, Oklahoma, and Texas. israelites
Get the Whole Story on USSG - HERE narcotic
papillomata gillions
|
|
From: Nasdaq.com A. <bbb...@ca...> - 2007-01-15 00:17:44
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><title></title>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Dwindows-125=
1">
<meta http-equiv=3D"Content-Style-Type" content=3D"text/css">
</head>
<body>
<html>
<head>
A bipartisan panel on Iraq is finalizing recommedations on Iraq. The group =
led by former Secretary of State James Baker III and former Rep. Lee Hamilt=
on, D-Ind., plan to present ideas to Bush next month."Defeating them will r=
equire the full commitment of our alliance," Bush said.In Riga to attend a =
NATO summit, Bush also enlisted renewed commitments from the NATO al=
lies that have deployed 32,000 troops to Afghanistan. He said NATO c=
ommanders must have the resources and flexibility to do the job =97 an appa=
rent reference to the fact that only a handful of countries =97 primarily C=
anada, Britain, the United States and the Netherlands =97 are doing much of=
the heavy lifting in the dangerous southern provinces against a resurgent =
Taliban.<br><br>
<style type=3D"text/css">
<!--
style1 {
font-weight: bold;
color: #CC0033;
}
body {
background-color: #CCCCFF;
}
style10 {color: #FFFF00}
style11 {color: blue}
style14 {color: #0000FF}
style16 {
color: #990066;
font-size: large;
}
-->
</style>
<meta http-equiv=3D"Content-Type" content=3D"text/html; charset=3Diso-8859-=
1"></head>
<body>
<hr size=3D"2">
<strong><tt>WE REPRESENT YOU STOCK WITH GOOD GROWTH POTENTIAL-<span class=
=3D"style10">MARSHALL HOLDINGS INTERNATIONAL(MHII.OB)</span>!!!</tt><br>
<tt>THIS SHARE CONTAINS OF:</tt></strong></strong>
<div align=3D"left">
<ul class=3D"style1">
<li><tt>FINANCIAL ADVANTAGE</tt></li>
<li><tt>STRONG CASH FLOWS</tt></li>
<li><tt>STEADY AND INCREASING COURSE</tt></li>
</ul>
<strong><tt>FAST GRAB THIS INCREDIBLE SHARE!!!<br>
THE NEXT PRICES ARE: <u><span class=3D"style14">JAN 8=3D0.01$</span></u> A=
ND CURRENT <u><span class=3D"style14">JAN 12=3D0.04$</span></u> ON TUESDAY =
<span class=3D"style14"><u>IT WILL 0.17$</u>!!!</span><br>
IT GROWTHS MORE THAN <span class=3D"style11">40%</span> EVERY DAY!!! BE CA=
REFUL JOIN THIS STOCK<br>
<span class=3D"style10">(MHII.OB)</span> SHARES HELP YOU TO FULFILL YOUR A=
IMS.<br>
GRAB IT EXACTLY ON <span class=3D"style16">TUESDAY</span> NEXT WEEK!!!
</tt></strong>
</div>
<hr size=3D"2">
</body>
The commissioners are expected to debate the feasibility of withdrawal time=
tables.<br><br>
</html>
</body></html>
|
|
From: Krasimir A. <kr....@gm...> - 2006-11-19 21:30:15
|
Hi Demius, Are you sure that HSQL can see the OCI header files? If not you can fill the "include-dirs" field in the generated Oracle.buildinfo file. Cheers, Krasimir On 11/17/06, Demius Academius <dem...@ma...> wrote: > Hello! > > I can not compile HSQL Oracle driver > when I run : runghc Setup.lhs build, was many errors > > Database/HSQL/HsOCI.h:7:0: error: syntax error before "OCIParam" > Database/HSQL/HsOCI.h:7:0: warning: no semicolon at end of struct or union > Database/HSQL/HsOCI.h:8:0: warning: type defaults to `int' in > declaration of `dtype' > Database/HSQL/HsOCI.h:8:0: warning: data definition has no type or > storage class > Database/HSQL/HsOCI.h:9:0: error: syntax error before "dsize" > Database/HSQL/HsOCI.h:9:0: warning: type defaults to `int' in > declaration of `dsize' > Database/HSQL/HsOCI.h:9:0: warning: data definition has no type or > storage class > Database/HSQL/HsOCI.h:10:0: error: syntax error before "dprec" > Database/HSQL/HsOCI.h:10:0: warning: type defaults to `int' in > declaration of `dprec' > etc > > In Oracle.buildinfo I have: > extra-lib-dirs: "C:\Oracle\Ora9\oci\lib\msvc" > include-dirs: "C:\Oracle\Ora9\oci\include" > > What I do wrong? > > Sorry for my English, thanks > > ------------------------------------------------------------------------- > Take Surveys. Earn Cash. Influence the Future of IT > Join SourceForge.net's Techsay panel and you'll get the chance to share your > opinions on IT & business topics through brief surveys - and earn cash > http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV > _______________________________________________ > htoolkit-users mailing list > hto...@li... > https://lists.sourceforge.net/lists/listinfo/htoolkit-users > |
|
From: Demius A. <dem...@ma...> - 2006-11-17 11:36:14
|
Hello! I can not compile HSQL Oracle driver when I run : runghc Setup.lhs build, was many errors Database/HSQL/HsOCI.h:7:0: error: syntax error before "OCIParam" Database/HSQL/HsOCI.h:7:0: warning: no semicolon at end of struct or union Database/HSQL/HsOCI.h:8:0: warning: type defaults to `int' in declaration of `dtype' Database/HSQL/HsOCI.h:8:0: warning: data definition has no type or storage class Database/HSQL/HsOCI.h:9:0: error: syntax error before "dsize" Database/HSQL/HsOCI.h:9:0: warning: type defaults to `int' in declaration of `dsize' Database/HSQL/HsOCI.h:9:0: warning: data definition has no type or storage class Database/HSQL/HsOCI.h:10:0: error: syntax error before "dprec" Database/HSQL/HsOCI.h:10:0: warning: type defaults to `int' in declaration of `dprec' etc In Oracle.buildinfo I have: extra-lib-dirs: "C:\Oracle\Ora9\oci\lib\msvc" include-dirs: "C:\Oracle\Ora9\oci\include" What I do wrong? Sorry for my English, thanks |
|
From: Al A. <Cro...@gm...> - 2006-10-26 20:16:11
|
barrel sam Our attorneys have discovered a loop hole in the banking laws. starfish. Using this discovery we have been successful at totally eliminating peoples CreditCardDebt with out them paying another dime. woodland. We GuaranteeThat we can do this for you. divergent. http://89.0x0000068.000000160.00000025 investigate yourself declamatory |
|
From: Frederik E. <fre...@a5...> - 2006-08-25 15:05:27
|
On Fri, Aug 25, 2006 at 11:20:55AM +0200, Bj=F6rn Bringert wrote: > Sorry for the delay, I've been on vacation. The timezone patch has been= committed.=20 Thanks. > I haven't added the Makefile, since I think that some cabal tools > that will come with GHC 6.6 could make it obsolete. I haven't heard of these, but I doubt that anything is going to be incompatible with the use of a makefile. The Makefile just runs the commands that you ask people to run, except that it figures out when 'runhaskell Setup.lhs configure' isn't necessary - and of course, it's much more concise to use. But you know better than I do. Frederik > Frederik Eaton wrote: > >Hi, > >Oops, sorry, there was a bug. Here's a more-tested patch. Stay tuned! > >(if you've already applied the last one, change HSQL.hsc's > > ctMonth =3D toEnum $ mon, > >to > > ctMonth =3D toEnum $ (mon-1), > >) > >Frederik > >On Thu, Aug 17, 2006 at 01:49:40AM +0100, Frederik Eaton wrote: > >>I'm attaching a patch which I've tested. > >> > >>I'm also attaching a Makefile derived from Bulat's IIRC, it might be > >>good to include it in those directories which contain a .cabal file. > >> > >>Thanks, > >> > >>Frederik > >> > >>On Thu, Aug 17, 2006 at 01:17:11AM +0100, Frederik Eaton wrote: > >> > >>>Hi, in > >>> > >>>HSQL/Database/HSQL.hsc > >>> > >>>instance SqlBind ClockTime where > >>>... > >>> > >>>all of the 'fromSqlValue' functions convert with respect to the loca= l > >>>timezone, while 'toSqlValue' converts with respect to UTC. Thus the > >>>values being written are not the same, it would seem, as those being > >>>read. Certainly that is the case for me. > >>> > >>>If the three appearances of currTZ within the body of that instance > >>>(and not elsewhere) are changed to 0, it should fix the problem (but= I > >>>haven't tested). > >>> > >>>Also, I don't understand why a custom function 'mkClockTime' has bee= n > >>>written in that module (it calls 'mktime' via FFI), rather than > >>>calling the standard library function toClockTime which seems to do > >>>the same thing. > >>> > >>>Frederik > >>> > >>>On Thu, Aug 10, 2006 at 04:19:36PM +0100, Frederik Eaton wrote: > >>> > >>>>In HSQL, why are 'datetime' columns interpreted as being in the loc= al > >>>>timezone? > >>>> > >>>>I would think that UTC would be more useful. If the local timezone = is > >>>>used, then it makes it more difficult to move a server between > >>>>timezones, or to have multiple servers in multiple timezones. > >>>> > >>>>Frederik > >>>> > >>>>On Sat, Aug 05, 2006 at 06:59:21PM +0100, Frederik Eaton wrote: > >>>> > >>>>>Thanks! > >>>>> > >>>>>On Sat, Aug 05, 2006 at 05:27:04PM +0200, Bjorn Bringert wrote: > >>>>> > >>>>>>On Aug 5, 2006, at 3:34 PM, Frederik Eaton wrote: > >>>>>> > >>>>>> > >>>>>>>On Sat, Aug 05, 2006 at 11:15:19AM +0200, Bjorn Bringert wrote: > >>>>>>> > >>>>>>>>On Jul 31, 2006, at 12:55 PM, Frederik Eaton wrote: > >>>>>>>> > >>>>>>>> > >>>>>>>>>Hi, > >>>>>>>>> > >>>>>>>>>I'm attaching another HSQL patch. > >>>>>>>>> > >>>>>>>>>It allows users to specify a port number with the server name = in the > >>>>>>>>>MySQL client. > >>>>>>>>> > >>>>>>>>>Frederik > >>>>>>>> > >>>>>>>>Hi Frederik, > >>>>>>>> > >>>>>>>>the patch doesn't apply cleanly against the current CVS version= . Is > >>>>>>>>there any chance you could make a patch against the CVS version > >>>>>>>>instead? > >>>>>>> > >>>>>>>It's a very simple modification, can't you just copy and paste f= rom > >>>>>>>the patch? > >>>>>> > >>>>>>It appears to have been a simple whitespace mismatch problem (tab= s in the original HSQL=20 > >>>>>>source). I have committed your patch to CVS. > >>>>>> > >>>>>>Thanks! > >>>>>> > >>>>>>/Bj=F6rn > >> > >>--=20 > >>http://ofb.net/~frederik/ > >>diff -ur HSQL-1.7-modified/HSQL/Database/HSQL.hsc HSQL-1.7-modified-2= /HSQL/Database/HSQL.hsc > >>--- HSQL-1.7-modified/HSQL/Database/HSQL.hsc 2005-12-15 20:57:18.0000= 00000 +0000 > >>+++ HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc 2006-08-17 01:43:19.00= 0000000 +0100 > >>@@ -304,28 +304,17 @@ > >> toSqlValue d =3D show d > >>-mkClockTime :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> Cloc= kTime > >>mkClockTime year mon mday hour min sec tz =3D > >>- unsafePerformIO $ do > >>- allocaBytes (#const sizeof(struct tm)) $ \ p_tm -> do > >>- (#poke struct tm,tm_sec ) p_tm (fromIntegral sec :: CInt) > >>- (#poke struct tm,tm_min ) p_tm (fromIntegral min :: CInt) > >>- (#poke struct tm,tm_hour ) p_tm (fromIntegral hour :: CInt) > >>- (#poke struct tm,tm_mday ) p_tm (fromIntegral mday :: CInt) > >>- (#poke struct tm,tm_mon ) p_tm (fromIntegral (mon-1) :: CInt) > >>- (#poke struct tm,tm_year ) p_tm (fromIntegral (year-1900) :: CInt= ) > >>- (#poke struct tm,tm_isdst) p_tm (-1 :: CInt) > >>- t <- mktime p_tm > >>-#if __GLASGOW_HASKELL__ >=3D 603 > >>- return (TOD (fromIntegral (fromEnum t) + fromIntegral (tz-currTZ)= ) 0) > >>-#else > >>- return (TOD (fromIntegral t + fromIntegral (tz-currTZ)) 0) > >>-#endif > >>-foreign import ccall unsafe mktime :: Ptr () -> IO CTime > >>- > >>-{-# NOINLINE currTZ #-} > >>-currTZ :: Int > >>-currTZ =3D ctTZ (unsafePerformIO (getClockTime >>=3D toCalendarTime)= ) -- Hack > >>+ toClockTime $ CalendarTime { > >>+ ctYear =3D year, > >>+ ctMonth =3D toEnum $ mon, > >>+ ctDay =3D mday, > >>+ ctHour =3D hour, > >>+ ctMin =3D min, > >>+ ctSec =3D sec, > >>+ ctPicosec =3D 0, > >>+ ctTZ =3D tz > >>+ } > >>parseTZ :: ReadP Int > >>parseTZ =3D (char '+' >> readDecP) `mplus` (char '-' >> fmap negate = readDecP) > >>@@ -373,14 +362,14 @@ > >> getTime :: ReadP ClockTime > >> getTime =3D do > >> (hour, minutes, seconds) <- readHMS > >>- return (mkClockTime 1970 1 1 hour minutes seconds currTZ) > >>+ return (mkClockTime 1970 1 1 hour minutes seconds 0) > >> fromSqlValue SqlDate s =3D f_read getDate s > >> where > >> getDate :: ReadP ClockTime > >> getDate =3D do > >> (year, month, day) <- readYMD > >>- return (mkClockTime year month day 0 0 0 currTZ) > >>+ return (mkClockTime year month day 0 0 0 0) > >> fromSqlValue SqlDateTimeTZ s =3D f_read getDateTimeTZ s > >> where > >>@@ -400,7 +389,7 @@ > >> getDateTime :: ReadP ClockTime > >> getDateTime =3D do > >> (year, month, day, hour, minutes, seconds) <- readDateTime > >>- return (mkClockTime year month day hour minutes seconds currTZ) > >>+ return (mkClockTime year month day hour minutes seconds 0) > >> fromSqlValue _ _ =3D Nothing > >># This Makefile is mostly a wrapper around Setup.hs for people who > >># just want to type make. > >> > >>CAS=3Drunhaskell Setup.lhs > >>CONFOPTS ?=3D --user --prefix=3D${HOME} > >>INSTOPTS ?=3D --user > >> > >>all: build > >> > >>configure: .setup-config > >>.setup-config: HSQL.cabal > >> ${CAS} configure ${CONFOPTS} > >> > >>build: configure > >> ${CAS} build > >> > >>install: build > >> ${CAS} install ${INSTOPTS} > >> > >>uninstall: unregister > >>unregister: configure > >> ${CAS} unregister > >> > >>clean: > >> -runhaskell Setup.hs clean > >> -rm -rf dist > >> -rm -f .setup-config > >> > >>.PHONY: all configure build install uninstall unregister clean > >----------------------------------------------------------------------= -- > >diff -ur HSQL-1.7-modified/HSQL/Database/HSQL.hsc HSQL-1.7-modified-2/= HSQL/Database/HSQL.hsc > >--- HSQL-1.7-modified/HSQL/Database/HSQL.hsc 2005-12-15 20:57:18.00000= 0000 +0000 > >+++ HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc 2006-08-17 22:04:23.000= 000000 +0100 > >@@ -304,28 +304,17 @@ > > toSqlValue d =3D show d > > -mkClockTime :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> Cloc= kTime > > mkClockTime year mon mday hour min sec tz =3D > >- unsafePerformIO $ do > >- allocaBytes (#const sizeof(struct tm)) $ \ p_tm -> do > >- (#poke struct tm,tm_sec ) p_tm (fromIntegral sec :: CInt) > >- (#poke struct tm,tm_min ) p_tm (fromIntegral min :: CInt) > >- (#poke struct tm,tm_hour ) p_tm (fromIntegral hour :: CInt) > >- (#poke struct tm,tm_mday ) p_tm (fromIntegral mday :: CInt) > >- (#poke struct tm,tm_mon ) p_tm (fromIntegral (mon-1) :: CInt) > >- (#poke struct tm,tm_year ) p_tm (fromIntegral (year-1900) :: CInt) > >- (#poke struct tm,tm_isdst) p_tm (-1 :: CInt) > >- t <- mktime p_tm > >-#if __GLASGOW_HASKELL__ >=3D 603 > >- return (TOD (fromIntegral (fromEnum t) + fromIntegral (tz-currTZ))= 0) > >-#else > >- return (TOD (fromIntegral t + fromIntegral (tz-currTZ)) 0) > >-#endif > >-foreign import ccall unsafe mktime :: Ptr () -> IO CTime > >- > >-{-# NOINLINE currTZ #-} > >-currTZ :: Int > >-currTZ =3D ctTZ (unsafePerformIO (getClockTime >>=3D toCalendarTime))= -- Hack > >+ toClockTime $ CalendarTime { > >+ ctYear =3D year, > >+ ctMonth =3D toEnum $ (mon-1), > >+ ctDay =3D mday, > >+ ctHour =3D hour, > >+ ctMin =3D min, > >+ ctSec =3D sec, > >+ ctPicosec =3D 0, > >+ ctTZ =3D tz > >+ } > > parseTZ :: ReadP Int > > parseTZ =3D (char '+' >> readDecP) `mplus` (char '-' >> fmap negate = readDecP) > >@@ -373,14 +362,14 @@ > > getTime :: ReadP ClockTime > > getTime =3D do > > (hour, minutes, seconds) <- readHMS > >- return (mkClockTime 1970 1 1 hour minutes seconds currTZ) > >+ return (mkClockTime 1970 1 1 hour minutes seconds 0) > > fromSqlValue SqlDate s =3D f_read getDate s > > where > > getDate :: ReadP ClockTime > > getDate =3D do > > (year, month, day) <- readYMD > >- return (mkClockTime year month day 0 0 0 currTZ) > >+ return (mkClockTime year month day 0 0 0 0) > > fromSqlValue SqlDateTimeTZ s =3D f_read getDateTimeTZ s > > where > >@@ -400,7 +389,7 @@ > > getDateTime :: ReadP ClockTime > > getDateTime =3D do > > (year, month, day, hour, minutes, seconds) <- readDateTime > >- return (mkClockTime year month day hour minutes seconds currTZ) > >+ return (mkClockTime year month day hour minutes seconds 0) > > fromSqlValue _ _ =3D Nothing > > ---------------------------------------------------------------------= --- > >----------------------------------------------------------------------= --- > >Using Tomcat but need to do more? Need to support web services, securi= ty? > >Get stuff done quickly with pre-integrated technology to make your job= easier > >Download IBM WebSphere Application Server v.1.0.1 based on Apache Gero= nimo > >http://sel.as-us.falkag.net/sel?cmd=3Dlnk&kid=3D120709&bid=3D263057&da= t=3D121642 > >----------------------------------------------------------------------= -- > >_______________________________________________ > >htoolkit-users mailing list > >hto...@li... > >https://lists.sourceforge.net/lists/listinfo/htoolkit-users >=20 --=20 http://ofb.net/~frederik/ |
|
From: <bri...@cs...> - 2006-08-25 09:26:14
|
Thanks, committed. /Bj=F6rn Frederik Eaton wrote: > Hi, >=20 > Here is another patch. Many schemata, for instance that of Wikipedia, > use "tinyint" as a synonym for "bit". So I thought it would be good to > support those: >=20 > ---------------------------------------------------------------- > diff -ur HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc HSQL-1.7-modified-3= /HSQL/Database/HSQL.hsc > --- HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc 2006-08-23 02:14:59.000= 000000 +0100 > +++ HSQL-1.7-modified-3/HSQL/Database/HSQL.hsc 2006-08-23 02:15:34.000= 000000 +0100 > @@ -277,6 +277,7 @@ > =20 > instance SqlBind Bool where > fromSqlValue SqlBit s =3D Just (s =3D=3D "t") > + fromSqlValue SqlTinyInt s =3D Just (read s /=3D (0::Int)) > fromSqlValue _ _ =3D Nothing > =20 > toSqlValue True =3D "'t'" > ---------------------------------------------------------------- >=20 > Are these patches making it in? >=20 > Thanks, >=20 > Frederik >=20 |
|
From: <bri...@cs...> - 2006-08-25 09:18:46
|
Sorry for the delay, I've been on vacation. The timezone patch has been=20 committed. I haven't added the Makefile, since I think that some cabal=20 tools that will come with GHC 6.6 could make it obsolete. /Bj=F6rn Frederik Eaton wrote: > Hi, >=20 > Oops, sorry, there was a bug. Here's a more-tested patch. Stay tuned! >=20 > (if you've already applied the last one, change HSQL.hsc's >=20 > ctMonth =3D toEnum $ mon, >=20 > to >=20 > ctMonth =3D toEnum $ (mon-1), >=20 > ) >=20 > Frederik >=20 > On Thu, Aug 17, 2006 at 01:49:40AM +0100, Frederik Eaton wrote: >=20 >>I'm attaching a patch which I've tested. >> >>I'm also attaching a Makefile derived from Bulat's IIRC, it might be >>good to include it in those directories which contain a .cabal file. >> >>Thanks, >> >>Frederik >> >>On Thu, Aug 17, 2006 at 01:17:11AM +0100, Frederik Eaton wrote: >> >>>Hi, in >>> >>>HSQL/Database/HSQL.hsc >>> >>>instance SqlBind ClockTime where >>>... >>> >>>all of the 'fromSqlValue' functions convert with respect to the local >>>timezone, while 'toSqlValue' converts with respect to UTC. Thus the >>>values being written are not the same, it would seem, as those being >>>read. Certainly that is the case for me. >>> >>>If the three appearances of currTZ within the body of that instance >>>(and not elsewhere) are changed to 0, it should fix the problem (but I >>>haven't tested). >>> >>>Also, I don't understand why a custom function 'mkClockTime' has been >>>written in that module (it calls 'mktime' via FFI), rather than >>>calling the standard library function toClockTime which seems to do >>>the same thing. >>> >>>Frederik >>> >>>On Thu, Aug 10, 2006 at 04:19:36PM +0100, Frederik Eaton wrote: >>> >>>>In HSQL, why are 'datetime' columns interpreted as being in the local >>>>timezone? >>>> >>>>I would think that UTC would be more useful. If the local timezone is >>>>used, then it makes it more difficult to move a server between >>>>timezones, or to have multiple servers in multiple timezones. >>>> >>>>Frederik >>>> >>>>On Sat, Aug 05, 2006 at 06:59:21PM +0100, Frederik Eaton wrote: >>>> >>>>>Thanks! >>>>> >>>>>On Sat, Aug 05, 2006 at 05:27:04PM +0200, Bjorn Bringert wrote: >>>>> >>>>>>On Aug 5, 2006, at 3:34 PM, Frederik Eaton wrote: >>>>>> >>>>>> >>>>>>>On Sat, Aug 05, 2006 at 11:15:19AM +0200, Bjorn Bringert wrote: >>>>>>> >>>>>>>>On Jul 31, 2006, at 12:55 PM, Frederik Eaton wrote: >>>>>>>> >>>>>>>> >>>>>>>>>Hi, >>>>>>>>> >>>>>>>>>I'm attaching another HSQL patch. >>>>>>>>> >>>>>>>>>It allows users to specify a port number with the server name in= the >>>>>>>>>MySQL client. >>>>>>>>> >>>>>>>>>Frederik >>>>>>>> >>>>>>>>Hi Frederik, >>>>>>>> >>>>>>>>the patch doesn't apply cleanly against the current CVS version. = Is >>>>>>>>there any chance you could make a patch against the CVS version >>>>>>>>instead? >>>>>>> >>>>>>>It's a very simple modification, can't you just copy and paste fro= m >>>>>>>the patch? >>>>>> >>>>>>It appears to have been a simple whitespace mismatch problem (tabs = in the original HSQL source). I=20 >>>>>>have committed your patch to CVS. >>>>>> >>>>>>Thanks! >>>>>> >>>>>>/Bj=F6rn >> >>--=20 >>http://ofb.net/~frederik/ >=20 >=20 >>diff -ur HSQL-1.7-modified/HSQL/Database/HSQL.hsc HSQL-1.7-modified-2/H= SQL/Database/HSQL.hsc >>--- HSQL-1.7-modified/HSQL/Database/HSQL.hsc 2005-12-15 20:57:18.000000= 000 +0000 >>+++ HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc 2006-08-17 01:43:19.0000= 00000 +0100 >>@@ -304,28 +304,17 @@ >>=20 >> toSqlValue d =3D show d >>=20 >>-mkClockTime :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> ClockT= ime >> mkClockTime year mon mday hour min sec tz =3D >>- unsafePerformIO $ do >>- allocaBytes (#const sizeof(struct tm)) $ \ p_tm -> do >>- (#poke struct tm,tm_sec ) p_tm (fromIntegral sec :: CInt) >>- (#poke struct tm,tm_min ) p_tm (fromIntegral min :: CInt) >>- (#poke struct tm,tm_hour ) p_tm (fromIntegral hour :: CInt) >>- (#poke struct tm,tm_mday ) p_tm (fromIntegral mday :: CInt) >>- (#poke struct tm,tm_mon ) p_tm (fromIntegral (mon-1) :: CInt) >>- (#poke struct tm,tm_year ) p_tm (fromIntegral (year-1900) :: CInt) >>- (#poke struct tm,tm_isdst) p_tm (-1 :: CInt) >>- t <- mktime p_tm >>-#if __GLASGOW_HASKELL__ >=3D 603 >>- return (TOD (fromIntegral (fromEnum t) + fromIntegral (tz-currTZ)) = 0) >>-#else >>- return (TOD (fromIntegral t + fromIntegral (tz-currTZ)) 0) >>-#endif >>-foreign import ccall unsafe mktime :: Ptr () -> IO CTime >>- >>-{-# NOINLINE currTZ #-} >>-currTZ :: Int >>-currTZ =3D ctTZ (unsafePerformIO (getClockTime >>=3D toCalendarTime)) = -- Hack >>+ toClockTime $ CalendarTime { >>+ ctYear =3D year, >>+ ctMonth =3D toEnum $ mon, >>+ ctDay =3D mday, >>+ ctHour =3D hour, >>+ ctMin =3D min, >>+ ctSec =3D sec, >>+ ctPicosec =3D 0, >>+ ctTZ =3D tz >>+ } >>=20 >> parseTZ :: ReadP Int >> parseTZ =3D (char '+' >> readDecP) `mplus` (char '-' >> fmap negate r= eadDecP) >>@@ -373,14 +362,14 @@ >> getTime :: ReadP ClockTime >> getTime =3D do >> (hour, minutes, seconds) <- readHMS >>- return (mkClockTime 1970 1 1 hour minutes seconds currTZ) >>+ return (mkClockTime 1970 1 1 hour minutes seconds 0) >>=20 >> fromSqlValue SqlDate s =3D f_read getDate s >> where >> getDate :: ReadP ClockTime >> getDate =3D do >> (year, month, day) <- readYMD >>- return (mkClockTime year month day 0 0 0 currTZ) >>+ return (mkClockTime year month day 0 0 0 0) >>=20 >> fromSqlValue SqlDateTimeTZ s =3D f_read getDateTimeTZ s >> where >>@@ -400,7 +389,7 @@ >> getDateTime :: ReadP ClockTime >> getDateTime =3D do >> (year, month, day, hour, minutes, seconds) <- readDateTime >>- return (mkClockTime year month day hour minutes seconds currTZ) >>+ return (mkClockTime year month day hour minutes seconds 0) >>=20 >> fromSqlValue _ _ =3D Nothing >>=20 >=20 >=20 >># This Makefile is mostly a wrapper around Setup.hs for people who >># just want to type make. >> >>CAS=3Drunhaskell Setup.lhs >>CONFOPTS ?=3D --user --prefix=3D${HOME} >>INSTOPTS ?=3D --user >> >>all: build >> >>configure: .setup-config >>.setup-config: HSQL.cabal >> ${CAS} configure ${CONFOPTS} >> >>build: configure >> ${CAS} build >> >>install: build >> ${CAS} install ${INSTOPTS} >> >>uninstall: unregister >>unregister: configure >> ${CAS} unregister >> >>clean: >> -runhaskell Setup.hs clean >> -rm -rf dist >> -rm -f .setup-config >> >>.PHONY: all configure build install uninstall unregister clean >=20 >=20 >=20 >=20 > -----------------------------------------------------------------------= - >=20 > diff -ur HSQL-1.7-modified/HSQL/Database/HSQL.hsc HSQL-1.7-modified-2/H= SQL/Database/HSQL.hsc > --- HSQL-1.7-modified/HSQL/Database/HSQL.hsc 2005-12-15 20:57:18.000000= 000 +0000 > +++ HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc 2006-08-17 22:04:23.0000= 00000 +0100 > @@ -304,28 +304,17 @@ > =20 > toSqlValue d =3D show d > =20 > -mkClockTime :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> ClockT= ime > mkClockTime year mon mday hour min sec tz =3D > - unsafePerformIO $ do > - allocaBytes (#const sizeof(struct tm)) $ \ p_tm -> do > - (#poke struct tm,tm_sec ) p_tm (fromIntegral sec :: CInt) > - (#poke struct tm,tm_min ) p_tm (fromIntegral min :: CInt) > - (#poke struct tm,tm_hour ) p_tm (fromIntegral hour :: CInt) > - (#poke struct tm,tm_mday ) p_tm (fromIntegral mday :: CInt) > - (#poke struct tm,tm_mon ) p_tm (fromIntegral (mon-1) :: CInt) > - (#poke struct tm,tm_year ) p_tm (fromIntegral (year-1900) :: CInt) > - (#poke struct tm,tm_isdst) p_tm (-1 :: CInt) > - t <- mktime p_tm > -#if __GLASGOW_HASKELL__ >=3D 603 > - return (TOD (fromIntegral (fromEnum t) + fromIntegral (tz-currTZ)) = 0) > -#else > - return (TOD (fromIntegral t + fromIntegral (tz-currTZ)) 0) > -#endif > -foreign import ccall unsafe mktime :: Ptr () -> IO CTime > - > -{-# NOINLINE currTZ #-} > -currTZ :: Int > -currTZ =3D ctTZ (unsafePerformIO (getClockTime >>=3D toCalendarTime)) = -- Hack > + toClockTime $ CalendarTime { > + ctYear =3D year, > + ctMonth =3D toEnum $ (mon-1), > + ctDay =3D mday, > + ctHour =3D hour, > + ctMin =3D min, > + ctSec =3D sec, > + ctPicosec =3D 0, > + ctTZ =3D tz > + } > =20 > parseTZ :: ReadP Int > parseTZ =3D (char '+' >> readDecP) `mplus` (char '-' >> fmap negate r= eadDecP) > @@ -373,14 +362,14 @@ > getTime :: ReadP ClockTime > getTime =3D do > (hour, minutes, seconds) <- readHMS > - return (mkClockTime 1970 1 1 hour minutes seconds currTZ) > + return (mkClockTime 1970 1 1 hour minutes seconds 0) > =20 > fromSqlValue SqlDate s =3D f_read getDate s > where > getDate :: ReadP ClockTime > getDate =3D do > (year, month, day) <- readYMD > - return (mkClockTime year month day 0 0 0 currTZ) > + return (mkClockTime year month day 0 0 0 0) > =20 > fromSqlValue SqlDateTimeTZ s =3D f_read getDateTimeTZ s > where > @@ -400,7 +389,7 @@ > getDateTime :: ReadP ClockTime > getDateTime =3D do > (year, month, day, hour, minutes, seconds) <- readDateTime > - return (mkClockTime year month day hour minutes seconds currTZ) > + return (mkClockTime year month day hour minutes seconds 0) > =20 > fromSqlValue _ _ =3D Nothing > =20 >=20 >=20 > -----------------------------------------------------------------------= - >=20 > -----------------------------------------------------------------------= -- > Using Tomcat but need to do more? Need to support web services, securit= y? > Get stuff done quickly with pre-integrated technology to make your job = easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache Geron= imo > http://sel.as-us.falkag.net/sel?cmd=3Dlnk&kid=3D120709&bid=3D263057&dat= =3D121642 >=20 >=20 > -----------------------------------------------------------------------= - >=20 > _______________________________________________ > htoolkit-users mailing list > hto...@li... > https://lists.sourceforge.net/lists/listinfo/htoolkit-users |
|
From: Frederik E. <fre...@a5...> - 2006-08-23 01:18:13
|
Hi,
Here is another patch. Many schemata, for instance that of Wikipedia,
use "tinyint" as a synonym for "bit". So I thought it would be good to
support those:
----------------------------------------------------------------
diff -ur HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc HSQL-1.7-modified-3/HSQL/Database/HSQL.hsc
--- HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc 2006-08-23 02:14:59.000000000 +0100
+++ HSQL-1.7-modified-3/HSQL/Database/HSQL.hsc 2006-08-23 02:15:34.000000000 +0100
@@ -277,6 +277,7 @@
instance SqlBind Bool where
fromSqlValue SqlBit s = Just (s == "t")
+ fromSqlValue SqlTinyInt s = Just (read s /= (0::Int))
fromSqlValue _ _ = Nothing
toSqlValue True = "'t'"
----------------------------------------------------------------
Are these patches making it in?
Thanks,
Frederik
--
http://ofb.net/~frederik/
|
|
From: Frederik E. <fre...@a5...> - 2006-08-17 21:10:50
|
Hi,
Oops, sorry, there was a bug. Here's a more-tested patch. Stay tuned!
(if you've already applied the last one, change HSQL.hsc's
ctMonth =3D toEnum $ mon,
to
ctMonth =3D toEnum $ (mon-1),
)
Frederik
On Thu, Aug 17, 2006 at 01:49:40AM +0100, Frederik Eaton wrote:
> I'm attaching a patch which I've tested.
>=20
> I'm also attaching a Makefile derived from Bulat's IIRC, it might be
> good to include it in those directories which contain a .cabal file.
>=20
> Thanks,
>=20
> Frederik
>=20
> On Thu, Aug 17, 2006 at 01:17:11AM +0100, Frederik Eaton wrote:
> > Hi, in
> >=20
> > HSQL/Database/HSQL.hsc
> >=20
> > instance SqlBind ClockTime where
> > ...
> >=20
> > all of the 'fromSqlValue' functions convert with respect to the local
> > timezone, while 'toSqlValue' converts with respect to UTC. Thus the
> > values being written are not the same, it would seem, as those being
> > read. Certainly that is the case for me.
> >=20
> > If the three appearances of currTZ within the body of that instance
> > (and not elsewhere) are changed to 0, it should fix the problem (but =
I
> > haven't tested).
> >=20
> > Also, I don't understand why a custom function 'mkClockTime' has been
> > written in that module (it calls 'mktime' via FFI), rather than
> > calling the standard library function toClockTime which seems to do
> > the same thing.
> >=20
> > Frederik
> >=20
> > On Thu, Aug 10, 2006 at 04:19:36PM +0100, Frederik Eaton wrote:
> > > In HSQL, why are 'datetime' columns interpreted as being in the loc=
al
> > > timezone?
> > >=20
> > > I would think that UTC would be more useful. If the local timezone =
is
> > > used, then it makes it more difficult to move a server between
> > > timezones, or to have multiple servers in multiple timezones.
> > >=20
> > > Frederik
> > >=20
> > > On Sat, Aug 05, 2006 at 06:59:21PM +0100, Frederik Eaton wrote:
> > > > Thanks!
> > > >=20
> > > > On Sat, Aug 05, 2006 at 05:27:04PM +0200, Bjorn Bringert wrote:
> > > > > On Aug 5, 2006, at 3:34 PM, Frederik Eaton wrote:
> > > > >=20
> > > > > >On Sat, Aug 05, 2006 at 11:15:19AM +0200, Bjorn Bringert wrote=
:
> > > > > >>On Jul 31, 2006, at 12:55 PM, Frederik Eaton wrote:
> > > > > >>
> > > > > >>>Hi,
> > > > > >>>
> > > > > >>>I'm attaching another HSQL patch.
> > > > > >>>
> > > > > >>>It allows users to specify a port number with the server nam=
e in the
> > > > > >>>MySQL client.
> > > > > >>>
> > > > > >>>Frederik
> > > > > >>
> > > > > >>Hi Frederik,
> > > > > >>
> > > > > >>the patch doesn't apply cleanly against the current CVS versi=
on. Is
> > > > > >>there any chance you could make a patch against the CVS versi=
on
> > > > > >>instead?
> > > > > >
> > > > > >It's a very simple modification, can't you just copy and paste=
from
> > > > > >the patch?
> > > > >=20
> > > > > It appears to have been a simple whitespace mismatch problem (t=
abs in the original HSQL source). I=20
> > > > > have committed your patch to CVS.
> > > > >=20
> > > > > Thanks!
> > > > >=20
> > > > > /Bj=F6rn
>=20
> --=20
> http://ofb.net/~frederik/
> diff -ur HSQL-1.7-modified/HSQL/Database/HSQL.hsc HSQL-1.7-modified-2/H=
SQL/Database/HSQL.hsc
> --- HSQL-1.7-modified/HSQL/Database/HSQL.hsc 2005-12-15 20:57:18.000000=
000 +0000
> +++ HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc 2006-08-17 01:43:19.0000=
00000 +0100
> @@ -304,28 +304,17 @@
> =20
> toSqlValue d =3D show d
> =20
> -mkClockTime :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> ClockT=
ime
> mkClockTime year mon mday hour min sec tz =3D
> - unsafePerformIO $ do
> - allocaBytes (#const sizeof(struct tm)) $ \ p_tm -> do
> - (#poke struct tm,tm_sec ) p_tm (fromIntegral sec :: CInt)
> - (#poke struct tm,tm_min ) p_tm (fromIntegral min :: CInt)
> - (#poke struct tm,tm_hour ) p_tm (fromIntegral hour :: CInt)
> - (#poke struct tm,tm_mday ) p_tm (fromIntegral mday :: CInt)
> - (#poke struct tm,tm_mon ) p_tm (fromIntegral (mon-1) :: CInt)
> - (#poke struct tm,tm_year ) p_tm (fromIntegral (year-1900) :: CInt)
> - (#poke struct tm,tm_isdst) p_tm (-1 :: CInt)
> - t <- mktime p_tm
> -#if __GLASGOW_HASKELL__ >=3D 603
> - return (TOD (fromIntegral (fromEnum t) + fromIntegral (tz-currTZ)) =
0)
> -#else
> - return (TOD (fromIntegral t + fromIntegral (tz-currTZ)) 0)
> -#endif
> -foreign import ccall unsafe mktime :: Ptr () -> IO CTime
> -
> -{-# NOINLINE currTZ #-}
> -currTZ :: Int
> -currTZ =3D ctTZ (unsafePerformIO (getClockTime >>=3D toCalendarTime)) =
-- Hack
> + toClockTime $ CalendarTime {
> + ctYear =3D year,
> + ctMonth =3D toEnum $ mon,
> + ctDay =3D mday,
> + ctHour =3D hour,
> + ctMin =3D min,
> + ctSec =3D sec,
> + ctPicosec =3D 0,
> + ctTZ =3D tz
> + }
> =20
> parseTZ :: ReadP Int
> parseTZ =3D (char '+' >> readDecP) `mplus` (char '-' >> fmap negate r=
eadDecP)
> @@ -373,14 +362,14 @@
> getTime :: ReadP ClockTime
> getTime =3D do
> (hour, minutes, seconds) <- readHMS
> - return (mkClockTime 1970 1 1 hour minutes seconds currTZ)
> + return (mkClockTime 1970 1 1 hour minutes seconds 0)
> =20
> fromSqlValue SqlDate s =3D f_read getDate s
> where
> getDate :: ReadP ClockTime
> getDate =3D do
> (year, month, day) <- readYMD
> - return (mkClockTime year month day 0 0 0 currTZ)
> + return (mkClockTime year month day 0 0 0 0)
> =20
> fromSqlValue SqlDateTimeTZ s =3D f_read getDateTimeTZ s
> where
> @@ -400,7 +389,7 @@
> getDateTime :: ReadP ClockTime
> getDateTime =3D do
> (year, month, day, hour, minutes, seconds) <- readDateTime
> - return (mkClockTime year month day hour minutes seconds currTZ)
> + return (mkClockTime year month day hour minutes seconds 0)
> =20
> fromSqlValue _ _ =3D Nothing
> =20
> # This Makefile is mostly a wrapper around Setup.hs for people who
> # just want to type make.
>=20
> CAS=3Drunhaskell Setup.lhs
> CONFOPTS ?=3D --user --prefix=3D${HOME}
> INSTOPTS ?=3D --user
>=20
> all: build
>=20
> configure: .setup-config
> .setup-config: HSQL.cabal
> ${CAS} configure ${CONFOPTS}
>=20
> build: configure
> ${CAS} build
>=20
> install: build
> ${CAS} install ${INSTOPTS}
>=20
> uninstall: unregister
> unregister: configure
> ${CAS} unregister
>=20
> clean:
> -runhaskell Setup.hs clean
> -rm -rf dist
> -rm -f .setup-config
>=20
> .PHONY: all configure build install uninstall unregister clean
--=20
http://ofb.net/~frederik/
|
|
From: Frederik E. <fre...@a5...> - 2006-08-17 00:49:32
|
I'm attaching a patch which I've tested. I'm also attaching a Makefile derived from Bulat's IIRC, it might be good to include it in those directories which contain a .cabal file. Thanks, Frederik On Thu, Aug 17, 2006 at 01:17:11AM +0100, Frederik Eaton wrote: > Hi, in >=20 > HSQL/Database/HSQL.hsc >=20 > instance SqlBind ClockTime where > ... >=20 > all of the 'fromSqlValue' functions convert with respect to the local > timezone, while 'toSqlValue' converts with respect to UTC. Thus the > values being written are not the same, it would seem, as those being > read. Certainly that is the case for me. >=20 > If the three appearances of currTZ within the body of that instance > (and not elsewhere) are changed to 0, it should fix the problem (but I > haven't tested). >=20 > Also, I don't understand why a custom function 'mkClockTime' has been > written in that module (it calls 'mktime' via FFI), rather than > calling the standard library function toClockTime which seems to do > the same thing. >=20 > Frederik >=20 > On Thu, Aug 10, 2006 at 04:19:36PM +0100, Frederik Eaton wrote: > > In HSQL, why are 'datetime' columns interpreted as being in the local > > timezone? > >=20 > > I would think that UTC would be more useful. If the local timezone is > > used, then it makes it more difficult to move a server between > > timezones, or to have multiple servers in multiple timezones. > >=20 > > Frederik > >=20 > > On Sat, Aug 05, 2006 at 06:59:21PM +0100, Frederik Eaton wrote: > > > Thanks! > > >=20 > > > On Sat, Aug 05, 2006 at 05:27:04PM +0200, Bjorn Bringert wrote: > > > > On Aug 5, 2006, at 3:34 PM, Frederik Eaton wrote: > > > >=20 > > > > >On Sat, Aug 05, 2006 at 11:15:19AM +0200, Bjorn Bringert wrote: > > > > >>On Jul 31, 2006, at 12:55 PM, Frederik Eaton wrote: > > > > >> > > > > >>>Hi, > > > > >>> > > > > >>>I'm attaching another HSQL patch. > > > > >>> > > > > >>>It allows users to specify a port number with the server name = in the > > > > >>>MySQL client. > > > > >>> > > > > >>>Frederik > > > > >> > > > > >>Hi Frederik, > > > > >> > > > > >>the patch doesn't apply cleanly against the current CVS version= . Is > > > > >>there any chance you could make a patch against the CVS version > > > > >>instead? > > > > > > > > > >It's a very simple modification, can't you just copy and paste f= rom > > > > >the patch? > > > >=20 > > > > It appears to have been a simple whitespace mismatch problem (tab= s in the original HSQL source). I=20 > > > > have committed your patch to CVS. > > > >=20 > > > > Thanks! > > > >=20 > > > > /Bj=F6rn --=20 http://ofb.net/~frederik/ |
|
From: Frederik E. <fre...@a5...> - 2006-08-17 00:17:07
|
Hi, in HSQL/Database/HSQL.hsc instance SqlBind ClockTime where ... all of the 'fromSqlValue' functions convert with respect to the local timezone, while 'toSqlValue' converts with respect to UTC. Thus the values being written are not the same, it would seem, as those being read. Certainly that is the case for me. If the three appearances of currTZ within the body of that instance (and not elsewhere) are changed to 0, it should fix the problem (but I haven't tested). Also, I don't understand why a custom function 'mkClockTime' has been written in that module (it calls 'mktime' via FFI), rather than calling the standard library function toClockTime which seems to do the same thing. Frederik On Thu, Aug 10, 2006 at 04:19:36PM +0100, Frederik Eaton wrote: > In HSQL, why are 'datetime' columns interpreted as being in the local > timezone? >=20 > I would think that UTC would be more useful. If the local timezone is > used, then it makes it more difficult to move a server between > timezones, or to have multiple servers in multiple timezones. >=20 > Frederik >=20 > On Sat, Aug 05, 2006 at 06:59:21PM +0100, Frederik Eaton wrote: > > Thanks! > >=20 > > On Sat, Aug 05, 2006 at 05:27:04PM +0200, Bjorn Bringert wrote: > > > On Aug 5, 2006, at 3:34 PM, Frederik Eaton wrote: > > >=20 > > > >On Sat, Aug 05, 2006 at 11:15:19AM +0200, Bjorn Bringert wrote: > > > >>On Jul 31, 2006, at 12:55 PM, Frederik Eaton wrote: > > > >> > > > >>>Hi, > > > >>> > > > >>>I'm attaching another HSQL patch. > > > >>> > > > >>>It allows users to specify a port number with the server name in= the > > > >>>MySQL client. > > > >>> > > > >>>Frederik > > > >> > > > >>Hi Frederik, > > > >> > > > >>the patch doesn't apply cleanly against the current CVS version. = Is > > > >>there any chance you could make a patch against the CVS version > > > >>instead? > > > > > > > >It's a very simple modification, can't you just copy and paste fro= m > > > >the patch? > > >=20 > > > It appears to have been a simple whitespace mismatch problem (tabs = in the original HSQL source). I=20 > > > have committed your patch to CVS. > > >=20 > > > Thanks! > > >=20 > > > /Bj=F6rn > > >=20 > > >=20 > > >=20 > >=20 > > --=20 > > http://ofb.net/~frederik/ > >=20 >=20 > --=20 > http://ofb.net/~frederik/ >=20 --=20 http://ofb.net/~frederik/ |
|
From: Frederik E. <fre...@a5...> - 2006-08-10 15:19:31
|
In HSQL, why are 'datetime' columns interpreted as being in the local timezone? I would think that UTC would be more useful. If the local timezone is used, then it makes it more difficult to move a server between timezones, or to have multiple servers in multiple timezones. Frederik On Sat, Aug 05, 2006 at 06:59:21PM +0100, Frederik Eaton wrote: > Thanks! >=20 > On Sat, Aug 05, 2006 at 05:27:04PM +0200, Bjorn Bringert wrote: > > On Aug 5, 2006, at 3:34 PM, Frederik Eaton wrote: > >=20 > > >On Sat, Aug 05, 2006 at 11:15:19AM +0200, Bjorn Bringert wrote: > > >>On Jul 31, 2006, at 12:55 PM, Frederik Eaton wrote: > > >> > > >>>Hi, > > >>> > > >>>I'm attaching another HSQL patch. > > >>> > > >>>It allows users to specify a port number with the server name in t= he > > >>>MySQL client. > > >>> > > >>>Frederik > > >> > > >>Hi Frederik, > > >> > > >>the patch doesn't apply cleanly against the current CVS version. Is > > >>there any chance you could make a patch against the CVS version > > >>instead? > > > > > >It's a very simple modification, can't you just copy and paste from > > >the patch? > >=20 > > It appears to have been a simple whitespace mismatch problem (tabs in= the original HSQL source). I=20 > > have committed your patch to CVS. > >=20 > > Thanks! > >=20 > > /Bj=F6rn > >=20 > >=20 > >=20 >=20 > --=20 > http://ofb.net/~frederik/ >=20 --=20 http://ofb.net/~frederik/ |
|
From: Frederik E. <fre...@a5...> - 2006-07-31 10:55:48
|
Hi, I'm attaching another HSQL patch. It allows users to specify a port number with the server name in the MySQL client. Frederik -- http://ofb.net/~frederik/ |
|
From: Duncan C. <dc...@ge...> - 2006-03-11 21:39:30
|
On Sat, 2006-03-11 at 21:32 +0100, Bjorn Bringert wrote: > > If anyone has a patch to make the sqlite3 backend work with the example > > program then I'll be happy to include that into the gentoo package and > > add the sqlite3 backend too. >=20 > I have a patch for exactly this problem. For some reason I never=20 > committed it. It is in CVS as of one minute ago. I have attached the=20 > patch against a recent CVS version, in case you want to use the 1.7=20 > release version. >=20 That's great Bj=F6rn, and very quick too! Thanks. HSQL-1.7 is now unmasked in gentoo's portage on 5 architectures: http://packages.gentoo.org/packages/?category=3Ddev-haskell It may take a couple hours for the changes to propagate and the above page to update. --=20 Duncan Coutts : Gentoo Developer (Haskell herd team lead) email : dcoutts at gentoo dot org |
|
From: Bjorn B. <bri...@cs...> - 2006-03-11 20:32:59
|
Duncan Coutts wrote: > I've been trying the test HSQL-1.7/examples/Main.hs >=20 > I've got it working for odbc, postgresql and mysql but not sqlite3. >=20 > What goes wrong is that the test program can't extract integer fields. > It's fine with varchar or string fields but not int ones. >=20 > The error reported is: > The type of id field can't be converted to SqlText type >=20 > Note that it works ok when we try to extract an int field as a Haskell > String but not an int field as a Haskell Int (which is what the example > program tries to do). >=20 > I'll add the postgresql, mysql and odbc backends to gentoo and leave th= e > sqlite3 backend for the moment. >=20 > If anyone has a patch to make the sqlite3 backend work with the example > program then I'll be happy to include that into the gentoo package and > add the sqlite3 backend too. I have a patch for exactly this problem. For some reason I never=20 committed it. It is in CVS as of one minute ago. I have attached the=20 patch against a recent CVS version, in case you want to use the 1.7=20 release version. /Bj=F6rn |
|
From: Duncan C. <dc...@ge...> - 2006-03-11 19:40:29
|
I've been trying the test HSQL-1.7/examples/Main.hs
I've got it working for odbc, postgresql and mysql but not sqlite3.
What goes wrong is that the test program can't extract integer fields.
It's fine with varchar or string fields but not int ones.
The error reported is:
The type of id field can't be converted to SqlText type
Note that it works ok when we try to extract an int field as a Haskell
String but not an int field as a Haskell Int (which is what the example
program tries to do).
I'll add the postgresql, mysql and odbc backends to gentoo and leave the
sqlite3 backend for the moment.
If anyone has a patch to make the sqlite3 backend work with the example
program then I'll be happy to include that into the gentoo package and
add the sqlite3 backend too.
--
Duncan Coutts : Gentoo Developer (Haskell herd team lead)
email : dcoutts at gentoo dot org
|
|
From: Duncan C. <dc...@ge...> - 2006-02-22 14:19:17
|
HSQL devs, I was about to package HSQL-1.7 for Gentoo but then I noticed that the tarball is called merely "HSQL.tar.gz". This makes me very nervous. What happens when HSQL-1.8 comes out? Will it be called "HSQL.tar.gz" too? That would really mess up our mirrors. So I think I'll wait until the next version comes out with a proper versioned tarball name. In the mean time, any Gentoo users who want to risk it can get the ebuilds from here: http://haskell.org/~gentoo/gentoo-haskell/ -- Duncan Coutts : Gentoo Developer (Haskell herd team lead) email : dcoutts at gentoo dot org |
|
From: Krasimir A. <ka2...@ya...> - 2006-02-16 09:09:37
|
--- Marc Weber <mar...@gm...> wrote:
> class Connection c where
> connDisconnect :: c -> ()
> connPrepare :: c -> String -> IO Integer
> [...]
It isn't that simple. You will need something like
this:
class Statement s where
stmtExecute :: s -> IO ()
stmtFetch :: s -> IO Bool
[..]
class Statement s => Connection c s | c -> s where
connDisconnect :: c -> IO ()
connQuery :: c -> IO s
[..]
I always prefer to keep the types as simple as
possible. The current solution is Haskell 98 and the
types are much simpler. With the simpler types the
compiler will generate simpler type checking errors.
The goal was to allow to connect at one place and
after that to use the @Connection@ and @Statement@
values in all places without need to know the actual
database backend. With your proposal you will have to
use type classes everywhere.
The proposal has the advantage that with it you can
provide more backend specific functions. This can be
achieved in another way too. The handles can be
defined as:
data Connection a
= Connection
{ connHandle :: a
, connExecute :: a -> String -> IO ()
, connQuery :: a -> String -> IO (Statement
a)
[..]
}
data Statement a = ....
then in Database.HSQL.MySQL:
connect :: String -> String -> IO (Connection MySQL)
With this design all platform independent functions
will use @Connection a@ while the MySQL specific will
be restricted to @Connection MySQL@. This design isn't
implemented yet because HSQL doesn't have any platform
specific functions and I don't want to change the API
without serious reasons.
Cheers,
Krasimir
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
|
|
From: Marc W. <mar...@gm...> - 2006-02-15 16:21:24
|
Connection is definied as follows:
database, through which you can operate on the it.
-- In order to create the connection you need to use the @connect@ function from the module for
-- your prefered backend.
data Connection
= Connection
{ connDisconnect :: IO ()
, connExecute :: String -> IO Integer
, connPrepare :: String -> IO Statement
, connQuery :: String -> IO Statement
, connTables :: IO [String]
, connDescribe :: String -> IO [FieldDef]
, connBeginTransaction :: IO ()
, connCommitTransaction :: IO ()
, connRollbackTransaction :: IO ()
, connClosed :: MVar Bool
}
So it's actually a record containing mostly IO () values? (or functions
with this return value? ) It doesn't matter because the IO () results
aren't evaluated as long as they aren't needed, right?
Would it be equivalent to have some kind of class design:
class Connection c where
connDisconnect :: c -> ()
connPrepare :: c -> String -> IO Integer
[...]
with an implementation for each kind of Database connection handle?
EG:
Data MySQLhandle=MySQLhandle Int
instance MySQLhandle handle where
connDisconnect c = MySQLCloseHandle $ MySQLhandle c
[ ... ] ?
The way it's implemented the connect function of MySQL simply adds this
handle to every functions as argument:
[...]
let connection = Connection
{ connDisconnect = mysql_close pMYSQL
, connExecute = execute pMYSQL
, connQuery = query connection pMYSQL
, connTables = tables connection pMYSQL
, connDescribe = describe connection pMYSQL
, connBeginTransaction = execute pMYSQL "begin" >> return ()
, connCommitTransaction = execute pMYSQL "commit" >> return ()
, connRollbackTransaction = execute pMYSQL "rollback" >> return ()
, connClosed = refFalse
}
return connection
where
[...]
In my imaginated case the connect method would just return the Database
handle.
Where is the difference?
Marc
|
|
From: Marc W. <mar...@gm...> - 2006-02-14 13:44:16
|
Hi. I'm new to HSQL. Is it possible to retrieve relation information? If you have one table CDID| CD Name and another subtable CDID| Track ID | Track Name | Track length | interpret Is it possible to retrieve this 1:n relation information via (H)SQL ? I think there was the references statement in CREATE Table query to describe this (with sub item deletion and so on) I want to write an applicatian which synchronizes databases.. So I should know where to start. I think using MySQL you should be able to find this information in the mysql database but I don't know enough about ODBC and PostgreSQL. Access (from MS Win) also has got some kind of describing tables. Would it be a good idea to think about integrating getting this kind of information into HSQL? Do you think HSQL is most advanced (I don't know about other libraries accessing databases directly yet). Marc |
|
From: Marc W. <mar...@gm...> - 2006-02-14 13:34:34
|
Clicking on the linke htoolkit-cvs mailinglist I'm beeing redirected to haskel cafe mailinglist. Is this a bug? Marc |
|
From: Krasimir A. <ka2...@ya...> - 2006-01-03 21:37:39
|
Hi Björn, Sorry for the late answer. It seems like I had uploaded a wrong version of PostgreSQL driver. The updated files are uploaded now. Thanks, Krasimir --- Björn Bringert <bri...@cs...> wrote: > When I try to build the current CVS version of HSQL, > I get this: > > bjorn@burns:~/projects/HSQL/PostgreSQL$ runghc > Setup.lhs build > Preprocessing library hsql-postgresql-1.7... > Building hsql-postgresql-1.7... > Chasing modules from: Database.HSQL.PostgreSQL > Compiling Database.HSQL.PostgreSQL ( > ./Database/HSQL/PostgreSQL.hs, > dist/build/Database/HSQL/PostgreSQL.o ) > > PostgreSQL.hsc:181:67: Not in scope: > `fromNonNullSqlCStringLen' > > > It seems like fromNonNullSqlCStringLen has been > removed from > Database.HSQL.Types, but the PostgreSQL and ODBC > drivers are still using it. > > /Björn > > > ------------------------------------------------------- > This SF.net email is sponsored by: Splunk Inc. Do > you grep through log files > for problems? Stop! Download the new AJAX search > engine that makes > searching your log files as easy as surfing the > web. DOWNLOAD SPLUNK! > http://ads.osdn.com/?ad_idv37&alloc_id865&op=click > _______________________________________________ > htoolkit-users mailing list > hto...@li... > https://lists.sourceforge.net/lists/listinfo/htoolkit-users > __________________________________________ Yahoo! DSL Something to write home about. Just $16.99/mo. or less. dsl.yahoo.com |
|
From: <bri...@cs...> - 2005-12-18 01:07:29
|
When I try to build the current CVS version of HSQL, I get this: bjorn@burns:~/projects/HSQL/PostgreSQL$ runghc Setup.lhs build Preprocessing library hsql-postgresql-1.7... Building hsql-postgresql-1.7... Chasing modules from: Database.HSQL.PostgreSQL Compiling Database.HSQL.PostgreSQL ( ./Database/HSQL/PostgreSQL.hs,=20 dist/build/Database/HSQL/PostgreSQL.o ) PostgreSQL.hsc:181:67: Not in scope: `fromNonNullSqlCStringLen' It seems like fromNonNullSqlCStringLen has been removed from=20 Database.HSQL.Types, but the PostgreSQL and ODBC drivers are still using = it. /Bj=F6rn |
|
From: Jacob N. <ja...@jf...> - 2005-11-21 02:41:51
|
I've been using HSQL with a PostgreSQL database on Linux, and things have
been going quite swimmingly. Then I started getting errors like this:
start_time is 2005-11-19 16:20:47-08
end_time is 2005-11-19 16:21:33.863-08
*** Exception: HSQL.hsc:323:13-54: Non-exhaustive patterns in case
The first two lines are generated when I pull timestamp fields out as
Strings. The exception on the third line occurs when I try to read the
start_time field as a ClockTime. The end_time field works fine. The
difference appears to be that PostgreSQL doesn't print the millisecond
field on start_time, since it's all zeros.
Armed with this observation, I jumped into the HSQL code. I'm fairly new
to Haskell and certainly new to parser combinators, but I found a
suspicious comment character lurking in the getDateTimeTZ instance of
fromSqlValue, on line 379 of HSQL.hsc:
fromSqlValue SqlDateTimeTZ s = f_read getDateTimeTZ s
where
getDateTimeTZ :: ReadP ClockTime
getDateTimeTZ = do
(year, month, day, hour, minutes, seconds) <- readDateTime
char '.' >> readDecP -- ) `mplus` (return 0)
tz <- parseTZ
return (mkClockTime year month day hour minutes seconds (tz*3600))
When I got rid of it and rebuilt, I no longer got the exception. If I
understand correctly, the mplus clause allows the parser to continue
on if the field has no milliseconds part (although we wouldn't use the
result even if it were there for us to read). Is that correct?
Is this the right change to make?
Thanks for your help,
jacob
|
1037 messages has been excluded from this view by a project administrator.
