← Back to branch summary

~webapps/unity-js-scopes/node.js

« back to all changes in this revision

Viewing changes to deps/openssl/openssl/apps/vms_decc_init.c

  • Committer: Marcus Tomlinson
  • Date: 2015-11-13 07:59:04 UTC
  • Revision ID: marcus.tomlinson@canonical.com-20151113075904-h0swczmoq1rvstfc
Node v4 (stable)

Show diffs side-by-side

added added

removed removed

Lines of Context:
deps/openssl/openssl/apps/vms_decc_init.c
 
1
#if defined( __VMS) && !defined( OPENSSL_NO_DECC_INIT) && \
 
2
 defined( __DECC) && !defined( __VAX) && (__CRTL_VER >= 70301000)
 
3
# define USE_DECC_INIT 1
 
4
#endif
 
5
 
 
6
#ifdef USE_DECC_INIT
 
7
 
 
8
/*-
 
9
 * 2010-04-26 SMS.
 
10
 *
 
11
 *----------------------------------------------------------------------
 
12
 *
 
13
 *       decc_init()
 
14
 *
 
15
 *    On non-VAX systems, uses LIB$INITIALIZE to set a collection of C
 
16
 *    RTL features without using the DECC$* logical name method.
 
17
 *
 
18
 *----------------------------------------------------------------------
 
19
 */
 
20
 
 
21
# include <stdio.h>
 
22
# include <stdlib.h>
 
23
# include <unixlib.h>
 
24
 
 
25
/* Global storage. */
 
26
 
 
27
/* Flag to sense if decc_init() was called. */
 
28
 
 
29
int decc_init_done = -1;
 
30
 
 
31
/* Structure to hold a DECC$* feature name and its desired value. */
 
32
 
 
33
typedef struct {
 
34
    char *name;
 
35
    int value;
 
36
} decc_feat_t;
 
37
 
 
38
/*
 
39
 * Array of DECC$* feature names and their desired values. Note:
 
40
 * DECC$ARGV_PARSE_STYLE is the urgent one.
 
41
 */
 
42
 
 
43
decc_feat_t decc_feat_array[] = {
 
44
    /* Preserve command-line case with SET PROCESS/PARSE_STYLE=EXTENDED */
 
45
    {"DECC$ARGV_PARSE_STYLE", 1},
 
46
 
 
47
    /* Preserve case for file names on ODS5 disks. */
 
48
    {"DECC$EFS_CASE_PRESERVE", 1},
 
49
 
 
50
    /*
 
51
     * Enable multiple dots (and most characters) in ODS5 file names, while
 
52
     * preserving VMS-ness of ";version".
 
53
     */
 
54
    {"DECC$EFS_CHARSET", 1},
 
55
 
 
56
    /* List terminator. */
 
57
    {(char *)NULL, 0}
 
58
};
 
59
 
 
60
/* LIB$INITIALIZE initialization function. */
 
61
 
 
62
static void decc_init(void)
 
