Annotation of OpenXM/src/cfep/MyEnvironment.m, Revision 1.1
1.1 ! takayama 1: //
! 2: // MyEnvironment.m
! 3: // cfep
! 4: //
! 5: // Created by Nobuki Takayama on 06/01/22.
! 6: // Copyright 2006 OpenXM.org. All rights reserved.
! 7: //
! 8:
! 9: #import "MyEnvironment.h"
! 10:
! 11:
! 12: @implementation MyEnvironment
! 13:
! 14: // -(MyEnvironment *) initFor:with: ; // init with a filename to load. MyEnvironment may be written in the file.
! 15:
! 16: // init sets up protocol resources and environment for the task.
! 17: -(MyEnvironment *) init {
! 18: return [self initFor: OX_TEXMACS];
! 19: }
! 20: -(MyEnvironment *) initFor: (enum peer_type) myPeerType {
! 21: int i;
! 22: NSString *s;
! 23: NSSocketPort *s6000;
! 24: #define SIZE_e 5
! 25: NSString *e[] ={@"ASIRRC", @"OX_XTERM", @"LC_CTYPE",@"LC_ALL", @"LANG"};
! 26: NSString *eDefault[]={nil , nil, nil, nil, nil };
! 27: if (self = [super init]) {
! 28: peer = myPeerType;
! 29:
! 30: isXRunning = [MyEnvironment checkX];
! 31:
! 32: //long initialization to the default value. Personal initialization will be read in the different method.
! 33: //(1)local string ( or default value)-->(2)preferences by .cfep/cfep.init
! 34: // --> private in the file
! 35: OpenXM_HOME=[[[NSBundle mainBundle] bundlePath] stringByAppendingString: @"/OpenXM"];
! 36: [OpenXM_HOME retain];
! 37:
! 38:
! 39: s = NSLocalizedString(@"PEER_END_EVALUATE_MARK",nil);
! 40: if ([s compare: @"PEER_END_EVALUATE_MARK"] == NSOrderedSame) {
! 41: // default value
! 42: if (myPeerType == OX_TEXMACS)
! 43: peerEndEvaluateMark = [NSData dataWithBytes: (void *)"\005" length: 1];
! 44: else peerEndEvaluateMark = [NSData dataWithBytes: (void *)"\n" length: 1];
! 45: }else{
! 46: NSLog(@"PEER_END_EVALUATION_MARK. Not yet implemented.");
! 47: }
! 48: [peerEndEvaluateMark retain];
! 49:
! 50: s = NSLocalizedString(@"PEER_STARTUP_STRING",nil);
! 51: if ([s compare: @"PEER_STARTUP_STRING"] == NSOrderedSame) {
! 52: // default value
! 53: if (myPeerType == OX_TEXMACS)
! 54: peerStartupString = [OpenXM_HOME stringByAppendingString: @"/bin/ox_texmacs --view cfep --engineLogToStdout -asirInitFile cfep-init.rr\n"];
! 55: else peerStartupString = @"\n";
! 56: }else{
! 57: if (myPeerType == OX_TEXMACS)
! 58: peerStartupString = [OpenXM_HOME stringByAppendingString: [NSString stringWithString: s]];
! 59: else peerStartupString = @"\n";
! 60: }
! 61: [peerStartupString retain];
! 62:
! 63: s = NSLocalizedString(@"PEER_INITIALIZATION_STRING",nil);
! 64: if ([s compare: @"PEER_INITIALIZATION_STRING"] == NSOrderedSame) {
! 65: // default value
! 66: peerInitializationString = @"";
! 67: }else{
! 68: peerInitializationString = [NSString stringWithString: s];
! 69: }
! 70: [peerInitializationString retain];
! 71:
! 72: s = NSLocalizedString(@"PEER_HELP_DIR",nil);
! 73: if ([s compare: @"PEER_HELP_DIR"] == NSOrderedSame) {
! 74: // default value
! 75: peerHelpDir = [OpenXM_HOME stringByAppendingString:
! 76: @"/doc/cfep/intro-ja.html"];
! 77: }else{
! 78: peerHelpDir = [NSString stringWithString: s];
! 79: }
! 80: [peerHelpDir retain];
! 81:
! 82: s = NSLocalizedString(@"PEER_OPTION_STRING",nil);
! 83: if ([s compare: @"PEER_OPTION_STRING"] == NSOrderedSame) {
! 84: // default value
! 85: if (myPeerType == OX_TEXMACS) peerOptionString = @""; // @" --noWindow ";
! 86: else peerOptionString =@"";
! 87: }else{
! 88: peerOptionString = [NSString stringWithString: s];
! 89: }
! 90: [peerOptionString retain];
! 91:
! 92: myUnixEnvironment = [NSMutableDictionary dictionaryWithCapacity: 32];
! 93: [myUnixEnvironment retain];
! 94: [myUnixEnvironment setObject: OpenXM_HOME forKey: @"OpenXM_HOME"];
! 95: for (i=0; i< SIZE_e; i++) {
! 96: s = NSLocalizedString(e[i],nil);
! 97: if ([s compare: e[i]] == NSOrderedSame) {
! 98: if (eDefault[i] != nil) {
! 99: [myUnixEnvironment setObject: eDefault[i] forKey: e[i]];
! 100: }
! 101: }else{
! 102: [myUnixEnvironment setObject: [NSString stringWithString: s]
! 103: forKey: e[i]];
! 104: }
! 105: }
! 106:
! 107: s = NSLocalizedString(@"DISPLAY",nil);
! 108: if ([s compare: @"DISPLAY"] == NSOrderedSame) {
! 109: if (isXRunning) [myUnixEnvironment setObject: @":0.0" forKey: @"DISPLAY"];
! 110: }else{
! 111: [myUnixEnvironment setObject: s forKey: @"DISPLAY"];
! 112: }
! 113:
! 114: s = NSLocalizedString(@"XAUTHORITY",nil);
! 115: if ([s compare: @"XAUTHORITY"] == NSOrderedSame) {
! 116: if (isXRunning)
! 117: [myUnixEnvironment setObject: [NSHomeDirectory() stringByAppendingString: @"/.Xauthority"]
! 118: forKey: @"XAUTHORITY"];
! 119: }else{
! 120: [myUnixEnvironment setObject: s forKey: @"XAUTHORITY"];
! 121: }
! 122:
! 123: s = NSLocalizedString(@"DYLD_LIBRARY_PATH",nil);
! 124: if ([s compare: @"DYLD_LIBRARY_PATH"] == NSOrderedSame) {
! 125: [myUnixEnvironment setObject: [OpenXM_HOME stringByAppendingString: @"/lib"]
! 126: forKey: @"DYLD_LIBRARY_PATH"];
! 127: }else{
! 128: [myUnixEnvironment setObject: s forKey: @"DYLD_LIBRARY_PATH"];
! 129: }
! 130:
! 131: myDefaultTypingAttributes=
! 132: [NSDictionary dictionaryWithObject: [NSFont fontWithName: @"Courier" size: 12] forKey: @"NSFont"];
! 133: [myDefaultTypingAttributes retain];
! 134: // [textViewIn setTypingAttributes: adic];
! 135:
! 136:
! 137: }
! 138: [self retain];
! 139: return self;
! 140: }
! 141: -(void) dealloc {
! 142: NSLog(@"dealloc of MyEnvironment.\n");
! 143: [OpenXM_HOME autorelease]; // or release ?
! 144: [peerEndEvaluateMark autorelease];
! 145: [peerStartupString autorelease];
! 146: [peerInitializationString autorelease];
! 147: [peerHelpDir autorelease];
! 148: [peerOptionString autorelease];
! 149: [myUnixEnvironment autorelease];
! 150: [super dealloc];
! 151: }
! 152: +(int) checkX {
! 153: NSEnumerator *apps = [[[NSWorkspace sharedWorkspace] launchedApplications] objectEnumerator ];
! 154: NSDictionary *dicApp;
! 155: while (dicApp = [apps nextObject]) {
! 156: if ([@"X11" compare: [dicApp objectForKey: @"NSApplicationName"]] == NSOrderedSame) {
! 157: NSLog(@"X11 is running.\n");
! 158: return 1;
! 159: }
! 160: }
! 161: NSLog(@"X11 is NOT running.\n");
! 162: return 0;
! 163: }
! 164: -(void) showForDebug {
! 165: NSLog(@"OpenXM_HOME=%@\n",OpenXM_HOME);
! 166: NSLog(@"peer=%d\n",peer);
! 167: NSLog(@"peerEndEvaluateMark=%@\n",peerEndEvaluateMark);
! 168: NSLog(@"peerStartupString=%@\n",peerStartupString);
! 169: NSLog(@"peerInitializationString=%@\n",peerInitializationString);
! 170: NSLog(@"peerHelpDir=%@\n",peerHelpDir);
! 171: NSLog(@"peerOptionString=%@\n",peerOptionString);
! 172: NSLog(@"myUnixEnvironment=%@\n",myUnixEnvironment);
! 173: }
! 174: -(NSMutableDictionary *) getMyUnixEnvironment {
! 175: return myUnixEnvironment;
! 176: }
! 177: -(enum peer_type) getPeer {
! 178: return peer;
! 179: }
! 180: -(NSData *)getPeerEndEvaluateMark {
! 181: return peerEndEvaluateMark;
! 182: }
! 183: -(NSString *)getOpenXM_HOME {
! 184: return OpenXM_HOME;
! 185: }
! 186: -(NSString *)getPeerStartupString {
! 187: return peerStartupString;
! 188: }
! 189: -(NSString *)getPeerInitializationString {
! 190: return peerInitializationString;
! 191: }
! 192: -(NSString *)getPeerOptionString {
! 193: return peerOptionString;
! 194: }
! 195: -(NSDictionary *)getMyDefaultTypingAttributes {
! 196: return myDefaultTypingAttributes;
! 197: }
! 198:
! 199:
! 200: @end
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to MyEnvironment.m CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / cfep