X-Git-Url: http://git.harvie.cz/?p=svn%2FCll1h%2F.git;a=blobdiff_plain;f=demos%2Flists%2Ffloat-list-plain.c;fp=demos%2Flists%2Ffloat-list-plain.c;h=808303fdd1b253dd6c1c835bbd37bc148fde9217;hp=0000000000000000000000000000000000000000;hb=ea514b9e6351878fef9638813f50ce7013e8a832;hpb=eac5d6c70c3babc9056f059edd88a2c1a82bc7e9

diff --git a/demos/lists/float-list-plain.c b/demos/lists/float-list-plain.c
new file mode 100644
index 0000000..808303f
--- /dev/null
+++ b/demos/lists/float-list-plain.c
@@ -0,0 +1,29 @@
+#include "cll1.h"
+
+def_mem(Node)
+{
+ float f;
+ list(Node);
+};
+
+program
+{
+ Node one,all=NULL,last=NULL;
+ 
+ repeat(20)
+ {
+  one=get_mem(Node);
+  printf("Enter float: \n");
+  scanf("%f", &(one->f));
+  append(one,last);
+  if(not all)
+  {
+   all=last;
+  }
+ }
+ 
+ for_each(one,all)
+ {
+  printf("The float you entered is %f\n",one->f);
+ } 
+}