i4 : code methods use
o4 = -- code for method: use(Monoid)
/home/mandrake/rpm/BUILD/Macaulay2-1.4-r12617/Macaulay2/m2/orderedmonoidrings.m2:7:17-7:46: --source code:
use Monoid := x -> ( if x.?use then x.use x; x)
---------------------------------
-- code for method: use(Package)
/home/mandrake/rpm/BUILD/Macaulay2-1.4-r12617/Macaulay2/m2/packages.m2:436:20-447:31: --source code:
use Package := pkg -> (
a := member(pkg,loadedPackages);
b := member(pkg.Dictionary,dictionaryPath);
if a and not b then error("use: package ",toString pkg," appears in loadedPackages, but its dictionary is missing from dictionaryPath");
if b and not a then error("use: package ",toString pkg," does not appear in loadedPackages, but its dictionary appears in dictionaryPath");
if not a and not b then (
loadedPackages = prepend(pkg,loadedPackages);
--- if mutable pkg.Dictionary then error("package ", toString pkg, " not completely loaded yet");
dictionaryPath = prepend(pkg.Dictionary,dictionaryPath);
);
if pkg.?use then pkg.use pkg;
)
---------------------------------
-- code for method: use(Ring)
/home/mandrake/rpm/BUILD/Macaulay2-1.4-r12617/Macaulay2/m2/enginering.m2:290:15-295:6: --source code:
use Ring := R -> (
if R.?ring then use R.ring; -- I'm not sure what this is for. Which rings have this key?
generators R;
if R.?generators and R.?generatorSymbols then scan(R.generatorSymbols,R.generators,(sym,val) -> sym <- val);
if R.?use then R.use R;
R)
---------------------------------
-- code for method: use(Thing)
function 'identity': source code not available
|