virtuoso : load all graphs (triple dump)

load_graphs

CREATE PROCEDURE load_graphs 
  ( IN  dir  VARCHAR := '{WRITE HERE YOUR EXPORT PATH (allowed dir in virtuoso.ini)}' )
{
  DECLARE arr ANY;
  DECLARE g VARCHAR;
 
  arr := sys_dirlist (dir, 1);
  log_enable (2, 1);
  FOREACH (VARCHAR f IN arr) DO
    {
      IF (f LIKE '*.ttl')
      {
        DECLARE CONTINUE HANDLER FOR SQLSTATE '*'
        {
              log_message (sprintf ('Error in %s', f));
              };
                g := file_to_string (dir || '/' || f || '.graph');
            dbg_printf ('g is %s', "g");
              DB.DBA.TTLP_MT (file_open (dir || '/' || f), g, g, 255);
              }
    }
  EXEC ('CHECKPOINT');
}
;