[Xsb-commits] CVS: XSB/packages/altCDF cdf_comps_share.P,1.2,1.3

[Tatyana V. <vid...@us...>]

Update of /cvsroot/xsb/XSB/packages/altCDF
In directory sc8-pr-cvs1:/tmp/cvs-serv25238

Modified Files:
	cdf_comps_share.P 
Log Message:
fixed bugs with update in_place


Index: cdf_comps_share.P
===================================================================
RCS file: /cvsroot/xsb/XSB/packages/altCDF/cdf_comps_share.P,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cdf_comps_share.P	18 Jul 2003 19:16:33 -0000	1.2
+++ cdf_comps_share.P	27 Aug 2003 20:07:34 -0000	1.3
@@ -648,14 +648,19 @@
  				crid(hasVersion,Src),V) -> 
   	     true
 	  ; 
-    	     newExtTerm(component_create,
-			classHasAttr_ext(cid(Src,Src),crid(hasPath,Src),Path)),
+    	     /* newExtTerm(component_create,
+			classHasAttr_ext(cid(Src,Src),crid(hasPath,Src),Pathin)), */
 	     slash(Slash),
-	     concat_atom([Pathin,Slash,Name],File),
+	     Pathin = cid(PathStr, cdfpt),
+	     concat_atom([PathStr,Slash,Src],File),
   	     (file_exists(File) ->
-  	         file_latest_version(Pathin,Name,Vold),
+  	         file_latest_version(PathStr,Src,Vold),
 	          V is Vold + 1
 	       ;  V = 0),
+	     newExtTerm(isa_ext(cid(Src,Src),cid(componentIDs,cdf))),
+	     newExtTerm(isa_ext(cid(compName(cid(Src,Src),cid(allAtoms,cdf)),Src),
+			   cid(compNames,cdf))),
+             retractallExtTerm(classHasAttr_ext(cid(Src,Src),crid(hasPath,Src),_)),
 	     newExtTerm(component_create,
 		        classHasAttr_ext(cid(Src,Src),
 					 crid(hasPath,Src),Pathin)),