1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
$!
$! This script produces a sockets-constants.ads file
$! for adasockets on OpenVMS platform.
$!
$! This file is part of adasockets port to OpenVMS
$!
$!
$! Let's write the header
$!
$ OPEN/WRITE OUT SOCKETS-CONSTANTS.ADS
$ WRITE OUT "-- This file has been generated automatically by"
$ WRITE OUT "-- CREATE_CONSTANTS_ADS.COM."
$ WRITE OUT "--"
$ WRITE OUT "-- This file is part of adasockets port to OpenVMS"
$ WRITE OUT "--"
$ WRITE OUT "package sockets.constants is"
$!
$! Now Include the contents.
$! Make a line copy to get rid of the file attribut
$! compatibility between TMP.OUT and SOCKETS-CONSTANTS.ADS
$!
$ PIPE RUN CONSTANTS.EXE | TYPE/OUT=TMP.OUT SYS$INPUT
$ loop_label:
$ OPEN IN TMP.OUT
$ READ/END_OF_FILE=end_label IN LINE
$ WRITE OUT LINE
$ GOTO loop_label
$ end_label:
$ CLOSE IN
$ DEL/NOCONF/LOG TMP.OUT;*
$!
$! Then close the specification file
$!
$ WRITE OUT "end sockets.constants;"
$ CLOSE OUT
$ EXIT
|
