From 5906eb9902a38bd2371e55b3cfc8af7e4c3abe6d Mon Sep 17 00:00:00 2001 From: Olivier Sirol Date: Tue, 28 Sep 1999 12:34:07 +0000 Subject: [PATCH] ALliance Graphic User Environement --- alliance/share/etc/algue/Dialogue.tcl | 82 ++ .../share/etc/algue/Supervision_cmdunix.tcl | 131 +++ alliance/share/etc/algue/alliance.gif | Bin 0 -> 5367 bytes alliance/share/etc/algue/alliance.tk | 955 ++++++++++++++++++ alliance/share/etc/algue/asim.gif | Bin 0 -> 2720 bytes alliance/share/etc/algue/asimtxt.gif | Bin 0 -> 502 bytes alliance/share/etc/algue/asimut.env | 15 + alliance/share/etc/algue/bbr.env | 14 + alliance/share/etc/algue/bop.env | 16 + alliance/share/etc/algue/bsg.env | 17 + alliance/share/etc/algue/dpr.env | 15 + alliance/share/etc/algue/dreal.env | 18 + alliance/share/etc/algue/druc.env | 17 + alliance/share/etc/algue/fpgen.env | 16 + alliance/share/etc/algue/fpmap.env | 15 + alliance/share/etc/algue/genlib.env | 15 + alliance/share/etc/algue/genpat.env | 16 + alliance/share/etc/algue/genview.env | 15 + alliance/share/etc/algue/glop.env | 15 + alliance/share/etc/algue/graal.env | 15 + alliance/share/etc/algue/grog.env | 17 + alliance/share/etc/algue/lip6.gif | Bin 0 -> 230 bytes alliance/share/etc/algue/lvx.env | 15 + alliance/share/etc/algue/lynx.env | 16 + alliance/share/etc/algue/main.cfg | 28 + alliance/share/etc/algue/maine.cfg | 28 + alliance/share/etc/algue/proof.env | 15 + alliance/share/etc/algue/rage.env | 17 + alliance/share/etc/algue/rfg.env | 17 + alliance/share/etc/algue/ring.env | 16 + alliance/share/etc/algue/rsa.env | 17 + alliance/share/etc/algue/s2r.env | 15 + alliance/share/etc/algue/scmap.env | 17 + alliance/share/etc/algue/scr.env | 15 + alliance/share/etc/algue/syf.env | 15 + alliance/share/etc/algue/tas.env | 19 + alliance/share/etc/algue/tclIndex | 10 + alliance/share/etc/algue/yagle.env | 26 + 38 files changed, 1690 insertions(+) create mode 100644 alliance/share/etc/algue/Dialogue.tcl create mode 100644 alliance/share/etc/algue/Supervision_cmdunix.tcl create mode 100644 alliance/share/etc/algue/alliance.gif create mode 100644 alliance/share/etc/algue/alliance.tk create mode 100644 alliance/share/etc/algue/asim.gif create mode 100644 alliance/share/etc/algue/asimtxt.gif create mode 100644 alliance/share/etc/algue/asimut.env create mode 100644 alliance/share/etc/algue/bbr.env create mode 100644 alliance/share/etc/algue/bop.env create mode 100644 alliance/share/etc/algue/bsg.env create mode 100644 alliance/share/etc/algue/dpr.env create mode 100644 alliance/share/etc/algue/dreal.env create mode 100644 alliance/share/etc/algue/druc.env create mode 100644 alliance/share/etc/algue/fpgen.env create mode 100644 alliance/share/etc/algue/fpmap.env create mode 100644 alliance/share/etc/algue/genlib.env create mode 100644 alliance/share/etc/algue/genpat.env create mode 100644 alliance/share/etc/algue/genview.env create mode 100644 alliance/share/etc/algue/glop.env create mode 100644 alliance/share/etc/algue/graal.env create mode 100644 alliance/share/etc/algue/grog.env create mode 100644 alliance/share/etc/algue/lip6.gif create mode 100644 alliance/share/etc/algue/lvx.env create mode 100644 alliance/share/etc/algue/lynx.env create mode 100644 alliance/share/etc/algue/main.cfg create mode 100644 alliance/share/etc/algue/maine.cfg create mode 100644 alliance/share/etc/algue/proof.env create mode 100644 alliance/share/etc/algue/rage.env create mode 100644 alliance/share/etc/algue/rfg.env create mode 100644 alliance/share/etc/algue/ring.env create mode 100644 alliance/share/etc/algue/rsa.env create mode 100644 alliance/share/etc/algue/s2r.env create mode 100644 alliance/share/etc/algue/scmap.env create mode 100644 alliance/share/etc/algue/scr.env create mode 100644 alliance/share/etc/algue/syf.env create mode 100644 alliance/share/etc/algue/tas.env create mode 100644 alliance/share/etc/algue/tclIndex create mode 100644 alliance/share/etc/algue/yagle.env diff --git a/alliance/share/etc/algue/Dialogue.tcl b/alliance/share/etc/algue/Dialogue.tcl new file mode 100644 index 00000000..f393bccc --- /dev/null +++ b/alliance/share/etc/algue/Dialogue.tcl @@ -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 "$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 + + +} diff --git a/alliance/share/etc/algue/Supervision_cmdunix.tcl b/alliance/share/etc/algue/Supervision_cmdunix.tcl new file mode 100644 index 00000000..f9d471b7 --- /dev/null +++ b/alliance/share/etc/algue/Supervision_cmdunix.tcl @@ -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 } + } + +} diff --git a/alliance/share/etc/algue/alliance.gif b/alliance/share/etc/algue/alliance.gif new file mode 100644 index 0000000000000000000000000000000000000000..664b883539d7f1da8f029a776927852e07e847b6 GIT binary patch literal 5367 zcmeI$_gfNN*avX7Xj&jBXbuo^n`oM|1b611IWlqOXt=ekCqPR~D^Q$aPOMDIMUNv2 zN0tpAEH%wEEYpUTW@^)3-hbo0-p_TebA8YK<2l!T|8QLPIa^v$cLOPa4FJHN%XQ;& zeWi=X3*mA@q&uG<#pOovcu{QZvyVa)m&R@dUN0? z{ji5Ewf%Vrf*aShweEfac9&{1u%`aOC5-f4k`^DLWhUS%zW4dCI4-g-rb|MsQN^aRl5#4fxsx?9X-zkEwvvx}1)2edF`I^`YYhu+jqw^X5tk z1#YsqUctCE!ka)mr0XK66g~3mV$Ji&gWkZo#%SyTUV6j1p&i7z1VU^Vi)rZ0c68Sg zks-&!8pa!3;B!e1a`-~on3Jw+0n?Xa^OIxq<5Ph4f!j`f5N~y%#=TIuU^U*)D-Tbo zh+^|(>S8m`X;Zhk8)BPW3|`^-ujA6i<;=}9P*@GxqH%zXIQV2v6LV+SvcAw`akiS>i?4IX^{?>}H0eUUV=go^>Wb4G6Br$B7SjxvVSMcP%s} z9_#tg*z=kFDKOJ9(6BvXLfRTNw~86dz+P!O?~;*u1{axr^XH(=C6&1WiG9~h{!WqpNK9yx;_a# zdV(Wobd2d;PR6%juTQ(h>-rW5mW(#-T`!0xs-37bG*HPK*9Xf>CHDfKgGy*hNmeCG z9y_yi-YE;t@4gu|;W^_ob1@+e>iZ@*Xd{??Ge%(lwDDW>v`4G$z?EO)cgwd$S6EjL z70i}l!b079a}@f&kbkcL+T=gFKswTsPkiGC{OX2_0;`%6w(WgACA$Tjs*RozWt60{DRcO(J!m6n3zhGvNPb;0=75(+F-5)(F zCC=9a{GoyPXft=g><3|g$B)%&fWkGhjGLGd*sx_kfL`VAOM_3)cm| zuW7v-R$PT%f1c<1VXHGWkE0dlZUcd#B=sFVT(bIBhmhTg+JGKfMj0Hfw5IF?lzJ1 z>~uD+JZg*-b&|Mk<(U>$q~}@$6aB)cr^hmg)-U36R69iAv-LEvwge#OPGh#UAyyq} zWB2HOcK^w;25$$S)%}i31&Vsh`e{^M)|S9^Fr%n4ySS|#s%ALIF9 zzO4H%bUE#>K}GlO+^gzcaQ79|1FQCFCf`D$?;sG@7c_wzpmR`KhdvrAL!9bR^n+Sp|x-Gy=^xi zrku@bo)163P*R5b`i|ugaB_DK0cB;cl`@nX8sIZ#hxZrV&{8ik%`wyP-At@Gtm(J+ z0ABU!`0bD|`;F<`yN0TLm*=n6P7)^x`#;xGKEi2#g=@IbJ3#Q(a>s9`m&}bG+4F5% z_=Fm?JbCYv@@DtPh)%1gap#SE_b%4^?VbBC)6{HHOP;16eh{7xPI2qg>Q${(1<)^= z)&>|k*0>+`=D(ul9BL>60)7DCmb9>#q?X&2Um304F|4}>&hF9V0Zzj{^2Zc~#qs}A z@`o-QS=3Hs9XUP-LMC{t9_c2voa|derBO1DJ_&!_V60VhxjRQKem=JVI`;THzz_#k zThxOdRmUH-E@n!8Q8y1 z_F#=>+*DhvrMgJoyZc70iWbhD@dx$3_iPSM@t0=zG;?rQG9ICW?j;2-UQcNY!2D<60uE|~X%uK!b{Gi9lL zTayS~bpD(nH>^AVplkD{H_l+YJ#%Ta4Gt3O}>|)NHqW z^;Vq&Pi?YgUVyu2(rM(?bpx4jVxKb{0lEOY%<7Wm>Ne99qz!_0*cm zo1lbsZhw?$Z)H5Mw0S%``;RhQMe(}|d52GAJ3ZLJtGmdgo3T&r0KV_Z@#PN(91+G*IGy{T+5b} z5!?$1l0+T8y3f2O&ubP{S8MW=ey;ZGIo0IEO@KFmMZqU0CvK5|St~a3lsGOUc3l}| zx{OVWMeHX9O3r#}$pEcyBO+SjJbd%LbW|_ax*m5%dR$XfXPF-9JbJ!%`&U?kiH~^( zhD>2cJ_tZ5T0}NK*rSay4NpfQ5NVO-fvH;QaWQ!=c&DH;qp6r=h1Q6qqNB%CgZiiz z-!jrvVCXs-V%3C;`ts3lb!Rwj7ddqxJ?Ug=1Q+VY_{#t)*YGwYQ1N%C=hp)FMPE=@ zfz$`4M4P4GtF@l)^mqQZARCLmciWJzOYokj%OML*D2cf#n}{!scHPcLZ*62-teT!n!`Rhb(nkUcozw|v>`Fu4 z-oRbE9l$NF7S%}Ik>^L#DL_{`z{5;!XV)ZWvxEdUk|V( zG4RXS@qrAqE2JbukeV@M^pv`b(qEntTxQ~3c15L(&UnkN`2rV*#)d5 z%~x>3&^+k!L`BuhO_g+j72+VtR&v62HlO(|$}S>{b-=e6ky#A!v3(N^wgprVv_p5| zS$Zq>3U&DF?~&DdRaZNXYvLUouF{Ark;hdd2FB zvYV}P2$-mgG)hC+E<+W6AUkUbI@pM%xa>fVO|I9Z)DyI# zP9#vbOkSEVtvf4s&4h=QfUkq;rJCnhNf@+qY`kh#^82AM+*-8HSKd7AM)uDmIG@;u zdi9#UfE;~-5wPZP!XXE8$W|-8_`D`^ZBeW$%FNoi=Ov=~hw9yb5zXhwjm0%2Sz^e` zz_7}oBK>Afs)j{P^Xgb!=Lh6HZAu^_`XlN_%xn>yMc7*uSC6^AWfI~~)m(xhe_dB< z#Y6e}u)In|S4gOvsr5*l`KPARTSIm8Lj`XR?02bD1d_BoM9{0UieM7R3b6@2GD>pr z2Db%*;u8uQLt30dpqex^2%*z0m&>jzSzF_X^*YSuPH$n?xY#J))~;yTt*HCR;bRx8 z*ZQnOF2&}uBCr0&K~i0l3HYtO@kxgk$Ascvoq)!HbFkK%K}Bbzy}z+Q;^iZnotwh# zX__Zd+sQ>fpKj#Lhb^BcUtD=%vdY`*wG-@t6A(GCK|p!r$z4mC9S zxq4#;qR}R>tEuUh&-L(mD<#%;RH4^CvE{`aka+~e4*>OBhIqAr&67Ydh$2SPi_1Qq z^GW!n$umq00qXQ^;O}RGZY+f$WM4W{>EO-OGNYO_`)TX0*jddG5u`WG-ZR3pCXN^e zdEo!ah*t)d!QFK13;c`4;42Q2yg@o<55rvCSf`qV1CYI9V3?Zz7BSYYAdXkq9)8}9 zXJMl+0>WD!O}>oHdPRKuGkf;gkto@!fzA@`_L8ekqzJ1gPi*xzij1u%pG5w^c$=1u zgcaI;DE!{w2HmxDdy8e13jj_F)nXCmQ^MN1Okk+eqk%0RwQe1#(wHA7iM1x~#l|w3 zJNpfH9g2X84WB-J<+xbkc6lfjc3KRt62q4sVa814{)lCkuyfHWGJFt1D85T@m0QBL zPNJ#g;1ViHX4Uj1Z|8LXPRG@E7N|4?#ON9P=}6xC$ZS!nErxQ7i;(X$*&eTA_UBpY zd~#!%_-Ez_>|jh~C~fMS0Y)(DK0WIBXVh!SK!3o%6f_n%J$g6AbLQ%3kiuB7P?Pg+ zG+2Sv(`GV~o?7-M^}+~t%;FkmQcW(oDst%|)-UydN7WS&^5v*O0Dm;9>Uo%Ols-MC z15^U$)tB9B??o-?~}z#FE0vnx;>B`Pha*_F@Vx99-IFGyrF2? literal 0 HcmV?d00001 diff --git a/alliance/share/etc/algue/alliance.tk b/alliance/share/etc/algue/alliance.tk new file mode 100644 index 00000000..2726ca44 --- /dev/null +++ b/alliance/share/etc/algue/alliance.tk @@ -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 diff --git a/alliance/share/etc/algue/asim.gif b/alliance/share/etc/algue/asim.gif new file mode 100644 index 0000000000000000000000000000000000000000..504a57a693dfdb132f86d4f6082132d105856810 GIT binary patch literal 2720 zcmc(e>sJ#88ixbs0!hFG0;Cve5|Qm|nDFFEG#|JMr1f^LDO4;2W4p^!ldqJ(X?6%TP|B8Li?>y)C={@g< z_s!1Pl)j(R$Q2<9F97S*p!Z8@PGlUT&P=G-Fh6ofUFo3{70)q$)Aut1hg9M2ac8ajmgo7qg zfJ8wOg-8q_F_6Uk1tu|s#0(^1Bngxxang^SA{`9ra*-Y%g@P0cQ5Z;JFolB@?zfR5 zP>M8CBuY^@MG+K5QhsQHVn~XiD3^}g24d>hZr1TXqsUN z#?CMvmmLG`IBX|CI|11l+HPkYxWa*h4npA|5C;i4NP~j{9TeoCjQ)`h2jg%$93H0= z2b=`tBw!~AI7!G!`isFyflh{SI_*xU!$klt0(6m(i-cVy;-UZ-WpL4ui#E8NjLYTp zkO~h8dMLm{As!m`&_)k~cQnb9Ni%w}0m*!-#1#Hjc8 zgH=~nQ=al5)*6uj=0>k^>g zWPY`=;I?q;(9YEP-tv2GJ-beqJ~2GL-U^oOXglD#`%~CcrB|As^yc>zb?tH{J;}%y z6en!MpQ#ObG@AeZtGl;UH0N7yq<+|)yv=zr?txqLny4V~?9E=s_O7(&l?C^b`ViaC zp2wFb;*V-f4_UuT#?JSB=;A)U7ysIclR*E%Bekw~x&yH!e$w?9QB}9@14Bn+fk4%x z9ow?3*ili=IkuHdI{vR4Ia3bg4fggc^M;94e@-VVS|1DEN`)KVQ&REi8^P?9N&S?W zpV2M0rk+~5wYj!-_awLa#Mk|ngfnO0ks$E2Fw zVb|qXr0Q`+!WZ!$r0nWaD^m=E-Kmlr2xxC0vF|B;L90|MBh_{b#YzGY3*-iOU= zx^)JAV(#g(R}-zQk4BS5Wk-?J(@QtUEXOnhn?h5!W>PUjH7rd)ah!$2H+w6+iqE}T zt8Ac3&CRV3ddN#*-iBXRU6B7+n4iYXUwv( zFHb~8+QN=n*1FTbq0BuqlLFNd7H$b;bS=CdyR!9K^ud~2IZscnxnNFn_sPxC>4i$G zqPtr;s+?+B$WjlnSBwKO8S8RYZ6}nxgo9n}yp*Z9ux#bAh56t_>u+L@u+3Rw@`?%}J zv82z^hCRZvhShlN@zP24>b(;I$i+Q_Gp5iCZ|hz6o(VV$&{FQki0ysiabP6vs30Nx zi85Px<8J-t#J%JXSEE|dTl|@lzbf95wtZhA04K&3LdaqxMo~-IymR4OLGky zMc+ugc~@<3&Qtl4`sgq9O(`j2u4=*rp0F`rT`S_9Z&ZkTY$N>Qv_>H_C~lCFcwR-& z7O!GuTt`D>Nq@8M(vOMPEN*q7m{UTgMlF9DlsSHHj+;?e_U=w;z^eV(!k0^j!h)}H zWLxLhMq6j_`L{)7`6g+LYDi%8YGahzu6)%9b=sR5qv^1|GzUlRU4q4*t4QH=8Fw>V z_e_=IPvyC>(*M4Y89ga)E}Ah#Hgz{j^d#AmY!Va|XDUiw6BO8#5hqnyirh9~$y}hM z^nRdtxGp$VGbgAE;yhhFpS>qG++1n$Zdmpr&saBld>2bK}Oz9VqEtW#ob&E$uOt(pCKD`Qx2j(Z|- zvko@(%h_vvGn9To5k0kB+?cW~`lwKM=Foxt+(bRdOY@qxS9;0tQn3J<(}o*nbm54J zvr<|YuwHX8;vLm{PEn4uOO+KTAK<-SYL#}(WF?%34w<&fBfCluE4U_}WU@TG(gv@Y zR0(7BgPm(?a-#Ov3Doa&Mv@bmpi(R}Tx3b6+I100^T8!c717)DBl4>I)}r(dTcuZ= zv{1@}WaZK@+aNDSRTp-@OZcba7nFxP2Db`3MT6ZsMc^?(p}rw}tvri+5wU1(%E(%; zJNBf84=lkeH>M96dHt-v`@ZF+=(Vcb_pNB*)yNhL8EqTt)QRdjmnZ5fxdVx58;3(r zsg}v)rS@jw?zt7*?&LS_vKpfDl%YCxb22>@{k+>GN|d_8Et$^%C1A)E)!oF(=0;)u zAS*ucrSi+HhR8T&)Y*xV{^iM4aGFLUwXlI_wL$AIKMOUV9Ofr=a6@WJ1BLRT{p<^D z#Zo(GpFS(;5o}rbjmL3KG=y%_dSjh$i}uK~qN{8s=k3DJeo|x#cd|IVO~aALPBgCO zWBh|HaA;>Y8GhMJg|@c`a*A0YKc5nTm*wJ5n@3XTG%}XBGwl3YUEw3!y4AUDZ0T80 zd-#4JSUD`&G&UkTH)Gu)tB*9>GLLSo`#0xq(U_pcf5kTb+>fTnv)wu>E>s+xyim_y zn>U!%z`xxTryajEaVTbMg*9PjD*WmGIu3h~mGRX-6{sbE_nYY8dQoh|zM4&u>8wCb zko+_AVT)8V7mV~Nqdu9@MC|Nm1;_?3ym#0u&}{F&0#cb2Lw-|4ia z#)kXEsSC=k$xM7|=a)I07npU;bnh;az6UCTeeoRg-5&R^wr^T)Ki#zMgvcsJEy3gs~oE5*(*4NQtbia|6Uq+>az46c@H#Y@OCV`U~ zYfIdkZZSN1_rzJPWLueO;g+NO9o2X7nrM5q%rMLf+>(0m%kiU2#WZ~)5W85*sj;eEJjT(sW~%YwJztdCaoJe*UvGT4a!a%cDMWs7$|7*H|UZx zVc3JHqj-qO

