Changeset 41160

Timestamp:

Nov 27, 2019, 11:06:01 AM (6 years ago)

Author:

eugene

Message:

improved memory check functions; ## and ### added as allowed comments

Location:

trunk/Ohana/src/opihi/cmd.basic

Files:

• init.c (modified) (1 diff)
• memory.c (modified) (2 diffs)
• test/if.sh (modified) (1 diff)
• test/macro.sh (modified) (2 diffs)

trunk/Ohana/src/opihi/cmd.basic/init.c

@@ -73 +73 @@
   {1, "??",            list_vars,          "list variables *"},
   {1, "#",             nop,                "a NOP function"},
+  {1, "##",            nop,                "a NOP function"},
+  {1, "###",           nop,                "a NOP function"},
   {1, "local",         local,              "define local variables"},
   {1, "macro",         macro,              "deal with the macros *"}, 

trunk/Ohana/src/opihi/cmd.basic/memory.c

@@ -5 +5 @@
   
   if (argc < 2) goto usage;
+
+  if (!strcasecmp (argv[1], "max-lines")) {
+    if (argc != 3) goto usage;
+    int MaxLines = atoi(argv[2]);
+    ohana_memdump_set_maxlines (MaxLines);
+    return TRUE;
+  }
 
   if (!strcasecmp (argv[1], "all")) {
@@ -43 +50 @@
   }
 
+  if (!strncasecmp ("strings", argv[1], strlen(argv[1]))) {
+    ohana_memdump_strings_file (stderr, FALSE);
+    return (TRUE);
+  }
+
 usage:
-  gprint (GP_ERR, "USAGE: memory (all/leaks)\n");
+  gprint (GP_ERR, "USAGE: memory (mode) [-max-lines]\n");
+  gprint (GP_ERR, "USAGE: memory (max-lines) (N)\n");
+  gprint (GP_ERR, " mode options: all, leaks, check, checkfree, variables, vectors, buffers, macros, commands, strings\n");
   return (FALSE);
 }

trunk/Ohana/src/opihi/cmd.basic/test/if.sh

@@ -320 +320 @@
  end
 end
+
+# check memleaks
+macro memtest1
+
+ local a b i N
+
+ $i = 0
+ $a = 1
+
+ memory check
+ output /dev/null 
+ for i 0 1000
+   if ($a == 1)
+    echo "run"    
+   end
+ end    
+ output stdout
+ memory check
+end
+
+# check memleaks
+macro memtest2
+
+ local a b i N
+
+ $i = 0
+ $a = 1
+ $b = 2
+
+ memory check
+ output /dev/null
+ for i 0 1000
+   if (($a == 1) && ($b == 2))
+    echo "run"    
+   end
+ end    
+ output stdout
+ memory check
+end
+
+# memory test using continue
+macro memtest3
+
+ local a b i N
+
+ $i = 0
+ $a = 1
+ $b = 2
+
+ memory check
+ output /dev/null
+ for i 0 1000
+   if (($a == 1) && ($b == 2))
+    continue
+    echo "run"    
+   end
+ end    
+ output stdout
+ memory check
+end
+
+# memory test using continue
+macro memtest4
+
+ local a b i N bool
+
+
+ $i = 0
+ $a = 1
+ $b = 2
+ $bool = 0
+
+ memory check
+ output /dev/null
+ for i 0 1000
+   $bool = (($a == 1) && ($b == 2))
+ end    
+ output stdout
+ memory check
+end

trunk/Ohana/src/opihi/cmd.basic/test/macro.sh

@@ -7 +7 @@
 # Is the macro working?
 macro test_prep
+ $test_var1 = check1
+ $test_var2 = check2
+ $var_count = $0
+end
+
+# Is the macro working?
+macro test_local
+ local test_var test_var2 var_count
+
  $test_var1 = check1
  $test_var2 = check2
@@ -47 +56 @@
  end
 end
+
+# Memory Test for macro
+macro memtest2
+
+ $i = 0
+ test_prep
+
+ memory check
+ for i 0 10000
+  test_prep
+ end    
+ memory check
+  
+end
+
+# Memory Test for macro
+macro memtest3
+
+ $i = 0
+ test_local
+
+ memory check
+ for i 0 10000
+  test_local
+ end    
+ memory check
+  
+end