development work, won't compile

git-svn-id: https://dev.arachne.cz/repos/cll1h/trunk@17 4bb87942-c103-4e5a-b51c-0ebff58f8515

diff --git a/cll1.h b/cll1.h
index 7a3f315bad346e77bfb7d4dd366af770859cbf1a..8d680b3ff3c5919bc1615ff6fbae725a9392aad8 100644 (file)
--- a/cll1.h
+++ b/cll1.h
@@ -48,6 +48,7 @@
 /* ------------------------------------------------------------------- */
 /* 2. C<<1 basic data types - updated 2008-01-07 by xCh.               */
 /* ------------------------------------------------------------------- */
+
 #define Create_str(ID,STRATOM) char *ID=get_str(STRATOM);
 #define Create_mem()
 /* ------------------------------------------------------------------- */

diff --git a/tools/cake.c b/tools/cake.c
index 78059fea9ccf2a5c62bf0236e706b1a96171379e..3563b1fe0ac5f946119c3c1302c38024dfbfcbbe 100644 (file)
--- a/tools/cake.c
+++ b/tools/cake.c
@@ -2,11 +2,39 @@
 
 program
 {
- for_arguments
+ int state = 0;
+ string filename = NULL,line = NULL;
+ file f = NULL;
+
+
+ try
  {
+  f = file_write("_cake.c");
+  for_directory_filenames(filename,"./")
+  {
+   for_file_lines(line,filename)
+   {
+    for_chars(znak,line)
+    {
+     switch(znak)
+     {
+      case '<': state
+      case '>':
+      case '?':
+      case 'C':
+      case '%':
+      case '{':
+      case '}':
+      default: 
+     }
+    }
+   }  
+  }
+ }
  
- 
+ if_exception_switch
+ {
+  case ERROR_FILE:
+  
  }
-
-
 }