/[gcl]/gcl/o/pathname.d
ViewVC logotype

Diff of /gcl/o/pathname.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Sat Jul 20 07:10:56 2002 UTC revision 1.5 by camm, Fri Aug 9 05:49:32 2002 UTC
# Line 306  object path, defaults, default_version; Line 306  object path, defaults, default_version;
306                          device = default_device(path->pn.pn_host);                          device = default_device(path->pn.pn_host);
307          else          else
308                  device = path->pn.pn_device;                  device = path->pn.pn_device;
309    
310            if (defaults->pn.pn_directory==Cnil ||
311               (type_of(path->pn.pn_directory)==t_cons
312                && path->pn.pn_directory->c.c_car==sKroot))
313                    directory=path->pn.pn_directory;
314            else {
315                    object t,t1;
316    
317                    directory=defaults->pn.pn_directory;
318                    if (type_of(directory)==t_cons) {
319                            for (t1=directory,t=t1->c.c_cdr;t!=Cnil;t1=t,t=t->c.c_cdr);
320                            t1->c.c_cdr=path->pn.pn_directory;
321                    }
322            }
323    /*
324          if (path->pn.pn_directory == Cnil)          if (path->pn.pn_directory == Cnil)
325                  directory = defaults->pn.pn_directory;                  directory = defaults->pn.pn_directory;
326          else          else
327                  directory = path->pn.pn_directory;                  directory = path->pn.pn_directory;
328    */
329          if (path->pn.pn_name == Cnil)          if (path->pn.pn_name == Cnil)
330                  name = defaults->pn.pn_name;                  name = defaults->pn.pn_name;
331          else          else

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26