Re: [Scol-tech] Module Devin

[h2zoo <h2...@fr...>]

Quel est l'int=E9r=EAt de coder les entiers sur 31 bits, alors que les ma=
chines
les codes sur 32 ?

Orki


----- Original Message -----=20
From: "Sylvain Huet" <syl...@am...>
To: <sco...@li...>
Sent: Monday, December 13, 2004 8:18 AM
Subject: Re: [Scol-tech] Module Devin


>
> Ce n'est pas un bug, c'est simplement que les entiers Scol sont sur 31
> bits.
>
> La solution est assez simple : il ne faut jamais utiliser directement l=
a
> valeur issue d'une fonction 'time' (ni en Scol, ni en C, ni en Java, ni=
 en
> ce que tu veux ; les valeurs 32 bits auront le m=EAme probl=E8me en 203=
0 et
> quelques). Il faut au contraire consid=E9rer la diff=E9rence entre deux
> valeurs
> de time, celle que tu mesures, et une autre qui sert de r=E9f=E9rence.
>
> Sylvain
>
>
>
>
> ----- Original Message -----
> From: "Bourineau Bastien" <bbo...@ky...>
> To: <sco...@li...>
> Sent: Monday, December 13, 2004 5:48 AM
> Subject: RE: [Scol-tech] Module Devin
>
>
> C'est un bug de la fonction que je crois seb a d=E9j=E0 rencontr=E9 pou=
r le
> sitedir. (bug de l'an 2002 ou 1 je sais plus lol)
>
> Peut etre a t'il une solution pour gruger le truc ?!
>
> @+
>
> Arkeon.
>
>
>
> -----Message d'origine-----
> De : sco...@li...
> [mailto:sco...@li...] De la part de Chanduroi
> Envoy=E9 : lundi 13 d=E9cembre 2004 04:22
> =C0 : sco...@li...
> Objet : Re: [Scol-tech] Module Devin
>
> salut
>
> En fait je viens de me rappeler que la valeur mentionn=E9 dans mon pr=E9=
c=E9dent
> message correspond =E0 peu pr=E8s au temps =E9coul=E9 depuis le 1 Janvi=
er 1970 et
> le
>
> moment o=F9 a eut lieu  la pemi=E8re requ=EAte du module inscrite dans =
la base
> de
> donn=E9e.
>
>
> Mais pourquoi en valeur n=E9gative et pourquoi l=E0 ????
>
>
>
> ----- Original Message -----
> From: "iri" <ir...@ir...>
> To: <sco...@li...>
> Sent: Sunday, December 12, 2004 5:41 PM
> Subject: Re: [Scol-tech] Module Devin
>
>
>> J'ai d=E9j=E0 utilis=E9 ce module ... Je regarderais si j'ai pas modif=
i=E9
>> quelque
>
>> chose car je ne me rappelle pas de ce genre de pb ...
>> On peut d'ailleurs l'utiliser pour autre chose que des p=E9dictions ;-=
)
>>
>> Chanduroi a =E9crit :
>>
>>>
>>> Bonjour/soir
>>>
>>> Il y a un petit  probl=E8me avec le module devin.  C'est un module qu=
i
>>> donne une pr=E9diction al=E9atoire  sur unr base de 24 heures et qui
>>> fonctionne =E0 l'aide =E0 l'aide d'une base de donn=E9e =E0 2 tables.=
 L'une de
>>> ses tables contient 3 colonnes soit login, DernierePrediction,
>>> NumDernierePrediction.
>>> C'est la colonne DernierePrediction qui pose un probl=E8me normalemen=
t si
>>> l'on se fie au code du fichier devins.pkg, la valeur num=E9rique insc=
rite
>>> dans cette colonne doit =EAtre sup=E9rieur =E0 z=E9ro. Cette valeur e=
st exprim=E9
>>> en secondes et est calcull=E9 sur une base de 24 heures. Donc le plug=
in
>>> v=E9rifie si la valeur est sup=E9rieur ou inf=E9rieur =E0 86400 pour =
g=E9n=E9rer une
>>> nouvelle pr=E9diction ou non selon la date de la derni=E8re requ=EAte=
 donc si
