macro removal

[henge/apc.git] / src / ir.c

diff --git a/src/ir.c b/src/ir.c
index 0e95d7f..cb5fafd 100644 (file)
--- a/src/ir.c
+++ b/src/ir.c
@@ -666,31 +666,25 @@ static void crawl_set(struct ir_set_t*,int);
 void     ir_test(void)\r
 { uprintf("IR From Directory: %s\n",getcwd(NULL,255));\r
   crawl_class(&root_class);\r
+  if (root_class.root_set != NULL)\r
+    crawl_set(root_class.root_set, 0);\r
 }\r
 \r
-#define pspace(num) for (i = 0; i < (num); i++) putchar('.')\r
 static\r
 void crawl_class\r
 ( struct ir_class_t* class )\r
 { struct ir_class_t* iter;\r
-  wprintf("%U/\n", class->name);\r
-  if(chdir((char*)class->name))\r
-    eprintf("CHDIR %U from %s\n",class->name,getcwd(NULL,255));\r
-  if (class->nextchild != NULL)\r
-      crawl_class(class->nextchild);\r
-  if (class->root_set != NULL)\r
-    crawl_set(class->root_set, 0);\r
-  if (class->nextsib != NULL)\r
-    { if (chdir(".."))\r
+  for (iter = class->nextchild; iter != NULL; iter = iter->nextsib)\r
+    { wprintf("%U/\n", iter->name);\r
+      if(chdir((char*)iter->name))\r
+       eprintf("CHDIR %U from %s\n",iter->name,getcwd(NULL,255));\r
+      crawl_class(iter);\r
+      if (iter->root_set != NULL)\r
+        crawl_set(iter->root_set, 0);\r
+      uprintf("%U\\\n",iter->name);\r
+      if (chdir(".."))\r
        eprintf("CHDIR ..\n");\r
-      for (iter = class->nextsib; iter != NULL; iter = iter->nextsib)\r
-       crawl_class(iter);\r
-      if(chdir((char*)class->name))\r
-       eprintf("CHDIR %U from %s\n",class->name,getcwd(NULL,255));\r
     }\r
-  uprintf("\n%U\\\n",class->name);\r
-  if (chdir(".."))\r
-    eprintf("CHDIR ..\n");\r
 }\r
 \r
 static\r
@@ -698,18 +692,20 @@ void crawl_set
 ( struct ir_set_t* set,\r
   int depth\r
 )\r
-{ struct ir_set_t* iter;\r
-  int i;\r
-  pspace(depth * 10);\r
-  i = 0;\r
-  for(iter = set; iter != NULL; iter = iter->nextchild, ++i)\r
-    uprintf("[%8U]", iter->name);\r
-  if (i)\r
-    putchar('\n');\r
-  i = 0;\r
-  for(iter = set->nextchild; iter != NULL; iter = iter->nextchild)\r
+{ struct ir_set_t* setlist[64], ** slp, * iter;\r
+  int i = depth * 12;\r
+  while (i--)\r
+    putchar('.');\r
+  i = depth;\r
+  slp = setlist;\r
+  for(iter = set; iter != NULL; iter = iter->nextchild)\r
+    { uprintf("[%10U]", iter->name);\r
+      *slp++ = iter;\r
+      i++;\r
+    }\r
+  --i;\r
+  putchar('\n');\r
+  for(iter = *--slp; slp >= setlist; iter = *--slp, --i)\r
     if (iter->nextsib != NULL)\r
-      crawl_set(iter->nextsib, ++i);\r
-  for(iter = set->nextsib; iter != NULL; iter = iter->nextsib)\r
-    crawl_set(iter, depth);\r
+      crawl_set(iter->nextsib,i);\r
 }\r