Toimituskentän EDT avaaminen

classic Classic list List threaded Threaded
7 messages Options
Reply | Threaded
Open this post in threaded view
|

Toimituskentän EDT avaaminen

Petri Palmu
Survossahan pystyi tietyin sukrovirityksin avaamaan tietty .EDT. Siinä esim. työpöydällä olevan komentotiedoston kuvaketta näpäyttämällä aukesi .EDT. Ymmärrän, että tilanne on nyt erilainen SURVO R:n kanssa.

Mutta ainakin pohdittavaksi, että voisiko R:n käynnistyessä automaattisesti avata joku toinen .edt (tuon "SCRATCH-kentän" sijaan :). Jos R:n Survo R:n käynnistysskriptiin saisi ujutettua jonkun tietyn .EDT:n avaaminen, niin seuraava kysymys olisi, että voisiko R:n avata .cmd (Windowsissa) avulla niin, että sitten aukeaisi tietty .EDT.

Ajattelin tässä myös noita mahdollisia ajastuksia, että tehtävien ajastaja starttaisi jonkun käyttöjärjestelmän komentotiedoston, jota kautta lopulta Survo R:n EDT:ssä käynnistyisi prosesseja A,B,C...


Reply | Threaded
Open this post in threaded view
|

Re: Toimituskentän EDT avaaminen

Reijo Sund
Administrator
Petri Palmu wrote
Survossahan pystyi tietyin sukrovirityksin avaamaan tietty .EDT. Siinä esim. työpöydällä olevan komentotiedoston kuvaketta näpäyttämällä aukesi .EDT. Ymmärrän, että tilanne on nyt erilainen SURVO R:n kanssa.
Ei tilanne ole kovin erilainen Survo R:ssä. Voit editorin käynnistyskomennon survo() yhteydessä antaa käynnistyssucron parametrilla sucro eli tyyliin:
survo(sucro="KOE")

Tällä hetkellä tuo etsii vain "systeemin" omasta surcohakemistosta eli <Survo>/S:n alta. Tuota täytynee viritellä niin, että siihen voisi antaa polunkin, mutta on siis kuitenkin olemassa (itse asiassa ollut jo versiosta 0.5.34).

Toinen (kömpelömpi) tapa on tallentaa käynnistyshakemistoon tiedosto MUSTE.STA, jossa on polku käynnistyssukroon. Tuo mahdollisuus on ollut mukana versiosta 0.4.59 lähtien.
Reply | Threaded
Open this post in threaded view
|

Re: Toimituskentän EDT avaaminen

Juha Valtonen

Hei
tämä on ollut minullakin mielessä, kun aikoinani kovasti innostuin tästä mahdollisuudesta.
Ja kyllähän se onnistuu. Kaivoin esiin Kimmon joskus minulle lähettämät ohjeet, ja
samoilla konsteilla näyttää toimivan.

Eli näillä minä onnistuin (aikoinaan Kimmon antoi neuvoksi, että "omalla vastuulla voi kokeilla" -
lienee edelleen hyvä neuvo):

1) tehdään komentojono-tiedosto
SAVEP CUR+1,E-1,S:\SUCROS\SURVOR.CMD
@ECHO OFF
REM *** This batch file starts SURVO MM from Windows Explorer.
REM *** It requires associating of Survo file types through
REM *** Control Panel (Folder Options, File Types).
REM *** K.Vehkalahti 2008 (based on my earlier implementations
cd S:\SUCROS
ECHO %1 > SURVOR
C:\R\bin\x64\Rterm --sdi

eli minulla omat sukrot ja muut viritykset on S:\SUCROS -hakemistossa
- oleellista tässä on siirtyminen ko. hakemistoon ja ennenkaikkea tuo echo-komento
joka tallettaa tiedoston nimen hiiren näpäyksellä tässä tapauksessa SURVOR-nimiseksi tiedostoksi
- sitten käynnistetään R

2) Toiseksi EDT-tietostot pitää assosioida tälle äsken tehdylle skriptille. Se onnistuu
helpoiten näpäyttämällä hiiren oikealla näppäimellä jotain EDT-tiedostoa, ja valitsemalla
"Avaa sovelluksessa..." ja selaamalla ja valitsemalla 1-kohdassa tehty skripti.

3) Kyseisessä hakemistossa, johon 1-kohdassa siirryttiin tulee olla .Rprofile -tiedosto,
joka antaa R:lle oikeat survon käynnistyskomennot. Tein itselleni tällaisen

savep CUR+1 CUR+1 .Rprofile
.First <- function() { library(muste); survo(sucro="survor")}

Eli käynnistää survon aloitussukrolla survor


4) Sitten pitää olla vielä sellainen survor-sukro, joka lukee 1-kohdassa echotun
tiedostonimen ja avaa ko. edt-kentän. Reijon viestin mukaan aloitussukro pitää
ainakin vielä olla "systeemin" omassa sucrohakemistossa.
Käytin siinäkin taas Kimmon antamaa mallia - jätin seuraavaan
kaikki Kimmon viritykset näkyviin, mutta tätä testausta varten vähän oioin ja
yksinkertaistin, kun tavoitteena oli vain testata, onnistuuko tämä.



