From: xchaos <xchaos@4bb87942-c103-4e5a-b51c-0ebff58f8515>
Date: Thu, 17 Jan 2008 16:31:30 +0000 (+0000)
Subject: development work, won't compile
X-Git-Url: https://git.harvie.cz/?a=commitdiff_plain;h=9b936bfc394f6ae383128008202dcb82851085d4;p=svn%2FCll1h%2F.git

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 7a3f315..8d680b3 100644
--- 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 78059fe..3563b1f 100644
--- 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:
+  
  }
-
-
 }