ALliance Graphic User Environement
This commit is contained in:
parent
aa0336e041
commit
5906eb9902
|
@ -0,0 +1,82 @@
|
|||
proc Dialogue.tcl {w titre texte bitmap defaut args} {
|
||||
|
||||
# pompe dans J.K OUSTERHOUT pp 269
|
||||
# La boite de dialogue peut contenir un "texte" avec eventuellement
|
||||
# un "bitmap" si celui ci est {} pas de bitmap.
|
||||
# Un des bouton peut etre specifie en en "defaut" (sinon -1).
|
||||
# Dans ce cas il insere dans une frame sunken. La boite attend
|
||||
# une reponse. Dans ce cas la boite est detruite et retourne l'indice
|
||||
# du bouton invoque. Sur un retour chariot est avec un "defaut"
|
||||
# specifie, l'indice du defautest retourne
|
||||
|
||||
global bouton_diag
|
||||
global fontes
|
||||
|
||||
if {[winfo exists $w]} {destroy $w}
|
||||
#set w $w.dialogue
|
||||
|
||||
# cree la boite et la divise en deux
|
||||
|
||||
toplevel $w -class Dialog
|
||||
wm title $w $titre
|
||||
wm geometry $w +300+400
|
||||
|
||||
raise $w
|
||||
|
||||
|
||||
|
||||
frame $w.haut -relief raised -bd 1
|
||||
pack $w.haut -side top -fill both
|
||||
frame $w.bas -relief raised -bd 1
|
||||
pack $w.bas -side bottom -fill both
|
||||
|
||||
# on remplie le haut
|
||||
|
||||
message $w.haut.msg -width 3i -text $texte \
|
||||
-font $fontes(1)
|
||||
pack $w.haut.msg -side right -expand 1 -fill both \
|
||||
-padx 3m -pady 3m
|
||||
if {$bitmap != ""} {
|
||||
label $w.haut.bitmap -bitmap $bitmap
|
||||
pack $w.haut.bitmap -side left -padx 3m -pady 3m
|
||||
}
|
||||
|
||||
# cree une ligne de boutons
|
||||
set i 0
|
||||
foreach but $args {
|
||||
button $w.bas.button$i -text $but -font $fontes(1) -command \
|
||||
"set bouton_diag $i"
|
||||
if {$i == $defaut} {
|
||||
frame $w.bas.defaut -relief sunken -bd 1
|
||||
raise $w.bas.button$i
|
||||
pack $w.bas.defaut -side left -expand 1 \
|
||||
-padx 3m -pady 2m
|
||||
pack $w.bas.button$i -in $w.bas.defaut \
|
||||
-side left -padx 2m -pady 2m -ipadx 2m -ipady 1m
|
||||
} else {
|
||||
pack $w.bas.button$i -side left -expand 1 \
|
||||
-padx 3m -pady 3m -ipadx 2m -ipady 1m
|
||||
}
|
||||
incr i
|
||||
}
|
||||
|
||||
# execute une sortie sur RC et garde le controle
|
||||
|
||||
if {$defaut >= 0} {
|
||||
bind $w <Return> "$w.bas.button$defaut flash; \
|
||||
set bouton_diag $defaut"
|
||||
}
|
||||
bell
|
||||
set oldFocus [focus]
|
||||
#grab set $w
|
||||
focus $w
|
||||
|
||||
# attend une reponse et retourne l'indice du bouton selectionne
|
||||
|
||||
tkwait variable bouton_diag
|
||||
destroy $w
|
||||
focus $oldFocus
|
||||
return $bouton_diag
|
||||
|
||||
|
||||
}
|
|
@ -0,0 +1,131 @@
|
|||
proc Supervision_cmdunix.tcl { commande code_cmd } {
|
||||
|
||||
# genere une commande unix en tache de fond
|
||||
# et gere le flot de sortie
|
||||
# adapte du B.B. Welch p 104
|
||||
# si code_cmd est a 1 , on court-circuite la commande
|
||||
# execution .
|
||||
|
||||
# ---------- procedures internes ------------
|
||||
|
||||
proc Mk_cmdunix { } {
|
||||
# lance la commande et lit le flot de sortie
|
||||
global cmdunix entree blabla bouton
|
||||
|
||||
if [catch {open "|$cmdunix |& cat"} entree] {
|
||||
$blabla insert end $entree\n
|
||||
} else {
|
||||
fileevent $entree readable Supervision
|
||||
$blabla insert end $cmdunix\n
|
||||
$bouton config -state disabled
|
||||
}
|
||||
}
|
||||
proc Supervision { } {
|
||||
# supervise le flot de sortie
|
||||
global bouton num_process
|
||||
global entree blabla code_erreur_comdiac
|
||||
if [eof $entree] {
|
||||
# bell ; # bell
|
||||
Stop_cmdunix 0
|
||||
} else {
|
||||
gets $entree line
|
||||
if [string match *COMDIAC_PID* $line] {
|
||||
set num_process [lrange $line 1 1]
|
||||
set num_process [expr $num_process-2]
|
||||
}
|
||||
if [string match *COMDIAC_OK* $line] {
|
||||
# bell
|
||||
Stop_cmdunix 1
|
||||
}
|
||||
$blabla insert end $line\n
|
||||
$blabla see end
|
||||
|
||||
}
|
||||
}
|
||||
proc Stop_cmdunix { code } {
|
||||
# arrete et revalide l'execution
|
||||
global entree bouton code_erreur_comdiac num_process
|
||||
if { $code == 0 } {
|
||||
bell ; bell
|
||||
set code_erreur_comdiac 0
|
||||
}
|
||||
if { $code == 1 } {
|
||||
set code_erreur_comdiac 1
|
||||
}
|
||||
if { $code == -1 } {
|
||||
exec kill -9 $num_process
|
||||
bell ; bell
|
||||
set code_erreur_comdiac 0
|
||||
}
|
||||
catch {close $entree}
|
||||
$bouton config -state normal
|
||||
}
|
||||
|
||||
#--------------------------------------
|
||||
|
||||
global blabla cmdunix entree bouton
|
||||
global code_erreur_comdiac num_process
|
||||
global fontes
|
||||
|
||||
set num_process 0
|
||||
set cmdunix $commande
|
||||
set w .cmd_unix
|
||||
set poub [winfo exists $w]
|
||||
if {$poub == 1} {
|
||||
raise $w
|
||||
if { $code_cmd == 1 } { Mk_cmdunix }
|
||||
}
|
||||
if {$poub == 0} {
|
||||
toplevel $w -class Cmd_unix
|
||||
wm title $w "COMDIAC:Supervision des commandes UNIX"
|
||||
wm iconname $w Supervision
|
||||
wm geometry $w +30+30
|
||||
raise $w
|
||||
|
||||
# creation de la frame haute
|
||||
|
||||
frame $w.haut -borderwidth 10
|
||||
pack $w.haut -side top -fill x
|
||||
|
||||
# creation des boutons de commande
|
||||
|
||||
frame $w.haut.1
|
||||
pack $w.haut.1 -side right -fill x
|
||||
|
||||
button $w.haut.1.stop -text STOP -font $fontes(1) \
|
||||
-command "Stop_cmdunix -1"
|
||||
|
||||
$w.haut.1.stop config -cursor {hand2}
|
||||
set bouton [button $w.haut.1.exec -text EXECUTION -font $fontes(1) -command Mk_cmdunix]
|
||||
$w.haut.1.exec config -cursor {hand2}
|
||||
button $w.haut.1.sortie -text SORTIE -font $fontes(1) -command "destroy .cmd_unix"
|
||||
$w.haut.1.sortie config -cursor {hand2}
|
||||
pack $w.haut.1.sortie $w.haut.1.stop $w.haut.1.exec -side right
|
||||
|
||||
|
||||
# creation du label
|
||||
|
||||
label $w.haut.label -font $fontes(1) -text "Commande UNIX: " -padx 0
|
||||
entry $w.haut.entree -width 80 -relief sunken -textvariable cmdunix
|
||||
pack $w.haut.label -side left
|
||||
pack $w.haut.entree -side left -fill x -expand true
|
||||
|
||||
focus $w.haut.entree
|
||||
|
||||
# creation de la frame basse pour scruter l'execution
|
||||
|
||||
frame $w.bas
|
||||
# set blabla [text $w.bas.text -width 80 -height 5 -font $fontes(1)
|
||||
|
||||
set blabla [text $w.bas.text -width 80 -height 16 \
|
||||
-borderwidth 5 -relief ridge -setgrid true \
|
||||
-yscrollcommand {.cmd_unix.bas.scroll set}]
|
||||
scrollbar $w.bas.scroll -command {.cmd_unix.bas.text yview}
|
||||
pack $w.bas.text -side left -fill both -expand true
|
||||
pack $w.bas.scroll -side right -fill y
|
||||
pack $w.bas -side top -fill both -expand true
|
||||
|
||||
if { $code_cmd == 1 } { Mk_cmdunix }
|
||||
}
|
||||
|
||||
}
|
Binary file not shown.
After Width: | Height: | Size: 5.2 KiB |
|
@ -0,0 +1,955 @@
|
|||
###################################
|
||||
#
|
||||
# Alliance graphics
|
||||
#
|
||||
###################################
|
||||
|
||||
proc Library_UpdateIndex { libdir } {
|
||||
if ![file exists $libdir/tclIndex] {
|
||||
set doit 1
|
||||
} else {
|
||||
set age [file mtime $libdir/tclIndex]
|
||||
set doit 0
|
||||
if {[file mtime $libdir] > $age} {
|
||||
set doit 1
|
||||
} else {
|
||||
foreach file [glob $libdir/*.tcl] {
|
||||
if {[file mtime $file] > $age} {
|
||||
set doit 1
|
||||
break
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
if { $doit } {
|
||||
auto_mkindex $libdir *.tcl
|
||||
}
|
||||
}
|
||||
|
||||
set alcgraph $env(ALLIANCE_TOP)/algue
|
||||
|
||||
lappend auto_path $alcgraph
|
||||
|
||||
Library_UpdateIndex $alcgraph
|
||||
|
||||
global fontes
|
||||
set fontes(1) -adobe-helvetica-bold-r-normal-*-12-*-*-*-*-*-*-*
|
||||
set fontes(2) -adobe-helvetica-bold-r-normal-*-10-*-*-*-*-*-*-*
|
||||
set fontes(3) -adobe-helvetica-bold-r-normal-*-34-*-*-*-*-*-*-*
|
||||
set fontes(4) -adobe-helvetica-bold-r-normal-*-8-*-75-*-*-*-*-*
|
||||
set fontes(5) -adobe-helvetica-bold-r-normal-*-24-*-*-*-*-*-*-*
|
||||
set fontes(6) -adobe-helvetica-bold-r-normal-*-20-*-*-*-*-*-*-*
|
||||
set fontes(7) -adobe-helvetica-bold-r-normal-*-16-*-*-*-*-*-*-*
|
||||
|
||||
|
||||
option add *foreground black
|
||||
option add *Button.background #eef
|
||||
option add *Menubutton.background #eef
|
||||
|
||||
option add *Checkbutton.background #fff
|
||||
option add *Radiobutton.background #fff
|
||||
option add *Frame.background #fff
|
||||
option add *Canvas.background #fff
|
||||
option add *Canvas.background #fff
|
||||
option add *Label.background #fff
|
||||
option add *Toplevel.background #fff
|
||||
option add *Entry.background #fff
|
||||
option add *Scrollbar.background #eef
|
||||
option add *Listbox.background bisque
|
||||
option add *Text.background white
|
||||
|
||||
set w .alliance
|
||||
|
||||
toplevel $w -class Cairo_otacsrndmos
|
||||
wm title $w "A L L I A N C E"
|
||||
raise $w
|
||||
wm geometry $w +20+20
|
||||
wm iconify .
|
||||
global currentlang
|
||||
set currentlang "francais"
|
||||
|
||||
global paramlaunch
|
||||
set paramlaunch(changelang) "Switch to English"
|
||||
set paramlaunch(exit) "SORTIE"
|
||||
|
||||
|
||||
|
||||
##################
|
||||
# Procedures....
|
||||
#
|
||||
#
|
||||
########################
|
||||
#
|
||||
|
||||
|
||||
########################
|
||||
#
|
||||
proc dlg_reset {exec file_conf } {
|
||||
global fontes
|
||||
global button_press
|
||||
|
||||
|
||||
set win .dgl
|
||||
set texte "Voulez-vous vraiment remettre les parametres a leurs valeurs \
|
||||
initiales ?"
|
||||
|
||||
toplevel $win -class Dialog
|
||||
|
||||
wm title $win "Confirmation"
|
||||
wm geometry $win +300+400
|
||||
raise $win
|
||||
|
||||
frame $win.haut -relief raised -bd 1
|
||||
pack $win.haut -side top -fill both
|
||||
frame $win.bas -relief raised -bd 1
|
||||
pack $win.bas -side bottom -fill both
|
||||
|
||||
message $win.haut.msg -width 3i -text $texte
|
||||
|
||||
pack $win.haut.msg -side right -expand 1 -fill both -padx 3 -pady 3
|
||||
|
||||
button $win.bas.1 -text "Oui" -command "set button_press 0"
|
||||
pack $win.bas.1 -expand 1 -side left -padx 5 -pady 5 -ipadx 3 -ipady 3
|
||||
|
||||
button $win.bas.2 -text "Non" -command "set button_press 1"
|
||||
pack $win.bas.2 -expand 1 -side left -padx 5 -pady 5 -ipadx 3 -ipady 3
|
||||
|
||||
tkwait variable button_press
|
||||
destroy $win
|
||||
|
||||
return $button_press
|
||||
}
|
||||
|
||||
|
||||
######
|
||||
#
|
||||
proc askforshell { } {
|
||||
global fontes
|
||||
global button_press
|
||||
global currentlang
|
||||
|
||||
set win .dgl
|
||||
switch $currentlang {
|
||||
"francais" {
|
||||
set texte "A quel shell voulez vous que le script se conforme ?"
|
||||
set titlefile "Choix du shell"
|
||||
}
|
||||
|
||||
"anglais" {
|
||||
set texte "Witch Shell do you want to use ?"
|
||||
set titlefile "Shell Choose"
|
||||
}
|
||||
}
|
||||
|
||||
toplevel $win -class Dialog
|
||||
|
||||
wm title $win "$titlefile"
|
||||
|
||||
wm geometry $win +300+400
|
||||
raise $win
|
||||
|
||||
frame $win.haut -relief raised -bd 1
|
||||
pack $win.haut -side top -fill both
|
||||
frame $win.bas -relief raised -bd 1
|
||||
pack $win.bas -side bottom -fill both
|
||||
|
||||
message $win.haut.msg -width 3i -text $texte
|
||||
|
||||
pack $win.haut.msg -side right -expand 1 -fill both -padx 3 -pady 3
|
||||
|
||||
button $win.bas.1 -text "TCSH" -command "set button_press TCSH"
|
||||
pack $win.bas.1 -expand 1 -side left -padx 5 -pady 5 -ipadx 3 -ipady 3
|
||||
|
||||
button $win.bas.2 -text "BASH" -command "set button_press BASH"
|
||||
pack $win.bas.2 -expand 1 -side left -padx 5 -pady 5 -ipadx 3 -ipady 3
|
||||
|
||||
set oldfocus [focus]
|
||||
|
||||
focus $win
|
||||
|
||||
tkwait variable button_press
|
||||
destroy $win
|
||||
focus $oldfocus
|
||||
|
||||
return $button_press
|
||||
}
|
||||
|
||||
########################
|
||||
proc dump_env_file { file } {
|
||||
global env
|
||||
global dir_env_file
|
||||
|
||||
|
||||
if ![file exists $env(PWD)/$file] {
|
||||
eval "exec cp ${dir_env_file}/${file} ."
|
||||
}
|
||||
return 0
|
||||
}
|
||||
|
||||
|
||||
########################
|
||||
proc reset_env_file { file execut } {
|
||||
global env
|
||||
global dir_env_file
|
||||
global result_dialog
|
||||
global liste_variables
|
||||
|
||||
set result_dialog [ dlg_reset $execut $file]
|
||||
|
||||
if { $result_dialog == 0 } {
|
||||
if [file exists $env(PWD)/$file] {
|
||||
eval "exec cp ${dir_env_file}/${file} ."
|
||||
}
|
||||
}
|
||||
|
||||
########
|
||||
# on devrait lire les nouvelles valeurs..
|
||||
#ABCD
|
||||
|
||||
return $result_dialog
|
||||
}
|
||||
|
||||
|
||||
#######
|
||||
#
|
||||
proc config_binaire { executable file_config } {
|
||||
global fontes
|
||||
global largeur
|
||||
global entry_val
|
||||
global exec_dupfile
|
||||
global do_pack
|
||||
set exec_dupfile $executable
|
||||
global env
|
||||
|
||||
global liste_variables
|
||||
global dir_env_file
|
||||
|
||||
set dir_env_file $env(ALLIANCE_TOP)/algue
|
||||
|
||||
global liste_topack
|
||||
|
||||
global currentlang
|
||||
|
||||
switch $currentlang {
|
||||
|
||||
"francais" {
|
||||
set paramlaunch(title) "Configuration de l' environnement de "
|
||||
set paramlaunch(var) "Variable"
|
||||
set paramlaunch(val) "Valeur"
|
||||
set paramlaunch(cmd) "Commande"
|
||||
set paramlaunch(launch) "Execution"
|
||||
set paramlaunch(defaut) "Valeurs par defaut"
|
||||
set paramlaunch(save) "Sauvegarde"
|
||||
set paramlaunch(script) "Genere script"
|
||||
set paramlaunch(exit) "SORTIE"
|
||||
|
||||
}
|
||||
"anglais" {
|
||||
set paramlaunch(title) "Environnement of "
|
||||
set paramlaunch(var) "Variable"
|
||||
set paramlaunch(val) "Value"
|
||||
set paramlaunch(cmd) "Command"
|
||||
set paramlaunch(launch) "Launch"
|
||||
set paramlaunch(defaut) "Default Values"
|
||||
set paramlaunch(save) "Save"
|
||||
set paramlaunch(script) "Drive script"
|
||||
set paramlaunch(exit) "EXIT"
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
toplevel .config
|
||||
wm title .config "Alliance Configurator"
|
||||
wm iconname .config Config
|
||||
wm geometry .config +10+10
|
||||
|
||||
set h_scrol 100
|
||||
|
||||
############
|
||||
# si executable.env n existe pas dans le repertoire courant on le copie
|
||||
#
|
||||
set exe_env [dump_env_file ${executable}.env]
|
||||
|
||||
|
||||
frame .config.top -relief flat
|
||||
pack .config.top -side top -fill both
|
||||
frame .config.cmd -relief flat
|
||||
pack .config.cmd -fill both
|
||||
frame .config.bot -relief raised -bd 1
|
||||
pack .config.bot -side bottom -fill both
|
||||
|
||||
label .config.top.titre -font $fontes(6) \
|
||||
-text "$paramlaunch(title) $executable" -foreground #0000CC
|
||||
|
||||
pack .config.top.titre -side top -padx 3 -pady 10
|
||||
|
||||
canvas .config.top.canvas -relief flat -borderwidth 0 -background #fff -width 40 -height 10 \
|
||||
-scrollregion "0 0 0 $h_scrol" -yscrollcommand ".config.top.scrol set"
|
||||
|
||||
|
||||
scrollbar .config.top.scrol -width 8 -orient vertical -command ".config.top.canvas yview" \
|
||||
-width 8
|
||||
|
||||
pack .config.top.scrol -side right -fill y
|
||||
.config.top.scrol config -cursor {hand2}
|
||||
pack .config.top.canvas -expand yes -side left -fill both
|
||||
|
||||
|
||||
if [catch {open $file_config r} fichier] {
|
||||
set pouba "L'erreur est humaine"
|
||||
set poubb "Probleme a l'ouverture du fichier $file_config !!"
|
||||
Dialogue.tcl .d $pouba $poubb error -1 SORTIE
|
||||
} else {
|
||||
set gocalcul 1
|
||||
global do_pack
|
||||
global liste_topack
|
||||
#bell
|
||||
set largeur 0
|
||||
set largeur_maxi 2
|
||||
set ligne_act 1
|
||||
set liste_topack ""
|
||||
set liste_variables ""
|
||||
set wdtent 35
|
||||
set wdtlbl 20
|
||||
set topady 5
|
||||
set topadx 5
|
||||
|
||||
frame .config.top.canvas.titre -relief raised -bd 1
|
||||
pack .config.top.canvas.titre -side top -fill both
|
||||
|
||||
label .config.top.canvas.titre.col1 -width $wdtlbl -font $fontes(1) \
|
||||
-text "$paramlaunch(var)" -fg #CC0000
|
||||
label .config.top.canvas.titre.col2 -width $wdtent -font $fontes(1) \
|
||||
-text "$paramlaunch(val)" -fg #CC0000
|
||||
label .config.top.canvas.titre.col3 -width $wdtlbl -font $fontes(1) \
|
||||
-text "$paramlaunch(var)" -fg #CC0000
|
||||
label .config.top.canvas.titre.col4 -width $wdtent -font $fontes(1) \
|
||||
-text "$paramlaunch(val)" -fg #CC0000
|
||||
|
||||
|
||||
pack .config.top.canvas.titre.col1 .config.top.canvas.titre.col2 \
|
||||
.config.top.canvas.titre.col3 .config.top.canvas.titre.col4 -side left -padx $topadx -pady $topady
|
||||
|
||||
frame .config.top.canvas.${ligne_act} -relief raised -bd 1
|
||||
pack .config.top.canvas.${ligne_act} -side top -fill both
|
||||
|
||||
while {[gets $fichier ligne] >= 0} {
|
||||
|
||||
global do_pack
|
||||
|
||||
set parametre [lrange $ligne 0 0]
|
||||
set val_parametre [lrange $ligne 1 1]
|
||||
set allval_param [lrange $ligne 1 end]
|
||||
set do_pack 1
|
||||
set lengthval [string length $val_parametre ]
|
||||
set lengthval [expr $lengthval - 2]
|
||||
set firstval [string index $val_parametre 0]
|
||||
set lastval [string index $val_parametre $lengthval]
|
||||
|
||||
if { $firstval == "\{" } {
|
||||
set goodval [ string range $val_parametre 1 $lengthval ]
|
||||
set val_parametre $goodval
|
||||
}
|
||||
|
||||
switch $parametre {
|
||||
|
||||
|
||||
"commande" {
|
||||
|
||||
switch $currentlang {
|
||||
"francais" {
|
||||
label .config.cmd.lbl -width $wdtlbl -font $fontes(7) \
|
||||
-text "commande" -fg #CC0000
|
||||
}
|
||||
"anglais" {
|
||||
label .config.cmd.lbl -width $wdtlbl -font $fontes(7) \
|
||||
-text "command" -fg #CC0000
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
set entry_val(commande) $allval_param
|
||||
|
||||
lappend liste_variables "commande"
|
||||
|
||||
entry .config.cmd.ent -width $wdtent \
|
||||
-textvariable entry_val(commande)
|
||||
#XXX
|
||||
|
||||
button .config.cmd.lance -font $fontes(7) -fg #0000CC -text "$paramlaunch(launch)" -underline 0 -width 14 -command\
|
||||
{
|
||||
|
||||
global exec_dupfile
|
||||
global liste_variables
|
||||
global entry_val
|
||||
global filewrite
|
||||
global shellused
|
||||
|
||||
|
||||
|
||||
set filewrite ${exec_dupfile}.tmpsh
|
||||
|
||||
if [catch {open $filewrite w+ } fichier] {
|
||||
set pouba "L'erreur est humaine"
|
||||
set poubb "Probleme a l'ouverture du fichier $filewrite !!"
|
||||
Dialogue.tcl .d $pouba $poubb error -1 SORTIE
|
||||
} else {
|
||||
set ii 0
|
||||
|
||||
|
||||
foreach vartowrite $liste_variables {
|
||||
incr ii
|
||||
if {$vartowrite == "commande" } {
|
||||
puts $fichier "$entry_val($vartowrite)"
|
||||
|
||||
} else {
|
||||
puts $fichier "$vartowrite=$entry_val($vartowrite)"
|
||||
puts $fichier "export $vartowrite"
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
close $fichier
|
||||
|
||||
}
|
||||
|
||||
eval "exec chmod 755 $filewrite"
|
||||
|
||||
set comd "${filewrite}"
|
||||
|
||||
Supervision_cmdunix.tcl $env(PWD)/$comd 1 ;
|
||||
|
||||
# puts "$filewrite"
|
||||
# set comd2 "rm $filewrite"
|
||||
# Supervision_cmdunix.tcl $comd2 1 ;
|
||||
|
||||
# eval "exec rm -rf $filewrite"
|
||||
|
||||
}
|
||||
|
||||
pack .config.cmd.lbl .config.cmd.ent .config.cmd.lance -side left -padx $topadx -pady 15
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
default {
|
||||
global liste_topack
|
||||
|
||||
if {$largeur < $largeur_maxi} {
|
||||
set largeur [expr $largeur + 1]
|
||||
|
||||
set liste_topack "$liste_topack .config.top.canvas.$ligne_act.$ligne_act${largeur}lbl"
|
||||
set liste_topack "$liste_topack .config.top.canvas.$ligne_act.$ligne_act${largeur}ent"
|
||||
|
||||
label .config.top.canvas.$ligne_act.$ligne_act${largeur}lbl -width $wdtlbl -font $fontes(1) \
|
||||
-text $parametre -bg #DDDDDD -fg #0000CC
|
||||
# set entry_val($ligne_act$largeur) $val_parametre
|
||||
set entry_val($parametre) $val_parametre
|
||||
|
||||
entry .config.top.canvas.$ligne_act.$ligne_act${largeur}ent -width $wdtent \
|
||||
-textvariable entry_val($parametre)
|
||||
lappend liste_variables $parametre
|
||||
set do_pack 1
|
||||
|
||||
} else {
|
||||
set topack " pack $liste_topack -side left -padx $topadx -pady $topady"
|
||||
eval $topack
|
||||
set largeur 1
|
||||
set liste_topack ""
|
||||
incr ligne_act
|
||||
frame .config.top.canvas.${ligne_act} -relief raised -bd 1
|
||||
pack .config.top.canvas.${ligne_act} -side top -fill both
|
||||
|
||||
|
||||
set liste_topack "$liste_topack .config.top.canvas.$ligne_act.$ligne_act${largeur}lbl"
|
||||
set liste_topack "$liste_topack .config.top.canvas.$ligne_act.$ligne_act${largeur}ent"
|
||||
|
||||
label .config.top.canvas.$ligne_act.$ligne_act${largeur}lbl -width $wdtlbl -font $fontes(1) \
|
||||
-text $parametre -bg #DDDDDD -fg #0000CC
|
||||
# set entry_val($ligne_act$largeur) $val_parametre
|
||||
set entry_val($parametre) $val_parametre
|
||||
entry .config.top.canvas.$ligne_act.$ligne_act${largeur}ent -width $wdtent \
|
||||
-textvariable entry_val($parametre)
|
||||
lappend liste_variables $parametre
|
||||
|
||||
|
||||
set do_pack 0
|
||||
}
|
||||
|
||||
|
||||
if { $parametre != "*" } {
|
||||
if { $parametre == "AD0" } {
|
||||
set dim_otacsrndmos(ad0) $val_parametre
|
||||
} elseif { $parametre == "VC3" } {
|
||||
set dim_otacsrndmos(vc3) [format "%6.3f" $val_parametre]
|
||||
} elseif { $parametre == "AIRE" } {
|
||||
set dim_otacsrndmos(aire) $val_parametre
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
set topack " pack $liste_topack -side left -padx $topadx -pady $topady"
|
||||
|
||||
# if { $do_pack == 1 } {
|
||||
eval $topack
|
||||
# }
|
||||
|
||||
close $fichier
|
||||
|
||||
}
|
||||
|
||||
####################
|
||||
# Bouttons du bas
|
||||
|
||||
button .config.bot.reset -font $fontes(1) -text "$paramlaunch(defaut)" -underline 0 -width 14 -command\
|
||||
{ }
|
||||
|
||||
button .config.bot.save -font $fontes(1) -text "$paramlaunch(save)" -underline 0 -width 14 -command\
|
||||
{}
|
||||
|
||||
button .config.bot.lance -font $fontes(1) -text "$paramlaunch(script)" -underline 0 -width 14 -command\
|
||||
{}
|
||||
|
||||
button .config.bot.exit -font $fontes(1) -text "$paramlaunch(exit)" -underline 0 -width 14 -command\
|
||||
"destroy .config"
|
||||
|
||||
|
||||
pack .config.bot.reset .config.bot.save .config.bot.lance .config.bot.exit -side left -expand 1\
|
||||
-padx 9 -pady 6 -ipadx 6 -ipady 3
|
||||
|
||||
|
||||
|
||||
bind .config.bot.reset <1> {
|
||||
global exec_dupfile
|
||||
global allval_param
|
||||
global entry_val
|
||||
|
||||
set okresult [ reset_env_file ${exec_dupfile}.env ${exec_dupfile} ]
|
||||
|
||||
if { $okresult == 0} {
|
||||
#on doit reconfigurer ....
|
||||
|
||||
# pack forget .config.bot.reset .config.bot.save .config.bot.lance
|
||||
# .config.bot.exit configure -text "Restart !"
|
||||
# .config.bot.exit configure -command "destroy .config ; return 11"
|
||||
|
||||
}
|
||||
set fich ${exec_dupfile}.env
|
||||
|
||||
if [catch {open $fich r} fichier] {
|
||||
set pouba "L'erreur est humaine"
|
||||
set poubb "Probleme a l'ouverture du fichier $file_config !!"
|
||||
Dialogue.tcl .d $pouba $poubb error -1 SORTIE
|
||||
} else {
|
||||
set gocalcul 1
|
||||
global do_pack
|
||||
global liste_topack
|
||||
set liste_topack ""
|
||||
set liste_variables ""
|
||||
|
||||
while {[gets $fichier ligne] >= 0} {
|
||||
|
||||
|
||||
set parametre [lrange $ligne 0 0]
|
||||
set val_parametre [lrange $ligne 1 1]
|
||||
set allval_param [lrange $ligne 1 end]
|
||||
|
||||
set entry_val($parametre) $allval_param
|
||||
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
bind .config.bot.save <1> {
|
||||
global exec_dupfile
|
||||
global liste_variables
|
||||
global entry_val
|
||||
global filewrite
|
||||
set types_circuit_files {
|
||||
{{ENV Files} {.env} }
|
||||
{{ALL Files} {*.*} }
|
||||
}
|
||||
|
||||
|
||||
set filewrite [ tk_getSaveFile -title "ALLIANCE Loader" -filetypes $types_circuit_files -initialdir $env(PWD) -initialfile ${exec_dupfile}.env ]
|
||||
|
||||
if {$filewrite != ""} {
|
||||
|
||||
if [catch {open $filewrite w} fichier] {
|
||||
set pouba "L'erreur est humaine"
|
||||
set poubb "Probleme a l'ouverture du fichier $filewrite !!"
|
||||
Dialogue.tcl .d $pouba $poubb error -1 SORTIE
|
||||
} else {
|
||||
set ii 0
|
||||
|
||||
|
||||
foreach vartowrite $liste_variables {
|
||||
incr ii
|
||||
if {$vartowrite == "commande" } {
|
||||
puts $fichier "$vartowrite $entry_val($vartowrite)"
|
||||
} else {
|
||||
puts $fichier "$vartowrite $entry_val($vartowrite)"
|
||||
}
|
||||
|
||||
}
|
||||
close $fichier
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
bind .config.bot.lance <1> {
|
||||
global exec_dupfile
|
||||
global liste_variables
|
||||
global entry_val
|
||||
global filewrite
|
||||
global shellused
|
||||
|
||||
set types_circuit_files {
|
||||
{{Script Files} {.sh} }
|
||||
{{ALL Files} {*.*} }
|
||||
}
|
||||
|
||||
set shellused [askforshell]
|
||||
|
||||
|
||||
set filewrite [ tk_getSaveFile -title "ALLIANCE Loader" -filetypes $types_circuit_files -initialdir $env(PWD) -initialfile ${exec_dupfile}.sh ]
|
||||
if {$filewrite != ""} {
|
||||
#ABC
|
||||
|
||||
if [catch {open $filewrite w} fichier] {
|
||||
set pouba "L'erreur est humaine"
|
||||
set poubb "Probleme a l'ouverture du fichier $filewrite !!"
|
||||
Dialogue.tcl .d $pouba $poubb error -1 SORTIE
|
||||
} else {
|
||||
set ii 0
|
||||
|
||||
if { $shellused == "TCSH" } {
|
||||
puts $fichier "#!/bin/csh"
|
||||
}
|
||||
if { $shellused == "BASH" } {
|
||||
puts $fichier "#!/bin/sh"
|
||||
}
|
||||
|
||||
foreach vartowrite $liste_variables {
|
||||
incr ii
|
||||
if {$vartowrite == "commande" } {
|
||||
puts $fichier "$entry_val($vartowrite)"
|
||||
|
||||
} else {
|
||||
if { $shellused == "TCSH" } {
|
||||
puts $fichier "setenv $vartowrite $entry_val($vartowrite)"
|
||||
}
|
||||
if { $shellused == "BASH" } {
|
||||
puts $fichier "$vartowrite=$entry_val($vartowrite)"
|
||||
puts $fichier "export $vartowrite"
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
eval "exec chmod 755 $filewrite"
|
||||
|
||||
close $fichier
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
###################
|
||||
# FRAME DU HAUT
|
||||
###################
|
||||
set widthcanvastitre 700
|
||||
set heigthcanvastitre 80
|
||||
|
||||
frame $w.haut -relief raised -bd 1
|
||||
pack $w.haut -side top -fill both
|
||||
|
||||
frame $w.haut.1 -relief ridge -bd 3
|
||||
pack $w.haut.1 -side top -anchor w -fill both
|
||||
|
||||
canvas $w.haut.1.c -relief flat -borderwidth 0 -background #fff \
|
||||
-width $widthcanvastitre -height $heigthcanvastitre \
|
||||
|
||||
pack $w.haut.1.c -expand true -side left -fill both
|
||||
|
||||
set chemin $env(ALLIANCE_TOP)/algue/asim.gif
|
||||
set imh [image create photo -file $chemin]
|
||||
|
||||
$w.haut.1.c create image 70 55 -image $imh
|
||||
|
||||
set chemin $env(ALLIANCE_TOP)/algue/asimtxt.gif
|
||||
set imh [image create photo -file $chemin]
|
||||
|
||||
$w.haut.1.c create image 70 15 -image $imh
|
||||
|
||||
|
||||
set chemin $env(ALLIANCE_TOP)/algue/alliance.gif
|
||||
set imh [image create photo -file $chemin]
|
||||
|
||||
$w.haut.1.c create image 370 40 -image $imh
|
||||
|
||||
set chemin $env(ALLIANCE_TOP)/algue/lip6.gif
|
||||
set imh [image create photo -file $chemin]
|
||||
|
||||
$w.haut.1.c create image 660 40 -image $imh
|
||||
|
||||
|
||||
###################
|
||||
# FRAME
|
||||
###################
|
||||
|
||||
frame $w.princ -relief raised -bd 1
|
||||
pack $w.princ -fill both
|
||||
frame $w.princ.1 -relief ridge -bd 3
|
||||
pack $w.princ.1 -fill both
|
||||
|
||||
set widthcanvas 720
|
||||
set heigthcanvas 410
|
||||
|
||||
set widthboutton 100
|
||||
set heigthboutton 40
|
||||
|
||||
set widthlabel 580
|
||||
set heigthlabel 40
|
||||
|
||||
set h_scrol 200
|
||||
|
||||
set color_boutton #AA0000
|
||||
set color_label #0000CC
|
||||
|
||||
set y1 50;
|
||||
set defautx1 55;
|
||||
set x1 $defautx1
|
||||
|
||||
set file_config "$env(ALLIANCE_TOP)/algue/main.cfg"
|
||||
|
||||
|
||||
canvas $w.princ.1.c -relief flat -borderwidth 0 -background #fff \
|
||||
-width $widthcanvas -height $heigthcanvas \
|
||||
-scrollregion "0 0 0 $h_scrol" -yscrollcommand "$w.princ.1.scl set"
|
||||
|
||||
scrollbar $w.princ.1.scl -width 8 -orient vertical -command "$w.princ.1.c yview "
|
||||
|
||||
pack $w.princ.1.scl -side right -fill y
|
||||
$w.princ.1.scl config -cursor {hand2}
|
||||
|
||||
pack $w.princ.1.c -expand true -side left -fill both
|
||||
|
||||
###########################
|
||||
# Debut du parssage
|
||||
# du fichier de config
|
||||
|
||||
if [catch {open $file_config r} fichier] {
|
||||
set mesg1 "L'erreur est humaine"
|
||||
set mesg2 "Probleme a l'ouverture du fichier $file_config !"
|
||||
Dialogue.tcl .d $mesg1 $mesg2 error -1 SORTIE
|
||||
} else {
|
||||
|
||||
set num 0
|
||||
|
||||
|
||||
while {[gets $fichier ligne] >= 0} {
|
||||
|
||||
incr num
|
||||
|
||||
set parametre [lrange $ligne 0 0]
|
||||
set val_parametre [lrange $ligne 1 1]
|
||||
set allval_param [lrange $ligne 1 end]
|
||||
|
||||
set lengthval [string length $val_parametre ]
|
||||
|
||||
|
||||
|
||||
## On force la taille du texte ....
|
||||
set allval_param [ string range $allval_param 0 70 ]
|
||||
|
||||
label $w.princ.1.lbl$num -font $fontes(1) \
|
||||
-text $allval_param -anchor w -foreground $color_label -font $fontes(7) -width 60
|
||||
|
||||
|
||||
set paramsend [string tolower $parametre]
|
||||
|
||||
button $w.princ.1.bout$num -font $fontes(7) \
|
||||
-text $parametre -command "config_binaire $paramsend ${paramsend}.env" \
|
||||
-foreground $color_boutton
|
||||
|
||||
pack $w.princ.1.lbl$num $w.princ.1.bout$num -side left -expand 1 -padx 5 -pady 5 -ipadx 3 -ipady 3
|
||||
$w.princ.1.c create window $x1 $y1 -window $w.princ.1.bout$num \
|
||||
-width $widthboutton -height $heigthboutton
|
||||
|
||||
set x1 [expr $x1 + 360 ] ;
|
||||
$w.princ.1.c create window $x1 $y1 -window $w.princ.1.lbl$num \
|
||||
-width $widthlabel -height $heigthlabel
|
||||
|
||||
set y1 [expr $y1 + 55]
|
||||
set x1 $defautx1
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
set h_scrol $y1
|
||||
$w.princ.1.c configure -scrollregion "0 0 0 $h_scrol"
|
||||
|
||||
###################
|
||||
# FRAME BAS
|
||||
###################
|
||||
|
||||
###
|
||||
# Debut reconfiguration language
|
||||
proc switchlang { } {
|
||||
global fontes color_label
|
||||
global currentlang
|
||||
global paramlaunch
|
||||
global w env
|
||||
|
||||
global widthboutton heigthboutton
|
||||
global widthlabel heigthlabel
|
||||
|
||||
switch $currentlang {
|
||||
"francais" {
|
||||
set currentlang "anglais"
|
||||
set paramlaunch(changelang) "Passer en Francais"
|
||||
set paramlaunch(exit) "EXIT"
|
||||
$w.bot.switch configure -text $paramlaunch(changelang)
|
||||
$w.bot.quit configure -text $paramlaunch(exit)
|
||||
set file_to_read $env(ALLIANCE_TOP)/algue/maine.cfg
|
||||
}
|
||||
"anglais" {
|
||||
set currentlang "francais"
|
||||
set paramlaunch(changelang) "Switch to English"
|
||||
set paramlaunch(exit) "SORTIE"
|
||||
$w.bot.switch configure -text $paramlaunch(changelang)
|
||||
$w.bot.quit configure -text $paramlaunch(exit)
|
||||
set file_to_read $env(ALLIANCE_TOP)/algue/main.cfg
|
||||
}
|
||||
}
|
||||
|
||||
#XXX
|
||||
#on efface tout le canvas
|
||||
|
||||
$w.princ.1.c delete all
|
||||
###########################
|
||||
|
||||
# Debut du parssage
|
||||
# du fichier de config
|
||||
|
||||
set y1 50;
|
||||
set defautx1 55;
|
||||
set x1 $defautx1
|
||||
|
||||
set file_config "$env(ALLIANCE_TOP)/algue/main.cfg"
|
||||
|
||||
if [catch {open $file_to_read r} fichier] {
|
||||
set mesg1 "L'erreur est humaine"
|
||||
set mesg2 "Probleme a l'ouverture du fichier $file_config !"
|
||||
Dialogue.tcl .d $mesg1 $mesg2 error -1 SORTIE
|
||||
} else {
|
||||
|
||||
set num 0
|
||||
|
||||
while {[gets $fichier ligne] >= 0} {
|
||||
|
||||
incr num
|
||||
|
||||
set parametre [lrange $ligne 0 0]
|
||||
set val_parametre [lrange $ligne 1 1]
|
||||
set allval_param [lrange $ligne 1 end]
|
||||
|
||||
set lengthval [string length $val_parametre ]
|
||||
|
||||
## On force la taille du texte ....
|
||||
set allval_param [ string range $allval_param 0 70 ]
|
||||
|
||||
# label $w.princ.1.lbl$num -font $fontes(1) \
|
||||
# -text $allval_param -anchor w -foreground $color_label -font $fontes(7) -width 60
|
||||
$w.princ.1.lbl$num configure -text $allval_param
|
||||
|
||||
|
||||
|
||||
# set paramsend [string tolower $parametre]
|
||||
|
||||
# button $w.princ.1.bout$num -font $fontes(7) \
|
||||
# -text $parametre -command "config_binaire $paramsend ${paramsend}.env" \
|
||||
# -foreground $color_boutton
|
||||
|
||||
# pack $w.princ.1.lbl$num $w.princ.1.bout$num -side left -expand 1 -padx 5 -pady 5 -ipadx 3 -ipady 3
|
||||
|
||||
$w.princ.1.c create window $x1 $y1 -window $w.princ.1.bout$num \
|
||||
-width $widthboutton -height $heigthboutton
|
||||
|
||||
set x1 [expr $x1 + 360 ] ;
|
||||
|
||||
$w.princ.1.c create window $x1 $y1 -window $w.princ.1.lbl$num \
|
||||
-width $widthlabel -height $heigthlabel
|
||||
|
||||
set y1 [expr $y1 + 55]
|
||||
set x1 $defautx1
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
#fin procedure switchlang
|
||||
# reconfiguration du language
|
||||
####################################3
|
||||
|
||||
|
||||
|
||||
frame $w.bot -relief raised -bd 1
|
||||
pack $w.bot -side bottom -fill both
|
||||
|
||||
button $w.bot.quit -font $fontes(1) -text "$paramlaunch(exit)" \
|
||||
-command "destroy $w ; exit" -width 15
|
||||
|
||||
button $w.bot.switch -font $fontes(1) -text "$paramlaunch(changelang)" \
|
||||
-command { switchlang } -width 15
|
||||
|
||||
|
||||
pack $w.bot.quit $w.bot.switch -side left -expand 1 -padx 9 -pady 6 -ipadx 6 -ipady 3
|
||||
|
||||
$w.bot.quit config -cursor {hand2}
|
||||
|
||||
raise $w
|
Binary file not shown.
After Width: | Height: | Size: 2.7 KiB |
Binary file not shown.
After Width: | Height: | Size: 502 B |
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_IN_LO vst
|
||||
MBK_WORK_LIB .
|
||||
VH_PATSFX pat
|
||||
VH_MAXERR 10
|
||||
VH_BEHSFX vbe
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande asimut
|
|
@ -0,0 +1,14 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande bbr
|
|
@ -0,0 +1,16 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande bop
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
GROGLIB ${TOP}/cells/grog
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
ICON_OUT
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}:${GROGLIB}
|
||||
commande bsg
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande dpr
|
|
@ -0,0 +1,18 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
RDS_IN file format for cells
|
||||
RDS_TECHNO_NAME
|
||||
DREAL_TECHNO_NAME
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande dreal
|
|
@ -0,0 +1,17 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
RDS_OUT_PH
|
||||
RDS_TECHNO_NAME
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande druc
|
|
@ -0,0 +1,16 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
FPGEN_LIB
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande fpgen
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande fpmap
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande genlib
|
|
@ -0,0 +1,16 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
VH_PATSFX pat
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande genpat
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande genview
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande glop
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande graal -l
|
|
@ -0,0 +1,17 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
GROGLIB ${TOP}/cells/grog
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
ICON_OUT
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}:${GROGLIB}
|
||||
commande grog
|
Binary file not shown.
After Width: | Height: | Size: 230 B |
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande lvx
|
|
@ -0,0 +1,16 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
RDS_TECHNO_NAME ${TOP}/etc/prol05.rds
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande lynx
|
|
@ -0,0 +1,28 @@
|
|||
ASIMUT Compilateur/Simulateur VHDL
|
||||
BBR Routeur Canal
|
||||
BOP Optimisation de reseaux Booleen
|
||||
BSG Generateur de decaleur
|
||||
DPR Routeur de chemin de donnees
|
||||
DREAL Visualisation de circuit
|
||||
DRUC Verification des regles de dessins
|
||||
FPGEN Compilateur de chemin de donnees
|
||||
FPMAP Synthese logique pour circuit FPGA
|
||||
GENLIB Langage de description de circuits
|
||||
GENPAT Langage de description de stimuli
|
||||
GENVIEW Environnement graphique procedural pour genlib
|
||||
GLOP Optimisation de netlist
|
||||
GRAAL Editeur graphique
|
||||
GROG Generateur de PROM parametrable
|
||||
LVX Comparaison de netlists
|
||||
LYNX Extracteur de vue structurelle a partir d'une vue physique symbolique
|
||||
PROOF Logiciel de preuve formelle
|
||||
RAGE Generateur de Ram
|
||||
RFG Generateur de banc de registres
|
||||
RING Routeur de plots
|
||||
RSA Generateur d'additionneur
|
||||
S2R Expansion de dessin symbolique
|
||||
SCMAP Logiciel de synthese sur bibliotheque de cellules
|
||||
SCR Placement/Routage de cellules precaracterisees
|
||||
SYF Synthese d' automates d'etats finis
|
||||
TAS Analyse temporelle
|
||||
YAGLE Abstraction fonctionelle
|
|
@ -0,0 +1,28 @@
|
|||
ASIMUT A simulation tool for VHDL descriptions
|
||||
BBR Channel router
|
||||
BOP Boolean optimization of a data flow VHDL description
|
||||
BSG Barrel shifter generator
|
||||
DPR Data path router
|
||||
DREAL Graphic real layout viewer
|
||||
DRUC Design rules cheker
|
||||
FPGEN Data path compiler
|
||||
FPMAP Mapper of a logic description onto FPGA
|
||||
GENLIB Procedurall design language
|
||||
GENPAT Procedural pattern file generator
|
||||
GENVIEW Genlib graphical source level debugger
|
||||
GLOP Global optimizer and timing analyser of a gate netlist
|
||||
GRAAL Graphic editor
|
||||
GROG A generic ROM generator
|
||||
LVX Netlists comparator
|
||||
LYNX Hierarchical netlist extractor
|
||||
PROOF Formal proof between two behavioural descriptions
|
||||
RAGE Random access memory generator
|
||||
RFG register file generator
|
||||
RING Pads ring router
|
||||
RSA Recurrence solver adder generator
|
||||
S2R Process mapping from symbolic layout to physical layout
|
||||
SCMAP Mapper of a logic description onto a standard cell library
|
||||
SCR A standard cell router
|
||||
SYF Finite state machine synthesizer
|
||||
TAS A switch level static timing analyser
|
||||
YAGLE Disassembly and functionnal abstraction of circuits
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande proof
|
|
@ -0,0 +1,17 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
GROGLIB ${TOP}/cells/grog
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
ICON_OUT
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}:${GROGLIB}
|
||||
commande rage
|
|
@ -0,0 +1,17 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
GROGLIB ${TOP}/cells/grog
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
ICON_OUT
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}:${GROGLIB}
|
||||
commande rfg
|
|
@ -0,0 +1,16 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_CATA_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande ring
|
|
@ -0,0 +1,17 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
GROGLIB ${TOP}/cells/grog
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
ICON_OUT
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}:${GROGLIB}
|
||||
commande rsa
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
MBK_IN_PH ap
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RDS_IN cif
|
||||
RDS_OUT cif
|
||||
RDS_TECHNO_NAME ${TOP}/etc/cmos_7.rds
|
||||
MBK_WORK_LIB .
|
||||
MBK_CATA_LIB ${SCLIB}:${PADLIB}:${FPLIB}:${DPLIB}:${RSALIB}:${RFGLIB}:${BSG}
|
||||
commande s2r
|
|
@ -0,0 +1,17 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_TARGET_LIB
|
||||
MBK_C4_LIB
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande scmap
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande scr
|
|
@ -0,0 +1,15 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande syf
|
|
@ -0,0 +1,19 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
MBK_SPI_TN tn
|
||||
MBK_SPI_TP tp
|
||||
ELP_TECHNO_NAME ${TOP}/etc/prol05.elp
|
||||
FCL_LIB_NAME FBLIBRARY
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande tas
|
|
@ -0,0 +1,10 @@
|
|||
# Tcl autoload index file, version 2.0
|
||||
# This file is generated by the "auto_mkindex" command
|
||||
# and sourced to set up indexing information for one or
|
||||
# more commands. Typically each line is a command that
|
||||
# sets an element in the auto_index array, where the
|
||||
# element name is the name of a command and the value is
|
||||
# a script that loads the command.
|
||||
|
||||
set auto_index(Dialogue.tcl) [list source [file join $dir Dialogue.tcl]]
|
||||
set auto_index(Supervision_cmdunix.tcl) [list source [file join $dir Supervision_cmdunix.tcl]]
|
|
@ -0,0 +1,26 @@
|
|||
TOP /asim/alliance
|
||||
FPLIB ${TOP}/cells/fplib
|
||||
RSALIB ${TOP}/cells/rsa
|
||||
SCLIB ${TOP}/cells/sclib
|
||||
PADLIB ${TOP}/cells/padlib
|
||||
DPLIB ${TOP}/cells/dplib
|
||||
BSGLIB ${TOP}/cells/bsg
|
||||
RFGLIB ${TOP}/cells/rfg
|
||||
MBK_WORK_LIB .
|
||||
CNS_VDDNAME vdd
|
||||
CNS_VSSNAME vss
|
||||
CNS_GRIDNAME grid
|
||||
CNS_SOURCENAME source
|
||||
CNS_DRAINNAME drain
|
||||
ELP_TECHNO_NAME ${TOP}/etc/prol05.elp
|
||||
VH_BEHSFX beh
|
||||
YAGLE_LANGUAGE F
|
||||
YAGLE_STAT_MODE Y
|
||||
FCL_LIB_PATH
|
||||
FCL_LIB_NAME
|
||||
MBK_IN_LO vst
|
||||
MBK_OUT_LO al
|
||||
MBK_IN_PH ap
|
||||
MBK_OUT_PH ap
|
||||
MBK_CATA_LIB ${FPLIB}:${RSALIB}:${SCLIB}:${PADLIB}:${DPLIB}:${BSGLIB}:${RFGLIB}
|
||||
commande yagle
|
Loading…
Reference in New Issue