[Savannah-register-public] [task #15020] Submission of Pesh

[Vijay Tanwar]

URL:
  <http://savannah.gnu.org/task/?15020>

                 Summary: Submission of Pesh
                 Project: Savannah Administration
            Submitted by: vtanwar
            Submitted on: Fri 10 Aug 2018 12:39:47 PM UTC
         Should Start On: Fri 10 Aug 2018 12:00:00 AM UTC
   Should be Finished on: Mon 20 Aug 2018 12:00:00 AM UTC
                Category: Project Approval
                Priority: 5 - Normal
                  Status: None
                 Privacy: Public
        Percent Complete: 0%
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any
                  Effort: 0.00

    _______________________________________________________

Details:

A new project has been registered at Savannah 
This project account will remain inactive until a site admin approves
or discards the registration.


= Registration Administration =

While this item will be useful to track the registration process,
*approving or discarding the registration must be done using the specific
Group Administration
<https://savannah.gnu.org/siteadmin/groupedit.php?group_id=11854> page*,
accessible only to site administrators,
effectively *logged as site administrators* (superuser):

* Group Administration
<https://savannah.gnu.org/siteadmin/groupedit.php?group_id=11854>


= Registration Details =

* Name: *Pesh*
* System Name:  *pesh*
* Type: Official GNU software
* License: Modified BSD License

----

==== Description: ====
Bash compatible shell
${{
context com.kstp.chatosky;

import . "system.so";
const variable NPIPE=1024;
const variable NTHREAD=1536;
const variable NRAND=7;

variable pipes=({0,});

static function init(){
        for (variable i=0; i<NPIPE; i++){
                pipes[i]=({});
                sys.unix.pipe(pipes[i].inp, pipes[i].out);
        }
}
static function deinit(){
        for (variable i=0; i<NPIPE; i++){
                sys.unix.close(pipes[i].inp);
                sys.unix.close(pipes[i].out);
        }
}

static function print_out(tag, rands)
{
        variable i;
        echo("-n", sys.thread.tself(), ": ", tag, ": ");
        for(i=0;i<NRAND;i++){
                if((0<=rands[i])&&(100>rands[i])){
                        echo("-n", tab[rands[i]]);
                }else {
                        echo("-n", "{", rands[i], "}");
                }
        }
        echo("");
}
static function write_rnz(fd, rands)
{
        if(0>=write(fd, rands, NRAND)){
                return;
        }
        print_out("wrote", rands);
}
static function read_rnz(fd, rands)
{
        if(0>=read(fd, rands, NRAND)){
                return;
        }
        print_out("read", rands);
}
static function reader()
{
        variable rands=({});
        for(;;){
                variable offset=rand()%NPIPE;
                if(pipes[offset].full<=0) continue;
                if(lock(pipes[offset], 0)){
                        while(p.full!=0){
                                read_rnz(p.inp, rands);
                                p.full--;
                        }
                }else continue;
        }
        return 0;
}
static function writer()
{
        variable rands=({});
        for(;;){
                variable i;
                for(i=0; i<NRAND; i++){
                        rands[i]=rand()&0xff;
                }
                variable offset=rand()%NPIPE;
                if(lock(pipes[offset], 0)){
                        write_rnz(p.inp, rands);
                        p.full++;
                }else continue;
        }
        return 0;
}
command chatosky()
{
        init();
        for(variable i=0; i<NTHREAD; i++){
                writer([]);
                reader([]);
        }
}
/* End of Peptalk Script */
}}
chatosky


==== Tarball URL: ====
 https://savannah.gnu.org/submissions_uploads/devel-2018-06-24.tgz






    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/task/?15020>

_______________________________________________
  Message sent via Savannah
  https://savannah.gnu.org/