🚀 go-pugleaf

    Question -- I need to access command line arguments in pascal -
    why can't I do it in one step as this example shows?
    
    program t;
    %include '/sys/ins/base.ins.pas';
    %include '/sys/ins/streams.ins.pas';
    %include '/sys/ins/pgm.ins.pas';
    var argc,i,j : integer;
        argv : pgm_$argv_ptr;
        argvp : pgm_$argv;
        arg : ^pgm_$arg;
    
    begin
       pgm_$get_args(argc,argv);
       argc := argc - 1;
       writeln(argc:1,' arguments found.  They are :');
       for i:=1 to argc do
       begin
    
         { why can't I de-reference the structure in one step 
           as this line does ??
    
         ******* bad line ***** - error = argv not a pointer ******
    
         writeln(argv^[i]^.chars[1]);
    
         }
    
         arg := argv^[i];
         write(i:1,' : ');
         for j := 1 to arg^.len do write(arg^.chars[j]);
         writeln;
       end;
    end.
    
Kevin Buchs   3500 Zycad Dr. Oakdale, MN 55109  (612)779-5548
Zycad Corp.   {rutgers,ihnp4,amdahl,umn-cs}!meccts!zeke!kevin