democracy 0.0.56

data/graphical_help.c

@@ -0,0 +1,6 @@
+# frozen_string_literal: true
+
+int main {
+  chdir('lib')
+  system('ruby graphical_help')
+}

data/gregory_coreutils/DOC

@@ -0,0 +1,14 @@
+There are many good utilities here.
+
+
+
+Pipes are the most powerful things you can do in computing
+
+
+
+
+
+
+
+This helps with that
+

data/gregory_coreutils/build/Makefile

@@ -0,0 +1,12 @@
+all:
+	./mk
+clean:
+	killall -q crystal || true
+	find .. -type d | grep -E -v 'build' | xargs rm -rf 2>/dev/null || true
+	#build|utils' || exit 0
+
+install:
+	chmod +x ../utilities/*
+	cp ../utilities/* /usr/local/bin
+	#cp ../utilities/* /usr/local/bin
+	#cp  ../utilities/* /usr/local/bin /usr/bin

data/gregory_coreutils/build/code

@@ -0,0 +1 @@
+((def f;require "fileutils"; FileUtils.mkdir_p("../.compilation"); $N=$N||"def cat(arg)"     ;       name,args=$N.scan(/^def\s+(.+)(\(.*\))\s*$/)[0];a=args[1..-2].strip.split(',');           q=((a.length == 0) ? name : ("(" +name+"(#{["", "ARGV[0]", "ARGV[0],ARGV[1]", "ARGV[0],ARGV[1],ARGV[2]"  ]    [      a.length]}) ) "));         n = $N; File.open("../.compilation/" + name, "w") do |file| file.puts "#!/usr/bin/env ruby\n\n";file.puts(open("functions").read); file.puts "\n";file.puts " def main\n\n\t\t; if ARGV.size !=    #{a.length} ; argument_data_(#{name.dump}); exit_with 1;  end;      #{q}; exit_with 0; end\n\n ";   file.puts "  \n\tmain"; system "#notify-send #{} #&"; end; end); f; "#{$N}")

data/gregory_coreutils/build/functions

@@ -0,0 +1,465 @@
+lib C
+	# There were problems with this function, so don't use it
+  fun printf(format : UInt8*, ...) : Int32
+  #fun fcloseall() : Int32
+  #fun fflush(format: 
+end
+
+# Indentation matters
+    def exit_with(status)
+
+
+
+
+    #C.fcloseall()
+	Process.exit status
+    end
+
+
+require "file_utils"
+require "json"
+
+
+include FileUtils
+#include FileU
+#include FileUtils
+#begin
+require "colorize"
+#rescue
+#end
+#rescue SyntaxError
+#end
+
+def lines()
+	if STDIN.tty? == false
+		puts STDIN.gets_to_end.count("\n")
+	else
+	system "(find . | wc -l; echo 1) | sub"; end
+	#	system "(find . -type f | wc -l; echo -) | wc -l) | sub "; end
+
+		exit_with 0
+end
+
+
+# files
+def files(arg1)
+#	return arg1 + arg
+
+	system "find #{arg1} "
+	exit_with 0
+end
+
+
+def args(arg1)
+	sections = Process.parse_arguments(arg1)
+	program, args = sections[0], sections[1..]
+
+	sections = Process.parse_arguments(arg1)
+	
+
+	program = Process.find_executable(program)
+	if program.nil?
+		puts "Can't find program #{arg1}"
+		raise "Error"
+	end
+
+	lines = STDIN.gets_to_end.strip
+	lines = lines.split "\n";
+
+	times = (lines.size % 2000000 == 0) ? 2 : 1
+
+	times += lines.size // 2000000
+	n = 0
+	times.times do
+		prog_args = args
+
+		prog_args += lines[n..(n + 2000000 - 1)]    ; n +=   2000000
+
+		#p program, prog_args
+
+
+		if (p = Process.fork()).nil?
+			Process.exec(
+			program,
+			prog_args
+			)
+#			Process.exec(program, prog_args)
+		else
+			p.wait
+		end
+		
+	end
+
+	
+exit_with 0
+end
+
+
+# copy
+def copy(arg1)
+	STDIN.each_line do |line|
+		cp line.chomp, arg1
+	end
+exit_with 0
+end
+
+
+def cpy()
+	command = "/usr/bin/xclip"
+	args = ["-selection", "c"]
+	Process.run(command, args, output: STDOUT) do |file|
+#	Process.run(", output: STDOUT) do    |file|
+		file.input.print  STDIN.gets_to_end
+	end
+	exit_with 0
+end
+
+def mul()
+	t = STDIN.read_line.to_i64
+	
+	i = 0i64; STDIN.each_line do |line|
+		t *= line.to_i64
+	end
+
+	puts t
+
+	
+	exit_with 0
+end
+
+def add()
+	t = STDIN.read_line.to_i64
+	
+	i = 0i64; STDIN.each_line do |line|
+		t += line.to_i64
+	end
+
+	puts t
+
+	
+	exit_with 0
+end
+
+def div()
+	t = STDIN.read_line.to_i64
+	
+	i = 0i64; STDIN.each_line do |line|
+		t //= line.to_i64
+	end
+
+	puts t
+
+	
+	exit_with 0
+end
+
+
+
+def sub()
+	t = STDIN.read_line.to_i64
+	
+	i = 0i64; STDIN.each_line do |line|
+		t -= line.to_i64
+	end
+
+	puts t
+
+	
+	exit_with 0
+end
+
+
+def floor()
+	t = STDIN.read_line.to_i64
+
+	puts t
+
+	
+	exit_with 0
+end
+
+def abs()
+	STDIN.each_line do |l|
+		l = l.to_i64.abs
+		puts l; end; exit_with 0; end
+
+
+
+
+
+
+
+def dump()
+	puts STDIN.gets_to_end.dump
+exit_with 0
+end
+
+#require "json"
+def undump()
+	puts JSON.parse(STDIN.gets_to_end)
+
+	exit_with 0
+end
+
+def exp()
+	t = STDIN.read_line.to_i64
+	
+	i = 0i64; STDIN.each_line do |line|
+		t **= line.to_i64
+	end
+
+	puts t; exit_with 0
+end
+
+
+def nth(arg1)
+	end_ = arg1.to_i64
+	i = 0i64; STDIN.each_line do |line|
+		i += 1
+		if i == end_
+			puts line
+			break
+		end
+	end
+	exit_with 0
+end
+def last_nth(arg1)
+	end_ = arg1.to_i64
+	i = 0i64; STDIN.gets_to_end.reverse.each_line do |line|
+		i += 1
+		if i == end_
+			puts line
+			break
+		end
+	end;
+	exit_with 0
+end
+
+def t_()
+	File.tempname("coreutils","_tmp")
+end
+
+def gsub_in_place(arg1, arg2, arg3)
+	regex = Regex.new(arg1)
+	text = ""
+	#	puts line.gsub(regex, arg3).to_s
+	#end
+
+	File.open(arg3, "r").each_line do |line|;text+=line.gsub(regex, arg2).to_s; text += "\n";
+ end
+	File.open(t = t_, "w", File.info(arg3).permissions) do |h|
+		h.print text
+	end
+	begin
+		mv t, arg3
+	rescue
+		rm t
+	end
+	exit_with 0
+end
+
+
+def replace_in_place(arg1, arg2, arg3)
+	#regex = Regex.new(arg1)
+	text = ""
+	File.open(arg3, "r").each_line do |line|;text+=line.gsub(arg1, arg2).to_s; text += "\n" end
+	File.open(t = t_, "w", File.info(arg3).permissions) do |h|
+		h.print text
+	end
+
+	begin
+		mv t, arg3
+	rescue
+		rm t
+	end
+	exit_with 0
+
+end
+
+
+
+
+
+#end
+
+def sort_in_place(arg1)
+text = File.read(arg1).split("\n").sort.join
+	File.open(t = t_, "w", File.info(arg1).permissions) do |h|
+		h.print text
+	end
+	begin
+		mv t, arg1
+	rescue
+		rm t
+	end
+	exit_with 0
+end
+
+
+def count(arg1)
+	i = 0
+	max = arg1.to_i
+	while i < max
+		puts(i)
+		i += 1
+	end;
+	#STDOUT.close
+
+	exit_with 0
+end
+
+def gsub(arg1, arg2)
+regex = Regex.new(arg1)
+STDIN.each_line do |line|
+	puts( line.gsub(regex, arg2).to_s); end
+
+	exit_with 0; end
+	#; exit)w 0; end
+
+
+def replace_not_in_place(arg1, arg2)
+STDIN.each_line do |line|
+	puts(line.gsub(arg1, arg2).to_s)
+	#end
+end
+	exit_with 0
+	end
+# 0
+#end
+
+
+
+
+def selectlines()
+	STDIN.each_line do |line|
+if line.strip.size > 0
+	puts line
+end
+end
+end
+
+
+def bold_(arg, two="")
+	text = arg.to_s
+	text += two.to_s
+
+
+	if STDOUT.tty?
+		return text.colorize.bold.to_s
+	else
+		return "<b>" + text + "</b>"
+	end
+end
+
+
+def argument_data_(program)
+	if STDOUT.tty? == false
+	text="<!-- Generated by the functions file --><div style='border-radius: 50px; border: 10px dotted blue'>\n"
+	else
+		text = ""
+	end
+
+	
+	array = {
+		"count" => "[number]",
+		"args" => ["like xargs", "[program] [program arguments as one argument]",
+
+		"better xargs, works flawlessly with spaces in name"]
+	}
+	short_desc, usage, long_desc = array[program]
+
+	text += bold_("NAME") + "\n\t" + program
+	text += " - "
+	text += short_desc + "\n" * 2 + bold_("SYNOPSIS") + "\n"
+#	tebold_("SYNOPSIS_")# + bold("SYNOPSIS")
+	text +=  "\t"
+	text += bold_(program) + " "
+	text +=  array[program][1] + "\n\n"
+	text +=  array[program][2] + "\n\n"
+	
+	if STDOUT.tty? == false
+		text = text.gsub("\n", "<br/>     ").gsub("\t", "&nbsp;" * 5)
+		text += "</div>\n\n"
+	end
+
+	puts text
+	
+#		puts "</
+#		puts "</
+end
+
+
+def black()
+STDIN.each_char do |char|
+print char.colorize(:black)
+end
+
+exit_with 0
+end
+
+def blue()
+STDIN.each_char do |char|
+print char.colorize(:blue)
+end
+
+exit_with 0
+end
+
+def cyan()
+STDIN.each_char do |char|
+print char.colorize(:cyan)
+end
+
+exit_with 0
+end
+
+def green()
+STDIN.each_char do |char|
+print char.colorize(:green)
+end
+
+exit_with 0
+end
+
+def magenta()
+STDIN.each_char do |char|
+print char.colorize(:magenta)
+end
+
+exit_with 0
+end
+
+def red()
+STDIN.each_char do |char|
+print char.colorize(:red)
+end
+
+exit_with 0
+end
+
+def white()
+STDIN.each_char do |char|
+print char.colorize(:white)
+end
+
+exit_with 0
+end
+
+def yellow()
+STDIN.each_char do |char|
+print char.colorize(:yellow)
+end
+
+exit_with 0
+end
+
+def bold()
+	STDIN.each_char { |char| print char.colorize.bold }
+	exit_with 0
+end
+
+
+def underline()
+	STDIN.each_char { |char| print char.colorize.underline }
+	exit_with 0
+end

data/gregory_coreutils/build/make

@@ -0,0 +1,93 @@
+#!/bin/bash
+RUBY_PROGRAMS=ruby_programs
+UTILITIES=utilities
+#UTILITIE
+
+green() {
+	echo -e "\e[32m$1\e[0m"
+}
+
+cd ..
+rm -rf $UTILITIES
+mkdir $UTILITIES
+cd build
+
+(grep -E '^\s*def\s*' functions | grep -Ev '_\('; cat code) | foreach /dev/null > /dev/null
+cd ..
+cd $UTILITIES
+
+
+#chmod +x *
+#cd ..
+
+green "First part done"
+
+cd ..
+rm -rf $RUBY_PROGRAMS
+mkdir $RUBY_PROGRAMS
+cd build
+
+(grep -E '^\s*def\s*' ruby_functions | grep -Ev '_\('; cat code) | foreach /dev/null || exit
+cd ..
+cd $RUBY_PROGRAMS || exit 1
+green "Starting compilation"; input=`cat ../build/ruby_functions | xargs echo`
+
+for i in $input; do
+mv ../utilities/$i .
+done
+
+
+
+#chmod +x *
+#cd ..
+
+green "Second part done"
+#pwd
+echo
+green "Starting compilation";
+
+#cat ../build/ruby_functions | xargs rm -f
+cd ..
+
+#clear
+cd utilities
+lines=`find -type f | wc -l`
+
+green "Checking the Syntax of $lines programs"
+
+
+
+
+
+
+#cd utilities
+for i in *; do
+crystal build --no-codegen $i -o $i.program || exit 1
+done
+
+#echo "Syntax OK"
+
+green "Syntax OK"
+for i in *; do
+#echo "\e[32mCompiling $i... \e[0m"
+
+green "Compiling $i with 30 threads  ..."
+
+
+
+viu $(find /usr/share/wallpapers/ -type f | grep -E 'jpg|png' | shuf | head -n 1) -w 80 -h 12 2>/dev/null &
+
+
+#ruby -e "Compiling $i... "
+crystal build --release $i --threads 30 -o $i.program || exit 1
+rm $i
+mv $i.program $i
+strip $i
+done
+
+#
+#
+#for i in *; do
+#echo Compiling 
+
+echo -e "\e[32m`toilet ALL DONE FOR COREUTILS --width=90`\e[0m"

data/gregory_coreutils/build/mk

@@ -0,0 +1,74 @@
+#!/bin/bash
+COMPILATION=.compilation
+RUBY_PROGRAMS=ruby_programs
+UTILITIES=utilities
+green() {
+	echo -e "\e[32m$1\e[0m"
+}
+
+echo -e "\e[32m"
+ruby code
+#green `ruby code`
+
+if [[ $(basename `pwd` > /dev/null) -eq build ]]; then
+	green 'In the correct folder'
+#	green 'In the correct folder'
+fi
+
+
+cd ..
+#rm -rf $UTILITIES
+rm -rf $COMPILATION
+mkdir -p $UTILITIES
+mkdir -p $COMPILATION
+mkdir -p $RUBY_PROGRAMS
+cd build
+(grep -E '^def\s*' functions | grep -Ev '_\('; cat code) | foreach /dev/null > /dev/null
+
+green "First part done"
+(grep -E '^\s*def\s*' ruby_functions | grep -Ev '_\('; cat code) | foreach /dev/null || exit 1
+green "Starting compilation"; input=`cat ../build/ruby_functions | xargs echo`
+cd ..
+
+for i in $input; do
+
+mv $COMPILATION/$i $RUBY_PROGRAMS/$i   || exit 1
+done
+
+
+
+#
+cd $COMPILATION || exit 1
+lines=`find . -type f | wc -l`
+green "Checking the Syntax of $lines programs"
+
+
+if [[ $lines -gt 10 ]]; then
+	echo;
+else
+	exit 1
+fi
+for i in *; do
+crystal build --no-codegen $i -o ../utilities/$i &
+done
+green "Syntax OK"
+
+wait
+
+
+for i in *; do
+green "Compiling $i with 30 threads  ..."
+
+#green ART
+#echo
+test -x  ../$UTILITIES/$i ||   ( \
+viu $(find /usr/share/wallpapers/ -type f | grep -E 'jpg|png' | shuf | head -n 1) -w 80 -h 12 2>/dev/null & crystal build --release $i --threads 30 -o ../$UTILITIES/$i )
+rm -rf $i
+# -rf
+done
+echo -e "\e[32m`toilet ALL DONE FOR COREUTILS --width=90`\e[0m"
+cd ../utilities
+
+strip *
+./count 10
+wc -c *

data/gregory_coreutils/build/regex

@@ -0,0 +1,2 @@
+gsub '(?:(^def .*[^_])\((?:([a-zA-Z0-9]*)\s*,?\s*)([a-zA-Z0-9]*)\s*\)\s*$)' "\1(*, \2)" < functions | replace "(*, )" "()" > new_functions
+gsub (^\t.*nth.*)(\d+)\) \1{"arg1": \2}) < functions | less