From xemacs-m  Tue Jul 29 16:57:14 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id QAA03071
	for <xemacs-beta@xemacs.org>; Tue, 29 Jul 1997 16:57:12 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.6/8.8.6/Debian/GNU) id OAA03660;
	Tue, 29 Jul 1997 14:57:26 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: Suggested library function addition
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 29 Jul 1997 14:57:26 -0700
Message-ID: <87d8o1plmh.fsf@bittersweet.inetarena.com>
Lines: 17
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta15) - "Berlin"


 I think entering file modes as decimal integers is a real pain.

(defun octal->int (octal-string)
  "Convert a string of octal digits to an int."
  (with-temp-buffer
   (let ((digit nil) (acc 0))
     (insert-string octal-string)
     (goto-char (point-min))
     (while (setq digit (char-after))
       (if (> digit ?7)
	   (error "Arg out of range: Octal digits must be in the range [?0-?7]."))
       (setq acc (+ (- (char-to-int digit)
		       (char-to-int ?0))
		    (* 8 acc)))
       (forward-char))
     acc)))

