Return to ObjcProcess.m CVS log

Up to [Apple Darwin 0.x] / objc / Test / ostats

Annotation of objc/Test/ostats/ObjcProcess.m, revision 1.1

1.1     ! root        1: /*
        !             2:  * Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
        !             3:  *
        !             4:  * @APPLE_LICENSE_HEADER_START@
        !             5:  * 
        !             6:  * "Portions Copyright (c) 1999 Apple Computer, Inc.  All Rights
        !             7:  * Reserved.  This file contains Original Code and/or Modifications of
        !             8:  * Original Code as defined in and that are subject to the Apple Public
        !             9:  * Source License Version 1.0 (the 'License').  You may not use this file
        !            10:  * except in compliance with the License.  Please obtain a copy of the
        !            11:  * License at http://www.apple.com/publicsource and read it before using
        !            12:  * this file.
        !            13:  * 
        !            14:  * The Original Code and all software distributed under the License are
        !            15:  * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
        !            16:  * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
        !            17:  * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
        !            18:  * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT.  Please see the
        !            19:  * License for the specific language governing rights and limitations
        !            20:  * under the License."
        !            21:  * 
        !            22:  * @APPLE_LICENSE_HEADER_END@
        !            23:  */
        !            24: 
        !            25: #import <objc/Storage.h>
        !            26: #import <objc/List.h>
        !            27: #import <objc/HashTable.h>
        !            28: #import <objc/objc-runtime.h>
        !            29: 
        !            30: 
        !            31: #import <sys/file.h>
        !            32: #import <string.h>
        !            33: #import <sys/loader.h>
        !            34: #import <sys/table.h>
        !            35: #import <sys/types.h>
        !            36: #import <sys/stat.h>
        !            37: #import <ldsyms.h>
        !            38: #import <mach.h>
        !            39: #import <stdlib.h>
        !            40: 
        !            41: #import "RegionManager.h"
        !            42: #import "ObjcProcess.h"
        !            43: #import "ObjcImage.h"
        !            44: #import <sys/loader.h>
        !            45: 
        !            46: struct section *getsectbynamefromheader(struct mach_header *, char *, char *);
        !            47: int table(int, int, void *, int, int);
        !            48: int open(const char *, int, ...);
        !            49: int close(int);
        !            50: kern_return_t map_fd(int, vm_offset_t, vm_offset_t *, boolean_t, vm_size_t);
        !            51: 
        !            52: @implementation ObjcProcess
        !            53: 
        !            54: 
        !            55: + newFromTask:(vm_task_t)task
        !            56: {
        !            57:        struct mach_headers **machhdrs;
        !            58: 
        !            59:        self = [super new];
        !            60:        regionManager = [RegionManager newTask:task];
        !            61:        imageList = [List new];
        !            62: 
        !            63:        machhdrs = [regionManager getMachHeaders];
        !            64:        while (*machhdrs) {
        !            65:                id image = [ObjcImage newFromHeader:*machhdrs];
        !            66:                [[image regionManager:regionManager] getModules];
        !            67:                [imageList addObject:image];
        !            68:                machhdrs++;
        !            69:        }
        !            70:        return self;
        !            71: }
        !            72: 
        !            73: 
        !            74: #if 0
        !            75: 
        !            76: -(List *)getClasses
        !            77: {
        !            78:        struct objc_symtab *memSymtab;
        !            79:        struct objc_module *memModules, *memModule, *endOfModules;
        !            80:        struct mach_header *memHeader;
        !            81:        int numClass, headerIndex;
        !            82:        Class memClass, memMetaClass;
        !            83:        List *orphans;
        !            84:        int memSize;
        !            85:        orphans = [List new];
        !            86:        for (headerIndex = 0; headerIndex < machhdrs[headerIndex]; headerIndex++) {
        !            87:        
        !            88:                memHeader = machhdrs[headerIndex];
        !            89: 
        !            90:                memModules = [regionManager 
        !            91:                                getSectData: SEG_OBJC 
        !            92:                                section: SECT_OBJC_MODULES 
        !            93:                                size: &memSize 
        !            94:                                forHeader: memHeader]; 
        !            95: 
        !            96:                endOfModules =  (struct objc_module *)((char *)memModules + memSize);                                                                                                                                   
        !            97:                for (   memModule = memModules;
        !            98:                        memModule < endOfModules; 
        !            99:                        memModule =  (struct objc_module *)((STR)memModule + memModule->size)) {
        !           100:                        if (memSymtab = WARP(memModule->symtab)) {
        !           101:                                for (numClass = 0; numClass < memSymtab->cls_def_cnt; numClass++) {
        !           102:                                        if (memClass = WARP(memSymtab->defs[numClass])) {
        !           103:                                                [self adopt: orphans with: memClass];
        !           104:                                        }
        !           105:                                }
        !           106:                        }
        !           107:                }
        !           108:        }
        !           109:        return orphans;
        !           110: }
        !           111: 
        !           112: #endif
        !           113: 
        !           114: 
        !           115: @end
        !           116: 
        !           117: 
        !           118: 
        !           119: 
        !           120: 
        !           121: 
        !           122: 
        !           123: 
        !           124: 
        !           125: 
        !           126: 
        !           127: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.