[SLOF] [PATCH RFC v0 1/3] Improve indentation in OF.fs
Nikunj A Dadhania
nikunj at linux.vnet.ibm.com
Mon Oct 10 03:09:49 AEDT 2016
Make uniform indentation(width = 4) everywhere in the file.
Signed-off-by: Nikunj A Dadhania <nikunj at linux.vnet.ibm.com>
---
board-qemu/slof/OF.fs | 112 +++++++++++++++++++++++++-------------------------
1 file changed, 56 insertions(+), 56 deletions(-)
diff --git a/board-qemu/slof/OF.fs b/board-qemu/slof/OF.fs
index 5a4368f..7566c8b 100644
--- a/board-qemu/slof/OF.fs
+++ b/board-qemu/slof/OF.fs
@@ -116,12 +116,12 @@ d# 512000000 VALUE tb-frequency \ default value - needed for "ms" to work
370 cp
: check-boot-menu
- s" qemu,boot-menu" get-chosen IF
- decode-int 1 = IF
- ." Press F12 for boot menu." cr cr
- THEN
- 2drop
- THEN
+ s" qemu,boot-menu" get-chosen IF
+ decode-int 1 = IF
+ ." Press F12 for boot menu." cr cr
+ THEN
+ 2drop
+ THEN
;
check-boot-menu
@@ -170,30 +170,30 @@ CREATE version-str 10 ALLOT
" Press 's' to enter Open Firmware." terminal-write drop
cr cr
temp-ptr disp-size > IF
- temp-ptr disp-size MOD
- dup
- prevga-disp-buf + swap disp-size swap - terminal-write drop
- temp-ptr disp-size MOD
- prevga-disp-buf swap 1 - terminal-write drop
+ temp-ptr disp-size MOD
+ dup
+ prevga-disp-buf + swap disp-size swap - terminal-write drop
+ temp-ptr disp-size MOD
+ prevga-disp-buf swap 1 - terminal-write drop
ELSE
- prevga-disp-buf temp-ptr terminal-write drop
+ prevga-disp-buf temp-ptr terminal-write drop
THEN
;
: enable-framebuffer-output ( -- )
-\ enable output on framebuffer
- s" screen" find-alias ?dup IF
- \ we need to open/close the screen device once
- \ before "ticking" display-emit to emit
- open-dev close-node
- false to store-prevga?
- s" display-emit" $find IF
- to emit
- dump-display-buffer
- ELSE
- 2drop
- THEN
- THEN
+ \ enable output on framebuffer
+ s" screen" find-alias ?dup IF
+ \ we need to open/close the screen device once
+ \ before "ticking" display-emit to emit
+ open-dev close-node
+ false to store-prevga?
+ s" display-emit" $find IF
+ to emit
+ dump-display-buffer
+ ELSE
+ 2drop
+ THEN
+ THEN
;
enable-framebuffer-output
@@ -220,24 +220,24 @@ romfs-base 400000 0 ' claim CATCH IF ." claim failed!" cr 2drop THEN drop
." No console specified "
" screen" find-alias dup IF nip THEN
" keyboard" find-alias dup IF nip THEN
- AND IF
- ." using screen & keyboard" cr
- " screen" output
- " keyboard" input
- ELSE
- " hvterm" find-alias IF
- drop
- ." using hvterm" cr
- " hvterm" io
- ELSE
- " /openprom" find-node ?dup IF
- set-node
- ." and no default found, creating dev-null" cr
- " dev-null.fs" included
- " devnull-console" io
- 0 set-node
- THEN
- THEN
+ AND IF
+ ." using screen & keyboard" cr
+ " screen" output
+ " keyboard" input
+ ELSE
+ " hvterm" find-alias IF
+ drop
+ ." using hvterm" cr
+ " hvterm" io
+ ELSE
+ " /openprom" find-node ?dup IF
+ set-node
+ ." and no default found, creating dev-null" cr
+ " dev-null.fs" included
+ " devnull-console" io
+ 0 set-node
+ THEN
+ THEN
THEN
THEN
;
@@ -254,10 +254,10 @@ set-default-console
: (boot-ram)
direct-ram-boot-size 0<> IF
." Booting from memory..." cr
- s" go-args 2@ " evaluate
- direct-ram-boot-base 0
- s" true state-valid ! " evaluate
- s" disable-watchdog go-64" evaluate
+ s" go-args 2@ " evaluate
+ direct-ram-boot-base 0
+ s" true state-valid ! " evaluate
+ s" disable-watchdog go-64" evaluate
THEN
;
@@ -266,15 +266,15 @@ set-default-console
: check-boot-from-ram
s" qemu,boot-kernel" get-chosen IF
decode-int -rot decode-int -rot ( n1 n2 p s )
- decode-int -rot decode-int -rot ( n1 n2 n3 n4 p s )
- 2drop
- swap 20 << or to direct-ram-boot-size
- swap 20 << or to direct-ram-boot-base
- ." Detected RAM kernel at " direct-ram-boot-base .
- ." (" direct-ram-boot-size . ." bytes) "
- \ Override the boot-command word without touching the
- \ nvram environment
- s" boot-command" $create " (boot-ram)" env-string
+ decode-int -rot decode-int -rot ( n1 n2 n3 n4 p s )
+ 2drop
+ swap 20 << or to direct-ram-boot-size
+ swap 20 << or to direct-ram-boot-base
+ ." Detected RAM kernel at " direct-ram-boot-base .
+ ." (" direct-ram-boot-size . ." bytes) "
+ \ Override the boot-command word without touching the
+ \ nvram environment
+ s" boot-command" $create " (boot-ram)" env-string
THEN
;
check-boot-from-ram
--
2.7.4
More information about the SLOF
mailing list