63
{
 
64
    char *openssl_debug_decc_init;
 
65
    int verbose = 0;
 
66
    int feat_index;
 
67
    int feat_value;
 
68
    int feat_value_max;
 
69
    int feat_value_min;
 
70
    int i;
 
71
    int sts;
 
72
 
 
73
    /* Get debug option. */
 
74
    openssl_debug_decc_init = getenv("OPENSSL_DEBUG_DECC_INIT");
 
75
    if (openssl_debug_decc_init != NULL) {
 
76
        verbose = strtol(openssl_debug_decc_init, NULL, 10);
 
77
        if (verbose <= 0) {
 
78
            verbose = 1;
 
79
        }
 
80
    }
 
81
 
 
82
    /* Set the global flag to indicate that LIB$INITIALIZE worked. */
 
83
    decc_init_done = 1;
 
84
 
 
85
    /* Loop through all items in the decc_feat_array[]. */
 
86
 
 
87
    for (i = 0; decc_feat_array[i].name != NULL; i++) {
 
88
        /* Get the feature index. */
 
89
        feat_index = decc$feature_get_index(decc_feat_array[i].name);
 
90
        if (feat_index >= 0) {
 
91
            /* Valid item.  Collect its properties. */
 
92
            feat_value = decc$feature_get_value(feat_index, 1);
 
93
            feat_value_min = decc$feature_get_value(feat_index, 2);
 
94
            feat_value_max = decc$feature_get_value(feat_index, 3);
 
95
 
 
96
            /* Check the validity of our desired value. */
 
97
            if ((decc_feat_array[i].value >= feat_value_min) &&
 
98
                (decc_feat_array[i].value <= feat_value_max)) {
 
99
                /* Valid value.  Set it if necessary. */
 
100
                if (feat_value != decc_feat_array[i].value) {
 
101
                    sts = decc$feature_set_value(feat_index,
 
102
                                                 1, decc_feat_array[i].value);
 
103
 
 
104
                    if (verbose > 1) {
 
105
                        fprintf(stderr, " %s = %d, sts = %d.\n",
 
106
                                decc_feat_array[i].name,
 
107
                                decc_feat_array[i].value, sts);
 
108
                    }
 
109
                }
 
110
            } else {
 
111
                /* Invalid DECC feature value. */
 
112
                fprintf(stderr,
 
113
                        " INVALID DECC$FEATURE VALUE, %d: %d <= %s <= %d.\n",
 
114
                        feat_value,
 
115
                        feat_value_min, decc_feat_array[i].name,
 
116
                        feat_value_max);
 
117
            }
 
118
        } else {
 
119
            /* Invalid DECC feature name. */
 
120
            fprintf(stderr,
 
121
                    " UNKNOWN DECC$FEATURE: %s.\n", decc_feat_array[i].name);
 
122
        }
 
123
    }
 
124
 
 
125
    if (verbose > 0) {
 
126
        fprintf(stderr, " DECC_INIT complete.\n");
 
127
    }
 
128
}
 
129
 
 
130
/* Get "decc_init()" into a valid, loaded LIB$INITIALIZE PSECT. */
 
131
 
 
132
# pragma nostandard
 
133
 
 
134
/*
 
135
 * Establish the LIB$INITIALIZE PSECTs, with proper alignment and other
 
136
 * attributes.  Note that "nopic" is significant only on VAX.
 
137
 */
 
138
# pragma extern_model save
 
139
 
 
140
# if __INITIAL_POINTER_SIZE == 64
 
141
#  define PSECT_ALIGN 3
 
142
# else
 
143
#  define PSECT_ALIGN 2
 
144
# endif
 
145
 
 
146
# pragma extern_model strict_refdef "LIB$INITIALIZ" PSECT_ALIGN, nopic, nowrt
 
147
const int spare[8] = { 0 };
 
148
 
 
149
# pragma extern_model strict_refdef "LIB$INITIALIZE" PSECT_ALIGN, nopic, nowrt
 
150
void (*const x_decc_init) () = decc_init;
 
151
 
 
152
# pragma extern_model restore
 
153
 
 
154
/* Fake reference to ensure loading the LIB$INITIALIZE PSECT. */
 
155
 
 
156
# pragma extern_model save
 
157
 
 
158
int LIB$INITIALIZE(void);
 
159
 
 
160
# pragma extern_model strict_refdef
 
161
int dmy_lib$initialize = (int)LIB$INITIALIZE;
 
162
 
 
163
# pragma extern_model restore
 
164
 
 
165
# pragma standard
 
166
 
 
167
#else                           /* def USE_DECC_INIT */
 
168
 
 
169
/* Dummy code to avoid a %CC-W-EMPTYFILE complaint. */
 
170
int decc_init_dummy(void);
 
171
 
 
172
#endif                          /* def USE_DECC_INIT */