File: mkver.c

package info (click to toggle)
erlang 1%3A14.a-dfsg-3squeeze1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 179,776 kB
  • ctags: 245,237
  • sloc: erlang: 1,066,281; ansic: 260,961; xml: 240,068; cpp: 45,949; makefile: 22,700; sh: 10,897; java: 8,720; lisp: 7,826; python: 5,297; pascal: 3,264; asm: 2,679; perl: 2,514; tcl: 245; sed: 9
file content (60 lines) | stat: -rw-r--r-- 1,495 bytes parent folder | download | duplicates (6)
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
/*
 * %CopyrightBegin%
 * 
 * Copyright Ericsson AB 1996-2009. All Rights Reserved.
 * 
 * The contents of this file are subject to the Erlang Public License,
 * Version 1.1, (the "License"); you may not use this file except in
 * compliance with the License. You should have received a copy of the
 * Erlang Public License along with this software. If not, it can be
 * retrieved online at http://www.erlang.org/.
 * 
 * Software distributed under the License is distributed on an "AS IS"
 * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
 * the License for the specific language governing rights and limitations
 * under the License.
 * 
 * %CopyrightEnd%
 */
/*
 * Makes the file erl_version.h.
 */

#ifdef HAVE_CONFIG_H
#  include "config.h"
#endif
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <time.h>

int
main(argc, argv)
int argc;
char** argv;
{
    FILE *file;
    time_t now;
    char *cnow;

    if (argc != 2) {
	fprintf(stderr, "usage: mkver version\n");
	exit(1);
    }

    if ((file = fopen("erl_version.h", "wb")) == NULL) {
	fprintf(stderr, "Could not create file 'erl_version.h'!\n");
	exit(1);
    }

    time(&now);
    cnow = ctime(&now);
    cnow[24] = '\0';		/* tidelipom */
    fprintf(file, "/* This file was created by mkver -- don't modify.*/\n");
    fprintf(file, "#define ERLANG_VERSION \"%s\"\n", argv[1]);
    fprintf(file, "#define ERLANG_COMPILE_DATE \"%s\"\n", cnow);
    fclose(file);

    exit(0);
    return 0;
}