- 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);
- }