Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/grade.elib
There are no other files named grade.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   JYVaaAm,vM"#a23>dJ?T:[~& Calculate Averages& Read Real Number& Write Real Number^R Input Scores^R Sum Scores~DIRECTORY~~DOC~ & Calculate Averages~DOC~ & Read Real Number~DOC~ & Write Real Number~DOC~ ^R Input Scores~DOC~ ^R Sum Scores~DOC~ ~FileName~~FileName~

~INVERT~@0[10[2
QNumber Width-QNumber Precision-1@f L
1A"D1U2\U1'
QNumber Precision:"L
1A-."E1U2'C
QNumber Precision<Q1*10U1>
.+QNumber Precision(
1A"D1U2\+Q1U1'
)J
'
Q2,Q1+f([1)[21[3
QNumber Precision<Q1/10U110*Q3U3>
Q2-(Q3*Q1)U2
(QNumber Width+1)-QNumber Precision-1,Q1\
QNumber Precision:"L
.i
QNumber Precision,Q2\'
0[2
0LQStart ColumnC
QNum Of Scores<m(m.m& Read Real Number)+Q2U2WC>
(QNumber Width+1)D
Q2m(m.m& Write Real Number)
%[a
0[20[3
0J
<
:s
";0LQaC
m(m.m& Read Real Number)+Q2U2+Q3U3
>
Js
Averages0LQaC
QNumber WidthD
.((Q2+(Q3/2))/Q3M(M.M& Write Real Number))J1d
Q...Z[M
1[Overwrite Mode
(-1)*(QNumber Width+1)+QStart Column
<1,fName: 
fqn@;
Jsn
0LQaC
FSRGetTy-2"L0T'
.,.
m(m.m^R Sum Scores)
>
Qam(m.m& Calculate Averages)
QNum Of Scores*(QNumber Width+1)+QStart Column+1(
)m(m.m& Calculate Averages)
	GradeF-*- Teco -*- macros for editing a grade sheet.
What this does for you:
  It allows you to input the scores conveniently to the correct column
  of your score sheet, allows you to input the scores in any order, and
  keeps a running total of the scores of each student.

File format:
  1) All the lines of the file which will have grades must already be
     padded with spaces to as many columns as will hold scores.
  2) You must not use TABs for whitespace; use spaces.  (See M-X Indent
     Tabs Mode for how to do this easily).
  3) Each line with starts with '"' will be the scores for a single student.
  4) There will be one line in the file which startes with "Averages" to
     hold the averages.
  An example file (which I suggest you copy to start with) can be found in
  EMACS:GRADE.FORM.

Control Variables:
   Number Width
      Is the total width of the normal scores.  The sum can have a width
      one greater than this value.
   Number Precision
      If all your scores are integers, this should be -1; otherwise it is the
      number of decimal points of precision in representing the numbers.
   Start Column
      The column in which the first character of the first score would be
      written.

Commands:
   ^R Input Scores
      Given a numeric argument of which score we are dealing with, this
      will repeatedly query you for a unique substring of a student's
      name (actually, it just wants some text to find the right line by)
      and jump to the right place in the file to type the current score
      for that student.  You will be in overwrite mode, so you can just
      type.  The score should be in exactly the correct position, though,
      padded to the left with blanks.  You may omit the decimal point
      for integer scores.

      Exit the input of a score either with C-M-Z or <RET>.  Exit the whole
      query loop by giving no name when it asks for one.

   ^R Sum Scores
      If for some reason you want to directly sum the scores on a line (it
      is done automatically in ^R Input Scores as long as you do not leave
      that line when you input the grade), move to that line and call
      ^R Sum Scores.

   ^R Calculate Averages
      Given an argument like ^R Input Scores, updates the averages for that
      column.  This is also automatically called by ^R Input Scores.

Suggested way to work this:
   If you have these lines at the END of your grade file, everything will
   work fine.  Just change the numbers to what you want.  You will be able
   to call ^R Input Scores with C-M-# and ^R Sum Scores with C-M-%.  See
   the info node on Local Modes for more information.

      Local Modes:
      Mode:Text
      Indent Tabs Mode:0
      Start Column:40
      Number Width:5
      Number Precision:-1
      Num Of Scores:6
      ...#:m(m.mLoad Library)ETH:Gradem.m^R Input Scores
      ...%:m.m^R Sum Scores
      ...$:m.m^R Calculate Averages
      End:
C Reads following number, maybe with D.P.  # of places
expected after D.P. is fixed.  Returns <num>*10^<Number Precision>.C]^R Calculates the sum of the scores on the current line
and writes it in the sum column.BC Calculates the average of the scores in the
<arg>th column.3^R Reads names from the terminal and hops to the proper
position to input the person's grade.  <CR> or C-M-Z should pop back to asking
for the next name; you should be on the same line as the grade (the line you
were sent to) when you type <CR> or C-M-Z.  Exit with an empty name to the
name prompt.c& Read Real Number
& Write Real Number
^R Sum Scores
& Calculate Averages
^R Input Scores
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2