@@ -227,10 +227,10 @@ tuple[list[str], ModuleStatus] isCompatibleBinaryLibrary(TModel lib, ModuleStatu
227227 }
228228 unsatisfied = libDependsOn - dependentsProvide ;
229229 if (isEmpty (unsatisfied )){
230- println ("isCompatibleBinaryLibrary <libName > : satisfied" );
230+ // println("isCompatibleBinaryLibrary <libName>: satisfied");
231231 return <[], ms >;
232232 } else {
233- println ("isCompatibleBinaryLibrary, <libName > unsatisfied: <unsatisfied > " );
233+ // println("isCompatibleBinaryLibrary, <libName> unsatisfied: <unsatisfied>");
234234 incompatibleModules = { split ("/" , u .path )[1 ] | u <- unsatisfied };
235235 return <toList (incompatibleModules ), ms >;
236236 }
@@ -246,31 +246,6 @@ str getModuleFromLogical(loc l){
246246 return res ;
247247}
248248
249- // // Is what library module lib provides compatible with all uses in the modules libUsers?
250- // tuple[list[str], ModuleStatus] isCompatibleBinaryLibrary(TModel lib, set[str] libUsers, ModuleStatus ms){
251-
252- // libName = lib.modelName;
253- // set[loc] libProvides = domain(lib.logical2physical);
254- // set[str] libProvidesModules = { getModuleFromLogical(l) | l <- libProvides };
255- // set[loc] usersRequire = {};
256- // for(m <- libUsers){
257- // <found, tm, ms> = getTModelForModule(m, ms);
258- // if(found){
259- // usersRequire += domain(tm.logical2physical);
260- // }
261- // }
262- // usersRequireFromLib = { l | l <- usersRequire, getModuleFromLogical(l) in libProvidesModules };
263-
264- // if(usersRequireFromLib <= libProvides){
265- // //println("isCompatibleBinaryLibrary <libName>: satisfied");
266- // return <[], ms>;
267- // } else {
268- // println("isCompatibleBinaryLibrary, <libName> unsatisfied: <usersRequireFromLib - libProvides>");
269- // unsatisfied = usersRequireFromLib - libProvides;
270- // incompatibleModules = { split("/", u.path)[1] | u <- unsatisfied };
271- // return <toList(incompatibleModules), ms>;
272- // }
273- // }
274249
275250tuple [bool , ModuleStatus ] importsAndExtendsAreBinaryCompatible (TModel tm , set [str ] importsAndExtends , ModuleStatus ms ){
276251 moduleName = tm .modelName ;
0 commit comments