|
|
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: NXConstantString.m ! 26: Copyright 1991, NeXT, Inc. ! 27: Responsibility: ! 28: */ ! 29: ! 30: #ifndef KERNEL ! 31: #ifdef SHLIB ! 32: #import "shlib.h" ! 33: #endif SHLIB ! 34: ! 35: #import "NXStringPrivate.h" ! 36: ! 37: @implementation NXConstantString ! 38: ! 39: // We allow allocFromZone:, since this what typedstreams will use when ! 40: // unarchiving. However, we make the designated initializer raise. ! 41: ! 42: - initFromCharactersNoCopy:(unichar *)chars length:(unsigned)len ! 43: { ! 44: return [self doesNotRecognize:_cmd]; ! 45: } ! 46: ! 47: // Simply returns self, since NXConstantString's cannot be freed. ! 48: // Beware that NXConstantString's will disappear when dynamically loaded ! 49: // code is unloaded! ! 50: ! 51: - copyFromZone:(NXZone *)zone ! 52: { ! 53: return self; ! 54: } ! 55: ! 56: // Ignore free messages ! 57: ! 58: - free ! 59: { ! 60: return nil; ! 61: } ! 62: ! 63: - _reallyFree ! 64: { ! 65: return [super free]; ! 66: } ! 67: ! 68: // When unarchiving, replace ourselves with an NXReadOnlyString. ! 69: ! 70: // Ugh. We would rather write out an NXReadOnlyString in the first place, ! 71: // but because of how typedstreams work this won't work at all. ! 72: // By the time we recieve the write method, our class name has already ! 73: // been written out. That code should be moved to [Object write] ! 74: // so that it only happens when [super write] is called (mself - 10/8/91). ! 75: ! 76: - finishUnarchiving ! 77: { ! 78: NXString *newString = [NXReadOnlyString alloc] ; ! 79: ! 80: [newString initFromCharacters:characters length:_length]; ! 81: [self _reallyFree]; ! 82: return newString; ! 83: } ! 84: ! 85: @end ! 86: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.