cde/programs/ttsnoop/stringChooser_stubs.C.src

   1 /*** DTB_USER_CODE_START vvv Add file header below vvv ***/
   2 //%%  (c) Copyright 1993, 1994 Hewlett-Packard Company
   3 //%%  (c) Copyright 1993, 1994 International Business Machines Corp.
   4 //%%  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
   5 //%%  (c) Copyright 1993, 1994 Novell, Inc.
   6 //%%  $XConsortium: stringChooser_stubs.C.src /main/3 1995/11/06 17:13:57 rswiston $
   7 /*** DTB_USER_CODE_END   ^^^ Add file header above ^^^ ***/
   8
   9 /*
  10  * File: stringChooser_stubs.c
  11  * Contains: Module callbacks and connection functions
  12  *
  13  * This file was generated by dtcodegen, from module stringChooser
  14  *
  15  * Any text may be added between the DTB_USER_CODE_START and
  16  * DTB_USER_CODE_END comments (even non-C code). Descriptive comments
  17  * are provided only as an aid.
  18  *
  19  *  ** EDIT ONLY WITHIN SECTIONS MARKED WITH DTB_USER_CODE COMMENTS.  **
  20  *  ** ALL OTHER MODIFICATIONS WILL BE OVERWRITTEN. DO NOT MODIFY OR  **
  21  *  ** DELETE THE GENERATED COMMENTS!                                 **
  22  */
  23
  24 #include <stdio.h>
  25 #include <Xm/Xm.h>
  26 #include "dtb_utils.h"
  27 #include "stringChooser_ui.h"
  28
  29 /*
  30  * Header files for cross-module connections
  31  */
  32 #include "ttsnoop_ui.h"
  33
  34
  35 /**************************************************************************
  36  *** DTB_USER_CODE_START
  37  ***
  38  *** All necessary header files have been included.
  39  ***
  40  *** Add include files, types, macros, externs, and user functions here.
  41  ***/
  42
  43 #include <Xm/TextF.h>
  44
  45 #if defined(__linux__) || defined(CSRG_BASED) || defined(sun)
  46 #include <fstream>
  47 #else
  48 #include <fstream.h>
  49 #endif
  50
  51 #include "DtTt.h"
  52
  53 extern ofstream snoopStream;
  54
  55 void
  56 _DtStringChooserSet(
  57         _DtStringChooserAction  choice,
  58         void *                  entity,
  59         const char *            val
  60 )
  61 {
  62         DtbStringChooserStringChooserInfo instance =
  63                 &dtb_string_chooser_string_chooser;
  64         if (! instance->initialized) {
  65                 dtb_string_chooser_string_chooser_initialize(
  66                         instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin );
  67         }
  68         if ((! tt_is_err( tt_ptr_error( val ))) && (val != 0)) {
  69                 XmTextFieldSetString( instance->stringText, (char *)val );
  70         }
  71         _DtStringChooserSet( choice, entity );
  72 }
  73
  74 void
  75 _DtStringChooserSet(
  76         _DtStringChooserAction  choice,
  77         void *                  entity
  78 )
  79 {
  80         char *okString;
  81         char *title;
  82         char *valueLabel;
  83         switch (choice) {
  84             case _DtStringChoosePatternOp:
  85                 okString = "Add";
  86                 title = "tt_pattern_op_add";
  87                 valueLabel = "Op:";
  88                 break;
  89             case _DtStringChoosePatternOtype:
  90                 okString = "Add";
  91                 title = "tt_pattern_otype_add";
  92                 valueLabel = "Otype:";
  93                 break;
  94             case _DtStringChoosePatternObject:
  95                 okString = "Add";
  96                 title = "tt_pattern_object_add";
  97                 valueLabel = "Object:";
  98                 break;
  99             case _DtStringChoosePatternSenderPtype:
 100                 okString = "Add";
 101                 title = "tt_pattern_sender_ptype_add";
 102                 valueLabel = "Ptype:";
 103                 break;
 104             case _DtStringChooseMessageOtype:
 105                 okString = "Set";
 106                 title = "tt_message_otype_set";
 107                 valueLabel = "Otype:";
 108                 break;
 109             case _DtStringChooseMessageObject:
 110                 okString = "Set";
 111                 title = "tt_message_object_set";
 112                 valueLabel = "Object:";
 113                 break;
 114             case _DtStringChooseMessageSenderPtype:
 115                 okString = "Set";
 116                 title = "tt_message_sender_ptype_set";
 117                 valueLabel = "Ptype:";
 118                 break;
 119             case _DtStringChooseMessageHandlerPtype:
 120                 okString = "Set";
 121                 title = "tt_message_handler_ptype_set";
 122                 valueLabel = "Ptype:";
 123                 break;
 124             case _DtStringChooseMessageStatusString:
 125                 okString = "Set";
 126                 title = "tt_message_status_string_set";
 127                 valueLabel = "String:";
 128                 break;
 129             case _DtStringChooseMessageArgValSet:
 130                 okString = "Set...";
 131                 title = "tt_message_arg_val_set";
 132                 valueLabel = "Arg:";
 133                 break;
 134             case _DtStringChoosePtype2Declare:
 135                 okString = "Declare";
 136                 title = "tt_ptype_declare";
 137                 valueLabel = "Ptype:";
 138                 break;
 139             case _DtStringChooseMediaPtype2Declare:
 140                 okString = "Undeclare";
 141                 title = "ttmedia_ptype_undeclare";
 142                 valueLabel = "Ptype:";
 143                 break;
 144             case _DtStringChoosePtype2UnDeclare:
 145                 okString = "Undeclare";
 146                 title = "tt_ptype_undeclare";
 147                 valueLabel = "Ptype:";
 148                 break;
 149             case _DtStringChoosePtype2SetDefault:
 150                 okString = "Set";
 151                 title = "tt_default_ptype_set";
 152                 valueLabel = "Ptype:";
 153                 break;
 154             case _DtStringChoosePtype2Exists:
 155                 okString = "Exists?";
 156                 title = "tt_ptype_exists";
 157                 valueLabel = "Ptype:";
 158                 break;
 159             case _DtStringChooseSystem:
 160                 okString = "system()";
 161                 title = "system(3C)";
 162                 valueLabel = "Command:";
 163                 break;
 164             case _DtStringChoosePutenv:
 165                 okString = "putenv()";
 166                 title = "putenv(3C)";
 167                 valueLabel = "variable=value:";
 168                 break;
 169             case _DtStringChooseNetfile2File:
 170                 okString = "File";
 171                 title = "tt_netfile_file";
 172                 valueLabel = "Netfile:";
 173                 break;
 174             default:
 175                 return;
 176         }
 177         DtbStringChooserStringChooserInfo instance =
 178                 &dtb_string_chooser_string_chooser;
 179         if (! instance->initialized) {
 180                 dtb_string_chooser_string_chooser_initialize(
 181                         instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin );
 182         }
 183         DtTtSetLabel( instance->stringOkButton, okString );
 184         DtTtSetLabel( instance->stringText_label, valueLabel );
 185         XtVaSetValues( instance->stringChooser, XmNtitle, title, NULL );
 186         // Remember dialog mode, entity
 187         XtVaSetValues( instance->stringOkButton, XmNuserData, choice, NULL );
 188         XtVaSetValues( instance->stringCancelButton, XmNuserData, entity, NULL );
 189         XmTextPosition last = XmTextFieldGetLastPosition( instance->stringText );
 190         Time when = XtLastTimestampProcessed( XtDisplay( instance->stringText ));
 191         XmTextFieldSetSelection( instance->stringText, 0, last, when );
 192         XtManageChild( instance->stringChooser_shellform );
 193 }
 194
 195 /*** DTB_USER_CODE_END
 196  ***
 197  *** End of user code section
 198  ***
 199  **************************************************************************/
 200
 201
 202
 203 void
 204 stringChooser_stringCancelButton_CB1(
 205     Widget widget,
 206     XtPointer clientData,
 207     XtPointer callData
 208 )
 209 {
 210     /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
 211     /*** DTB_USER_CODE_END   ^^^ Add C variables and code above ^^^ ***/
 212
 213     DtbStringChooserStringChooserInfo   instance = (DtbStringChooserStringChooserInfo)clientData;
 214
 215     if (!(instance->initialized))
 216     {
 217         dtb_string_chooser_string_chooser_initialize(instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin);
 218     }
 219     XtUnmanageChild(instance->stringChooser_shellform);
 220
 221     /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
 222     /*** DTB_USER_CODE_END   ^^^ Add C code above ^^^ ***/
 223 }
 224
 225
 226 void
 227 stringOkayed(
 228     Widget widget,
 229     XtPointer clientData,
 230     XtPointer callData
 231 )
 232 {
 233     /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
 234     /*** DTB_USER_CODE_END   ^^^ Add C variables and code above ^^^ ***/
 235
 236     /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
 237     DtbStringChooserStringChooserInfo instance =
 238             (DtbStringChooserStringChooserInfo)clientData;
 239     char *string = XmTextFieldGetString( instance->stringText );
 240     if ((string != 0) && (string[0] == '\0')) {
 241             XtFree( string );
 242             string = 0;
 243     }
 244     XtPointer val;
 245     XtVaGetValues( instance->stringOkButton, XmNuserData, &val, NULL );
 246     _DtStringChooserAction choice = (_DtStringChooserAction) (long) val;
 247     XtVaGetValues( instance->stringCancelButton, XmNuserData, &val, NULL );
 248     Widget label = dtb_ttsnoop_ttsnoop_win.ttsnoopWin_label;
 249     switch (choice) {
 250             Tt_status status;
 251             int ival;
 252             char *file;
 253         case _DtStringChoosePatternOp:
 254         case _DtStringChoosePatternOtype:
 255         case _DtStringChoosePatternObject:
 256         case _DtStringChoosePatternSenderPtype:
 257             _DtTtPatternUpdate( (Tt_pattern)val, choice, string );
 258             break;
 259         case _DtStringChooseMessageOtype:
 260         case _DtStringChooseMessageObject:
 261         case _DtStringChooseMessageSenderPtype:
 262         case _DtStringChooseMessageHandlerPtype:
 263         case _DtStringChooseMessageStatusString:
 264         case _DtStringChooseMessageArgValSet:
 265             _DtTtMessageUpdate( (Tt_message)val, choice, string );
 266             break;
 267         case _DtStringChoosePtype2Declare:
 268             status = tt_ptype_declare( string );
 269             DtTtSetLabel( label, "tt_ptype_declare()", status );
 270             break;
 271         case _DtStringChooseMediaPtype2Declare:
 272             // XXX prompt for base_opnum
 273             status = ttmedia_ptype_declare( string, 0, _DtTtMediaLoadPatCb,
 274                                             0, 1 );
 275             DtTtSetLabel( label, "ttmedia_ptype_declare()", status );
 276             break;
 277         case _DtStringChoosePtype2UnDeclare:
 278             status = tt_ptype_undeclare( string );
 279             DtTtSetLabel( label, "tt_ptype_undeclare()", status );
 280             break;
 281         case _DtStringChoosePtype2SetDefault:
 282             status = tt_default_ptype_set( string );
 283             DtTtSetLabel( label, "tt_default_ptype_set()", status );
 284             break;
 285         case _DtStringChoosePtype2Exists:
 286             status = tt_ptype_exists( string );
 287             DtTtSetLabel( label, "tt_ptype_exists()", status );
 288             break;
 289         case _DtStringChooseSystem:
 290             ival = system( string );
 291             DtTtSetLabel( label, "system()", ival );
 292             break;
 293         case _DtStringChoosePutenv:
 294             ival = putenv( string );
 295             DtTtSetLabel( label, "putenv()", ival );
 296             break;
 297         case _DtStringChooseNetfile2File:
 298             file = tt_netfile_file( string );
 299             DtTtSetLabel( label, "tt_netfile_file()", file );
 300             if (! tt_is_err( tt_ptr_error( file ))) {
 301                     snoopStream << "tt_netfile_file( \"" << string
 302                             << "\" ) = \"" << file << "\"" << endl;
 303             }
 304             break;
 305         default:
 306             break;
 307     }
 308     if (string != 0) {
 309             XtFree( string );
 310     }
 311     XtUnmanageChild( instance->stringChooser_shellform );
 312     /*** DTB_USER_CODE_END   ^^^ Add C code above ^^^ ***/
 313 }
 314
 315
 316 void
 317 stringHelp(
 318     Widget widget,
 319     XtPointer clientData,
 320     XtPointer callData
 321 )
 322 {
 323     /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
 324     /*** DTB_USER_CODE_END   ^^^ Add C variables and code above ^^^ ***/
 325
 326     /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
 327     DtbStringChooserStringChooserInfo instance =
 328             (DtbStringChooserStringChooserInfo)clientData;
 329     XtPointer val;
 330     XtVaGetValues( instance->stringOkButton, XmNuserData, &val, NULL );
 331     _DtStringChooserAction choice = (_DtStringChooserAction) (long) val;
 332     Widget label = dtb_ttsnoop_ttsnoop_win.ttsnoopWin_label;
 333     switch (choice) {
 334         case _DtStringChoosePatternOp:
 335             _DtMan( label, "tt_pattern_op_add" );
 336             break;
 337         case _DtStringChoosePatternOtype:
 338             _DtMan( label, "tt_pattern_otype_add" );
 339             break;
 340         case _DtStringChoosePatternObject:
 341             _DtMan( label, "tt_pattern_object_add" );
 342             break;
 343         case _DtStringChoosePatternSenderPtype:
 344             _DtMan( label, "tt_pattern_sender_ptype_add" );
 345             break;
 346         case _DtStringChooseMessageOtype:
 347             _DtMan( label, "tt_message_otype_set" );
 348             break;
 349         case _DtStringChooseMessageObject:
 350             _DtMan( label, "tt_message_object_set" );
 351             break;
 352         case _DtStringChooseMessageSenderPtype:
 353             _DtMan( label, "tt_message_sender_ptype_set" );
 354             break;
 355         case _DtStringChooseMessageHandlerPtype:
 356             _DtMan( label, "tt_message_handler_ptype_set" );
 357             break;
 358         case _DtStringChooseMessageStatusString:
 359             _DtMan( label, "tt_message_status_string_set" );
 360             break;
 361         case _DtStringChooseMessageArgValSet:
 362             _DtMan( label, "tt_message_arg_val_set" );
 363             break;
 364         case _DtStringChoosePtype2Declare:
 365             _DtMan( label, "tt_ptype_declare" );
 366             break;
 367         case _DtStringChooseMediaPtype2Declare:
 368             _DtMan( label, "ttmedia_ptype_declare" );
 369             break;
 370         case _DtStringChoosePtype2UnDeclare:
 371             _DtMan( label, "tt_ptype_undeclare" );
 372             break;
 373         case _DtStringChoosePtype2SetDefault:
 374             _DtMan( label, "tt_default_ptype_set" );
 375             break;
 376         case _DtStringChoosePtype2Exists:
 377             _DtMan( label, "tt_ptype_exists" );
 378             break;
 379         case _DtStringChooseSystem:
 380             _DtMan( label, "system" );
 381             break;
 382         case _DtStringChoosePutenv:
 383             _DtMan( label, "putenv" );
 384             break;
 385         default:
 386             break;
 387     }
 388     /*** DTB_USER_CODE_END   ^^^ Add C code above ^^^ ***/
 389 }
 390
 391
 392
 393 /**************************************************************************
 394  *** DTB_USER_CODE_START
 395  ***
 396  *** All automatically-generated data and functions have been defined.
 397  ***
 398  *** Add new functions here, or at the top of the file.
 399  ***/
 400
 401 /*** DTB_USER_CODE_END
 402  ***
 403  *** End of user code section
 404  ***
 405  **************************************************************************/
 406
 407