Skip to content

Instantly share code, notes, and snippets.

root: 4535/5128, runs: 189, mem: 13929736 => 7935024, mark: 7.0ms, sweep: 6.0ms
*** Runtime Error 1: access violation
*** in file: /C/red/red-master/environment/console/CLI/SQLite3.red
*** at line: 9567
***
*** stack: sqlite/do 02801B94h
*** stack: ctx||552~do 02801B94h
*** stack: ctx||552~query 00E7029Ch
*** stack: red/_function/call 02801B54h 00E7029Ch
processing-controls:[
panel [
start-processing-button: button "Start" 60x60 [prepare-for-parsing]
count-of-files-for-parsing: text
]
]
generate-sql-for-processing: func[] [
sql-query-for-processing: {SELECT id, section_name FROM "xml_files"}
sql-builder: function[] [
sql-request: copy {SELECT
ID,
arch_name,
file_name,
file_type,
forced_processing,
processed_date,
region,
sql-builder: function[] [
unset 'sql-request
sql-request: copy "SELECT * FROM xml_files WHERE 1+1 "
if only-failed-button/enabled? [
if not find sql-request "AND status='failed'" [append sql-request "AND status='failed' " replace/all sql-request " AND status='success'" ""]
]
if only-succesed-button/enabled? [
if not find sql-request "AND status='success'" [append sql-request "AND status='success' " replace/all sql-request " AND status='failed'" ""]
]
sql-builder: function[] [
sql-request: copy "SELECT * FROM xml_files WHERE 1+1 "
if only-failed-button/enabled? [
if not find sql-request "AND status='failed'" [append sql-request "AND status='failed' " replace/all sql-request " AND status='success'" ""]
]
if only-succesed-button/enabled? [
if not find sql-request "AND status='success'" [append sql-request "AND status='success' " replace/all sql-request " AND status='failed'" ""]
]
if all [only-succesed-button/enabled? only-failed-button/enabled?] [ replace/all sql-request " AND status='success'" "" replace/all sql-request " AND status='failed'" "" ]
sql-builder: function[] [
sql-request: "SELECT FROM xml_files WHERE "
if only-failed-button/enabled? [append sql-request "status='failed' " replace/all sql-request " status='success'" "" ]
if only-succesed-button/enabled? [append sql-request "status='success' " replace/all sql-request " status='failed'" "" ]
if all [only-succesed-button/enabled? only-failed-button/enabled?] [ replace/all sql-request " status='success'" "" replace/all sql-request " status='failed'" "" ]
; if all [ only-succesed-button/enabled? only-failed-button/enabled?] [ print "ddd" ]
print sql-request
]
Recursive-Read: func [
"Recursively read Directory."
Directory [file! url!] "The Directory to read."
/local Files Subdirectory
] [
if exists? Directory [
Files: read Directory
if block? Files [
foreach File Files [
<!doctype html>
<html>
<head>
<title>Network</title>
<meta charset="utf-8">
<script type="text/javascript" src="https://unpkg.com/vis-network/standalone/umd/vis-network.min.js"></script>
<link rel="stylesheet" href="https://cdn.rawgit.com/Chalarangelo/mini.css/v3.0.1/dist/mini-default.min.css">
<script src="https://cdn.jsdelivr.net/npm/axios/dist/axios.min.js"></script>
<script src="https://cdn.jsdelivr.net/npm/vue/dist/vue.js"></script>
<style type="text/css">
<!doctype html>
<html>
<head>
<title>Network</title>
<meta charset="utf-8">
<script type="text/javascript" src="https://unpkg.com/vis-network/standalone/umd/vis-network.min.js"></script>
<link rel="stylesheet" href="https://cdn.rawgit.com/Chalarangelo/mini.css/v3.0.1/dist/mini-default.min.css">
<script src="https://cdn.jsdelivr.net/npm/axios/dist/axios.min.js"></script>
<script src="https://cdn.jsdelivr.net/npm/vue/dist/vue.js"></script>
<style type="text/css">
import 'dart:async';
import 'package:flutter/material.dart';
import 'package:flutter/services.dart';
import 'bloc.dart';
// final GlobalKey<NavigatorState> navigatorKey = GlobalKey<NavigatorState>();
Stream<int> stream;
StreamController<int> myStreamController = StreamController.broadcast();