Sat Sep 25 15:52:19 EDT 2021

diff 6e8b8c8f1a34f5229075fa06eff5f22ab25eb901 uncommitted
--- a/sys/src/9/port/devtls.c
+++ b/sys/src/9/port/devtls.c
@@ -1375,7 +1375,13 @@
		tr->handout += n;
		break;
	case Qdata:
+ if(waserror()){
+ freeb(b);
+ nexterror();
+ }
		checkstate(tr, 0, SOpen);
+ poperror();
+
		tlsrecwrite(tr, RApplication, b);
		tr->dataout += n;
		break;

(use-modules
 (guix packages)
 (guix build-system texlive)
 (guix build-system copy)
 (guix svn-download)
 (guix licenses))

(define-public texlive-generic-babel-hungarian
  (package
    (name "texlive-generic-babel-hungarian")
    (version (number->string %texlive-revision))
    (source (origin
	      (method svn-fetch)
	      (uri
	       (let ((component "generic")
		     (id "babel-hungarian"))
		 (svn-reference
		  (url (string-append "svn://www.tug.org/texlive/tags/"
				      %texlive-tag "/Master/texmf-dist/"
				      "tex/" component "/" id))
		  (revision %texlive-revision))))
	      (file-name (string-append name "-" version "-checkout"))
	      (sha256
	       (base32
		"0xk21zw4wdp844yd0dsgmbfy9rs235kx6v3iv92f4chm3g9acb51"))))
    (build-system copy-build-system)
    (arguments
     '(#:install-plan
       '(("." "share/texmf-dist/tex/generic/babel-hungarian"))))
    (home-page "https://www.ctan.org/pkg/babel-hungarian")
    (synopsis "Babel support for Hungarian")
    (description #f)
    (license #f))) ;;license:lppl1.3+


(packages->manifest
 (cons*
  texlive-generic-babel-hungarian
  (map specification->package
   (list
    "texlive-latex-base"
    "latex2html"
    "texlive-bin"
    "texlive-metafont-base"
    "texlive-latex-babel"
    "texlive-latex-amscls"
    "texlive-latex-amsmath"))))

(define-public texlive-generic-babel-hungarian
  (package
    (name "texlive-generic-babel-hungarian")
    (version (number->string %texlive-revision))
    (source (origin
	      (method svn-fetch)
	      (uri
	       (let ((component "generic")
		     (id "babel-hungarian")
		     (%texlive-revision 49701))
		 (svn-reference
		  (url (string-append "svn://www.tug.org/texlive/tags/"
				      %texlive-tag "/Master/texmf-dist/"
				      "tex/" component "/" id))
		  (revision %texlive-revision))))
	      (file-name (string-append name "-" version "-checkout"))
	      (sha256
	       (base32
		"0xk21zw4wdp844yd0dsgmbfy9rs235kx6v3iv92f4chm3g9acb51"))))
    (build-system texlive-build-system)
    (arguments '(#:tex-directory "generic/babel-hungarian"
		 #:phases
		 (modify-phases
		     %standard-phases
		   (add-after 'install 'install-for-real
		     (lambda* (#:key outputs #:allow-other-keys)
		       (install-file ""))))))
    (home-page "https://www.ctan.org/pkg/babel-hungarian")
    (synopsis "Babel support for Hungarian")
    (description #f)
    (license #f ;;license:lppl1.3+
     )))

From: "Theo de Raadt" <deraadt@openbsd.org>
To: "Patrick Harper" <paianni@fastmail.com>
cc: "tech@openbsd.org" <tech@openbsd.org>
Subject: Re: Should 80MB of RAM be enough for kernel relinking on i386?
Comments: In-reply-to "Patrick Harper" <paianni@fastmail.com>
   message dated "Thu, 23 Sep 2021 22:25:38 +0100."
Date: Thu, 23 Sep 2021 15:31:46 -0600
Sender: owner-tech@openbsd.org

You've made a pretty big assumption there.

When we see something we don't think is important, we delete the
email and carry on with more important things.

You think hand-tuning this one paragraph is going to reduce the amount
of mail we delete because it doesn't matter?  It won't.

A large number of inaccurate documentation problems in the world can be
solved by deleting the innacurate documentation rather than trying to fine-tune
it to be more accurate for the moment, until it becomes inaccurate again.
In truth, noone cares about this paragraph.  It has been perceveived as
a promise.  We don't need to make statements people perceive as promises.

Patrick Harper <paianni@fastmail.com> wrote:

> Because you might not wish to deal with people like me posting dmesg's
> of absurdly deficient hardware on the lists.  Putting minimum values up
> means you can cast off everything you don't want to bother trying to
> support as 'not worth your time', without anyone else having to
> discover that it wasn't worth their time either.
>
> On Thu, 23 Sep 2021, at 21:25, Theo de Raadt wrote:
> > We don't list memory sizing for other architectures.  Why list it for
i386?
> >
> > Why not delete the text?
> >
> > Because someone wants the truth?  You can't handle ....

diff 8f4842d3465e96d264f5c2f7fa2d61db871aae9f uncommitted
--- a/sys/src/cmd/vmx/ksetup.c
+++ b/sys/src/cmd/vmx/ksetup.c
@@ -728,7 +728,7 @@
 static int
 tryelf(void)
 {
- char *s;
+ char *s, *t;

	if(!elfheaders()) return 0;
	elfdata();
@@ -735,6 +735,11 @@
	if(!elfsymbols()) return 0;
	s = symaddr(elfsym("ostype"));
	if(s != nil && strcmp(s, "OpenBSD") == 0)
+ return obsdload();
+ /* from 6.9 up, bsd.rd has just these syms */
+ s = symaddr(elfsym("rd_root_image"));
+ t = symaddr(elfsym("rd_root_size"));
+ if(s != nil && t != nil)
		return obsdload();
	return 0;
 }

diff 8f4842d3465e96d264f5c2f7fa2d61db871aae9f uncommitted
--- a/sys/src/cmd/vmx/ksetup.c
+++ b/sys/src/cmd/vmx/ksetup.c
@@ -728,7 +728,7 @@
 static int
 tryelf(void)
 {
- char *s;
+ char *s, *t;

	if(!elfheaders()) return 0;
	elfdata();
@@ -735,6 +735,11 @@
	if(!elfsymbols()) return 0;
	s = symaddr(elfsym("ostype"));
	if(s != nil && strcmp(s, "OpenBSD") == 0)
+ return obsdload();
+ /* from 6.9 up, bsd.rd has just these syms */
+ s = symaddr(elfsym("rd_root_image"));
+ t = symaddr(elfsym("rd_root_size"));
+ if(s != nil && t != nil)
		return obsdload();
	return 0;
 }

Passives Online-Einkommen ab 900 EUR pro Stunde
>>>>>>>>>>>>>>
https://www.google.com/url?q=https%3A%2F%2Fvk.cc%2Fc5TErp&sa=D&oe=87&usg=AFQjCNGER3suzFXrVfFj8alSN_WnyidwBQ
<<<<<<<<<<<<<

Cool website!

My name’s Eric, and I just found your site - okturing.com - while surfing the net.
You showed up at the top of the search results, so I checked you out.  Looks like
what you’re doing is pretty cool.

But if you don’t mind me asking – after someone like me stumbles across
okturing.com, what usually happens?

Is your site generating leads for your business?

I’m guessing some, but I also bet you’d like more… studies show that 7 out 10 who
land on a site wind up leaving without a trace.

Not good.

Here’s a thought – what if there was an easy way for every visitor to “raise their
hand” to get a phone call from you INSTANTLY… the second they hit your site and
said, “call me now.”

You can –

Talk With Web Visitor is a software widget that’s works on your site, ready to
capture any visitor’s Name, Email address and Phone Number.  It lets you know
IMMEDIATELY – so that you can talk to that lead while they’re literally looking
over your site.

CLICK HERE http://talkwithcustomer.com to try out a Live Demo with Talk With Web
Visitor now to see exactly how it works.

Time is money when it comes to connecting with leads – the difference between
contacting someone within 5 minutes versus 30 minutes later can be huge – like 100
times better!

That’s why we built out our new SMS Text With Lead feature… because once you’ve
captured the visitor’s phone number, you can automatically start a text message
(SMS) conversation.

Think about the possibilities – even if you don’t close a deal then and there, you
can follow up with text messages for new offers, content links, even just “how you
doing?” notes to build a relationship.

Wouldn’t that be cool?

CLICK HERE http://talkwithcustomer.com to discover what Talk With Web Visitor can
do for your business.

You could be converting up to 100X more leads today!
Eric

PS: Talk With Web Visitor offers a FREE 14 days trial – and it even includes
International Long Distance Calling.
You have customers waiting to talk with you right now… don’t keep them waiting.
CLICK HERE http://talkwithcustomer.com to try Talk With Web Visitor now.

If you'd like to unsubscribe click here
http://talkwithcustomer.com/unsubscribe.aspx?d=okturing.com

#!/bin/rc
rfork en

wins=()
cons=()
chans=('irc.oftc.net!#cat-v')

server=irc.oftc.net
realname='<nil>'
nick=$user
userpass=`{auth/userpasswd 'server='^$server^' service=irc user='^$nick
>[2]/dev/null}
if(~ $#userpass 2) {
	pass=$userpass(2)
}


while(~ $1 -*){
	switch($1){
	case -s
		server=$2
		shift
	case -n
		nick=$2
		shift
	case -u
		user=$2
		shift
	case -r
		realname=$2
		shift
	case -p
		pass=$2
		shift
	}
	shift
}

bind '#|' /n/wircrc

fn wmk {
	id=$1
	>/n/wircrc/data1 {
		@{
			rfork s
			d=/n/wircrc.$id
			p=`{cat /dev/ppid}
			mount $wsys $d 'new -scroll -pid '^$p || exit
			echo -n $id >$d/label
			echo wnew $id $d $p
			<$d/cons {
				while(line=`{read}){
					~ $line '' || echo wtype $id $line
				}
			}
		}
		echo wclose $id
	}
	exit
}

fn wio {
	if(~ $1 $wins){
		d=wd$1
		d=$$d
		shift
		@{echo $* >$d/cons}
	}
}

fn sio {
	d=$1
	if(~ $d *!*)
		d=`{echo $d | awk -F'!' '{print $1}'}
	if(~ $d $cons){
		d=cd$d
		d=$$d
		shift
		@{echo $* >$d/data}
	}
}

fn wctl {
	if(~ $1 $wins){
		d=wd$1
		d=$$d
		shift
		@{echo $* >$d/wctl}
	}
}

fn hangup {
	if(~ $1 $cons){
		d=cd$1
		d=$$d
		@{echo hangup >$d/ctl} &
	}
}

fn netdial {
	<$1 {
		conn=`{basename -d $1}^/^`{read}
		echo -n connect $2 >$conn/ctl >[2]/dev/null || exit 'connect
		failed'
		<$conn/data >$conn/data {
			shift
			shift
			$*
			exit
		}
	}
}
fn csdial {
	echo $2 | ndb/csquery $1/cs | sed 's/> //g;/^$/d' |
		while(l=`{read} && ~ $#l 2 && ! @{netdial $l $*(3-)}){
		status=failed
	}
}
fn dial {
	csdial /net $* || csdial /net.alt $*
}

fn irc {
	>[3]/n/wircrc/data1 {
		echo cnew $1 $conn >[1=3]
		tr -d '' | @{
			while(line=`{read}){
				#echo xxx $line >/dev/cons
				if(~ $line(1) PING)
					echo PONG $line(2-)
				if not {
					line=`{echo $line | sed '
s/^:([^!]+)[^\ ]+\ PRIVMSG\ (#[^\ ]+)[^:]+:(.*)$/cmsg '$1'!\2 \1 \3/g;
s/^:([^!]+)[^\ ]+\ PRIVMSG\ :?([^\ ]+)[^:]+:(.*)$/cmsg '$1'!\1 \1 \3/g;
s/^:([^!]+)[^\ ]+\ NOTICE\ \*[^:]+:(.*)$/cmsg '$1' \1 \2/g;
s/^:([^!]+)[^\ ]+\ NOTICE\ ([^\ ]+)[^:]+:(.*)$/cmsg '$1'!\1 \1 \3/g;
s/^:([^!]+)[^\ ]+\ ([0123456789]+)[^:]+:?(.*)$/xmsg '$1' \2 \3/g;
s/^:([^!]+)[^\ ]+\ (MODE|TOPIC)\ (#[^\ ]+)\ :?(.*)$/xmsg '$1'!\3 \2 \4/g;
s/^:([^!]+)[^\ ]+\ (QUIT|NICK)\ :(.*)$/xmsg '$1' \2 \1 \3/g;
s/^:([^!]+)[^\ ]+\ (JOIN|PART)\ (#[^\ ]+).*$/xmsg '$1'!\3 \2 \1/g;
'}
					~ $line '' || echo $line >[1=3]
				}
			}
		}
		echo cclose $1 >[1=3]
	}
}

fn shutdown {
	for(i in $cons)
		hangup $i
	for(i in $wins){
		d=wp$i
		d=$$d
		@{echo hangup >/proc/$d/notepg} &
	}
	exec cat /n/wircrc/data >/dev/null
}

fn sighup {
	shutdown
}

fn sigint {
	shutdown
}

wmk $server &
dial tcp!$server!6667 irc $server &

</n/wircrc/data {
	while(a=`{read}){
		id=$a(2)
		switch($a(1)){
		case cnew
			cd$id=$a(3)
			cons=($id $cons)
			~ $#pass 0 || sio $id PASS $pass
			sio $id USER $user foo bar :$realname
			sio $id NICK $nick
			sio $id PRIVMSG NickServ :identify $pass
			for(i in $chans){
				if(~ $i $id!'#'*)
					sio $id JOIN `{echo $i | awk -F'!' '{print
					$2}'}
			}
		case cclose
			d=cd$id
			$d=()
			oids=$cons
			cons=()
			for(i in $oids){
				if(!  ~ $i $id)
					cons=($i $cons)
			}
			for(i in $wins){
				if(~ $i $id || ~ $i $id!*)
					wio $i HUNGUP $id
			}
		case wnew
			wd$id=$a(3)
			wp$id=$a(4)
			wins=($id $wins)
			wio $id '---' $id '---'
		case wclose
			d=wd$id
			p=wp$id
			unmount $$d
			$d=()
			$p=()
			oids=$wins
			wins=()
			for(i in $oids){
				if(!  ~ $i $id)
					wins=($i $wins)
			}
			if(~ $id $chans){
				oids=$chans
				chans=()
				for(i in $oids){
					if(!  ~ $i $id)
						chans=($i $chans)
				}
				sio $id PART `{echo $id | awk -F'!' '{print $2}'}
			}
			if(~ $#wins 0)
				shutdown
		case xmsg
			if(~ $id $wins)
				wio $id $a(3-)
			if not {
				for(i in $wins){
					if(~ $i $id!*)
						wio $i $a(3-)
				}
			}
		case cmsg
			if(~ $id $wins)
				wio $id $a(3) '→' $a(4-)
			if not if(!  ~ $id *!'#'*){
				id=`{echo $id | awk -F'!' '{print $1}'}
				for(i in $wins)
					if(~ $i $id || ~ $i $id!*)
						wio $i /t $a(3) '→' $a(4-)
			}
		case wtype
			switch($a(3)){
			case /x
				shutdown
			case /s
				server=$a(4)
				if(!  ~ $server '' && ! ~ $server $cons){
					if(!  ~ $server $wins)
						wmk $server &
					dial tcp!$server!6667 irc $server &
				}
			case /j /t
				target=$a(4)
				server=`{echo $id | awk -F'!' '{print $1}'}
				if(!  ~ $target '' && ~ $server $cons){
					id=$server!$target
					if(~ $id $wins){
						wctl $id unhide
						wctl $id current
					}
					if not {
						wmk $id &
					}
					if(~ $a(3) /j && ~ $target '#'*){
						if(!  ~ $id $chans){
							chans=($id $chans)
							sio $server JOIN $target
						}
					}
				}
			case /h
				if(~ $a(3) $cons)
					id=$a(3)
				hangup `{echo $id | awk -F'!' '{print $1}'}
			case *
				target=`{echo $id | awk -F'!' '{print $2}'}
				if(~ $target '')
					sio $id $a(3-)
				if not {
					a=$a(3-)
					sio $id PRIVMSG $target ':'^$"a
				}
			}
		}
	}
}
shutdown

https://github.com/lubiedo/pomo9

prev | next