Fixed bug with duplicated class annotations when calling addClassAnno…

…tation

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@1053 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

modeq/interactive.rml

@@ -2833,7 +2833,10 @@ end
 *)
 relation replace_public_list: (Absyn.ClassPart list,Absyn.ElementItem list) => Absyn.ClassPart list =
 
-  axiom replace_public_list ((lst as Absyn.PUBLIC(_))::rest,newpublst) => Absyn.PUBLIC(newpublst)::rest
+  rule	delete_public_list(rest) => rest'
+	---------------------------------
+	replace_public_list ((lst as Absyn.PUBLIC(_))::rest,newpublst) 
+	  => Absyn.PUBLIC(newpublst)::rest'
 
   rule	replace_public_list(xs,new) => ys
 	---------------------------------
@@ -2842,6 +2845,19 @@ relation replace_public_list: (Absyn.ClassPart list,Absyn.ElementItem list) => A
   axiom replace_public_list([],_) => []
 end
 
+relation delete_public_list:(Absyn.ClassPart list) 
+	  => Absyn.ClassPart list =
+  axiom	delete_public_list([]) => []
+
+  rule	delete_public_list(xs) => res
+	-----------------------------
+	delete_public_list(Absyn.PUBLIC(_)::xs) => res
+
+  rule	delete_public_list(xs) => res
+	-----------------------------
+	delete_public_list(x::xs) => x::res
+end
+
 (** relation: replace_equation_list
  ** This relation replaces the `EquationItem' list in the `ClassPart' list, and returns the updated
  ** list.