Return to Coordinator.m CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / UNIX / Subprocess

Annotation of Examples/UNIX/Subprocess/Coordinator.m, revision 1.1

1.1     ! root        1: /*
        !             2:        Coordinator.m
        !             3:        by Joe Freeman, David LaVallee
        !             4:        Subprocess Example, Release 2.0
        !             5:        NeXT Computer, Inc.
        !             6: 
        !             7:        You may freely copy, distribute and reuse the code in this example.
        !             8:        NeXT disclaims any warranty of any kind, expressed or implied, as to
        !             9:        its fitness for any particular use.
        !            10: */
        !            11: 
        !            12: #import "Coordinator.h"
        !            13: #import "CommandScroll.h"
        !            14: #import "Subprocess.h"
        !            15: #import <appkit/nextstd.h>
        !            16: #import <appkit/Application.h>
        !            17: #import <appkit/Panel.h>
        !            18: #import <objc/NXStringTable.h>
        !            19: 
        !            20: @implementation Coordinator
        !            21: 
        !            22: - showInfo:sender
        !            23: {
        !            24:     if (!infoPanel)
        !            25:     {
        !            26:        infoPanel =
        !            27:            [NXApp loadNibSection:"InfoPanel.nib" owner:NXApp withNames:NO];
        !            28:     }
        !            29:     [infoPanel orderFront:self];
        !            30:     return self;
        !            31: }
        !            32: 
        !            33: /*==========================================================
        !            34:  *
        !            35:  * Subprocess Delegation
        !            36:  *
        !            37:  *==========================================================*/
        !            38:  
        !            39: - subprocessOutput:(char *)buffer
        !            40: {
        !            41:     [commandView appendString:buffer];
        !            42:     return self;
        !            43: }
        !            44: 
        !            45: - subprocessDone
        !            46: {
        !            47:     [NXApp terminate:self];
        !            48:     return self;
        !            49: }
        !            50: 
        !            51: - subprocessError:(const char *)errorString
        !            52:     // uses stringTable to localize error messages as appropriate,
        !            53:     // and then displays the message in an alert panel
        !            54: {
        !            55:     const char *returnedString;
        !            56:     
        !            57:     if ((returnedString = [stringTable valueForStringKey:errorString]))
        !            58:     {
        !            59:        NXRunAlertPanel(0, returnedString, 0, 0, 0);
        !            60:     }
        !            61:     else
        !            62:     {
        !            63:        NXRunAlertPanel(0, errorString, 0, 0, 0);
        !            64:     }
        !            65:     return self;
        !            66: }
        !            67: 
        !            68: /*==========================================================
        !            69:  *
        !            70:  * CommandScroll Delegation
        !            71:  *
        !            72:  *==========================================================*/
        !            73:  
        !            74: - userEntered:(char *)buffer
        !            75: {
        !            76:     [theSubprocess send:buffer withNewline:NO];
        !            77:     return self;
        !            78: }
        !            79: 
        !            80: /*==========================================================
        !            81:  *
        !            82:  * Application Object Delegation
        !            83:  *
        !            84:  *==========================================================*/
        !            85: 
        !            86: - appDidInit:sender
        !            87: {
        !            88:     theSubprocess =
        !            89:        [[Subprocess alloc]
        !            90:            init:"/bin/sh" withDelegate:self andPtySupport:YES andStdErr:YES];
        !            91:     return self;
        !            92: }
        !            93: 
        !            94: - appWillTerminate:sender
        !            95: {
        !            96:     [theSubprocess terminate:sender];
        !            97:     return self;
        !            98: }
        !            99: 
        !           100: @end

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