From a1cf82b887682aaaaea1c4e5ac20d949e6247050 Mon Sep 17 00:00:00 2001
From: b <rowerynaksiezycu@gmail.com>
Date: Thu, 27 Feb 2025 23:12:05 +0100
Subject: [PATCH 1/1] Initial state as of 27.2.2025
---
bstatexts.pl | 272 +++++++++++++++++++++++++++++++++++++++++++++++++++
bstatexts.sh | 33 +++++++
typetime.c | 64 ++++++++++++
3 files changed, 369 insertions(+)
create mode 100755 bstatexts.pl
create mode 100755 bstatexts.sh
create mode 100644 typetime.c
diff --git a/bstatexts.pl b/bstatexts.pl
new file mode 100755
index 0000000..4b370c9
--- /dev/null
+++ b/bstatexts.pl
@@ -0,0 +1,272 @@
+#! /usr/bin/perl
+
+#31.01.2017
+#14.10.2019
+
+use strict;
+
+my $inputfile;
+my $frame=-1;
+my $title;
+my $emptylines;
+my $content;
+my $addcolors;
+my $addfq;
+my $addfqn;
+my $color;
+my $mycolor;
+my $fq;
+my @colortab = ('', 'ni', 'br', 'po', 'zi', 'fi');
+
+if (open($inputfile,'<',$ARGV[0])) {
+ while (defined(my $line = <$inputfile>)) {
+ $line =~ s/[\r\n]//g;
+ if($line =~ /^([0-9]+)>(.*)$/) { #detected new frame and title
+
+ if($frame>=0) { #update curent frame
+ update($frame,$title,$content);
+ $frame = -1;
+ }
+ $frame = $1;
+ $title = $2;
+ $title =~ s/^[ \t]+//g;
+ $title =~ s/[ \t]+$//g;
+ $content='';
+ $emptylines='';
+
+ }
+ elsif($line =~ /^>/) { #detected new frame without number - ignored area starts here
+ if($frame>=0) {
+ update($frame,$title,$content);
+ $frame = -1; #updated current frame bun not go to next
+ }
+ }
+ elsif($frame>=0) { #otherwise - continue reading a non-ignored frame
+ if($line eq '') {
+ $emptylines = $emptylines."\n";
+ $color='';#color can't continue over an empty line.
+ }
+ else {
+ if($line =~ s/^\[(fq|tq)=([A-Za-z0-9]+)\]//){ #detected start of [fq] tag - coloring of text will start here
+ $addcolors=1;
+ $addfq=1;
+ $mycolor=$2;
+ $fq=$1;
+ # print $frame.'.'.$fq.'>'."\n";
+ }
+ if($addcolors ne '') {
+ if($line =~ s/\[\/(fq|tq)\]$//){ #end of [fq] tag
+ $addfqn=1;
+ # print $frame.'./'.$fq.'>'."\n";
+ }
+
+ if ($line =~ /^((\/([0-9]*))?)((([A-Za-z0-9]+):)?)/) { #start of someone's speech
+ # print"$line\n";
+ if($1 ne ''){ #line starts with custom color
+ $color = $colortab[int($3)];
+ $line =~ s/^\/[0-9]*//;
+ }
+ elsif($4 ne '') { #a name is defined
+ $color=$colortab[($6 eq $mycolor)?1:2];
+ }
+ elsif($fq eq 'fq') { #on tq color continues for next line. On tq it doesn't
+ $color='';
+ }
+ # print $frame.'.'.$color.'>'."\n";
+ }
+
+ # elsif($line eq ''){ #color can't continue over an empty line.
+ # $color='';
+ # print $frame.'./>'."\n";
+ # }
+
+ if($color ne ''){
+ $line= '['.$color.']'.$line.'[/'.$color.']';
+ }
+ if($addfq ne '') {
+ $addfq='';
+ $line = '['.$fq.']'.$line;
+ }
+ if($addfqn ne '') {
+ $addcolors='';
+ $addfqn='';
+ $line = $line.'[/'.$fq.']';
+ }
+ # print $frame.'>'.$line."\n";
+ }
+ else {
+ $color = '';
+ }
+
+
+ if ($content eq '') {
+ $content = $line."\n";
+ }
+ else {
+ $content = $content.$emptylines.$line."\n";
+ }
+ $emptylines='';
+ }
+ }
+ }
+ if($frame>=0) {
+ update($frame,$title,$content);
+ $frame = -1;
+ }
+ close($inputfile);
+}
+
+sub update {
+ (my $frame, my $title, my $content) = @_;
+ my %data = readdatafile($frame);
+ $data{'title'} = $title;
+ $data{'content'} = $content;
+ writedatafile($frame,%data);
+}
+
+# Function to read data from datafiles.
+# Very similar to http header file reading. (function readheaderfile() in proxy
+# library)
+#
+# Differences:
+#
+# 1. After field name and colon there must be exactly one whitespace (space or
+# tab). Any other leading or trailing whitespace (but not the newline character
+# at the end of the line) is treated as part of the field value.
+#
+# 2. Instead of colon an equal sign can be used. The number of whitespaces after
+# it is then zero and not one.
+#
+# 3. When header field is split into multiple lines the next lines must start
+# with exactly one whitespace (tab or space) Any other leading or trailing
+# whitespace (but not the newline character at the end of the line) is treated
+# as part of the field value. the lines will be joined with a newline between
+# them.
+#
+# 4. When the same field name appears it replaces the previous one.
+#
+# 5. Line separator is LF and not CR LF. The CR character is treated as part of
+# the field value.
+#
+# 6. After the end of header (double newline) all next lines are treated as the
+# value of the "content" field.
+#
+# Returns a hash containing the values.
+# Names are case sensitive and are converted to lowercase
+#
+# Argument can be a path or a file handle. In case of a file handle it will just
+# read the file. In case of path it opens the file before reading and closes
+# after. On failure (file not open) returns empty hash.
+#
+sub readdatafile {
+ (my $datapath) = @_;
+ my $datafile;
+ my %data;
+ my $eoh=0;
+
+ # check if $datapath is actually a path or maybe a filehandle
+ # filehandles are references.
+ if(ref($datapath)) {
+ $datafile=$datapath;
+ unless (seek($datafile, 0, 0)) {
+ return %data;
+ }
+ }
+ else {
+ unless (open ($datafile, "<", $datapath)) {
+ return %data;
+ }
+ }
+
+ # The name of header field in previous line. Required for header fields that
+ # occupy multiple lines.
+ my $lastname='';
+
+ while (defined(my $line = <$datafile>)) {
+ my $name='';
+ my $value='';
+
+ if ($eoh){
+ unless($line eq'') {
+ $data{'content'} = $data{'content'}.$line;
+ }
+ next;
+ }
+
+ $line =~ s/[\n]$//g;
+
+ # Empty line - end of header.
+ if ($line eq ''){
+ $eoh=1;
+ }
+ # Line starts with whitespace. It's a continuation of the previous line.
+ # Concatenate the field value, separated by newline.
+ elsif($line =~ /^[ \t](.*)$/){
+ if($lastname ne '') {
+ $data{$lastname}.="\n".$1;
+ }
+ }
+ # Line starts with a name followed by colon/equal sign. Save the value
+ elsif ($line =~ /^([^:=]+)((:[ \t])|=)(.*)$/) {
+ $name = lc($1);
+ $value = $4;
+
+ $data{$name}=$value;
+
+ $lastname = $name;
+ }
+ }
+
+ # If argument was a path the file must be closed.
+ unless (ref($datapath)) {
+ close ($datafile);
+ }
+
+ return %data;
+}
+
+# the function to write data to datafiles (see readdatafile() description)
+#
+# First argument can be a path or a file handle. In case of a file handle it
+# will just read the file. In case of path it opens the file before writing and
+# closes after.
+#
+# On failure (file not open) returns 0.
+# On success returns 1.
+#
+sub writedatafile {
+ (my $headerpath, my %header) = @_;
+ my $headerfile;
+
+ if(ref($headerpath)) {
+ $headerfile=$headerpath;
+ unless (seek($headerfile, 0, 0)) {
+ return 0;
+ }
+ }
+ else {
+ unless (open ($headerfile, ">", $headerpath)) {
+ return 0;
+ }
+ }
+
+ foreach my $ind (keys %header) {
+ unless($ind eq 'content') {
+ my $headname = $ind;
+ my $headval = $header{$ind};
+ $headval =~ s/\r//g;
+ $headval =~ s/\n/\n /g;
+ print $headerfile "$headname: $headval\n";
+ }
+ }
+ print $headerfile "\n".$header{'content'};
+
+ unless (ref($headerpath)) {
+ close ($headerfile);
+ }
+ else {
+ truncate ($headerfile , tell($headerfile));
+ }
+
+ return 1;
+}
diff --git a/bstatexts.sh b/bstatexts.sh
new file mode 100755
index 0000000..8988cd0
--- /dev/null
+++ b/bstatexts.sh
@@ -0,0 +1,33 @@
+#!/bin/sh
+
+cd ~/ott/bsta/data
+
+cd ch000
+../bstatexts.pl ../ch000.txt
+
+cd ../ch001
+../bstatexts.pl ../ch001.txt
+
+cd ../ch002
+../bstatexts.pl ../ch002.txt
+
+cd ../ch003
+../bstatexts.pl ../ch003.txt
+
+cd ../ch004
+../bstatexts.pl ../ch004.txt
+
+cd ../ch005
+../bstatexts.pl ../ch005.txt
+
+cd ../ch006
+../bstatexts.pl ../ch006.txt
+
+cd ../ch007
+../bstatexts.pl ../ch007.txt
+
+cd ../ch008
+../bstatexts.pl ../ch008.txt
+
+cd ../ch009
+../bstatexts.pl ../ch009.txt
diff --git a/typetime.c b/typetime.c
new file mode 100644
index 0000000..16d568a
--- /dev/null
+++ b/typetime.c
@@ -0,0 +1,64 @@
+/*
+inspired by
+https://viewsourcecode.org/snaptoken/kilo/02.enteringRawMode.html
+
+not checking return values of C library functions is not a good
+practice but this is just a quick simple demo program
+*/
+
+#include <stdio.h>
+#include <termios.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <sys/time.h>
+
+struct termios to;
+
+void restore(void)
+{
+ tcsetattr(STDIN_FILENO, TCSAFLUSH, &to);
+}
+
+int main(int argc, char **argv)
+{
+ char ch;
+ int r;
+ struct termios ti;
+ struct timeval t0, t1;
+ unsigned int td;
+ int f1 = 0;
+
+ gettimeofday(&t0, NULL);
+
+ tcgetattr(STDIN_FILENO, &to);
+ atexit(restore);
+
+ ti = to;
+ ti.c_lflag &= ~(ECHO|ICANON);
+ tcsetattr(STDIN_FILENO, TCSAFLUSH, &ti);
+
+ while (1)
+ {
+ read(STDIN_FILENO, &ch, 1);
+ if (ch == '`')
+ break;
+ gettimeofday(&t1, NULL);
+ if (f1)
+ {
+ td = (t1.tv_sec - t0.tv_sec) * 1000 + (t1.tv_usec - t0.tv_usec) / 1000;
+ printf("%8u ms\n", td);
+ }
+ else
+ f1 = 1;
+ t0=t1;
+
+ if (ch < ' ')
+ printf("^%c\n", ch+'@');
+ else if (ch == 0x7F)
+ printf("^?\n");
+ else
+ printf("%c\n",ch);
+ }
+
+ return 0;
+}
--
2.30.2