*TUTSAVE <Survo>\S\survor
/ SURVOWIN.TUT 2.6.2008/K.Vehkalahti under Windows xp
/ testaus JVa/13.05.29
/ (original idea by KV under Win 95 in 1996 and Win2K in 2001)
*{tempo -1}{init}
- if W1 '=' ? then goto H
/ def Winfile=W2
*{disp off}{jump 1,1,1,1}SCRATCH{erase}{act}{home}
/{save systempath Winfile}{Winfile=Winfile&TMP\SURVOWIN.}
/
/ Winfile, saved by SURVOR.CMD, includes exactly one line:
/ [file] (file name, including drive and directory)
/ That is the file pointed by the user, so let's get it:
/
/LOADP {print Winfile},CUR{act}{R}
*LOADP S:\sucros\SURVOR,CUR{act}{R}
/ erase unnecessary quotation marks around the file:
*ERASE "{act}{u}
/ decide what to do according to the rules of INDEX >operation:
*{line start}{ins}INDEX {ins}{line end},CUR / EDT=LOAD{act}{R}
/ remove the link file:
*{goto action}
*FILE DEL {print Winfile}{act}{home}{erase}
+ action:
*{u}
*{interaction on}{disp reset}{act}{interaction off}{goto E}
/ >---------------------------------------------------------------------
+ H: {W1=SURVOWIN}{call SUR-SAVE}{break on}{jump 1,1,1,1}
*SCRATCH{erase}{act}{R}{R}
*/SURVOWIN{R}
*is used in launching SURVO MM from Windows Explorer and{R}
*doing something reasonable with the file pointed by the user.{R}
/
*{message} Press ENTER!@
- on key
- key _: continue
- wait 600
*{W1=SURVOWIN}{call SUR-RESTORE}
+ E: {message}@{tempo +1}{disp reset}
 {end}
*


Siis sain toimimaan - edellisistä voi tietysti tiedostonimet ja hakemistot vapaasti
jokainen laittaa omien tarpeittensa mukaan.
Joskus kun on aikaa, pitää siistiä ja tehdä vastaavat avaustoiminnot
SVO- yms tärkeille muille survo-tiedostoille...
Mielelläni otan vastaan vinkkejä ja neuvoja ;)


:JVa












Reply | Threaded
Open this post in threaded view
|

Re: Toimituskentän EDT avaaminen

Juha Valtonen

*** replaan itselleni: ***
"Joskus kun on aikaa, pitää siistiä ja tehdä vastaavat avaustoiminnot
SVO- yms tärkeille muille survo-tiedostoille... "


****
Tuo survor-sukrossa oleva INDEX-pohjainen toiminto huolehtii jo siitä, että muutkin
survo-tiedostot tulevat sopivin menetelmin avattua (svo -> file show jne).
Ainoa mitä pitää tehdä, on assosioida tiedostot samaan skriptiin.

Jos tiedostoa hiiren oikealla napilla näpäyttäessä ei näy "Avaa sovelluksessa..."-vaihtoehto,
niin valitse "Ominaisuudet" -> "Sovellus"

Reply | Threaded
Open this post in threaded view
|

Re: Toimituskentän EDT avaaminen

Reijo Sund
Administrator
In reply to this post by Juha Valtonen
Juha Valtonen wrote
Reijon viestin mukaan aloitussukro pitää ainakin vielä olla "systeemin" omassa sucrohakemistossa.
Versiossa 0.6.3 pitäisi onnistua polullinen aloitussukro (tai ilman polkua aloitushakemistossa  oleva).

Lisäsin tuohon survo()-komentoon mukaan myös parametrin config=<oma.apu>, jolla voi antaa APU-tiedostolle vapaavalinnaisen (polun ja) nimen, jos haluaa. Esim.:
survo(config="~/survor.apu")

Ja huomatkaa, että noissa parametreissa eivät Survo R:n subst:it toimi.
Reply | Threaded
Open this post in threaded view
|

Re: Toimituskentän EDT avaaminen

Kimmo Vehkalahti
Administrator
In reply to this post by Juha Valtonen
Kiva nähdä, että lähes 20 vuotta sitten ideoimani konsti toimii edelleen, vaikka aika paljon ympärillä on muuttunut. Survon toimintaperiaatteet ovat pysyvää sorttia.

Reply | Threaded
Open this post in threaded view
|

Re: Toimituskentän EDT avaaminen

Juha Valtonen

Tähän ominaisuuteen kun vielä liittää sen, että windowsin explorerin saa käynnistettyä
oletushakemistossa komennolla ">explorer . "
Tein tuota komentoa varten  itselleni näppäinnukron "e", eli nyt riittää
F2 n e  -> aukeaa "oma tietokone" siinä hakemistossa, jossa survo on,
ja sitten tuplaklikkaamalla jotain tiedostoa (siis myös survo-tiedostoa) homma jatkuu.
Tai sitten selaamalla toisiin hakemistoihin ja sitten klikkailemalla - pääsee  vaikka
näppärästi jatkamaan toisella survo-tiedostolla.
Eihän tämä tietysi DD:hen verrattuna mitään uutta tuo, mutta helpottanee
windows-käyttöön tottuneita...

:JVa