← Back to branch summary

~pmdj/ubuntu/trusty/qemu/2.9+applesmc+fadtv3

« back to all changes in this revision

Viewing changes to roms/SLOF/slof/fs/romfs.fs

  • Committer: Phil Dennis-Jordan
  • Date: 2017-07-21 08:03:43 UTC
  • mfrom: (1.1.1)
  • Revision ID: phil@philjordan.eu-20170721080343-2yr2vdj7713czahv
New upstream release 2.9.0.

Show diffs side-by-side

added added

removed removed

Lines of Context:
roms/SLOF/slof/fs/romfs.fs
 
1
\ *****************************************************************************
 
2
\ * Copyright (c) 2004, 2008 IBM Corporation
 
3
\ * All rights reserved.
 
4
\ * This program and the accompanying materials
 
5
\ * are made available under the terms of the BSD License
 
6
\ * which accompanies this distribution, and is available at
 
7
\ * http://www.opensource.org/licenses/bsd-license.php
 
8
\ *
 
9
\ * Contributors:
 
10
\ *     IBM Corporation - initial implementation
 
11
\ ****************************************************************************/
 
12
 
 
13
STRUCT
 
14
        cell field romfs>file-header
 
15
        cell field romfs>data
 
16
        cell field romfs>data-size
 
17
        cell field romfs>flags
 
18
 
 
19
CONSTANT /romfs-lookup-control-block
 
20
 
 
21
CREATE romfs-lookup-cb /romfs-lookup-control-block allot
 
22
romfs-lookup-cb /romfs-lookup-control-block erase
 
23
 
 
24
: create-filename ( string -- string\0 )
 
25
    here >r dup 8 + allot
 
26
    r@ over 8 + erase
 
27
    r@ zplace r> ;
 
28
 
 
29
: romfs-lookup ( fn-str fn-len -- data size | false )
 
30
    create-filename romfs-base
 
31
    romfs-lookup-cb romfs-lookup-entry call-c
 
32
    0= IF romfs-lookup-cb dup romfs>data @ swap romfs>data-size @ ELSE
 
33
    false THEN ;
 
34
 
 
35
: ibm,romfs-lookup ( fn-str fn-len -- data-high data-low size | 0 0 false )
 
36
  romfs-lookup dup
 
37
  0= if drop 0 0 false else
 
38
  swap dup 20 rshift swap ffffffff and then ;
 
39
 
 
40
\ FIXME For a short time ...
 
41
: romfs-lookup-client ibm,romfs-lookup ;
 
42
 
 
43
\ Fixme temp implementation
 
44
 
 
45
STRUCT
 
46
        cell field romfs>next-off
 
47
        cell field romfs>size
 
48
        cell field romfs>flags
 
49
        cell field romfs>data-off
 
50
        cell field romfs>name
 
51
 
 
52
CONSTANT /romfs-cb
 
53
 
 
54
: romfs-map-file ( fn-str fn-len -- file-addr file-size )
 
55
  romfs-base >r
 
56
  BEGIN 2dup r@ romfs>name zcount string=ci not WHILE
 
57
    ( fn-str fn-len ) ( R: rom-cb-file-addr )
 
58
    r> romfs>next-off dup @ dup 0= IF 1 THROW THEN + >r REPEAT
 
59
    ( fn-str fn-len ) ( R: rom-cb-file-addr )
 
60
    2drop r@ romfs>data-off @ r@ + r> romfs>size @ ;
 
61
 
 
62
\ returns address of romfs-header file
 
63
: flash-header ( -- address | false )
 
64
    get-flash-base 28 +         \ prepare flash header file address
 
65
    dup rx@                     \ fetch "magic123"
 
66
    6d61676963313233 <> IF      \ IF flash is not valid
 
67
       drop                     \ | forget address
 
68
       false                    \ | return false
 
69
    THEN                        \ FI
 
70
;
 
71
 
 
72
CREATE bdate-str 10 allot
 
73
: bdate2human ( -- addr len )
 
74
  flash-header 40 + rx@ (.)
 
75
  drop dup 0 + bdate-str 6 + 4 move
 
76
  dup 4 + bdate-str 0 + 2 move
 
77
  dup 6 + bdate-str 3 + 2 move
 
78
  dup 8 + bdate-str b + 2 move
 
79
  a + bdate-str e + 2 move
 
80
  2d bdate-str 2 + c!
 
81
  2d bdate-str 5 + c!
 
82
  20 bdate-str a + c!
 
83
  3a bdate-str d + c!
 
84
  bdate-str 10
 
85
;
 
86
 
 
87
 
 
88
\ Look up a file in the ROM file system and evaluate it
 
89
 
 
90
: included  ( fn fn-len -- )
 
91
   2dup >r >r romfs-lookup dup IF
 
92
      r> drop r> drop evaluate
 
93
   ELSE
 
94
      drop ." Cannot open file : " r> r> type cr
 
95
   THEN
 
96
;
 
97
 
 
98
: include  ( " fn " -- )
 
99
   parse-word included
 
100
;
 
101
 
 
102
: ?include  ( flag " fn " -- )
 
103
   parse-word rot IF included ELSE 2drop THEN
 
104
;
 
105
 
 
106
: include?  ( nargs flag " fn " -- )
 
107
   parse-word rot IF
 
108
      rot drop included
 
109
   ELSE
 
110
      2drop 0 ?DO drop LOOP
 
111
   THEN
 
112
;
 
113
 
 
114
 
 
115
\ List files in ROMfs
 
116
 
 
117
: (print-romfs-file-info)  ( file-addr -- )
 
118
   9 emit  dup b 0.r  2 spaces  dup 8 + @ 6 0.r  2 spaces  20 + zcount type cr
 
119
;
 
120
 
 
121
: romfs-list  ( -- )
 
122
   romfs-base 0 cr BEGIN + dup (print-romfs-file-info) dup @ dup 0= UNTIL 2drop
 
123
;