>>> 24 heures se sont =E9coul=E9s depuis la derni=E8re pr=E9diction..
>>>
>>> Or dans mon cas la valeur inscrite est toujours n=E9gative et commenc=
e
>>> par -1044596xxx  .
>>> J'ai v=E9rifi=E9 diff=E9rentes valeurs qui s'incrivent selon des temp=
s =E9coul=E9s
>>> diff=E9rent  et c'est bien des secondes qui d=E9comptent comme valeur
>>> inscrites.
>>> Donc en th=E9orie, une nouvelle pr=E9diction possible par le plugin t=
out les
>>> 33 ans et des poussi=E8res....
>>>
>>> Le bout de code qui s'occupe de la question est:
>>> SqlRequest DBConnection (strcatn "UPDATE "::SLoginTableName::" SET
>>> NumDernierePrediction =3D "::
>>>
>>> (itoa IpredictionNumber)::", DernierePrediction =3D "::(itoa time)::
>>>
>>> " WHERE login =3D ?"::nil)
>>>
>>> (SQL_CHAR (_DMSgetLogin UtoC u))::nil ;
>>>
>>>
>>> let SqlDescErr DBConnection -> [ _ _ _ IlineCount ] in
>>>
>>> (
>>>
>>> let SqlCod DBConnection -> IerrorCode in
>>>
>>> (
>>>
>>> if ( IerrorCode =3D=3D SQL_SUCCESS ) && (IlineCount =3D=3D 1) then
>>>
>>> (
>>>
>>> _DMSeventTag this u "sendRandomPrediction" SreadPrediction nil nil ;
>>>
>>> 0 ;
>>>
>>> )
>>>
>>> else
>>>
>>> (
>>>
>>> let strcatn (_DMSgetName this)::( _loc this "ErreurSQLUpdateLogin" ni=
l)
>>>
>>> ::(_DMSgetLogin UtoC u)::nil -> SerrorMsg in
>>>
>>> (
>>>
>>> ErrorMessage SerrorMsg;
>>>
>>> LastSQLErrorMessage;
>>>
>>> 0
>>>
>>> )
>>>
>>> )
>>>
>>> )
>>>
>>> )
>>>
>>> )
>>>
>>> )
>>>
>>> )
>>>
>>> O=F9 est le probl=E8me?? une petite id=E9e???
>>>
>>> merci.
>>>
>>>
>>>
>>> -------------------------------------------------------
>>> SF email is sponsored by - The IT Product Guide
>>> Read honest & candid reviews on hundreds of IT Products from real use=
rs.
>>> Discover which products truly live up to the hype. Start reading now.
>>> http://productguide.itmanagersjournal.com/
>>> _______________________________________________
>>> Scol-tech mailing list
>>> Sco...@li...
>>> https://lists.sourceforge.net/lists/listinfo/scol-tech
>>>
>>>
>>
>>
>> -------------------------------------------------------
>> SF email is sponsored by - The IT Product Guide
>> Read honest & candid reviews on hundreds of IT Products from real user=
s.
>> Discover which products truly live up to the hype. Start reading now.
>> http://productguide.itmanagersjournal.com/
>> _______________________________________________
>> Scol-tech mailing list
>> Sco...@li...
>> https://lists.sourceforge.net/lists/listinfo/scol-tech
>
>
>
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from real users=
.
> Discover which products truly live up to the hype. Start reading now.
> http://productguide.itmanagersjournal.com/
> _______________________________________________
> Scol-tech mailing list
> Sco...@li...
> https://lists.sourceforge.net/lists/listinfo/scol-tech
>
>
>
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from real users=
.
> Discover which products truly live up to the hype. Start reading now.
> http://productguide.itmanagersjournal.com/
> _______________________________________________
> Scol-tech mailing list
> Sco...@li...
> https://lists.sourceforge.net/lists/listinfo/scol-tech
>
>
>
>
>
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from real users=
.
> Discover which products truly live up to the hype. Start reading now.
> http://productguide.itmanagersjournal.com/
> _______________________________________________
> Scol-tech mailing list
> Sco...@li...
> https://lists.sourceforge.net/lists/listinfo/scol-tech
>