Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1405 connectés 

  FORUM HardWare.fr
  Programmation
  Divers

  [ocaml] Référence à un object Null ?

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[ocaml] Référence à un object Null ?

n°869513
brisssou
8-/
Posté le 10-10-2004 à 17:10:06  profilanswer
 

Je ne trouve pas dans les différentes doc comment vérifier qu'un object est réellement instancié. Je voudrais faire un truc du genre :

Code :
  1. class noeud =
  2. object (this)
  3.         val mutable c = ""
  4.         val mutable fini = false
  5.         val mutable fils = Null
  6.         val mutable frere = Null
  8. (*Methodes d'access et de modification des attributs de la classe*)
  9. method getC = c
  10. method setC(str) = c <- str
  11. method setFrere(f) = frere<-f
  12. method setFils(f) = fils<-f
  13. method getFrere = if (frere#isNull) then new noeud else frere
  14. method getFils = if (fils#isNull) then new noeud else fils
  15. method isNull = (c = "" )
  16. method isFini = fini
  17. method setFini(b) = fini<-b


 
mais pas moyen, du coup, j'ai cru gruger en faisant

Code :
  1. class noeud =
  2. object (this)
  3.         val mutable c = ""
  4.         val mutable fini = false
  5.         val mutable fils = new noeud
  6.         val mutable frere = new noeud
  8. (*Methodes d'access et de modification des attributs de la classe*)
  9. method getC = c
  10. method setC(str) = c <- str
  11. method setFrere(f) = frere<-f
  12. method setFils(f) = fils<-f
  13. method getFrere = if (frere#isNull) then new noeud else frere
  14. method getFils = if (fils#isNull) then new noeud else fils
  15. method isNull = (c = "" )
  16. method isFini = fini
  17. method setFini(b) = fini<-b


 
mais évidemment, ça crash dés que je crée une instance de noeud, puisque ça crée des noeud en boucle...
 
donc, comment déclarer mes variqbles à null ?
 
merci !


---------------
HFR - Mes sujets pour Chrome - Firefox - vérifie les nouveaux posts des topics suivis/favoris
mood
Publicité
Posté le 10-10-2004 à 17:10:06  profilanswer
 

n°869549
nraynaud
lol
Posté le 10-10-2004 à 18:30:35  profilanswer
 

héhéhé, y'a pas de null en o'caml, il faut le créer toi-même :
 
type maybenode = None | Some noeud;;


---------------
trainoo.com, c'est fini
n°869804
brisssou
8-/
Posté le 11-10-2004 à 08:57:25  profilanswer
 

merci pour ta réponse !
 
pardon de faire le lourd, mais il y a un problème de syntaxe
Si je mets le code que tu m'as donné, syntaxe error
j'ai essayé type maybenode = None | Some of noeud ;; mais noeud n'est pas encore déclaré
avec  
type maybenode = None | Some;; le problème viens avec  
val mutable fils = Null
et
frere#isNull
==> j'ai un truc genre
This expression has type maybenode
It has no method isNull
 
 
merci pour tes éclairsissements (ortho ?!) :jap:


---------------
HFR - Mes sujets pour Chrome - Firefox - vérifie les nouveaux posts des topics suivis/favoris
n°871394
nraynaud
lol
Posté le 12-10-2004 à 14:17:56  profilanswer
 

hum, comme je travaille pas avec des objets, je te file un truc générique :
 
type 't maybe = None | Some of 't
 
ensuite, il faut adapter à ton type somme :
method getFrere = match frere with
  | None -> ...
  | Some f -> ...


---------------
trainoo.com, c'est fini
n°871400
nraynaud
lol
Posté le 12-10-2004 à 14:20:01  profilanswer
 

sinon, pour les types mutuellement récusifs, on utilise and :
 
type maybeMoncul = None | Some of moncul
and type moncul = ...
 
 
enfin, il me semble. la doc du langage est très bien faite, tu peux la consulter si tu as un doute.


---------------
trainoo.com, c'est fini
n°871737
brisssou
8-/
Posté le 12-10-2004 à 18:02:44  profilanswer
 

j'ai envie de dire...
 
 
 
 
 
merci beaucoup de ton aide !!!


---------------
HFR - Mes sujets pour Chrome - Firefox - vérifie les nouveaux posts des topics suivis/favoris
n°873554
brisssou
8-/
Posté le 14-10-2004 à 20:02:26  profilanswer
 

Je sais, j'abuse, mais je n'y arrive toujours pas... :

Code :
  1. type 't maybenode = None | Some of 't
  3. class noeud =
  5. object
  6.         val mutable c = ""
  7.         val mutable fini = false
  8.         val mutable fils : noeud maybenode = None
  9. val mutable frere : noeud maybenode = None
  11. (*Methodes d'access et de modification des attributs de la classe*)
  12. method getC = c
  13. method setC(str) = c <- str
  14. method setFrere(f) = frere<-f
  15. method setFils(f) = fils<-f
  16. (*
  17. method getFrere = if (frere#isNull) then new noeud else frere
  18. method getFils = if (fils#isNull) then new noeud else fils
  19. *)
  20. method getFrere = match frere with
  21.  None -> new noeud
  22.  |Some noeud -> frere
  23. method getFils = match fils with
  24.  None -> new noeud
  25.  |Some noeud -> fils
  26. method isNull = (c = "" )
  27. method isFini = fini
  28. method setFini(b) = fini<-b
  30. (*Methode de recherche de mot dans l'arbre*)
  31. method exists(str) =
  32.  let lettre = String.sub str 0 0 in
  33.  let len = String.length str  in
  34.  let finMot = len<=1 in
  35.  let fin =
  36.   if (finMot) then
  37.    ""
  38.   else
  39.    String.sub str 1 len in
  40.  if (lettre = c) then
  41.   if (finMot) then
  42.    fini
  43.   else
  44.    if (fils#isNull) then
  45.     false
  46.    else
  47.     fils#exists(fin)
  48.  else
  49.   if (frere#isNull) then
  50.    false
  51.   else
  52.    frere#exists(str)
  54. (*Methode d'ajout dans l'arbre*)
  55. method add(str) =
  56.  let estFin = fini in
  57.  if (String.length str > 0) then
  58.  begin
  59.   let lettre = String.sub str 0 0 in
  60.   let fin = String.sub str 1 (String.length str - 1) in
  61.   fini <- String.length str = 0;
  62.   if (this#isNull) then
  63.   begin
  64.    c<-lettre;
  65.    if (not fini) then
  66.     fils#add(fin)
  67.   end
  68.   else if ( c = lettre && not fini) then
  69.    fils#add(fin)
  70.   else
  71.   begin
  72.    if (not fini) then
  73.     frere#add(str)
  74.   end;
  75.  end;
  76.  fini <- fini || estFin
  77. end;;


 
à la compilation, je recoit : This expression has type noeud maybenode
It has no method isNull
 
J'arrive pas à voir comment lui expliker que noeud maybenode, ben c'est un noeud...
 
j'ai beau lire des docs, je ne voit toujours pas comment faire ça...
 
je viends de java, et null me manque beaucoup :'(


---------------
HFR - Mes sujets pour Chrome - Firefox - vérifie les nouveaux posts des topics suivis/favoris
n°873603
nraynaud
lol
Posté le 14-10-2004 à 20:36:25  profilanswer
 

il faut que partout où tu utilises un 't maybenode, tu fasses un match machin, c'est ce qu'on appelle un destructeur.
 
donc partout où tu utilises frere ou fils. c'est ce que fait java à chaque fois qu'il y a machin.bidule, il vérifie que machin n'est pas null.


---------------
trainoo.com, c'est fini
n°873826
el muchach​o
Comfortably Numb
Posté le 15-10-2004 à 07:39:02  profilanswer
 

brisssou a écrit :

Je sais, j'abuse, mais je n'y arrive toujours pas... :
 


 
Tu peux p-ê t'inspirer du code pour un arbre binaire :
cs.wellesley.edu/~cs251/ocaml-data.pdf
 
ou de celui-ci : http://www.lri.fr/~filliatr/ftp/oc [...] et.ml.html


Message édité par el muchacho le 15-10-2004 à 07:49:30

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Divers

  [ocaml] Référence à un object Null ?

 

Sujets relatifs
Tomcat 5 : GenericServlet.getConfig() retourne null?!?Programmer en object permet-il de gagner en vitesse d'execution ?
[C#] Garder une référence vers une variable d'une autre classe ?Question tout bête de passage par référence
[Résolu] Un mysql_fetch_object avec un champ texteRéférence
conversion d'object de tableaux en intBusiness Object comment insérer des filtres dynamiques en VB
[Tomcat] : Incompatible object argument for function callPassages d'arguments par référence
Plus de sujets relatifs à : [ocaml] Référence à un object Null ?

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.074 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR