lang/cem/ctest/ctmargt/margt.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5 char rcs_id[] = "$Id: margt.c,v 2.3 1994/06/24 12:09:29 ceriel Exp $" ;
   6
   7 main(argc,argv,envp) char **argv,**envp ; {
   8         register int rargc ;
   9
  10         rargc=argc ;
  11         printf("main called with argc = %d\n",argc) ;
  12         printf("Arguments:\n") ;
  13         while ( rargc-- ) {
  14                 printf("        %s\n",*argv++) ;
  15         }
  16         printf("Environment:\n") ;
  17         while ( *envp ) {
  18                 printf("        %s\n",*envp++) ;
  19         }
  20         return(argc-1) ;
  21 }