Changeset 6fcbe89 in git for Singular/LIB/schreyer.lib

Timestamp:

Jan 28, 2015, 6:02:35 PM (9 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')

Children:

d63ce7ce8ca1e43c3a30f66d65b8d0f6d14f99fb

Parents:

6bd53ba88f906b9abf68e6983aac4cf495d7631c

Message:

Cleanup / fix schreyer.lib::mod_init

File:

• Singular/LIB/schreyer.lib (modified) (1 diff)

Singular/LIB/schreyer.lib

@@ -2188 +2188 @@
 static proc mod_init()
 {
-  int @DEBUG = 0; // !system("with", "ndebug"); //    "om_ndebug?: ", system("with", "om_ndebug");
-
-  if( @DEBUG )  {    listvar(Top);  }
-
-  if( !defined(SRES) )
-  {
-      load("syzextra.so");
-
-      if( @DEBUG ){        listvar(Syzextra);      }
-
-//      exportto(Top,   Syzextra::ClearContent); //      exportto(Top,   Syzextra::ClearDenominators);     exportto(Schreyer,   Syzextra::noop);
-//      exportto(Schreyer,   Syzextra::leadrawexp); //      exportto(Schreyer,   Syzextra::ISUpdateComponents);
-//      exportto(Schreyer,   Syzextra::GetAMData);//      exportto(Schreyer,   Syzextra::SetSyzComp);
-//      exportto(Schreyer,   Syzextra::MakeSyzCompOrdering); //      exportto(Schreyer,   Syzextra::reduce_syz);//      exportto(Schreyer,   Syzextra::p_Content);
-
-//    exportto(Schreyer,   Syzextra::DetailedPrint);
-//    exportto(Schreyer,   Syzextra::m2_end);
-//    exportto(Schreyer,   Syzextra::leadmonomial);
-//    exportto(Schreyer,   Syzextra::leadcomp);
-//    exportto(Schreyer,   Syzextra::SetInducedReferrence);
-//    exportto(Schreyer,   Syzextra::GetInducedData);
-//    exportto(Schreyer,   Syzextra::MakeInducedSchreyerOrdering);
-//    exportto(Schreyer,   Syzextra::idPrepare);
-//    exportto(Schreyer,   Syzextra::ProfilerStart);   exportto(Schreyer,   Syzextra::ProfilerStop);
-//    exportto(Schreyer,   Syzextra::NumberStatsInit); exportto(Schreyer,   Syzextra::NumberStatsPrint);
-//    exportto(Schreyer,   Syzextra::Tail);
-//    exportto(Schreyer,   Syzextra::ComputeLeadingSyzygyTerms);
-//    exportto(Schreyer,   Syzextra::Compute2LeadingSyzygyTerms);
-//    exportto(Schreyer,   Syzextra::Sort_c_ds);
-//    exportto(Schreyer,   Syzextra::FindReducer);
-//    exportto(Schreyer,   Syzextra::ReduceTerm);
-//    exportto(Schreyer,   Syzextra::TraverseTail);
-//    exportto(Schreyer,   Syzextra::SchreyerSyzygyNF);
-//    exportto(Schreyer,   Syzextra::ComputeSyzygy);
-//    exportto(Schreyer,   Syzextra::ComputeResolution);
-
+  load("syzextra.so");
+
+  if( 1 ) // !defined(Syzextra) )
+  {
     // TODO: SSres - return SRESOLUTION?
     newstruct("SRES","ring r,resolution rsltn"); // http://www.singular.uni-kl.de/Manual/latest/sing_179.htm#SEC218
-//      system("install","SRES","string",SRES_string, 1);
     system("install","SRES","print",SRES_print, 1);
     system("install","SRES","betti",SRES_betti1, 1); // http://www.singular.uni-kl.de/Manual/latest/sing_260.htm#SEC299
     system("install","SRES","betti",SRES_betti2, 2); // http://www.singular.uni-kl.de/Manual/latest/sing_260.htm#SEC299
     system("install","SRES","minres",SRES_minres, 1); // http://www.singular.uni-kl.de/Manual/latest/sing_344.htm#SEC383
-    system("install","SRES","list", SRES_list, 1); // will never work :(((
-
-//    exportto(Top, s_res); //   Syzextra::GetInducedData);
-
-    if( @DEBUG )    {      listvar(Top);      listvar(Schreyer);    }
+//    system("install","SRES","list", SRES_list, 1); // will never work :(((
+//    system("install","SRES","string",SRES_string, 1);
   }
 }