home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / modes / multi-forms-mode / test.forms < prev    next >
Encoding:
Text File  |  1992-01-03  |  2.4 KB  |  52 lines
  1. ;; -*- mode: forms -*-
  2. ;; test.forms test for forms-mode
  3. ;; This demo does some protocol data.
  4.  
  5. (setq forms-field-sep "#")
  6.  
  7. ;  NAME         LABEL           FIELD  DFLT      SIZE  LINE-SIZE
  8. ;         VISIBLE                           NEWLINE-P  
  9.  
  10. (setq forms-format-list    '(
  11.    (timestamp t "TIME: "           1   "1"  nil  8   nil)
  12.    (visible   t "  Vis: "          2   "t"  nil  3   nil)
  13.    (type      t "   TYPE: "        3  "nil" nil  5   nil)
  14.    (v         t "V?: "             6   nil  t    1   nil)
  15.    (vcount    t "  VNUM: "         7   nil  nil  3   nil)
  16.    (duration  t " DURATION: "      4   nil  nil  5   nil)
  17.    (verbal    t "  VERBAL>>: "     5   nil  t    t   nil)
  18.    (mm        t "MM?: "           12   nil  1    1   nil)
  19.    (mmcount   t "  MNUM: "        13   nil  nil  3   nil)
  20.    (mba       t "  MBA?: "        14   nil  nil  1   nil)
  21.    (mbacount  t "  MBANUM: "      15   nil  nil  3   nil)
  22.    (mouse     t "  MOUSE>>: "     16   nil  1    t   nil)
  23.   
  24.    (allcorres t "B EVID FOR:  "    9   nil  1    25  nil)
  25.    (vcorres   t "  V EVID FOR: "   8   nil  t    25  nil)
  26.    (mcorres   t "  M EVID FOR:  " 10   nil  t    25  nil)
  27.    (11        t "        MNECC: " 11   nil  nil   t  nil)
  28.   
  29.    (soar-act  t "Soar Trace: "    17   nil  1    t  t)
  30.    (comments  t "Comments: "      18   nil  1    t  t)
  31.        ))
  32. ;**** end of forms header ****
  33.  
  34. This was originally protocol data taken here at CMU on browsing behavior.
  35.  
  36. vapeck   25-Sep-91
  37. Redone in soar/pa mode 15-Oct-91 -FER
  38.  
  39. "from original transcription by dcr, 26-Apr-90, and
  40.   verbal transcription by s.esch,  Jun-91"
  41.  
  42. Transcription of the 15-Jun-89 cT browser tape 1
  43. "Browsing for information about programming 'scalex', 'scaley', 
  44.    'labelx' and 'labely' /with programming"
  45.  
  46. total behaviors 28
  47. ;**** end of forms comment header ****
  48. 8163000 #   #     #927  #What happens is...# #   #                         #                         #                         ## #   # #   ###############
  49. 8165000 #   #     #869  #Nothing shows up.  # #   #                         #                         #                         ## #   # #   ###############
  50. 8166000 #   #     #201  #So..#v#1  #                         #                         #                         ## #   # #   ###############
  51. 8167000 #   #     #1369 #'scale' has nothing to do#v#2  #gsc                      #gsc                      #                         ## #   # #   ###############
  52.