Skip to content
Snippets Groups Projects
Select Git revision
  • 993bfa0ce4b57d83f67dff18e922848416c6b77a
  • master default protected
  • siv-mode
  • delete-des-compat
  • delete-rsa_blind
  • aes-struct-layout
  • master-updates
  • release-3.4-fixes
  • struct-layout
  • attribute-deprecated
  • rename-data-symbols
  • x86_64-sha_ni-sha256
  • ecc-params-tweak
  • delete-old-aes
  • cmac-support
  • x86_64-sha_ni-sha1
  • gcm-ctr-opt
  • ctr-opt
  • skein
  • api-opaque-fix
  • curve448
  • nettle_3.4.1_release_20181204
  • nettle_3.4.1rc1
  • nettle_3.4_release_20171119
  • nettle_3.4rc2
  • nettle_3.4rc1
  • nettle_3.3_release_20161001
  • nettle_3.2_release_20160128
  • nettle_3.1.1_release_20150424
  • nettle_3.1_release_20150407
  • nettle_3.1rc3
  • nettle_3.1rc2
  • nettle_3.1rc1
  • nettle_3.0_release_20140607
  • nettle_2.7.1_release_20130528
  • nettle_2.7_release_20130424
  • nettle_2.6_release_20130116
  • nettle_2.5_release_20120707
  • converted-master-branch-to-git
  • nettle_2.4_release_20110903
  • nettle_2.3_release_20110902
41 results

chacha-poly1305.c

Blame
  • Forked from Nettle / nettle
    Source project has a limited visibility.
    install.pike 12.61 KiB
    #!/usr/local/bin/pike
    
    int last_len;
    int redump_all;
    string pike;
    array(string) to_dump=({});
    array(string) to_export=({});
    
    int export;
    
    #define MASTER_COOKIE "(#*&)@(*&$Master Cookie:"
    
    void fail(string fmt, mixed ... args)
    {
      if(last_len) write("\n");
      Stdio.perror(sprintf(fmt,@args));
      werror("**Installation failed.\n");
      exit(1);
    }
    
    string status(string doing, string file, string|void msg)
    {
      if(strlen(file)>50)
        file="..."+file[strlen(file)-48..];
    
      if(msg) file+=" "+msg;
      if(doing) file=doing+" "+file;
      string s="\r"+file;
      int t=strlen(s);
      if(t<last_len) s+=" "*(last_len-t);
      last_len=t;
      write(s);
    }
    
    int mkdirhier(string dir)
    {
      int tomove;
      if(export) return 1;
    
      if(dir=="") return 1;
      status("creating",dir);
      mixed s=file_stat(dir);
      if(s)
      {
        if(s[1]<0)
          return 1;
    
        if(glob("*.pmod",dir))
        {
          if(!mv(dir,dir+".tmp"))
    	fail("mv(%s,%s)",dir,dir+".tmp");
          tomove=1;
        }else{
          werror("Warning: Directory '%s' already exists as a file.\n",dir);
          if(!mv(dir,dir+".old"))
    	fail("mv(%s,%s)",dir,dir+".old");
        }
      }
    
      mkdirhier(dirname(dir));
      if(!mkdir(dir))
        fail("mkdir(%s)",dir);
    
      chmod(dir,0755);
    
      if(tomove)
        if(!mv(dir+".tmp",dir+"/module.pmod"))
          fail("mv(%s,%s)",dir+".tmp",dir+"/module.pmod");
    
      return 1;