X-Git-Url: http://git.harvie.cz/?p=svn%2FCll1h%2F.git;a=blobdiff_plain;f=demos%2Fsplit.c;fp=demos%2Fsplit.c;h=0000000000000000000000000000000000000000;hp=b79e3ca8cf8fd30bd32b200ed0256f1ecfdcacb5;hb=e63f1bc2438012b5f2f6592a474892501149af18;hpb=6a60bc82e8b8e6cccd0d4c2214a1f291662215f0

diff --git a/demos/split.c b/demos/split.c
deleted file mode 100644
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);
-}