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 #include <fstream>
  46
  47 #include "DtTt.h"
  48
  49 extern ofstream snoopStream;
  50
  51 void
  52 _DtStringChooserSet(
  53         _DtStringChooserAction  choice,
  54         void *                  entity,
  55         const char *            val
  56 )
  57 {
  58         DtbStringChooserStringChooserInfo instance =
  59                 &dtb_string_chooser_string_chooser;
  60         if (! instance->initialized) {
  61                 dtb_string_chooser_string_chooser_initialize(
  62                         instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin );
  63         }
  64         if ((! tt_is_err( tt_ptr_error( val ))) && (val != 0)) {
  65                 XmTextFieldSetString( instance->stringText, (char *)val );
  66         }
  67         _DtStringChooserSet( choice, entity );
  68 }
  69
  70 void
  71 _DtStringChooserSet(
  72         _DtStringChooserAction  choice,
  73         void *                  entity
  74 )
  75 {
  76         char *okString;
  77         char *title;
  78         char *valueLabel;
  79         switch (choice) {
  80             case _DtStringChoosePatternOp:
  81                 okString = "Add";
  82                 title = "tt_pattern_op_add";
  83                 valueLabel = "Op:";
  84                 break;
  85             case _DtStringChoosePatternOtype:
  86                 okString = "Add";
  87                 title = "tt_pattern_otype_add";
  88                 valueLabel = "Otype:";
  89                 break;
  90             case _DtStringChoosePatternObject:
  91                 okString = "Add";
  92                 title = "tt_pattern_object_add";
  93                 valueLabel = "Object:";
  94                 break;
  95             case _DtStringChoosePatternSenderPtype:
  96                 okString = "Add";
  97                 title = "tt_pattern_sender_ptype_add";
  98                 valueLabel = "Ptype:";
  99                 break;
 100             case _DtStringChooseMessageOtype:
 101                 okString = "Set";
 102                 title = "tt_message_otype_set";
 103                 valueLabel = "Otype:";
 104                 break;
 105             case _DtStringChooseMessageObject:
 106                 okString = "Set";
 107                 title = "tt_message_object_set";
 108                 valueLabel = "Object:";
 109                 break;
 110             case _DtStringChooseMessageSenderPtype:
 111                 okString = "Set";
 112                 title = "tt_message_sender_ptype_set";
 113                 valueLabel = "Ptype:";
 114                 break;
 115             case _DtStringChooseMessageHandlerPtype:
 116                 okString = "Set";
 117                 title = "tt_message_handler_ptype_set";
 118                 valueLabel = "Ptype:";
 119                 break;
 120             case _DtStringChooseMessageStatusString:
 121                 okString = "Set";
 122                 title = "tt_message_status_string_set";
 123                 valueLabel = "String:";
 124                 break;
 125             case _DtStringChooseMessageArgValSet:
 126                 okString = "Set...";
 127                 title = "tt_message_arg_val_set";
 128                 valueLabel = "Arg:";
 129                 break;
 130             case _DtStringChoosePtype2Declare:
 131                 okString = "Declare";
 132                 title = "tt_ptype_declare";
 133                 valueLabel = "Ptype:";
 134                 break;
 135             case _DtStringChooseMediaPtype2Declare:
 136                 okString = "Undeclare";
 137                 title = "ttmedia_ptype_undeclare";
 138                 valueLabel = "Ptype:";
 139                 break;
 140             case _DtStringChoosePtype2UnDeclare:
 141                 okString = "Undeclare";
 142                 title = "tt_ptype_undeclare";
 143                 valueLabel = "Ptype:";
 144                 break;
 145             case _DtStringChoosePtype2SetDefault:
 146                 okString = "Set";
 147                 title = "tt_default_ptype_set";
 148                 valueLabel = "Ptype:";
 149                 break;
 150             case _DtStringChoosePtype2Exists:
 151                 okString = "Exists?";
 152                 title = "tt_ptype_exists";
 153                 valueLabel = "Ptype:";
 154                 break;
 155             case _DtStringChooseSystem:
 156                 okString = "system()";
 157                 title = "system(3C)";
 158                 valueLabel = "Command:";
 159                 break;
 160             case _DtStringChoosePutenv:
 161                 okString = "putenv()";
 162                 title = "putenv(3C)";
 163                 valueLabel = "variable=value:";
 164                 break;
 165             case _DtStringChooseNetfile2File:
 166                 okString = "File";
 167                 title = "tt_netfile_file";
 168                 valueLabel = "Netfile:";
 169                 break;
 170             default:
 171                 return;
 172         }
 173         DtbStringChooserStringChooserInfo instance =
 174                 &dtb_string_chooser_string_chooser;
 175         if (! instance->initialized) {
 176                 dtb_string_chooser_string_chooser_initialize(
 177                         instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin );
 178         }
 179         DtTtSetLabel( instance->stringOkButton, okString );
 180         DtTtSetLabel( instance->stringText_label, valueLabel );
 181         XtVaSetValues( instance->stringChooser, XmNtitle, title, NULL );
 182         // Remember dialog mode, entity
 183         XtVaSetValues( instance->stringOkButton, XmNuserData, choice, NULL );
 184         XtVaSetValues( instance->stringCancelButton, XmNuserData, entity, NULL );
 185         XmTextPosition last = XmTextFieldGetLastPosition( instance->stringText );
 186         Time when = XtLastTimestampProcessed( XtDisplay( instance->stringText ));
 187         XmTextFieldSetSelection( instance->stringText, 0, last, when );
 188         XtManageChild( instance->stringChooser_shellform );
 189 }
 190
 191 /*** DTB_USER_CODE_END
 192  ***
 193  *** End of user code section
 194  ***
 195  **************************************************************************/
 196
 197
 198
 199 void
 200 stringChooser_stringCancelButton_CB1(
 201     Widget widget,
 202     XtPointer clientData,
 203     XtPointer callData
 204 )
 205 {
 206     /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
 207     /*** DTB_USER_CODE_END   ^^^ Add C variables and code above ^^^ ***/
 208
 209     DtbStringChooserStringChooserInfo   instance = (DtbStringChooserStringChooserInfo)clientData;
 210
 211     if (!(instance->initialized))
 212     {
 213         dtb_string_chooser_string_chooser_initialize(instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin);
 214     }
 215     XtUnmanageChild(instance->stringChooser_shellform);
 216
 217     /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
 218     /*** DTB_USER_CODE_END   ^^^ Add C code above ^^^ ***/
 219 }
 220
 221
 222 void
 223 stringOkayed(
 224     Widget widget,
 225     XtPointer clientData,
 226     XtPointer callData
 227 )
 228 {
 229     /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
 230     /*** DTB_USER_CODE_END   ^^^ Add C variables and code above ^^^ ***/
 231
 232     /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
 233     DtbStringChooserStringChooserInfo instance =
 234             (DtbStringChooserStringChooserInfo)clientData;
 235     char *string = XmTextFieldGetString( instance->stringText );
 236     if ((string != 0) && (string[0] == '\0')) {
 237             XtFree( string );
 238             string = 0;
 239     }
 240     XtPointer val;
 241     XtVaGetValues( instance->stringOkButton, XmNuserData, &val, NULL );
 242     _DtStringChooserAction choice = (_DtStringChooserAction) (long) val;
 243     XtVaGetValues( instance->stringCancelButton, XmNuserData, &val, NULL );
 244     Widget label = dtb_ttsnoop_ttsnoop_win.ttsnoopWin_label;
 245     switch (choice) {
 246             Tt_status status;
 247             int ival;
 248             char *file;
 249         case _DtStringChoosePatternOp:
 250         case _DtStringChoosePatternOtype:
 251         case _DtStringChoosePatternObject:
 252         case _DtStringChoosePatternSenderPtype:
 253             _DtTtPatternUpdate( (Tt_pattern)val, choice, string );
 254             break;
 255         case _DtStringChooseMessageOtype:
 256         case _DtStringChooseMessageObject:
 257         case _DtStringChooseMessageSenderPtype:
 258         case _DtStringChooseMessageHandlerPtype:
 259         case _DtStringChooseMessageStatusString:
 260         case _DtStringChooseMessageArgValSet:
 261             _DtTtMessageUpdate( (Tt_message)val, choice, string );
 262             break;
 263         case _DtStringChoosePtype2Declare:
 264             status = tt_ptype_declare( string );
 265             DtTtSetLabel( label, "tt_ptype_declare()", status );
 266             break;
 267         case _DtStringChooseMediaPtype2Declare:
 268             // XXX prompt for base_opnum
 269             status = ttmedia_ptype_declare( string, 0, _DtTtMediaLoadPatCb,
 270                                             0, 1 );
 271             DtTtSetLabel( label, "ttmedia_ptype_declare()", status );
 272             break;
 273         case _DtStringChoosePtype2UnDeclare:
 274             status = tt_ptype_undeclare( string );
 275             DtTtSetLabel( label, "tt_ptype_undeclare()", status );
 276             break;
 277         case _DtStringChoosePtype2SetDefault:
 278             status = tt_default_ptype_set( string );
 279             DtTtSetLabel( label, "tt_default_ptype_set()", status );
 280             break;
 281         case _DtStringChoosePtype2Exists:
 282             status = tt_ptype_exists( string );
 283             DtTtSetLabel( label, "tt_ptype_exists()", status );
 284             break;
 285         case _DtStringChooseSystem:
 286             ival = system( string );
 287             DtTtSetLabel( label, "system()", ival );
 288             break;
 289         case _DtStringChoosePutenv:
 290             ival = putenv( string );
 291             DtTtSetLabel( label, "putenv()", ival );
 292             break;
 293         case _DtStringChooseNetfile2File:
 294             file = tt_netfile_file( string );
 295             DtTtSetLabel( label, "tt_netfile_file()", file );
 296             if (! tt_is_err( tt_ptr_error( file ))) {
 297                     snoopStream << "tt_netfile_file( \"" << string
 298                             << "\" ) = \"" << file << "\"" << endl;
 299             }
 300             break;
 301         default:
 302             break;
 303     }
 304     if (string != 0) {
 305             XtFree( string );
 306     }
 307     XtUnmanageChild( instance->stringChooser_shellform );
 308     /*** DTB_USER_CODE_END   ^^^ Add C code above ^^^ ***/
 309 }
 310
 311
 312 void
 313 stringHelp(
 314     Widget widget,
 315     XtPointer clientData,
 316     XtPointer callData
 317 )
 318 {
 319     /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
 320     /*** DTB_USER_CODE_END   ^^^ Add C variables and code above ^^^ ***/
 321
 322     /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
 323     DtbStringChooserStringChooserInfo instance =
 324             (DtbStringChooserStringChooserInfo)clientData;
 325     XtPointer val;
 326     XtVaGetValues( instance->stringOkButton, XmNuserData, &val, NULL );
 327     _DtStringChooserAction choice = (_DtStringChooserAction) (long) val;
 328     Widget label = dtb_ttsnoop_ttsnoop_win.ttsnoopWin_label;
 329     switch (choice) {
 330         case _DtStringChoosePatternOp:
 331             _DtMan( label, "tt_pattern_op_add" );
 332             break;
 333         case _DtStringChoosePatternOtype:
 334             _DtMan( label, "tt_pattern_otype_add" );
 335             break;
 336         case _DtStringChoosePatternObject:
 337             _DtMan( label, "tt_pattern_object_add" );
 338             break;
 339         case _DtStringChoosePatternSenderPtype:
 340             _DtMan( label, "tt_pattern_sender_ptype_add" );
 341             break;
 342         case _DtStringChooseMessageOtype:
 343             _DtMan( label, "tt_message_otype_set" );
 344             break;
 345         case _DtStringChooseMessageObject:
 346             _DtMan( label, "tt_message_object_set" );
 347             break;
 348         case _DtStringChooseMessageSenderPtype:
 349             _DtMan( label, "tt_message_sender_ptype_set" );
 350             break;
 351         case _DtStringChooseMessageHandlerPtype:
 352             _DtMan( label, "tt_message_handler_ptype_set" );
 353             break;
 354         case _DtStringChooseMessageStatusString:
 355             _DtMan( label, "tt_message_status_string_set" );
 356             break;
 357         case _DtStringChooseMessageArgValSet:
 358             _DtMan( label, "tt_message_arg_val_set" );
 359             break;
 360         case _DtStringChoosePtype2Declare:
 361             _DtMan( label, "tt_ptype_declare" );
 362             break;
 363         case _DtStringChooseMediaPtype2Declare:
 364             _DtMan( label, "ttmedia_ptype_declare" );
 365             break;
 366         case _DtStringChoosePtype2UnDeclare:
 367             _DtMan( label, "tt_ptype_undeclare" );
 368             break;
 369         case _DtStringChoosePtype2SetDefault:
 370             _DtMan( label, "tt_default_ptype_set" );
 371             break;
 372         case _DtStringChoosePtype2Exists:
 373             _DtMan( label, "tt_ptype_exists" );
 374             break;
 375         case _DtStringChooseSystem:
 376             _DtMan( label, "system" );
 377             break;
 378         case _DtStringChoosePutenv:
 379             _DtMan( label, "putenv" );
 380             break;
 381         default:
 382             break;
 383     }
 384     /*** DTB_USER_CODE_END   ^^^ Add C code above ^^^ ***/
 385 }
 386
 387
 388
 389 /**************************************************************************
 390  *** DTB_USER_CODE_START
 391  ***
 392  *** All automatically-generated data and functions have been defined.
 393  ***
 394  *** Add new functions here, or at the top of the file.
 395  ***/
 396
 397 /*** DTB_USER_CODE_END
 398  ***
 399  *** End of user code section
 400  ***
 401  **************************************************************************/
 402
 403