/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / profile.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 4d 61 79 20 20 33 20 32 | on Tue |May  3 2|
|00000040| 31 3a 35 32 3a 34 37 20 | 31 39 39 34 0a 3b 3b 3b |1:52:47 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 70 72 6f 66 69 | 6c 65 2e 65 6c 0a 3b 3b |sp/profi|le.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 32 32 2e 39 32 | 2e 32 2e 0a 3b 3b 3b 20 |19.22.92|.2..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|00000190| 20 28 65 72 72 6f 72 20 | 22 60 2f 67 64 2f 67 6e | (error |"`/gd/gn|
|000001a0| 75 2f 65 6d 61 63 73 2f | 31 39 2e 30 2f 6c 69 73 |u/emacs/|19.0/lis|
|000001b0| 70 2f 70 72 6f 66 69 6c | 65 2e 65 6c 27 20 77 61 |p/profil|e.el' wa|
|000001c0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001d0| 6d 61 63 73 20 31 39 22 | 29 29 0a 0a 28 64 65 66 |macs 19"|))..(def|
|000001e0| 76 61 72 20 70 72 6f 66 | 69 6c 65 2d 66 75 6e 63 |var prof|ile-func|
|000001f0| 74 69 6f 6e 73 2d 6c 69 | 73 74 20 6e 69 6c 20 22 |tions-li|st nil "|
|00000200| 5c 0a 2a 4c 69 73 74 20 | 6f 66 20 66 75 6e 63 74 |\.*List |of funct|
|00000210| 69 6f 6e 73 20 74 6f 20 | 70 72 6f 66 69 6c 65 2e |ions to |profile.|
|00000220| 22 29 0a 28 64 65 66 76 | 61 72 20 70 72 6f 66 69 |").(defv|ar profi|
|00000230| 6c 65 2d 74 69 6d 65 72 | 2d 70 72 6f 67 72 61 6d |le-timer|-program|
|00000240| 20 28 63 6f 6e 63 61 74 | 20 65 78 65 63 2d 64 69 | (concat| exec-di|
|00000250| 72 65 63 74 6f 72 79 20 | 22 70 72 6f 66 69 6c 65 |rectory |"profile|
|00000260| 22 29 20 22 5c 0a 2a 4e | 61 6d 65 20 6f 66 20 74 |") "\.*N|ame of t|
|00000270| 68 65 20 70 72 6f 66 69 | 6c 65 20 74 69 6d 65 72 |he profi|le timer|
|00000280| 20 70 72 6f 67 72 61 6d | 2e 22 29 0a 28 64 65 66 | program|.").(def|
|00000290| 76 61 72 20 70 72 6f 66 | 69 6c 65 2d 74 69 6d 65 |var prof|ile-time|
|000002a0| 72 2d 70 72 6f 63 65 73 | 73 20 6e 69 6c 20 22 5c |r-proces|s nil "\|
|000002b0| 0a 50 72 6f 63 65 73 73 | 20 72 75 6e 6e 69 6e 67 |.Process| running|
|000002c0| 20 74 68 65 20 74 69 6d | 65 72 2e 22 29 0a 28 64 | the tim|er.").(d|
|000002d0| 65 66 76 61 72 20 70 72 | 6f 66 69 6c 65 2d 74 69 |efvar pr|ofile-ti|
|000002e0| 6d 65 2d 6c 69 73 74 20 | 6e 69 6c 20 22 5c 0a 4c |me-list |nil "\.L|
|000002f0| 69 73 74 20 6f 66 20 61 | 63 63 75 6d 75 6c 61 74 |ist of a|ccumulat|
|00000300| 69 76 65 20 74 69 6d 65 | 20 66 6f 72 20 65 61 63 |ive time| for eac|
|00000310| 68 20 70 72 6f 66 69 6c | 65 64 20 66 75 6e 63 74 |h profil|ed funct|
|00000320| 69 6f 6e 2e 22 29 0a 28 | 64 65 66 76 61 72 20 70 |ion.").(|defvar p|
|00000330| 72 6f 66 69 6c 65 2d 69 | 6e 69 74 2d 6c 69 73 74 |rofile-i|nit-list|
|00000340| 20 6e 69 6c 20 22 5c 0a | 4c 69 73 74 20 6f 66 20 | nil "\.|List of |
|00000350| 65 6e 74 72 79 20 74 69 | 6d 65 20 66 6f 72 20 65 |entry ti|me for e|
|00000360| 61 63 68 20 66 75 6e 63 | 74 69 6f 6e 2e 20 0a 42 |ach func|tion. .B|
|00000370| 6f 74 68 20 68 6f 77 20 | 6d 61 6e 79 20 74 69 6d |oth how |many tim|
|00000380| 65 73 20 69 6e 76 6f 6b | 65 64 20 61 6e 64 20 72 |es invok|ed and r|
|00000390| 65 61 6c 20 74 69 6d 65 | 20 6f 66 20 73 74 61 72 |eal time| of star|
|000003a0| 74 2e 22 29 0a 28 64 65 | 66 76 61 72 20 70 72 6f |t.").(de|fvar pro|
|000003b0| 66 69 6c 65 2d 6d 61 78 | 2d 66 75 6e 2d 6e 61 6d |file-max|-fun-nam|
|000003c0| 65 20 30 20 22 5c 0a 4d | 61 78 20 6c 65 6e 67 74 |e 0 "\.M|ax lengt|
|000003d0| 68 20 6f 66 20 6e 61 6d | 65 20 6f 66 20 61 6e 79 |h of nam|e of any|
|000003e0| 20 66 75 6e 63 74 69 6f | 6e 20 70 72 6f 66 69 6c | functio|n profil|
|000003f0| 65 64 2e 22 29 0a 28 64 | 65 66 76 61 72 20 70 72 |ed.").(d|efvar pr|
|00000400| 6f 66 69 6c 65 2d 74 65 | 6d 70 2d 72 65 73 75 6c |ofile-te|mp-resul|
|00000410| 74 2d 20 6e 69 6c 20 22 | 5c 0a 53 68 6f 75 6c 64 |t- nil "|\.Should|
|00000420| 20 4e 4f 54 20 62 65 20 | 75 73 65 64 20 61 6e 79 | NOT be |used any|
|00000430| 77 68 65 72 65 20 65 6c | 73 65 2e 22 29 0a 28 64 |where el|se.").(d|
|00000440| 65 66 76 61 72 20 70 72 | 6f 66 69 6c 65 2d 74 69 |efvar pr|ofile-ti|
|00000450| 6d 65 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |me (byte|-code ".|
|00000460| 89 42 87 22 20 5b 30 5d | 20 32 29 20 22 5c 0a 55 |.B." [0]| 2) "\.U|
|00000470| 73 65 64 20 74 6f 20 72 | 65 74 75 72 6e 20 72 65 |sed to r|eturn re|
|00000480| 73 75 6c 74 20 66 72 6f | 6d 20 61 20 66 69 6c 74 |sult fro|m a filt|
|00000490| 65 72 2e 22 29 0a 28 64 | 65 66 76 61 72 20 70 72 |er.").(d|efvar pr|
|000004a0| 6f 66 69 6c 65 2d 62 75 | 66 66 65 72 20 22 2a 70 |ofile-bu|ffer "*p|
|000004b0| 72 6f 66 69 6c 65 2a 22 | 20 22 5c 0a 4e 61 6d 65 |rofile*"| "\.Name|
|000004c0| 20 6f 66 20 70 72 6f 66 | 69 6c 65 20 62 75 66 66 | of prof|ile buff|
|000004d0| 65 72 2e 22 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |er.").(d|efalias |
|000004e0| 27 70 72 6f 66 69 6c 65 | 2d 66 75 6e 63 74 69 6f |'profile|-functio|
|000004f0| 6e 73 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ns #[(&o|ptional |
|00000500| 66 6c 69 73 74 29 20 22 | 08 84 06 00 09 10 c2 c3 |flist) "|........|
|00000510| 08 5c 22 87 22 20 5b 66 | 6c 69 73 74 20 70 72 6f |.\"." [f|list pro|
|00000520| 66 69 6c 65 2d 66 75 6e | 63 74 69 6f 6e 73 2d 6c |file-fun|ctions-l|
|00000530| 69 73 74 20 6d 61 70 63 | 61 72 20 70 72 6f 66 69 |ist mapc|ar profi|
|00000540| 6c 65 2d 61 2d 66 75 6e | 63 74 69 6f 6e 5d 20 33 |le-a-fun|ction] 3|
|00000550| 20 22 5c 0a 50 72 6f 66 | 69 6c 65 20 61 6c 6c 20 | "\.Prof|ile all |
|00000560| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 73 20 6c 69 |the func|tions li|
|00000570| 73 74 65 64 20 69 6e 20 | 60 70 72 6f 66 69 6c 65 |sted in |`profile|
|00000580| 2d 66 75 6e 63 74 69 6f | 6e 73 2d 6c 69 73 74 27 |-functio|ns-list'|
|00000590| 2e 0a 57 69 74 68 20 61 | 72 67 75 6d 65 6e 74 20 |..With a|rgument |
|000005a0| 46 4c 49 53 54 2c 20 75 | 73 65 20 74 68 65 20 6c |FLIST, u|se the l|
|000005b0| 69 73 74 20 46 4c 49 53 | 54 20 69 6e 73 74 65 61 |ist FLIS|T instea|
|000005c0| 64 2e 22 20 22 2a 50 22 | 5d 29 0a 28 64 65 66 61 |d." "*P"|]).(defa|
|000005d0| 6c 69 61 73 20 27 70 72 | 6f 66 69 6c 65 2d 66 69 |lias 'pr|ofile-fi|
|000005e0| 6c 74 65 72 20 23 5b 28 | 70 72 6f 63 65 73 73 20 |lter #[(|process |
|000005f0| 69 6e 70 75 74 29 20 22 | c0 c1 5c 6e 5c 22 c3 55 |input) "|..\n\".U|
|00000600| 83 0f 00 c4 c5 0e 06 5c | 22 87 0e 07 c8 5c 6e c3 |.......\|"....\n.|
|00000610| 89 94 4f 21 a0 88 0e 07 | c8 5c 6e c3 95 c9 4f 21 |..O!....|.\n...O!|
|00000620| a1 87 22 20 5b 73 74 72 | 69 6e 67 2d 6d 61 74 63 |.." [str|ing-matc|
|00000630| 68 20 22 5c 5c 2e 22 20 | 69 6e 70 75 74 20 30 20 |h "\\." |input 0 |
|00000640| 65 72 72 6f 72 20 22 42 | 61 64 20 6f 75 74 70 75 |error "B|ad outpu|
|00000650| 74 20 66 72 6f 6d 20 25 | 73 22 20 70 72 6f 66 69 |t from %|s" profi|
|00000660| 6c 65 2d 74 69 6d 65 72 | 2d 70 72 6f 67 72 61 6d |le-timer|-program|
|00000670| 20 70 72 6f 66 69 6c 65 | 2d 74 69 6d 65 20 73 74 | profile|-time st|
|00000680| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 6e 69 6c 5d |ring-to-|int nil]|
|00000690| 20 35 20 22 5c 0a 46 69 | 6c 74 65 72 20 66 6f 72 | 5 "\.Fi|lter for|
|000006a0| 20 74 68 65 20 74 69 6d | 65 72 20 70 72 6f 63 65 | the tim|er proce|
|000006b0| 73 73 2e 20 20 53 65 74 | 73 20 60 70 72 6f 66 69 |ss.  Set|s `profi|
|000006c0| 6c 65 2d 74 69 6d 65 27 | 20 74 6f 20 74 68 65 20 |le-time'| to the |
|000006d0| 72 65 74 75 72 6e 65 64 | 20 74 69 6d 65 2e 22 5d |returned| time."]|
|000006e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 72 6f |).(defal|ias 'pro|
|000006f0| 66 69 6c 65 2d 70 72 69 | 6e 74 20 23 5b 28 65 6e |file-pri|nt #[(en|
|00000700| 74 72 79 29 20 22 08 41 | c1 c2 1b 1c 1d c6 c7 08 |try) ".A|........|
|00000710| 40 5c 22 0e 08 b1 02 88 | c9 0e 5c 6e 21 88 cb 0d |@\".....|..\n!...|
|00000720| 40 21 89 14 63 88 5c 66 | 47 0b 59 84 38 00 c9 0e |@!..c.\f|G.Y.8...|
|00000730| 5c 6e 21 88 0e 5c 66 cd | 0b 5c 66 47 5a 4f 63 88 |\n!..\f.|.\fGZOc.|
|00000740| 5c 66 47 75 88 cb 0d 41 | 21 14 ce cf cd d0 5c 66 |\fGu...A|!.....\f|
|00000750| 47 5a 4f 5c 66 d1 b1 04 | 2b 87 22 20 5b 65 6e 74 |GZO\f...|+." [ent|
|00000760| 72 79 20 6e 69 6c 20 35 | 20 6f 66 66 73 65 74 20 |ry nil 5| offset |
|00000770| 73 74 72 20 74 69 6d 65 | 20 66 6f 72 6d 61 74 20 |str time| format |
|00000780| 22 25 73 22 20 73 70 61 | 63 65 20 6d 6f 76 65 2d |"%s" spa|ce move-|
|00000790| 74 6f 2d 63 6f 6c 75 6d | 6e 20 72 65 66 2d 63 6f |to-colum|n ref-co|
|000007a0| 6c 75 6d 6e 20 69 6e 74 | 2d 74 6f 2d 73 74 72 69 |lumn int|-to-stri|
|000007b0| 6e 67 20 73 70 61 63 65 | 73 20 30 20 22 2e 22 20 |ng space|s 0 "." |
|000007c0| 22 30 30 30 30 30 30 22 | 20 36 20 22 5c 6e 22 5d |"000000"| 6 "\n"]|
|000007d0| 20 36 20 22 5c 0a 50 72 | 69 6e 74 20 6f 6e 65 20 | 6 "\.Pr|int one |
|000007e0| 45 4e 54 52 59 20 28 66 | 72 6f 6d 20 60 70 72 6f |ENTRY (f|rom `pro|
|000007f0| 66 69 6c 65 2d 74 69 6d | 65 2d 6c 69 73 74 27 29 |file-tim|e-list')|
|00000800| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|00000810| 22 c0 11 c2 87 22 20 5b | 22 20 20 20 20 20 20 20 |"...." [|"       |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000850| 20 20 22 20 73 70 61 63 | 65 73 20 6e 69 6c 5d 20 |  " spac|es nil] |
|00000860| 31 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 72 |1).(defa|lias 'pr|
|00000870| 6f 66 69 6c 65 2d 72 65 | 73 75 6c 74 73 20 23 5b |ofile-re|sults #[|
|00000880| 6e 69 6c 20 22 08 c1 5c | 5c 1a 0b c4 5c 6e 4f 1d |nil "..\|\...\nO.|
|00000890| c6 0e 07 21 88 c8 20 88 | c9 0d b1 02 88 ca 5c 6e |...!.. .|......\n|
|000008a0| 21 88 cb cc 0d b1 03 88 | ca 5c 6e 21 88 cd 63 88 |!.......|.\n!..c.|
|000008b0| ce cf 0e 10 5c 22 2a 87 | 22 20 5b 70 72 6f 66 69 |....\"*.|" [profi|
|000008c0| 6c 65 2d 6d 61 78 2d 66 | 75 6e 2d 6e 61 6d 65 20 |le-max-f|un-name |
|000008d0| 38 20 72 65 66 2d 63 6f | 6c 75 6d 6e 20 73 70 61 |8 ref-co|lumn spa|
|000008e0| 63 65 73 20 30 20 73 70 | 61 63 65 20 73 77 69 74 |ces 0 sp|ace swit|
|000008f0| 63 68 2d 74 6f 2d 62 75 | 66 66 65 72 20 70 72 6f |ch-to-bu|ffer pro|
|00000900| 66 69 6c 65 2d 62 75 66 | 66 65 72 20 65 72 61 73 |file-buf|fer eras|
|00000910| 65 2d 62 75 66 66 65 72 | 20 22 46 75 6e 63 74 69 |e-buffer| "Functi|
|00000920| 6f 6e 22 20 6d 6f 76 65 | 2d 74 6f 2d 63 6f 6c 75 |on" move|-to-colu|
|00000930| 6d 6e 20 22 54 69 6d 65 | 20 28 53 65 63 6f 6e 64 |mn "Time| (Second|
|00000940| 73 2e 55 73 65 63 6f 6e | 64 73 29 5c 6e 22 20 22 |s.Usecon|ds)\n" "|
|00000950| 3d 3d 3d 3d 3d 3d 3d 3d | 22 20 22 3d 3d 3d 3d 3d |========|" "=====|
|00000960| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000970| 3d 3d 5c 6e 22 20 6d 61 | 70 63 61 72 20 70 72 6f |==\n" ma|pcar pro|
|00000980| 66 69 6c 65 2d 70 72 69 | 6e 74 20 70 72 6f 66 69 |file-pri|nt profi|
|00000990| 6c 65 2d 74 69 6d 65 2d | 6c 69 73 74 5d 20 33 20 |le-time-|list] 3 |
|000009a0| 22 5c 0a 44 69 73 70 6c | 61 79 20 70 72 6f 66 69 |"\.Displ|ay profi|
|000009b0| 6c 69 6e 67 20 72 65 73 | 75 6c 74 73 20 69 6e 20 |ling res|ults in |
|000009c0| 74 68 65 20 62 75 66 66 | 65 72 20 60 2a 70 72 6f |the buff|er `*pro|
|000009d0| 66 69 6c 65 2a 27 2e 0a | 28 54 68 65 20 62 75 66 |file*'..|(The buf|
|000009e0| 66 65 72 20 6e 61 6d 65 | 20 63 6f 6d 65 73 20 66 |fer name| comes f|
|000009f0| 72 6f 6d 20 60 70 72 6f | 66 69 6c 65 2d 62 75 66 |rom `pro|file-buf|
|00000a00| 66 65 72 27 2e 29 22 20 | 6e 69 6c 5d 29 0a 28 64 |fer'.)" |nil]).(d|
|00000a10| 65 66 61 6c 69 61 73 20 | 28 71 75 6f 74 65 20 70 |efalias |(quote p|
|00000a20| 72 6f 66 69 6c 65 2d 72 | 65 73 65 74 2d 74 69 6d |rofile-r|eset-tim|
|00000a30| 65 72 29 20 23 5b 6e 69 | 6c 20 22 c0 09 c2 5c 22 |er) #[ni|l "...\"|
|00000a40| 87 22 20 5b 70 72 6f 63 | 65 73 73 2d 73 65 6e 64 |." [proc|ess-send|
|00000a50| 2d 73 74 72 69 6e 67 20 | 70 72 6f 66 69 6c 65 2d |-string |profile-|
|00000a60| 74 69 6d 65 72 2d 70 72 | 6f 63 65 73 73 20 22 7a |timer-pr|ocess "z|
|00000a70| 5c 6e 22 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 |\n"] 3])|.(defali|
|00000a80| 61 73 20 27 70 72 6f 66 | 69 6c 65 2d 63 68 65 63 |as 'prof|ile-chec|
|00000a90| 6b 2d 7a 65 72 6f 2d 69 | 6e 69 74 2d 74 69 6d 65 |k-zero-i|nit-time|
|00000aa0| 73 20 23 5b 28 65 6e 74 | 72 79 29 20 22 08 41 41 |s #[(ent|ry) ".AA|
|00000ab0| 89 19 40 c2 55 85 0f 00 | 09 41 c2 55 3f 85 16 00 |..@.U...|.A.U?...|
|00000ac0| c3 c4 21 29 87 22 20 5b | 65 6e 74 72 79 20 74 69 |..!)." [|entry ti|
|00000ad0| 6d 65 20 30 20 65 72 72 | 6f 72 20 22 50 72 6f 63 |me 0 err|or "Proc|
|00000ae0| 65 73 73 20 74 69 6d 65 | 72 20 64 69 65 64 20 77 |ess time|r died w|
|00000af0| 68 69 6c 65 20 6d 61 6b | 69 6e 67 20 70 65 72 66 |hile mak|ing perf|
|00000b00| 6f 72 6d 61 6e 63 65 20 | 70 72 6f 66 69 6c 65 2e |ormance |profile.|
|00000b10| 22 5d 20 33 20 22 5c 0a | 49 66 20 45 4e 54 52 59 |"] 3 "\.|If ENTRY|
|00000b20| 20 68 61 73 20 6e 6f 6e | 20 7a 65 72 6f 20 74 69 | has non| zero ti|
|00000b30| 6d 65 2c 20 67 69 76 65 | 20 61 6e 20 65 72 72 6f |me, give| an erro|
|00000b40| 72 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |r."]).(d|efalias |
|00000b50| 27 70 72 6f 66 69 6c 65 | 2d 67 65 74 2d 74 69 6d |'profile|-get-tim|
|00000b60| 65 20 23 5b 6e 69 6c 20 | 22 c0 09 21 83 0e 00 c2 |e #[nil |"..!....|
|00000b70| 09 21 c3 3d 84 2a 00 c4 | c5 c6 0e 07 21 0e 08 23 |.!.=.*..|....!..#|
|00000b80| 11 c9 09 ca 5c 22 88 cb | 09 21 88 cc 20 88 cd ce |....\"..|.!.. ...|
|00000b90| 0e 0f 5c 22 88 d0 09 d1 | 5c 22 88 d2 20 87 22 20 |..\"....|\".. ." |
|00000ba0| 5b 70 72 6f 63 65 73 73 | 70 20 70 72 6f 66 69 6c |[process|p profil|
|00000bb0| 65 2d 74 69 6d 65 72 2d | 70 72 6f 63 65 73 73 20 |e-timer-|process |
|00000bc0| 70 72 6f 63 65 73 73 2d | 73 74 61 74 75 73 20 72 |process-|status r|
|00000bd0| 75 6e 20 73 74 61 72 74 | 2d 70 72 6f 63 65 73 73 |un start|-process|
|00000be0| 20 22 74 69 6d 65 72 22 | 20 67 65 74 2d 62 75 66 | "timer"| get-buf|
|00000bf0| 66 65 72 2d 63 72 65 61 | 74 65 20 70 72 6f 66 69 |fer-crea|te profi|
|00000c00| 6c 65 2d 62 75 66 66 65 | 72 20 70 72 6f 66 69 6c |le-buffe|r profil|
|00000c10| 65 2d 74 69 6d 65 72 2d | 70 72 6f 67 72 61 6d 20 |e-timer-|program |
|00000c20| 73 65 74 2d 70 72 6f 63 | 65 73 73 2d 66 69 6c 74 |set-proc|ess-filt|
|00000c30| 65 72 20 70 72 6f 66 69 | 6c 65 2d 66 69 6c 74 65 |er profi|le-filte|
|00000c40| 72 20 70 72 6f 63 65 73 | 73 2d 6b 69 6c 6c 2d 77 |r proces|s-kill-w|
|00000c50| 69 74 68 6f 75 74 2d 71 | 75 65 72 79 20 70 72 6f |ithout-q|uery pro|
|00000c60| 66 69 6c 65 2d 72 65 73 | 65 74 2d 74 69 6d 65 72 |file-res|et-timer|
|00000c70| 20 6d 61 70 63 61 72 20 | 70 72 6f 66 69 6c 65 2d | mapcar |profile-|
|00000c80| 63 68 65 63 6b 2d 7a 65 | 72 6f 2d 69 6e 69 74 2d |check-ze|ro-init-|
|00000c90| 74 69 6d 65 73 20 70 72 | 6f 66 69 6c 65 2d 69 6e |times pr|ofile-in|
|00000ca0| 69 74 2d 6c 69 73 74 20 | 70 72 6f 63 65 73 73 2d |it-list |process-|
|00000cb0| 73 65 6e 64 2d 73 74 72 | 69 6e 67 20 22 70 5c 6e |send-str|ing "p\n|
|00000cc0| 22 20 61 63 63 65 70 74 | 2d 70 72 6f 63 65 73 73 |" accept|-process|
|00000cd0| 2d 6f 75 74 70 75 74 5d | 20 34 20 22 5c 0a 47 65 |-output]| 4 "\.Ge|
|00000ce0| 74 20 74 69 6d 65 20 66 | 72 6f 6d 20 74 69 6d 65 |t time f|rom time|
|00000cf0| 72 20 70 72 6f 63 65 73 | 73 20 69 6e 74 6f 20 60 |r proces|s into `|
|00000d00| 70 72 6f 66 69 6c 65 2d | 74 69 6d 65 27 2e 22 5d |profile-|time'."]|
|00000d10| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 72 6f |).(defal|ias 'pro|
|00000d20| 66 69 6c 65 2d 66 69 6e | 64 2d 66 75 6e 63 74 69 |file-fin|d-functi|
|00000d30| 6f 6e 20 23 5b 28 66 75 | 6e 20 66 6c 69 73 74 29 |on #[(fu|n flist)|
|00000d40| 20 22 08 3f 3f 85 17 00 | 09 08 40 40 3d 83 12 00 | ".??...|..@@=...|
|00000d50| 08 40 41 87 c2 09 08 41 | 5c 22 87 22 20 5b 66 6c |.@A....A|\"." [fl|
|00000d60| 69 73 74 20 66 75 6e 20 | 70 72 6f 66 69 6c 65 2d |ist fun |profile-|
|00000d70| 66 69 6e 64 2d 66 75 6e | 63 74 69 6f 6e 5d 20 33 |find-fun|ction] 3|
|00000d80| 20 22 5c 0a 4c 69 6e 65 | 61 72 20 73 65 61 72 63 | "\.Line|ar searc|
|00000d90| 68 20 66 6f 72 20 46 55 | 4e 20 69 6e 20 46 4c 49 |h for FU|N in FLI|
|00000da0| 53 54 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ST."]).(|defalias|
|00000db0| 20 27 70 72 6f 66 69 6c | 65 2d 73 74 61 72 74 2d | 'profil|e-start-|
|00000dc0| 66 75 6e 63 74 69 6f 6e | 20 23 5b 28 66 75 6e 29 |function| #[(fun)|
|00000dd0| 20 22 c0 09 5c 6e 5c 22 | 89 1b 84 0e 00 c4 c5 09 | "..\n\"|........|
|00000de0| 5c 22 88 0b 40 c6 55 84 | 1d 00 0b 89 40 54 a0 82 |\"..@.U.|....@T..|
|00000df0| 2f 00 0b c7 a0 88 0b 41 | 89 13 0e 08 40 a0 88 0b |/......A|....@...|
|00000e00| 0e 08 41 a1 29 87 22 20 | 5b 70 72 6f 66 69 6c 65 |..A.)." |[profile|
|00000e10| 2d 66 69 6e 64 2d 66 75 | 6e 63 74 69 6f 6e 20 66 |-find-fu|nction f|
|00000e20| 75 6e 20 70 72 6f 66 69 | 6c 65 2d 69 6e 69 74 2d |un profi|le-init-|
|00000e30| 6c 69 73 74 20 69 6e 69 | 74 2d 74 69 6d 65 20 65 |list ini|t-time e|
|00000e40| 72 72 6f 72 20 22 46 75 | 6e 63 74 69 6f 6e 20 25 |rror "Fu|nction %|
|00000e50| 73 20 6d 69 73 73 69 6e | 67 20 66 72 6f 6d 20 6c |s missin|g from l|
|00000e60| 69 73 74 22 20 30 20 31 | 20 70 72 6f 66 69 6c 65 |ist" 0 1| profile|
|00000e70| 2d 74 69 6d 65 5d 20 34 | 20 22 5c 0a 4f 6e 20 65 |-time] 4| "\.On e|
|00000e80| 6e 74 72 79 2c 20 6b 65 | 65 70 20 63 75 72 72 65 |ntry, ke|ep curre|
|00000e90| 6e 74 20 74 69 6d 65 20 | 66 6f 72 20 66 75 6e 63 |nt time |for func|
|00000ea0| 74 69 6f 6e 20 46 55 4e | 2e 22 5d 29 0a 28 62 79 |tion FUN|."]).(by|
|00000eb0| 74 65 2d 63 6f 64 65 20 | 22 c0 11 c0 87 22 20 5b |te-code |"...." [|
|00000ec0| 31 30 30 30 30 30 30 20 | 70 72 6f 66 69 6c 65 2d |1000000 |profile-|
|00000ed0| 6d 69 6c 6c 69 6f 6e 5d | 20 31 29 0a 28 64 65 66 |million]| 1).(def|
|00000ee0| 61 6c 69 61 73 20 27 70 | 72 6f 66 69 6c 65 2d 75 |alias 'p|rofile-u|
|00000ef0| 70 64 61 74 65 2d 66 75 | 6e 63 74 69 6f 6e 20 23 |pdate-fu|nction #|
|00000f00| 5b 28 66 75 6e 29 20 22 | c0 09 5c 6e 5c 22 c0 09 |[(fun) "|..\n\"..|
|00000f10| 0b 5c 22 c4 89 1d 1e 06 | 1e 07 89 1e 08 83 1a 00 |.\".....|........|
|00000f20| 0e 07 84 1f 00 c9 ca 09 | 5c 22 88 0e 08 89 40 53 |........|\"....@S|
|00000f30| a0 88 0e 08 40 cb 55 3f | 3f 85 8c 00 0e 08 41 16 |....@.U?|?.....A.|
|00000f40| 08 0e 5c 66 40 0e 08 40 | 5a 16 06 0e 5c 66 41 0e |..\f@..@|Z...\fA.|
|00000f50| 08 41 5a 15 0e 08 cb a0 | 88 0e 08 cb a1 88 0d cb |.AZ.....|........|
|00000f60| 59 84 60 00 0d 0e 0d 5c | 5c 15 0e 06 53 16 06 0e |Y.`....\|\...S...|
|00000f70| 07 0e 06 0e 07 40 5c 5c | a0 88 0e 07 0d 0e 07 41 |.....@\\|.......A|
|00000f80| 5c 5c a1 88 0e 07 41 0e | 0d 57 3f 85 8c 00 0e 07 |\\....A.|.W?.....|
|00000f90| 89 40 54 a0 88 0e 07 89 | 41 0e 0d 5a a1 2c 87 22 |.@T.....|A..Z.,."|
|00000fa0| 20 5b 70 72 6f 66 69 6c | 65 2d 66 69 6e 64 2d 66 | [profil|e-find-f|
|00000fb0| 75 6e 63 74 69 6f 6e 20 | 66 75 6e 20 70 72 6f 66 |unction |fun prof|
|00000fc0| 69 6c 65 2d 69 6e 69 74 | 2d 6c 69 73 74 20 70 72 |ile-init|-list pr|
|00000fd0| 6f 66 69 6c 65 2d 74 69 | 6d 65 2d 6c 69 73 74 20 |ofile-ti|me-list |
|00000fe0| 6e 69 6c 20 75 73 65 63 | 20 73 65 63 20 61 63 63 |nil usec| sec acc|
|00000ff0| 75 6d 20 69 6e 69 74 2d | 74 69 6d 65 20 65 72 72 |um init-|time err|
|00001000| 6f 72 20 22 46 75 6e 63 | 74 69 6f 6e 20 25 73 20 |or "Func|tion %s |
|00001010| 6d 69 73 73 69 6e 67 20 | 66 72 6f 6d 20 6c 69 73 |missing |from lis|
|00001020| 74 22 20 30 20 70 72 6f | 66 69 6c 65 2d 74 69 6d |t" 0 pro|file-tim|
|00001030| 65 20 70 72 6f 66 69 6c | 65 2d 6d 69 6c 6c 69 6f |e profil|e-millio|
|00001040| 6e 5d 20 35 20 22 5c 0a | 57 68 65 6e 20 74 68 65 |n] 5 "\.|When the|
|00001050| 20 63 61 6c 6c 20 74 6f | 20 74 68 65 20 66 75 6e | call to| the fun|
|00001060| 63 74 69 6f 6e 20 46 55 | 4e 20 69 73 20 66 69 6e |ction FU|N is fin|
|00001070| 69 73 68 65 64 2c 20 61 | 64 64 20 69 74 73 20 72 |ished, a|dd its r|
|00001080| 75 6e 20 74 69 6d 65 2e | 22 5d 29 0a 28 64 65 66 |un time.|"]).(def|
|00001090| 61 6c 69 61 73 20 27 70 | 72 6f 66 69 6c 65 2d 61 |alias 'p|rofile-a|
|000010a0| 2d 66 75 6e 63 74 69 6f | 6e 20 23 5b 28 66 75 6e |-functio|n #[(fun|
|000010b0| 29 20 22 08 4b c1 08 21 | 47 1a 89 1b 40 c4 3d 84 |) ".K..!|G...@.=.|
|000010c0| 14 00 c5 c6 08 5c 22 88 | 08 c7 89 42 42 0e 08 42 |.....\".|...BB..B|
|000010d0| 16 08 08 c7 89 89 42 42 | 42 0e 09 42 16 09 0e 5c |......BB|B..B...\|
|000010e0| 6e 5c 6e 57 83 34 00 5c | 6e 16 5c 6e 08 cb 08 0b |n\nW.4.\|n.\n....|
|000010f0| 5c 22 4d 2a 87 22 20 5b | 66 75 6e 20 73 79 6d 62 |\"M*." [|fun symb|
|00001100| 6f 6c 2d 6e 61 6d 65 20 | 66 75 6e 6c 65 6e 20 64 |ol-name |funlen d|
|00001110| 65 66 20 6c 61 6d 62 64 | 61 20 65 72 72 6f 72 20 |ef lambd|a error |
|00001120| 22 54 6f 20 70 72 6f 66 | 69 6c 65 3a 20 25 73 20 |"To prof|ile: %s |
|00001130| 6d 75 73 74 20 62 65 20 | 61 20 75 73 65 72 2d 64 |must be |a user-d|
|00001140| 65 66 69 6e 65 64 20 66 | 75 6e 63 74 69 6f 6e 22 |efined f|unction"|
|00001150| 20 30 20 70 72 6f 66 69 | 6c 65 2d 74 69 6d 65 2d | 0 profi|le-time-|
|00001160| 6c 69 73 74 20 70 72 6f | 66 69 6c 65 2d 69 6e 69 |list pro|file-ini|
|00001170| 74 2d 6c 69 73 74 20 70 | 72 6f 66 69 6c 65 2d 6d |t-list p|rofile-m|
|00001180| 61 78 2d 66 75 6e 2d 6e | 61 6d 65 20 70 72 6f 66 |ax-fun-n|ame prof|
|00001190| 69 6c 65 2d 66 69 78 2d | 66 75 6e 5d 20 35 20 22 |ile-fix-|fun] 5 "|
|000011a0| 5c 0a 50 72 6f 66 69 6c | 65 20 74 68 65 20 66 75 |\.Profil|e the fu|
|000011b0| 6e 63 74 69 6f 6e 20 46 | 55 4e 2e 22 20 22 61 46 |nction F|UN." "aF|
|000011c0| 75 6e 63 74 69 6f 6e 20 | 74 6f 20 70 72 6f 66 69 |unction |to profi|
|000011d0| 6c 65 3a 20 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |le: "]).|(defalia|
|000011e0| 73 20 27 70 72 6f 66 69 | 6c 65 2d 66 69 78 2d 66 |s 'profi|le-fix-f|
|000011f0| 75 6e 20 23 5b 28 66 75 | 6e 20 64 65 66 29 20 22 |un #[(fu|n def) "|
|00001200| c0 89 89 89 c1 c0 89 1a | 1b 1c 1d 1e 06 1e 07 1e |........|........|
|00001210| 08 0e 09 47 ca 57 3f 85 | a0 00 0e 09 40 16 07 0e |...G.W?.|....@...|
|00001220| 09 41 40 16 06 0e 09 41 | 41 40 15 0e 07 0e 06 44 |.A@....A|A@.....D|
|00001230| 16 08 0d 3b 85 3c 00 0e | 09 47 ca 57 3f 85 a0 00 |...;.<..|.G.W?...|
|00001240| 0d 3b 84 4a 00 0d 13 82 | 59 00 ca 14 0e 08 0d 43 |.;.J....|Y......C|
|00001250| a4 16 08 ca 0e 09 9b 40 | 13 0b 3c 83 6f 00 0b 40 |.......@|..<.o..@|
|00001260| cb 3d 83 6f 00 0e 08 0b | 43 a4 16 08 5c 66 54 14 |.=.o....|C...\fT.|
|00001270| 5c 66 0e 09 9b 89 12 40 | cc 9a 3f 85 a0 00 0e 08 |\f.....@|..?.....|
|00001280| cd 43 a4 ce cf 0e 10 44 | 44 43 a4 d1 d2 d3 43 5c |.C.....D|DC....C\|
|00001290| 6e a4 45 43 a4 d4 43 a4 | d5 cf 0e 10 44 44 43 a4 |n.EC..C.|....DDC.|
|000012a0| d2 43 a4 2e 07 87 22 20 | 5b 6e 69 6c 20 32 20 73 |.C...." |[nil 2 s|
|000012b0| 75 66 66 69 78 20 69 6e | 74 65 72 20 63 6f 75 6e |uffix in|ter coun|
|000012c0| 74 20 74 68 69 72 64 20 | 73 65 63 6f 6e 64 20 66 |t third |second f|
|000012d0| 69 72 73 74 20 70 72 65 | 66 69 78 20 64 65 66 20 |irst pre|fix def |
|000012e0| 33 20 69 6e 74 65 72 61 | 63 74 69 76 65 20 28 70 |3 intera|ctive (p|
|000012f0| 72 6f 66 69 6c 65 2d 67 | 65 74 2d 74 69 6d 65 29 |rofile-g|et-time)|
|00001300| 20 28 70 72 6f 66 69 6c | 65 2d 67 65 74 2d 74 69 | (profil|e-get-ti|
|00001310| 6d 65 29 20 70 72 6f 66 | 69 6c 65 2d 73 74 61 72 |me) prof|ile-star|
|00001320| 74 2d 66 75 6e 63 74 69 | 6f 6e 20 71 75 6f 74 65 |t-functi|on quote|
|00001330| 20 66 75 6e 20 73 65 74 | 71 20 70 72 6f 66 69 6c | fun set|q profil|
|00001340| 65 2d 74 65 6d 70 2d 72 | 65 73 75 6c 74 2d 20 70 |e-temp-r|esult- p|
|00001350| 72 6f 67 6e 20 28 70 72 | 6f 66 69 6c 65 2d 67 65 |rogn (pr|ofile-ge|
|00001360| 74 2d 74 69 6d 65 29 20 | 70 72 6f 66 69 6c 65 2d |t-time) |profile-|
|00001370| 75 70 64 61 74 65 2d 66 | 75 6e 63 74 69 6f 6e 5d |update-f|unction]|
|00001380| 20 38 20 22 5c 0a 54 61 | 6b 65 20 66 75 6e 63 74 | 8 "\.Ta|ke funct|
|00001390| 69 6f 6e 20 46 55 4e 20 | 61 6e 64 20 72 65 74 75 |ion FUN |and retu|
|000013a0| 72 6e 20 69 74 20 66 69 | 78 65 64 20 66 6f 72 20 |rn it fi|xed for |
|000013b0| 70 72 6f 66 69 6c 69 6e | 67 2e 0a 44 45 46 20 69 |profilin|g..DEF i|
|000013c0| 73 20 28 73 79 6d 62 6f | 6c 2d 66 75 6e 63 74 69 |s (symbo|l-functi|
|000013d0| 6f 6e 20 46 55 4e 29 2e | 22 5d 29 0a 28 64 65 66 |on FUN).|"]).(def|
|000013e0| 61 6c 69 61 73 20 27 70 | 72 6f 66 69 6c 65 2d 72 |alias 'p|rofile-r|
|000013f0| 65 73 74 6f 72 65 2d 66 | 75 6e 20 23 5b 28 66 75 |estore-f|un #[(fu|
|00001400| 6e 29 20 22 08 40 4b c1 | 89 1a 1b 89 1c 41 89 12 |n) ".@K.|.....A..|
|00001410| 41 40 3b 83 15 00 5c 6e | 41 12 5c 6e 41 40 3c 83 |A@;...\n|A.\nA@<.|
|00001420| 28 00 5c 6e 41 40 40 c5 | 3d 83 28 00 5c 6e 41 12 |(.\nA@@.|=.(.\nA.|
|00001430| c6 5c 6e 9b 40 89 13 3c | 85 41 00 0b 41 40 c7 3d |.\n.@..<|.A..A@.=|
|00001440| 85 41 00 5c 6e 0b 41 41 | 40 41 a1 2b 87 22 20 5b |.A.\n.AA|@A.+." [|
|00001450| 66 75 6e 20 6e 69 6c 20 | 69 6e 64 65 78 20 62 6f |fun nil |index bo|
|00001460| 64 79 20 64 65 66 20 69 | 6e 74 65 72 61 63 74 69 |dy def i|nteracti|
|00001470| 76 65 20 33 20 70 72 6f | 66 69 6c 65 2d 74 65 6d |ve 3 pro|file-tem|
|00001480| 70 2d 72 65 73 75 6c 74 | 2d 5d 20 34 20 22 5c 0a |p-result|-] 4 "\.|
|00001490| 52 65 73 74 6f 72 65 20 | 70 72 6f 66 69 6c 65 64 |Restore |profiled|
|000014a0| 20 66 75 6e 63 74 69 6f | 6e 20 46 55 4e 20 74 6f | functio|n FUN to|
|000014b0| 20 69 74 73 20 6f 72 69 | 67 69 6e 61 6c 20 73 74 | its ori|ginal st|
|000014c0| 61 74 65 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ate."]).|(defalia|
|000014d0| 73 20 27 70 72 6f 66 69 | 6c 65 2d 66 69 6e 69 73 |s 'profi|le-finis|
|000014e0| 68 20 23 5b 6e 69 6c 20 | 22 c0 c1 5c 6e 5c 22 88 |h #[nil |"..\n\".|
|000014f0| c3 14 c5 12 c5 89 16 06 | 87 22 20 5b 6d 61 70 63 |........|." [mapc|
|00001500| 61 72 20 70 72 6f 66 69 | 6c 65 2d 72 65 73 74 6f |ar profi|le-resto|
|00001510| 72 65 2d 66 75 6e 20 70 | 72 6f 66 69 6c 65 2d 74 |re-fun p|rofile-t|
|00001520| 69 6d 65 2d 6c 69 73 74 | 20 30 20 70 72 6f 66 69 |ime-list| 0 profi|
|00001530| 6c 65 2d 6d 61 78 2d 66 | 75 6e 2d 6e 61 6d 65 20 |le-max-f|un-name |
|00001540| 6e 69 6c 20 70 72 6f 66 | 69 6c 65 2d 69 6e 69 74 |nil prof|ile-init|
|00001550| 2d 6c 69 73 74 5d 20 33 | 20 22 5c 0a 53 74 6f 70 |-list] 3| "\.Stop|
|00001560| 20 70 72 6f 66 69 6c 69 | 6e 67 20 66 75 6e 63 74 | profili|ng funct|
|00001570| 69 6f 6e 73 2e 20 20 43 | 6c 65 61 72 20 61 6c 6c |ions.  C|lear all|
|00001580| 20 74 68 65 20 73 65 74 | 74 69 6e 67 73 2e 22 20 | the set|tings." |
|00001590| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|000015a0| 27 70 72 6f 66 69 6c 65 | 2d 71 75 69 74 20 23 5b |'profile|-quit #[|
|000015b0| 6e 69 6c 20 22 c0 09 c2 | 5c 22 87 22 20 5b 70 72 |nil "...|\"." [pr|
|000015c0| 6f 63 65 73 73 2d 73 65 | 6e 64 2d 73 74 72 69 6e |ocess-se|nd-strin|
|000015d0| 67 20 70 72 6f 66 69 6c | 65 2d 74 69 6d 65 72 2d |g profil|e-timer-|
|000015e0| 70 72 6f 63 65 73 73 20 | 22 71 5c 6e 22 5d 20 33 |process |"q\n"] 3|
|000015f0| 20 22 5c 0a 4b 69 6c 6c | 20 74 68 65 20 74 69 6d | "\.Kill| the tim|
|00001600| 65 72 20 70 72 6f 63 65 | 73 73 2e 22 20 6e 69 6c |er proce|ss." nil|
|00001610| 5d 29 0a                |                         |]).     |        |
+--------+-------------------------+-------------------------+--------+--------+