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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!/usr/bin/env tclsh
#===============================================================================
#
# gen_framebufs.tcl
#
# Amalgamate the various framebuffers available on a given platform
#
#===============================================================================
# ####ECOSGPLCOPYRIGHTBEGIN####
# -------------------------------------------
# This file is part of eCos, the Embedded Configurable Operating System.
# Copyright (C) 2008 Free Software Foundation, Inc.
#
# eCos is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 2 or (at your option) any later
# version.
#
# eCos is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License
# along with eCos; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
#
# As a special exception, if other files instantiate templates or use
# macros or inline functions from this file, or you compile this file
# and link it with other works to produce a work based on this file,
# this file does not by itself cause the resulting work to be covered by
# the GNU General Public License. However the source code for this file
# must still be made available in accordance with section (3) of the GNU
# General Public License v2.
#
# This exception does not invalidate any other reasons why a work based
# on this file might be covered by the GNU General Public License.
# -------------------------------------------
# ####ECOSGPLCOPYRIGHTEND####
#===============================================================================
######DESCRIPTIONBEGIN####
#
# Author(s): bartv
# Date: 2005-03-29
#
# This script is invoked via a custom make rule to generate a file
# <cyg/io/framebufs/framebufs.h>
#
#####DESCRIPTIONEND####
#===============================================================================
proc do_it { dir } {
# dir should be set to <prefix>/install/include/cyg/io/framebufs
if { ! [file exists $dir] } {
file mkdir $dir
}
if { ! [file isdirectory $dir] } {
puts stderr "gen_framebufs.tcl: strange build tree, $dir should be a directory"
exit 1
}
set framebufs_file [file join $dir "framebufs.h"]
set current_data ""
if { [file exists $framebufs_file] } {
set fd [open $framebufs_file "r"]
set current_data [read $fd]
close $fd
}
set headers [lsort [glob -nocomplain [file join $dir "*.h*"]]]
set new_data \
"\#ifndef CYGONCE_IO_FRAMEBUFS_FRAMEBUFS_H
# define CYGONCE_IO_FRAMEBUFS_FRAMEBUFS_H
/* This is a generated file - do not edit! */
/* <cyg/io/framebufs/framebufs.h> should not be #include'd */
/* directly, instead use <cyg/io/framebuf.h> */
"
foreach header $headers {
set header [file tail $header]
if { [string equal "framebufs.h" $header] } {
continue
}
append new_data "#include <cyg/io/framebufs/[set header]>\n"
}
# Next, work out the default test device. We need to read pkgconf/io_framebuf.h,
# look for CYGDAT_IO_FRAMEBUF_DEVICES, and extract the first entry.
set pkgconf_file [file join $dir "../../../pkgconf/io_framebuf.h"]
if { ! [file exists $pkgconf_file] || ! [file readable $pkgconf_file] } {
puts stderr "gen_framebufs.tcl: strange build tree, no access to $pkgconf_file"
exit 1
}
set fd [open $pkgconf_file "r"]
while { ! [eof $fd] } {
set line [gets $fd]
if { [regexp {^#define\s*CYGDAT_IO_FRAMEBUF_DEVICES\s*(\S*)\s+.*$} $line junk fb] } {
append new_data "#define CYGDAT_IO_FRAMEBUF_DEFAULT_TEST_DEVICE $fb\n"
break
}
}
# Close the #ifndef CYGONCE_
append new_data "#endif\n"
if { ! [string equal $current_data $new_data] } {
set fd [open $framebufs_file "w"]
puts -nonewline $fd $new_data
close $fd
}
}
if { 0 == $::argc } {
puts stderr "gen_framebufs.tcl: missing argument for install directory"
exit 1
}
if { [catch { do_it [lindex $::argv 0] } msg] } {
puts stderr "gen_framebufs.tcl: internal error"
puts stderr " $msg"
exit 1
}
exit 0
|
