script.h

计算机系统结构的讲义,浓缩了一本一千多页的书.真的是好东西.

  wm geometry $w +0+0\n\
  frame $w.int\n\
  frame $w.add\n\
  frame $w.mul\n\
  frame $w.div\n\
  frame $w.load\n\
  frame $w.store\n\
  frame $w.button  \n\
  set oldFocus [focus]\n\
  if {$configureEnabled} {\n\
    set scaletroco skyblue\n\
    set scaleactbg MediumOrchid\n\
  } else {\n\
    set scaletroco lightgrey\n\
    set scaleactbg lightgrey\n\
  }\n\
  pack  $w.int $w.add $w.mul $w.div  $w.load $w.store $w.button \\\n\
    -side top \\\n\
    -fill x \\\n\
    -expand yes  \n\
  scale $w.int.number \\\n\
    -tickinterval 7 \\\n\
    -label \"integer reservation station number\" \\\n\
    -command \"ScaleValue num_int_units\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg \n\
  scale $w.int.latency \\\n\
    -to 3  \\\n\
    -tickinterval 2 \\\n\
    -label \"integer op latency (cycles)\" \\\n\
    -command \"ScaleValue int_latency\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  pack $w.int.number $w.int.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  scale $w.add.number \\\n\
    -tickinterval 7 \\\n\
    -label \"FP add reservation station number\" \\\n\
    -command \"ScaleValue num_add_units\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  scale $w.add.latency \\\n\
    -to 5  \\\n\
    -tickinterval 4 \\\n\
    -label \"FP add latency (cycles)\" \\\n\
    -command \"ScaleValue fp_add_latency\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg \n\
  pack $w.add.number $w.add.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  scale $w.mul.number \\\n\
    -tickinterval 7 \\\n\
    -label \"FP multiply reservation station number\" \\\n\
    -command \"ScaleValue num_mul_units\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  scale $w.mul.latency \\\n\
    -to 10  \\\n\
    -tickinterval 9 \\\n\
    -label \"FP multiply latency (cycles)\" \\\n\
    -command \"ScaleValue fp_mul_latency\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  pack $w.mul.number $w.mul.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  scale $w.div.number \\\n\
    -from 0 \\\n\
    -tickinterval 8 \\\n\
    -label \"FP divide reservation station number\" \\\n\
    -command \"ScaleValue num_div_units\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  scale $w.div.latency \\\n\
    -to 50  \\\n\
    -tickinterval 49 \\\n\
    -label \"FP divide latency (cycles)\" \\\n\
    -command \"ScaleValue fp_div_latency\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  pack $w.div.number $w.div.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  scale $w.load.number \\\n\
    -from 0 \\\n\
    -tickinterval 8 \\\n\
    -label \"load buffer number\" \\\n\
    -command \"ScaleValue num_load_bufs\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  scale $w.load.latency \\\n\
    -to 20  \\\n\
    -tickinterval 19 \\\n\
    -label \"load buffer latency (cycles)\" \\\n\
    -command \"ScaleValue load_buf_latency\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  pack $w.load.number $w.load.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  scale $w.store.number \\\n\
    -from 0 \\\n\
    -tickinterval 8 \\\n\
    -label \"store buffer number\" \\\n\
    -command \"ScaleValue num_store_bufs\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  scale $w.store.latency \\\n\
    -to 20  \\\n\
    -tickinterval 19 \\\n\
    -label \"store buffer latency (cycles)\" \\\n\
    -command \"ScaleValue  store_buf_latency\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  pack $w.store.number $w.store.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  button $w.button.ok \\\n\
    -text Ok \\\n\
    -command \"SubConfigureOk \n\
       destroy $w\n\
       focus $oldFocus\"\n\
  button $w.button.cancel \\\n\
    -text Cancel \\\n\
    -command \"set num_int_units $num_int_unitsOrig\n\
      set int_latency $int_latencyOrig\n\
      set num_add_units $num_add_unitsOrig\n\
      set fp_add_latency $fp_add_latencyOrig \n\
      set num_mul_units $num_mul_unitsOrig\n\
      set fp_mul_latency $fp_mul_latencyOrig\n\
      set num_div_units $num_div_unitsOrig\n\
      set fp_div_latency $fp_div_latencyOrig\n\
      set num_load_bufs $num_load_bufsOrig\n\
      set load_buf_latency $load_buf_latencyOrig\n\
      set num_store_bufs $num_store_bufsOrig\n\
      set store_buf_latency $store_buf_latencyOrig\n\
      destroy $w\n\
      focus $oldFocus\"\n\
  pack $w.button.ok $w.button.cancel\\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes\n\
  $w.int.number set $num_int_units\n\
  $w.int.latency set $int_latency\n\
  $w.add.number set $num_add_units\n\
  $w.add.latency set $fp_add_latency\n\
  $w.mul.number set $num_mul_units\n\
  $w.mul.latency set $fp_mul_latency\n\
  $w.div.number set $num_div_units\n\
  $w.div.latency set $fp_div_latency\n\
  $w.load.number set $num_load_bufs\n\
  $w.load.latency set $load_buf_latency\n\
  $w.store.number set $num_store_bufs\n\
  $w.store.latency set $store_buf_latency\n\
  if {$configureEnabled == \"0\"} {\n\
    $w.button.ok configure -state disabled\n\
    $w.int.number configure -state disabled\n\
    $w.int.latency configure -state disabled\n\
    $w.add.number configure -state disabled\n\
    $w.add.latency configure -state disabled\n\
    $w.mul.number configure -state disabled\n\
    $w.mul.latency configure -state disabled\n\
    $w.div.number configure -state disabled\n\
    $w.div.latency configure -state disabled\n\
    $w.load.number configure -state disabled\n\
    $w.load.latency configure -state disabled\n\
    $w.store.number configure -state disabled\n\
    $w.store.latency configure -state disabled\n\
  }\n\
  tkwait visibility $w\n\
  grab $w\n\
  focus $w\n\
}\n\
   ";






