Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!tut.cis.ohio-state.edu!att!linac!midway!uwvax!astroatc!nicmad!madnix!rat
From: rat@madnix.UUCP (David Douthitt)
Newsgroups: comp.sys.apple2
Subject: close() function for UCSD Pascal
Message-ID: <1648@madnix.UUCP>
Date: 6 Dec 90 07:12:39 GMT
References: <24019.apple.net@pro-avalon>
Reply-To: rat@madnix.UUCP (David Douthitt)
Organization: ARP Software, Madison, WI
Lines: 38


jeff@pro-avalon.cts.com (Jeff Jungblut) writes:

| |  Due to the file structure of Apple Pascal, thers is a special option
| |  for the file close operation;
| | 
| |     close ( file_id, crunch );
| | 
| |  where the crunch option causes a file system compression.

| 
| I don't remember the crunch option.  Was this new in 1.3?

No, this is a standard option for UCSD compilers like Apple Pascal.
According to "Introduction to Pascal: Including UCSD Pascal" by
Rodnay Zaks, p.239-240:

"The parameter is optional and, when present, may take three values..:

LOCK - if the file was opened with REWRITE and resides on a directory-
       structured device, the file becomes locked, i.e., permanent.
       Otherwise, it is simply closed.

PURGE - if the file resides on a block-structured device, the TITLE of
        the filename is removed from the directory.  Otherwise, the device
        is disconnected from the system.

CRUNCH - the file gets blocked at the last position of a GET or a PUT
         and ends there."


Does this help?

-- 
! InterNet: deety!rat@spool.cs.wisc.edu           !  David Douthitt
! UUCP: ...uwvax!astroatc!nicmad!madnix!deety!rat !  Madison, Wisconsin
!                   {decvax!att}!                 !  === Apple II Forever ===
! Home of Mad Apple Forth and the Tiger Toolbox   !  The Stainless Steel Rat