Skip site navigation (1)Skip section navigation (2)
Date:      Sun, 23 Sep 2001 22:36:22 -0400
From:      The Anarcat <anarcat@anarcat.dyndns.org>
To:        freebsd-libh@freebsd.org
Subject:   (fwd) little fix for disk editor
Message-ID:  <20010923223621.B17003@shall.anarcat.dyndns.org>

next in thread | raw e-mail | index | archive | help

--JgQwtEuHJzHdouWu
Content-Type: multipart/mixed; boundary="xgyAXRrhYN0wYx8y"
Content-Disposition: inline


--xgyAXRrhYN0wYx8y
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

I should have sent this here in the first place. ;)

A.

--xgyAXRrhYN0wYx8y
Content-Type: message/rfc822
Content-Disposition: inline

Date: Sun, 23 Sep 2001 22:34:59 -0400
From: The Anarcat <anarcat@anarcat.dyndns.org>
To: Alexander Langer <alex@big.endian.de>
Subject: little fix for disk editor
Message-ID: <20010923223459.A17003@shall.anarcat.dyndns.org>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="7AUc2qLy4jB3hD7Z"
Content-Disposition: inline
User-Agent: Mutt/1.3.22.1i


--7AUc2qLy4jB3hD7Z
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

Hi.

I'm starting to hack around in libh, and it's quite fun. :)

Note: I'm running -STABLE, which adds to the fun.

First, the diskeditor wasn't working at all at first:

anarcat@shall [diskedit]$ tclh disk.tcl=20
Unable to Open_Disk md0: No such file or directory
    while executing
"Disk $disk_name"
    (procedure "list_disks" line 4)
    invoked from within
"list_disks $listbox"
    (procedure "diskwizard" line 25)
    invoked from within
"diskwizard"
    (file "disk.tcl" line 30)

I fixed the problem this way:

--- /usr/ports/misc/libh/work/libh-0.2/release/diskedit/diskwizard.tcl	Sat =
Jun  2 08:10:56 2001
+++ diskwizard.tcl	Sun Sep 23 22:32:11 2001
@@ -7,10 +7,17 @@
=20
 proc list_disks {listbox} {
     foreach disk_name [Disk::Disk_Names] {
-	if {![string match "*cd*" $disk_name]} {
-	    lappend disks [Disk $disk_name]
-	    $listbox add 0 [format "%s:\t%s" $disk_name [disk_geometry_text [Disk=
 $disk_name]]]
-	}
+	if {![string match "*cd*" $disk_name] &&=20
+            ![string match "*md*" $disk_name]
+        } {
+	    if { [catch {set d [Disk $disk_name]} fid] } {
+                # XXX: we should put this in a window
+                puts stderr "warning: $fid"
+            } else {
+                lappend disks $d
+                $listbox add 0 [format "%s:\t%s" $disk_name [disk_geometry=
_text [Disk $disk_name]]]
+            }
+        }
     }
     $listbox select 0
 }

Second, TVision seems to be broken, somehow, when I start a hui using
it, when it quits, my terminal is completely messed up. Basically, the
characters I type are not echoed to the terminal.

Example:

###########################################################################=
#####
 Alt-X Exit
                  anarcat@shall [diskedit]$ anarcat@shall [diskedit]$
anarcat@shall [diskedit]$ anarcat@shall [diskedit]$ anarcat@shall
[diskedit]$=20

This is made by typing "enter"s after quitting using Alt-X. Using
control-c doesn't show this behavior.

As I said a long time ago, I don't have much time on my hands, but I can
still do something. :) I will dig around the installer and related
scripts to see what I can do.

Any plans to have a cvs server back up anytime soon? :)

A.

--7AUc2qLy4jB3hD7Z
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (FreeBSD)
Comment: For info see http://www.gnupg.org

iEYEARECAAYFAjuum9EACgkQttcWHAnWiGdfNQCfUrdVbBxYHIx9bkRrIHGOyc99
HOcAn1y8Rhq4WZokbXiWGyhtTunPkqCU
=9K1Y
-----END PGP SIGNATURE-----

--7AUc2qLy4jB3hD7Z--

--xgyAXRrhYN0wYx8y--

--JgQwtEuHJzHdouWu
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (FreeBSD)
Comment: For info see http://www.gnupg.org

iEYEARECAAYFAjuunCQACgkQttcWHAnWiGeBlgCfYATmqTHwfYCxsn1AnmX8XuOm
FncAoIGAVAKqsf79j35N8Ri5MIs5+21L
=sR8v
-----END PGP SIGNATURE-----

--JgQwtEuHJzHdouWu--

To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-libh" in the body of the message




Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20010923223621.B17003>