preparing 0.9 version, rename to crl1.h

[svn/Cll1h/.git] / demos / split.c

diff --git a/demos/split.c b/demos/split.c
deleted file mode 100644 (file)
index b79e3ca..0000000
--- a/demos/split.c
+++ /dev/null
@@ -1,37 +0,0 @@
-#include "cll1.h"
-
-struct Passwd
-{
- char *username, *home, *shell; 
- int uid, gid;
- list(Passwd);
-} *etcpasswd,*passwd;
-
-program
-{
- char *ptr;
- FILE *f;
- int col;
-
- parse("/etc/passwd")
- {
-  col=1;
-  suffix(ptr,_,'\n');
-  split(ptr,_,':') switch(col++)
-  {
-   case 1: create(passwd,Passwd);passwd->username=ptr;break;
-   case 3: passwd->uid=atoi(ptr);break;
-   case 4: passwd->gid=atoi(ptr);break;
-   case 6: passwd->home=ptr;break;
-   case 7: passwd->shell=ptr;insert(passwd,etcpasswd,sort_by,username);break;
-  }
- }
- done;
-  
- puts("--------- /etc/passwd sorted by username ---------------");
- every(passwd,etcpasswd) printf("#%03d: %s\n",passwd->uid,passwd->username);
-
- puts("--------- /etc/passwd sorted by uid --------------------");
- sort(passwd,etcpasswd,order_by,uid);
- every(passwd,etcpasswd) printf("#%03d: %s\n",passwd->uid,passwd->username);
-}