« back to all changes in this revision
Viewing changes to packages/vms/config_h.com
- browse files at revision 69
- compare with another revision
- download diff
- download tarball
- view history from revision 69
- Committer: Package Import Robot
- Author(s): Sebastien Bacher
- Date: 2013-05-07 12:16:37 UTC
- mfrom: (3.4.37 sid)
- Revision ID: package-import@ubuntu.com-20130507121637-9t3i98qgsyr9dw5d
Tags: 7.30.0-1ubuntu1
* Resynchronize on Debian. Remaining changes:
- Drop dependencies not in main:
+ Build-Depends: Drop stunnel4 and libssh2-1-dev.
+ Drop libssh2-1-dev from binary package Depends.
- Add new libcurl3-udeb package.
- Add new curl-udeb package.
* Add warning to debian/patches/series.
- Drop dependencies not in main:
+ Build-Depends: Drop stunnel4 and libssh2-1-dev.
+ Drop libssh2-1-dev from binary package Depends.
- Add new libcurl3-udeb package.
- Add new curl-udeb package.
* Add warning to debian/patches/series.
- files added:
- debian/libcurl4-doc.doc-base
- packages/Android
- vs
- vs/t
- vs/t/lib
- vs/vc6
- vs/vc6/lib
- vs/vc6/src
- vs/vc8
- vs/vc8/lib
- files removed:
- .pc/08_lp1124508.patch
- .pc/08_lp1124508.patch/lib
- .pc/09_curl-tailmatch.patch
- .pc/09_curl-tailmatch.patch/lib
- debian/libcurl3-udeb.links
- files modified:
- .pc/01_runtests_gdb.patch/tests/runtests.pl
added
removed
packages/vms/config_h.com
1
$! File: config_h.com
2
$!
3
$! $Id: config_h.com,v 1.1.1.1 2012/12/02 19:25:21 wb8tyw Exp $
4
$!
5
$! This procedure attempts to figure out how to build a config.h file
6
$! for the current project.
7
$!
8
$! P1 specifies the config.h.in file or equivalent. If it is not specified
9
$! then this procedure will search for several common names of the file.
10
$!
11
$! The CONFIGURE shell script will be examined for hints and a few symbols
12
$! but most of the tests will not produce valid results on OpenVMS. Some
13
$! will produce false positives and some will produce false negatives.
14
$!
15
$! It is easier to just read the config.h_in file and make up tests based
16
$! on what is in it!
17
$!
18
$! This file will create an empty config_vms.h file if one does not exist.
19
$! The config_vms.h is intended for manual edits to handle things that
20
$! this procedure can not.
21
$!
22
$! The config_vms.h will be invoked by the resulting config.h file.
23
$!
24
$! This procedure knows about the DEC C RTL on the system it is on.
25
$! Future versions may be handle the GNV, the OpenVMS porting library,
26
$! and others.
27
$!
28
$! This procedure may not guess the options correctly for all architectures,
29
$! and is a work in progress.
30
$!
31
$! Copyright 2011, John Malmberg
32
$!
33
$! Permission to use, copy, modify, and/or distribute this software for any
34
$! purpose with or without fee is hereby granted, provided that the above
35
$! copyright notice and this permission notice appear in all copies.
36
$!
37
$! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
38
$! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
39
$! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
40
$! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
41
$! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
42
$! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
43
$! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
44
$!
45
$! 15-Jan-2001 J. Malmberg Original
46
$! 29-Apr-2001 J. Malmberg Also look for config.*in* in a [.include]
47
$! subdirectory
48
$! 30-Apr-2001 J. Malmberg Update for SAMBA checks
49
$! 09-Apr-2005 J. Malmberg Update for RSYNC and large file.
50
$! 29-Sep-2011 J. Malmberg Update for Bash 4.2
51
$! 01-Mar-2012 J. Malmberg Warn about getcwd(0,0)
52
$! 21-Dec-2012 J. Malmberg Update for gawk
53
$! 29-Dec-2012 J. Malmberg Update for curl
54
$!============================================================================
55
$!
56
$ss_normal = 1
57
$ss_abort = 44
58
$ss_control_y = 1556
59
$status = ss_normal
60
$on control_y then goto control_y
61
$on warning then goto general_error
62
$!on warning then set ver
63
$!
64
$! Some information for writing timestamps to created files
65
$!----------------------------------------------------------
66
$my_proc = f$environment("PROCEDURE")
67
$my_proc_file = f$parse(my_proc,,,"NAME") + f$parse(my_proc,,,"TYPE")
68
$tab[0,8] = 9
69
$datetime = f$element(0,".",f$cvtime(,"ABSOLUTE","DATETIME"))
70
$username = f$edit(f$getjpi("","USERNAME"),"TRIM")
71
$!
72
$pid = f$getjpi("","PID")
73
$tfile1 = "SYS$SCRATCH:config_h_temp1_''pid'.TEMP"
74
$dchfile = "SYS$SCRATCH:config_h_decc_''pid'.TEMP"
75
$starhfile = "SYS$SCRATCH:config_h_starlet_''pid'.TEMP"
76
$configure_script = "SYS$SCRATCH:configure_script_''pid'.TEMP"
77
$!
78
$! Get the system type
79
$!----------------------
80
$arch_type = f$getsyi("arch_type")
81
$!
82
$! Does config_vms.h exist?
83
$!-------------------------
84
$update_config_vms = 0
85
$file = f$search("sys$disk:[]config_vms.h")
86
$if file .nes. ""
87
$then
88
$ write sys$output "Found existing custom file ''file'."
89
$else
90
$ update_config_vms = 1
91
$ write sys$output "Creating new sys$disk:[]config_vms.h for you."
92
$ gosub write_config_vms
93
$endif
94
$!
95
$!
96
$! On some platforms, DCL search has problems with searching a file
97
$! on a NFS mounted volume. So copy it to sys$scratch:
98
$!
99
$if f$search(configure_script) .nes. "" then delete 'configure_script';*
100
$copy sys$disk:[]configure 'configure_script'
101
$!
102
$ssl_header_dir = "OPENSSL:"
103
$if f$trnlnm("OPENSSL") .eqs. ""
104
$then
105
$ ssl_header_dir = "SSL$INCLUDE:"
106
$endif
107
$!
108
$!
109
$! Write out the header
110
$!----------------------
111
$gosub write_config_h_header
112
$!
113
$!
114
$!
115
$! config.h.in could have at least five different names depending
116
$! on how it was transferred to OpenVMS
117
$!------------------------------------------------------------------
118
$if p1 .nes. ""
119
$then
120
$ cfile = p1
121
$else
122
$ cfile = f$search("sys$disk:[]config.h.in")
123
$ if cfile .eqs. ""
124
$ then
125
$ cfile = f$search("sys$disk:[]config.h_in")
126
$ if cfile .eqs. ""
127
$ then
128
$ cfile = f$search("sys$disk:[]configh.in")
129
$ if cfile .eqs. ""
130
$ then
131
$ cfile = f$search("sys$disk:[]config__2eh.in")
132
$ if cfile .eqs. ""
133
$ then
134
$ cfile = f$search("sys$disk:[]config.h__2ein")
135
$ endif
136
$ endif
137
$ endif
138
$ endif
139
$endif
140
$if f$trnlnm("PRJ_INCLUDE") .nes. ""
141
$then
142
$ cfile = f$search("PRJ_INCLUDE:config.h.in")
143
$ if cfile .eqs. ""
144
$ then
145
$ cfile = f$search("PRJ_INCLUDE:config.h_in")
146
$ if cfile .eqs. ""
147
$ then
148
$ cfile = f$search("PRJ_INCLUDE:config__2eh.in")
149
$ if cfile .eqs. ""
150
$ then
151
$ cfile = f$search("PRJ_INCLUDE:config__2eh.in")
152
$ if cfile .eqs. ""
153
$ then
154
$ cfile = f$search("PRJ_INCLUDE:config.h__2ein")
155
$ endif
156
$ endif
157
$ endif
158
$ endif
159
$endif
160
$if cfile .eqs. ""
161
$then
162
$ write sys$output "Can not find sys$disk:config.h.in"
163
$ line_out = "Looked for config.h.in, config.h_in, configh.in, "
164
$ line_out = line_out + "config__2eh.in, config.h__2ein"
165
$ write/symbol sys$output line_out
166
$ if f$trnlnm("PRJ_INCLUDE") .nes. ""
167
$ then
168
$ write sys$output "Also looked in PRJ_INCLUDE: for these files."
169
$ endif
170
$!
171
$ write tf ""
172
$ write tf -
173
" /* Could not find sys$disk:config.h.in */"
174
$ write tf -
175
" /* Looked also for config.h_in, configh.in, config__2eh.in, */"
176
$ write tf -
177
" /* config.h__2ein */"
178
$ if f$trnlnm("PRJ_INCLUDE") .nes. ""
179
$ then
180
$ write tf -
181
" /* Also looked in PRJ_INCLUDE: for these files. */"
182
$ endif
183
$ write tf -
184
"/*--------------------------------------------------------------*/
185
$ write tf ""
186
$ goto write_tail
187
$endif
188
$!
189
$!
190
$! Locate the DECC libraries in use
191
$!-----------------------------------
192
$decc_rtldef = f$parse("decc$rtldef","sys$library:.tlb;0")
193
$decc_starletdef = f$parse("sys$starlet_c","sys$library:.tlb;0")
194
$decc_shr = f$parse("decc$shr","sys$share:.exe;0")
195
$!
196
$! Dump the DECC header names into a file
197
$!----------------------------------------
198
$if f$search(dchfile) .nes. "" then delete 'dchfile';*
199
$if f$search(tfile1) .nes. "" then delete 'tfile1';*
200
$define/user sys$output 'tfile1'
201
$library/list 'decc_rtldef'
202
$open/read/error=rtldef_loop1_end tf1 'tfile1'
203
$open/write/error=rtldef_loop1_end tf2 'dchfile'
204
$rtldef_loop1:
205
$ read/end=rtldef_loop1_end tf1 line_in
206
$ line_in = f$edit(line_in,"TRIM,COMPRESS")
207
$ key1 = f$element(0," ",line_in)
208
$ key2 = f$element(1," ",line_in)
209
$ if key1 .eqs. " " .or. key1 .eqs. "" then goto rtldef_loop1
210
$ if key2 .nes. " " .and. key2 .nes. "" then goto rtldef_loop1
211
$ write tf2 "|",key1,"|"
212
$ goto rtldef_loop1
213
$rtldef_loop1_end:
214
$if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1
215
$if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2
216
$if f$search(tfile1) .nes. "" then delete 'tfile1';*
217
$!
218
$! Dump the STARLET header names into a file
219
$!----------------------------------------
220
$if f$search(starhfile) .nes. "" then delete 'starhfile';*
221
$if f$search(tfile1) .nes. "" then delete 'tfile1';*
222
$define/user sys$output 'tfile1'
223
$library/list 'decc_starletdef'
224
$open/read/error=stardef_loop1_end tf1 'tfile1'
225
$open/write/error=stardef_loop1_end tf2 'starhfile'
226
$stardef_loop1:
227
$ read/end=stardef_loop1_end tf1 line_in
228
$ line_in = f$edit(line_in,"TRIM,COMPRESS")
229
$ key1 = f$element(0," ",line_in)
230
$ key2 = f$element(1," ",line_in)
231
$ if key1 .eqs. " " .or. key1 .eqs. "" then goto stardef_loop1
232
$ if key2 .nes. " " .and. key2 .nes. "" then goto stardef_loop1
233
$ write tf2 "|",key1,"|"
234
$ goto stardef_loop1
235
$stardef_loop1_end:
236
$if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1
237
$if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2
238
$if f$search(tfile1) .nes. "" then delete 'tfile1';*
239
$!
240
$!
241
$! Now calculate what should be in the file from reading
242
$! config.h.in and CONFIGURE.
243
$!---------------------------------------------------------------
244
$open/read inf 'cfile'
245
$do_comment = 0
246
$if_block = 0
247
$cfgh_in_loop1:
248
$!set nover
249
$ read/end=cfgh_in_loop1_end inf line_in
250
$ xline = f$edit(line_in,"TRIM,COMPRESS")
251
$!
252
$! Blank line handling
253
$!---------------------
254
$ if xline .eqs. ""
255
$ then
256
$ write tf ""
257
$ goto cfgh_in_loop1
258
$ endif
259
$ xlen = f$length(xline)
260
$ key = f$extract(0,2,xline)
261
$!
262
$! deal with comments by copying exactly
263
$!-----------------------------------------
264
$ if (do_comment .eq. 1) .or. (key .eqs. "/*")
265
$ then
266
$ do_comment = 1
267
$ write tf line_in
268
$ key = f$extract(xlen - 2, 2, xline)
269
$ if key .eqs. "*/" then do_comment = 0
270
$ goto cfgh_in_loop1
271
$ endif
272
$!
273
$! Some quick parsing
274
$!----------------------
275
$ keyif = f$extract(0,3,xline)
276
$ key1 = f$element(0," ",xline)
277
$ key2 = f$element(1," ",xline)
278
$ key2a = f$element(0,"_",key2)
279
$ key2b = f$element(1,"_",key2)
280
$ key2_len = f$length(key2)
281
$ key2_h = f$extract(key2_len - 2, 2, key2)
282
$ key2_t = f$extract(key2_len - 5, 5, key2)
283
$ if key2_t .eqs. "_TYPE" then key2_h = "_T"
284
$ key64 = 0
285
$ if f$locate("64", xline) .lt. xlen then key64 = 1
286
$!
287
$!write sys$output "xline = ''xline'"
288
$!
289
$! Comment out this section of the ifblock
290
$!-----------------------------------------
291
$ if if_block .ge. 3
292
$ then
293
$ write tf "/* ", xline, " */"
294
$ if keyif .eqs. "#en" then if_block = 0
295
$ goto cfgh_in_loop1
296
$ endif
297
$!
298
$! Handle the end of an ifblock
299
$!-------------------------------
300
$ if keyif .eqs. "#en"
301
$ then
302
$ write tf xline
303
$ if_block = 0
304
$ goto cfgh_in_loop1
305
$ endif
306
$!
307
$ if key1 .eqs. "#ifndef"
308
$ then
309
$! Manual check for _ALL_SOURCE on AIX error
310
$!-----------------------------------------------
311
$ if key2 .eqs. "_ALL_SOURCE"
312
$ then
313
$ write tf "/* ", xline, " */"
314
$!
315
$! Ignore the rest of the block
316
$!--------------------------------------
317
$ if_block = 3
318
$ goto cfgh_in_loop1
319
$ endif
320
$ endif
321
$!
322
$!
323
$! Default action for an #if/#else/#endif
324
$!------------------------------------------
325
$ if keyif .eqs. "#if" .or. keyif .eqs. "#el"
326
$ then
327
$ if_block = 1
328
$ write tf xline
329
$ goto cfgh_in_loop1
330
$ endif
331
$!
332
$!
333
$! Process "normal?" stuff
334
$!---------------------------
335
$ if key1 .eqs. "#undef"
336
$ then
337
$ key2c = f$element(2, "_", key2)
338
$ if (key2c .eqs. "_") .or. (key2c .eqs. "H") then key2c = ""
339
$ key2d = f$element(3, "_", key2)
340
$ if (key2d .eqs. "_") .or. (key2d .eqs. "H") then key2d = ""
341
$ key2e = f$element(4, "_", key2)
342
$ if (key2e .eqs. "_") .or. (key2e .eqs. "H") then key2e = ""
343
$ if key2d .eqs. "T"
344
$ then
345
$ if key2e .eqs. "TYPE"
346
$ then
347
$ key2_h = "_T"
348
$ key2d = ""
349
$ endif
350
$ endif
351
$!
352
$ double_under = 0
353
$!
354
$! Process FCNTL directives
355
$!-------------------------------------
356
$ if (key2b .eqs. "FCNTL") .and. (key2c .eqs. "O") .and. -
357
(key2d .eqs. "NONBLOCK")
358
$ then
359
$ write tf "#ifndef ''key2'"
360
$ write tf "#define ''key2' 1"
361
$ write tf "#endif"
362
$ goto cfgh_in_loop1
363
$ endif
364
$!
365
$! Process GETADDRINFO directives
366
$!-------------------------------------
367
$ if key2 .eqs. "GETADDRINFO_THREADSAFE"
368
$ then
369
$ write tf "#ifndef ''key2'"
370
$ write tf "#define ''key2' 1"
371
$ write tf "#endif"
372
$ goto cfgh_in_loop1
373
$ endif
374
$!
375
$! Process IOCTL directives
376
$!-------------------------------------
377
$ if (key2b .eqs. "IOCTL") .and. (key2c .nes. "")
378
$ then
379
$ if (key2c .eqs. "FIONBIO") .or. (key2c .eqs. "SIOCGIFADDR")
380
$ then
381
$ write tf "#ifndef ''key2'"
382
$ write tf "#define ''key2' 1"
383
$ write tf "#endif"
384
$ goto cfgh_in_loop1
385
$ endif
386
$ endif
387
$!
388
$!
389
$! Manual check for LL on
390
$!-----------------------------------------------
391
$ if key2 .eqs. "LL"
392
$ then
393
$ write tf "#ifndef __VAX
394
$ write tf "#define HAVE_''key2' 1"
395
$ write tf "#endif"
396
$ goto cfgh_in_loop1
397
$ endif
398
$!
399
$ if key2 .eqs. "bool_t"
400
$ then
401
$ write tf "#ifndef ''key2'"
402
$ write tf "#define ''key2' short"
403
$ write tf "#endif"
404
$ goto cfgh_in_loop1
405
$ endif
406
$!
407
$ if key2 .eqs. "bits16_t"
408
$ then
409
$ write tf "#ifndef ''key2'"
410
$ write tf "#define ''key2' short"
411
$ write tf "#endif"
412
$ goto cfgh_in_loop1
413
$ endif
414
$!
415
$ if key2 .eqs. "u_bits16_t"
416
$ then
417
$ write tf "#ifndef ''key2'"
418
$ write tf "#define ''key2' unsigned short"
419
$ write tf "#endif"
420
$ goto cfgh_in_loop1
421
$ endif
422
$!
423
$ if key2 .eqs. "bits32_t"
424
$ then
425
$ write tf "#ifndef ''key2'"
426
$ write tf "#define ''key2' int"
427
$ write tf "#endif"
428
$ goto cfgh_in_loop1
429
$ endif
430
$!
431
$ if key2 .eqs. "u_bits32_t"
432
$ then
433
$ write tf "#ifndef ''key2'"
434
$ write tf "#define ''key2' unsigned int"
435
$ write tf "#endif"
436
$ goto cfgh_in_loop1
437
$ endif
438
$!
439
$ if key2 .eqs. "intmax_t"
440
$ then
441
$ write tf "#ifndef ''key2'"
442
$ write tf "#ifdef __VAX"
443
$ write tf "#define ''key2' long"
444
$ write tf "#else"
445
$ write tf "#define ''key2' long long"
446
$ write tf "#endif"
447
$ write tf "#endif"
448
$ goto cfgh_in_loop1
449
$ endif
450
$!
451
$ if key2 .eqs. "uintmax_t"
452
$ then
453
$ write tf "#ifndef ''key2'"
454
$ write tf "#ifdef __VAX"
455
$ write tf "#define ''key2' unsigned long"
456
$ write tf "#else"
457
$ write tf "#define ''key2' unsigned long long"
458
$ write tf "#endif"
459
$ write tf "#endif"
460
$ goto cfgh_in_loop1
461
$ endif
462
$!
463
$ if key2 .eqs. "socklen_t"
464
$ then
465
$ write tf "#ifndef ''key2'"
466
$ write tf "#define ''key2' int"
467
$ write tf "#endif"
468
$ goto cfgh_in_loop1
469
$ endif
470
$!
471
$ if key2 .eqs. "GETGROUPS_T"
472
$ then
473
$ write tf "#ifndef ''key2'"
474
$ write tf "#define ''key2' gid_t"
475
$ write tf "#endif"
476
$ goto cfgh_in_loop1
477
$ endif
478
$!
479
$ if key2 .eqs. "HAVE_DECL_SYS_SIGLIST"
480
$ then
481
$ write tf "#ifndef ''key2'"
482
$ write tf "#define ''key2' 0"
483
$ write tf "#endif"
484
$ goto cfgh_in_loop1
485
$ endif
486
$!
487
$ if key2 .eqs. "HAVE_SYS_ERRLIST"
488
$ then
489
$ write tf "#ifndef ''key2'"
490
$ write tf "#define ''key2' 1"
491
$ write tf "#endif"
492
$ goto cfgh_in_loop1
493
$ endif
494
$!
495
$ if key2 .eqs. "HAVE_STRUCT_DIRENT_D_INO"
496
$ then
497
$ write tf "#ifndef ''key2'"
498
$ write tf "#define ''key2' 1"
499
$ write tf "#endif"
500
$ goto cfgh_in_loop1
501
$ endif
502
$!
503
$ if key2 .eqs. "HAVE_STRUCT_TIMEVAL"
504
$ then
505
$ write tf "#ifndef ''key2'"
506
$ write tf "#define ''key2' 1"
507
$ write tf "#endif"
508
$ goto cfgh_in_loop1
509
$ endif
510
$!
511
$! ! The header files have this information, however
512
$! ! The ioctl() call only works on sockets.
513
$! if key2 .eqs. "FIONREAD_IN_SYS_IOCTL"
514
$! then
515
$! write tf "#ifndef ''key2'"
516
$! write tf "#define ''key2' 1"
517
$! write tf "#endif"
518
$! goto cfgh_in_loop1
519
$! endif
520
$!
521
$! ! The header files have this information, however
522
$! ! The ioctl() call only works on sockets.
523
$! if key2 .eqs. "GWINSZ_IN_SYS_IOCTL"
524
$! then
525
$! write tf "#ifndef ''key2'"
526
$! write tf "#define ''key2' 1"
527
$! write tf "#endif"
528
$! goto cfgh_in_loop1
529
$! endif
530
$!
531
$! ! The header files have this information, however
532
$! ! The ioctl() call only works on sockets.
533
$! if key2 .eqs. "STRUCT_WINSIZE_IN_SYS_IOCTL"
534
$! then
535
$! write tf "#ifndef ''key2'"
536
$! write tf "#define ''key2' 0"
537
$! write tf "#endif"
538
$! goto cfgh_in_loop1
539
$! endif
540
$!
541
$ if key2 .eqs. "HAVE_STRUCT_TM_TM_ZONE"
542
$ then
543
$ write tf "#ifndef ''key2'"
544
$ write tf "#define ''key2' 1"
545
$ write tf "#endif"
546
$ goto cfgh_in_loop1
547
$ endif
548
$!
549
$ if key2 .eqs. "HAVE_TM_ZONE"
550
$ then
551
$ write tf "#ifndef ''key2'"
552
$ write tf "#define ''key2' 1"
553
$ write tf "#endif"
554
$ goto cfgh_in_loop1
555
$ endif
556
$!
557
$ if key2 .eqs. "HAVE_TIMEVAL"
558
$ then
559
$ write tf "#ifndef ''key2'"
560
$ write tf "#define ''key2' 1"
561
$ write tf "#endif"
562
$ goto cfgh_in_loop1
563
$ endif
564
$!
565
$ if key2 .eqs. "WEXITSTATUS_OFFSET"
566
$ then
567
$ write tf "#ifndef ''key2'"
568
$ write tf "#define ''key2' 2"
569
$ write tf "#endif"
570
$ goto cfgh_in_loop1
571
$ endif
572
$!
573
$ if key2 .eqs. "HAVE_GETPW_DECLS"
574
$ then
575
$ write tf "#ifndef ''key2'"
576
$ write tf "#define ''key2' 1"
577
$ write tf "#endif"
578
$ goto cfgh_in_loop1
579
$ endif
580
$!
581
$ if key2 .eqs. "HAVE_DECL_CONFSTR"
582
$ then
583
$ write tf "#ifndef ''key2'"
584
$ write tf "#define ''key2' 1"
585
$ write tf "#endif"
586
$ goto cfgh_in_loop1
587
$ endif
588
$!
589
$ if key2 .eqs. "HAVE_DECL_PRINTF"
590
$ then
591
$ write tf "#ifndef ''key2'"
592
$ write tf "#define ''key2' 1"
593
$ write tf "#endif"
594
$ goto cfgh_in_loop1
595
$ endif
596
$!
597
$ if key2 .eqs. "HAVE_DECL_SBRK"
598
$ then
599
$ write tf "#ifndef ''key2'"
600
$ write tf "#define ''key2' 1"
601
$ write tf "#endif"
602
$ goto cfgh_in_loop1
603
$ endif
604
$!
605
$ if key2 .eqs. "HAVE_DECL_STRSIGNAL"
606
$ then
607
$ write tf "#ifndef ''key2'"
608
$ write tf "#define ''key2' 0"
609
$ write tf "#endif"
610
$ goto cfgh_in_loop1
611
$ endif
612
$!
613
$ if key2a .eqs. "HAVE_DECL_STRTOLD"
614
$ then
615
$ write tf "#ifndef ''key2'"
616
$ write tf "#define ''key2' 0"
617
$ write tf "#endif"
618
$ goto cfgh_in_loop1
619
$ endif
620
$!
621
$ if key2 .eqs. "HAVE_DECL_STRTOIMAX"
622
$ then
623
$ write tf "#ifndef ''key2'"
624
$ write tf "#define ''key2' 0"
625
$ write tf "#endif"
626
$ goto cfgh_in_loop1
627
$ endif
628
$!
629
$ if key2 .eqs. "HAVE_DECL_STRTOL"
630
$ then
631
$ write tf "#ifndef ''key2'"
632
$ write tf "#define ''key2' 1"
633
$ write tf "#endif"
634
$ goto cfgh_in_loop1
635
$ endif
636
$!
637
$ if key2 .eqs. "HAVE_DECL_STRTOLL"
638
$ then
639
$ write tf "#ifndef ''key2'"
640
$ write tf "#define ''key2' 1"
641
$ write tf "#endif"
642
$ goto cfgh_in_loop1
643
$ endif
644
$!
645
$ if key2 .eqs. "HAVE_DECL_STRTOUL"
646
$ then
647
$ write tf "#ifndef ''key2'"
648
$ write tf "#define ''key2' 1"
649
$ write tf "#endif"
650
$ goto cfgh_in_loop1
651
$ endif
652
$!
653
$ if key2 .eqs. "HAVE_DECL_STRTOULL"
654
$ then
655
$ write tf "#ifndef ''key2'"
656
$ write tf "#define ''key2' 1"
657
$ write tf "#endif"
658
$ goto cfgh_in_loop1
659
$ endif
660
$!
661
$ if key2 .eqs. "HAVE_DECL_STRTOUMAX"
662
$ then
663
$ write tf "#ifndef ''key2'"
664
$ write tf "#define ''key2' 0"
665
$ write tf "#endif"
666
$ goto cfgh_in_loop1
667
$ endif
668
$!
669
$ if key2 .eqs. "GETPGRP_VOID"
670
$ then
671
$ write tf "#ifndef ''key2'"
672
$ write tf "#define ''key2' 1"
673
$ write tf "#endif"
674
$ goto cfgh_in_loop1
675
$ endif
676
$!
677
$ if key2 .eqs. "NAMED_PIPES_MISSING"
678
$ then
679
$ write tf "#ifndef ''key2'"
680
$ write tf "#define ''key2' 1"
681
$ write tf "#endif"
682
$ goto cfgh_in_loop1
683
$ endif
684
$!
685
$ if key2 .eqs. "OPENDIR_NOT_ROBUST"
686
$ then
687
$ write tf "#ifndef ''key2'"
688
$ write tf "#define ''key2' 1"
689
$ write tf "#endif"
690
$ goto cfgh_in_loop1
691
$ endif
692
$!
693
$ if key2 .eqs. "PGRP_PIPE"
694
$ then
695
$ write tf "#ifndef ''key2'"
696
$ write tf "#define ''key2' 1"
697
$ write tf "#endif"
698
$ goto cfgh_in_loop1
699
$ endif
700
$!
701
$ if key2 .eqs. "CAN_REDEFINE_GETENV"
702
$ then
703
$ write tf "#ifndef ''key2'"
704
$ write tf "#define ''key2' 1"
705
$ write tf "#endif"
706
$ goto cfgh_in_loop1
707
$ endif
708
$!
709
$ if key2 .eqs. "HAVE_PRINTF_A_FORMAT"
710
$ then
711
$ write tf "#ifndef ''key2'"
712
$ write tf "#define ''key2' 1"
713
$ write tf "#endif"
714
$ goto cfgh_in_loop1
715
$ endif
716
$!
717
$ if key2 .eqs. "CTYPE_NON_ASCII"
718
$ then
719
$ write tf "#ifndef ''key2'"
720
$ write tf "#define ''key2' 1"
721
$ write tf "#endif"
722
$ goto cfgh_in_loop1
723
$ endif
724
$!
725
$ if key2 .eqs. "HAVE_LANGINFO_CODESET"
726
$ then
727
$ write tf "#ifndef ''key2'"
728
$ write tf "#define ''key2' 0"
729
$ write tf "#endif"
730
$ goto cfgh_in_loop1
731
$ endif
732
$!
733
$! This wants execve() to do this automagically to pass.
734
$! if key2 .eqs. "HAVE_HASH_BANG_EXEC"
735
$! then
736
$! write tf "#ifndef ''key2'"
737
$! write tf "#define ''key2' 1"
738
$! write tf "#endif"
739
$! goto cfgh_in_loop1
740
$! endif
741
$!
742
$ if key2 .eqs. "ICONV_CONST"
743
$ then
744
$ write tf "#ifndef ''key2'"
745
$ write tf "#define ''key2'"
746
$ write tf "#endif"
747
$ goto cfgh_in_loop1
748
$ endif
749
$!
750
$ if key2 .eqs. "VOID_SIGHANDLER"
751
$ then
752
$ write tf "#ifndef ''key2'"
753
$ write tf "#define ''key2' 1"
754
$ write tf "#endif"
755
$ goto cfgh_in_loop1
756
$ endif
757
$!
758
$ if key2 .eqs. "HAVE_POSIX_SIGNALS"
759
$ then
760
$ write tf "#ifndef ''key2'"
761
$ write tf "#define ''key2' 1"
762
$ write tf "#endif"
763
$ goto cfgh_in_loop1
764
$ endif
765
$!
766
$ if key2 .eqs. "UNUSABLE_RT_SIGNALS"
767
$ then
768
$ write tf "#ifndef ''key2'"
769
$ write tf "#define ''key2' 1"
770
$ write tf "#endif"
771
$ goto cfgh_in_loop1
772
$ endif
773
$!
774
$ if key2a .eqs. "HAVE_DECL_FPURGE"
775
$ then
776
$ write tf "#ifndef ''key2a'"
777
$ write tf "#define ''key2a' 1"
778
$ write tf "#endif"
779
$ goto cfgh_in_loop1
780
$ endif
781
$!
782
$ if key2 .eqs. "HAVE_DECL_SETREGID"
783
$ then
784
$ write tf "#ifndef ''key2'"
785
$ write tf "#define ''key2' 1"
786
$ write tf "#endif"
787
$ goto cfgh_in_loop1
788
$ endif
789
$!
790
$ if key2 .eqs. "HAVE_POSIX_SIGSETJMP"
791
$ then
792
$ write tf "#ifndef ''key2'"
793
$ write tf "#define ''key2' 1"
794
$ write tf "#endif"
795
$ goto cfgh_in_loop1
796
$ endif
797
$!
798
$ if key2 .eqs. "HAVE_LIBDL"
799
$ then
800
$ write tf "#ifndef ''key2'"
801
$ write tf "#define ''key2' 1"
802
$ write tf "#endif"
803
$ goto cfgh_in_loop1
804
$ endif
805
$!
806
$ if key2 .eqs. "HAVE_ENGINE_LOAD_BUILTIN_ENGINES"
807
$ then
808
$ if f$search("''ssl_header_dir'engine.h") .nes. ""
809
$ then
810
$ search_key = key2 - "HAVE_"
811
$ define/user sys$output nl:
812
$ define/user sys$error nl:
813
$ search/output=nl: 'ssl_header_dir'engine.h 'search_key'
814
$ if '$severity' .eq. 1
815
$ then
816
$ write tf "#ifndef ''key2'"
817
$ write tf "#define ''key2' 1"
818
$ write tf "#endif"
819
$ else
820
$ write tf "/* #undef ''key2' */"
821
$ endif
822
$ else
823
$ write tf "/* #undef ''key2' */"
824
$ endif
825
$ goto cfgh_in_loop1
826
$ endif
827
$!
828
$ if key2 .eqs. "HAVE_SSL_GET_SHUTDOWN"
829
$ then
830
$ if f$search("''ssl_header_dir'ssl.h") .nes. ""
831
$ then
832
$ write tf "#ifndef ''key2'"
833
$ write tf "#define ''key2' 1"
834
$ write tf "#endif"
835
$ else
836
$ write tf "/* #undef ''key2' */"
837
$ endif
838
$ goto cfgh_in_loop1
839
$ endif
840
$!
841
$ if key2b .eqs. "RAND" .and. key2c .nes. "" .and. key2d .eqs. ""
842
$ then
843
$ if (key2c .eqs. "EGD") .or. -
844
(key2c .eqs. "STATUS") .or. -
845
(key2c .eqs. "SCREEN")
846
$ then
847
$ if f$search("''ssl_header_dir'rand.h") .nes. ""
848
$ then
849
$ write tf "#ifndef ''key2'"
850
$ write tf "#define ''key2' 1"
851
$ write tf "#endif"
852
$ else
853
$ write tf "/* #undef ''key2' */"
854
$ endif
855
$ endif
856
$ endif
857
$!
858
$ if key2 .eqs. "STRCOLL_BROKEN"
859
$ then
860
$ write tf "#ifndef ''key2'"
861
$ write tf "#define ''key2' 1"
862
$ write tf "#endif"
863
$ goto cfgh_in_loop1
864
$ endif
865
$!
866
$ if key2 .eqs. "DUP_BROKEN"
867
$ then
868
$ write tf "#ifndef ''key2'"
869
$ write tf "#define ''key2' 1"
870
$ write tf "#endif"
871
$ goto cfgh_in_loop1
872
$ endif
873
$!
874
$! This is for a test that getcwd(0,0) works.
875
$! It does not on VMS.
876
$!--------------------------
877
$ if key2 .eqs. "GETCWD_BROKEN"
878
$ then
879
$ write sys$output ""
880
$ write sys$output -
881
"%CONFIG_H-I-NONPORT, ''key2' being tested for!"
882
$ write sys$output -
883
"-CONFIG_H-I-GETCWD, GETCWD(0,0) does not work on VMS."
884
$ write sys$output -
885
"-CONFIG_H-I-GETCWD2, Work around hack probably required."
886
$ write sys$output -
887
"-CONFIG_H-I-REVIEW, Manual Code review required!"
888
$ if update_config_vms
889
$ then
890
$ open/append tfcv sys$disk:[]config_vms.h
891
$ write tfcv ""
892
$ write tfcv -
893
"/* Check config.h for use of ''key2' settings */"
894
$ write tfcv ""
895
$ close tfcv
896
$ endif
897
$
898
$ goto cfgh_in_loop1
899
$ endif
900
$!
901
$ if (key2a .eqs. "HAVE") .or. (key2a .eqs. "STAT") .or. -
902
(key2 .eqs. "ENABLE_IPV6") .or. (key2b .eqs. "LDAP")
903
$ then
904
$!
905
$! Process extra underscores
906
$!------------------------------------
907
$ if f$locate("HAVE___", key2) .lt. key2_len
908
$ then
909
$ key2b = "__" + key2d
910
$ key2d = ""
911
$ double_under = 1
912
$ else
913
$ if f$locate("HAVE__", key2) .lt. key2_len
914
$ then
915
$ key2b = "_" + key2c
916
$ key2c = ""
917
$ double_under = 1
918
$ endif
919
$ endif
920
$!
921
$ if (key2_h .eqs. "_H") .or. (key2 .eqs. "ENABLE_IPV6") .or. -
922
(key2b .eqs. "LDAP")
923
$ then
924
$!
925
$! Looking for a header file
926
$!---------------------------------------
927
$ headf = key2b
928
$ if key2c .nes. "" then headf = headf + "_" + key2c
929
$ if key2d .nes. "" then headf = headf + "_" + key2d
930
$!
931
$! (key2b .eqs. "READLINE")
932
$!
933
$! Some special parsing
934
$!------------------------------------------
935
$ if (key2b .eqs. "SYS") .or. (key2b .eqs. "ARPA") .or. -
936
(key2b .eqs. "NET") .or. (key2b .eqs. "NETINET")
937
$ then
938
$ if key2c .nes. ""
939
$ then
940
$ headf = key2c
941
$ if key2d .nes. "" then headf = key2c + "_" + key2d
942
$ endif
943
$ endif
944
$!
945
$! And of course what's life with out some special cases
946
$!--------------------------------------------------------------------
947
$ if key2 .eqs. "ENABLE_IPV6"
948
$ then
949
$ headf = "in6"
950
$ endif
951
$!
952
$ if key2b .eqs. "LDAP"
953
$ then
954
$ if (key2 .eqs. "HAVE_LDAP_SSL") .or. -
955
(key2 .eqs. "HAVE_LDAP_URL_PARSE")
956
$ then
957
$ headf = "ldap"
958
$ endif
959
$ endif
960
$!
961
$!
962
$ if key2b .eqs. "FILE"
963
$ then
964
$ write sys$output ""
965
$ write sys$output -
966
"%CONFIG_H-I-NONPORT, ''key2' being asked for!"
967
$ write sys$output -
968
"-CONFIG_H-I-FILE_OLD, file.h will not be configured as is obsolete!"
969
$ write sys$output -
970
"-CONFIG_H_I-FCNTL_NEW, "Expecting fcntl.h to be configured instead!"
971
$ write sys$output -
972
"-CONFIG_H_I-FCNTL_CHK, "Unable to verify at this time!"
973
$ write sys$output -
974
"-CONFIG_H-I-REVIEW, Manual Code review required!"
975
$!
976
$ if update_config_vms
977
$ then
978
$ open/append tfcv sys$disk:[]config_vms.h
979
$ write tfcv ""
980
$ write tfcv -
981
"/* Check config.h for use of fcntl.h instead of file.h */"
982
$ write tfcv ""
983
$ close tfcv
984
$ endif
985
$ endif
986
$!
987
$! Now look it up in the DEC C RTL
988
$!---------------------------------------------
989
$ define/user sys$output nl:
990
$ define/user sys$error nl:
991
$ search/output=nl: 'dchfile' |'headf'|/exact
992
$ if '$severity' .eq. 1
993
$ then
994
$ if key64 then write tf "#ifndef __VAX"
995
$ write tf "#ifndef ''key2'"
996
$ write tf "#define ''key2' 1"
997
$if p2 .nes. "" then write sys$output "''dchfile' - #define ''key2' 1"
998
$ write tf "#endif"
999
$ if key64 then write tf "#endif"
1000
$set nover
1001
$ goto cfgh_in_loop1
1002
$ endif
1003
$!
1004
$!
1005
$! Now look it up in the DEC C STARLET_C
1006
$!---------------------------------------------
1007
$ define/user sys$output nl:
1008
$ define/user sys$error nl:
1009
$ search/output=nl: 'starhfile' |'headf'|/exact
1010
$ if '$severity' .eq. 1
1011
$ then
1012
$ if key64 then write tf "#ifndef __VAX"
1013
$ write tf "#ifndef ''key2'"
1014
$ write tf "#define ''key2' 1"
1015
$if p2 .nes. "" then write sys$output "''starfile' - #define ''key2' 1"
1016
$ write tf "#endif"
1017
$ if key64 then write tf "#endif"
1018
$set nover
1019
$ goto cfgh_in_loop1
1020
$ endif
1021
$!
1022
$! Now look for OPENSSL headers
1023
$!---------------------------------------------------------
1024
$ if key2b .eqs. "OPENSSL"
1025
$ then
1026
$ headf = headf - "OPENSSL_"
1027
$ header = f$search("''ssl_header_dir'''headf'.h")
1028
$ if header .nes. ""
1029
$ then
1030
$ write tf "#ifndef ''key2'"
1031
$ write tf "#define ''key2' 1"
1032
$ write tf "#endif"
1033
$set nover
1034
$ goto cfgh_in_loop1
1035
$ endif
1036
$ endif
1037
$!
1038
$! Now look for Kerberos
1039
$!------------------------------------------------------------
1040
$ if key2b .eqs. "GSSAPI"
1041
$ then
1042
$ header_dir = "sys$sysroot:[kerberos.include]"
1043
$ headf = headf - "GSSAPI_"
1044
$ header = f$search("''header_dir'''headf'.h")
1045
$ if header .nes. ""
1046
$ then
1047
$ write tf "#ifndef ''key2'"
1048
$ write tf "#define ''key2' 1"
1049
$ write tf "#endif"
1050
$set nover
1051
$ goto cfgh_in_loop1
1052
$ endif
1053
$ endif
1054
$!
1055
$set nover
1056
$ else
1057
$!
1058
$! Looking for a routine or a symbol
1059
$!------------------------------------------------
1060
$ if key2c .eqs. "MACRO"
1061
$ then
1062
$ if (key2b .eqs. "FILE") .or. (key2b .eqs. "DATE") -
1063
.or. (key2b .eqs. "LINE") .or. (key2b .eqs. "TIME")
1064
$ then
1065
$ write tf "#ifndef HAVE_''key2b'"
1066
$ write tf "#define HAVE_''key2b' 1"
1067
$ write tf "#endif"
1068
$ endif
1069
$ goto cfgh_in_loop1
1070
$ endif
1071
$!
1072
$! Special false tests
1073
$!-------------------------------------
1074
$ if double_under
1075
$ then
1076
$ if key2b .eqs. "_FCNTL" .or. key2b .eqs. "__FCNTL"
1077
$ then
1078
$ write tf "/* #undef HAVE_''key2b' */"
1079
$ goto cfgh_in_loop1
1080
$ endif
1081
$!
1082
$ if key2b .eqs. "_STAT" .or. key2b .eqs. "__STAT"
1083
$ then
1084
$ write tf "/* #undef HAVE_''key2b' */"
1085
$ goto cfgh_in_loop1
1086
$ endif
1087
$!
1088
$ if key2b .eqs. "_READ" .or. key2b .eqs. "__READ"
1089
$ then
1090
$ write tf "/* #undef HAVE_''key2b' */"
1091
$ goto cfgh_in_loop1
1092
$ endif
1093
$ endif
1094
$!
1095
$ keysym = key2b
1096
$ if key2c .nes. "" then keysym = keysym + "_" + key2c
1097
$ if key2d .nes. "" then keysym = keysym + "_" + key2d
1098
$ if key2e .nes. "" then keysym = keysym + "_" + key2e
1099
$!
1100
$!
1101
$! Stat structure members
1102
$!-------------------------------------
1103
$ if key2b .eqs. "STRUCT"
1104
$ then
1105
$ if key2c .eqs. "STAT" .and (key2d .nes. "")
1106
$ then
1107
$ key2b = key2b + "_" + key2c + "_" + key2d
1108
$ key2c = key2e
1109
$ key2d = ""
1110
$ key2e = ""
1111
$ endif
1112
$ endif
1113
$ if (key2b .eqs. "ST") .or. (key2b .eqs. "STRUCT_STAT_ST")
1114
$ then
1115
$ keysym = "ST" + "_" + key2c
1116
$ keysym = f$edit(keysym,"LOWERCASE")
1117
$ endif
1118
$ if key2a .eqs. "STAT"
1119
$ then
1120
$ if (f$locate("STATVFS", key2b) .eq. 0) .and. key2c .eqs. ""
1121
$ then
1122
$ keysym = f$edit(key2b, "LOWERCASE")
1123
$ endif
1124
$!$ if (key2b .eqs. "STATVFS" .or. key2b .eqs. "STATFS2" -
1125
$! .or. key2b .eqs. "STATFS3") .and. key2c .nes. ""
1126
$!
1127
$ if (key2b .eqs. "STATVFS") .and. key2c .nes. ""
1128
$ then
1129
$! Should really verify that the structure
1130
$! named by key2b actually exists first.
1131
$!------------------------------------------------------------
1132
$!
1133
$! Statvfs structure members
1134
$!-------------------------------------------------
1135
$ keysym = "f_" + f$edit(key2c,"LOWERCASE")
1136
$ endif
1137
$ endif
1138
$!
1139
$! UTMPX structure members
1140
$!--------------------------------------
1141
$ if key2b .eqs. "UT" .and. key2c .eqs. "UT"
1142
$ then
1143
$ keysym = "ut_" + f$edit(key2d,"LOWERCASE")
1144
$ endif
1145
$!
1146
$ if f$locate("MMAP",key2) .lt. key2_len
1147
$ then
1148
$ write sys$output ""
1149
$ write sys$output -
1150
"%CONFIG_H-I-NONPORT, ''key2' being asked for!"
1151
$ write sys$output -
1152
"-CONFIG_H-I-MMAP, MMAP operations only work on STREAM and BINARY files!"
1153
$ write sys$output -
1154
"-CONFIG_H-I-REVIEW, Manual Code review required!"
1155
$ if update_config_vms
1156
$ then
1157
$ open/append tfcv sys$disk:[]config_vms.h
1158
$ write tfcv ""
1159
$ write tfcv -
1160
"/* Check config.h for use of ''key2' settings */"
1161
$ write tfcv ""
1162
$ close tfcv
1163
$ endif
1164
$ endif
1165
$!
1166
$!
1167
$ if keysym .eqs. "CRYPT"
1168
$ then
1169
$ write sys$output ""
1170
$ write sys$output -
1171
"%CONFIG_H-I-NONPORT, ''key2' being asked for!"
1172
$ write sys$output -
1173
"-CONFIG_H-I-CRYPT, CRYPT operations on the VMS SYSUAF may not work!"
1174
$ write sys$output -
1175
"-CONFIG_H-I-REVIEW, Manual Code review required!"
1176
$ if update_config_vms
1177
$ then
1178
$ open/append tfcv sys$disk:[]config_vms.h
1179
$ write tfcv ""
1180
$ write tfcv -
1181
"/* Check config.h for use of ''keysym' */"
1182
$ write tfcv ""
1183
$ close tfcv
1184
$ endif
1185
$ endif
1186
$!
1187
$!
1188
$ if keysym .eqs. "EXECL"
1189
$ then
1190
$ write sys$output ""
1191
$ write sys$output -
1192
"%CONFIG_H-I-NONPORT, ''key2' being asked for!"
1193
$ write sys$output -
1194
"-CONFIG_H-I-EXCEL, EXECL configured, Will probably not work."
1195
$ write sys$output -
1196
"-CONFIG_H-I-REVIEW, Manual Code review required!"
1197
$ if update_config_vms
1198
$ then
1199
$ open/append tfcv sys$disk:[]config_vms.h
1200
$ write tfcv ""
1201
$ write tfcv -
1202
"/* Check config.h for use of ''keysym' */"
1203
$ write tfcv ""
1204
$ close tfcv
1205
$ endif
1206
$ endif
1207
$!
1208
$!
1209
$! Process if cpp supports ANSI-C stringizing '#' operator
1210
$!-----------------------------------------------------------------------
1211
$ if keysym .eqs. "STRINGIZE"
1212
$ then
1213
$ write tf "#ifndef HAVE_STRINGIZE"
1214
$ write tf "#define HAVE_STRINGSIZE 1"
1215
$ write tf "#endif"
1216
$ goto cfgh_in_loop1
1217
$ endif
1218
$!
1219
$ if keysym .eqs. "VOLATILE"
1220
$ then
1221
$ write tf "#ifndef HAVE_VOLATILE"
1222
$ write tf "#define HAVE_VOLATILE 1"
1223
$ write tf "#endif"
1224
$ goto cfgh_in_loop1
1225
$ endif
1226
$!
1227
$ if keysym .eqs. "ALLOCA"
1228
$ then
1229
$ write tf "#ifndef HAVE_ALLOCA"
1230
$ write tf "#define HAVE_ALLOCA 1"
1231
$ write tf "#endif"
1232
$ goto cfgh_in_loop1
1233
$ endif
1234
$!
1235
$ if keysym .eqs. "ERRNO_DECL"
1236
$ then
1237
$ write tf "#ifndef HAVE_ERRNO_DECL"
1238
$ write tf "#define HAVE_ERRNO_DECL 1"
1239
$ write tf "#endif"
1240
$ goto cfgh_in_loop1
1241
$ endif
1242
$!
1243
$ if keysym .eqs. "LONGLONG"
1244
$ then
1245
$ write tf "#ifndef __VAX"
1246
$ write tf "#pragma message disable longlongtype"
1247
$ write tf "#ifndef HAVE_LONGLONG"
1248
$ write tf "#define HAVE_LONGLONG 1"
1249
$ write tf "#endif"
1250
$ write tf "#endif"
1251
$ goto cfgh_in_loop1
1252
$ endif
1253
$!
1254
$! May need to test compiler version
1255
$!-----------------------------------------------
1256
$ if keysym .eqs. "LONG_LONG"
1257
$ then
1258
$ write tf "#ifndef __VAX"
1259
$ write tf "#pragma message disable longlongtype"
1260
$ write tf "#ifndef HAVE_LONG_LONG"
1261
$ write tf "#define HAVE_LONG_LONG 1"
1262
$ write tf "#endif"
1263
$ write tf "#endif"
1264
$ goto cfgh_in_loop1
1265
$ endif
1266
$!
1267
$! May need to test compiler version
1268
$!-----------------------------------------------
1269
$ if keysym .eqs. "UNSIGNED_LONG_LONG"
1270
$ then
1271
$ write tf "#ifndef __VAX"
1272
$ write tf "#pragma message disable longlongtype"
1273
$ write tf "#ifndef HAVE_UNSIGNED_LONG_LONG"
1274
$ write tf "#define HAVE_UNSIGNED_LONG_LONG 1"
1275
$ write tf "#endif"
1276
$ write tf "#endif"
1277
$ goto cfgh_in_loop1
1278
$ endif
1279
$!
1280
$! May need to test compiler version
1281
$!-----------------------------------------------
1282
$ if keysym .eqs. "UNSIGNED_LONG_LONG_INT"
1283
$ then
1284
$ write tf "#ifndef __VAX"
1285
$ write tf "#pragma message disable longlongtype"
1286
$ write tf "#ifndef HAVE_UNSIGNED_LONG_LONG_INT"
1287
$ write tf "#define HAVE_UNSIGNED_LONG_LONG_INT 1"
1288
$ write tf "#endif"
1289
$ write tf "#endif"
1290
$ goto cfgh_in_loop1
1291
$ endif
1292
$!
1293
$! May need to test compiler version
1294
$!-----------------------------------------------
1295
$ if keysym .eqs. "LONG_DOUBLE"
1296
$ then
1297
$ write tf "#ifndef __VAX"
1298
$ write tf "#pragma message disable longlongtype"
1299
$ write tf "#ifndef HAVE_LONG_DOUBLE"
1300
$ write tf "#define HAVE_LONG_DOUBLE 1"
1301
$ write tf "#endif"
1302
$ write tf "#endif"
1303
$ goto cfgh_in_loop1
1304
$ endif
1305
$!
1306
$ if keysym .eqs. "FCNTL_LOCK"
1307
$ then
1308
$ write sys$output -
1309
"%CONFIG_H-I-NONPORT, ''key2' being asked for!
1310
$ write sys$output -
1311
"-CONFIG_H-I-REVIEW, Manual Code review required!"
1312
$ goto cfgh_in_loop1
1313
$ endif
1314
$!
1315
$!
1316
$! These libraries are provided by the DEC C RTL
1317
$!-------------------------------------------------------------
1318
$ if keysym .eqs. "LIBINET" .or. keysym .eqs. "LIBSOCKET"
1319
$ then
1320
$ write tf "#ifndef HAVE_''keysym'"
1321
$ write tf "#define HAVE_''keysym' 1"
1322
$if p2 .nes. "" then write sys$output "''decc_shr' #define ''keysym' 1"
1323
$ write tf "#endif
1324
$ goto cfgh_in_loop1
1325
$ endif
1326
$!
1327
$ if keysym .eqs. "HERRNO" then keysym = "h_errno"
1328
$ if keysym .eqs. "UTIMBUF" then keysym = "utimbuf"
1329
$ if key2c .eqs. "STRUCT"
1330
$ then
1331
$ keysym = f$edit(key2d,"LOWERCASE")
1332
$ else
1333
$ if key2_h .eqs. "_T"
1334
$ then
1335
$ if key2_t .eqs. "_TYPE"
1336
$ then
1337
$ keysym = f$extract(0, key2_len - 5, key2) - "HAVE_"
1338
$ endif
1339
$ keysym = f$edit(keysym,"LOWERCASE")
1340
$ endif
1341
$ endif
1342
$!
1343
$! Check the DEC C RTL shared image first
1344
$!------------------------------------------------------
1345
$ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1346
$ define/user sys$output nl:
1347
$ define/user sys$error nl:
1348
$ search/format=nonull/out='tfile1' 'decc_shr' 'keysym'
1349
$ if '$severity' .eq. 1
1350
$ then
1351
$!
1352
$! Not documented, but from observation
1353
$!------------------------------------------------------
1354
$ define/user sys$output nl:
1355
$ define/user sys$error nl:
1356
$ if arch_type .eq. 3
1357
$ then
1358
$ keyterm = "''keysym'<SOH>"
1359
$ else
1360
$ if arch_type .eq. 2
1361
$ then
1362
$ keyterm = "''keysym'<BS>"
1363
$ else
1364
$ keyterm = "''keysym'<STX>"
1365
$ endif
1366
$ endif
1367
$ search/out=nl: 'tfile1' -
1368
"$''keyterm'","$g''keyterm'","$__utc_''keyterm'",-
1369
"$__utctz_''keyterm'","$__bsd44_''keyterm'","$bsd_''keyterm'",-
1370
"$''keysym'decc$","$G''keysym'decc$","$GX''keyterm'"
1371
$ severity = '$severity'
1372
$!
1373
$!
1374
$! Of course the 64 bit stuff is different
1375
$!---------------------------------------------------------
1376
$ if severity .ne. 1 .and. key64
1377
$ then
1378
$ define/user sys$output nl:
1379
$ define/user sys$error nl:
1380
$ search/out=nl: 'tfile1' "$_''keyterm'"
1381
$! search/out 'tfile1' "$_''keyterm'"
1382
$ severity = '$severity'
1383
$ endif
1384
$!
1385
$! UNIX compatability routines
1386
$!---------------------------------------------
1387
$ if severity .ne. 1
1388
$ then
1389
$ define/user sys$output nl:
1390
$ define/user sys$error nl:
1391
$ search/out=nl: 'tfile1' -
1392
"$__unix_''keyterm'","$__vms_''keyterm'","$_posix_''keyterm'"
1393
$ severity = '$severity'
1394
$ endif
1395
$!
1396
$! Show the result of the search
1397
$!------------------------------------------------
1398
$ if 'severity' .eq. 1
1399
$ then
1400
$ if key64 then write tf "#ifndef __VAX"
1401
$ write tf "#ifndef ''key2'"
1402
$ write tf "#define ''key2' 1"
1403
$if p2 .nes. "" then write sys$output "''decc_shr' #define ''key2' 1"
1404
$ write tf "#endif"
1405
$ if key64 then write tf "#endif"
1406
$ goto cfgh_in_loop1
1407
$ endif
1408
$ endif
1409
$ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1410
$!
1411
$! Check the DECC Header files next
1412
$!----------------------------------------------
1413
$ define/user sys$output nl:
1414
$ define/user sys$error nl:
1415
$ search/out=nl: 'decc_rtldef' -
1416
"''keysym';", "''keysym'[", "struct ''keysym'"/exact
1417
$ severity = '$severity'
1418
$ if severity .eq. 1
1419
$ then
1420
$ if key64 then write tf "#ifndef __VAX"
1421
$ write tf "#ifndef ''key2'"
1422
$ write tf "#define ''key2' 1"
1423
$if p2 .nes. "" then write sys$output "''decc_rtldef' #define ''key2' 1"
1424
$ write tf "#endif"
1425
$ if key64 then write tf "#endif"
1426
$ goto cfgh_in_loop1
1427
$ endif
1428
$!
1429
$! Check kerberos
1430
$!--------------------------------------------
1431
$ if f$search("SYS$SYSROOT:[kerberos]include.dir") .nes. ""
1432
$ then
1433
$ test_mit = "SYS$SYSROOT:[kerberos.include]gssapi_krb5.h"
1434
$ if (key2 .eqs. "HAVE_GSSAPI")
1435
$ then
1436
$ write tf "#ifndef ''key2'"
1437
$ write tf "#define ''key2' 1"
1438
$ write tf "#endif"
1439
$ goto cfgh_in_loop1
1440
$ endif
1441
$!
1442
$! This is really do we have the newer MIT Kerberos
1443
$!----------------------------------------------------------------------
1444
$ if (key2 .eqs. "HAVE_GSSMIT")
1445
$ then
1446
$ if f$search(test_mit) .nes. ""
1447
$ then
1448
$ write tf "#ifndef ''key2'"
1449
$ write tf "#define ''key2' 1"
1450
$ else
1451
$ write tf "#ifdef ''key2'"
1452
$ write tf "#undef ''key2'"
1453
$ endif
1454
$ write tf "#endif"
1455
$ goto cfgh_in_loop1
1456
$ endif
1457
$!
1458
$! Older MIT looks like Heimdal
1459
$!------------------------------------------------
1460
$ if (key2 .eqs. "HAVE_HEIMDAL")
1461
$ then
1462
$ if f$search(test_mit) .eqs. ""
1463
$ then
1464
$ write tf "#ifndef ''key2'"
1465
$ write tf "#define ''key2' 1"
1466
$ else
1467
$ write tf "#ifdef ''key2'"
1468
$ write tf "#undef ''key2'"
1469
$ endif
1470
$ write tf "#endif"
1471
$ goto cfgh_in_loop1
1472
$ endif
1473
$ endif
1474
$!
1475
$ endif
1476
$ write tf "/* ", xline, " */"
1477
$ goto cfgh_in_loop1
1478
$ endif
1479
$!
1480
$!
1481
$! Process SIZEOF directives found in SAMBA and others
1482
$!----------------------------------------------------------
1483
$ if key2a .eqs. "SIZEOF"
1484
$ then
1485
$ if key2b .eqs. "INO" .and. key2_h .eqs. "_T"
1486
$ then
1487
$ write tf "#ifndef SIZEOF_INO_T"
1488
$ write tf "#if !__USING_STD_STAT
1489
$ write tf "#define SIZEOF_INO_T 6"
1490
$ write tf "#else
1491
$ write tf "#define SIZEOF_INO_T 8"
1492
$ write tf "#endif
1493
$ write tf "#endif"
1494
$ goto cfgh_in_loop1
1495
$ endif
1496
$ if key2b .eqs. "INTMAX" .and. key2_h .eqs. "_T"
1497
$ then
1498
$ write tf "#ifndef SIZEOF_INTMAX_T"
1499
$ write tf "#ifdef __VAX"
1500
$ write tf "#define SIZEOF_INTMAX_T 4"
1501
$ write tf "#else"
1502
$ write tf "#define SIZEOF_INTMAX_T 8"
1503
$ write tf "#endif"
1504
$ write tf "#endif"
1505
$ goto cfgh_in_loop1
1506
$ endif
1507
$ if key2b .eqs. "OFF" .and. key2_h .eqs. "_T"
1508
$ then
1509
$ write tf "#ifndef SIZEOF_OFF_T"
1510
$ write tf "#if __USE_OFF64_T"
1511
$ write tf "#define SIZEOF_OFF_T 8"
1512
$ write tf "#else"
1513
$ write tf "#define SIZEOF_OFF_T 4"
1514
$ write tf "#endif"
1515
$ write tf "#endif"
1516
$ goto cfgh_in_loop1
1517
$ endif
1518
$ if key2b .eqs. "CHAR" .and. key2_h .eqs. "_P"
1519
$ then
1520
$ write tf "#ifndef SIZEOF_CHAR_P"
1521
$ write tf "#if __INITIAL_POINTER_SIZE == 64"
1522
$ write tf "#define SIZEOF_CHAR_P 8"
1523
$ write tf "#else"
1524
$ write tf "#define SIZEOF_CHAR_P 4"
1525
$ write tf "#endif"
1526
$ goto cfgh_in_loop1
1527
$ endif
1528
$ if key2b .eqs. "VOIDP"
1529
$ then
1530
$ write tf "#ifndef SIZEOF_VOIDP"
1531
$ write tf "#if __INITIAL_POINTER_SIZE == 64"
1532
$ write tf "#define SIZEOF_VOIDP 8"
1533
$ write tf "#else"
1534
$ write tf "#define SIZEOF_VOIDP 4"
1535
$ write tf "#endif"
1536
$ write tf "#endif"
1537
$ goto cfgh_in_loop1
1538
$ endif
1539
$ if key2b .eqs. "INT"
1540
$ then
1541
$ write tf "#ifndef SIZEOF_INT"
1542
$ write tf "#define SIZEOF_INT 4"
1543
$ write tf "#endif"
1544
$ goto cfgh_in_loop1
1545
$ endif
1546
$ if key2b .eqs. "SIZE" .and. key2_h .eqs. "_T"
1547
$ then
1548
$ write tf "#ifndef SIZEOF_SIZE_T"
1549
$ write tf "#define SIZEOF_SIZE_T 4"
1550
$ write tf "#endif"
1551
$ goto cfgh_in_loop1
1552
$ endif
1553
$ if key2b .eqs. "TIME" .and. key2_h .eqs. "_T"
1554
$ then
1555
$ write tf "#ifndef SIZEOF_TIME_T"
1556
$ write tf "#define SIZEOF_TIME_T 4"
1557
$ write tf "#endif"
1558
$ goto cfgh_in_loop1
1559
$ endif
1560
$ if key2b .eqs. "DOUBLE"
1561
$ then
1562
$ write tf "#ifndef SIZEOF_DOUBLE"
1563
$ write tf "#define SIZEOF_DOUBLE 8"
1564
$ write tf "#endif"
1565
$ goto cfgh_in_loop1
1566
$ endif
1567
$ if key2b .eqs. "LONG"
1568
$ then
1569
$ if key2c .eqs. ""
1570
$ then
1571
$ write tf "#ifndef SIZEOF_LONG"
1572
$ write tf "#define SIZEOF_LONG 4"
1573
$ write tf "#endif"
1574
$ else
1575
$ write tf "#ifndef SIZEOF_LONG_LONG"
1576
$ write tf "#ifndef __VAX"
1577
$ write tf "#define SIZEOF_LONG_LONG 8"
1578
$ write tf "#endif"
1579
$ write tf "#endif"
1580
$ endif
1581
$ goto cfgh_in_loop1
1582
$ endif
1583
$ if key2b .eqs. "SHORT"
1584
$ then
1585
$ write tf "#ifndef SIZEOF_SHORT"
1586
$ write tf "#define SIZEOF_SHORT 2"
1587
$ write tf "#endif"
1588
$ goto cfgh_in_loop1
1589
$ endif
1590
$ write tf "/* ", xline, " */"
1591
$ goto cfgh_in_loop1
1592
$ endif
1593
$!
1594
$! Process NEED directives
1595
$!-------------------------------
1596
$ if key2a .eqs. "NEED"
1597
$ then
1598
$ if key2b .eqs. "STRINGS" .and. key2_h .eqs. "_H"
1599
$ then
1600
$ write tf "#ifndef NEED_STRINGS_H"
1601
$ write tf "#define NEED_STRINGS_H 1"
1602
$ write tf "#endif"
1603
$ goto cfgh_in_loop1
1604
$ endif
1605
$ write tf "/* ", xline, " */"
1606
$ goto cfgh_in_loop1
1607
$ endif
1608
$!
1609
$! Process GETHOSTNAME directives
1610
$!-------------------------------------
1611
$ if key2 .eqs. "GETHOSTNAME_TYPE_ARG2"
1612
$ then
1613
$ write tf "#ifndef ''key2'"
1614
$ write tf "#ifdef _DECC_V4_SOURCE"
1615
$ write tf "#define ''key2' int"
1616
$ write tf "#else"
1617
$ write tf "#define ''key2' size_t"
1618
$ write tf "#endif"
1619
$ write tf "#endif"
1620
$ goto cfgh_in_loop1
1621
$ endif
1622
$!
1623
$! Process GETNAMEINFO directives
1624
$!-------------------------------------
1625
$ if key2a .eqs. "GETNAMEINFO"
1626
$ then
1627
$ if key2 .eqs. "GETNAMEINFO_QUAL_ARG1"
1628
$ then
1629
$ write tf "#ifndef ''key2'"
1630
$ write tf "#define ''key2' const"
1631
$ write tf "#endif"
1632
$ goto cfgh_in_loop1
1633
$ endif
1634
$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG1"
1635
$ then
1636
$ write tf "#ifndef ''key2'"
1637
$ write tf "#define ''key2' struct sockaddr *"
1638
$ write tf "#endif"
1639
$ goto cfgh_in_loop1
1640
$ endif
1641
$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG2"
1642
$ then
1643
$ write tf "#ifndef ''key2'"
1644
$ write tf "#define ''key2' size_t"
1645
$ write tf "#endif"
1646
$ goto cfgh_in_loop1
1647
$ endif
1648
$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG46"
1649
$ then
1650
$ write tf "#ifndef ''key2'"
1651
$ write tf "#define ''key2' size_t"
1652
$ write tf "#endif"
1653
$ goto cfgh_in_loop1
1654
$ endif
1655
$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG7"
1656
$ then
1657
$ write tf "#ifndef ''key2'"
1658
$ write tf "#define ''key2' int"
1659
$ write tf "#endif"
1660
$ goto cfgh_in_loop1
1661
$ endif
1662
$ endif
1663
$!
1664
$! Process RECV directives
1665
$!-------------------------------------
1666
$ if key2a .eqs. "RECV"
1667
$ then
1668
$ if key2 .eqs. "RECV_TYPE_ARG1"
1669
$ then
1670
$ write tf "#ifndef ''key2'"
1671
$ write tf "#define ''key2' int"
1672
$ write tf "#endif"
1673
$ goto cfgh_in_loop1
1674
$ endif
1675
$ if key2 .eqs. "RECV_TYPE_ARG2"
1676
$ then
1677
$ write tf "#ifndef ''key2'"
1678
$ write tf "#define ''key2' void *"
1679
$ write tf "#endif"
1680
$ goto cfgh_in_loop1
1681
$ endif
1682
$ if key2 .eqs. "RECV_TYPE_ARG3"
1683
$ then
1684
$ write tf "#ifndef ''key2'"
1685
$ write tf "#define ''key2' size_t"
1686
$ write tf "#endif"
1687
$ goto cfgh_in_loop1
1688
$ endif
1689
$ if key2 .eqs. "RECV_TYPE_ARG4"
1690
$ then
1691
$ write tf "#ifndef ''key2'"
1692
$ write tf "#define ''key2' int"
1693
$ write tf "#endif"
1694
$ goto cfgh_in_loop1
1695
$ endif
1696
$ if key2 .eqs. "RECV_TYPE_RETV"
1697
$ then
1698
$ write tf "#ifndef ''key2'"
1699
$ write tf "#define ''key2' int"
1700
$ write tf "#endif"
1701
$ goto cfgh_in_loop1
1702
$ endif
1703
$ endif
1704
$!
1705
$!
1706
$! Process RECVFROM directives
1707
$!-------------------------------------
1708
$ if key2a .eqs. "RECVFROM"
1709
$ then
1710
$ if key2 .eqs. "RECVFROM_QUAL_ARG5"
1711
$ then
1712
$ write tf "#ifndef ''key2'"
1713
$ write tf "#define ''key2'"
1714
$ write tf "#endif"
1715
$ goto cfgh_in_loop1
1716
$ endif
1717
$ if key2 .eqs. "RECVFROM_TYPE_ARG1"
1718
$ then
1719
$ write tf "#ifndef ''key2'"
1720
$ write tf "#define ''key2' int"
1721
$ write tf "#endif"
1722
$ goto cfgh_in_loop1
1723
$ endif
1724
$ if key2 .eqs. "RECVFROM_TYPE_ARG2"
1725
$ then
1726
$ write tf "#ifndef ''key2'"
1727
$ write tf "#define ''key2' void *"
1728
$ write tf "#endif"
1729
$ goto cfgh_in_loop1
1730
$ endif
1731
$ if key2 .eqs. "RECVFROM_TYPE_ARG3"
1732
$ then
1733
$ write tf "#ifndef ''key2'"
1734
$ write tf "#define ''key2' size_t"
1735
$ write tf "#endif"
1736
$ goto cfgh_in_loop1
1737
$ endif
1738
$ if key2 .eqs. "RECVFROM_TYPE_ARG4"
1739
$ then
1740
$ write tf "#ifndef ''key2'"
1741
$ write tf "#define ''key2' int"
1742
$ write tf "#endif"
1743
$ goto cfgh_in_loop1
1744
$ endif
1745
$ if key2 .eqs. "RECVFROM_TYPE_ARG5"
1746
$ then
1747
$ write tf "#ifndef ''key2'"
1748
$ write tf "#define ''key2' struct sockaddr"
1749
$ write tf "#endif"
1750
$ goto cfgh_in_loop1
1751
$ endif
1752
$ if key2 .eqs. "RECVFROM_TYPE_ARG6"
1753
$ then
1754
$ write tf "#ifndef ''key2'"
1755
$ write tf "#define ''key2' unsigned int"
1756
$ write tf "#endif"
1757
$ goto cfgh_in_loop1
1758
$ endif
1759
$ if key2 .eqs. "RECVFROM_TYPE_RETV"
1760
$ then
1761
$ write tf "#ifndef ''key2'"
1762
$ write tf "#define ''key2' int"
1763
$ write tf "#endif"
1764
$ goto cfgh_in_loop1
1765
$ endif
1766
$ endif
1767
$!
1768
$! Process SELECT directives
1769
$!-------------------------------------
1770
$ if key2a .eqs. "SELECT"
1771
$ then
1772
$ if key2 .eqs. "SELECT_QUAL_ARG5"
1773
$ then
1774
$ write tf "#ifndef ''key2'"
1775
$ write tf "#define ''key2' const"
1776
$ write tf "#endif"
1777
$ goto cfgh_in_loop1
1778
$ endif
1779
$ if key2 .eqs. "SELECT_TYPE_ARG1"
1780
$ then
1781
$ write tf "#ifndef ''key2'"
1782
$ write tf "#define ''key2' int"
1783
$ write tf "#endif"
1784
$ goto cfgh_in_loop1
1785
$ endif
1786
$ if key2 .eqs. "SELECT_TYPE_ARG2"
1787
$ then
1788
$ write tf "#ifndef ''key2'"
1789
$ write tf "#define ''key2' void *"
1790
$ write tf "#endif"
1791
$ goto cfgh_in_loop1
1792
$ endif
1793
$ if key2 .eqs. "SELECT_TYPE_ARG234"
1794
$ then
1795
$ write tf "#ifndef ''key2'"
1796
$ write tf "#define ''key2' fd_set *"
1797
$ write tf "#endif"
1798
$ goto cfgh_in_loop1
1799
$ endif
1800
$ if key2 .eqs. "SELECT_TYPE_ARG5"
1801
$ then
1802
$ write tf "#ifndef ''key2'"
1803
$ write tf "#define ''key2' struct timeval *"
1804
$ write tf "#endif"
1805
$ goto cfgh_in_loop1
1806
$ endif
1807
$ if key2 .eqs. "SELECT_TYPE_RETV"
1808
$ then
1809
$ write tf "#ifndef ''key2'"
1810
$ write tf "#define ''key2' int"
1811
$ write tf "#endif"
1812
$ goto cfgh_in_loop1
1813
$ endif
1814
$ endif
1815
$!
1816
$! Process SEND directives
1817
$!-------------------------------------
1818
$ if key2a .eqs. "SEND"
1819
$ then
1820
$ if key2 .eqs. "SEND_QUAL_ARG2"
1821
$ then
1822
$ write tf "#ifndef ''key2'"
1823
$ write tf "#define ''key2' const"
1824
$ write tf "#endif"
1825
$ goto cfgh_in_loop1
1826
$ endif
1827
$ if key2 .eqs. "SEND_TYPE_ARG1"
1828
$ then
1829
$ write tf "#ifndef ''key2'"
1830
$ write tf "#define ''key2' int"
1831
$ write tf "#endif"
1832
$ goto cfgh_in_loop1
1833
$ endif
1834
$ if key2 .eqs. "SEND_TYPE_ARG2"
1835
$ then
1836
$ write tf "#ifndef ''key2'"
1837
$ write tf "#define ''key2' void *"
1838
$ write tf "#endif"
1839
$ goto cfgh_in_loop1
1840
$ endif
1841
$ if key2 .eqs. "SEND_TYPE_ARG3"
1842
$ then
1843
$ write tf "#ifndef ''key2'"
1844
$ write tf "#define ''key2' size_t"
1845
$ write tf "#endif"
1846
$ goto cfgh_in_loop1
1847
$ endif
1848
$ if key2 .eqs. "SEND_TYPE_ARG4"
1849
$ then
1850
$ write tf "#ifndef ''key2'"
1851
$ write tf "#define ''key2' int"
1852
$ write tf "#endif"
1853
$ goto cfgh_in_loop1
1854
$ endif
1855
$ if key2 .eqs. "SEND_TYPE_RETV"
1856
$ then
1857
$ write tf "#ifndef ''key2'"
1858
$ write tf "#define ''key2' int"
1859
$ write tf "#endif"
1860
$ goto cfgh_in_loop1
1861
$ endif
1862
$ endif
1863
$!
1864
$!
1865
$! Process STATFS directives
1866
$!-------------------------------
1867
$! if key2a .eqs. "STATFS"
1868
$! then
1869
$! write tf "/* ", xline, " */"
1870
$! goto cfgh_in_loop1
1871
$! endif
1872
$!
1873
$! Process inline directive
1874
$!------------------------------
1875
$ if key2 .eqs. "inline"
1876
$ then
1877
$ write tf "#ifndef inline"
1878
$ write tf "#define inline __inline"
1879
$ write tf "#endif"
1880
$ goto cfgh_in_loop1
1881
$ endif
1882
$!
1883
$! Process restrict directive
1884
$!--------------------------------
1885
$ if key2 .eqs. "restrict"
1886
$ then
1887
$ write tf "#ifndef restrict"
1888
$ write tf "#define restrict __restrict"
1889
$ write tf "#endif"
1890
$ goto cfgh_in_loop1
1891
$ endif
1892
$!
1893
$! Process RETSIGTYPE directive
1894
$!----------------------------------
1895
$ if key2 .eqs. "RETSIGTYPE"
1896
$ then
1897
$ write tf "#ifndef RETSIGTYPE"
1898
$ write tf "#define RETSIGTYPE void"
1899
$ write tf "#endif"
1900
$ goto cfgh_in_loop1
1901
$ endif
1902
$!
1903
$! Process STDC_HEADERS (SAMBA!)
1904
$!---------------------------
1905
$ if key2 .eqs. "STDC_HEADERS"
1906
$ then
1907
$ write tf "#ifndef STDC_HEADERS"
1908
$ write tf "#define STDC_HEADERS 1"
1909
$ write tf "#endif"
1910
$ goto cfgh_in_loop1
1911
$ endif
1912
$!
1913
$! Process PROTOTYPES directive
1914
$!-------------------------------------
1915
$ if key2 .eqs. "PROTOTYPES"
1916
$ then
1917
$ write tf "#ifndef PROTOTYPES"
1918
$ write tf "#define PROTOTYPES 1"
1919
$ write tf "#endif"
1920
$ goto cfgh_in_loop1
1921
$ endif
1922
$!
1923
$! Special for SEEKDIR_RETURNS_VOID
1924
$!---------------------------------------
1925
$ if key2 .eqs. "SEEKDIR_RETURNS_VOID"
1926
$ then
1927
$ write tf "#ifndef SEEKDIR_RETURNS_VOID"
1928
$ write tf "#define SEEKDIR_RETURNS_VOID 1"
1929
$ write tf "#endif"
1930
$ endif
1931
$!
1932
$! Unknown - See if CONFIGURE can give a clue for this
1933
$!----------------------------------------------------------
1934
$ pflag = 0
1935
$ set_flag = 0
1936
$! gproj_name = proj_name - "_VMS" - "-VMS"
1937
$ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1938
$ define/user sys$output nl:
1939
$ define/user sys$error nl:
1940
$! if f$locate("FILE", key2) .lt. key2_len then pflag = 1
1941
$! if f$locate("DIR", key2) .eq. key2_len - 3 then pflag = 1
1942
$! if f$locate("PATH", key2) .eq. key2_len - 4 then pflag = 1
1943
$!
1944
$ search/out='tfile1' 'configure_script' "''key2'="/exact
1945
$ search_sev = '$severity'
1946
$ if 'search_sev' .eq. 1
1947
$ then
1948
$ open/read/err=unknown_cf_rd_error sf 'tfile1'
1949
$search_file_rd_loop:
1950
$ read/end=unknown_cf_rd_err sf line_in
1951
$ line_in = f$edit(line_in, "TRIM")
1952
$ skey1 = f$element(0,"=",line_in)
1953
$ if skey1 .eqs. key2
1954
$ then
1955
$ skey2 = f$element(1,"=",line_in)
1956
$ skey2a = f$extract(0,2,skey2)
1957
$!
1958
$!
1959
$! We can not handle assignment to shell symbols.
1960
$! For now skip them.
1961
$!------------------------------------------------------------
1962
$ if f$locate("$", skey2) .lt. f$length(skey2)
1963
$ then
1964
$ write tf "/* ", xline, " */"
1965
$ set_flag = 1
1966
$ goto found_in_configure
1967
$ endif
1968
$!
1969
$! Keep these two cases separate to make it easier to add
1970
$! more future intelligence to this routine
1971
$!----------------------------------------------------------------------
1972
$ if skey2a .eqs. """`"
1973
$ then
1974
$! if pflag .eq. 1
1975
$! then
1976
$! write tf "#ifndef ''key2'"
1977
$! write tf "#define ",key2," """,gproj_name,"_",key2,""""
1978
$! write tf "#endif"
1979
$! else
1980
$! Ignore this for now
1981
$!------------------------------------------
1982
$ write tf "/* ", xline, " */"
1983
$! endif
1984
$ set_flag = 1
1985
$ goto found_in_configure
1986
$ endif
1987
$ if skey2a .eqs. """$"
1988
$ then
1989
$! if pflag .eq. 1
1990
$! then
1991
$! write tf "#ifndef ''key2'"
1992
$! write tf "#define ",key2," """,gproj_name,"_",key2,""""
1993
$! write tf "#endif"
1994
$! else
1995
$! Ignore this for now
1996
$!-------------------------------------------
1997
$ write tf "/* ", xline, " */"
1998
$! endif
1999
$ set_flag = 1
2000
$ goto found_in_configure
2001
$ endif
2002
$!
2003
$! Remove multiple layers of quotes if present
2004
$!----------------------------------------------------------
2005
$ if f$extract(0, 1, skey2) .eqs. "'"
2006
$ then
2007
$ skey2 = skey2 - "'" - "'" - "'" - "'"
2008
$ endif
2009
$ if f$extract(0, 1, skey2) .eqs. """"
2010
$ then
2011
$ skey2 = skey2 - """" - """" - """" - """"
2012
$ endif
2013
$ write tf "#ifndef ''key2'"
2014
$ if skey2 .eqs. ""
2015
$ then
2016
$ write tf "#define ",key2
2017
$ else
2018
$! Only quote non-numbers
2019
$!----------------------------------------
2020
$ if f$string(skey2+0) .eqs. skey2
2021
$ then
2022
$ write tf "#define ",key2," ",skey2
2023
$ else
2024
$ write tf "#define ",key2," """,skey2,""""
2025
$ endif
2026
$ endif
2027
$ write tf "#endif"
2028
$ set_flag = 1
2029
$ else
2030
$ goto search_file_rd_loop
2031
$! if pflag .eq. 1
2032
$! then
2033
$! write tf "#ifndef ''key2'"
2034
$! write tf "#define ",key2," """,gproj_name,"_",key2,""""
2035
$! write tf "#endif"
2036
$! set_flag = 1
2037
$! endif
2038
$ endif
2039
$found_in_configure:
2040
$unknown_cf_rd_err:
2041
$ if f$trnlnm("sf","lnm$process",,"SUPERVISOR") .nes. ""
2042
$ then
2043
$ close sf
2044
$ endif
2045
$ if f$search(tfile1) .nes. "" then delete 'tfile1';*
2046
$ if set_flag .eq. 1 then goto cfgh_in_loop1
2047
$ endif
2048
$ endif
2049
$!
2050
$!
2051
$!
2052
$! If it falls through everything else, comment it out
2053
$!-----------------------------------------------------
2054
$ write tf "/* ", xline, " */"
2055
$ goto cfgh_in_loop1
2056
$cfgh_in_loop1_end:
2057
$close inf
2058
$!
2059
$!
2060
$! Write out the tail
2061
$!--------------------
2062
$write_tail:
2063
$gosub write_config_h_tail
2064
$!
2065
$! Exit and clean up
2066
$!--------------------
2067
$general_error:
2068
$status = '$status'
2069
$all_exit:
2070
$set noon
2071
$if f$trnlnm("sf","lnm$process",,"SUPERVISOR") .nes. "" then close sf
2072
$if f$trnlnm("tf","lnm$process",,"SUPERVISOR") .nes. "" then close tf
2073
$if f$trnlnm("inf","lnm$process",,"SUPERVISOR") .nes. "" then close inf
2074
$if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1
2075
$if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2
2076
$if f$trnlnm("tfcv","lnm$process",,"SUPERVISOR") .nes. "" then close tfcv
2077
$if f$type(tfile1) .eqs. "STRING"
2078
$then
2079
$ if f$search(tfile1) .nes. "" then delete 'tfile1';*
2080
$endif
2081
$if f$type(dchfile) .eqs. "STRING"
2082
$then
2083
$ if f$search(dchfile) .nes. "" then delete 'dchfile';*
2084
$endif
2085
$if f$type(starhfile) .eqs. "STRING"
2086
$then
2087
$ if f$search(starhfile) .nes. "" then delete 'starhfile';*
2088
$endif
2089
$if f$type(configure_script) .eqs. "STRING"
2090
$then
2091
$ if f$search(configure_script) .nes. "" then delete 'configure_script';*
2092
$endif
2093
$exit 'status'
2094
$!
2095
$!
2096
$control_y:
2097
$ status = ss_control_y
2098
$ goto all_exit
2099
$!
2100
$!
2101
$!
2102
$! Gosub to write a new config_vms.h
2103
$!-----------------------------------
2104
$write_config_vms:
2105
$outfile = "sys$disk:[]config_vms.h"
2106
$create 'outfile'
2107
$open/append tf 'outfile'
2108
$write tf "/* File: config_vms.h"
2109
$write tf "**"
2110
$write tf "** This file contains the manual edits needed for porting"
2111
$!write tf "** the ''proj_name' package to OpenVMS.
2112
$write tf "**"
2113
$write tf "** Edit this file as needed. The procedure that automatically"
2114
$write tf "** generated this header stub will not overwrite or make any"
2115
$write tf "** changes to this file."
2116
$write tf "**"
2117
$write tf -
2118
"** ", datetime, tab, username, tab, "Generated by ''my_proc_file'"
2119
$write tf "**"
2120
$write tf -
2121
"**========================================================================*/"
2122
$write tf ""
2123
$close tf
2124
$return
2125
$!
2126
$! gosub to write out a documentation header for config.h
2127
$!----------------------------------------------------------------
2128
$write_config_h_header:
2129
$outfile = "sys$disk:[]config.h"
2130
$create 'outfile'
2131
$open/append tf 'outfile'
2132
$write tf "#ifndef CONFIG_H"
2133
$write tf "#define CONFIG_H"
2134
$write tf "/* File: config.h"
2135
$write tf "**"
2136
$write tf -
2137
"** This file contains the options needed for porting "
2138
$write tf "** the project on a VMS system."
2139
$write tf "**"
2140
$write tf "** Try not to make any edits to this file, as it is"
2141
$write tf "** automagically generated."
2142
$write tf "**"
2143
$write tf "** Manual edits should be made to the config_vms.h file."
2144
$write tf "**"
2145
$write tf -
2146
"** ", datetime, tab, username, tab, "Generated by ''my_proc_file'"
2147
$write tf "**"
2148
$write tf -
2149
"**========================================================================*/"
2150
$write tf ""
2151
$write tf "#if (__CRTL_VER >= 70200000) && !defined (__VAX)"
2152
$write tf "#define _LARGEFILE 1"
2153
$write tf "#endif"
2154
$write tf ""
2155
$write tf "#ifndef __VAX"
2156
$write tf "#ifdef __CRTL_VER"
2157
$write tf "#if __CRTL_VER >= 80200000"
2158
$write tf "#define _USE_STD_STAT 1"
2159
$write tf "#endif"
2160
$write tf "#endif"
2161
$write tf "#endif"
2162
$write tf ""
2163
$!
2164
$write tf " /* Allow compiler builtins */"
2165
$write tf "/*-------------------------*/"
2166
$write tf "#ifdef __DECC_VER"
2167
$write tf "#include <non_existant_dir:builtins.h>"
2168
$write tf "#endif"
2169
$!
2170
$write tf ""
2171
$return
2172
$!
2173
$! gosub to write out the tail for config.h and close it
2174
$!---------------------------------------------------------
2175
$write_config_h_tail:
2176
$write tf ""
2177
$write tf " /* Include the hand customized settings */"
2178
$write tf "/*--------------------------------------*/"
2179
$write tf "#include ""config_vms.h"""
2180
$write tf ""
2181
$write tf "#endif /* CONFIG_H */"
2182
$close tf
2183
$return
2184
$!
Loggerhead is a web-based interface for Breezy
Version: 2.0.1