Initial revision

diff --git a/NEWS b/NEWS
new file mode 100644 (file)
index 0000000..579a4db
--- /dev/null
+++ b/NEWS
@@ -0,0 +1,85 @@
+Current Version: 1.11.
+
+User-visible changes since 1.10:
+
+o Many bug fixes
+
+o Now uses GNU standard configure, generated by Autoconf.
+
+o Long options now use `--'; use of `+' is deprecated and support for it
+  will eventually be removed.
+
+o New option --null causes filenames read by -T to be null-terminated,
+  and causes -C to be ignored.
+
+o New option --remove-files deletes files (but not directories) after
+  they are added to the archive.
+
+o New option --ignore-failed-read prevents read-errors from affecting
+  the exit status.
+
+o New option --checkpoint prints occasional messages as the tape is
+  being read or written.
+
+o New option --show-omitted-dirs prints the names of directories
+  omitted from the archive.
+
+o Some tape drives which use a non-standard method of indicating
+  end-of-tape now work correctly with multi-tape archives.
+
+o --volno-file: Read the volume number used in prompting the user (but
+  not in recording volume ID's on the archive) from a file.
+
+o When using --multi-volume, you can now give multiple -f arguments;
+  the various tape drives will get used in sequence and then wrap
+  around to the beginning.
+
+o Remote archive names no longer have to be in /dev: any file with a
+  `:' is interpreted as remote.  If new option --force-local is given,
+  then even archive files with a `:' are considered local.
+
+o New option --atime-preserve restores (if possible) atimes to their
+  original values after dumping the file.
+
+o No longer does tar confusingly dump "." when you don't tell it what
+  to dump.
+
+o When extracting directories, tar now correctly restores their
+  modification and access times.
+
+o Longnames support is redone differently--long name info directly
+  precedes the long-named file or link in the archive, so you no
+  longer have to wait for the extract to hit the end of the tape for
+  long names to work.
+
+==================
+
+User-visible changes since 1.09:
+
+Filename to -G is optional.  -C works right.  
+Names +newer and +newer-mtime work right.
+
+-g is now +incremental
+-G is now +listed-incremental
+
+Sparse files now work correctly.
+
++volume is now called +label.
+
++exclude now takes a filename argument, and +exclude-from does what
++exclude used to do.
+
+Exit status is now correct.
+
++totals keeps track of total I/O and prints it when tar exits.
+
+When using +label with +extract, the label is now a regexp.
+
+New option +tape-length (-L) does multi-volume handling like BSD dump:
+you tell tar how big the tape is and it will prompt at that point
+instead of waiting for a write error.
+
+New backup scripts level-0 and level-1 which might be useful to
+people.  They use a file "backup-specs" for information, and shouldn't
+need local modification.  These are what we use to do all our backups
+at the FSF.

diff --git a/src/mangle.c b/src/mangle.c
new file mode 100644 (file)
index 0000000..5b1b937
--- /dev/null
+++ b/src/mangle.c
@@ -0,0 +1,247 @@
+/* mangle.c -- encode long filenames
+   Copyright (C) 1988 Free Software Foundation
+
+This file is part of GNU Tar.
+
+GNU Tar 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, or (at your option)
+any later version.
+
+GNU Tar 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 GNU Tar; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include <sys/types.h>
+#include <time.h>
+time_t time();
+
+#include "tar.h"
+#include "port.h"
+
+void add_buffer();
+extern PTR ck_malloc();
+void finish_header();
+extern PTR init_buffer();
+extern char *quote_copy_string();
+extern char *get_buffer();
+char *un_quote_string();
+
+extern union record *start_header();
+
+extern struct stat hstat;              /* Stat struct corresponding */
+
+struct mangled {
+       struct mangled *next;
+       int type;
+       char mangled[NAMSIZ];
+       char *linked_to;
+       char normal[1];
+};
+
+
+/* Should use a hash table, etc. .  */
+struct mangled *first_mangle;
+int mangled_num = 0;
+
+char *
+find_mangled (name)
+char *name;
+{
+       struct mangled *munge;
+
+       for(munge=first_mangle;munge;munge=munge->next)
+               if(!strcmp(name,munge->normal))
+                       return munge->mangled;
+       return 0;
+}
+
+
+#ifdef S_ISLNK
+void
+add_symlink_mangle(symlink, linkto, buffer)
+char *symlink;
+char *linkto;
+char *buffer;
+{
+       struct mangled *munge,*kludge;
+
+       munge=(struct mangled *)ck_malloc(sizeof(struct mangled)+strlen(symlink)+strlen(linkto)+2);
+       if(!first_mangle)
+               first_mangle=munge;
+       else {
+               for(kludge=first_mangle;kludge->next;kludge=kludge->next)
+                       ;
+               kludge->next=munge;
+       }
+       munge->type=1;
+       munge->next=0;
+       strcpy(munge->normal,symlink);
+       munge->linked_to=munge->normal+strlen(symlink)+1;
+       strcpy(munge->linked_to,linkto);
+       sprintf(munge->mangled,"@@MaNgLeD.%d",mangled_num++);
+       strncpy(buffer,munge->mangled,NAMSIZ);
+}
+#endif
+
+void
+add_mangle (name, buffer)
+char *name;
+char *buffer;
+{
+       struct mangled *munge,*kludge;
+
+       munge=(struct mangled *)ck_malloc(sizeof(struct mangled)+strlen(name));
+       if(!first_mangle)
+               first_mangle=munge;
+       else {
+               for(kludge=first_mangle;kludge->next;kludge=kludge->next)
+                       ;
+               kludge->next=munge;
+       }
+       munge->next=0;
+       munge->type=0;
+       strcpy(munge->normal,name);
+       sprintf(munge->mangled,"@@MaNgLeD.%d",mangled_num++);
+       strncpy(buffer,munge->mangled,NAMSIZ);
+}
+
+void
+write_mangled()
+{
+       struct mangled *munge;
+       struct stat hstat;
+       union record *header;
+       char *ptr1,*ptr2;
+       PTR the_buffer;
+       int size;
+       int bufsize;
+
+       if(!first_mangle)
+               return;
+       the_buffer=init_buffer();
+       for(munge=first_mangle,size=0;munge;munge=munge->next) {
+               ptr1=quote_copy_string(munge->normal);
+               if(!ptr1)
+                       ptr1=munge->normal;
+               if(munge->type) {
+                       add_buffer(the_buffer,"Symlink ",8);
+                       add_buffer(the_buffer,ptr1,strlen(ptr1));
+                       add_buffer(the_buffer," to ",4);
+                       
+                       if(ptr2=quote_copy_string(munge->linked_to)) {
+                               add_buffer(the_buffer,ptr2,strlen(ptr2));
+                               free(ptr2);
+                       } else
+                               add_buffer(the_buffer,munge->linked_to,strlen(munge->linked_to));
+               } else {
+                       add_buffer(the_buffer,"Rename ",7);
+                       add_buffer(the_buffer,munge->mangled,strlen(munge->mangled));
+                       add_buffer(the_buffer," to ",4);
+                       add_buffer(the_buffer,ptr1,strlen(ptr1));
+               }
+               add_buffer(the_buffer,"\n",1);
+               if(ptr1!=munge->normal)
+                       free(ptr1);
+       }
+
+       bzero(&hstat,sizeof(struct stat));
+       hstat.st_atime=hstat.st_mtime=hstat.st_ctime=time(0);
+       ptr1=get_buffer(the_buffer);
+       hstat.st_size=strlen(ptr1);
+
+       header=start_header("././@MaNgLeD_NaMeS",&hstat);
+       header->header.linkflag=LF_NAMES;
+       finish_header(header);
+       size=hstat.st_size;
+       header=findrec();
+       bufsize = endofrecs()->charptr - header->charptr;
+
+       while(bufsize<size) {
+               bcopy(ptr1,header->charptr,bufsize);
+               ptr1+=bufsize;
+               size-=bufsize;
+               userec(header+(bufsize-1)/RECORDSIZE);
+               header=findrec();
+               bufsize = endofrecs()->charptr - header->charptr;
+       }
+       bcopy(ptr1,header->charptr,size);
+       bzero(header->charptr+size,bufsize-size);
+       userec(header+(size-1)/RECORDSIZE);
+}
+
+void
+extract_mangle(head)
+union record *head;
+{
+       char *buf;
+       char *fromtape;
+       char *to;
+       char *ptr,*ptrend;
+       char *nam1,*nam1end;
+       int size;
+       int copied;
+
+       size=hstat.st_size;
+       buf=to=ck_malloc(size+1);
+       buf[size]='\0';
+       while(size>0) {
+               fromtape=findrec()->charptr;
+               if(fromtape==0) {
+                       msg("Unexpected EOF in mangled names!");
+                       return;
+               }
+               copied=endofrecs()->charptr-fromtape;
+               if(copied>size)
+                       copied=size;
+               bcopy(fromtape,to,copied);
+               to+=copied;
+               size-=copied;
+               userec((union record *)(fromtape+copied-1));
+       }
+       for(ptr=buf;*ptr;ptr=ptrend) {
+               ptrend=index(ptr,'\n');
+               *ptrend++='\0';
+
+               if(!strncmp(ptr,"Rename ",7)) {
+                       nam1=ptr+7;
+                       nam1end=index(nam1,' ');
+                       while(strncmp(nam1end," to ",4)) {
+                               nam1end++;
+                               nam1end=index(nam1end,' ');
+                       }
+                       *nam1end='\0';
+                       if(ptrend[-2]=='/')
+                               ptrend[-2]='\0';
+                       un_quote_string(nam1end+4);
+                       if(rename(nam1,nam1end+4))
+                               msg_perror("Can't rename %s to %s",nam1,nam1end+4);
+                       else if(f_verbose)
+                               msg("Renamed %s to %s",nam1,nam1end+4);
+               }
+#ifdef S_ISLNK
+               else if(!strncmp(ptr,"Symlink ",8)) {
+                       nam1=ptr+8;
+                       nam1end=index(nam1,' ');
+                       while(strncmp(nam1end," to ",4)) {
+                               nam1end++;
+                               nam1end=index(nam1end,' ');
+                       }
+                       un_quote_string(nam1);
+                       un_quote_string(nam1end+4);
+                       if(symlink(nam1,nam1end+4) && (unlink(nam1end+4) || symlink(nam1,nam1end+4)))
+                               msg_perror("Can't symlink %s to %s",nam1,nam1end+4);
+                       else if(f_verbose)
+                               msg("Symlinkd %s to %s",nam1,nam1end+4);
+               }
+#endif
+               else
+                       msg("Unknown demangling command %s",ptr);
+       }
+}