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