char ScoConfigure_tcl[] = "\
proc ScoConfigure {{w .subconfigure}} {\n\
  global num_int_units int_latency\n\
  global num_add_units fp_add_latency\n\
  global num_mul_units fp_mul_latency\n\
  global num_div_units fp_div_latency\n\
  global fp_div_exist\n\
  global configureEnabled\n\
  set num_int_unitsOrig $num_int_units\n\
  set int_latencyOrig $int_latency\n\
  set num_add_unitsOrig $num_add_units\n\
  set fp_add_latencyOrig $fp_add_latency \n\
  set num_mul_unitsOrig $num_mul_units\n\
  set fp_mul_latencyOrig $fp_mul_latency\n\
  set num_div_unitsOrig $num_div_units\n\
  set fp_div_latencyOrig $fp_div_latency\n\
  catch {destroy $w}\n\
  toplevel $w\n\
  wm title $w \"Scoreboarding Configuration\"\n\
  wm iconname $w \"subconfigure\"\n\
  wm geometry $w +0+0\n\
  frame $w.int\n\
  frame $w.add\n\
  frame $w.mul\n\
  frame $w.div\n\
  frame $w.button  \n\
  set oldFocus [focus]\n\
  if {$configureEnabled} {\n\
    set scaletroco skyblue\n\
    set scaleactbg MediumOrchid\n\
  } else {\n\
    set scaletroco lightgrey\n\
    set scaleactbg lightgrey\n\
  }\n\
  pack  $w.int $w.add $w.mul $w.div $w.button \\\n\
    -side top \\\n\
    -fill x \\\n\
    -expand yes  \n\
  scale $w.int.number \\\n\
    -tickinterval 7 \\\n\
    -label \"integer unit number\" \\\n\
    -command \"ScaleValue num_int_units\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg \n\
  scale $w.int.latency \\\n\
    -to 3  \\\n\
    -tickinterval 2 \\\n\
    -label \"integer unit latency (cycles)\" \\\n\
    -command \"ScaleValue int_latency\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  pack $w.int.number $w.int.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  scale $w.add.number \\\n\
    -tickinterval 7 \\\n\
    -label \"FP add reservation station number\" \\\n\
    -command \"ScaleValue num_add_units\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  scale $w.add.latency \\\n\
    -to 5  \\\n\
    -tickinterval 4 \\\n\
    -label \"FP add latency (cycles)\" \\\n\
    -command \"ScaleValue fp_add_latency\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg \n\
  pack $w.add.number $w.add.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  scale $w.mul.number \\\n\
    -tickinterval 7 \\\n\
    -label \"FP multiply reservation station number\" \\\n\
    -command \"ScaleValue num_mul_units\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  scale $w.mul.latency \\\n\
    -to 10  \\\n\
    -tickinterval 9 \\\n\
    -label \"FP multiply latency (cycles)\" \\\n\
    -command \"ScaleValue fp_mul_latency\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  pack $w.mul.number $w.mul.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  scale $w.div.number \\\n\
    -from 0 \\\n\
    -tickinterval 8 \\\n\
    -label \"FP divide reservation station number\" \\\n\
    -command \"ScaleValue num_div_units\" \\\n\
    -troughcolor $scaletroco \\\n\
    -activebackground $scaleactbg\n\
  scale $w.div.latency \\\n\
    -to 50  \\\n\
    -tickinterval 49 \\\n\
    -label \"FP divide latency (cycles)\" \\\n\
    -command \"ScaleValue fp_div_latency\" \\\n\
    -troughcolor $scaletroco       \\\n\
    -activebackground $scaleactbg           \n\
  pack $w.div.number $w.div.latency \\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes \\\n\
    -padx 5 \\\n\
    -pady 10\n\
  button $w.button.ok \\\n\
    -text Ok \\\n\
    -command  \"SubConfigureOk \n\
       destroy $w\n\
       focus $oldFocus\"\n\
  button $w.button.cancel \\\n\
    -text Cancel \\\n\
    -command \"set num_int_units $num_int_unitsOrig\n\
      set int_latency $int_latencyOrig\n\
      set num_add_units $num_add_unitsOrig\n\
      set fp_add_latency $fp_add_latencyOrig \n\
      set num_mul_units $num_mul_unitsOrig\n\
      set fp_mul_latency $fp_mul_latencyOrig\n\
      set num_div_units $num_div_unitsOrig\n\
      set fp_div_latency $fp_div_latencyOrig\n\
      destroy $w\n\
      focus $oldFocus\"\n\
  pack $w.button.ok $w.button.cancel\\\n\
    -side left \\\n\
    -fill x \\\n\
    -expand yes\n\
  $w.int.number set $num_int_units\n\
  $w.int.latency set $int_latency\n\
  $w.add.number set $num_add_units\n\
  $w.add.latency set $fp_add_latency\n\
  $w.mul.number set $num_mul_units\n\
  $w.mul.latency set $fp_mul_latency\n\
  $w.div.number set $num_div_units\n\
  $w.div.latency set $fp_div_latency\n\
  if {$configureEnabled == \"0\"} {\n\
    $w.button.ok configure -state disabled\n\
    $w.int.number configure -state disabled\n\
    $w.int.latency configure -state disabled\n\
    $w.add.number configure -state disabled\n\
    $w.add.latency configure -state disabled\n\
    $w.mul.number configure -state disabled\n\
    $w.mul.latency configure -state disabled\n\
    $w.div.number configure -state disabled\n\
    $w.div.latency configure -state disabled\n\
  }\n\
  tkwait visibility $w\n\
  grab $w\n\
  focus $w\n\
}\n\
   ";






char ConfigureOk_tcl[] = "\
proc ConfigureOk {oldFocus {w .configure}} {\n\
  global config configureEnabled \n\
  switch $config {\n\
    0 {mkBasicPipe}\n\
    1 {mkTomasulo}\n\
    2 {mkScoreboard}\n\
  }\n\
  .button.top.load configure -state normal\n\
  set configureEnabled 0\n\
  destroy $w\n\
  focus $oldFocus\n\