home *** CD-ROM | disk | FTP | other *** search
- /*-- AutoRev header do NOT edit!
- *
- * Program : Editor.c
- * Copyright : Copyright 1991-92 Jaba Development
- * Author : Jan van den Baard
- * Creation Date : 05-Apr-92
- * Current version : 2.0
- * Translator : Dice v2.06.40
- *
- * REVISION HISTORY
- *
- * Date Version Comment
- * --------- ------- ------------------------------------------
- * 05-Apr-92 2.0 Calling the editor. (rewrite)
- *
- *-- REV_END --*/
-
- #ifndef __DETACH
-
- #include "View.h"
-
- Prototype void EditFile( void );
-
- extern struct WBStartup *WBenchMsg;
- extern struct Screen *vwScreen;
- extern struct Window *vwWindow;
- extern struct MsgPort *vwIdPort;
- extern struct AsciiText *vwText;
- extern UBYTE vwName[];
-
-
- void EditFile( void )
- {
- WORD rc, unload = TRUE;
- UBYTE ebuf[ 256 ];
-
- if ( ! vwText ) return;
-
- if ( ! WBenchMsg ) {
- if ( GetVar( "EDITOR", ebuf, 256, NULL ) > 0 ) {
- strcat( ebuf, " \"" );
- strcat( ebuf, vwName );
- strcat( ebuf, "\"" );
- ScreenToBack( vwScreen );
- ErrorLine( "Running the editor..." );
- Busy();
-
- rc = SystemTags( ebuf, SYS_Input, Input(),
- SYS_Output, Output(),
- TAG_DONE );
-
- if ( rc == -1 ) {
- Error( "Could not run the editor." );
- goto CleanExit;
- }
- } else {
- Error( "ENV:EDITOR environment variable not set (Use SetEnv)." );
- goto CleanExit;
- }
- } else {
- Error( "Option not available with Workbench." );
- goto CleanExit;
- }
-
- sprintf( ebuf, "Editor return code : %ld", rc );
- ErrorLine( ebuf );
- CleanExit:
- ClearMsgPort( vwIdPort );
- ScreenToFront( vwScreen );
- Ready();
- }
- #endif
-