Annotation of OpenXM/src/cfep/MyDocument.m, Revision 1.11
1.1 takayama 1: //
2: // MyDocument.m
3: // cfep
4: //
5: // Created by Nobuki Takayama
6: // Copyright (c) 2006 OpenXM.org
7: //
8:
9: // [self setDefaultPeer BASH] or [self setDefaultPeer OX_TEXMACS]
10:
11: #include <signal.h>
12: #import "MyDocument.h"
13: #import "MyOutputWindowController.h"
14: #import "MyOpenGLController.h"
15:
16: int myDebug=0;
17: static int myDocumentSaidTheMessageAboutX = 0;
18:
19:
20: @implementation MyDocument
1.4 takayama 21: static int NoEngine = 0; // experimental.
22: static NSMenuItem *menuItemNoEngine = nil; // NoEngine
1.3 takayama 23: // For OnState or OffState in the execution menu
24: static NSMenuItem *menuItemNotebookMode = nil;
25: static NSMenuItem *menuItemBasicMode = nil;
26: static NSMenuItem *menuItemRisaAsir = nil;
27: static NSMenuItem *menuItemKanSm1 = nil;
28: static NSMenuItem *menuItemOutputDebugMessages = nil; //cf. debugMyTunnel;
29: static NSMenuItem *menuItemPrettyPrint = nil; // prettyPrint.
30:
1.1 takayama 31:
32: - (void)dealloc {
33: MyOutputWindowController *mowc;
34: if (myDebug) NSLog(@"dealloc of MyDocument.\n");
35: if (myDebug) NSLog(@"retainCount of task=%d\n",[task retainCount]); // why is it 2?
36: [self closeMyModel];
37: // [task dealloc]; //BUG. if we do this, error happens.
38: mowc = [MyOutputWindowController sharedMyOutputWindowController: self];
39: if (mowc != nil) [mowc closeMyOutputWindow: self];
40: if (errorLines) { [errorLines autorelease]; errorLines = nil; }
41:
42: [myDecoder dealloc];
43:
44: [dataFromFile release];
45: [rtfDataFromFile release];
46: [textDataFromFile release];
47: if (myDebug) NSLog(@"Done: dealloc of MyDocument.\n");
48: [super dealloc];
49: }
50:
51: // The name of the nib file to load for this document.
52: - (NSString *)windowNibName
53: {
54: return @"MyDocument";
55: }
56:
57: // Loads up the data when the nib file is loaded.
58: - (void)windowControllerDidLoadNib:(NSWindowController *)aController {
59: [super windowControllerDidLoadNib:aController];
60:
61: if (dataFromFile) {
62: [self loadtextViewWithData:dataFromFile];
63: [dataFromFile release];
64: dataFromFile = nil;
65: } else if (rtfDataFromFile) {
66: [self loadtextViewWithRTFData: rtfDataFromFile];
67: [rtfDataFromFile release];
68: rtfDataFromFile = nil;
69: } else if (textDataFromFile) {
70: [self loadtextViewWithTextData: textDataFromFile];
71: [textDataFromFile release];
72: textDataFromFile = nil;
73: }
74: [self addMenuExec]; // adding the execution menu.
75: [textViewIn setAllowsUndo:YES];
1.2 takayama 76: if ([textViewIn isContinuousSpellCheckingEnabled]) [textViewIn toggleContinuousSpellChecking: self]; // Turn off the spell checking.
1.10 takayama 77: if ([textViewIn isAutomaticQuoteSubstitutionEnabled]) [textViewIn toggleAutomaticQuoteSubstitution: self]; // Turn off the smart quote.
1.8 takayama 78: if ([MyEnvironment isX11Installed] != 1)
1.11 ! takayama 79: [self messageDialog: NSLocalizedString(@"XQuartz(X11) is not installed. To install it, visit http://www.xquartz.org.",nil) with: 0];
1.9 takayama 80: // if ([MyEnvironment isGccInstalled] != 1)
81: // [self messageDialog: NSLocalizedString(@"gcc is not installed. To install it, insert MacOS DVD1 and open Xcode Tools->XcodeTools.mpkg",nil) with: 0];
1.1 takayama 82: [self sayTheMessageAboutX];
83: [self initAux];
84: }
85:
86: // Load the view with data given an NSData.
87: - (void)loadtextViewWithData:(NSData *)data {
88: [textViewIn replaceCharactersInRange:NSMakeRange(0, [[textViewIn string] length]) withRTFD:data];
89: }
90: - (void)loadtextViewWithRTFData:(NSData *)data {
91: [textViewIn replaceCharactersInRange:NSMakeRange(0, [[textViewIn string] length]) withRTF:data];
92: }
93: -(void) loadtextViewWithTextData:(NSData *)data {
94: [textViewIn replaceCharactersInRange: NSMakeRange(0,[[textViewIn string] length])
95: withString:[NSString stringWithCString: [data bytes] encoding:NSUTF8StringEncoding]];
96: }
97:
98: // Return an NSData representation of our document's view.
99: - (NSData *)dataRepresentationOfType:(NSString *)aType {
100: if ([@"RTFWithGraphics" compare: aType] == NSOrderedSame) {
101: return [textViewIn RTFDFromRange:NSMakeRange(0, [[textViewIn string] length])];
102: }else if ([@"RTF" compare: aType] == NSOrderedSame) {
103: return [textViewIn RTFFromRange:NSMakeRange(0, [[textViewIn string] length])];
104: }else {
105: return [[textViewIn string] dataUsingEncoding: NSUTF8StringEncoding];
106: }
107: }
108:
109: // If we're loading from a file just retain the data and it will be
110: // loaded when windowControllerDidLoadNib is invoked. If not, go
111: // ahead and load the view with the data.
112: // These paths are separate in order to support Revert where the
113: // data is reloaded but the nib is not.
114: - (BOOL)loadDataRepresentation:(NSData *)data ofType:(NSString *)aType {
115: if ([@"RTFWithGraphics" compare: aType] == NSOrderedSame) {
116: if (textViewIn)
117: [self loadtextViewWithData:data];
118: else
119: dataFromFile = [data retain];
120: }else if ([@"RTF" compare: aType] == NSOrderedSame) {
121: if (textViewIn)
122: [self loadtextViewWithRTFData:data];
123: else
124: rtfDataFromFile = [data retain];
125: }else{
126: if (textViewIn)
127: [self loadtextViewWithTextData: data];
128: else
129: textDataFromFile = [data retain];
130: }
131:
132: return YES;
133: }
134:
135: // =======================================================================
136:
137: -(void) initAux {
138: static int serial;
139: MyEnvironment *myEnvironment;
140: myDocumentKey = [@"myDocumentNo" stringByAppendingString: [NSString stringWithFormat: @"%d",(++serial)]];
141: [myDocumentKey retain];
142:
143: onlySelectedArea = 0;
144: notebookMode = 0; // or = 1; // experimental.
145: oxEngine = 0; // experimental. For select engine menu.
146: errorLines = [NSMutableArray arrayWithCapacity: 10]; [errorLines retain];
147: debugMyTunnel = 0;
148: task = nil;
149: myEnvironment = [[MyEnvironment alloc] init]; [myEnvironment retain];
150:
151: myDefaultTypingAttributes = [myEnvironment getMyDefaultTypingAttributes];
152: [myDefaultTypingAttributes retain];
153: [textViewIn setTypingAttributes: myDefaultTypingAttributes];
154:
155: myDecoder = [[MyDecoder alloc] init]; [myDecoder retain];
156:
157: [self openMyModel: myEnvironment ];
1.3 takayama 158: [MyOpenGLController initMyOpenGLController]; // For the second execution, it will do nothing.
1.1 takayama 159: }
1.10 takayama 160: -(NSString *) getMyDocumentKey { return myDocumentKey; }
1.1 takayama 161:
162: -(id) openMyModel: (MyEnvironment *) myEnvironment {
163: [myEnvironment showForDebug]; // for debug.
164: OpenXM_HOME= [myEnvironment getOpenXM_HOME];
165: [OpenXM_HOME retain]; // without these SIGSEGV
166: inputCounter = outputCounter = 0;
167: redirectPrint = 0;
168: peer = [myEnvironment getPeer];
169: peerStartupString = [myEnvironment getPeerStartupString];
170: [peerStartupString retain];
171: peerEndEvaluteMark = [myEnvironment getPeerEndEvaluateMark];
172: [peerEndEvaluteMark retain];
173:
174: [self stopIndicator];
1.10 takayama 175: if (NoEngine && (!restartMode)) { task = nil; return self; }
1.4 takayama 176:
1.1 takayama 177: // Initialization to call /bin/bash
178: outboundPipe = [NSPipe pipe]; // since autorelease is called in pipe.
179: inboundPipe = [NSPipe pipe];
180: errPipe = [NSPipe pipe];
181: [outboundPipe retain]; [inboundPipe retain]; [errPipe retain];
182: outboundFileHandle = [outboundPipe fileHandleForWriting];
183: inboundFileHandle = [inboundPipe fileHandleForReading];
184: errFileHandle = [errPipe fileHandleForReading];
185:
186: NSLog(@"Starting /bin/bash\n");
187: task = [[NSTask alloc] init];
188: [task setStandardInput: outboundPipe];
189: [task setStandardOutput: inboundPipe];
190: [task setStandardError: errPipe];
191: [task setEnvironment: [myEnvironment getMyUnixEnvironment]];
192: //[task setArguments: [NSArray arrayWithObject: @"http://www.google.com"]];
193: //[task setLaunchPath: @"/usr/bin/open"];
194: //[task setLaunchPath: @"/Users/NobukiTakayama/OX4/OpenXM/bin/asir"];
195: //[task setLaunchPath: @"/bin/date"];
196: [task setLaunchPath: @"/bin/bash"];
197: // launch will be done after nib is loaded.
198: @try { // version >= 10.3, add option in info
199: [task launch];
200: } @catch (NSException *exception) {
201: NSLog(@"init task launch Caught %@: %@", [exception name], [exception reason]);
202: } @finally {
203: NSLog(@"/bin/bash is started.\n");
204: // fprintf(stderr,"pid = %d\n",[task processIdentifier]);
205: signal(SIGPIPE,SIG_IGN); //BUG. non-cocoa way.
206: [self oxEvaluateString: peerStartupString withMark: FALSE];
207: }
208:
209: [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(readInboundData:)
210: name:NSFileHandleDataAvailableNotification object: inboundFileHandle];
211: [inboundFileHandle waitForDataInBackgroundAndNotify];
212: [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(readErrData:)
213: name:NSFileHandleDataAvailableNotification object: errFileHandle];
214: [errFileHandle waitForDataInBackgroundAndNotify];
215:
216: return self;
217: }
218:
219: - (void) closeMyModel {
220: [self stopIndicator];
221: if (task == nil) {
222: NSLog(@"closeMyModel. Task is not running.\n"); return ;
223: }
224: [[NSNotificationCenter defaultCenter] removeObserver:self
225: name:NSFileHandleDataAvailableNotification object: inboundFileHandle];
226: [[NSNotificationCenter defaultCenter] removeObserver:self
227: name:NSFileHandleDataAvailableNotification object: errFileHandle];
228:
229: [inboundFileHandle closeFile];
230: [outboundFileHandle closeFile];
231: [errFileHandle closeFile];
232: [task terminate];
233: task = nil; //BUG. memory leak?
234: NSLog(@"Terminated the child process.\n");
235: }
236:
237: -(id) restartMyModel: (enum peer_type) peerType {
238: MyEnvironment *myEnvironment;
1.4 takayama 239: restartMode = 1;
1.1 takayama 240: [self closeMyModel];
241: myEnvironment = [[MyEnvironment alloc] initFor: peerType]; //BUG. leak memory?
242: [myEnvironment retain];
243: [myEnvironment showForDebug]; // for debug.
244: [self openMyModel: myEnvironment ];
245: return self;
246: }
247:
248: // messenges
249: -(void) sayTheMessageAboutX {
250: NSLog(@"myDocumentSaidTheMessageAboutX=%d\n",myDocumentSaidTheMessageAboutX);
251: if (!myDocumentSaidTheMessageAboutX) {
252: if ([MyEnvironment checkX] != 1)
1.5 takayama 253: // [self messageDialog:
254: // NSLocalizedString(@"A few commands (plot, ...) cannot be used, because X11 is not running.",nil) with: 0];
255: [self changeOutputCounterFieldWithString:
256: [NSLocalizedString(@"Output mini-view: ",nil) stringByAppendingString:
257: NSLocalizedString(@"A few commands (plot, ...) cannot be used, because X11 is not running.",nil)]];
1.1 takayama 258: myDocumentSaidTheMessageAboutX = 1;
259: }
260: }
261:
262: - (IBAction) oxEvaluate:(id) sender {
263: NSString* cmd0;
264: NSMutableString *cmd;
265: NSRange r;
266:
1.4 takayama 267: if (!task) return;
1.1 takayama 268: if (inEvaluation) {
269: NSLog(@"In evaluatioin. ");
270: [self messageDialog: NSLocalizedString(@"Evaluating...",nil) with: 0];
271: return;
272: }
273: if (notebookMode) doInsertNewInputCell=0;
274: else [[MyOutputWindowController sharedMyOutputWindowController: self] showUp];
275: ox_texmacs_level=0;
276: [self clearLines];
277:
278: [textViewIn setTypingAttributes: myDefaultTypingAttributes];
279:
280: if (notebookMode) {
281: cmd0 = [self getContentsOfInputCell];
282: [self prepareOutputCell];
283: }else if (onlySelectedArea) {
284: r = [textViewIn selectedRange];
285: // NSLog(@"r=(%d,%d)\n",r.location,r.length);
286: cmd0 = [textViewIn string];
287: if (r.length != 0) {
288: cmd0= [cmd0 substringWithRange: r];
289: }else{
290: int pos;
291: r = [cmd0 lineRangeForRange: r];
292: pos = r.location+r.length;
293: [textViewIn setSelectedRange: r]; // select the range containing the insertion point.
294: if (pos < [cmd0 length]) {
295: [textViewIn replaceCharactersInRange: NSMakeRange(pos+1,0) withString: @""];
296: }else{
297: [textViewIn replaceCharactersInRange: NSMakeRange(pos,0) withString: @"\n"];
298: }
299: cmd0 = [cmd0 substringWithRange:r ];
1.6 takayama 300: }
301: [self outputBorderLine: [NSColor magentaColor]];
302: [self outputString: cmd0];
303: if ([cmd0 length] > 0) {
304: if ([cmd0 characterAtIndex: ([cmd0 length]-1)] != 0xa) [self outputString: @"\n"];
305: }
306: [self outputBorderLine: [NSColor yellowColor]];
1.1 takayama 307: }else{
308: cmd0 = [textViewIn string];
309: MyOutputWindowController *mc;
310: mc = [MyOutputWindowController sharedMyOutputWindowController: self];
311: [mc clearOutputWindow];
312: }
313: cmd = [NSMutableString stringWithString: cmd0 ];
314:
315: [self changeInputCounterField: 1];
316: if (peer == OX_TEXMACS) [self startIndicator];
317: [self oxEvaluateString: cmd withMark: TRUE];
318: [self changeOutputCounterField: 1];
319: }
320:
321: - (IBAction) oxInterrupt:(id) sender {
322:
323: NSAlert *alert = [[NSAlert alloc] init];
324: [alert addButtonWithTitle: NSLocalizedString(@"OK",nil)];
325: [alert addButtonWithTitle: NSLocalizedString(@"Cancel",nil)];
326: [alert setMessageText: NSLocalizedString(@"Interrupt the ox server?",nil)];
327: [alert setInformativeText:NSLocalizedString(@"The OX-RFC-100 interruption protocol is used.",nil)];
328: [alert setAlertStyle:NSWarningAlertStyle];
329: if ([alert runModal] != NSAlertFirstButtonReturn) {
330: // Cancel clicked, return.
331: return;
332: }
333: [alert release];
334:
335: fprintf(stderr,"Trying to interrupt.\n");
1.4 takayama 336: if (task) [task interrupt];
1.1 takayama 337: inputCounter = outputCounter = 0;
338: [self stopIndicator];
339: [myDecoder reset];
340: }
341: -(IBAction) oxRenderOutput: (id) sender {
342: [self messageDialog: @"oxRenderOutput has not been implemented." with: 0];
343: }
344:
345: -(IBAction) oxEvaluateSelected: (id) sender {
346: // try or test something here
347: // end of try or test.
348: // fprintf(stderr,"OnlySelectedArea\n");
349: if (notebookMode && (onlySelectedArea == 0)) {
350: [self messageDialog: NSLocalizedString(@"Selection will be ignored in the notebook style.",nil) with: 0];
351: }
352: if (onlySelectedArea) onlySelectedArea = 0; else onlySelectedArea = 1;
353: }
354:
355: -(IBAction) oxEvaluateRegisteredString: (id) sender {
356: int ans;
357: NSAlert *alert = [[NSAlert alloc] init];
358: [alert addButtonWithTitle: NSLocalizedString(@"Cancel",nil)];
359: [alert addButtonWithTitle: NSLocalizedString(@"unix shell",nil)];
360: [alert addButtonWithTitle: NSLocalizedString(@"Risa/Asir",nil)];
361: [alert setMessageText: NSLocalizedString(@"Restart the computation server?",nil)];
362: //[alert setInformativeText:NSLocalizedString(@"",nil)];
363: [alert setAlertStyle:NSWarningAlertStyle];
364: ans = [alert runModal];
365: [alert release];
366: if (ans == NSAlertFirstButtonReturn) {
367: // Cancel clicked, return.
368: return ;
369: } else if (ans == NSAlertSecondButtonReturn) {
370: [self restartMyModel: BASH];
371: inputCounter = outputCounter = 0;
372: return ;
373: }else{
374: [self restartMyModel: OX_TEXMACS];
375: inputCounter = outputCounter = 0;
376: [myDecoder reset];
377: return;
378: }
379: }
380:
381: -(IBAction) checkSelectedArea: (id) sender {
382: int ans;
383: ans = [self selectIllegalCharacter];
384: if (ans) return;
385: [self selectBlockForward];
386: }
387:
388: -(int) oxEvaluateString: (NSString *) cmd withMark: (BOOL) yes {
389: NSData* cmdInData;
390: NSLog(@"Evaluating... ");
391: NSLog(@"%@",cmd);
392: // Evaluation is here.
1.4 takayama 393: if (!task) return -1;
1.1 takayama 394: cmdInData = [cmd dataUsingEncoding: NSUTF8StringEncoding];
395: @try {
396: //todo if (yes) [outboundFileHandle writeData: peerStartEvaluateMark];
397: [outboundFileHandle writeData: cmdInData];
398: if (yes) [outboundFileHandle writeData: peerEndEvaluteMark];
399: } @catch (NSException *exception) {
400: NSLog(@"oxEvalluateString Caught %@: %@", [exception name], [exception reason]);
401: [self messageDialog: NSLocalizedString(@"Error: Engine is not responding.",nil) with: 0];
402: return -1;
403: } @finally {
404: NSLog(@"writeData suceeded.\n");
405: }
406: // [NSThread sleepUntilDate: [NSDate dateWithTimeIntervalSinceNow: 10.0]];
407: NSLog(@"\nDone.\n");
408: return 0;
409: }
410:
411: - (void) outputString: (NSString *) amt {
412: NSRange myRange = NSMakeRange([[textViewOut textStorage] length],0);
413: if (myDebug) NSLog(@"Get in outputString\n");
414: [textViewOut replaceCharactersInRange: myRange withString: amt];
415: [textViewOut scrollRangeToVisible: NSMakeRange([[textViewOut textStorage] length],0)];
416: //[textViewOut replaceCharactersInRange: NSMakeRange(0,NSMakeRange(0,[textViewOut length])) withString: amt];
417: if (notebookMode) [self outputStringInNotebookMode: amt];
418: else {
419: MyOutputWindowController *mc;
420: mc = [MyOutputWindowController sharedMyOutputWindowController: self];
1.3 takayama 421: if (prettyPrint) [mc outputStringToOutputWindow: amt withColor: [NSColor blueColor]];
422: else [mc outputStringToOutputWindow: amt];
1.1 takayama 423: }
424: }
1.5 takayama 425: -(void)outputBorderLine: (NSColor *)color {
426: MyOutputWindowController *mc;
427: mc = [MyOutputWindowController sharedMyOutputWindowController: self];
428: [mc outputStringToOutputWindow: @"----------------------------------------\n" withColor: color];
429: }
1.1 takayama 430: - (void) outputErrorString: (NSString *) amt {
431: int oldEnd;
432: int newEnd;
433: oldEnd = [[textViewOut textStorage] length];
434: NSRange myRange = NSMakeRange(oldEnd,0);
435: [textViewOut replaceCharactersInRange: myRange withString: amt];
436: newEnd = [[textViewOut textStorage] length];
437: [textViewOut setTextColor: [NSColor orangeColor] range: NSMakeRange(oldEnd,newEnd-oldEnd)];
438: [textViewOut scrollRangeToVisible: NSMakeRange(newEnd,0)];
439: }
440:
441: - (void) printErrorMessage: (NSString *) amt {
442: MyOutputWindowController *mc;
443: if (notebookMode) [self outputErrorStringInNotebookMode: amt];
444: else {
445: mc = [MyOutputWindowController sharedMyOutputWindowController: self];
446: [mc printErrorMessageToOutputWindow: amt];
447: }
448: }
449: -(void)outputStringInNotebookMode: (NSString *)msg {
450: [self outputStringInNotebookMode: msg withColor: [NSColor blueColor]];
451: }
452: -(void)outputErrorStringInNotebookMode: (NSString *)msg {
453: [self outputStringInNotebookMode: msg withColor: [NSColor redColor]];
454: }
455: -(void)outputStringInNotebookMode: (NSString *)msg withColor: (NSColor *)color{
456: NSRange range;
457: int insertPos;
458: range=[textViewIn selectedRange];
459: insertPos = range.location+range.length;
460: range = NSMakeRange(insertPos,0);
461: [textViewIn replaceCharactersInRange: range withString: msg];
462: range = NSMakeRange(insertPos,[msg length]);
463: [textViewIn setTextColor: color range: range];
464: range=NSMakeRange(range.location+range.length,0);
465: [textViewIn scrollRangeToVisible: range];
466: [textViewIn setSelectedRange: range];
467: @synchronized(self) {
468: if (doInsertNewInputCell) {
469: if (![self getOutOfOutputCell]) [self insertInputCell];
470: doInsertNewInputCell = 0;
471: }
472: }
473: }
474:
475: -(IBAction) clearTextViewOut: (id) sender {
476: NSRange myRange = NSMakeRange(0,[[textViewOut textStorage] length]);
477: [textViewOut replaceCharactersInRange: myRange withString: @""];
478: [textViewOut replaceCharactersInRange: NSMakeRange(0,0) withString: @" \n \n \n"];
479: [textViewOut scrollRangeToVisible: NSMakeRange(0,[[textViewOut textStorage] length])];
480: }
481:
482: - (void) messageDialog: (NSString *)msg with: (int) no {
483: char s[256];
484: NSAlert *alert = [[NSAlert alloc] init];
485: sprintf(s,"%d",no);
486: [alert addButtonWithTitle: @"OK"];
487: [alert setMessageText: msg] ;
488: if (no) [alert setInformativeText: [NSString stringWithCString: (const char *) s]];
489: [alert setAlertStyle:NSWarningAlertStyle];
490: [alert runModal];
491: [alert release];
492: }
493:
494: -(void) printDocument: (id) sender {
495: int status;
496: NSAlert *alert = [[NSAlert alloc] init];
497: [alert addButtonWithTitle:NSLocalizedString(@"Cancel",nil)];
498: [alert addButtonWithTitle:NSLocalizedString(@"Print output view",nil)];
499: [alert addButtonWithTitle:NSLocalizedString(@"Print input view",nil)];
500: [alert setMessageText:NSLocalizedString(@"Which view will you print?",nil)];
501: [alert setAlertStyle:NSWarningAlertStyle];
502: status = [alert runModal];
503: switch(status) {
504: case NSAlertThirdButtonReturn:
505: [textViewIn print: sender]; break;
506: case NSAlertSecondButtonReturn:
507: [textViewOut print: sender]; break;
508: default:
509: // Cancel clicked, return.
510: return;
511: }
512: [alert release];
513: }
514:
515: -(void) showHelp: (id)sender {
516: BOOL ans;
517: NSString *path=nil;
518: //bug. temporary.
519: path = [OpenXM_HOME stringByAppendingString: @"/doc/cfep/intro-ja.html"];
520:
1.2 takayama 521: ans = [[NSWorkspace sharedWorkspace] openFile:path withApplication: @"Safari"]; //We do not use Help Viewer
1.1 takayama 522: if (ans != YES) {
523: [self messageDialog: NSLocalizedString(@"Help file is not found at cfep.app/OpenXM/doc/cfep",nil) with: 0];
524: }
525: }
526:
527: -(void) changeInputCounterField: (int) inc {
528: NSString *ss;
529: ss = [NSString stringWithFormat: NSLocalizedString(@"Input%d",nil), inputCounter];
530: [inputCounterField setStringValue: ss];
531: inputCounter += inc;
532: return;
533: }
534: -(void) changeOutputCounterField: (int) inc {
535: NSString *ss;
536: ss = [NSString stringWithFormat: NSLocalizedString(@"Out%d",nil),outputCounter];
537: [outputCounterField setStringValue: ss];
538: outputCounter += inc;
539: return;
540: }
541: -(void) changeOutputCounterFieldWithString: (NSString *) ss {
542: [outputCounterField setStringValue: ss];
543: return;
544: }
545:
546: -(void) startIndicator {
547: if (inEvaluation) return ;
548: inEvaluation = 1;
549: [myIndicator startAnimation: self];
550: }
551: -(void) stopIndicator {
552: if (inEvaluation == 0) return ;
553: inEvaluation = 0;
554: [myIndicator stopAnimation: self];
555: }
556:
557:
558: int debugInbound = 0;
559: - (void)readInboundData:(NSNotification*)aNotification
560: {
561: static int state=0;
562: static int u0 = 0;
563: static int u1 = 0;
564: static int u2 = 0;
565: int n,i,j,k;
566: unsigned char *d;
567: unsigned char *d2;
568: int c;
569: NSMutableString* inboundString;
570: NSData* data;
571: NSMutableData* data2;
572: NSString *act;
573: int channel;
574: @synchronized (self) {
575: if (debugInbound) NSLog(@"Reading inboudData\n");
576: data=[ inboundFileHandle availableData ];
577: n = [data length]; d = (unsigned char *)[data bytes];
578: if (debugInbound) NSLog(@"n=%d\n",n);
579: // if (n < 30) { for (k=0; k<n; k++) printf("%2x ",d[k]); printf("\n"); }
580: if (n == 0) { NSLog(@"Broken pipe?\n"); [self messageDialog: @"Error: Engine is not responding." with: 0]; return ; }
581: data2 = [NSMutableData dataWithCapacity: (n+4)];
582: d2 = (unsigned char *)[data2 mutableBytes];
583: i = 0; d2[i] = 0;
584: for (j = 0; j< n; j++) {
585: c = d[j];
586: if (c == END_OF_EVALUATION_OF_OX_TEXMACS) {
587: [self stopIndicator];
588: ox_texmacs_level--;
589: if (ox_texmacs_level <= 0) doInsertNewInputCell = 1;
590: } else if (c == START_OF_RESULT_OF_OX_TEXMACS) {
591: ox_texmacs_level++;
592: }
593: switch(state) {
594: case 1:
595: u1 = d[j];
596: d2[i] = u0; i++; d2[i] = u1; i++; d2[i] = 0;
597: state = 0; break;
598: case 2:
599: u1 = d[j]; state = 3; break;
600: case 3:
601: u2 = d[j];
602: d2[i] = u0; i++; d2[i] = u1; i++; d2[i] = u2; i++ ; d2[i] = 0;
603: state = 0; break;
604: case 4: // MYDECODER
605: u1 = d[j]; state = 5; break;
606: case 5:
607: u2 = d[j];
608: c = ((u0 & 0x3) << 6) | (((u1 & 0x7) << 3) & 0x38) | (u2 & 0x7);
609: // NSLog(@"|%2x| ",c); // send it to myDecoder
610: act = [myDecoder myDecoder: c from: self];
611: if (act != nil) {
612: if (debugMyTunnel) [self outputErrorString: act]; // for debug.
613: channel = [myDecoder getChannel];
614: if (channel == 0) [self errorActionFor: act];
1.2 takayama 615: // cf. MyDecode.h for the list of channel numbers.
1.1 takayama 616: else if (channel == 1) [self openGLActionFor: act];
617: else if (channel == 2) [self openGLInitActionFor: act];
1.2 takayama 618: else if (channel == 10) [self pngActionFor: act];
1.1 takayama 619: }
620: state = 0; break;
621: default:
622: c=d[j];
623: if ((c >> 5) == UTF8_2) { u0=c ; state=1; }
624: else if ((c >> 4) == UTF8_3) { u0 =c ; state = 2; }
625: else if ((c >> 2) == MYDECODER) { u0=c; state = 4; }
626: else if ( c & 0x80) {
627: state = 0; NSLog(@"err|%2x| ",c);
628: }else {
629: if (c > 5) {
630: d2[i] = c; i++; d2[i] = 0; state = 0;
631: }
632: }
633: }
634: }
635: }
636: if (i) {
637: inboundString = [NSString stringWithCString: d2 encoding: NSUTF8StringEncoding];
638: [self outputString: inboundString]; // do this out of the synchronized session.
639: }
640:
641: if (n) [[aNotification object] waitForDataInBackgroundAndNotify];
642: }
643:
644:
645: - (void)readErrData:(NSNotification*)aNotification
646: {
647: int n,i,j;
648: #define MD_SIZE 5000
649: unsigned char *d;
650: int c;
651: NSMutableString* inboundString;
652: NSData* inboundData ;
653: @synchronized (self) {
654: inboundString = [NSMutableString stringWithCapacity: (MD_SIZE+2)];
655:
656: // NSLog(@"(err) Reading inboudData\n");
657: inboundData=[ errFileHandle availableData ];
658: n = [inboundData length]; d = (unsigned char *)[inboundData bytes];
659: i = 0;
660: while (i < n ) {
661: for (j = 0; j<MD_SIZE ; j++ ) {
662: c = d[i]; // putchar(c);
663: [inboundString appendString: [NSString stringWithFormat: @"%c", (c & 0x7f)] ];
664: i++; if (i >= n) { j++; break;}
665: }
666: // NSLog( [NSString stringWithFormat: @"i=%d, j=%d\n", i, j] );
667: j++;
668: // NSLog(@"%@", inboundString );
669: [self outputErrorString: inboundString];
670: inboundString = [NSMutableString stringWithCapacity: (MD_SIZE+2)] ;
671: }
672: }
673: if (n) [[aNotification object] waitForDataInBackgroundAndNotify];
674:
675: }
676:
677: -(int) specialCharacterInNotebookMode: (int) c {
678: if (!notebookMode) return 0;
679: if (c == BEGIN_INPUT_CELL) return 1;
680: else if (c==BEGIN_OUTPUT_CELL) return 1;
681: else if (c==END_INPUT_CELL) return 1;
682: else if (c==END_OUTPUT_CELL) return 1;
683: return 0;
684: }
685: -(int) selectIllegalCharacter {
686: NSRange r;
687: NSString *in;
688: int i, n;
689: int state,offset;
690: int c,c2;
691: // 1: in /*
692: // 2: in //
693: // 3: in "
694: // 4: in '
695: in = [textViewIn string];
696: r = [textViewIn selectedRange];
697: //NSLog(@"%d, %d\n",r.location, r.length);
698: if (r.length < 1) {
699: offset = 0;
700: n = [in length];
701: }else{
702: offset = r.location;
703: n = offset + r.length;
704: }
705: state = 0;
706: for (i=offset; i<n; i++) {
707: c = [in characterAtIndex: i]; // NSLog(@"|%04x| ",c);
708: if (i != n-1) c2 = [in characterAtIndex: (i+1)];
709: else c2 = 0;
710: switch (state) {
711: case 0:
712: if ((c == 0x1b)) {
713: [textViewIn setSelectedRange: NSMakeRange(i,1)];
714: [self outputErrorString:
715: NSLocalizedString(@"Error: Illegal control character.\n",nil)];
716: return 1;
717: }
718: if ((c > 0x7e) && (![self specialCharacterInNotebookMode: c])) {
719: [textViewIn setSelectedRange: NSMakeRange(i,1)];
720: [self outputErrorString:
721: NSLocalizedString(@"Error: Program part must be written only by ascii characters.\n",nil)];
722: return 1;
723: }
724: if (((c == '/') && (c2 == '*')) || (notebookMode && (c == BEGIN_OUTPUT_CELL))) {
725: i++; state = 1;
726: }else if ((c == '/') && (c2 == '/')) {
727: i++; state = 2;
728: }else if (c == '"') {
729: state = 3;
730: }else if (c == '\'') {
731: state = 4;
732: }else state=0;
733: break;
734: case 1:
735: if (((c == '*') && (c2 == '/')) || (notebookMode && (c2 == END_OUTPUT_CELL))) {
736: i++; state = 0;
737: }
738: break;
739: case 2:
740: if (c == '\n') state = 0;
741: break;
742: case 3:
743: if (c == '"') state = 0;
744: else if (c == '\\') {
745: i++; //BUG. skip only one letter.
746: }
747: break;
748: case 4:
749: if (c == '\'') state = 0;
750: else if (c == '\\') {
751: i++; //BUG. skip only one letter.
752: }
753: break;
754: }
755: }
756: // [self outputErrorString: @"No illegal character.\n"];
757: return 0;
758: }
759:
760: -(NSRange) selectBlockForward {
761: NSRange r;
762: NSRange ans;
763: NSString *in;
764: int i, n;
765: int first, last,offset, state;
766: int c,c2;
767: static int prevStart = -1;
768:
769: first = last = 0;
770: ans = NSMakeRange(0,0);
771:
772: // 1: in /*
773: // 2: in //
774: // 3: in "
775: // 4: in '
776: in = [textViewIn string];
777: r = [textViewIn selectedRange];
778: if (r.length < 1) {
779: offset = 0;
780: } else {
781: offset = r.location;
782: }
783: if (offset == prevStart) {
784: offset = offset+1;
785: }
786: n = [in length];
787: if (offset >= n) offset = 0;
788: state = 0;
789: for (i=offset; i<n; i++) {
790: c = [in characterAtIndex: i];
791: if (i != n-1) c2 = [in characterAtIndex: (i+1)];
792: else c2 = 0;
793: switch (state) {
794: case 0:
795: if (c == '{') {
796: ans=[self selectBlockForwardFrom: i with: c and: '}'];
797: if (prevStart != ans.location) { prevStart = ans.location; }
798: return ans;
799: }else if (c == '(') {
800: ans=[self selectBlockForwardFrom: i with: c and: ')'];
801: if (prevStart != ans.location) { prevStart = ans.location; }
802: return ans;
803: }else if (c == '[') {
804: ans=[self selectBlockForwardFrom: i with: c and: ']'];
805: if (prevStart != ans.location) { prevStart = ans.location; }
806: return ans;
807: }
808: if ((c == '/') && (c2 == '*')) {
809: i++; state = 1;
810: }else if ((c == '/') && (c2 == '/')) {
811: i++; state = 2;
812: }else if (c == '"') {
813: state = 3;
814: }else if (c == '\'') {
815: state = 4;
816: }else state=0;
817: break;
818: case 1:
819: if ((c == '*') && (c2 == '/')) {
820: i++; state = 0;
821: }
822: break;
823: case 2:
824: if (c == '\n') state = 0;
825: break;
826: case 3:
827: if (c == '"') state = 0;
828: else if (c == '\\') {
829: i++; //BUG. skip only one letter.
830: }
831: break;
832: case 4:
833: if (c == '\'') state = 0;
834: else if (c == '\\') {
835: i++; //BUG. skip only one letter.
836: }
837: break;
838: }
839: }
840: return ans;
841: }
842: -(NSRange) selectBlockForwardFrom: (int) offset with: (int) first and: (int) last {
843: NSRange r;
844: NSRange ans;
845: NSString *in;
846: int i, n;
847: int state;
848: int c,c2;
849: int level;
850: int startpos;
851:
852: level = 0;
853: ans = NSMakeRange(0,0);
854:
855: // 1: in /*
856: // 2: in //
857: // 3: in "
858: // 4: in '
859: in = [textViewIn string];
860: r = [textViewIn selectedRange];
861: n = [in length];
862: state = 0;
863: for (i=offset; i<n; i++) {
864: c = [in characterAtIndex: i];
865: if (i != n-1) c2 = [in characterAtIndex: (i+1)];
866: else c2 = 0;
867: switch (state) {
868: case 0:
869: if (level == 0) {
870: if (c == first) {
871: level = 1; startpos = i;
872: }
873: } else if (level > 0) {
874: if (c == first) level++;
875: else if (c == last) level--;
876: else ;
877: if (level == 0) {
878: ans = NSMakeRange(startpos, i+1-startpos);
879: [textViewIn setSelectedRange: ans];
880: [textViewIn scrollRangeToVisible: NSMakeRange(startpos,0)];
881: return ans;
882: }
883: }
884:
885: if ((c == '/') && (c2 == '*')) {
886: i++; state = 1;
887: }else if ((c == '/') && (c2 == '/')) {
888: i++; state = 2;
889: }else if (c == '"') {
890: state = 3;
891: }else if (c == '\'') {
892: state = 4;
893: }else state=0;
894: break;
895: case 1:
896: if ((c == '*') && (c2 == '/')) {
897: i++; state = 0;
898: }
899: break;
900: case 2:
901: if (c == '\n') state = 0;
902: break;
903: case 3:
904: if (c == '"') state = 0;
905: else if (c == '\\') {
906: i++; //BUG. skip only one letter.
907: }
908: break;
909: case 4:
910: if (c == '\'') state = 0;
911: else if (c == '\\') {
912: i++; //BUG. skip only one letter.
913: }
914: break;
915: }
916: }
917: if (level > 0) {
918: [self outputErrorString: NSLocalizedString(@"Error: No right parenthesis.\n",nil)] ;
919: [textViewIn setSelectedRange: NSMakeRange(startpos,n-startpos)];
920: ans = NSMakeRange(startpos,-1);
921: return ans;
922: }
923: return ans;
924: }
925:
926: -(void) errorActionFor: (NSString *)cmd
927: {
928: NSArray *a;
929: NSRange r;
930: static NSRange r2;
931: static NSRange r3;
932: static int r2IsSet;
933: static int r3IsSet;
934: NSString *s;
935: int line,i, currentLine;
936: // NSLog(@"cmd=%@\n",cmd);
937: if ([cmd hasPrefix: @"Begin"] == YES) {
938: r3IsSet = 0; r2IsSet = 0;
939: }else if ([cmd hasPrefix: @"End"] == YES) {
940: if (r2IsSet) {
941: [textViewIn setSelectedRange: r2];
942: [textViewIn scrollRangeToVisible: r2];
943: r2IsSet = 0;
944: }
945: if (r3IsSet) { //gotoLine, xyz is stronger than findAndSelect.
946: [textViewIn setSelectedRange: r3];
947: [textViewIn scrollRangeToVisible: r3];
948: r3IsSet = 0;
949: }
950: }else if ([cmd hasPrefix: @"findAndSelect"] == YES) {
951: a = [cmd componentsSeparatedByString: @", "];
952: if ([a count] > 1) {
953: a = [[a objectAtIndex: 1] componentsSeparatedByString: @"\n"];
954: s = [a objectAtIndex: 0];
955: r2 = [[textViewIn string] rangeOfString: s];
956: r2IsSet = 1;
957: // selection will be done in End.
958: [self printErrorMessage: [NSLocalizedString(@"Error in executing ",nil) stringByAppendingString: s]];
959: [self printErrorMessage: @"\n"];
960: }
961: }else if ([cmd hasPrefix: @"findAndShow"] == YES) {
962: a = [cmd componentsSeparatedByString: @", "];
963: if ([a count] > 1) {
964: a = [[a objectAtIndex: 1] componentsSeparatedByString: @"\n"];
965: s = [a objectAtIndex: 0];
966: [self printErrorMessage: [NSLocalizedString(@"Error in executing ",nil) stringByAppendingString: s]];
967: [self printErrorMessage: @"\n"];
968: }
969: }else if ([cmd hasPrefix: @"printErrorMessage"] == YES) {
970: a = [cmd componentsSeparatedByString: @"ErrorMessage, "];
971: if ([a count] > 1) {
972: s = [a objectAtIndex: 1];
973: [self printErrorMessage: [NSLocalizedString(@"Error: ",nil) stringByAppendingString: s]];
974: [self printErrorMessage: @"\n"];
975: }
976: }else if ([cmd hasPrefix: @"gotoLine"] == YES) {
977: a = [cmd componentsSeparatedByString: @"Line, "];
978: if ([a count] > 1) {
979: s = [a objectAtIndex: 1];
980: [self printErrorMessage: [NSLocalizedString(@"Error at ",nil) stringByAppendingString: s]];
981: [self printErrorMessage: @"\n"];
982: line = [s intValue];
983: [self addLine: line];
984: // move the selection to the line.
985: i = [self gotoLine: line];
986: if (i >= 0) {
987: r3 = NSMakeRange(i,0); // NSLog(@"Goto the location=%d\n",i);
988: r3IsSet = 1;
989: }
990: }
991: }
992: }
993:
994: -(void) clearLines {
995: [errorLines removeAllObjects];
996: [self nextLine: -1];
997: }
998: -(void) addLine: (int) n {
999: [errorLines addObject: [NSNumber numberWithInt: n]];
1000: }
1001: -(int) nextLine: (int) n {
1002: static int p = 0;
1003: int v;
1004: if (n < 0) { p = 0; return -1; }
1005: if (p < [errorLines count]) ; else { p = 0; return -1;}
1006: v = [[errorLines objectAtIndex: p] intValue];
1007: p++;
1008: return v;
1009: }
1010: -(int) gotoLine: (int) line {
1011: NSString *s;
1012: NSRange r;
1013: NSRange r3;
1014: int currentLine,i;
1.3 takayama 1015: [self outputErrorString: NSLocalizedString(@"Move to the line ",nil)];
1016: [self outputErrorString: [NSString stringWithFormat: @"%d\n",line]];
1.1 takayama 1017: // move the selection to the line line.
1018: s = [textViewIn string];
1019: if (onlySelectedArea || notebookMode) r = [textViewIn selectedRange];
1020: else r = NSMakeRange(0,[s length]);
1021: // NSLog(@"r.location=%d",r.location);
1022: currentLine = 1;
1023: for (i=r.location; i< r.location+r.length; i++) {
1024: if (currentLine == line) {
1025: r3 = NSMakeRange(i,0); // NSLog(@"Goto the location=%d\n",i);
1026: [textViewIn setSelectedRange: r3 ];
1027: [textViewIn scrollRangeToVisible: r3];
1028: return i; // set r3IsSet
1029: break;
1030: }
1031: if ([s characterAtIndex: i] == '\n') ++currentLine;
1032: }
1033: return -1;
1034: }
1035: -(int) gotoNextError: (id) sender{
1036: int n;
1.3 takayama 1037: if (onlySelectedArea || notebookMode)
1038: [self outputErrorString: NSLocalizedString(@"The next error action will not work properly in this mode.\n",nil)];
1.1 takayama 1039: n = [self nextLine: 0];
1040: if (n >= 0) { [self gotoLine: n]; return n;}
1041: else return -1;
1042: }
1043:
1044: /* act= 0;[glRectf,-0.5, ...] */
1045: -(int) openGLActionFor: (NSString *)act {
1046: NSArray *a;
1047: int gid;
1048: a=[act componentsSeparatedByString: @";"];
1049: if ([a count] < 2) {
1050: [self printErrorMessage: @"Invalid format in openGLActionFor. gid and command must be separated by ;\n"];
1051: return -1;
1052: }
1053: gid = [[a objectAtIndex: 0] intValue];
1.10 takayama 1054: if ([[a objectAtIndex: 1] hasPrefix: @"meta"]) {[self openGLMeta: [a objectAtIndex: 1] to: gid]; return 0; }
1.1 takayama 1055: [MyOpenGLController addOglComm: [a objectAtIndex: 1] to: gid from: self];
1056: return 0;
1057: }
1058: -(int) openGLInitActionFor: (NSString *) act {
1059: NSArray *a;
1060: int gid;
1061: a=[act componentsSeparatedByString: @";"];
1062: if ([a count] < 2) {
1063: [self printErrorMessage: @"Invalid format in openGLInitActionFor. gid and command must be separated by ;\n"];
1064: return -1;
1065: }
1066: gid = [[a objectAtIndex: 0] intValue];
1067: [MyOpenGLController addOglInitComm: [a objectAtIndex: 1] to: gid from: self];
1068: return 0;
1069: }
1.3 takayama 1070: -(void)openGLMeta: (NSString *) cmd to: (int) gid{
1071: MyOpenGLController *oglc;
1072: oglc = [MyOpenGLController getOglWindow: gid];
1.5 takayama 1073: if (!oglc) {[self printErrorMessage:
1074: [NSString stringWithFormat: @"Invalid gid %d in openGLMeta command %@\n",gid,cmd]]; return; }
1.3 takayama 1075: if ([cmd hasPrefix: @"meta_showListOfOglComm"]) {
1076: [self showListOfOglComm: gid]; return ;
1.4 takayama 1077: }else if ([cmd hasPrefix: @"meta_removeAllInit"]) { // longer command must come first, because we use prefix.
1078: [oglc removeAllOfOglInitComm];
1079: }else if ([cmd hasPrefix: @"meta_removeLastInit"]) {
1080: [oglc removeLastOfOglInitComm];
1.3 takayama 1081: }else if ([cmd hasPrefix: @"meta_removeAll"]) {
1082: [oglc removeAllOfOglComm];
1083: }else if ([cmd hasPrefix: @"meta_removeLast"]) {
1084: [oglc removeLastOfOglComm];
1085: }else{
1.5 takayama 1086: [self printErrorMessage: [NSString stringWithFormat: @"Unknown OpenGL meta command %@\n",cmd]];
1.3 takayama 1087: }
1088: }
1089: -(void) showListOfOglComm: (int) gid {
1090: MyDocument *md;
1091: MyOpenGLController *oglc;
1092: NSMutableArray *comm;
1093: int i,n;
1094: md = self;
1095: oglc = [MyOpenGLController getOglWindow: gid];
1096: if (!oglc) {[self outputErrorString: @"Invalid gid in showListOfOglComm\n"]; return; }
1097: comm = [oglc getListOfOglInitComm];
1098: n = [comm count];
1099: [md outputString: NSLocalizedString(@"OpenGL init commands\n",nil)];
1100: for (i=0; i<n; i++) {
1101: [md outputString: [NSString stringWithFormat: @"%04d: ",i]];
1102: [md outputString: [[comm objectAtIndex: i] toString]];
1103: [md outputString: @"\n"];
1104: }
1105: comm = [oglc getListOfOglComm];
1106: n = [comm count];
1107: [md outputString: NSLocalizedString(@"OpenGL redraw commands\n",nil)];
1108: for (i=0; i<n; i++) {
1109: [md outputString: [NSString stringWithFormat: @"%04d: ",i]];
1110: [md outputString: [[comm objectAtIndex: i] toString]];
1111: [md outputString: @"\n"];
1112: }
1113: }
1114:
1.1 takayama 1115:
1.2 takayama 1116: -(void) pngActionFor: (NSString *)act {
1117: NSArray *a;
1118: id typesetExpression;
1119: MyOutputWindowController *mowc;
1120: NSString *path;
1121: int n;
1122: a=[act componentsSeparatedByString: @","];
1123: n = [a count];
1124: if (n < 1) {
1125: [self printErrorMessage: @"Invalid format in pngActionFor: \n"];
1126: return;
1127: }
1128: // NSLog(@"%@",a);
1129: if ([[a objectAtIndex: 0] hasPrefix: @"notAvailable"]) {
1130: [self messageDialog:
1.7 takayama 1131: NSLocalizedString(@"Typeset the output by TeX is not available. latex and dvipng must be installed.",nil) with: 0];
1.2 takayama 1132: prettyPrint = 1; [self setPrettyPrint: nil];
1133: return;
1134: } else if ([[a objectAtIndex: 0] compare: @"showFile"] == NSOrderedSame) {
1135: if (n < 2) [self printErrorMessage: @"showFile,filename filename is missing.\n"];
1136: path = [MyUtil pruneThings: [a objectAtIndex: 1]]; // for buggy componentsSeparatedByString
1137: typesetExpression = [MyUtil attributedStringWithPath: path];
1138: if (typesetExpression) {
1139: if (notebookMode) [textViewIn insertText: typesetExpression];
1140: else {
1141: mowc = [MyOutputWindowController sharedMyOutputWindowController: self];
1142: [mowc insertText: typesetExpression];
1143: }
1144: }
1145: return;
1146: } else {
1147: NSLog(@"pngActionFor: %@\n",act);
1148: [self printErrorMessage: @"Unknown command for pngActionFor:\n"];
1149: }
1150: }
1151:
1.1 takayama 1152: -(void) setBasicStyle: (id) sender {
1153: notebookMode = 0;
1154: [self updateInterfaceStyleMenu];
1155: }
1156: -(void) setNotebookStyle: (id) sender {
1157: notebookMode = 1;
1158: [self updateInterfaceStyleMenu];
1159: [self insertInputCell];
1160: }
1161: -(void) updateInterfaceStyleMenu {
1162: if (!menuItemNotebookMode) return;
1163: if (!menuItemBasicMode) return;
1164: if (notebookMode) {
1165: [menuItemNotebookMode setState: NSOnState];
1166: [menuItemBasicMode setState: NSOffState];
1167: }else {
1168: [menuItemNotebookMode setState: NSOffState];
1169: [menuItemBasicMode setState: NSOnState];
1170: }
1171: }
1172: -(void) setEngineRisaAsir: (id) sender {
1173: oxEngine = 0;
1174: [self updateSelectEngineMenu];
1175: [self oxEvaluateString: @"!asir;" withMark: TRUE];
1176: }
1177: -(void) setEngineKanSm1: (id) sender {
1178: oxEngine = 1;
1179: [self updateSelectEngineMenu];
1180: [self oxEvaluateString: @"!sm1;" withMark: TRUE];
1181: }
1.3 takayama 1182: // BUG: update* must be called when the focus is changed to "setState:"
1.1 takayama 1183: -(void) updateSelectEngineMenu {
1184: if (!menuItemRisaAsir) return;
1185: if (!menuItemKanSm1) return;
1186: if (oxEngine == 0) {
1187: [menuItemRisaAsir setState: NSOnState];
1188: [menuItemKanSm1 setState: NSOffState];
1189: }else if (oxEngine == 1) {
1190: [menuItemRisaAsir setState: NSOffState];
1191: [menuItemKanSm1 setState: NSOnState];
1192: }
1193: }
1194: -(void) setDebugMyTunnel: (id) sender {
1195: if (debugMyTunnel) {
1196: debugMyTunnel = 0;
1197: if (menuItemOutputDebugMessages) [menuItemOutputDebugMessages setState: NSOffState];
1198: } else {
1199: debugMyTunnel = 1;
1200: if (menuItemOutputDebugMessages) [menuItemOutputDebugMessages setState: NSOnState];
1201: }
1202: [MyUtil setDebugMyUtil];
1203: }
1.3 takayama 1204:
1205: //BUG: [self setPrettyPrint: nil] or update must be called when focus is changed to "setState:"
1.2 takayama 1206: -(void) setPrettyPrint: (id) sender {
1207: if (prettyPrint) {
1208: prettyPrint = 0;
1209: [self oxEvaluateString: @"!verbatim;" withMark: TRUE];
1210: if (menuItemPrettyPrint) [menuItemPrettyPrint setState: NSOffState];
1211: } else {
1212: prettyPrint = 1;
1213: if (!asir_contrib) [self loadAsirContrib: nil];
1214: [self oxEvaluateString: @"!cfep_png;" withMark: TRUE];
1215: if (menuItemPrettyPrint) [menuItemPrettyPrint setState: NSOnState];
1216: }
1217: }
1.4 takayama 1218: -(void) setNoEngine: (id) sender {
1219: if (NoEngine) {
1220: NoEngine = 0;
1221: if (menuItemNoEngine) [menuItemNoEngine setState: NSOffState];
1222: } else {
1223: NoEngine = 1;
1224: if (menuItemNoEngine) [menuItemNoEngine setState: NSOnState];
1225: }
1226: }
1.2 takayama 1227:
1228: -(void) loadAsirContrib: (id) sender {
1229: NSString *com;
1230: if (inEvaluation) {
1231: [self messageDialog: NSLocalizedString(@"Evaluating...",nil) with: 0];
1232: return;
1233: }
1234: asir_contrib = 1;
1235: com = [@"load(\"" stringByAppendingString: OpenXM_HOME];
1236: com = [com stringByAppendingString: @"/rc/asirrc\")$"];
1237: if (notebookMode) { doInsertNewInputCell=0; [self getContentsOfInputCell]; [self prepareOutputCell];}
1238: [self oxEvaluateString: com withMark: TRUE];
1239: }
1.1 takayama 1240: -(void) mytest: (id) sender {
1.2 takayama 1241: // Add any code here for testing.
1242: id typesetExpression;
1243: typesetExpression = [MyUtil attributedStringWithPath: @"/Users/nobuki/OpenXM_tmp/1/work1.png"];
1244: if (typesetExpression) [textViewIn insertText: typesetExpression];
1245: else NSLog(@"typesetExpression is nil.\n");
1246: }
1247:
1248: -(NSMenuItem *) menuItemLoadLibrary: (int) oxengine {
1249: NSMenuItem *menuItemAsirContrib;
1250: NSMenuItem *menuItemCohom;
1251: NSMenu *submenuLoadLibrary = [[[NSMenu alloc] init] autorelease];
1252: switch(oxengine) {
1253: case 0: /* asir */
1254: menuItemAsirContrib = [[[NSMenuItem alloc] init] autorelease];
1255: [menuItemAsirContrib setTitle: NSLocalizedString(@"Load asir-contrib",nil)];
1256: [menuItemAsirContrib setAction: @selector(loadAsirContrib:)];
1257: [menuItemAsirContrib setTarget: [[NSApp mainWindow] document]];
1258: [submenuLoadLibrary addItem: menuItemAsirContrib];
1259: break;
1260: case 1: /* sm1 */
1261: menuItemCohom = [[[NSMenuItem alloc] init] autorelease];
1262: [menuItemCohom setTitle: NSLocalizedString(@"Load cohom.sm1",nil)];
1263: [menuItemCohom setAction: @selector(loadCohom:)];
1264: [menuItemCohom setTarget: [[NSApp mainWindow] document]];
1265: [submenuLoadLibrary addItem: menuItemCohom];
1266: break;
1267: default:
1268: break;
1269: }
1270:
1271: NSMenuItem *menuItemLoadLibrary = [[[NSMenuItem alloc] init] autorelease];
1272: [menuItemLoadLibrary setTitle: NSLocalizedString(@"Load library",nil)];
1273: [menuItemLoadLibrary setSubmenu: submenuLoadLibrary];
1274: return menuItemLoadLibrary;
1.1 takayama 1275: }
1276: -(void) addMenuExec {
1277: static int done=0;
1278: NSMenu *menuItem;
1279: NSMenu *menuExec;
1280: NSMenuItem *menuItemEvaluate;
1281: NSMenuItem *menuItemInterrupt;
1282: NSMenuItem *menuItemInterfaceStyle;
1283: NSMenuItem *menuItemSelectEngine;
1284: NSMenuItem *menuItemGotoNextError;
1285: NSMenuItem *menuItemForTest;
1.2 takayama 1286: NSMenuItem *menuItemLoadLibrary;
1.1 takayama 1287: if (done) return;
1288: done = 1;
1289: // oxEvalute
1290: menuExec = [[[NSMenu alloc] init] autorelease];
1291: [menuExec setTitle: NSLocalizedString(@"Execution",nil)];
1292: menuItemEvaluate = [[[NSMenuItem alloc] init] autorelease];
1293: [menuItemEvaluate setTitle: NSLocalizedString(@"Evaluate",nil)];
1294: [menuItemEvaluate setAction: @selector(oxEvaluate:)];
1295: [menuItemEvaluate setTarget: [[NSApp mainWindow] document]];
1296: [menuItemEvaluate setKeyEquivalentModifierMask: NSCommandKeyMask];
1297: [menuItemEvaluate setKeyEquivalent: @"\n"];
1298: [menuExec addItem: menuItemEvaluate];
1299: // oxInterrupt
1300: menuItemInterrupt = [[[NSMenuItem alloc] init] autorelease];
1301: [menuItemInterrupt setTitle: NSLocalizedString(@"Interrupt",nil)];
1302: [menuItemInterrupt setAction: @selector(oxInterrupt:)];
1303: [menuItemInterrupt setTarget: [[NSApp mainWindow] document]]; // do not use self.
1304: [menuExec addItem: menuItemInterrupt];
1305:
1306: // gotoNextError
1307: menuItemGotoNextError = [[[NSMenuItem alloc] init] autorelease];
1308: [menuItemGotoNextError setTitle: NSLocalizedString(@"Next error line",nil)];
1309: [menuItemGotoNextError setAction: @selector(gotoNextError:)];
1310: [menuItemGotoNextError setTarget: [[NSApp mainWindow] document]];
1311: [menuExec addItem: menuItemGotoNextError];
1312:
1.2 takayama 1313: // pretty print
1.3 takayama 1314: menuItemPrettyPrint = [[[NSMenuItem alloc] init] autorelease]; [menuItemPrettyPrint retain]; // it is the static variable.
1.2 takayama 1315: [menuItemPrettyPrint setTitle: NSLocalizedString(@"Typeset the output by TeX",nil)];
1316: [menuItemPrettyPrint setAction: @selector(setPrettyPrint:)];
1317: [menuItemPrettyPrint setTarget: [[NSApp mainWindow] document]];
1318: [menuExec addItem: menuItemPrettyPrint];
1319:
1320: // loadLibrary
1321: [menuExec addItem: [self menuItemLoadLibrary: oxEngine]]; //bug. dynamic change.
1322:
1.1 takayama 1323: // interface style
1324: NSMenu *submenuInterfaceItem = [[[NSMenu alloc] init] autorelease];
1325: // basic-like
1326: NSMenuItem *menuItemBasicLike = [[[NSMenuItem alloc] init] autorelease];
1327: [menuItemBasicLike setTitle: NSLocalizedString(@"BASIC-like",nil)];
1328: [menuItemBasicLike setAction: @selector(setBasicStyle:)];
1329: [menuItemBasicLike setTarget: [[NSApp mainWindow] document]];
1.3 takayama 1330: menuItemBasicMode = menuItemBasicLike; [menuItemBasicMode retain];
1.1 takayama 1331: [submenuInterfaceItem addItem: menuItemBasicLike];
1332: // notebook-like
1333: NSMenuItem *menuItemNotebookLike = [[[NSMenuItem alloc] init] autorelease];
1334: [menuItemNotebookLike setTitle: NSLocalizedString(@"Notebook-like",nil)];
1335: [menuItemNotebookLike setAction: @selector(setNotebookStyle:)];
1336: [menuItemNotebookLike setTarget: [[NSApp mainWindow] document]];
1.3 takayama 1337: menuItemNotebookMode = menuItemNotebookLike; [menuItemNotebookMode retain];
1.1 takayama 1338: [submenuInterfaceItem addItem: menuItemNotebookLike];
1339:
1340: menuItemInterfaceStyle = [[[NSMenuItem alloc] init] autorelease];
1341: [menuItemInterfaceStyle setTitle: NSLocalizedString(@"Interface style",nil)];
1342: [menuItemInterfaceStyle setSubmenu: submenuInterfaceItem];
1343: [menuExec addItem: menuItemInterfaceStyle];
1344: [self updateInterfaceStyleMenu];
1345:
1346: // select engine
1347: NSMenu *submenuSelectEngineItem = [[[NSMenu alloc] init] autorelease];
1348: // asir
1.3 takayama 1349: menuItemRisaAsir = [[[NSMenuItem alloc] init] autorelease]; [menuItemRisaAsir retain];
1.1 takayama 1350: [menuItemRisaAsir setTitle: NSLocalizedString(@"Risa/Asir",nil)];
1351: [menuItemRisaAsir setAction: @selector(setEngineRisaAsir:)];
1352: [menuItemRisaAsir setTarget: [[NSApp mainWindow] document]];
1353: [submenuSelectEngineItem addItem: menuItemRisaAsir];
1354: // notebook-like
1.3 takayama 1355: menuItemKanSm1 = [[[NSMenuItem alloc] init] autorelease]; [menuItemKanSm1 retain];
1.1 takayama 1356: [menuItemKanSm1 setTitle: NSLocalizedString(@"Kan/sm1",nil)];
1357: [menuItemKanSm1 setAction: @selector(setEngineKanSm1:)];
1358: [menuItemKanSm1 setTarget: [[NSApp mainWindow] document]];
1359: [submenuSelectEngineItem addItem: menuItemKanSm1];
1360:
1361: menuItemSelectEngine = [[[NSMenuItem alloc] init] autorelease];
1362: [menuItemSelectEngine setTitle: NSLocalizedString(@"Select engine",nil)];
1363: [menuItemSelectEngine setSubmenu: submenuSelectEngineItem];
1364: [menuExec addItem: menuItemSelectEngine];
1365: [self updateSelectEngineMenu];
1366:
1.4 takayama 1367: // outputDebugMessage
1368: menuItemOutputDebugMessages = [[[NSMenuItem alloc] init] autorelease]; [menuItemOutputDebugMessages retain];
1369: [menuItemOutputDebugMessages setTitle: NSLocalizedString(@"Output debug messages",nil)];
1370: [menuItemOutputDebugMessages setAction: @selector(setDebugMyTunnel:)];
1371: [menuItemOutputDebugMessages setTarget: [[NSApp mainWindow] document]];
1372: [menuExec addItem: menuItemOutputDebugMessages];
1373:
1374: // NoEngine
1375: menuItemNoEngine = [[[NSMenuItem alloc] init] autorelease]; [menuItemNoEngine retain]; // it is the static variable.
1376: [menuItemNoEngine setTitle: NSLocalizedString(@"Do not start engine at startup",nil)];
1377: [menuItemNoEngine setAction: @selector(setNoEngine:)];
1378: [menuItemNoEngine setTarget: [[NSApp mainWindow] document]];
1379: [menuExec addItem: menuItemNoEngine];
1.1 takayama 1380:
1381: // test
1382: menuItemForTest = [[[NSMenuItem alloc] init] autorelease];
1383: [menuItemForTest setTitle: NSLocalizedString(@"For test",nil)];
1384: [menuItemForTest setAction: @selector(mytest:)];
1385: [menuItemForTest setTarget: [[NSApp mainWindow] document]];
1386: [menuExec addItem: menuItemForTest];
1387:
1388: menuItem = [[[NSMenuItem alloc] init] autorelease];
1389: [[NSApp mainMenu] insertItem: menuItem atIndex: 4];
1390: [menuItem setSubmenu: menuExec];
1391: }
1392:
1393: -(void) insertInputCell {
1394: NSRange r;
1395: NSString *ic;
1396: unichar uu[2];
1397: uu[0] = BEGIN_INPUT_CELL; uu[1] = END_INPUT_CELL;
1398: r = [textViewIn selectedRange]; r.length=0;
1399: ic = [NSString stringWithCharacters: uu length: 2];
1400: // NSLog(@"insertInputCell: r.location=%d, r.length=%d, %@\n",r.location,r.length,ic);
1401: [textViewIn replaceCharactersInRange: r withString: ic];
1402: r.location = r.location+1; r.length = 0;
1403: [textViewIn setSelectedRange: r ];
1404: r.location = r.location-1; r.length = 2;
1405: [textViewIn setTextColor: [NSColor blackColor] range: r];
1406: }
1407: -(NSString *) getContentsOfInputCell {
1408: int start,end,i,n;
1409: NSString *cmd0;
1410: NSRange r;
1411: cmd0 = [textViewIn string];
1412: start=0; end = n = [cmd0 length]; if (end > 0) end--;
1413: r = [textViewIn selectedRange];
1414: if (r.location < n) i = r.location; else i = n-1;
1415: if (i < 0) i=0;
1416: for (; i>=0; i--) {
1417: if ([cmd0 characterAtIndex: i] == BEGIN_INPUT_CELL) {
1418: start = i+1; break;
1419: }
1420: }
1421: for (i=start; i<n; i++) {
1422: if ([cmd0 characterAtIndex: i] == END_INPUT_CELL) {
1423: end = i-1; break;
1424: }
1425: }
1426: // NSLog(@"start=%d, end=%d\n",start,end);
1427: r.location = start; r.length = end-start+1;
1428: if (r.length > 0) {
1429: cmd0= [cmd0 substringWithRange: r];
1430: }else{
1431: cmd0 = @"";
1432: }
1433: if (end+2 <= n) r.location=end+2;
1434: r.length = 0;
1435: [textViewIn setSelectedRange: r];
1436: return cmd0;
1437: }
1438: // return 1 if there is the next inputCell
1439: -(int) getOutOfOutputCell {
1440: int start,end,i,n;
1441: NSString *cmd0;
1442: NSRange r;
1443: cmd0 = [textViewIn string];
1444: n = [cmd0 length];
1445: r = [textViewIn selectedRange];
1446: start = r.location;
1447: // NSLog(@"r.location=%d, r.length=%d\n",r.location,r.length);
1448: if (r.location < n) i = r.location; else i = n-1;
1449: if (i>0) i--;
1450: for (; i<n; i++) {
1451: if ([cmd0 characterAtIndex: i] == END_OUTPUT_CELL) {
1452: start = i+1; break;
1453: }else if ([cmd0 characterAtIndex: i] == BEGIN_INPUT_CELL) {
1454: r.location = i+1; r.length=0;
1455: [textViewIn setSelectedRange: r]; [textViewIn scrollRangeToVisible: r];
1456: return 1;
1457: }else if ([cmd0 characterAtIndex: i] == END_INPUT_CELL) {
1458: r.location = i-1; r.length=0;
1459: [textViewIn setSelectedRange: r]; [textViewIn scrollRangeToVisible: r];
1460: return 1;
1461: }
1462: }
1463: r.location = start; r.length = 0;
1464: [textViewIn setSelectedRange: r];
1465:
1466: for (i = start; i<n; i++) {
1467: // Try to find the next input cell.
1468: if ([cmd0 characterAtIndex: i] == BEGIN_INPUT_CELL) {
1469: r.location = i+1; r.length = 0;
1470: [textViewIn setSelectedRange: r]; [textViewIn scrollRangeToVisible: r];
1471: return 1;
1472: }else if ([cmd0 characterAtIndex: i] == END_INPUT_CELL) {
1473: // We are inside an input cell.
1474: r.location = i-1; r.length = 0;
1475: [textViewIn setSelectedRange: r]; [textViewIn scrollRangeToVisible: r];
1476: return 1;
1477: }
1478: }
1479: return 0;
1480: }
1481: -(void) prepareOutputCell {
1482: int start,end,i,j,n,m;
1483: NSString *cmd0;
1484: NSString *ic;
1485: unichar uu[7];
1486: NSRange r;
1487: start = -1; end = -1;
1488: cmd0 = [textViewIn string];
1489: n = [cmd0 length];
1490: r = [textViewIn selectedRange];
1491: i = r.location;
1492: if (i < 0) i = 0;
1493: if (i >= n) i = n-1;
1494: for (; i<n; i++) {
1495: if ([cmd0 characterAtIndex: i] == BEGIN_OUTPUT_CELL) {
1496: start = i;
1497: for (j=i; j>=0; j--) {
1498: if ([cmd0 characterAtIndex: j] <= ' ') {
1499: start = j;
1500: } else {
1501: if (start>0) start--;
1502: break;
1503: }
1504: }
1505: break;
1506: }else if ([cmd0 characterAtIndex: i] == BEGIN_INPUT_CELL) {
1507: start = i-1;
1508: if (start < 0) start = 0;
1509: end = -2;
1510: break;
1511: }
1512: }
1513: if (end == -2) {
1514: r.location = start; r.length=0;
1515: }else{
1516: end = start;
1517: i = start; if (i < 0) i = 0;
1518: for (; i<n; i++) {
1519: if ([cmd0 characterAtIndex: i] == END_OUTPUT_CELL) {
1520: end = i; break;
1521: }
1522: }
1523: if ((start == -1) || (end == -1)) {
1524: r.location = n; r.length=0;
1525: }else{
1526: r.location = start; r.length = end-start+1;
1527: }
1528: }
1529: [textViewIn replaceCharactersInRange: r withString: @""];
1530:
1531: uu[0] = '\n';
1532: uu[1] = BEGIN_OUTPUT_CELL; uu[2] = END_OUTPUT_CELL;
1533: m = 3;
1534: // If there is no next input cell, add a new one.
1535: for (i=r.location; i<n; i++) {
1536: if ([cmd0 characterAtIndex:i] == BEGIN_INPUT_CELL) {
1537: break;
1538: }
1539: }
1540: if ((i == n) || (r.location >= n)) {
1541: uu[3] = '\n'; uu[4] = BEGIN_INPUT_CELL; uu[5] = END_INPUT_CELL; m=6;
1542: }
1543: // NSLog(@"prepareOutputCell start=%d, length=%d, m=%d\n",start,r.length,m);
1544: r.length = 0;
1545: ic = [NSString stringWithCharacters: uu length: m];
1546: [textViewIn replaceCharactersInRange: r withString: ic];
1547: r.location = r.location+2; r.length = 0;
1548: [textViewIn setSelectedRange: r ];
1549: }
1550: @end
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to MyDocument.m CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / cfep