gEDA-cvs: CVS update: gnetlist.c

[cvspsrv@xxxxxxxx]

  User: ahvezda 
  Date: 07/04/21 15:13:39

  Modified:    .        gnetlist.c
  Log:
  A bunch of work/changes to get "make distcheck" to work correctly (run all the 
  
  regression tests when doing check and distcheck)
  
  
  
  
  Revision  Changes    Path
  1.55      +18 -16    eda/geda/gaf/gnetlist/src/gnetlist.c
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: gnetlist.c
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gnetlist/src/gnetlist.c,v
  retrieving revision 1.54
  retrieving revision 1.55
  diff -u -b -r1.54 -r1.55
  --- gnetlist.c	10 Feb 2007 16:11:17 -0000	1.54
  +++ gnetlist.c	21 Apr 2007 19:13:39 -0000	1.55
  @@ -203,6 +203,23 @@
       	}
       }
   
  +    /* Load the first set of scm files before we load any schematic files */
  +    list_pnt = pre_backend_list;
  +    while (list_pnt) {
  +      if (g_read_file(list_pnt->data) != -1) {
  +        s_log_message("Read scm file [%s]\n", 
  +                      (char *) list_pnt->data);
  +      } else {
  +        s_log_message("Failed to read scm file [%s]\n", 
  +                      (char *) list_pnt->data);
  +        fprintf(stderr, "Failed to read scm file [%s]\n", 
  +                (char *) list_pnt->data);
  +      }
  +      list_pnt = g_slist_next(list_pnt);
  +    }
  +    /* Free now the list of configuration files */
  +    g_slist_free(pre_backend_list);
  +
       i = argv_index;
       while (argv[i] != NULL) {
         gchar *filename; 
  @@ -221,6 +238,7 @@
         }
   
         if (!quiet_mode) {
  +        s_log_message ("Loading schematic [%s]\n", filename);
           printf ("Loading schematic [%s]\n", filename);
         }
   
  @@ -279,22 +297,6 @@
   
   
   
  -    /* Load the first set of scm files */
  -    list_pnt = pre_backend_list;
  -    while (list_pnt) {
  -      if (g_read_file(list_pnt->data) != -1) {
  -        s_log_message("Read scm file [%s]\n", 
  -                      (char *) list_pnt->data);
  -      } else {
  -        s_log_message("Failed to read scm file [%s]\n", 
  -                      (char *) list_pnt->data);
  -        fprintf(stderr, "Failed to read scm file [%s]\n", 
  -                (char *) list_pnt->data);
  -      }
  -      list_pnt = g_slist_next(list_pnt);
  -    }
  -    /* Free now the list of configuration files */
  -    g_slist_free(pre_backend_list);
   
   
       if (guile_proc) {
  
  
  


_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs