![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to nvram.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / admin|
Return to nvram.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / admin |
1.1 root 1: \ tag: nvram config handling
2: \
3: \ this code implements IEEE 1275-1994
4: \
5: \ Copyright (C) 2003, 2004 Samuel Rydh
6: \
7: \ See the file "COPYING" for further information about
8: \ the copyright and warranty status of this work.
9: \
10:
11: struct ( config )
12: 2 cells field >cf.name
13: 2 cells field >cf.default \ 0 -1 if no default
14: /n field >cf.check-xt
15: /n field >cf.exec-xt
16: /n field >cf.next
17: constant config-info.size
18:
19: 0 value config-root
20:
21: \ --------------------------------------------------------
22: \ config handling
23: \ --------------------------------------------------------
24:
25: : find-config ( name-str len -- 0|configptr )
26: config-root
27: begin ?dup while
28: -rot
29: 2dup 4 pick >cf.name 2@
30: strcmp 0= if
31: 2drop exit
32: then
33: rot >cf.next @
34: repeat
35: 2drop 0
36: ;
37:
38: : is-config-word ( configp -- )
39: dup >cf.name 2@ $create ,
40: does> @
41: dup >cf.name 2@
42: s" /options" find-dev if
43: get-package-property if 0 -1 then
44: ( configp prop-str prop-len )
45: \ drop trailing zero
46: ?dup if 1- then
47: else
48: 2drop 0 -1
49: then
50: \ use default value if property is missing
51: dup 0< if 2drop dup >cf.default 2@ then
52: \ no default value, use empty string
53: dup 0< if 2drop 0 0 then
54:
55: rot >cf.exec-xt @ execute
56: ;
57:
58: : new-config ( name-str name-len -- configp )
59: 2dup find-config ?dup if
60: nip nip
61: 0 0 2 pick >cf.default 2!
62: else
63: dict-strdup
64: here config-info.size allot
65: dup config-info.size 0 fill
66: config-root over >cf.next !
67: dup to config-root
68: dup >r >cf.name 2! r>
69: dup is-config-word
70: then
71: ( configp )
72: ;
73:
74: : config-default ( str len configp -- )
75: -rot
76: dup 0> if dict-strdup then
77: rot >cf.default 2!
78: ;
79:
80: : no-conf-def ( configp -- )
81: 0 -1
82: ;
83:
84: \ --------------------------------------------------------
85: \ config types
86: \ --------------------------------------------------------
87:
88: : exec-str-conf ( str len -- str len )
89: \ trivial
90: ;
91: : check-str-conf ( str len -- str len valid? )
92: \ nothing
93: true
94: ;
95:
96: : str-config ( def-str len name len -- configp )
97: new-config >r
98: ['] exec-str-conf r@ >cf.exec-xt !
99: ['] check-str-conf r@ >cf.check-xt !
100: r> config-default
101: ;
102:
103: \ ------------------------------------------------------------
104:
105: : exec-int-conf ( str len -- value )
106: \ fixme
107: parse-hex
108: ;
109: : check-int-conf ( str len -- str len valid? )
110: true
111: ;
112:
113: : int-config ( def-str len name len -- configp )
114: new-config >r
115: ['] exec-int-conf r@ >cf.exec-xt !
116: ['] check-int-conf r@ >cf.check-xt !
117: r> config-default
118: ;
119:
120: \ ------------------------------------------------------------
121:
122: : exec-secmode-conf ( str len -- n )
123: 2dup s" command" strcmp 0= if 2drop 1 exit then
124: 2dup s" full" strcmp 0= if 2drop 2 exit then
125: 2drop 0
126: ;
127: : check-secmode-conf ( str len -- str len valid? )
128: 2dup s" none" strcmp 0= if true exit then
129: 2dup s" command" strcmp 0= if true exit then
130: 2dup s" full" strcmp 0= if true exit then
131: false
132: ;
133:
134: : secmode-config ( def-str len name len -- configp )
135: new-config >r
136: ['] exec-secmode-conf r@ >cf.exec-xt !
137: ['] check-secmode-conf r@ >cf.check-xt !
138: r> config-default
139: ;
140:
141: \ ------------------------------------------------------------
142:
143: : exec-bool-conf ( str len -- value )
144: 2dup s" true" strcmp 0= if 2drop true exit then
145: 2dup s" false" strcmp 0= if 2drop false exit then
146: 2dup s" TRUE" strcmp 0= if 2drop false exit then
147: 2dup s" FALSE" strcmp 0= if 2drop false exit then
148: parse-hex 0<>
149: ;
150:
151: : check-bool-conf ( name len -- str len valid? )
152: 2dup s" true" strcmp 0= if true exit then
153: 2dup s" false" strcmp 0= if true exit then
154: 2dup s" TRUE" strcmp 0= if 2drop s" true" true exit then
155: 2dup s" FALSE" strcmp 0= if 2drop s" false" true exit then
156: false
157: ;
158:
159: : bool-config ( configp -- configp )
160: new-config >r
161: ['] exec-bool-conf r@ >cf.exec-xt !
162: ['] check-bool-conf r@ >cf.check-xt !
163: r> config-default
164: ;
165:
166:
167: \ --------------------------------------------------------
168: \ 7.4.4 Nonvolatile memory
169: \ --------------------------------------------------------
170:
171: : $setenv ( data-addr data-len name-str name-len -- )
172: 2dup find-config ?dup if
173: >r 2swap r>
174: ( name len data len configptr )
175: >cf.check-xt @ execute
176: 0= abort" Invalid value."
177: 2swap
178: else
179: \ create string config type
180: 2dup no-conf-def 2swap str-config
181: then
182:
183: 2swap encode-string 2swap
184: s" /options" find-package drop
185: encode-property
186: ;
187:
188: : setenv ( "nv-param< >new-value<eol>" -- )
189: parse-word
190: \ XXX drop blanks
191: dup if linefeed parse else 0 0 then
192:
193: dup 0= abort" Invalid value."
194: 2swap $setenv
195: ;
196:
197: : printenv ( "{param-name}<eol>" -- )
198: \ XXX temporary implementation
199: linefeed parse 2drop
200:
201: active-package
202: s" /options" find-device
203: .properties
204: active-package!
205: ;
206:
207: : (set-default) ( configptr -- )
208: dup >cf.default 2@ dup 0>= if
209: rot >cf.name 2@ $setenv
210: else
211: \ no default value
212: 3drop
213: then
214: ;
215:
216: : set-default ( "param-name<eol>" -- )
217: linefeed parse
218: find-config ?dup if
219: (set-default)
220: else
221: ." No such parameter." -2 throw
222: then
223: ;
224:
225: : set-defaults ( -- )
226: config-root
227: begin ?dup while
228: dup (set-default)
229: >cf.next @
230: repeat
231: ;
232:
233: ( maxlen "new-name< >" -- ) ( E: -- addr len )
234: : nodefault-bytes
235: ;
236:
237:
238: \ --------------------------------------------------------
239: \ initialize config from nvram
240: \ --------------------------------------------------------
241:
242: \ CHRP format (array of null-terminated strings, "variable=value")
243: : nvram-load-configs ( data len -- )
244: \ XXX: no len checking performed...
245: drop
246: begin dup c@ while
247: ( data )
248: dup cstrlen 2dup + 1+ -rot
249: ( next str len )
250: ascii = left-split ( next val len name str )
251: ['] $setenv catch if
252: 2drop 2drop
253: then
254: repeat drop
255: ;
256:
257: : (nvram-store-one) ( buf len str len -- buf len success? )
258: swap >r
259: 2dup < if r> 2drop 2drop false exit then
260: ( buf len strlen R: str )
261: swap over - r> swap >r -rot
262: ( str buf strlen R: res_len )
263: 2dup + >r move r> r> true
264: ;
265:
266: : (make-configstr) ( configptr ph -- str len )
267: >r
268: >cf.name 2@
269: 2dup r> get-package-property if
270: 2drop 0 0 exit
271: else
272: dup if 1- then
273: then
274: ( name len value-str len )
275: 2swap s" =" 2swap
276: pocket tmpstrcat tmpstrcat drop
277: 2dup + 0 swap c!
278: 1+
279: ;
280:
281: : nvram-store-configs ( data len -- )
282: 2 - \ make room for two trailing zeros
283:
284: s" /options" find-dev 0= if 2drop exit then
285: >r
286: config-root
287: ( data len configptr R: phandle )
288: begin ?dup while
289: r@ over >r (make-configstr)
290: ( buf len val len R: configptr phandle )
291: (nvram-store-one) drop
292: r> >cf.next @
293: repeat
294: \ null terminate
295: 2 + 0 fill
296: r> drop
297: ;
298:
299:
300: \ --------------------------------------------------------
301: \ NVRAM variables
302: \ --------------------------------------------------------
303: \ fcode-debug? input-device output-device
304: s" true" s" auto-boot?" bool-config \ 7.4.3.5
305: s" boot" s" boot-command" str-config \ 7.4.3.5
306: s" " s" boot-file" str-config \ 7.4.3.5
307: s" false" s" diag-switch?" bool-config \ 7.4.3.5
308: no-conf-def s" diag-device" str-config \ 7.4.3.5
309: no-conf-def s" diag-file" str-config \ 7.4.3.5
310: s" false" s" fcode-debug?" bool-config \ 7.7
311: s" " s" nvramrc" str-config \ 7.4.4.2
312: s" false" s" oem-banner?" bool-config
313: s" " s" oem-banner" str-config
314: s" false" s" oem-logo?" bool-config
315: no-conf-def s" oem-logo" str-config
316: s" false" s" use-nvramrc?" bool-config \ 7.4.4.2
317: s" keyboard" s" input-device" str-config \ 7.4.5
318: s" screen" s" output-device" str-config \ 7.4.5
319: s" 80" s" screen-#columns" int-config \ 7.4.5
320: s" 24" s" screen-#rows" int-config \ 7.4.5
321: s" 0" s" selftest-#megs" int-config
322: no-conf-def s" security-mode" secmode-config
323:
324: \ --- devices ---
325: s" -1" s" pci-probe-mask" int-config
326: s" false" s" default-mac-address" bool-config
327: s" false" s" skip-netboot?" bool-config
328: s" true" s" scroll-lock" bool-config
329:
330: [IFDEF] CONFIG_PPC
331: \ ---- PPC ----
332: s" false" s" little-endian?" bool-config
333: s" false" s" real-mode?" bool-config
334: s" -1" s" real-base" int-config
335: s" -1" s" real-size" int-config
336: s" 4000000" s" load-base" int-config
337: s" -1" s" virt-base" int-config
338: s" -1" s" virt-size" int-config
339: [THEN]
340:
341: [IFDEF] CONFIG_X86
342: \ ---- X86 ----
343: s" true" s" little-endian?" bool-config
344: [THEN]
345:
346: [IFDEF] CONFIG_SPARC32
347: \ ---- SPARC32 ----
348: s" 4000" s" load-base" int-config
349: s" true" s" tpe-link-test?" bool-config
350: s" 9600,8,n,1,-" s" ttya-mode" str-config
351: s" true" s" ttya-ignore-cd" bool-config
352: s" false" s" ttya-rts-dtr-off" bool-config
353: s" 9600,8,n,1,-" s" ttyb-mode" str-config
354: s" true" s" ttyb-ignore-cd" bool-config
355: s" false" s" ttyb-rts-dtr-off" bool-config
356: [THEN]
357:
358: [IFDEF] CONFIG_SPARC64
359: \ ---- SPARC64 ----
360: s" 4000" s" load-base" int-config
361: s" false" s" little-endian?" bool-config
362: [THEN]
363:
364: \ --- ??? ---
365: s" " s" boot-screen" str-config
366: s" " s" boot-script" str-config
367: s" false" s" use-generic?" bool-config
368: s" disk" s" boot-device" str-config \ 7.4.3.5
369: s" " s" boot-args" str-config \ ???
370:
371: \ defers
372: ['] fcode-debug? to _fcode-debug?
373: ['] diag-switch? to _diag-switch?
374:
375: \ Hack for load-base: it seems that some Sun bootloaders try
376: \ and execute "<value> to load-base" which will only work if
377: \ load-base is value. Hence we redefine load-base here as a
378: \ value using its normal default.
379: [IFDEF] CONFIG_SPARC64
380: load-base value load-base
381: [THEN]
382:
383: : release-load-area
384: drop
385: ;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.