[Gd-chatter] r10996 - in trunk/fundev/sources: dfmc/c-linker dfmc/c-run-time environment/dfmc/projects

[rayiner at gwydiondylan.org]

Author: rayiner
Date: Mon Nov 27 20:26:49 2006
New Revision: 10996

Modified:
   trunk/fundev/sources/dfmc/c-linker/c-link-object.dylan
   trunk/fundev/sources/dfmc/c-linker/c-linker.dylan
   trunk/fundev/sources/dfmc/c-run-time/c-linux-build.jam
   trunk/fundev/sources/environment/dfmc/projects/library.dylan
Log:
Job: fd
- Replace tabs with spaces in some files


Modified: trunk/fundev/sources/dfmc/c-linker/c-link-object.dylan
==============================================================================
--- trunk/fundev/sources/dfmc/c-linker/c-link-object.dylan	(original)
+++ trunk/fundev/sources/dfmc/c-linker/c-link-object.dylan	Mon Nov 27 20:26:49 2006
@@ -51,14 +51,14 @@
     (back-end :: <c-back-end>, stream :: <stream>, o) => ()
   unless (o.direct-object?)
     if (o.model-definition 
-		 | instance?(o, <&mm-wrapper>)
-		 | instance?(o, <&singular-terminal-engine-node>))
-		write(stream, "extern ");
-	else
-		write(stream, "static ");
-	end;
-	emit-type-name(back-end, stream, o);
-   	format-emit*(back-end, stream, " ^;\n", o);
+        | instance?(o, <&mm-wrapper>)
+        | instance?(o, <&singular-terminal-engine-node>))
+      write(stream, "extern ");
+    else
+      write(stream, "static ");
+    end;
+    emit-type-name(back-end, stream, o);
+    format-emit*(back-end, stream, " ^;\n", o);
   end unless;
 end method;
 
@@ -70,8 +70,8 @@
   // are never referred to by name, hence no need for a forward declaration.
   unless (o.direct-object?)
     unless (o.model-definition 
-	      | instance?(o, <&mm-wrapper>)
-	      | instance?(o, <&singular-terminal-engine-node>)) 
+            | instance?(o, <&mm-wrapper>)
+            | instance?(o, <&singular-terminal-engine-node>)) 
       write(stream, "static ");
     end;
     emit-type-name(back-end, stream, o);

Modified: trunk/fundev/sources/dfmc/c-linker/c-linker.dylan
==============================================================================
--- trunk/fundev/sources/dfmc/c-linker/c-linker.dylan	(original)
+++ trunk/fundev/sources/dfmc/c-linker/c-linker.dylan	Mon Nov 27 20:26:49 2006
@@ -10,8 +10,7 @@
 /// define class <c-linker> (<linker>) end;
 
 define function c-output-basename (basename :: <string>) => (c-basename)
-  //concatenate(basename, "")
-	basename
+  basename
 end function;
 
 // DRIVER PROTOCOL FUNCTIONS

Modified: trunk/fundev/sources/dfmc/c-run-time/c-linux-build.jam
==============================================================================
--- trunk/fundev/sources/dfmc/c-run-time/c-linux-build.jam	(original)
+++ trunk/fundev/sources/dfmc/c-run-time/c-linux-build.jam	Mon Nov 27 20:26:49 2006
@@ -2,15 +2,15 @@
 # Configuration variables
 #
 
-CC	?= gcc ;
+CC     ?= gcc ;
 
-MKF	?= dylanmakefile.mkf ;
+MKF    ?= dylanmakefile.mkf ;
 
-SUFOBJ	?= .o ;			# object files suffix
-SUFASM	?= .s ;			# assembly source files suffix
-SUFLIB	?= .a ;			# static library suffix
-SUFDLL	?= .so ;		# shared library suffix
-SUFMKF	?= .mkf ;               # build-system files
+SUFOBJ ?= .o ;    # object files suffix
+SUFASM ?= .s ;    # assembly source files suffix
+SUFLIB ?= .a ;    # static library suffix
+SUFDLL ?= .so ;   # shared library suffix
+SUFMKF ?= .mkf ;  # build-system files
 
 {
   local _lib = lib ;
@@ -201,9 +201,9 @@
       case -L* : LINKLIBS on $(_dll) += $(lib) ;
       case -l* : LINKLIBS on $(_dll) += $(lib) ;
       case *.a : lib = [ FGristFiles $(lib) ] ;
-		 SEARCH on $(lib) = $(SEARCH_SOURCE) ;
-		 Depends $(_dll) : $(lib) ;
-		 NEEDLIBS on $(_dll) += $(lib) ;
+        SEARCH on $(lib) = $(SEARCH_SOURCE) ;
+        Depends $(_dll) : $(lib) ;
+        NEEDLIBS on $(_dll) += $(lib) ;
       case * :   Exit Unknown C library $(lib) ;
     }
   }
@@ -299,11 +299,11 @@
 
       local LIBDIR BINDIR ;
       {
-	local _lib = lib ;
-	local _bin = bin ;
+        local _lib = lib ;
+        local _bin = bin ;
 
-	LIBDIR = $(_lib:P=$(PERSONAL_ROOT:E=$(LOCATE_TARGET:P))) ;
-	BINDIR = $(_bin:P=$(PERSONAL_ROOT:E=$(LOCATE_TARGET:P))) ;
+        LIBDIR = $(_lib:P=$(PERSONAL_ROOT:E=$(LOCATE_TARGET:P))) ;
+        BINDIR = $(_bin:P=$(PERSONAL_ROOT:E=$(LOCATE_TARGET:P))) ;
       }
 
       local _mkf = $(MKF:G=$(library:L)) ;

Modified: trunk/fundev/sources/environment/dfmc/projects/library.dylan
==============================================================================
--- trunk/fundev/sources/environment/dfmc/projects/library.dylan	(original)
+++ trunk/fundev/sources/environment/dfmc/projects/library.dylan	Mon Nov 27 20:26:49 2006
@@ -54,9 +54,9 @@
               project-major-version-setter => env/project-major-version-setter,
               project-minor-version => env/project-minor-version,
               project-minor-version-setter => env/project-minor-version-setter,
-          session-property => env/session-property,
-              session-property-setter => env/session-property-setter,
-	      project-read-only? => env/project-read-only? };
+              session-property => env/session-property,
+                session-property-setter => env/session-property-setter,
+              project-read-only? => env/project-read-only? };
   use dfmc-environment-database;
 
   use project-manager-interface,