Merge branch 'master' of ted.mutabah.net:acess2
[tpg/acess2.git] / KernelLand / Modules / Filesystems / InitRD / GenerateInitRD.php
1 <?php
2 $lGenDate = date("Y-m-d H:i");
3 $gOutput = <<<EOF
4 /*
5  * Acess2 InitRD
6  * InitRD Data
7  * Generated $lGenDate
8  */
9 #include "initrd.h"
10
11 EOF;
12
13 $ACESSDIR = getenv("ACESSDIR");
14 $ARCH = getenv("ARCH");
15
16 $gInputFile = $argv[1];
17 $gOutputFile = $argv[2];
18 $gOutputLDOptsFile = $argv[3];
19 $gDepFile = ($argc > 4 ? $argv[4] : false);
20
21 $gDependencies = array();
22
23 $lines = file($argv[1]);
24
25 $lDepth = 0;
26 $lTree = array();
27 $lStack = array( array("",array()) );
28 foreach($lines as $line)
29 {
30         $line = trim($line);
31         if($line[0] == "#")     continue;
32         // Directory
33         if(preg_match('/^Dir\s+"([^"]+)"\s+{$/', $line, $matches))
34         {
35                 $new = array($matches[1], array());
36                 array_push($lStack, $new);
37                 $lDepth ++;
38                 continue;
39         }
40         // End of a block
41         if($line == "}")
42         {
43                 $lDepth --;
44                 $lStack[$lDepth][1][] = array_pop($lStack);
45                 continue;
46         }
47         // File
48         if(preg_match('/^File\s+"([^"]+)"\s+"([^"]+)"$/', $line, $matches))
49         {
50                 $lStack[$lDepth][1][] = array($matches[1], $matches[2]);
51                 continue;
52         }
53         echo "ERROR: $line\n";
54         exit(0);
55 }
56
57 function hd($fp)
58 {
59         //return "0x".str_pad( dechex(ord(fgetc($fp))), 8, "0", STR_PAD_LEFT );
60         $val = unpack("I", fread($fp, 4));
61         //print_r($val);        exit -1;
62         return "0x".dechex($val[1]);
63 }
64
65 function hd8($fp)
66 {
67         return "0x".str_pad( dechex(ord(fgetc($fp))), 2, "0", STR_PAD_LEFT );
68 }
69
70 $inode = 0;
71 $gSymFiles = array();
72 function ProcessFolder($prefix, $items)
73 {
74         global  $gOutput, $gDependencies;
75         global  $ACESSDIR, $ARCH;
76         global  $inode;
77         global  $gSymFiles;
78         foreach($items as $i=>$item)
79         {
80                 $inode ++;
81                 if(is_array($item[1]))
82                 {
83                         ProcessFolder("{$prefix}_{$i}", $item[1]);
84                         
85                         $gOutput .= "tInitRD_File {$prefix}_{$i}_entries[] = {\n";
86                         foreach($item[1] as $j=>$child)
87                         {
88                                 if($j)  $gOutput .= ",\n";
89                                 $gOutput .= "\t{\"".addslashes($child[0])."\",&{$prefix}_{$i}_{$j}}";
90                         }
91                         $gOutput .= "\n};\n";
92                         
93                         $size = count($item[1]);
94                         $gOutput .= <<<EOF
95 tVFS_Node {$prefix}_{$i} = {
96         .NumACLs = 1,
97         .ACLs = &gVFS_ACL_EveryoneRX,
98         .Flags = VFS_FFLAG_DIRECTORY,
99         .Size = $size,
100         .Inode = {$inode},
101         .ImplPtr = {$prefix}_{$i}_entries,
102         .Type = &gInitRD_DirType
103 };
104
105 EOF;
106                 }
107                 else
108                 {
109                         $path = $item[1];
110                         
111                         // Parse path components
112                         $path = str_replace("__BIN__", "$ACESSDIR/Usermode/Output/$ARCH", $path);
113                         $path = str_replace("__FS__", "$ACESSDIR/Usermode/Filesystem", $path);
114                         $path = str_replace("__SRC__", "$ACESSDIR", $path);
115                         echo $path,"\n";
116                         // ---
117                         
118                         $gDependencies[] = $path;
119
120                         if(!file_exists($path)) {
121                                 echo "ERROR: '{$path}' does not exist\n", 
122                                 exit(1);
123                         }
124                         $size = filesize($path);
125         
126 /*              
127                         $_sym = $prefix."_".$i."_data";
128                         $fp = fopen($path, "rb");
129                         
130                         $gOutput .= "Uint8 $_sym[] = {\n";
131                         for( $j = 0; $j + 16 < $size; $j += 16 ) {
132                                 $gOutput .= "\t";
133                                 $gOutput .= hd8($fp).",".hd8($fp).",";
134                                 $gOutput .= hd8($fp).",".hd8($fp).",";
135                                 $gOutput .= hd8($fp).",".hd8($fp).",";
136                                 $gOutput .= hd8($fp).",".hd8($fp).",";
137                                 $gOutput .= hd8($fp).",".hd8($fp).",";
138                                 $gOutput .= hd8($fp).",".hd8($fp).",";
139                                 $gOutput .= hd8($fp).",".hd8($fp).",";
140                                 $gOutput .= hd8($fp).",".hd8($fp).",\n";
141                         }
142                         $gOutput .= "\t";
143                         for( ; $j < $size; $j ++ ) {
144                                 if( $j & 15 )   $gOutput .= ",";
145                                 $gOutput .= hd8($fp);
146                         }
147                         fclose($fp);
148                         $gOutput .= "\n};\n";
149 */
150                         
151 //*
152                         $_sym = "_binary_".str_replace(array("/","-","."), "_", $path)."_start";
153                         $gOutput .= "extern Uint8 {$_sym}[];";
154                         $gSymFiles[] = $path;
155 //*/
156                         $gOutput .= <<<EOF
157 tVFS_Node {$prefix}_{$i} = {
158         .NumACLs = 1,
159         .ACLs = &gVFS_ACL_EveryoneRX,
160         .Flags = 0,
161         .Size = $size,
162         .Inode = {$inode},
163         .ImplPtr = $_sym,
164         .Type = &gInitRD_FileType
165 };
166
167 EOF;
168                 }
169         }
170 }
171
172 //print_r($lStack);
173 //exit(1);
174
175 ProcessFolder("gInitRD_Files", $lStack[0][1]);
176
177 $gOutput .= "tInitRD_File gInitRD_Root_Files[] = {\n";
178 foreach($lStack[0][1] as $j=>$child)
179 {
180         if($j)  $gOutput .= ",\n";
181         $gOutput .= "\t{\"".addslashes($child[0])."\",&gInitRD_Files_{$j}}";
182 }
183 $gOutput .= "\n};\n";
184 $nRootFiles = count($lStack[0][1]);
185 $gOutput .= <<<EOF
186 tVFS_Node gInitRD_RootNode = {
187         .NumACLs = 1,
188         .ACLs = &gVFS_ACL_EveryoneRX,
189         .Flags = VFS_FFLAG_DIRECTORY,
190         .Size = $nRootFiles,
191         .ImplPtr = gInitRD_Root_Files,
192         .Type = &gInitRD_DirType
193 };
194 EOF;
195
196 $gOutput .= <<<EOF
197
198 tVFS_Node * const gInitRD_FileList[] = {
199 &gInitRD_RootNode
200 EOF;
201
202 function PutNodePointers($prefix, $items)
203 {
204         global $gOutput;
205         foreach($items as $i=>$item)
206         {
207                 $gOutput .= ",&{$prefix}_{$i}";
208                 if(is_array($item[1]))
209                 {
210                         PutNodePointers("{$prefix}_{$i}", $item[1]);
211                 }
212         }
213 }
214
215 PutNodePointers("gInitRD_Files", $lStack[0][1]);
216
217 $gOutput .= <<<EOF
218 };
219 const int giInitRD_NumFiles = sizeof(gInitRD_FileList)/sizeof(gInitRD_FileList[0]);
220
221 EOF;
222
223
224 $fp = fopen($gOutputFile, "w");
225 fputs($fp, $gOutput);
226 fclose($fp);
227
228 // - Create options call
229 $fp = fopen($gOutputLDOptsFile, "w");
230 fputs($fp, "--format binary\n");
231 foreach($gSymFiles as $sym=>$file)
232 {
233         fputs($fp, "$file\n");
234 //      fputs($fp, "--defsym $sym=_binary_".$sym_filename."_start\n");
235 }
236 fclose($fp);
237
238 if($gDepFile !== false)
239 {
240         $fp = fopen($gDepFile, "w");
241         $line = $gOutputFile.":\t".implode(" ", $gDependencies);
242         fputs($fp, $line);
243         fclose($fp);
244 }
245
246 ?>

UCC git Repository :: git.ucc.asn.au