/[ascend]/trunk/tcltk/generic/interface/LibraryProc.c
ViewVC logotype

Diff of /trunk/tcltk/generic/interface/LibraryProc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 743 by johnpye, Thu Jul 6 13:47:41 2006 UTC revision 744 by johnpye, Thu Jul 6 15:24:59 2006 UTC
# Line 83  struct int_option { Line 83  struct int_option {
83    int high;    int high;
84  };  };
85    
86    STDHLF(Asc_LibrOptionsCmd,(Asc_LibrOptionsCmdHL,HLFSTOP));
87    int Asc_LibrOptionsCmd(ClientData cdata, Tcl_Interp *interp,
88            int argc, CONST84 char **argv
89    ){
90    
91  /* keep the names here < 60 chars. Data for Options command */  /* keep the names here < 60 chars. Data for Options command */
92  #define OPTIONCOUNT 4  #define OPTIONCOUNT 4
93  static    struct int_option option_list[OPTIONCOUNT] = {
94  struct int_option g_option_list[OPTIONCOUNT] = {      {&g_compiler_warnings,"-compilerWarnings",0,INT_MAX},
95    {&g_compiler_warnings,"-compilerWarnings",0,INT_MAX},      {&g_parser_warnings,"-parserWarnings",0,5},
96    {&g_parser_warnings,"-parserWarnings",0,5},      {&g_simplify_relations,"-simplifyRelations",0,1},
97    {&g_simplify_relations,"-simplifyRelations",0,1},      {&g_use_copyanon,"-useCopyAnon",0,1}
98    {&g_use_copyanon,"-useCopyAnon",0,1}    };
99  };  #define GOL option_list
100  #define GOL g_option_list  
101    
102    
 STDHLF(Asc_LibrOptionsCmd,(Asc_LibrOptionsCmdHL,HLFSTOP));  
 int Asc_LibrOptionsCmd(ClientData cdata, Tcl_Interp *interp,  
                            int argc, CONST84 char **argv)  
 {  
103    int i, opt, status;    int i, opt, status;
104    char buf[80];    char buf[80];
105    ASCUSE;  /* see if first arg is -help */    ASCUSE;  /* see if first arg is -help */
Legend:
Removed from v.743  
changed lines
  Added in v.744
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22