b60ee4cc3d3ce03712f487b749a93c7441a1c117
[openafs.git] / src / afs / afs_osi.c
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  * 
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 #include <afsconfig.h>
11 #include "../afs/param.h"
12
13 RCSID("$Header$");
14
15 #include "../afs/sysincludes.h" /* Standard vendor system headers */
16 #include "../afs/afsincludes.h" /* Afs-based standard headers */
17 #include "../afs/afs_stats.h"   /* afs statistics */
18 #ifdef AFS_AIX_ENV
19 #include <sys/adspace.h>        /* for vm_att(), vm_det() */
20 #endif
21
22 static char memZero;                    /* address of 0 bytes for kmem_alloc */
23 extern int afs_osicred_initialized;
24
25 struct osimem {
26     struct osimem *next;
27 };
28
29 /* osi_Init -- do once per kernel installation initialization.
30  *     -- On Solaris this is called from modload initialization.
31  *     -- On AIX called from afs_config.
32  *     -- On HP called from afsc_link.
33  *     -- On SGI called from afs_init. */
34
35 #ifdef AFS_SGI53_ENV
36 lock_t afs_event_lock;
37 #endif
38
39 #ifdef AFS_SGI64_ENV
40 flid_t osi_flid;
41 #endif
42
43 void osi_Init()
44 {
45     static int once = 0;
46     if (once++ > 0)                     /* just in case */
47         return;
48 #if     defined(AFS_HPUX_ENV)
49     osi_InitGlock();
50 #else   /* AFS_HPUX_ENV */
51 #if defined(AFS_GLOBAL_SUNLOCK)
52 #if defined(AFS_SGI62_ENV)
53     mutex_init(&afs_global_lock, MUTEX_DEFAULT, "afs_global_lock");
54 #elif defined(AFS_OSF_ENV)
55     usimple_lock_init(&afs_global_lock);
56     afs_global_owner = (thread_t)0;
57 #elif defined(AFS_DARWIN_ENV) || defined(AFS_FBSD_ENV)
58     lockinit(&afs_global_lock, PLOCK, "afs global lock", 0, 0);
59     afs_global_owner = (thread_t)0;
60 #elif defined(AFS_AIX41_ENV)
61     lock_alloc((void*)&afs_global_lock, LOCK_ALLOC_PIN, 1, 1);
62     simple_lock_init((void *)&afs_global_lock);
63 #else
64 #ifndef AFS_LINUX22_ENV
65      /* Linux initialization in osi directory. Should move the others. */
66     mutex_init(&afs_global_lock, "afs_global_lock", MUTEX_DEFAULT, NULL);
67 #endif
68 #endif
69     /* afs_rxglobal_lock is initialized in rx_Init. */
70 #endif
71 #endif  /* AFS_HPUX_ENV */
72
73         if ( !afs_osicred_initialized )
74         {
75                 memset((char *)&afs_osi_cred, 0, sizeof(struct AFS_UCRED));
76                 crhold(&afs_osi_cred);      /* don't let it evaporate */
77                 afs_osicred_initialized = 1;
78         }
79 #ifdef AFS_SGI64_ENV
80      osi_flid.fl_pid = osi_flid.fl_sysid = 0;
81 #endif
82 }
83
84 osi_Active(avc)
85 register struct vcache *avc; {
86     AFS_STATCNT(osi_Active);
87 #if defined(AFS_SUN_ENV) || defined(AFS_AIX_ENV) || defined(AFS_OSF_ENV) || defined(AFS_SUN5_ENV) || (AFS_LINUX20_ENV) || defined(AFS_DARWIN_ENV) || defined(AFS_FBSD_ENV)
88     if ((avc->opens > 0) || (avc->states & CMAPPED))    return 1;   /* XXX: Warning, verify this XXX  */
89 #else
90 #if     defined(AFS_MACH_ENV)
91     if (avc->opens > 0 || ((avc->v.v_flag & VTEXT) && !inode_uncache_try(avc))) return 1;
92 #else
93 #if defined(AFS_SGI_ENV)
94     if ((avc->opens > 0) || AFS_VN_MAPPED((struct vnode *)avc))
95         return 1;
96 #else
97     if (avc->opens > 0 || (avc->v.v_flag & VTEXT)) return(1);
98 #endif
99 #endif /* AFS_MACH_ENV */
100 #endif
101     return 0;
102 }
103
104 /* this call, unlike osi_FlushText, is supposed to discard caches that may
105    contain invalid information if a file is written remotely, but that may
106    contain valid information that needs to be written back if the file is
107    being written locally.  It doesn't subsume osi_FlushText, since the latter
108    function may be needed to flush caches that are invalidated by local writes.
109
110    avc->pvnLock is already held, avc->lock is guaranteed not to be held (by
111    us, of course).
112 */
113 void osi_FlushPages(avc, credp)
114     register struct vcache *avc; 
115     struct AFS_UCRED *credp;    
116 {
117     afs_hyper_t origDV;
118     ObtainReadLock(&avc->lock);
119     /* If we've already purged this version, or if we're the ones
120        writing this version, don't flush it (could lose the
121        data we're writing). */
122     if ((hcmp((avc->m.DataVersion), (avc->mapDV)) <= 0) || 
123         ((avc->execsOrWriters > 0) && afs_DirtyPages(avc))) {
124         ReleaseReadLock(&avc->lock);
125         return;
126     }
127     ReleaseReadLock(&avc->lock);
128     ObtainWriteLock(&avc->lock,10);
129     /* Check again */
130     if ((hcmp((avc->m.DataVersion), (avc->mapDV)) <= 0) || 
131         ((avc->execsOrWriters > 0) && afs_DirtyPages(avc))) {
132         ReleaseWriteLock(&avc->lock);
133         return;
134     }
135     if (hiszero(avc->mapDV)) {
136         hset(avc->mapDV, avc->m.DataVersion);
137         ReleaseWriteLock(&avc->lock);
138         return;
139     }
140
141     AFS_STATCNT(osi_FlushPages);
142     hset(origDV, avc->m.DataVersion);
143     afs_Trace3(afs_iclSetp, CM_TRACE_FLUSHPAGES, ICL_TYPE_POINTER, avc,
144                    ICL_TYPE_INT32, origDV.low, ICL_TYPE_INT32, avc->m.Length);
145
146     ReleaseWriteLock(&avc->lock);
147     AFS_GUNLOCK();
148     osi_VM_FlushPages(avc, credp);
149     AFS_GLOCK();
150     ObtainWriteLock(&avc->lock,88);
151
152     /* do this last, and to original version, since stores may occur
153        while executing above PUTPAGE call */
154     hset(avc->mapDV, origDV);
155     ReleaseWriteLock(&avc->lock);
156 }
157
158 afs_lock_t afs_ftf;             /* flush text lock */
159
160 #ifdef  AFS_TEXT_ENV
161
162 /* This call is supposed to flush all caches that might be invalidated
163  * by either a local write operation or a write operation done on
164  * another client.  This call may be called repeatedly on the same
165  * version of a file, even while a file is being written, so it
166  * shouldn't do anything that would discard newly written data before
167  * it is written to the file system. */
168
169 void osi_FlushText_really(vp)
170     register struct vcache *vp; {
171     afs_hyper_t fdv;    /* version before which we'll flush */
172
173     AFS_STATCNT(osi_FlushText);
174     /* see if we've already flushed this data version */
175     if (hcmp(vp->m.DataVersion, vp->flushDV) <= 0) return;
176
177 #ifdef AFS_DEC_ENV 
178     {
179       void afs_gfs_FlushText();
180       afs_gfs_FlushText(vp);
181       return;
182     }
183 #else
184
185     MObtainWriteLock(&afs_ftf,317);
186     hset(fdv, vp->m.DataVersion);
187
188     /* why this disgusting code below?  
189      *    xuntext, called by xrele, doesn't notice when it is called 
190      * with a freed text object.  Sun continually calls xrele or xuntext
191      * without any locking, as long as VTEXT is set on the
192      * corresponding vnode.  
193      *    But, if the text object is locked when you check the VTEXT
194      * flag, several processes can wait in xuntext, waiting for the
195      * text lock; when the second one finally enters xuntext's
196      * critical region, the text object is already free, but the check
197      * was already done by xuntext's caller.
198      *    Even worse, it turns out that xalloc locks the text object
199      * before reading or stating a file via the vnode layer.  Thus, we
200      * could end up in getdcache, being asked to bring in a new
201      * version of a file, but the corresponding text object could be
202      * locked.  We can't flush the text object without causing
203      * deadlock, so now we just don't try to lock the text object
204      * unless it is guaranteed to work.  And we try to flush the text
205      * when we need to a bit more often at the vnode layer.  Sun
206      * really blew the vm-cache flushing interface.
207      */
208
209 #if defined (AFS_HPUX_ENV)
210     if (vp->v.v_flag & VTEXT) {
211         xrele(vp);  
212
213         if (vp->v.v_flag & VTEXT) {     /* still has a text object? */
214             MReleaseWriteLock(&afs_ftf);
215             return;
216         }
217     }
218 #endif
219
220     /* next do the stuff that need not check for deadlock problems */
221     mpurge(vp);
222
223     /* finally, record that we've done it */
224     hset(vp->flushDV, fdv);
225     MReleaseWriteLock(&afs_ftf);
226
227 #endif /* AFS_DEC_ENV */
228 }
229
230 #ifdef AFS_DEC_ENV
231 /* I don't really like using xinval() here, because it kills processes
232  * a bit aggressively.  Previous incarnations of this functionality
233  * used to use xrele() instead of xinval, and didn't invoke
234  * cacheinval().  But they would panic.  So it might be worth looking
235  * into some middle ground...
236  */
237 static void
238 afs_gfs_FlushText(vp)
239     register struct vcache *vp; {
240     afs_hyper_t fdv;    /* version before which we'll flush */
241     register struct text *xp;
242     struct gnode * gp;
243
244     MObtainWriteLock(&afs_ftf,318);
245     hset(fdv, vp->m.DataVersion);
246     gp = afs_vntogn(vp);
247
248     if (!gp) {
249       /* this happens frequently after cores are created. */
250       MReleaseWriteLock(&afs_ftf);
251       return;
252     }
253
254     if (gp->g_flag & GTEXT) {
255         if (gp->g_textp) {
256           xp = (struct text *) gp->g_textp ;
257           /* if text object is locked, give up */
258           if (xp && (xp->x_flag & XLOCK)) {
259             MReleaseWriteLock(&afs_ftf);
260             return;
261           }
262         }
263         else xp = (struct text *) 0;
264
265         if (gp->g_flag & GTEXT) {/* still has a text object? */
266           xinval(gp);
267           }
268     }
269
270     /* next do the stuff that need not check for deadlock problems */
271     /*    maybe xinval(gp); here instead of above */
272     binval(NODEV, gp);
273     cacheinval(gp);
274     /* finally, record that we've done it */
275     hset(vp->flushDV, fdv);
276
277     MReleaseWriteLock(&afs_ftf);
278 }
279 #endif /* AFS_DEC_ENV */
280
281 #endif /* AFS_TEXT_ENV */
282
283 /* procedure for making our processes as invisible as we can */
284 void afs_osi_Invisible() {
285 #ifndef AFS_AIX32_ENV
286     /* called once per "kernel" lwp to make it invisible */
287 #ifdef AFS_LINUX22_ENV
288     spin_lock_irq(&current->sigmask_lock);
289     sigfillset(&current->blocked);
290     recalc_sigpending(current);
291     spin_unlock_irq(&current->sigmask_lock);
292     
293     daemonize();
294 #else /* AFS_LINUX22_ENV */
295 #ifdef AFS_DEC_ENV
296     u.u_procp->p_type |= SSYS;
297 #else /* AFS_DEC_ENV */
298 #if     defined(AFS_SUN5_ENV)
299     curproc->p_flag |= SSYS;
300 #else /* AFS_SUN5_ENV */
301 #if defined(AFS_SGI_ENV)
302     vrelvm();
303 #endif /* AFS_SGI_ENV */
304 #ifdef  AFS_SUN_ENV
305     relvm(u.u_procp);   /* release all the resources */
306 #endif /* AFS_SUN_ENV */
307 #if     defined(AFS_HPUX101_ENV)
308     set_system_proc(u.u_procp);
309 #else /* AFS_HPUX101_ENV */
310 #if defined(AFS_DARWIN_ENV) || defined(AFS_FBSD_ENV)
311     /* maybe call init_process instead? */
312     current_proc()->p_flag |= P_SYSTEM;
313 #else /* AFS_DARWIN_ENV || AFS_FBSD_ENV */
314 #if !defined(AFS_SGI64_ENV) && !defined(AFS_LINUX20_ENV)
315     u.u_procp->p_flag |= SSYS;
316 #endif /* !AFS_SGI64_ENV && !AFS_LINUX20_ENV */
317 #endif /* AFS_DARWIN_ENV || AFS_FBSD_ENV */
318 #endif /* AFS_HPUX101_ENV */
319 #endif /* AFS_SUN5_ENV */
320 #endif /* AFS_DEC_ENV */
321 #endif /* AFS_LINUX22_ENV */
322 #endif /* AFS_AIX32_ENV */
323     AFS_STATCNT(osi_Invisible);
324 }
325
326
327 #ifndef AFS_LINUX20_ENV /* Linux version in osi_misc.c */
328 /* set the real time */
329 afs_osi_SetTime(atv)
330     register osi_timeval_t *atv; {
331
332 #ifdef  AFS_AIX32_ENV
333     struct timestruc_t t;
334
335     t.tv_sec  = atv->tv_sec;
336     t.tv_nsec = atv->tv_usec * 1000;
337     ksettimer(&t);              /*  Was -> settimer(TIMEOFDAY, &t); */
338 #else
339 #ifdef AFS_SUN55_ENV
340     stime(atv->tv_sec);
341 #else
342 #ifdef  AFS_SUN5_ENV
343     /*
344      * To get more than second resolution we can use adjtime. The problem
345      * is that the usecs from the server are wrong (by now) so it isn't
346      * worth complicating the following code.
347      */
348     struct stimea {
349         time_t time;
350     } sta;
351     extern int stime(struct stimea *time, rval_t *rvp);
352
353     sta.time = atv->tv_sec;
354
355     stime(&sta, NULL);
356 #else
357 #if defined(AFS_SGI_ENV)
358     struct stimea {
359         sysarg_t time;
360     } sta;
361     extern int stime(struct stimea *time);
362
363     AFS_GUNLOCK();
364     sta.time = atv->tv_sec;
365     stime(&sta);
366     AFS_GLOCK();
367 #else
368 #if defined(AFS_DARWIN_ENV) || defined(AFS_FBSD_ENV)
369     AFS_GUNLOCK();
370     setthetime(atv);
371     AFS_GLOCK();
372 #else
373     /* stolen from kern_time.c */
374 #ifndef AFS_AUX_ENV
375     boottime.tv_sec += atv->tv_sec - time.tv_sec;
376 #endif
377 #ifdef AFS_HPUX_ENV
378     {
379     register ulong_t s;
380     struct timeval t;
381     t.tv_sec = atv->tv_sec;
382     t.tv_usec = atv->tv_usec;
383     s = spl7(); time = t; (void) splx(s);
384     resettodr(atv);
385     }
386 #else
387     {
388     register int s;
389     s = splclock(); time = *atv; (void) splx(s);
390     }
391     resettodr();
392 #endif
393 #ifdef  AFS_AUX_ENV
394     logtchg(atv->tv_sec);
395 #endif
396 #endif  /* AFS_DARWIN_ENV || AFS_FBSD_ENV */
397 #endif  /* AFS_SGI_ENV */
398 #endif /* AFS_SUN55_ENV */
399 #endif /* AFS_SUN5_ENV */
400 #endif /* AFS_AIX32_ENV */
401     AFS_STATCNT(osi_SetTime);
402     return 0;
403 }
404 #endif /* AFS_LINUX20_ENV */
405
406
407 void *afs_osi_Alloc(size_t x)
408 {
409     register struct osimem *tm = NULL;
410     register int size;
411
412     AFS_STATCNT(osi_Alloc);
413     /* 0-length allocs may return NULL ptr from AFS_KALLOC, so we special-case
414        things so that NULL returned iff an error occurred */
415     if (x == 0) return &memZero;
416
417     AFS_STATS(afs_stats_cmperf.OutStandingAllocs++);
418     AFS_STATS(afs_stats_cmperf.OutStandingMemUsage += x);
419 #ifdef AFS_LINUX20_ENV
420     return osi_linux_alloc(x);
421 #else
422     size = x;
423     tm = (struct osimem *) AFS_KALLOC(size);
424 #ifdef  AFS_SUN_ENV
425     if (!tm)
426         osi_Panic("osi_Alloc: Couldn't allocate %d bytes; out of memory!\n",
427                   size);
428 #endif
429     return (char *) tm;
430 #endif
431 }
432
433 #if     defined(AFS_SUN_ENV) || defined(AFS_SGI_ENV)
434
435 void *afs_osi_Alloc_NoSleep(size_t x)
436 {
437     register struct osimem *tm;
438     register int size;
439
440     AFS_STATCNT(osi_Alloc);
441     /* 0-length allocs may return NULL ptr from AFS_KALLOC, so we special-case
442        things so that NULL returned iff an error occurred */
443     if (x == 0) return &memZero;
444
445     size = x;
446     AFS_STATS(afs_stats_cmperf.OutStandingAllocs++);
447     AFS_STATS(afs_stats_cmperf.OutStandingMemUsage += x);
448     tm = (struct osimem *) AFS_KALLOC_NOSLEEP(size);
449     return (char *) tm;
450 }
451
452 #endif  /* SUN || SGI */
453
454 void afs_osi_Free(void *x, size_t asize)
455 {
456     register struct osimem *tm, **lm, *um;
457
458     AFS_STATCNT(osi_Free);
459     if (x == &memZero) return;  /* check for putting memZero back */
460
461     AFS_STATS(afs_stats_cmperf.OutStandingAllocs--);
462     AFS_STATS(afs_stats_cmperf.OutStandingMemUsage -= asize);
463 #ifdef AFS_LINUX20_ENV
464     osi_linux_free(x);
465 #else
466     AFS_KFREE((struct osimem *)x, asize);
467 #endif
468 }
469
470
471 /* ? is it moderately likely that there are dirty VM pages associated with 
472  * this vnode?
473  *
474  *  Prereqs:  avc must be write-locked
475  *
476  *  System Dependencies:  - *must* support each type of system for which 
477  *                          memory mapped files are supported, even if all 
478  *                          it does is return TRUE;
479  *
480  * NB:  this routine should err on the side of caution for ProcessFS to work
481  *      correctly (or at least, not to introduce worse bugs than already exist)
482  */
483 #ifdef  notdef
484 int
485 osi_VMDirty_p(avc)
486      struct vcache *avc;
487 {
488     int dirtyPages;
489
490     if (avc->execsOrWriters <= 0)
491         return 0;         /* can't be many dirty pages here, I guess */
492     
493 #if defined (AFS_AIX32_ENV) 
494 #ifdef  notdef
495     /* because of the level of hardware involvment with VM and all the
496      * warnings about "This routine must be called at VMM interrupt
497      * level", I thought it would be safest to disable interrupts while
498      * looking at the software page fault table.  */
499
500     /* convert vm handle into index into array:  I think that stoinio is 
501      * always zero...  Look into this XXX  */
502 #define VMHASH(handle) ( \
503                         ( ((handle) & ~vmker.stoinio)  \
504                          ^ ((((handle) & ~vmker.stoinio) & vmker.stoimask) << vmker.stoihash) \
505                          ) & 0x000fffff) 
506
507     if (avc->vmh) {
508         unsigned int pagef, pri, index, next;
509         extern struct vmkerdata vmker;
510
511         index = VMHASH(avc->vmh);
512         if (scb_valid(index)) {  /* could almost be an ASSERT */
513
514             pri = disable_ints();
515             for (pagef = scb_sidlist(index); pagef >= 0; pagef = next) {
516                 next = pft_sidfwd(pagef);
517                 if (pft_modbit(pagef)) {  /* has page frame been modified? */
518                     enable_ints(pri);
519                     return 1;
520                 }
521             }
522             enable_ints(pri);
523         }
524     }
525 #undef VMHASH
526 #endif
527 #endif /* AFS_AIX32_ENV */
528
529 #if defined (AFS_SUN_ENV)
530     if (avc->states & CMAPPED) {
531         struct page * pg;
532         for (pg = avc->v.v_s.v_Pages ; pg ; pg = pg->p_vpnext) {
533             if (pg->p_mod) {
534                 return 1;
535             }
536         }
537     }
538 #endif
539 return 0;
540 }
541 #endif /* notdef */
542
543
544 /*
545  * Solaris osi_ReleaseVM should not drop and re-obtain the vcache entry lock.
546  * This leads to bad races when osi_ReleaseVM() is called from
547  * afs_InvalidateAllSegments().
548
549  * We can do this because Solaris osi_VM_Truncate() doesn't care whether the
550  * vcache entry lock is held or not.
551  *
552  * For other platforms, in some cases osi_VM_Truncate() doesn't care, but
553  * there may be cases where it does care.  If so, it would be good to fix
554  * them so they don't care.  Until then, we assume the worst.
555  *
556  * Locking:  the vcache entry lock is held.  It is dropped and re-obtained.
557  */
558 void
559 osi_ReleaseVM(avc, acred)
560     struct vcache *avc;
561     struct AFS_UCRED *acred;
562 {
563 #ifdef  AFS_SUN5_ENV
564     AFS_GUNLOCK();
565     osi_VM_Truncate(avc, 0, acred);
566     AFS_GLOCK();
567 #else
568     ReleaseWriteLock(&avc->lock);
569     AFS_GUNLOCK();
570     osi_VM_Truncate(avc, 0, acred);
571     AFS_GLOCK();
572     ObtainWriteLock(&avc->lock, 80);
573 #endif
574 }
575
576
577 void shutdown_osi()
578 {
579     extern int afs_cold_shutdown;
580
581     AFS_STATCNT(shutdown_osi);
582     if (afs_cold_shutdown) {
583         LOCK_INIT(&afs_ftf, "afs_ftf"); 
584       }
585 }
586
587 afs_osi_suser(credp) 
588   void * credp;
589 {
590 #ifdef AFS_SUN5_ENV
591   return afs_suser(credp);
592 #else
593   return afs_suser();
594 #endif
595 }
596
597 #if AFS_GCPAGS
598
599 /* afs_osi_TraverseProcTable() - Walk through the systems process
600  * table, calling afs_GCPAGs_perproc_func() for each process.
601  */
602
603 #if defined(AFS_SUN5_ENV)
604 void afs_osi_TraverseProcTable()
605 {
606     struct proc *prp;
607     for (prp = practive; prp != NULL; prp = prp->p_next) {
608         afs_GCPAGs_perproc_func(prp);
609     }
610 }
611 #endif
612
613 #if defined(AFS_HPUX_ENV)
614
615 /*
616  * NOTE: h/proc_private.h gives the process table locking rules
617  * It indicates that access to p_cred must be protected by
618  * mp_mtproc_lock(p);
619  * mp_mtproc_unlock(p);
620  *
621  * The code in sys/pm_prot.c uses pcred_lock() to protect access to
622  * the process creds, and uses mp_mtproc_lock() only for audit-related
623  * changes.  To be safe, we use both.
624  */
625
626 void afs_osi_TraverseProcTable()
627 {
628     register proc_t *p;
629     int endchain = 0;
630
631     MP_SPINLOCK(activeproc_lock);
632     MP_SPINLOCK(sched_lock);
633     pcred_lock();
634
635     /*
636      * Instead of iterating through all of proc[], traverse only
637      * the list of active processes.  As an example of this,
638      * see foreach_process() in sys/vm_sched.c.
639      *
640      * We hold the locks for the entire scan in order to get a
641      * consistent view of the current set of creds.
642      */
643
644     for(p = proc; endchain == 0; p = &proc[p->p_fandx]) {
645         if (p->p_fandx == 0) {
646             endchain = 1;
647         }
648
649         if (system_proc(p))
650             continue;
651
652         mp_mtproc_lock(p);
653         afs_GCPAGs_perproc_func(p);
654         mp_mtproc_unlock(p);
655     }
656
657     pcred_unlock();
658     MP_SPINUNLOCK(sched_lock);
659     MP_SPINUNLOCK(activeproc_lock);
660 }
661 #endif
662
663 #if defined(AFS_SGI_ENV)
664
665 #ifdef AFS_SGI65_ENV
666 /* TODO: Fix this later. */
667 static int SGI_ProcScanFunc(void *p, void *arg, int mode)
668 {
669     return 0;
670 }
671 #else   /* AFS_SGI65_ENV */
672 static int SGI_ProcScanFunc(proc_t *p, void *arg, int mode) 
673 {
674     afs_int32 (*perproc_func)(struct proc *) = arg;
675     int code=0;
676     /* we pass in the function pointer for arg,
677      * mode ==0 for startup call, ==1 for each valid proc, 
678      * and ==2 for terminate call.
679      */
680     if(mode == 1) {
681         code = perproc_func(p);
682     }
683     return code;
684 }
685 #endif  /* AFS_SGI65_ENV */
686
687 void afs_osi_TraverseProcTable()
688 {
689     procscan(SGI_ProcScanFunc, afs_GCPAGs_perproc_func);
690 }
691 #endif  /* AFS_SGI_ENV */
692
693 #if defined(AFS_AIX_ENV)
694 void afs_osi_TraverseProcTable()
695 {
696     struct proc *p;
697     int i;
698
699     /*
700      * For binary compatibility, on AIX we need to be careful to use the
701      * proper size of a struct proc, even if it is different from what
702      * we were compiled with.
703      */
704     if (!afs_gcpags_procsize)
705         return;
706
707     simple_lock(&proc_tbl_lock);
708     for (p = (struct proc *)v.vb_proc, i = 0;
709          p < max_proc;
710          p = (struct proc *)((char *)p + afs_gcpags_procsize), i++) {
711
712         if (p->p_stat == SNONE)
713             continue;
714         if (p->p_stat == SIDL)
715             continue;
716         if (p->p_stat == SEXIT)
717             continue;
718
719         /* sanity check */
720
721         if (PROCMASK(p->p_pid) != i) {
722             afs_gcpags = AFS_GCPAGS_EPIDCHECK;
723             break;
724         }
725
726         /* sanity check */
727
728         if ((p->p_nice < P_NICE_MIN) || (P_NICE_MAX < p->p_nice)) {
729             afs_gcpags = AFS_GCPAGS_ENICECHECK;
730             break;
731         }
732
733         afs_GCPAGs_perproc_func(p);
734     }
735     simple_unlock(&proc_tbl_lock);
736 }
737 #endif
738
739 #if defined(AFS_OSF_ENV)
740 void afs_osi_TraverseProcTable()
741 {
742     struct pid_entry *pe;
743 #ifdef AFS_DUX50_ENV
744 extern struct pid_entry *pidtab;
745 extern int npid; 
746 #define pidNPID (pidtab + npid)
747 #define PID_LOCK()
748 #define PID_UNLOCK()
749 #endif
750     PID_LOCK();
751     for (pe = pidtab; pe < pidNPID; ++pe) {
752        if (pe->pe_proc != PROC_NULL)
753           afs_GCPAGs_perproc_func(pe->pe_proc);
754     }
755     PID_UNLOCK();
756 }
757 #endif
758
759 #if defined(AFS_DARWIN_ENV) || defined(AFS_FBSD_ENV)
760 void afs_osi_TraverseProcTable()
761 {   
762     struct proc *p;
763     LIST_FOREACH(p, &allproc, p_list) {
764         if (p->p_stat == SIDL)
765             continue;
766         if (p->p_stat == SZOMB)
767             continue;
768         if (p->p_flag & P_SYSTEM)
769             continue;
770           afs_GCPAGs_perproc_func(p);
771     }
772 }   
773 #endif
774
775 /* return a pointer (sometimes a static copy ) to the cred for a
776  * given AFS_PROC.
777  * subsequent calls may overwrite the previously returned value.
778  */
779
780 #if defined(AFS_SGI65_ENV)
781 const struct AFS_UCRED *afs_osi_proc2cred(AFS_PROC *pr)
782 {
783     return NULL;
784 }
785 #elif defined(AFS_HPUX_ENV)
786 const struct AFS_UCRED *afs_osi_proc2cred(proc_t *p)
787 {
788     if (!p)
789         return;
790
791     /*
792      * Cannot use afs_warnuser() here, as the code path
793      * eventually wants to grab sched_lock, which is
794      * already held here
795      */
796
797     return p_cred(p);
798 }
799 #elif defined(AFS_AIX_ENV)
800
801 /* GLOBAL DECLARATIONS */
802
803 extern int      xmattach();        /* fills out cross memory descriptor */
804 extern int      xmdetach();        /* decrements reference count to segment */
805
806 /*
807  * LOCKS: the caller must do
808  *  simple_lock(&proc_tbl_lock);
809  *  simple_unlock(&proc_tbl_lock);
810  * around calls to this function.
811  */
812
813 const struct AFS_UCRED *afs_osi_proc2cred(AFS_PROC *pproc)
814 {
815     struct AFS_UCRED *pcred = 0;
816
817     /*
818      * pointer to process user structure valid in *our*
819      * address space
820      *
821      * The user structure for a process is stored in the user
822      * address space (as distinct from the kernel address
823      * space), and so to refer to the user structure of a
824      * different process we must employ special measures.
825      *
826      * I followed the example used in the AIX getproc() system
827      * call in bos/kernel/proc/getproc.c
828      */
829     struct user *xmem_userp;
830
831     struct xmem dp;             /* ptr to xmem descriptor */
832     int xm;                     /* xmem result */
833
834     if (!pproc) {
835         return pcred;
836     }
837
838     /*
839      * The process private segment in which the user
840      * area is located may disappear. We need to increment
841      * its use count. Therefore we
842      *    - get the proc_tbl_lock to hold the segment.
843      *    - get the p_lock to lockout vm_cleardata.
844      *    - vm_att to load the segment register (no check)
845      *    - xmattach to bump its use count.
846      *    - release the p_lock.
847      *    - release the proc_tbl_lock.
848      *    - do whatever we need.
849      *    - xmdetach to decrement the use count.
850      *    - vm_det to free the segment register (no check)
851      */
852
853     xmem_userp = NULL;
854     xm = XMEM_FAIL;
855     /* simple_lock(&proc_tbl_lock); */
856     if (pproc->p_adspace != NULLSEGVAL) {
857
858         simple_lock(&pproc->p_lock);
859
860         if (pproc->p_threadcount &&
861             pproc->p_threadlist) {
862
863             /*
864              * arbitrarily pick the first thread in pproc
865              */
866             struct thread *pproc_thread =
867                 pproc->p_threadlist;
868
869             /*
870              * location of 'struct user' in pproc's
871              * address space
872              */
873             struct user *pproc_userp =
874                 pproc_thread->t_userp;
875
876             /*
877              * create a pointer valid in my own address space
878              */
879
880             xmem_userp =
881                 (struct user *)vm_att(pproc->p_adspace,
882                                       pproc_userp);
883
884             dp.aspace_id = XMEM_INVAL;
885             xm = xmattach(xmem_userp,
886                           sizeof(*xmem_userp),
887                           &dp, SYS_ADSPACE);
888         }
889
890         simple_unlock(&pproc->p_lock);
891     }
892     /* simple_unlock(&proc_tbl_lock); */
893     if (xm == XMEM_SUCC) {
894
895         static struct AFS_UCRED cred;
896
897         /*
898          * What locking should we use to protect access to the user
899          * area?  If needed also change the code in AIX/osi_groups.c.
900          */
901
902         /* copy cred to local address space */
903         cred = *xmem_userp->U_cred;
904         pcred = &cred;
905
906         xmdetach(&dp);
907     }
908     if (xmem_userp) {
909         vm_det((void *)xmem_userp);
910     }
911
912     return pcred;
913 }
914
915 #elif defined(AFS_OSF_ENV)
916 const struct AFS_UCRED *afs_osi_proc2cred(AFS_PROC *pr)
917 {
918     struct AFS_UCRED *rv=NULL;
919
920     if(pr == NULL) {
921        return NULL;
922     }
923
924     if((pr->p_stat == SSLEEP) ||
925        (pr->p_stat == SRUN) ||
926        (pr->p_stat == SSTOP)) 
927        rv = pr->p_rcred;
928
929     return rv;
930 }
931 #elif defined(AFS_DARWIN_ENV) || defined(AFS_FBSD_ENV)
932 const struct AFS_UCRED *afs_osi_proc2cred(AFS_PROC *pr)
933 {   
934     struct AFS_UCRED *rv=NULL;
935     static struct AFS_UCRED cr;
936
937     if(pr == NULL) {
938        return NULL;
939     }
940    
941     if((pr->p_stat == SSLEEP) ||
942        (pr->p_stat == SRUN) ||
943        (pr->p_stat == SSTOP)) {
944        pcred_readlock(pr);
945        cr.cr_ref=1;
946        cr.cr_uid=pr->p_cred->pc_ucred->cr_uid;
947        cr.cr_ngroups=pr->p_cred->pc_ucred->cr_ngroups;
948        memcpy(cr.cr_groups, pr->p_cred->pc_ucred->cr_groups, NGROUPS *
949              sizeof(gid_t));
950        pcred_unlock(pr);
951        rv = &cr;
952     }
953     
954     return rv;
955 }  
956 #else
957 const struct AFS_UCRED *afs_osi_proc2cred(AFS_PROC *pr)
958 {
959     struct AFS_UCRED *rv=NULL;
960
961     if(pr == NULL) {
962        return NULL;
963     }
964     rv = pr->p_cred;          
965
966     return rv;
967 }
968 #endif
969
970 #endif  /* AFS_GCPAGS */