Mantis Bug Tracker

View Issue Details Jump to Notes ] Issue History ] Print ]
IDProjectCategoryView StatusDate SubmittedLast Update
0001306OCamlOCaml generalpublic2002-08-07 19:592002-08-08 01:53
Reporteradministrator 
Assigned To 
PrioritynormalSeverityminorReproducibilityalways
StatusclosedResolutionno change required 
PlatformOSOS Version
Product Version 
Target VersionFixed in Version 
Summary0001306: Typage de variants polymorphes pas assez restrictive
DescriptionFull_Name: Boris Yakobowski
Version: 3.04+15
OS: Linux
Submission from: lyon-4-a7-62-147-48-55.dial.proxad.net (62.147.48.55)


Bonjour à tous.

Je pense qu'il y a un bug dans la propagation des informations de typage dans
les variants polymorphes.

Lorsqu'on compile le code suivant

module T = struct
  type signature_item = [
    | `Module of string * modtype]
  and modtype = [
    | `Sig of signature_item list
    | `Functor of (string * modtype) * modtype]
end

let rec print_decl = function
  | `Module (p, d) -> "module " ^ p ^ " : " ^ (print_modtype d) ^"\n"
and print_modtype = function
  | `Sig s -> " sig " ^ (print_decls s) ^ "end"
  | `Functor ((param_name, param), result) -> "functor (" ^ param_name ^ ": " ^
(print_modtype param) ^ ") -> (" ^ (print_modtype result) ^ ")"
and print_decls l = List.fold_left (^) "" (List.map (fun d -> (print_decl d) ^
"\n") l)


let rec flatten_decl = function
  | `Module (x, `Sig d) -> flatten_decls d
  | `Module (n, `Functor ((narg, `Sig arg), `Sig res)) ->
      let arg' = flatten_decls arg in
      let res' = flatten_decls res in
