/[pcre]/code/trunk/pcretest.c
ViewVC logotype

Diff of /code/trunk/pcretest.c

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

revision 1253 by ph10, Wed Feb 20 17:42:03 2013 UTC revision 1254 by ph10, Fri Feb 22 12:46:26 2013 UTC
# Line 121  input mode under Windows. */ Line 121  input mode under Windows. */
121  #endif  #endif
122  #endif  #endif
123    
124    #ifdef __VMS
125    #include <ssdef.h>
126    void vms_setsymbol( char *, char *, int );
127    #endif
128    
129    
130  #define PRIV(name) name  #define PRIV(name) name
131    
132  /* We have to include pcre_internal.h because we need the internal info for  /* We have to include pcre_internal.h because we need the internal info for
# Line 3099  while (argc > 1 && argv[op][0] == '-') Line 3105  while (argc > 1 && argv[op][0] == '-')
3105        ((stack_size = get_value((pcre_uint8 *)argv[op+1], &endptr)),        ((stack_size = get_value((pcre_uint8 *)argv[op+1], &endptr)),
3106          *endptr == 0))          *endptr == 0))
3107      {      {
3108  #if defined(_WIN32) || defined(WIN32) || defined(__minix) || defined(NATIVE_ZOS)  #if defined(_WIN32) || defined(WIN32) || defined(__minix) || defined(NATIVE_ZOS) || defined(__VMS)
3109      printf("PCRE: -S not supported on this OS\n");      printf("PCRE: -S not supported on this OS\n");
3110      exit(1);      exit(1);
3111  #else  #else
# Line 3132  while (argc > 1 && argv[op][0] == '-') Line 3138  while (argc > 1 && argv[op][0] == '-')
3138          (void)PCRE_CONFIG(PCRE_CONFIG_LINK_SIZE, &rc);          (void)PCRE_CONFIG(PCRE_CONFIG_LINK_SIZE, &rc);
3139          printf("%d\n", rc);          printf("%d\n", rc);
3140          yield = rc;          yield = rc;
3141    
3142    #ifdef __VMS
3143            vms_setsymbol("LINKSIZE",0,yield );
3144    #endif
3145          }          }
3146        else if (strcmp(argv[op + 1], "pcre8") == 0)        else if (strcmp(argv[op + 1], "pcre8") == 0)
3147          {          {
# Line 3142  while (argc > 1 && argv[op][0] == '-') Line 3152  while (argc > 1 && argv[op][0] == '-')
3152          printf("0\n");          printf("0\n");
3153          yield = 0;          yield = 0;
3154  #endif  #endif
3155          goto EXIT;  #ifdef __VMS
3156            vms_setsymbol("PCRE8",0,yield );
3157    #endif
3158          }          }
3159        else if (strcmp(argv[op + 1], "pcre16") == 0)        else if (strcmp(argv[op + 1], "pcre16") == 0)
3160          {          {
# Line 3153  while (argc > 1 && argv[op][0] == '-') Line 3165  while (argc > 1 && argv[op][0] == '-')
3165          printf("0\n");          printf("0\n");
3166          yield = 0;          yield = 0;
3167  #endif  #endif
3168          goto EXIT;  #ifdef __VMS
3169            vms_setsymbol("PCRE16",0,yield );
3170    #endif
3171          }          }
3172        else if (strcmp(argv[op + 1], "pcre32") == 0)        else if (strcmp(argv[op + 1], "pcre32") == 0)
3173          {          {
# Line 3164  while (argc > 1 && argv[op][0] == '-') Line 3178  while (argc > 1 && argv[op][0] == '-')
3178          printf("0\n");          printf("0\n");
3179          yield = 0;          yield = 0;
3180  #endif  #endif
3181          goto EXIT;  #ifdef __VMS
3182            vms_setsymbol("PCRE32",0,yield );
3183    #endif
3184          }          }
3185        if (strcmp(argv[op + 1], "utf") == 0)        else if (strcmp(argv[op + 1], "utf") == 0)
3186          {          {
3187  #ifdef SUPPORT_PCRE8  #ifdef SUPPORT_PCRE8
3188          if (pcre_mode == PCRE8_MODE)          if (pcre_mode == PCRE8_MODE)
# Line 3182  while (argc > 1 && argv[op][0] == '-') Line 3198  while (argc > 1 && argv[op][0] == '-')
3198  #endif  #endif
3199          printf("%d\n", rc);          printf("%d\n", rc);
3200          yield = rc;          yield = rc;
3201          goto EXIT;  #ifdef __VMS
3202            vms_setsymbol("UTF",0,yield );
3203    #endif
3204          }          }
3205        else if (strcmp(argv[op + 1], "ucp") == 0)        else if (strcmp(argv[op + 1], "ucp") == 0)
3206          {          {
# Line 5487  if (dfa_workspace != NULL) Line 5505  if (dfa_workspace != NULL)
5505    free(dfa_workspace);    free(dfa_workspace);
5506  #endif  #endif
5507    
5508    #if defined(__VMS)
5509      yield = SS$_NORMAL;  /* Return values via DCL symbols */
5510    #endif
5511    
5512  return yield;  return yield;
5513  }  }
5514    

Legend:
Removed from v.1253  
changed lines
  Added in v.1254

  ViewVC Help
Powered by ViewVC 1.1.5