kernel: remove some private stuff from header files

Author: fingolfin

src/collectors.h

@@ -65,12 +65,6 @@
 #define SC_RWS_GENERATORS(sc) \
     (CONST_ADDR_OBJ(sc)[SCP_RWS_GENERATORS])
 
-/****************************************************************************
-**
-*F  FuncFinPowConjCol_CollectWordOrFail( <self>, <sc>, <vv>, <w> )
-*/
-extern Obj FuncFinPowConjCol_CollectWordOrFail ( Obj, Obj, Obj, Obj );
-
 
 /****************************************************************************
 **

src/hpc/thread.c

@@ -60,7 +60,6 @@ typedef struct ThreadData {
 } ThreadData;
 
 Region *LimboRegion, *ReadOnlyRegion;
-Obj     PublicRegion;
 Obj     PublicRegionName;
 
 static int        GlobalPauseInProgress;

src/hpc/thread.h

@@ -62,7 +62,6 @@ void RegionUnlock(Region *region);
 Region *CurrentRegion(void);
 Region *GetRegionOf(Obj obj);
 extern Region *LimboRegion, *ReadOnlyRegion;
-extern Obj PublicRegion;
 extern Obj PublicRegionName;
 
 void SetRegionName(Region *region, Obj name);

src/hpc/threadapi.c

@@ -69,6 +69,11 @@ struct WaitList {
     ThreadLocalStorage * thread;
 };
 
+typedef struct {
+  pthread_mutex_t lock;
+  struct WaitList *head, *tail;
+} Monitor;
+
 typedef struct Channel {
     Obj  monitor;
     Obj  queue;
@@ -618,7 +623,7 @@ Obj FuncResumeThread(Obj self, Obj thread)
 *F FuncRegionOf ... return region of an object
 **
 */
-
+static Obj PublicRegion;
 
 Obj FuncRegionOf(Obj self, Obj obj)
 {

src/hpc/threadapi.h

@@ -34,33 +34,11 @@ typedef struct ThreadObject {
 
 Obj NewThreadObject(UInt id);
 
-
-typedef struct {
-  pthread_mutex_t lock;
-  struct WaitList *head, *tail;
-} Monitor;
-
 Obj KeepAlive(Obj);
 void StopKeepAlive(Obj);
 #define KEPTALIVE(obj) (ADDR_OBJ(obj)[1])
 
-EXPORT_INLINE Monitor *MonitorPtr(Obj obj)
-{
-  assert(TNUM_OBJ(obj) == T_MONITOR);
-  return (Monitor *)(PTR_BAG(obj));
-}
-Obj NewMonitor(void);
-void LockMonitor(Monitor *monitor);
-int TryLockMonitor(Monitor *monitor);
-void UnlockMonitor(Monitor *monitor);
-void WaitForMonitor(Monitor *monitor);
-UInt WaitForAnyMonitor(UInt count, Monitor **monitors);
-void SignalMonitor(Monitor *monitor);
-void SortMonitors(UInt count, Monitor **monitors);
-void LockMonitors(UInt count, Monitor **monitors);
-void UnlockMonitors(UInt count, Monitor **monitors);
-
-void InitSignals(void);
+extern void InitSignals(void);
 
 
 /****************************************************************************

src/lists.h

@@ -636,12 +636,6 @@ EXPORT_INLINE Int IS_SSORT_LIST(Obj list)
     return (*IsSSortListFuncs[TNUM_OBJ(list)])(list);
 }
 
-/****************************************************************************
-**
-*F  IsSSortListProp
-*/
-extern Obj IsSSortListProp;
-
 
 /****************************************************************************
 **

src/opers.c

@@ -56,6 +56,10 @@ static Obj ArglistObjVal;
 static Obj ArglistObj;
 
 
+static Obj SetterAndFilter(Obj getter);
+static Obj TesterAndFilter(Obj getter);
+
+
 /****************************************************************************
 **
 *F * * * * * * * * * * * * internal flags functions * * * * * * * * * * * * *
@@ -2428,13 +2432,6 @@ Obj NewConstructor(Obj name)
 }
 
 
-/****************************************************************************
-**
-*F  DoAttribute( <name> ) . . . . . . . . . . . . . . .  make a new attribute
-*/
-
-
-
 /****************************************************************************
 **
 **  DoTestAttribute( <attr>, <obj> )
@@ -2755,7 +2752,6 @@ static void SetupAttribute(Obj attr, Obj setter, Obj tester, Int flag2)
     SET_ENABLED_ATTR(attr,1);
     CHANGED_BAG(attr);
 }
-
 
 
 Obj NewAttribute (
@@ -2781,6 +2777,7 @@ Obj NewAttribute (
     return getter;    
 }
 
+
 /****************************************************************************
 **
 *F  ConvertOperationIntoAttribute( <oper> )  transform an operation (which 

src/opers.h

@@ -490,63 +490,10 @@ extern Obj SET_FILTER_OBJ;
 extern Obj RESET_FILTER_OBJ;
 
 
-
-/****************************************************************************
-**
-*F  SetterFilter( <oper> )  . . . . . . . . . . . . . . .  setter of a filter
-*/
-extern Obj SetterFilter (
-    Obj                 oper );
-
-
-/****************************************************************************
-**
-*F  SetterAndFilter( <getter> )  . . . . . .  setter of a concatenated filter
-*/
-extern Obj DoSetAndFilter (
-    Obj                 self,
-    Obj                 obj,
-    Obj                 val );
-
-extern Obj SetterAndFilter (
-    Obj                 getter );
-        
-
-/****************************************************************************
-**
-*F  TesterFilter( <oper> )  . . . . . . . . . . . . . . .  tester of a filter
-*/
-extern Obj TesterFilter (
-    Obj                 oper );
-
-
-/****************************************************************************
-**
-*F  TestAndFilter( <getter> )  . . . . . . . .tester of a concatenated filter
-*/
-extern Obj DoTestAndFilter (
-    Obj                 self,
-    Obj                 obj );
-
-extern Obj TesterAndFilter (
-    Obj                 getter );
-
-
 /****************************************************************************
 **
 *F  NewFilter( <name>, <narg>, <nams>, <hdlr> )  . . . . .  make a new filter
 */
-extern Obj NewTesterFilter (
-    Obj                 getter );
-
-extern Obj DoSetFilter (
-    Obj                 self,
-    Obj                 obj,
-    Obj                 val );
-
-extern Obj NewSetterFilter (
-    Obj                 getter );
-
 extern Obj DoFilter (
     Obj                 self,
     Obj                 obj );
@@ -557,17 +504,13 @@ extern Obj NewFilter (
     Obj                 nams,
     ObjFunc             hdlr );
 
-
 extern Obj DoTestAttribute( Obj self, Obj obj);
 
+
 /****************************************************************************
 **
 *F  NewAndFilter( <filt1>, <filt2> ) . . . . . make a new concatenated filter
 */
-extern Obj DoAndFilter (
-    Obj                 self,
-    Obj                 obj );
-
 extern Obj NewAndFilter (
     Obj                 oper1,
     Obj                 oper2 );
@@ -697,10 +640,6 @@ extern  Obj DoAttribute (
             Obj                 self,
             Obj                 obj );
 
-extern  Obj DoVerboseAttribute (
-            Obj                 self,
-            Obj                 obj );
-
 extern  Obj NewAttribute (
             Obj                 name,
             Int                 narg,