af6c2fd881
This program has never worked very well, and it may still not work very well. This commit removes the ancient C++ headers and uses modern replacements with some changes required due to the different interfaces. It builds a lot cleaner, and no longer does stupid things like deleteing char *, ostream.str()'s, and the like. This program could be really useful if it worked well. Some thought should be givien in the future to decouple this SW from dtappbuilder and maybe just rewrite from scratch.
337 lines
9.5 KiB
Plaintext
337 lines
9.5 KiB
Plaintext
/*** DTB_USER_CODE_START vvv Add file header below vvv ***/
|
|
//%% (c) Copyright 1993, 1994 Hewlett-Packard Company
|
|
//%% (c) Copyright 1993, 1994 International Business Machines Corp.
|
|
//%% (c) Copyright 1993, 1994 Sun Microsystems, Inc.
|
|
//%% (c) Copyright 1993, 1994 Novell, Inc.
|
|
//%% $XConsortium: fileChooser_stubs.C.src /main/4 1996/10/14 09:35:42 barstow $
|
|
/*** DTB_USER_CODE_END ^^^ Add file header above ^^^ ***/
|
|
|
|
/*
|
|
* File: fileChooser_stubs.c
|
|
* Contains: Module callbacks and connection functions
|
|
*
|
|
* This file was generated by dtcodegen, from module fileChooser
|
|
*
|
|
* Any text may be added between the DTB_USER_CODE_START and
|
|
* DTB_USER_CODE_END comments (even non-C code). Descriptive comments
|
|
* are provided only as an aid.
|
|
*
|
|
* ** EDIT ONLY WITHIN SECTIONS MARKED WITH DTB_USER_CODE COMMENTS. **
|
|
* ** ALL OTHER MODIFICATIONS WILL BE OVERWRITTEN. DO NOT MODIFY OR **
|
|
* ** DELETE THE GENERATED COMMENTS! **
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <Xm/Xm.h>
|
|
#include "dtb_utils.h"
|
|
#include "fileChooser_ui.h"
|
|
|
|
|
|
/**************************************************************************
|
|
*** DTB_USER_CODE_START
|
|
***
|
|
*** All necessary header files have been included.
|
|
***
|
|
*** Add include files, types, macros, externs, and user functions here.
|
|
***/
|
|
|
|
#include <unistd.h>
|
|
#include <sys/wait.h>
|
|
#include <Xm/TextF.h>
|
|
|
|
#include <fstream>
|
|
#include <sstream>
|
|
|
|
#include "DtTt.h"
|
|
#include "ttsnoop_ui.h"
|
|
|
|
/*
|
|
* There is no public header file for this function (only an
|
|
* internal header XmStringI.h).
|
|
*/
|
|
extern "C" {
|
|
extern XtPointer _XmStringUngenerate (XmString string,
|
|
XmStringTag tag,
|
|
XmTextType tag_type,
|
|
XmTextType output_type);
|
|
}
|
|
|
|
extern std::ofstream snoopStream;
|
|
extern int globalTimeout;
|
|
|
|
typedef struct _FileChooserInfo {
|
|
_DtFileChooserAction choice;
|
|
void * entity;
|
|
} FileChooserInfo;
|
|
|
|
void
|
|
_DtFileChooserSet(
|
|
_DtFileChooserAction choice,
|
|
void * entity
|
|
)
|
|
{
|
|
char *okString;
|
|
char *title;
|
|
char *valueLabel;
|
|
switch (choice) {
|
|
case _DtFileChoosePatternAdd:
|
|
okString = "Add";
|
|
title = "tt_pattern_file_add";
|
|
break;
|
|
case _DtFileChooseMessageSet:
|
|
okString = "Set";
|
|
title = "tt_message_file_set";
|
|
break;
|
|
case _DtFileChooseJoin:
|
|
okString = "Join";
|
|
title = "tt_file_join";
|
|
break;
|
|
case _DtFileChooseDtJoin:
|
|
okString = "Join";
|
|
title = "ttdt_file_join";
|
|
break;
|
|
case _DtFileChooseQuit:
|
|
okString = "Quit";
|
|
title = "tt_file_quit";
|
|
break;
|
|
case _DtFileChooseDefault:
|
|
okString = "Set";
|
|
title = "tt_default_file_set";
|
|
break;
|
|
case _DtFileChooseGetModified:
|
|
okString = "Get";
|
|
title = "ttdt_Get_Modified";
|
|
break;
|
|
case _DtFileChooseSave:
|
|
okString = "Save";
|
|
title = "ttdt_Save";
|
|
break;
|
|
case _DtFileChooseRevert:
|
|
okString = "Revert";
|
|
title = "ttdt_Revert";
|
|
break;
|
|
case _DtFileChooseNetfile:
|
|
okString = "Netfile";
|
|
title = "tt_file_netfile";
|
|
break;
|
|
case _DtFileChooseChdir:
|
|
okString = "chdir";
|
|
title = "chdir(2)";
|
|
break;
|
|
case _DtFileChooseTypesLoad:
|
|
okString = "Load";
|
|
title = "tt_session_types_load";
|
|
break;
|
|
default:
|
|
return;
|
|
}
|
|
DtbFileChooserFchooserInfo instance =
|
|
&dtb_file_chooser_fchooser;
|
|
if (! instance->initialized) {
|
|
dtb_file_chooser_fchooser_initialize(
|
|
instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin );
|
|
}
|
|
XmString okXmString = XmStringCreateLocalized( okString );
|
|
XtVaSetValues( instance->fchooser, XmNokLabelString, okXmString, NULL );
|
|
XmStringFree( okXmString );
|
|
XtVaSetValues( instance->fchooser_shell, XmNtitle, title, NULL );
|
|
|
|
// Remember dialog mode, entity
|
|
FileChooserInfo *info = new FileChooserInfo;
|
|
info->choice = choice;
|
|
info->entity = entity;
|
|
XtVaSetValues( instance->fchooser, XmNuserData, info, NULL );
|
|
|
|
XtManageChild( instance->fchooser );
|
|
}
|
|
|
|
static Tt_message
|
|
snoopFileMsg(
|
|
Tt_message msg,
|
|
Tttk_op op,
|
|
char * pathname,
|
|
void * clientData,
|
|
int trust,
|
|
int isMe
|
|
)
|
|
{
|
|
tt_free( pathname );
|
|
DtTtCreated( DTTT_MESSAGE, msg );
|
|
snoopIt( "Ttdt_file_cb", (void *) snoopFileMsg, msg );
|
|
if ( (tt_message_class( msg ) == TT_REQUEST)
|
|
&& (tt_message_state( msg ) == TT_SENT))
|
|
{
|
|
// Let user fill in the answer
|
|
Widget newWidget = DtTtMessageWidgetCreate(
|
|
dtb_ttsnoop_ttsnoop_win.ttsnoopWin,
|
|
msg, DtTtMessageWidgetUpdate );
|
|
if (! tt_is_err( tt_ptr_error( newWidget ) )) {
|
|
XRaiseWindow( XtDisplay( newWidget ),
|
|
XtWindow( newWidget ));
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/*** DTB_USER_CODE_END
|
|
***
|
|
*** End of user code section
|
|
***
|
|
**************************************************************************/
|
|
|
|
|
|
|
|
void
|
|
fileOkayed(
|
|
Widget widget,
|
|
XtPointer clientData,
|
|
XtPointer callData
|
|
)
|
|
{
|
|
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
|
|
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
|
|
|
|
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
|
|
DtbFileChooserFchooserInfo instance =
|
|
(DtbFileChooserFchooserInfo)clientData;
|
|
XmFileSelectionBoxCallbackStruct *cbRec =
|
|
(XmFileSelectionBoxCallbackStruct *)callData;
|
|
char *path;
|
|
|
|
path = (char *) _XmStringUngenerate((XmString) cbRec->value, NULL,
|
|
XmMULTIBYTE_TEXT, XmMULTIBYTE_TEXT);
|
|
|
|
if (!path) {
|
|
abort();
|
|
return;
|
|
}
|
|
if ((path != 0) && (path[0] == '\0')) {
|
|
path = 0;
|
|
}
|
|
XtPointer xtPtr;
|
|
XtVaGetValues( instance->fchooser, XmNuserData, &xtPtr, NULL );
|
|
FileChooserInfo *info = (FileChooserInfo *)xtPtr;
|
|
Widget label = dtb_ttsnoop_ttsnoop_win.ttsnoopWin_label;
|
|
std::ostringstream script;
|
|
switch (info->choice) {
|
|
Tt_pattern *pats;
|
|
Tt_message msg;
|
|
Tt_status status;
|
|
int ival;
|
|
char *sess, *val;
|
|
case _DtFileChoosePatternAdd:
|
|
_DtTtPatternUpdate( (Tt_pattern)info->entity, info->choice, path );
|
|
break;
|
|
case _DtFileChooseMessageSet:
|
|
_DtTtMessageUpdate( (Tt_message)info->entity, info->choice, path );
|
|
break;
|
|
case _DtFileChooseJoin:
|
|
status = tt_file_join( path );
|
|
DtTtSetLabel( label, "tt_file_join()", status );
|
|
break;
|
|
case _DtFileChooseDtJoin:
|
|
pats = ttdt_file_join( path, TT_SCOPE_NONE, 1, snoopFileMsg, 0 );
|
|
status = DtTtSetLabel( label, "ttdt_file_join()", pats );
|
|
if ((status == TT_OK) && (pats != 0)) {
|
|
DtTtCreated( DTTT_DTFILE, pats, path );
|
|
}
|
|
break;
|
|
case _DtFileChooseQuit:
|
|
status = tt_file_quit( path );
|
|
DtTtSetLabel( label, "tt_file_quit()", status );
|
|
break;
|
|
case _DtFileChooseDefault:
|
|
status = tt_default_file_set( path );
|
|
DtTtSetLabel( label, "tt_default_file_set()", status );
|
|
break;
|
|
case _DtFileChooseGetModified:
|
|
DtTtSetLabel( label, "ttdt_Get_Modified() = ..." );
|
|
XtSetSensitive( dtb_ttsnoop_ttsnoop_win.ttsnoopWin, False );
|
|
ival = ttdt_Get_Modified( 0, path, TT_BOTH,
|
|
XtWidgetToApplicationContext( label ),
|
|
globalTimeout );
|
|
XtSetSensitive( dtb_ttsnoop_ttsnoop_win.ttsnoopWin, True );
|
|
DtTtSetLabel( label, "ttdt_Get_Modified()", ival );
|
|
break;
|
|
case _DtFileChooseSave:
|
|
DtTtSetLabel( label, "ttdt_Save() = ..." );
|
|
XtSetSensitive( dtb_ttsnoop_ttsnoop_win.ttsnoopWin, False );
|
|
status = ttdt_Save( 0, path, TT_BOTH,
|
|
XtWidgetToApplicationContext( label ),
|
|
globalTimeout );
|
|
// XXX Put up watch cursor; disable dialogs?
|
|
XtSetSensitive( dtb_ttsnoop_ttsnoop_win.ttsnoopWin, True );
|
|
DtTtSetLabel( label, "ttdt_Save()", status );
|
|
break;
|
|
case _DtFileChooseRevert:
|
|
DtTtSetLabel( label, "ttdt_Revert() = ..." );
|
|
XtSetSensitive( dtb_ttsnoop_ttsnoop_win.ttsnoopWin, False );
|
|
ival = ttdt_Revert( 0, path, TT_BOTH,
|
|
XtWidgetToApplicationContext( label ),
|
|
globalTimeout );
|
|
XtSetSensitive( dtb_ttsnoop_ttsnoop_win.ttsnoopWin, True );
|
|
DtTtSetLabel( label, "ttdt_Revert()", ival );
|
|
break;
|
|
case _DtFileChooseNetfile:
|
|
val = tt_file_netfile( path );
|
|
DtTtSetLabel( label, "tt_file_netfile()", val );
|
|
if (! tt_is_err( tt_ptr_error( val ))) {
|
|
snoopStream << "tt_file_netfile( \"" << val
|
|
<< "\" ) = \"" << val << "\"" << endl;
|
|
}
|
|
break;
|
|
case _DtFileChooseChdir:
|
|
ival = chdir( path );
|
|
DtTtSetLabel( label, "chdir()", ival );
|
|
break;
|
|
case _DtFileChooseTypesLoad:
|
|
//
|
|
// Validate types file, with tt_type_comp -p
|
|
// (A corrupt file could crash ttsession.)
|
|
//
|
|
script << "numChars=`tt_type_comp -p \"" << path;
|
|
script << "\" | wc -c`; if [ $numChars = 0 ]; "
|
|
"then exit 1; else exit 0; fi" << endl;
|
|
ival = system( script.str().c_str() );
|
|
if (! WIFEXITED( ival )) {
|
|
DtTtSetLabel( label,
|
|
"system( \"tt_type_comp -p\" )", ival );
|
|
break;
|
|
}
|
|
if (WEXITSTATUS( ival ) != 0) {
|
|
std::ostringstream diagnosis;
|
|
diagnosis << "tt_type_comp -p: syntax error in "
|
|
<< path << ends;
|
|
DtTtSetLabel( label, diagnosis.str().c_str() );
|
|
break;
|
|
}
|
|
sess = tt_default_session();
|
|
status = tt_session_types_load( sess, path );
|
|
tt_free( sess );
|
|
DtTtSetLabel( label, "tt_session_types_load()", status );
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
XtUnmanageChild( instance->fchooser_shell );
|
|
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
|
|
}
|
|
|
|
|
|
|
|
/**************************************************************************
|
|
*** DTB_USER_CODE_START
|
|
***
|
|
*** All automatically-generated data and functions have been defined.
|
|
***
|
|
*** Add new functions here, or at the top of the file.
|
|
***/
|
|
|
|
/*** DTB_USER_CODE_END
|
|
***
|
|
*** End of user code section
|
|
***
|
|
**************************************************************************/
|
|
|
|
|