#include <unistd.h>
#include <math.h>
#include <ctype.h>
-#include <values.h>
#ifndef PATH_MAX
#define PATH_MAX 1024
#endif
#define DEFAULTTITLE "%h - %d. %Y.[U..[U..[D./..%X.L]..R]./.. %U%?G(%G)%!"
#define DEFAULTICON "%h: %d2. %Y.[U..[U..[D./..%X.L]..R]./.."
-#define BUILDMAX 1000
-#define SMALLBUFMAX 20
-#define MAXSCALED 15
+#define BUILDMAX 10000
+#define SMALLBUFMAX 100
+#define MAXSCALED 50
#ifndef __HPUX
static char lto_buf[20];
case 'x': geom_force(&wg); add_number(wg.x); break;
case 'X': geom_force(&rg); add_scaled(wg.x,rg.w-wg.w+1); break;
#else
- case 'X': case 'Y': add_scaled(MAXINT,0); /* skip scaled parameter */
+ case 'X': case 'Y': add_scaled(INT_MAX,0); /* skip scaled parameter */
case 'x': case 'y': break;
#endif /* !NOXWINDOWS */
case 'd': add_currentdir(); break;
}
if (*cp) cp++; /* skip the '/' */
sd= scaledstr_chop();
- if (num==MAXINT && denom==0) return;
+ if (num==INT_MAX && denom==0) return;
v= denom? (num/(double)denom) : -1;
if (v<0 || v>1) {
add_string(sd);
@@-
-chomp($nodename= `uname -n`); $? and die 'uname $?';
+chomp($nodename= `uname -n`); $? and die "uname $?";
+chomp($username= `whoami`); $? and die "whoami $?";
@he= gethostbyname $nodename or die "gethostbyname $nodename ?";
@hostnames= ($he[0], split /\s/, $he[1]);
m/^\d+\.\d+/ or die "$_ ?";
$platform= "SunOS$&";
$xbindir= '/usr/openwin/bin';
+} elsif ($uname =~ m/^FreeBSD/) {
+ chomp($_= `uname -r`); $? and die "platform $?";
+ m/^(\d+\.\d+)\-/ or die "$_ ?";
+ $platform= "FreeBSD-$1";
} elsif ($uname =~ m/^HP\-UX/) {
chomp($_= `uname -r`); $? and die "platform $?";
m/^B\.(\d+\.\d+)$/ or die "$_ ?";
; Ian Jackson's Emacs startup file - runs ~ian/emacs/ian.el
;
-(setq load-path (append '("~iwj/emacs") load-path))
+(setq load-path (append '("~@@$username@@/emacs") load-path))
(load-library "ian")
(load-library "ijackson")
(menu-bar-mode -1)
--- /dev/null
+1024 33 117385851636815625794682045272670348226429528350378659864768391051250351542749258151009620656468243493947746468877869045185455056624320499676925131648425561713585082385383007825961112176954557838606529291118468652728777501137394895737487546704720843287182661898072134181879704222022988749029714875365204438999 ian@anarres
@hostlist= ($ncipher eq 'bos' ? qw(viking dover pell arrakis) :
$ncipher eq 'cam' ? qw(jura islay dover dounreay marple belgrano) :
- qw(davenant anarres));
+ qw(davenant anarres lsd));
for ($i=0; $i<@hostlist; $i++) { last if $hostlist[$i] eq $nodename; }
if ($i>=@hostlist) {
print STDERR "!! nodename $nodename not in $ncipher list @hostlist\n";
.w3m/ 2770
private/ 2770
+.ssh/ 2755
+.ssh/authorized_keys 644
+
bitmap/root -> fischer
.