suC1$w?l{cv|huOJPXV=rlxoK63=cgL-^!W+eaf-SbLkg$qN?ZG; gcBlLLT9|tS^Uz1YrH({d<-o~Em;5nJ2wJk9RL6T literal 0 HcmV?d00001 diff --git a/alliance/share/etc/algue/lvx.env b/alliance/share/etc/algue/lvx.env new file mode 100644 index 00000000..7c6e689f --- /dev/null +++ b/alliance/share/etc/algue/lvx.env @@ -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 diff --git a/alliance/share/etc/algue/lynx.env b/alliance/share/etc/algue/lynx.env new file mode 100644 index 00000000..ce027b94 --- /dev/null +++ b/alliance/share/etc/algue/lynx.env @@ -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 diff --git a/alliance/share/etc/algue/main.cfg b/alliance/share/etc/algue/main.cfg new file mode 100644 index 00000000..adf13fdd --- /dev/null +++ b/alliance/share/etc/algue/main.cfg @@ -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 diff --git a/alliance/share/etc/algue/maine.cfg b/alliance/share/etc/algue/maine.cfg new file mode 100644 index 00000000..2c348631 --- /dev/null +++ b/alliance/share/etc/algue/maine.cfg @@ -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 diff --git a/alliance/share/etc/algue/proof.env b/alliance/share/etc/algue/proof.env new file mode 100644 index 00000000..89c2080a --- /dev/null +++ b/alliance/share/etc/algue/proof.env @@ -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 diff --git a/alliance/share/etc/algue/rage.env b/alliance/share/etc/algue/rage.env new file mode 100644 index 00000000..39b00622 --- /dev/null +++ b/alliance/share/etc/algue/rage.env @@ -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 diff --git a/alliance/share/etc/algue/rfg.env b/alliance/share/etc/algue/rfg.env new file mode 100644 index 00000000..b0c21cfa --- /dev/null +++ b/alliance/share/etc/algue/rfg.env @@ -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 diff --git a/alliance/share/etc/algue/ring.env b/alliance/share/etc/algue/ring.env new file mode 100644 index 00000000..27259075 --- /dev/null +++ b/alliance/share/etc/algue/ring.env @@ -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 diff --git a/alliance/share/etc/algue/rsa.env b/alliance/share/etc/algue/rsa.env new file mode 100644 index 00000000..cb6ea892 --- /dev/null +++ b/alliance/share/etc/algue/rsa.env @@ -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 diff --git a/alliance/share/etc/algue/s2r.env b/alliance/share/etc/algue/s2r.env new file mode 100644 index 00000000..50a21fb5 --- /dev/null +++ b/alliance/share/etc/algue/s2r.env @@ -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 diff --git a/alliance/share/etc/algue/scmap.env b/alliance/share/etc/algue/scmap.env new file mode 100644 index 00000000..a5fc4329 --- /dev/null +++ b/alliance/share/etc/algue/scmap.env @@ -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 diff --git a/alliance/share/etc/algue/scr.env b/alliance/share/etc/algue/scr.env new file mode 100644 index 00000000..1ff689d5 --- /dev/null +++ b/alliance/share/etc/algue/scr.env @@ -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 diff --git a/alliance/share/etc/algue/syf.env b/alliance/share/etc/algue/syf.env new file mode 100644 index 00000000..aa2de6db --- /dev/null +++ b/alliance/share/etc/algue/syf.env @@ -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 diff --git a/alliance/share/etc/algue/tas.env b/alliance/share/etc/algue/tas.env new file mode 100644 index 00000000..d5bf00f4 --- /dev/null +++ b/alliance/share/etc/algue/tas.env @@ -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 diff --git a/alliance/share/etc/algue/tclIndex b/alliance/share/etc/algue/tclIndex new file mode 100644 index 00000000..3cf903f5 --- /dev/null +++ b/alliance/share/etc/algue/tclIndex @@ -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]] diff --git a/alliance/share/etc/algue/yagle.env b/alliance/share/etc/algue/yagle.env new file mode 100644 index 00000000..8a09b026 --- /dev/null +++ b/alliance/share/etc/algue/yagle.env @@ -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