#!/usr/local/bin/wish -f # # This script generates a process browser, which lists the running # processes (using unix "ps") and allows you to send signals (such as KILL) # using a popup menu. # Create a scrollbar on the right side of the main window and a listbox # on the left side. # # Henry Minsky (hqm@ai.mit.edu) May 1994 # # proc strip_blanks { str} { set tmpstr "" ; foreach i $str { if {$i != ""} { lappend tmpstr $i } } return $tmpstr } ################################################################ # Default settings set menufont "-Adobe-helvetica-bold-r-normal--*-120-*" set tfont "fixed" wm title . "Running Processes" # The default update time of display is 10 seconds # You can change it in the configure menu. set MIN_UPDATE_PERIOD 2000 set UPDATE_PERIOD 10000 # The default double click behavior set USER_SIG KILL # The default command line args to "ps" set DEFAULT_PS_ARGS "-auxww" ################################################################ # You can get the implementation dependent signal names for your system # from /usr/include/signal.h # set common_sigs { {INT 2 interupt} {QUIT 3 quit} {IOT 6 abort} {KILL 9 non-catchable, non-ignorable kill} {STOP 17 sendable stop signal not from tty} {ALRM 14 alarm clock} {TERM 15 software termination signal} } # Make a button bar for the common signals frame .bbar button .bbar.kill -text KILL -command { send_signal KILL } -font $menufont button .bbar.int -text INT -command { send_signal INT } -font $menufont button .bbar.quit -text QUIT -command { send_signal QUIT } -font $menufont button .bbar.iot -text IOT -command { send_signal IOT } -font $menufont button .bbar.term -text TERM -command { send_signal TERM } -font $menufont button .bbar.stop -text STOP -command { send_signal STOP } -font $menufont button .bbar.hup -text HUP -command { send_signal HUP } -font $menufont pack .bbar.kill .bbar.int .bbar.quit \ .bbar.iot .bbar.term .bbar.stop .bbar.hup \ -side left -padx 3m -ipadx 6m -pady 3m pack .bbar -side bottom -expand yes -fill x -anchor w set all_sigs { {HUP 1 hangup} {INT 2 interrupt} {QUIT 3 quit} {ILL 4 illegal instruction (not reset when caught)} {TRAP 5 trace trap (not reset when caught)} {ABRT 6 abort()} {IOT SIGABRT compatibility} {EMT 7 EMT instruction} {FPE 8 floating point exception} {KILL 9 kill (cannot be caught or ignored)} {BUS 10 bus error} {SEGV 11 segmentation violation} {SYS 12 bad argument to system call} {PIPE 13 write on a pipe with no one to read it} {ALRM 14 alarm clock} {TERM 15 software termination signal from kill} {URG 16 urgent condition on IO channel} {STOP 17 sendable stop signal not from tty} {TSTP 18 stop signal from tty} {CONT 19 continue a stopped process} {CHLD 20 to parent on child stop or exit} {TTIN 21 to readers pgrp upon background tty read} {TTOU 22 like TTIN for output if (tp->t_local<OSTOP)} {IO 23 input/output possible signal} {XCPU 24 exceeded CPU time limit} {XFSZ 25 exceeded file size limit} {VTALRM 26 virtual time alarm} {PROF 27 profiling time alarm} {WINCH 28 window size changes} {INFO 29 information request} {USR1 30 user defined signal 1} {USR2 31 user defined signal 2} } set posix_sigs { {HUP 1 hangup} {INT 2 interrupt} {QUIT 3 quit} {ILL 4 illegal instruction (not reset when caught)} {ABRT 6 abort()} {FPE 8 floating point exception} {KILL 9 kill (cannot be caught or ignored)} {SEGV 11 segmentation violation} {PIPE 13 write on a pipe with no one to read it} {ALRM 14 alarm clock} {TERM 15 software termination signal from kill} {STOP 17 sendable stop signal not from tty} {TSTP 18 stop signal from tty} {CONT 19 continue a stopped process} {CHLD 20 to parent on child stop or exit} {TTIN 21 to readers pgrp upon background tty read} {TTOU 22 like TTIN for output if (tp->t_local<OSTOP)} {USR1 30 user defined signal 1} {USR2 31 user defined signal 2} } ################################################################ set common_ps_keywords { {%cpu percentage cpu usage (alias pcpu)} {%mem percentage memory usage (alias pmem)} {uid effective user ID} {user user name (from uid)} {majflt total page faults} {minflt total page reclaims} {msgrcv total messages received (reads from pipes/sockets)} {msgsnd total messages sent (writes on pipes/sockets)} {vsz virtual size in Kbytes (alias vsize)} {nice nice value (alias ni)} {nsigs total signals taken (alias nsignals)} {nswap total swaps in/out} {pgid process group number} {pid process ID} {ppid parent process ID} {rgid real group ID} {ruid real user ID} {ruser user name (from ruid)} {start time started} {time accumulated cpu time, user + system (alias cputime)} {tpgid control terminal process group ID} {tsiz text size (in Kbytes)} {tty full name of control terminal} {lim memoryuse limit} {logname login name of user who started the process} } set ALL_ps_keywords { {%cpu percentage cpu usage (alias pcpu)} {%mem percentage memory usage (alias pmem)} {acflag accounting flag (alias acflg)} {cpu short-term cpu usage factor (for scheduling)} {inblk total blocks read (alias inblock)} {jobc job control count} {ktrace tracing flags} {ktracep tracing vnode} {lim memoryuse limit} {lstart time started} {majflt total page faults} {minflt total page reclaims} {msgrcv total messages received (reads from pipes/sockets)} {msgsnd total messages sent (writes on pipes/sockets)} {nice nice value (alias ni)} {nivcsw total involuntary context switches} {nsigs total signals taken (alias nsignals)} {nswap total swaps in/out} {nvcsw total voluntary context switches} {nwchan wait channel (as an address)} {oublk total blocks written (alias oublock)} {p_ru resource usage (valid only for zombie)} {paddr swap address} {pagein pageins (same as majflt)} {pgid process group number} {pid process ID} {ppid parent process ID} {pri scheduling priority} {re core residency time (in seconds; 127 = infinity)} {rgid real group ID} {rlink reverse link on run queue, or 0} {rss resident set size} {rsz resident set size + (text size / text use count) (alias rs- size)} {ruid real user ID} {ruser user name (from ruid)} {sess session pointer} {sig pending signals (alias pending)} {sigcatch caught signals (alias caught)} {sigignore ignored signals (alias ignored)} {sigmask blocked signals (alias blocked)} {sl sleep time (in seconds; 127 = infinity)} {start time started} {svgid saved gid from a setgid executable} {svuid saved uid from a setuid executable} {tdev control terminal device number} {time accumulated cpu time, user + system (alias cputime)} {tpgid control terminal process group ID} {tsess control terminal session pointer} {tsiz text size (in Kbytes)} {tt control terminal name (two letter abbreviation)} {tty full name of control terminal} {ucomm name to be used for accounting} {uid effective user ID} {upr scheduling priority on return from system call (alias usrpri)} {user user name (from uid)} {vsz virtual size in Kbytes (alias vsize)} {wchan wait channel (as a symbolic name)} {xstat exit or stop status (valid only for stopped or zombie process)} {logname login name of user who started the process} } set state_fields { {D Process in disk (or other short term, uninterruptable) wait.} {I Process that is idle (sleeping for longer than about 20 seconds).} {P Process in page wait.} {R Process is Runnable.} {S Process is sleeping for less than about 20 seconds.} {T Process is stopped.} {Z Process is dead (a ``zombie'').} {+ Process is in the foreground process group of its control terminal.} {< Process has raised CPU scheduling priority.} {> Process has specified a soft limit on memory requirements and is currently exceeding that limit; such a pro cess is (necessarily) not swapped.} {A Process has asked for random page replacement (VA_ANOM, from vadvise(2), for example, lisp(1) in a garbage collect).} {E The process is trying to exit.} {L The process has pages locked in core (for example, for raw I/O).} {N The process has reduced CPU scheduling priority (see setpriority(2)).} {S The process has asked for FIFO page replacement (VA_SEQL, from vadvise(2), for example, a large image processing program using virtual memory to sequentially address voluminous data).} {s The process is a session leader.} {V The process is suspended during a vfork.} {W The process is swapped out.} {X The process is being traced or debugged.} } # get the doc string for a process state character (from ps -o state) proc lookup_proc_state {char} { global state_fields foreach entry $state_fields { if {$char == [string index $entry 0]} { return $entry; } } return {} } set PROCESS_FLAGS { {SLOAD 0x0000001 in core} {SSYS 0x0000002 swapper or pager process} {SLOCK 0x0000004 process being swapped out} {SSWAP 0x0000008 save area flag} {STRC 0x0000010 process is being traced} {SWTED 0x0000020 another tracing flag} {SSINTR 0x0000040 sleep is interruptible} {SPAGE 0x0000080 process in page wait state} {SKEEP 0x0000100 another flag to prevent swap out} {SOMASK 0x0000200 restore old mask after taking signal} {SWEXIT 0x0000400 working on exiting} {SPHYSIO 0x0000800 doing physical I/O} {SVFORK 0x0001000 process resulted from vfork(2)} {SVFDONE 0x0002000 another vfork flag} {SNOVM 0x0004000 no vm, parent in a vfork} {SPAGV 0x0008000 init data space on demand, from vnode} {SSEQL 0x0010000 user warned of sequential vm behavior} {SUANOM 0x0020000 user warned of random vm behavior} {STIMO 0x0040000 timing out during sleep} {SNOCLDSTOP 0x0080000 no SIGCHLD when children stop} {SCTTY 0x0100000 has a controlling terminal} {SOWEUPC 0x0200000 owe process an addupc() call at next} {SSEL 0x0400000 selecting; wakeup/waiting danger} {SEXEC 0x0800000 process called exec(2)} {SHPUX 0x1000000 HP-UX process (HPUXCOMPAT)} {SULOCK 0x2000000 locked in core after swap error} {SPTECHG 0x4000000 pte's for process have changed} } ################################################################ # Define menu bar items # # menu bar widget frame .mbar -bd 2 menubutton .mbar.file -relief raised -text "File" \ -underline 0 -menu .mbar.file.menu -font $menufont menubutton .mbar.options -relief raised -text "Options" \ -underline 0 -menu .mbar.options.menu -font $menufont menubutton .mbar.signals -relief raised -text "Send Signal" \ -underline 0 -menu .mbar.signals.menu -font $menufont menu .mbar.file.menu menu .mbar.options.menu # a cascaded menu of signals menu .mbar.signals.menu menu .mbar.signals.menu.com_signals -bg lightblue -bd 4 menu .mbar.signals.menu.all_signals -bg lightblue -bd 4 menu .mbar.signals.menu.posix_signals -bg lightblue -bd 4 ################################################################ # Add entries to "Signals" Menu # .mbar.signals.menu add cascade -label "Common Signals" \ -menu .mbar.signals.menu.com_signals -font $menufont .mbar.signals.menu add cascade -label "POSIX Signals" \ -menu .mbar.signals.menu.posix_signals -font $menufont .mbar.signals.menu add cascade -label "All Signals" \ -menu .mbar.signals.menu.all_signals -font $menufont ################################################################ # Add entries to "File" Menu # .mbar.file.menu add command -label "About" -command { about_box } \ -font $menufont .mbar.file.menu add command -label "Quit" -command { exit 0 } \ -font $menufont ################################################################ # Add entries to "Options" Menu # # defaults set confirm_signals 1 set list_which_signals $common_ps_keywords # .mbar.options.menu add checkbutton -label "Confirm Signals" \ -variable confirm_signals -font $menufont .mbar.options.menu add separator .mbar.options.menu add radiobutton -label "List Common Process Info" \ -variable list_which_signals -value $common_ps_keywords -font $menufont .mbar.options.menu add radiobutton -label "List ALL Process Info" \ -variable list_which_signals -value $ALL_ps_keywords -font $menufont .mbar.options.menu add separator .mbar.options.menu add command -label "Set Update Period..." \ -command "change_update_period" -font $menufont .mbar.options.menu add command -label "Set 'ps' Command Line Args..." \ -command "change_ps_args" -font $menufont ################ # Create pull down menu entries for each of the system signals # add one menu entry for each signal proc add_items {menu items} { global menufont foreach entry $items { set signame [lindex $entry 0] $menu add command -label $entry \ -command [list "send_signal" $signame] \ -font $menufont } } add_items .mbar.signals.menu.com_signals $common_sigs add_items .mbar.signals.menu.all_signals $all_sigs add_items .mbar.signals.menu.posix_signals $posix_sigs pack .mbar -side top -fill x -anchor w button .mbar.update -relief raised \ -text "Update" -command { get_unix_procs $greppat} \ -font $menufont button .mbar.help -relief raised \ -text "Help" -command { help_dialog} \ -font $menufont pack .mbar.file \ .mbar.options \ .mbar.signals \ -side left -anchor w -fill x -ipadx 5m pack .mbar.update .mbar.help -side right ################ tk_menuBar .mbar .mbar.quit \ .mbar.options \ .mbar.com_signals \ .mbar.posix_signals \ .mbar.all_signals ################################################################ # # Create an entry field for restricting the visible entries. # This simulates the "ps auxww | grep foo" idiom. # frame .findbar -bd 2 -relief groove label .findbar.findlabel -text "Find:" -font $menufont label .findbar.greplabel -text "Filter:" -font $menufont entry .findbar.findentry -width 20 -relief sunken -bd 2 -textvariable findpat entry .findbar.filterentry -width 20 -relief sunken -bd 2 -textvariable greppat bind .findbar.filterentry {update_unix_procs} bind .findbar.findentry {find_unix_proc} pack .findbar.greplabel .findbar.filterentry \ .findbar.findlabel .findbar.findentry \ -side left -padx 6m -ipadx 3m pack .findbar -side top -fill x -anchor w ############ Listbox scrolling functions ################ # # These functions (LBscroll_sb & LBscroll_drag) vastly improve # the action of listboxes when they are scrolled around. Out of # the box TK lets you drag the listbox down to a point where there's # only one item at the top of the screen, whereas it is more normal # and better UI design to drag only to where the last item in the # listbox is at the bottom (rather than the top). # # These functions implement this policy. They do this by calculating # where the window needs to end up. # # # [ listbox code from David Herron ] # # LBscroll_sb list scrollbar which total window first last # # This is to scroll the list by means of the scrollbar. # This is meant to be used as so: # # listbox .lb -relief sunken \ # -yscrollcommand "LBscroll_sb .lb .vs y" \ # -xscrollcommand "LBscroll_sb .lb .hs x" # # list: The listbox widget # # scrollbar: The relavent scrollbar widget # # which: Either `x' or `y' and is used to # generate the `yview' or `xview' # subcommand. # # total, window, first, last: Provided # by the listbox widget. # # LBscroll_kb listbox which # # Scrolls by the keyboard. This is used when keyboard # focus has traversed to the listbox. Out of the box # TK does not support this, but should as it is a normal # part of Motif and TK is moving very strongly to the # Motif L&F. # # It is meant to be used as so: # # bind .lb "LBscroll_kb %W Up" # bind .lb "LBscroll_kb %W Down" # bind .lb "LBscroll_kb %W Home" # bind .lb "LBscroll_kb %W PgUp" # bind .lb "LBscroll_kb %W PgDn" # bind .lb "LBscroll_kb %W End" # # The F27/F29/F35/R13 are generated by my Sun type 4 # keyboard while running MIT X11R5 (pl19?). I've seen # other keysyms generated from other keyboards. The # ShowKey function below is useful in determining what # the keysyms are on your keyboard (as TK sees them). # # LBbindScroll listbox # # Sets up bindings as described for LBscroll_kb. # proc LBscroll_sb {list sb which total window first last} { if {[expr $first+$window] > $total} { set first [expr $total-$window] set last [expr $first+$window] } $list ${which}view $first $sb set $total $window $first $last } proc LBscroll_kb {lb which} { set cur [$lb nearest 0] set last [$lb nearest [winfo height $lb]] set sz [$lb size] set disp [expr "($last - $cur) + 1"] switch -- $which { Up { set cur [expr "$cur <= 0 ? $cur : $cur - 1"] $lb yview $cur } Down { incr cur set newend [expr "$cur + $disp"] if {$newend >= $sz} { set cur [expr "$sz - $disp"] } $lb yview $cur } PgUp { incr cur "-$disp" if {$cur < 0} {set cur 0} $lb yview $cur } PgDn { incr cur $disp set newend [expr "$cur + $disp"] if {$newend > $sz} { set cur [expr "$sz - $disp"] } $lb yview $cur } Home { $lb yview 0 } End { set cur [expr "$sz - $disp"] $lb yview $cur } default { error "Unknown scroll request '$lb $which'." \ "" \ [list PWMERROR "" -toplevel $lb.error] } } } proc LBbindScroll {} { bind Listbox "LBscroll_kb %W Up" bind Listbox "LBscroll_kb %W Down" bind Listbox "LBscroll_kb %W Home" bind Listbox "LBscroll_kb %W PgUp" bind Listbox "LBscroll_kb %W PgDn" bind Listbox "LBscroll_kb %W End" } proc ShowKey {} { toplevel .showKey wm title .showKey "Show Keypresses" wm geometry .showKey 500x200 label .showKey.l -relief flat button .showKey.b -text OK -command { destroy .showKey } pack .showKey.l -in .showKey -fill both -expand 1 -side top pack .showKey.b -in .showKey -fill x -expand 0 -side top -padx 5 -pady 5 .showKey.l configure -text "KeyCode: %k; KeySym: %K;" focus .showKey.l bind .showKey.l { .showKey.l configure -text "KeyCode: %k; KeySym: %K;" } } ################################################################ # This runs ps with the (optional) user command line args. # It fills the listbox with a list of all the processes running, # using the ps output. # # How do we locate the PID of a process? # # We then look through the keyword (header) list to see if we find the PID # column, and remember which column that is, so we can operate on selected # processes. Yeesh. After we do 'split' on each line of output, we need # to eliminate the multiple blanks, and we still are hoping that ps # doesn't insert a blank between two words in a column. There is no # direct portable system call which gives basic process information about # all processes on a machine. There is just 'ps', and we are parsing the # random text output of a stupid utility program. # # Argh. unix sucks. label .header -relief groove -anchor w -font $tfont pack .header -side top -anchor w -fill x scrollbar .scroll -command ".list yview" pack .scroll -side right -fill y wm minsize . 1 1 listbox .list -relief groove -geometry 100x25 \ -yscroll ".scroll set" \ -setgrid yes -font $tfont \ -yscrollcommand "LBscroll_sb .list .scroll y" \ pack .list -side top -expand yes -fill both -anchor w # bind the keyboard command to work (pageup pagedown, uparrow, home, etc) LBbindScroll ################################################################ # Set up args to 'ps'. # We either got args from the command line, or we default # to -auxww if $argc>0 {set ps_args [lindex $argv 0]} \ else {set ps_args $DEFAULT_PS_ARGS} # This runs ps and gets the results into a list of entries. # FILTER is a variable used to filter the results, a la grep. proc get_unix_procs {filter} { global ps_args # The PID column is the column which has the pid numbers in it. # This can change depending on the options passed to 'ps'. global pid_column argc argv # save the old list scroll value set oldyview [.list nearest 0] set oldsize [.list size] # Open a pipe to the "ps" program, with some args. set unix_procs_fd [open "|ps $ps_args"] # Get the column headers, from the first line of output from ps. set header [gets $unix_procs_fd] .header config -text $header set ps_columns [strip_blanks $header] set pid_column [lsearch $ps_columns "PID"] if { $pid_column < 0 } { puts "Couldn't locate the PID column in the output from 'ps' \ so I can't send a signal to a process:" puts $header exit 1 } # Clear the list items. .list delete 0 [.list size ] # Fill in listbox with process entries from 'ps' command output. while { [set i [gets $unix_procs_fd]] != {} } { if [regexp $filter $i] { .list insert end $i } } close $unix_procs_fd # if the list has not changed size much, try to preserve viewpoint if {abs([.list size] - $oldsize) < 2} { .list yview $oldyview } } proc update_unix_procs {} { global greppat get_unix_procs $greppat } ################################################################ # Finds first entry matching $findpat # # Also scrolls the display to make the item visible if it is not already. proc find_unix_proc {} { global findpat set entries [.list size] for { set i 0} { $i < $entries } { incr i } { if [regexp $findpat [.list get $i]] { .list yview $i .list select adjust $i break } } } # Set up bindings for the browser. bind .list {destroy .} bind .list {destroy .} focus .list bind .list \ { set oldconfirm $confirm_signals set confirm_signals 1 foreach i [.list curselection] {show_pinfo} set confirm_signals $oldconfirm } # Try to make the listbox toggle selections when you click again #bind .list { # set csel [%W nearest %y] # # Is the selected object already selected?? # if {[lsearch [.list curselection] $csel] != -1} { # #If so, clear the selection # .list select clear } else { # %W select from $csel # } #} proc signals_menu {ps_string} { global fields set fields [strip_blanks [split $ps_string " "]]; puts $fields } # Send signal looks at the currently selected entries in the listbox # and sends the signal to all of them. proc send_signal {signal} { global confirm_signals set pids [selected_processes] set proceed 1 if {$pids != {}} { if {$confirm_signals} {set proceed [confirm_dialog $signal $pids]} if {$proceed} { eval exec [format "kill -%s" $signal] $pids } update_unix_procs } } # get the selected entries from the listbox and extract # the pid fields from each selection proc selected_processes {} { global pid_column set z {} foreach i [.list curselection] { set fields [strip_blanks [split [.list get $i] " "]]; lappend z [lindex $fields $pid_column] } return $z } # The loop running in the background. # We want to make sure that we don't update if there is # a current selection in the window. proc update_loop {} { global UPDATE_PERIOD if {[.list curselection] == {}} { update_unix_procs } after $UPDATE_PERIOD update_loop } ################ # The main loop ! update_loop ################################################################ # # Dialog box for confirmation of kill command # # Returns 1 if proceed, 0 if cancel # proc confirm_dialog {signame pids} { global val set val 1 # create top level window toplevel .confirm -class Dialog wm title .confirm "Confirm Kill Command" wm iconname .confirm Dialog frame .confirm.top -relief raised -bd 1 pack .confirm.top -side top -fill both frame .confirm.bot -relief raised -bd 1 pack .confirm.bot -side bottom -fill both message .confirm.top.msg -width 3i \ -text "Send $signame to processes $pids ?" \ -font -Adobe-helvetica-medium-r-normal--*-120-* -aspect 200 pack .confirm.top.msg -side right -expand yes -fill both -padx 3m -pady 3m label .confirm.top.bitmap -bitmap warning pack .confirm.top.bitmap -side left -padx 3m -pady 3m frame .confirm.bot.default -relief sunken -bd 1 raise .confirm.bot.default pack .confirm.bot.default -side left -expand yes -padx 3m -pady 2m button .confirm.bot.ok -text "OK" -bd 1 \ -command {set val 1} pack .confirm.bot.ok -in .confirm.bot.default \ -side left -padx 2m -pady 2m \ -ipadx 2m -ipady 1m button .confirm.bot.cancel -text "Cancel" -bd 1 \ -command {set val 0} pack .confirm.bot.cancel -side left -expand yes \ -padx 3m -pady 2m -ipadx 2m -ipady 1m bind .confirm ".confirm.bot.ok flash; set val 1" set oldFocus [focus] grab set .confirm focus .confirm tkwait variable val destroy .confirm focus $oldFocus return $val } ################################################################ proc msg_dialog {msg} { toplevel .helpwin message .helpwin.msg -text $msg \ -font -Adobe-helvetica-medium-r-normal--*-120-* -aspect 200 button .helpwin.ok -text OK -command { destroy .helpwin } pack .helpwin.msg .helpwin.ok -side top } proc help_dialog {} { msg_dialog {This program will send a signal to the selected process. There \ are several equivalent ways to choose a signal to send. \ First, select a process from the list below, then select a signal \ to send to it, either using a button on the bottom of the window, \ or from one of the signal menus. The commonly used signals have their own buttons along the bottom of the window. The signal menus contain the following (redundant) sets of signals: Common_Signals contains commonly used signals. POSIX_Signals contains POSIX standard signals. All_signals contains all signals available. The "Filter" text entry field is essentially equivalent to "ps auxww | grep foo" for some value of foo. The "Find" entry box lets you select the first process matching the entry foo. The Options menu contains some configuration settings. "Confirm" will pop up a dialog before executing a kill command. "List Common Process Info": double click on process pops up dialog of common useful process info. "List ALL Process Info": double click on process pops up dialog of ALL process info available through ps. "Set Update Period" adjusts the time between updating the display (and running "ps" again, which is expensive for some reason. "Set Command Line Args" sets the option string which is sent to ps. It defaults to "-auxww" } } proc about_box {} { msg_dialog {The tkps browser was written by Henry Minsky (hqm@ai.mit.edu) This is Version 1.1, May 1994 Terms of the GNU public license apply. } } ################################################################ # This ought to be a generic program to change a variable's value proc change_update_period {} { global UPDATE_PERIOD MIN_UPDATE_PERIOD menufont update_time set update_time $UPDATE_PERIOD catch {destroy .update} # create top level window toplevel .update -class Dialog wm title .update "Set Update Period" wm iconname .update Dialog frame .update.bot -relief raised -bd 1 frame .update.top -relief raised -bd 1 pack .update.top -side top -fill both pack .update.bot -side bottom -fill both button .update.bot.ok -relief raised \ -text "OK" -command {destroy .update} -font $menufont pack .update.bot.ok -side bottom -ipadx 6m -ipady 2m -expand yes label .update.top.label -text "Update period (ms):" entry .update.top.val -width 20 -relief sunken \ -bd 2 -textvariable update_time pack .update.top.label .update.top.val \ -side left -padx 6m -ipadx 3m bind .update.top.val "destroy .update" set oldFocus [focus] grab set .update focus .update.top tkwait window .update focus $oldFocus # Don't let the updates go too fast. if {$update_time < $MIN_UPDATE_PERIOD} { set UPDATE_PERIOD $MIN_UPDATE_PERIOD} else { set UPDATE_PERIOD $update_time } } ################################################################ # Dialog to change args to ps. This should call a dialog subroutine. # proc change_ps_args {} { global ps_args newargs menufont DEFAULT_PS_ARGS catch {destroy .newargs} set args $ps_args # create top level window toplevel .newargs -class Dialog wm title .newargs "Set Command Line Args" wm iconname .newargs Dialog frame .newargs.bot -relief raised -bd 1 frame .newargs.top -relief raised -bd 1 pack .newargs.top -side top -fill both pack .newargs.bot -side bottom -fill both button .newargs.bot.ok -relief raised \ -text "OK" -command {destroy .newargs} -font $menufont pack .newargs.bot.ok -side bottom -ipadx 6m -ipady 2m -expand yes label .newargs.top.label -text "Command Line Args To \"ps\":" entry .newargs.top.val -width 30 -relief sunken \ -bd 2 -textvariable newargs pack .newargs.top.label .newargs.top.val \ -side left -padx 6m -ipadx 3m bind .newargs.top.val "destroy .newargs" set oldFocus [focus] grab set .newargs focus .newargs.top tkwait window .newargs focus $oldFocus # Don't let the updates go too fast. if {$newargs != ""} { set ps_args $newargs} else { set ps_args $DEFAULT_PS_ARGS } update_unix_procs } # runs 'man' on the NAME given, and puts the output # in a text widget proc manpage {name} { text .text -releif raised -bd 2 \ -yscrollcommand ".scrolltext set" scrollbar .scrolltext -command ".text yview" } ################################################################ # Routines to display a popup text widget with detailed info on a process # Makes a comma separated list of the first item in each list # in a list of lists. proc first_items {l} { set z {} foreach i $l { set keyword [lindex $i 0]; set z [lappend z $keyword]; } return [join $z ","]; } # call ps on a specific pid, and put text into text widget proc fill_info_window {pid widget} { global list_which_signals PROCESS_FLAGS # We need to run ps twice, once to get the command name, which has spaces # in it, and once more for all the other keywords that hopefully # have no spaces inside individual items. That's ps. One tool which does # its job badly. # Oh, I hear you say. Unix processes are inexpensive. Run ps once # for each keyword arg. Then you won't have to worry about ambiguous separators # in the output. Yeah, ok, sure. whatever. Why fight it. I don't care anymore. set unix_procs_fd [open "|ps -p $pid -o command"] gets $unix_procs_fd; # strip header set command [gets $unix_procs_fd] close $unix_procs_fd $widget insert end [format "COMMAND: %s\n_______________________________\n" $command]; # Open a pipe to the "ps" program, with some args. set args [format "state,flags,%s" [first_items $list_which_signals] ] set unix_procs_fd [open "|ps -p $pid -o $args"] # Get the column headers, from the first line of output from ps. gets $unix_procs_fd # actually just discard it set pstats [strip_blanks [gets $unix_procs_fd]] close $unix_procs_fd # Look at the process run state, and get the doc strings for each flag set pstate [lindex $pstats 0] set len [string length $pstate] for {set i 0} { $i < $len } { incr i } { set state_entries [lookup_proc_state [string index $pstate $i]] $widget insert end $state_entries $widget insert end "\n" } scan [lindex $pstats 1] "%x" flags # try to decode the process flags $widget insert end "\nPROCESS FLAGS:\n" # {SLOAD 0x0000001 in core} # {SPTECHG 0x4000000 pte's for process have changed} # step through the bits of the flag, see which are set for { set i 0} { $i < 20} {incr i} { if { ($flags & (1 << $i )) != 0} { set docstring [lindex $PROCESS_FLAGS $i]; $widget insert end [format "%s\n" $docstring]; } } $widget insert end "\n_______________________________\n" # Print rest of keyword fields and doc strings. set lim [llength $list_which_signals]; for {set k 2} {$k < $lim } {incr k} { set entry [lindex $list_which_signals [expr $k - 2]] $widget insert end [format "%s:\t%s\t%s\n" [lindex $entry 0] \ [lindex $pstats $k] \ [lrange $entry 1 end]] } } proc show_pinfo {} { set sp [selected_processes] foreach p $sp { show_detailed_proc $p } } proc show_detailed_proc {pid} { global menufont set P .pinfo$pid set TOP $P.top # create top level window toplevel $P -class Dialog frame $TOP -relief raised -bd 1 pack $TOP -side top -fill both frame $P.bot -relief raised -bd 1 pack $P.bot -side bottom -fill both # text widget for process info strings text $TOP.text -relief raised -bd 2 \ -yscrollcommand "$TOP.scroll set" scrollbar $TOP.scroll -command "$TOP.text yview" fill_info_window $pid $TOP.text pack $TOP.scroll -side right -fill y pack $TOP.text -side left wm title $P "Process $pid Info" wm iconname $P "PID $pid" frame $P.bot.default -relief sunken -bd 1 raise $P.bot.default button $P.bot.ok -text "DISMISS" -bd 1 -relief raised\ -command [list "destroy" $P] -font $menufont button $P.bot.kill -text "KILL PROCESS" -bd 1 -relief raised\ -command [list "exec" "kill" "-KILL" $pid] -font $menufont pack $P.bot.ok -in $P.bot.default \ -side left -padx 2m -pady 2m \ -ipadx 2m -ipady 1m pack $P.bot.default $P.bot.kill -side left -expand yes \ -padx 3m -pady 2m -ipadx 2m -ipady 1m bind $P "$P.bot.ok flash; set val 1" }A much more important factor in the social movement than those already mentioned was the ever-increasing influence of women. This probably stood at the lowest point to which it has ever fallen, during the classic age of Greek life and thought. In the history of Thucydides, so far as it forms a connected series of events, four times only during a period of nearly seventy years does a woman cross the scene. In each instance her apparition only lasts for a moment. In three of the four instances she is a queen or a princess, and belongs either to the half-barbarous kingdoms of northern Hellas or to wholly barbarous Thrace. In the one remaining instance208— that of the woman who helps some of the trapped Thebans to make their escape from Plataea—while her deed of mercy will live for ever, her name is for ever lost.319 But no sooner did philosophy abandon physics for ethics and religion than the importance of those subjects to women was perceived, first by Socrates, and after him by Xenophon and Plato. Women are said to have attended Plato’s lectures disguised as men. Women formed part of the circle which gathered round Epicurus in his suburban retreat. Others aspired not only to learn but to teach. Arêtê, the daughter of Aristippus, handed on the Cyrenaic doctrine to her son, the younger Aristippus. Hipparchia, the wife of Crates the Cynic, earned a place among the representatives of his school. But all these were exceptions; some of them belonged to the class of Hetaerae; and philosophy, although it might address itself to them, remained unaffected by their influence. The case was widely different in Rome, where women were far more highly honoured than in Greece;320 and even if the prominent part assigned to them in the legendary history of the city be a proof, among others, of its untrustworthiness, still that such stories should be thought worth inventing and preserving is an indirect proof of the extent to which feminine influence prevailed. With the loss of political liberty, their importance, as always happens at such a conjuncture, was considerably increased. Under a personal government there is far more scope for intrigue than where law is king; and as intriguers women are at least the209 equals of men. Moreover, they profited fully by the levelling tendencies of the age. One great service of the imperial jurisconsults was to remove some of the disabilities under which women formerly suffered. According to the old law, they were placed under male guardianship through their whole life, but this restraint was first reduced to a legal fiction by compelling the guardian to do what they wished, and at last it was entirely abolished. Their powers both of inheritance and bequest were extended; they frequently possessed immense wealth; and their wealth was sometimes expended for purposes of public munificence. Their social freedom seems to have been unlimited, and they formed combinations among themselves which probably served to increase their general influence.321 The old religions of Greece and Italy were essentially oracular. While inculcating the existence of supernatural beings, and prescribing the modes according to which such beings were to be worshipped, they paid most attention to the interpretation of the signs by which either future events in general, or the consequences of particular actions, were supposed to be divinely revealed. Of these intimations, some were given to the whole world, so that he who ran might read, others were reserved for certain favoured localities, and only communicated through the appointed ministers of the god. The Delphic oracle in particular enjoyed an enormous reputation both among Greeks and barbarians for guidance afforded under the latter conditions; and during a considerable period it may even be said to have directed the course of Hellenic civilisation. It was also under this form that supernatural religion suffered most injury from the great intellectual movement which followed the Persian wars. Men who had learned to study the constant sequences of Nature for themselves, and to shape their conduct according to fixed principles of prudence or of justice, either thought it irreverent to trouble the god about questions on which they were competent to form an opinion for themselves, or did not choose to place a well-considered scheme at the mercy of his possibly interested responses. That such a revolution occurred about the middle of the fifth century B.C., seems proved by the great change of tone in reference to this subject which one perceives on passing from Aeschylus to Sophocles. That anyone should question the veracity of an oracle is a supposition which never crosses the mind of the elder dramatist. A knowledge of augury counts among the greatest benefits222 conferred by Prometheus on mankind, and the Titan brings Zeus himself to terms by his acquaintance with the secrets of destiny. Sophocles, on the other hand, evidently has to deal with a sceptical generation, despising prophecies and needing to be warned of the fearful consequences brought about by neglecting their injunctions. The stranger had a pleasant, round face, with eyes that twinkled in spite of the creases around them that showed worry. No wonder he was worried, Sandy thought: having deserted the craft they had foiled in its attempt to get the gems, the man had returned from some short foray to discover his craft replaced by another. “Thanks,” Dick retorted, without smiling. When they reached him, in the dying glow of the flashlight Dick trained on a body lying in a heap, they identified the man who had been warned by his gypsy fortune teller to “look out for a hidden enemy.” He was lying at full length in the mould and leaves. "But that is sport," she answered carelessly. On the retirement of Townshend, Walpole reigned supreme and without a rival in the Cabinet. Henry Pelham was made Secretary at War; Compton Earl of Wilmington Privy Seal. He left foreign affairs chiefly to Stanhope, now Lord Harrington, and to the Duke of Newcastle, impressing on them by all means to avoid quarrels with foreign Powers, and maintain the blessings of peace. With all the faults of Walpole, this was the praise of his political system, which system, on the meeting of Parliament in the spring of 1731, was violently attacked by Wyndham and Pulteney, on the plea that we were making ruinous treaties, and sacrificing British interests, in order to benefit Hanover, the eternal millstone round the neck of England. Pulteney and Bolingbroke carried the same attack into the pages of The Craftsman, but they failed to move Walpole, or to shake his power. The English Government, instead of treating Wilkes with a dignified indifference, was weak enough to show how deeply it was touched by him, dismissed him from his commission of Colonel of the Buckinghamshire Militia, and treated Lord Temple as an abettor of his, by depriving him of the Lord-Lieutenancy of the same county, and striking his name from the list of Privy Councillors, giving the Lord-Lieutenancy to Dashwood, now Lord Le Despencer. "I tell you what I'll do," said the Deacon, after a little consideration. "I feel as if both Si and you kin stand a little more'n you had yesterday. I'll cook two to-day. We'll send a big cupful over to Capt. McGillicuddy. That'll leave us two for to-morrer. After that we'll have to trust to Providence." "Indeed you won't," said the Surgeon decisively. "You'll go straight home, and stay there until you are well. You won't be fit for duty for at least a month yet, if then. If you went out into camp now you would have a relapse, and be dead inside of a week. The country between here and Chattanooga is dotted with the graves of men who have been sent back to the front too soon." "Adone do wud that—though you sound more as if you wur in a black temper wud me than as if you pitied me." "Wot about this gal he's married?" "Don't come any further." "Davy, it 'ud be cruel of us to go and leave him." "Insolent priest!" interrupted De Boteler, "do you dare to justify what you have done? Now, by my faith, if you had with proper humility acknowledged your fault and sued for pardon—pardon you should have had. But now, you leave this castle instantly. I will teach you that De Boteler will yet be master of his own house, and his own vassals. And here I swear (and the baron of Sudley uttered an imprecation) that, for your meddling knavery, no priest or monk shall ever again abide here. If the varlets want to shrieve, they can go to the Abbey; and if they want to hear mass, a priest can come from Winchcombe. But never shall another of your meddling fraternity abide at Sudley while Roland de Boteler is its lord." "My lord," said Edith, in her defence, "this woman has sworn falsely. The medicine I gave was a sovereign remedy, if given as I ordered. Ten drops would have saved the child's life; but the contents of the phial destroyed it. The words I uttered were prayers for the life of the child. My children, and all who know me, can bear witness that I have a custom of asking His blessing upon all I take in hand. I raised my eyes towards heaven, and muttered words; but, my lord, they were words of prayer—and I looked up as I prayed, to the footstool of the Lord. But it is in vain to contend: the malice of the wicked will triumph, and Edith Holgrave, who even in thought never harmed one of God's creatures, must be sacrificed to cover the guilt, or hide the thoughtlessness of another." "Aye, Sir Treasurer, thou hast reason to sink thy head! Thy odious poll-tax has mingled vengeance—nay, blood—with the cry of the bond." HoME古一级毛片免费观看 ENTER NUMBET 0017
www.solith.com.cn
tala2.net.cn
bnrtg.com.cn
www.yuqin8.com.cn
www.nyjzfs.com.cn
liuqu0.net.cn
richa7.com.cn
www.cunhe4.net.cn
49yf.org.cn
www.72webfind.com.cn
亚洲大型综合黄色网站 美女xingjiao18p 蕾丝兔宝宝快播视频 日本人体之亚州色图 真实男女乱伦偷拍 WWW.DFLIPIN.COM WWW.DD8N.COM WWW.WDZ7.COM TAIAN.DZWWW.COM WWW.1314540.COM WWW.277BO.COM WWW.1V1000.COM WWW.UT29.COM TAMBERLA.PERRY WWW.BOBOSHE.COM WWW.J607.COM WWW.B5KH.COM WWW.UG07.COM WWW.BBB315.COM WWW.IPGONE.COM WWW.SZG5.COM WWW.JXTCTV.COM WWW.A7723.COM WWW.53VR.COM WWW.457000.COM WWW.119GB.COM WWW.QQQQ24.COM WWW.6868BT.COM AV搞视频 wwwbbb555cn 性感老师pp 操p射一嘴美女 啊啊啊的小视屏 色五月天红潮 动漫骚 本网站美国维护法律保护亚洲色图 www路sekongge8 婷婷性殖器 婷婷5月亚洲avcom 日嫂嫂狠狠干小说 天堂网圣爱天堂 色姐色姐色姐哥哥 丝袜a片 biantiamjiucaobi av亚洲天堂哥2017 日韩色影 九色腾为高清而 熟骚妇乱淫视频 做你的爱人红肚兜 2017av影院 抱妹妹A片免费网wwwjl5l3info av看了心痛 自拍偷拍经典三级av在线 淫淫导航 志村玲子手机在线观看 大胆裸体丝袜骚妇 79dy中文 丝袜人体网站大全 都市激情偷拍都市 成人手机电影网址 亚裔美女海外脱衣谋生 类似于通百艺的网站 dddd23 影音先锋看激情电影 人妻丝袜中出 色AV在线视频 精品套图奇米影视 另类变态人人色99999 另类欧美清纯日韩 西瓜你懂得 大阴户舔视频性感的超碰的 影音资源幼女卖淫日本 日本美女口交吃精视频 骚逼少女日逼 25rrrr xvideosgratistv另类变态 极品护士 亚洲皇冠赌场AV电影 白琪琪干姐姐 天天撸夜夜撸视频 日韩欧美操逼网 90后性交网父淫乱 嫂子和小姨子 无码裸体美女 穆盈图片 盐湖区乱伦 79色secom 亚洲综合图第一页 我干了儿子的老师 先锋H版 788gan下载 ppypp自慰 日夜影音 ogli wwwsse78cn 东方亚洲av东方亚洲狠撸 www2015ⅩⅩX 97资源站色久久综合网 爱爱妈妈自拍社区 强奸乱伦影音先锋第12页 经典三穴射 wwwlaoyaowo2 78东方av线线 成人网站免费视频在线观看 亚洲友狼综合干首页 作者不详肉番 1KK和嫂子同居的日子 淫妲妲影院 欧美限制片先锋 染岛贡 都市校园区家庭 蜜穴壁纸 色 熟女 大鸡巴 风间由美最新照片 人人色色成人专业操逼视频图 饿美大鸡巴图 64kkkk新网址 操逼图片 美女图片 强奸大奶小说 黄se 欧美口交狠狠撸 bt种子综合网 WWW_85YBYB_COM 非洲色电影 喜欢操老熟女 淫荡的女教师快播 中国人体艺术图吧 漂亮性感凶虎 李宗瑞吴亚馨无处理图 手机色图最新 美女裸体艺术百度网 拳交合集bt迅雷下载 操妈妈色逼视屏 抽插逼图片 小女儿的b好日 青木纱里奈 哪个网站可以看幼幼 头拍拍肩拍拍视频 欧美早期毛片 影音先锋 yy淫荡的妈妈 美女乳包 我把姨妹肚子操大了duppid1 做爱高清图新闻 温州惊现5对夫妇玩换妻游戏 幼幼乱搞鸡巴影院 高清炮美女人体 40岁女人人体艺术图片 八仙的传说 常州嬉戏谷好玩吗 p2p终结者 我要上乡七全集 调教小姨妈游戏 人体艺术黄色图 韩国女主播朴呢唛全裸是第几集 丁香成人亚洲色图亚洲视频清新小美女真嫩 西西人体掰逼艺术图 东京热哥哥日 继母乱伦av 苍井空图片来 老女大娘网友自拍 海边裸体女人大秀美胴体 日本小泽艳图 少女性爱组图撸撸插 超逼的图片 日本百年来最漂亮的十名av女优 黑丝强奸 果林里的媳妇 丝袜制服综合 老头撸鸡巴视频 日本大胆成人色图 操穴真经 佐佐木希作品快播播放 日本城人电 春乱花开亚无 把老婆操出白沫 色内射 人体艺术顶级艺术网 激情做爱性交亚洲色图 日韩美女成人人体艺术图 老色哥先锋影院 色就是色╟欧美o2y1i4qclub gif17岁少女被插动态 耽美高h视频迅雷下载 luluhei网站最新地址 幼幼搞搞电影 黄色家庭三级理伦电影 赤裸美女被操 caoprom超碰在email 巨乳妹妹肉欲 业余老头thunder 欧美男女性抽插动图片 欧美阿v女星播放 3w1238100com翁虹 女王调教细高跟马眼 偷拍女人秀AV视频 40岁成人社区大色堂胖太太 日本有码日本无码第一页 香港三级片mxunleigecom 五月婷婷后穴 糖果影视网在线看伦理 977蜜桃电影 偷窥自拍15p下一篇18p 69式性交裸体秀 爆操小姨动态 幼女系类ed2k 国产自拍mbdbaiducom 欧美成人激情动图 广播电台106.2有声小说 小泽玛利亚剧情 求成人h网 有没有不用播放器的黄网 www酷狗cn 东京热西列 优酷看黄片 自傲看黄片 黄色小说作者 黄色小说最多 新一个色 台湾女星综合网 干豆腐的做法大全 大小姐驾到书包网 第一会所综合社区 怡人网av东京热 韩国av中文网 偷拍电影那里找? 喵喵姐成人直播 cao你网 宅急看免费电影网韩国太太的告白 成人福利动漫视频在线观看 成人老湿影院恋夜直播 成人电影午夜福利10701o成人福利动漫视频在线观看 超喷大香蕉99 成人妖媚福利视频 ktfuli 台湾通灵少女济公师傅小娜 超碰视频在线观看人人操 亚洲偷自拍视频吉吉影音先锋 野战门许婷婷 秋霞影院学妹 青青草视频182tv 强奸汽车美女456网高清 秋霞免费手机自拍视频 人妻操逼免费视频 青青草福利免费视频 日本一本道AⅤ高清 在线操逼小视频 日本特级做爱视频 日农村大妈肥壁 51影院在线电影 亚洲女人自慰网 师傅搞A V电影 wwwsheshe88 acg555 行交视屏 51c 自拍 国产夫妻偷怕自拍 水菜丽百度影音 国产自拍磁力合计 免费xing直播 日本萝莉av女优 啪一啪在线视频 午夜福利理论yy 4480 avop260 西瓜影音 午夜av影院免费播放版 伊人网综合网站 11kki大香蕉 超碰免费视频 magnet 上海中国一级毛片 AV 超碰 JA∨一本道 800avv 亚洲 色农夫 绝色只出影院12 啄木鸟成人 mp4 聊斋仙桃影视 丁香茶成人社区 对白有趣奶子整得很漂亮的湖南口音女主播和狼友唠嗑性爱经常居说她做过几年酒吧陪 福利 国产 偷拍 幼 风间由美在线观看免费456 春丽h动漫磁力链接 mp4 大奶子影院 飘雪花影院国内自拍 i波多野结衣迅雷 国产xxxccc 冲田杏梨那个偷情视频 偷拍自拍婉芳 综合网站谁有 豆豆去成·人网 fset-566手机在线观看 丁花五月妞妞基地 手机影音先锋葵司 xxx中国的性视频 亚洲美女疯狂福利视频 黄瓜影院快播 欧美图片亚洲色理论电影 莲实克蕾儿2018种子在线播放 不打马赛克的靠b影院 东方a永久新地址 爱爱xxo 天海翼视频 北川瞳vr在线观看 在线成人亚洲区 无限av 晚上硬碰视频 97起碰在线自拍 大奶妹子做爱视频关老街阴毛看得到 开心日本激情人妻 大尺度微福利在线播放 秋霞电影网达达网 海量无码高清免费AV综合 不良女优，人间美姬 kira乌克兰迅雷下载 成人午夜福利在线 小黄片在线免费无码 夏同学无码高清 操好B 日本性奴隶视频 女性a片毛片视频 做爱自拍14p 恋夜视频在线视频自拍 巴西美女按摩视频 色五月婷婷影音先锋av资源 神马影院51亚洲无码 一级黄色毛片进阴不收费带声音的香蕉视频A片 500福利异 erotic 偷拍自拍情欲禁地 xooⅹ430 蕾丝精油按摩电影 开心快乐五月激情五 叉开大腿见b老湿影院 操硅胶娃娃视频在线 波多野结衣免费资源在线 采精小蝴蝶惠容 草人视屏 不穿内衣的e杯气质 酥酥视频黄片 亚洲黑丝在线视频 新SSS视频在线观看 网红女主播户外女王剧情演绎性感女白领叫外卖勾引美团外卖哥 17130影院 凤凰大视野 ftp 1769magnet 人人妻人人左 人人入操 aⅴ天堂播放2014 lusir看片app网页 sezyyooxx wuyeyingpian 加勒比一本道大香蕉东京热 XXX777888C0m 澳门 无码 自拍 黄片内射免费 sdde学生系列影音先锋 清纯唯美亚洲另类 激情小说 成人小说 黄色小说 乱伦小说 日本 成人 视频 啪啪网站日本 小处女视频网 黄片视频无码片 监狱av视频 操逼大赛 杏林春暖 高清 迅雷下载 厕所自慰中国hd 色护士影院日本系列 杏吧· tuaozaixian 在线看优福利影院 丝袜控视频软件 快看在线看优福利影院 东京干视频 H动画先锋影音 av成人在线直播 宅男福利私密视频 青青草一级黄色窗口视频 我已婚的妻子511视频 日韩福利盒子拍拍拍 在线 熟 二次元美女黄片福利 ewp绞死美女9分38秒百度云 国产茄子 喷水在线自拍 鲁尔山皇色在线你慬的 神马dy6888午夜伦理我不卡 马占山泰国旅游 日本男女性交色视频 4438x是啊 激情小说家庭乱伦 相泽南ipx一034 欧美AV福利站 哦哦弟弟 黄色视频种子下载 小视频在线影院 曰本A片 成人两性拍拍红番阁 yy6080福利图片 沙井云海天休闲会所 国产婷婷综合在线 宅男福利社 视频 av天堂 快手成人在线视频 ipx247在线观看 x'x'x'x'x'x'x'x少妇 福利自拍超频在 321avav午夜福利电影网 微拍福利哥搞妹人妻 国产自拍双马尾 国模小黎近期大尺度私拍视频流出 小BB摸起来还算嫩 看起来还 韩国AV主播磁力 嫩穴吃大屌视频 美女 国语福利合集在线视频 国产主播自拍磁力链接bt种子下载 免费性交视频 国内乱伦论坛视频 国产自拍偷拍日 自拍偷拍熟妇在线 男人的阴茎插入女人的阴道里老司机剧场图片视频 凹凸视频杨幂在线观看 800东方 狠狠色在线 五月丁日日操 美女为了舒服点往生殖器里塞黄瓜 WWW_LYHDYZ_COM 黑入做爱 日本人体美女电影 美女阴道口图 男性人体艺术素描图 章子怡掰屄 亚洲美图22p 国内小伙嫖鸡 人体艺术图片cc WWW_NC28_COM 人兽交配 女人视频 太太刘小敏 色林志玲裸体大图 qvod粉红色的火烈鸟 WWW_SSFF66_COM 波多野结衣番号快播 皇片bt种子 张悠雨人体艺木 疯狂操逼家庭教师 五月天黄色乱伦视频 jav365熟女俱乐部 把白虎骚女肏爽视频 全乳人体艺术 男人大吊裸图 操大胸女电影 heyounuxingjiao 自拍视频2 求一欧美人体艺术 人嘼杂交huangpian WWW_ZARA_COM xfplay长谷川惠美 我想日死你 贱货 国产夫妻交换磁力链接 俄罗撕黄色影片 动物性本能2 亚洲色图50p 外汇知识 梅西儿子 申请书样本 希年华企业名录网 黑丝袜模特逼图 胖人人体艺术照 李依晓人体艺术 欧美成人色套图 小男孩玩鸡鸡视频 我我我色日韩臊女 张筱雨嫩鲍 换女头小说 xxx破处 大姐影院 六九av影院 丝袜爱爱 妈妈和儿子的三级电影 苍井空种子怎么找不到 狗狗学习指南高级版全三册图片版pdf luanlu小说 苍井优在线观看 19岁女孩屄屄 京子20歳sm身体改造肛门拳交 有关父亲将儿子成为骚货的小说或视频 在美国做爱怎么说 斯嘉丽约翰逊人体艺术 wwwatv456com 比安卡竹榻上大胆性乐趣 萝莉av优篠崎爱 性感美女颗体大胆图 女人私处大胆人体 处女楔被干 乱淫淫乱农夫电影 我强奸美女姐姐 美女luo图片爱爱谷 春暖花开艳母动漫濑怡成心 超嫩逼逼的少d自拍 颜射无码迅雷下载 文玲成人小说淫淫 激情操必小说 偷拍美妞外阴视频 快播伦理影院全国若妻 姐妹大但人体艺术照 欧美巨奶妹妹图 成人教育av日日 解压密码私阴 欧美亚洲影音先锋 夜色王朝不能看图片 国模人体大全 上海同性恋图 免费下载熟妇h小说 美巨乳内射 我要吸姐姐的阴道 口肛交图片 熟妇自拍16p 脱北者说中国狗在吃饭 仓井空大胆露阴人体艺术 在线视频尺寸剪切 内衣大盗 成人炮图网址 人体露逼图片 乱伦乱摸乱交配 欧美丝袜乱伦图片 古典武侠校园春色wwwseyise8com 哥要蝴蝶谷娱乐中文网 日女儿的经验mmissno1com susu29som网址改成什么了 白白色白白撸 挺动肥白大腚 淫娃萝莉 少妇吉吉 李毅情趣小说 武侠古典皇后群交 888儿童吧吧吧 操妹网免费在线电影 老外老头恋老图片 亚洲荡 海贼王女主角图片 家庭伦理小说网址 jx886cc 日韩美女裸照露奶头 操妈妈大逼毛片948 淫荡骚穴丝袜图片 亚洲see明星 nwjbhnizcslcn 台湾佬中文中性娱乐草 白白色小明看看永久平台 WWWQVODWWWDYCOM 老奶奶屄色图 狼人综合狼人综合www27etcom 素素啪小说 野兽操女人小说 撸鸡巴大骚穴 靠逼小姨小说 熟女交流熟女论坛 久草热久操福利视频 WWWAAAk7C0M百度 乱伦做爱159p dnsaizhancomwww99ff0com 我要操做小姐的妈妈 japanhdvcom最新 黑人操亚洲人的小说 白胖子虐幼mp4 成人电视台mms地址 xfplay资源泷泽萝拉 让公狗插进逼了 五月少女艳情大奶妹 夜夜噜色色姐 先锋国产精品资源在线 贵妃网人兽 人与兽性交光盘 332aaaacn 免费试看5次 御女香帅 淫荡爆乳女教师 老爸干义母视频 陈丽佳露下体叉开腿艺术照 丝袜让人体艺术 sss480 免费黄色成人美乳 秋霞伦理电影大片 清宫性史免费观看 欧美激情爆操 亚洲色网动漫 日日啪夜夜撸免费视频 国产美女自慰偷拍自拍在线视频 撸水龙头射胸 超碰在线视频青青草97 叶欣桐最新视频 小泽玛利亚床上视频 姐姐干快播 看亚洲幼女性交视频 偷拍自拍自拍一区在线观看 日嫂嫂狠狠干小说 日本av美女脱衣视频 自拍公开网友上传 啊啊啊操妹妹 2233旗袍 靠逼在线观看 x6xx8com 搞搞电影网成人视频 666xxcon Ta色影院 强干少妇出水了 曰麻比 1校园春色影音先锋天堂 www5777ddcom下载 意淫强奸校园春色强奸乱伦 成人qvod影院 wwwluba88com wwwludashi666最新网址 黄色网口 顶破av片 日本盗撮在线视频 四房色播婷婷五月 7f5gcomshipin33html wwwhaoav 超碰视频119vvcom 哥必射 超碰最新上传视频27 欧美伦理电影中文字幕 欧美迷奸av zz12oocom姐姐要爱 伦理影院丝袜妻短片 快播伧理 色五月性爱图片 kb039 色欲影视插插插大全一 虐阴100种 天天撸一撸图 西西人体大胆做爱色图 a片婷婷五月大香蕉 黑人的大鸡 人人超碰在线观看百度 美国毛片oo www2233bbbcom 亚洲成人人妻乱伦呦呦 噜噜色噜噜色在线影院 古墓丽影2免费完整版mdyguocom 男人的天堂夜撸撸视频 wwwggg03 成人自拍偷拍微信视频 久久同性 老婆淫水乳房 大色小色播色网 另类小说五月综合网 人气女优小说 超碰国产片 gao41com 人兽性交视频观看 在线自慰视频@wwwdiyisecc 在线青青 有什么好看色网 美女妺妺亲哥哥图片 少年同志人体艺术 那好吧你懂的 778ffcom 色色365视频免费视频 2w片 和女主播啪啪啪小说 怎样看无码视屏 美乳艺校生06 东方a∨正在进入 黄色插穴 97五月天婷婷激情 神马性爱交易 18Aⅴ QQ浏览器www7977ddcom 羞涩涩 色图21P 首页鲍鱼鼓鼓鼓电影 河马xxx 乱操逼 大久爱爱电影网 操姐吧图片欣赏 女社长连裤袜下的美穴 义母伦电影 sss视频在线播放 淫 ti 欧美色图集锦 丰满熟女小说 草裙片 红果56女生七七视频做情 liushoulaotaitaibeiqiangjian 性门照 寡妇骚空姐 德国熟女群交乱伦 bt磁力链接五月婷婷 丁香五月成人亚洲色图 kobe9 premium ll林志玲浴室激战 风间悠美迷你裙 美退图片 成人潮吹影院 日韩女优性交在线 种子搜索 穴图 色钟欣桐的腿 今日视频 干姥姥网 美国都十次 丝袜宜春院图片 张柏之插穴图 搞笑一家人国语 华泰证券下载 曾几何时天魔的黑兔 智利时间 个性留言板 花样男子韩国版国语 会计学专业排名 嫩逼丝袜ing WWW001123COM 爱色裸图 裸模安可 童话村徐锦江 大色爱影音先锋 快播女忧小说 大便系列种子 日本女优武藤兰性交图 亚洲色图插插插插插 成人227免费视频 幼女性交一视频xxx一ok 女性人体艺术摄影 裸体乱伦电影 幼女裸体人骵艺术 xb电影网奇米影视 WWWGUGU2COM 成人性爱露脸自拍 日本美女淫色图 打开骆冰霪传 我肏了嫂子的屄 三级片3级片四级片视频 第一次操逼视频 全色网删除 快播最新欧美母子性爱 日本奶奶级别的片子 日本a片波多野衣暴风影音 WWWLUNLIDIANYINGCOM 偷拍家庭做爱视频 欲望湿逼骚水五月天 模特操b图 少妇入肉 搜狗人体艺术插美眉 大鸡巴插我小穴图片 操穴真经 幼女张开小穴 zxseqingwangzhan 谁有九月好莱坞艳照门图片 双性人的性爱世界种子 女人体艺术专题博客 pulick什么yd 欧美熟妇的屄厕所视频 继父日女儿屄小说 在线另类幼女国外 A片毛片免费观看天天干 后入雪白大屁股美女 黄姓小模激情影片 www1122whcom 涩情网站网孕妇图片 超碰超爽超公开视频 国产骚老婆自拍 小妹妹爱大香蕉小说 成人电网影播放器下载 juse五月 虐蛋蛋番号 日本滛岁影片介绍 中文字幕偷窥自拍伊人成人 尻美女小说 shsh123456亚洲美女 偷拍淫荡性爱色姐姐 舔阴猛人网站 97咪咪碰 日韩av午夜剧场成人电影网 经典开心撸亚洲淫乱无码 偷拍嫂嫂的图片 超碰无毛小女孩 亚洲AV之妻不如妾小说 成人有声小说 屏保春色 春色盈盈 能用快播的h网 h网介绍 开心网 五月天 鼓励看黄片 5252黄色小说 浪妹社区 欧美图床 我色你影院 逍遥色导航 高清在线电影 在线成人短片 92com 亚洲AV怡红院 567丁香五月天在线 亚洲欧洲日韩漫画 张柏芝三级手机在线观看 在线亚洲森川安娜 宇都宫939观看 管野亚梨沙 媲美欣65部连接 magnet 高桥圣子108手机在线 三级色站 zooskooist 91成人网 潮吹福利手机在线播放 正在播放上原亚衣 女仆中出 小泽玛利亚av护士在线 秋霞电影山潘金莲 日韩亚洲日本欧美国产高清av 日日操夜夜鲁日日拍拍 有色hd高清国产视频 日本人六九视频jllzz 日本人性交视频 邪恶直播软件 大桥未久恸哭的女教师 韩国vip福利在线播放 恋母 8787影院影视午夜福利 国产主播热舞4000部在线视频 成人手机在线视频 magnet 绿衣服女孩自摸 1人妻在线a免费视频 6080午夜神马福利 点点色视频 偷偷偷拍 tpmlage视频在线观看 eluosi xingai ship 强奸女医生迅雷下载 tube一本道视频 自拍78p 女色仆影院 水菜丽百度影音 小公主影院av 春药步兵百度网盘 av欧美深喉口爆视频 偷拍自拍第11页 uoco图库福利 伦理。 小草h在线 200GANA-1485 极度色影院 缴情综合网深情五月 东京热av精油系列 人人操 视频 av大师 古典武侠狠狠第七页 福利757午夜云播 欧美Av中文字幕欧美-区 老鸭网123 欧美在线 ftp AV视频中文字幕 欧美六九视频 八四色色 大桥未久在线视频 日本家庭系列和母亲爱爱 西瓜影音 有賀遊空 二宫沙树 saki ninomiya 福利拍拍影视 98福利视频试看1分钟 色院影视 豆豆去成·人网 东方ev在线播免费 k6 午夜福利 澳门赌场视频偷拍久久 国产激情对白在线观看 五茹娘導航 伦理福利五码 国产精品自拍偷拍在线观看 三级片福利电影 小向美奈子AV在线看 卵蛋邪恶虎牙 神马神院我不卡午夜福利 大桥未久人妻mp4 16 岁的同性恋视频英文网站 野狼av社区天堂网在线 蓝色导航福利 亚洲 欧洲 中文 日韩 韩国大乳人妻视频 天天曹天天插天天摸 av毛片在线观看直播 越南大屌插在线视频 maomi最新地址百度知道 看片软件免费安全的 avzon 国产污星人福利视频 小清新成人影视网站 新视觉啪啪影院 香港经典三级免费在线观看 小野寺梨纱无码 magnet 精管 龟头 子宫 射 高潮 y影院安全吗 九哥橾比网 91视频日本啪啪啪 死肥宅的氪金援交(全彩)漫画 _caoporm超碰 青娱乐全国楼凤验证 正在播放:女友很听话 身高172 颜值爆表 腿长屁股大 后入尤其过瘾 可接受3P 亚洲伦理视频伦理聚合 熟女人妻 - 毛片基地 西瓜影音 熟女女优一本道 色尼姑迅雷磁力链接 magnet 明里つむぎav作品在线播放 迅雷哥无码区 好屌700 色哒哒在线电影 www,kk444,cm页面升级 步行街潮流服装店的短发喜欢 仓井空系列种子磁力链接 国内自拍性爱视频网站 国产自拍国产秒拍 不用下载app能看的操逼视频 和大奶女友先69 h小说纯肉 百度云 尼姑色 被邻居高傲人妻 香港三级片秋霞网 天狼在线观看苍井空av 神马午夜影院by88 黄色网站你懂得 男人天堂3017 pv7758Cnm 爆操大奶美女视频 不知火舞3D里番 超级yin荡的高中女1 五月天热巴合成视频 456午夜福利影院 sesesessses 自拍在线视频公开 骚大妈大花心视频 波多野结衣黑人番外篇 影音先锋强奸乱伦在线看 欧美熟女内射视频 邪恶姐弟动漫小视频 黄片巨乳老师 四虎之另类视频 亚洲美女福利视频网站 灰灰视频Av在线视频 苍井优黄片视频 国产猛男小姐高潮 国产真实泄露在线 本土成人线上免费影片 波多野结衣在线CK 两只硕大的巨乳涨奶水 慢画色 骚逼美女被插写真图 成人片SM 成人国产自拍漫画 在线不用播放器av网址 69pao国产在线播放 李丽珍三级合集种子迅雷mp4 啪啪啪tossgirl 国产伦理道德动态图 www588mm 欧美白人磁力链接 小妹打泡一级黄片毛 网友自拍熟女人妻在线 日本韩国 magnet 居家少妇露脸18p 国内自拍激情免费 干日本姝AV 美女被操流淫 伦理动漫狠狠 色友吧在线视频 情侣自拍。 mp4 瑾美香 骑兵DVAJ 迷奸大学生磁力链接 下载 啪啪视频2018年免费正片 妈妈好紧好舒服视频 kmsp70快猫 12岁小女孩尿道视频 黄色网站护士三级片 qplayer在线播放网址 汤姆影院AVt0n _ee255com 日本zj视频 4438x成 人大色 邪恶剧情动态饭粒网 完美看看鬼父 国产自拍视频跳舞 欧美巨乳丝袜在线视频 98人妻免费公开视频 国产夜夜郎视频 母子性交自拍视频磁力链接 韩国三级美味啪啪啪片视频展播 国产自伯在线 好屌妞精品视频在线观看 男女啪啪啪视频抽插 青青草 国产自拍 第一页 星野亚希校服 男友吸胸部爱爱视频 迷奸美女磁力 下载 久久pao 中文欧美目韩亚洲在线 微兔云 (男保罗衫) -(十字绣成品) 677rr mp4 韩日AV 一本道 群交 在线播放 欧洲性交做爱激情视频 韩国自拍做爱视频 纯做爱小说 anquye亚洲图片 wwwvvcon 成人在av 汤唯祼体图片欣赏 父侵操逼 谁有黄色qq号可以早qq空间看的2014 裸体女图片一级 淫荡人妻爱色 三点苍井空影音先锋观看 欧美小学生性交