| blob | 887aa32c8e94929358f8a127b06cdb8975008640 |
1 ;;; -*- LISP -*-
3 ;;; Compiler declarations. IOTA is a function for binding I/O
4 ;;; streams. See documentation in MC:LIBDOC;IOTA >
10 ;;; More compiler stuff. Macsyma builtins.
14 ;;; These two MACRO's are just for CONS'ing up silly Macsyma structure
16 ;; (MLIST-SIMP <thing1> <thing2> ...)
17 ;; returns ((MLIST SIMP) <thing1> <thing2> ...)
22 ;; (MTIMES-BLOCKS <n>)
23 ;; returns ((MTIMES SIMP) <n> $BLOCKS) which will display as
24 ;; "<n> BLOCKS" when Macsyma's display routines are run.
29 ;;; Returns info about the total number of blocks free in the system.
30 ;;; expects an arg of an already open file object which is open to
31 ;;; a file directory (file with name .FILE. (DIR) on any directory.)
43 PACK))
46 PACK))))
51 )))
52 L)))))
54 ;;; STATUS-DSKUSE\AUX
55 ;;; This function TYI's from STREAM until a character whose fixnum
56 ;;; value is TERM is seen (eats the TERM character, too).
57 ;;; Returns the readlisted form of the characters seen before TERM.
65 ;;; STATUS-USER-DSKUSE
66 ;;; Returns info about a user's disk use. The file object corresponding
67 ;;; to the user's file directory must already be open and the first two
68 ;;; lines should already have been READLINE'd.
69 ;;; NAME= STRIPDOLLAR'd name
70 ;;; USERNAME= Un-STRIPDOLLAR'd name
71 ;;; DIRNAME= Un-STRIPDOLLAR'd dirname
72 ;;; ALL-FLAG= a flag which if non-null means count all files in the
73 ;;; directory - if NIL means just to count files with FN1 the
74 ;;; same as NAME.
75 ;;; STREAM= a file object open to the directory
86 DIRNAME
89 DIR-PRIMARY-DSKUSE))
92 DIR-SECONDARY-DSKUSE)))
96 USERNAME
99 USR-PRIMARY-DSKUSE))
101 '&SECONDARY
103 USR-SECONDARY-DSKUSE))))))))
118 ALL-FLAG
119 NAME)))
127 ALL-FLAG
128 NAME)))))))))
130 ;;; STATUS-USER-DSKUSE\PARSE-LINE
131 ;;; Reads an individual line from the dir and returns a CONS whose
132 ;;; CAR is user use and CDR is directory use by the file in question.
133 ;;; (Links count as 0).
134 ;;;
135 ;;; STREAM= the file directory file object already opened and in position
136 ;;; ALL= flag saying whether or not to count files that don't have an FN1
137 ;;; the same as the value of NAME
138 ;;; NAME = a value to compare the FN1 to if ALL is non-NIL.
150 ;;; STATUS-USER-DSKUSE\PARSE-LINE\AUX
151 ;;; Reads 7 characters from STREAM, but only looks at first 6.
152 ;;; Implodes all 6 except for trailing spaces and returns as a symbol.
153 ;;;
154 ;;; STREAM= file object being read from.
164 ;;; $FULLDISKUSE
165 ;;;
166 ;;; Syntax is:
167 ;;;
168 ;;; FULLDISKUSE();
169 ;;;
170 ;;; which will default to the user's name, or
171 ;;;
172 ;;; FULLDISKUSE(<name>);
173 ;;;
174 ;;; <name> will not be evaluted.
175 ;;;
176 ;;; Returns:
177 ;;;
178 ;;; [[TOTAL FREE BLOCKS, [<pack-type>, <pack-number>, <n> BLOCKS],
179 ;;; [<pack-type>, <pack-number>, <n> BLOCKS], ...]
180 ;;; [DIRECTORY BLOCK USAGE, <directory-name>
181 ;;; [PRIMARY, <n> BLOCKS],
182 ;;; [SECONDARY, <n> BLOCKS]]
183 ;;; [USER BLOCK USAGE, <user-name>,
184 ;;; [PRIMARY, <n> BLOCKS],
185 ;;; [SECONDARY, <n> BLOCKS]]]
186 ;;;
187 ;;; If the user has his own directory, the last element of the list
188 ;;; (USER BLOCK USAGE) is omitted since it would be the same as
189 ;;; DIRECTORY BLOCK USAGE.
190 ;;;
191 ;;; <pack-type> ::= "PRIMARY PACK" or "SECONDARY PACK"
192 ;;; <pack-number> ::= a fixnum
193 ;;; <n> ::= a fixnum
194 ;;;
195 ;;; Occurances of `<n> BLOCKS' are in the form of a Macsyma
196 ;;; multiplication between a fixnum <n> and the Macsyma symbol BLOCKS.
197 ;;;
214 DIRNAME ALL STREAM)))))
216 ;;; PRINTDISKUSE
217 ;;; Takes args just like FULLDISKUSE.
218 ;;; Prints in English nicely formatted the disk use for a user.
270 ;;; DISKFREE
271 ;;; DISKFREE(TRUE); or just DISKFREE(); returns total free blocks on
272 ;;; both packs.
273 ;;; DISKFREE(PRIMARY); returns blocks free on primary pack.
274 ;;; DISKFREE(SECONDARY); returns blocks free on secondary pack.
275 ;;; DISKFREE(<n>); returns the free blocks on pack <n>
276 ;;; return value is a fixnum times the symbol blocks.
289 TYO)
306 ;;; DISKUSE
307 ;;; Returns the amount of disk space a user is taking up (in blocks)
308 ;;; as a fixnum times the symbol BLOCKS. Takes args like FULLDISKUSE.