/* Copyright (C) 2005 David Decotigny
 
    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License
    as published by the Free Software Foundation; either version 2
    of the License, or (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
    
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
    USA. 
 */
 
 #include <libc.h>
 #include <stdarg.h>
 #include <debug.h>
 
 static unsigned rien[16384];
 
 
 /**
  * @file myprog7.c
  * Tests forks and make sure that private mappings (eg the '.data'
  * section of the program object file) are really private
  */
 
 
 static void assign(unsigned * addr, const unsigned val)
 {
   bochs_printf("[0x%x]=0x%x <- 0x%x\n", (unsigned)addr, *addr, val);
   *addr = val;
   bochs_printf(" ===> 0x%x\n", *addr);
 }
 
 
 int main()
 {
   int i, level;
   
   bochs_printf("myprog7: Hello\n");
 
   assign(& rien[0], 0x42);
   assign(& rien[1000], 0x42);
 
   level = 0;
   for (i = 0 ; i < 10 ; i++)
     {
       pid_t fork_status;
 
       fork_status = fork();
       if (fork_status == 0)
         {
           level ++;
           bochs_printf("myprog7: I am the child %d %d\n", level, i);
 
           assign(& rien[0], 0x0f<<24 | (level << 8) | i);
           assign(& rien[1000], 0x0a<<24 | (level << 8) | i);
 
           if ((i % 2) == 0)
             {
               char strprog[20];
               snprintf(strprog, sizeof(strprog), "myprog%d", i/2 + 1);
               exec(strprog);
             } 
         }
       else if (fork_status > 0)
         {
           bochs_printf("myprog7: I am the father %d %d\n", level, i);
 
           assign(& rien[0], 0x8f<<24 | (level << 8) | i);
           assign(& rien[1000], 0x8a<<24 | (level << 8) | i);
         }
       else
         bochs_printf("myprog7: fork error %d !\n", fork_status);
     }
 
   bochs_printf("myprog7: The end %d %d\n", level, i);
   assign(& rien[0], 0xff<<24 | (level << 8) | i);
   assign(& rien[1000], 0xfa<<24 | (level << 8) | i);
 
   return 0;
 }