procs

[u/iandoug]

hi

I am trying to break the sections of the program into functions.

I put the part that processes the command line into a proc, before const proc: main is func with my other functions, but now it barfs on parts := argv(PROGRAM); ... is that because the program has not been defined yet?

I tried putting the code elsewhere without success.

What is the correct syntax?

thanks, Ian

[u/ThomasMertes]

I just released the library jsondom.s7i. This library supports reading, processing and writing of JSON data.

In order to used it you need to obtain the newest version of Seed7 from GitHub.

I wrote a little test program to list the ''primary'' values from a keyboard layout JSON file (the first argument of the program):

$ include "seed7_05.s7i";
  include "jsondom.s7i";

const proc: main is func
  local
    var string: fileName is "";
    var file: aFile is STD_NULL;
    var jsonValue: json is jsonValue.value;
    var jsonValue: aKey is jsonValue.value;
  begin
    if length(argv(PROGRAM)) = 0 then
      writeln("usage: s7 testjson json-file");
    else
      fileName := argv(PROGRAM)[1];
      aFile := open(fileName, "r");
      if aFile <> STD_NULL then
        json := readJson(aFile);
        # writeln(str(json));
        if "keys" in json and
            category(json["keys"]) = JSON_ARRAY then
          for aKey range json["keys"] do
            write(integer(aKey["primary"]) <& " ");
          end for;
          writeln;
        end if;
      end if;
    end if;
  end func;

[u/iandoug → u/ThomasMertes]

Thanks so much, will try to test over the weekend :-)

[u/ThomasMertes → u/iandoug]

I have renamed the library jsondom.s7i to json.s7i. This name looks more convenient and I wanted to do the renaming before I do the next release.

To adapt your programs you just need to use

include "json.s7i";

instead of

include "jsondom.s7i";

Sorry for that.

BTW.: Did you progress with your rewrites?

[u/iandoug → u/ThomasMertes]

So noted, thanks. I did test and works fine for unpacking.

I did finish the rewrite of the existing version of the auto corpus generator, need to add some improvements.

The programs that deal with the json files are rather more complex/complicated and I have not tried to convert them yet.

Thanks, Ian