diff mbox

[RFC,v0,1/3] Improve indentation in OF.fs

Message ID 1476029391-26067-2-git-send-email-nikunj@linux.vnet.ibm.com
State Superseded
Headers show

Commit Message

Nikunj A Dadhania Oct. 9, 2016, 4:09 p.m. UTC
Make uniform indentation(width = 4) everywhere in the file.

Signed-off-by: Nikunj A Dadhania <nikunj@linux.vnet.ibm.com>
---
 board-qemu/slof/OF.fs | 112 +++++++++++++++++++++++++-------------------------
 1 file changed, 56 insertions(+), 56 deletions(-)

Comments

Alexey Kardashevskiy Oct. 10, 2016, 4:29 a.m. UTC | #1
On 10/10/16 03:09, Nikunj A Dadhania wrote:
> Make uniform indentation(width = 4) everywhere in the file.
> 
> Signed-off-by: Nikunj A Dadhania <nikunj@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

This chunk does not look like improvement.


> +                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
>
Nikunj A Dadhania Oct. 10, 2016, 5:13 a.m. UTC | #2
Alexey Kardashevskiy <aik@ozlabs.ru> writes:

> On 10/10/16 03:09, Nikunj A Dadhania wrote:
>> Make uniform indentation(width = 4) everywhere in the file.
>> 
>> Signed-off-by: Nikunj A Dadhania <nikunj@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
>
> This chunk does not look like improvement.

Is indentation broken still?

Regards
Nikunj
diff mbox

Patch

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