Cleanup of terminal stuff.

git-svn-id: https://spexeah.com:8443/svn/Asuro@237 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/kernel.pas

@@ -41,7 +41,7 @@ begin
    Terminal.run;
 end;
 
-procedure terminal_command_meminfo(buffer : TCommandBuffer);
+procedure terminal_command_meminfo(params : PParamList);
 begin
     console.writestring('Lower Memory = ');
     console.writeint(multibootinfo^.mem_lower);

src/scheduler.pas

@@ -80,7 +80,7 @@ begin
     end;
 end;
 
-procedure terminal_command_tasks(buffer : TCommandBuffer);
+procedure terminal_command_tasks(params : PParamList);
 var
     list : PScheduler_Entry;
 

src/strings.pas

@@ -119,7 +119,7 @@ end;
 
 function stringContains(str : pchar; sub : pchar) : boolean;
 begin
-    result:= false;    
+    stringContains:= false;    
 end;
 
 end.

src/terminal.pas

@@ -24,7 +24,7 @@ type
         Next  : PParamList;  
     end;
     TCommandBuffer = array[0..1023] of byte;
-    TCommandMethod = procedure(buf : TCommandBuffer);
+    TCommandMethod = procedure(params : PParamList);
     TCommand = record
         registered  : boolean;
         command     : pchar;
@@ -59,12 +59,7 @@ begin
     current^.Param:= nil;
     start:= 0;
     finish:= 0;
-    while (char(buf[finish]) <> ' ') and (buf[finish] <> 0) do begin
-        inc(finish);
-    end;
     while buf[start] <> 0 do begin
-        start:=finish+1;
-        inc(finish);
         while (char(buf[finish]) <> ' ') and (buf[finish] <> 0) do begin
             inc(finish);
         end;
@@ -79,46 +74,45 @@ begin
             current^.next:= nil;
             current^.Param:= nil;
         end; 
+        start:=finish+1;
+        inc(finish);     
     end;
     getParams:= root;
 end;
 
-procedure testParams(buffer : TCommandBuffer);
+procedure testParams(params : PParamList);
-var
-    params : PParamList;
-
 begin
-    params:= getParams(buffer);
     while params^.Param <> nil do begin
         writestringln(params^.Param);
         params:= params^.next;
     end;
 end;
 
-procedure echo(buffer : TCommandBuffer);
+procedure echo(params : PParamList);
 var
-    idx : uint32;
+    current : PParamList;
 
 begin
-    idx:= 5;
+    current:= params^.next;
-    while buffer[idx] <> 0 do begin
+    while current^.param <> nil do begin
-        console.writechar(char(buffer[idx]));
+        console.writestring(current^.param);
-        inc(idx);
+        console.writestring(' ');
+        current:= current^.next;
     end;
     console.writestringln('');
 end;
 
-procedure clear(buffer : TCommandBuffer);
+procedure clear(params : PParamList);
 begin
     console.clear();
 end;
 
-procedure version(buffer : TCommandBuffer);
+procedure version(params : PParamList);
 begin
     console.writestringln('Asuro v1.0');
 end;
 
-procedure help(buffer : TCommandBuffer);
+procedure help(params : PParamList);
 var
     i : uint32;
 begin
@@ -180,7 +174,9 @@ end;
 procedure process_command;
 var
     fallthrough : boolean;
+    params : PParamList;
     i : uint32;
+    next : PParamList;
 
 begin
     console.writecharln(' ');
@@ -189,7 +185,16 @@ begin
     for i:=0 to 65534 do begin
         if Commands[i].registered then begin
             if isCommand(Commands[i].command) then begin
-                Commands[i].method(buffer);
+                params:= getParams(buffer);
+                Commands[i].method(params);
+                params:= params;
+                next:= params^.next;
+                while params^.next <> nil do begin
+                    if params^.param <> nil then kfree(void(params^.param));
+                    kfree(void(params));
+                    params:= next;
+                    next:= params^.next;
+                end;
                 fallthrough:= false;
             end;
         end;