some work, unfinished

[svn/Cll1h/.git] / demos / arguments1.c

diff --git a/demos/arguments1.c b/demos/arguments1.c
index a892c3a24eddfadb7269c44550f448315c814ba0..552e983b69d7f084926917b1afd7f7f9c803392a 100644 (file)
--- a/demos/arguments1.c
+++ b/demos/arguments1.c
@@ -1,23 +1,20 @@
 #include "cll1.h"
 
-//try to run: ./arguments1 -x xxx yyyy -c cccc
+/* try to run: ./arguments1 -x xxx yyyy -c cccc */
 
 program
 {
- Define_str(ptr);
- 
- if_args then
+ if_args
  {
   for_args
   {
-   ptr=this_arg;
-   if (ptr[0]=='-') then
+   if this_arg[0] == '-')
    {
     printf("Command line switch: -%c ",ptr[1]);
     if (next_arg) then
     {
      echo("followed by: ",next_arg);
-     skip_one;
+     skip_next;
     }
     print("");
    }