(* let m = "(functor (F : sig\n" ^ (print_decls arg') ^ " end) -> (struct
(* Converter *) end))" in (* Faulty *) *)
        [`Module (n, `Functor ((narg, `Sig arg'), `Sig res'))]
and flatten_decls d = List.flatten (List.map (fun x -> flatten_decl x) d)

on obtient comme type pour flatten_decl

val flatten_decl :
  ([ `Module of
       'b *
       [< `Functor of ('c * [ `Sig of 'a list]) * [ `Sig of 'a list]
        | `Sig of 'a list]] as 'a) ->
  ([> `Module of 'b * [> `Functor of ('c * [> `Sig of 'd]) * [> `Sig of 'd]]]
   list as 'd)

qui me parait correct.

Par contre, si on décommente la ligne marquée FAULTY, on obtient

val flatten_decl :
  ([ `Module of
       string *
       [< `Functor of (string * [ `Sig of 'a list]) * [ `Sig of 'a list]
        | `Sig of 'a list]] as 'a) ->
  ([ `Module of
       string * ([ `Functor of (string * 'c) * 'c | `Sig of 'b] as 'c)]
   list as 'b)

Dans le type de retour de la fonction, `Module pourrait prendre comme paramètre
des `Sig, ce qui est faux (et qui n'apparait pas dans le premier type). Ce que
je ne comprends pas c'est pourquoi le typeur rajoute des variants dans le type,
alors que la valeur retournée par la fonction ne change pas (puisque print_decl
n'altère pas son argument).

Avec du code moins nettoyé, j'obtiens comme type

val flatten_decl :
  string ->
  (string * string) list ->
  string ->
  ([< `AbstractType of string * int list
    | `ManifestType of string * T.type_expr * int list
    | `Module of
        string *
        ([< `Functor of (string * 'b) * 'b
          | `Name of string
          | `Sig of 'a list] as 'b) &
        string *
        ([< `Functor of (string * 'c) * 'c
          | `Name of string
          | `Sig of 'a list] as 'c) &
        string *
        [< `Functor of (string * [ `Sig of 'a list]) * [ `Sig of 'a list]
         | `Sig of 'a list]
    | `Val of string * T.type_expr] as 'a) ->
  ([ `AbstractType of string * int list
   | `ManifestType of string * T.type_expr * int list
   | `Module of
       string *
       ([< `Functor of (string * 'e) * 'e | `Name of string | `Sig of 'd
         > `Functor `Sig] as 'e)
   | `Val of string * T.type_expr] list as 'd) *
  (string * string) list * (string * string)

qui n'est pas non plus assez restrictif, mais qui n'est pas fermé.

Quoi qu'il en soit, merci à Jacques pour les variants polymorphes, même si ce
problème est génant j'aurai quand même économisé beaucoup de réécriture de code
sur d'autres parties.

TagsNo tags attached.
Attached Files

- Relationships

-  Notes
(0002543)
administrator (administrator)
2002-08-08 08:27

> Full_Name: Boris Yakobowski
> Version: 3.04+15
>
> Je pense qu'il y a un bug dans la propagation des informations de typage dans
> les variants polymorphes.
>
> Lorsqu'on compile le code suivant
>
[..]
> let rec flatten_decl = function
> | `Module (x, `Sig d) -> flatten_decls d
> | `Module (n, `Functor ((narg, `Sig arg), `Sig res)) ->
> let arg' = flatten_decls arg in
> let res' = flatten_decls res in
> (* let m = "(functor (F : sig\n" ^ (print_decls arg') ^ " end) -> (struct
> (* Converter *) end))" in (* Faulty *) *)
> [`Module (n, `Functor ((narg, `Sig arg'), `Sig res'))]
> and flatten_decls d = List.flatten (List.map (fun x -> flatten_decl x) d)
>
> on obtient comme type pour flatten_decl
>
> val flatten_decl :
> ([ `Module of
> 'b *
> [< `Functor of ('c * [ `Sig of 'a list]) * [ `Sig of 'a list]
> | `Sig of 'a list]] as 'a) ->
> ([> `Module of 'b * [> `Functor of ('c * [> `Sig of 'd]) * [> `Sig of 'd]]]
> list as 'd)
>
> qui me parait correct.

A` moi aussi. Note qu'on a des > partout dans le type retour: `Module
ne prend pas de `Sig, mais ce n'est pas interdit.

> Par contre, si on décommente la ligne marquée FAULTY, on obtient
>
> val flatten_decl :
> ([ `Module of
> string *
> [< `Functor of (string * [ `Sig of 'a list]) * [ `Sig of 'a list]
> | `Sig of 'a list]] as 'a) ->
> ([ `Module of
> string * ([ `Functor of (string * 'c) * 'c | `Sig of 'b] as 'c)]
> list as 'b)
>
> Dans le type de retour de la fonction, `Module pourrait prendre
> comme paramètre des `Sig, ce qui est faux (et qui n'apparait pas
> dans le premier type). Ce que je ne comprends pas c'est pourquoi le
> typeur rajoute des variants dans le type, alors que la valeur
> retournée par la fonction ne change pas (puisque print_decl
> n'altère pas son argument).

Il faut regarder le type de print_decls

val print_decls :
  ([ `Module of
       string * ([< `Functor of (string * 'b) * 'b | `Sig of 'a] as 'b)]
   list as 'a) -> string

Note la recursion en 'b: le type de l'argument de `Module est le meme
que le type des arguments de `Functor. Or les arguments de `Functor
contiennent `Sig. Donc il doit aussi apparaitre dans l'argument de
`Module.

Rien que de tres normal, mais je comprends ta confusion.
Je crois qu'il faut mettre plus d'annotation de type dans le
programme. Les notations [< t] et [> t] sont assez expressives pour
qu'on puisse donner des types precis de facon compacte.
Apres, il est plus facile d'insere des coercions la` ou` on veut
eviter de telles propagations.

> Avec du code moins nettoyé, j'obtiens comme type
[..]
> qui n'est pas non plus assez restrictif, mais qui n'est pas fermé.

Par definition un type non-ferme' n'est pas restrictif.
Si tu fermes explicitement ton type, alors toute propagation
incompatible sera notee par le typeur. Et on on peut rouvrir apres
coup un type ferme' via une coercion:

fun x -> (x : T.modtype :> [> T.modtype])

Jacques


- Issue History
Date Modified Username Field Change
2005-11-18 10:14 administrator New Issue


Copyright © 2000 - 2011 MantisBT Group
Powered by Mantis Bugtracker