[archimedes] AW: AW: Re: Kommandozeile Stapelverarbeitung..

  • From: Uwe <uwe@xxxxxxxxxxxxxxx>
  • To: "Archimedes Freelist.org" <archimedes@xxxxxxxxxxxxx>
  • Date: Thu, 28 Jul 2016 13:32:07 +0200

Bin noch ein wenig weiter vorgedrungen und erzeuge das move - obey File nur 
temporär aus dem aufrufenden File heraus. (siehe Anhang)

Um beide Dateien in ein Obey zu bekommen, müsste ich noch prüfen,  ob z.b. das 
.h - Verzeichnis existiert und das mit einem IF Befehl verteilen, habe 
allerdings Probleme damit wie ich ein Ergebnis einer Kommandozeilenoperation in 
einem Obey File abfragen kann..

Kann mir da nochmal jemand helfen?

Uwe Kall
Zur Feste 12
51643 Gummersbach

---- Uwe schrieb ----

@Thomas: Hey Super. Vielen Dank. Damit kann ich mich mal ein wenig der RiscOS 
Kommandozeile nähern.

Ich habe durch herumprobieren festgestellt dass die Anführungszeichen aus der 
Copy-zeile komplett weg müssen, damit funktioniert es dann.
Ist halt leider nicht ein kleines obeyfile für alles. Mal sehen was ich da 
mache. Und für cpp und h files muss ich mindestens noch erweitern.

Uwe Kall
Zur Feste 12
51643 Gummersbach

---- Thomas Milius schrieb ----

In message <hmvcvsid6ikbqq2cmue5v8q8.1469614298501@xxxxxxxxxxxxxxxxx>
         Uwe <uwe@xxxxxxxxxxxxxxx> wrote:

Ich weiß nicht, ob ich Deine Anforderung richtig verstanden habe.

Wie geht das mit RiscOS Bordmitteln? Wäre ja schön,  wenn man z.b.
ausgepackte Archive damit schnell mal eben hin- und her wechseln kann..


Nicht schön, aber es sollte gehen.

Teil 1

RAM-Disk
Test
 - MyMove (siehe unten)
 - MyMove2 (siehe unten)
 - Test (siehe unten)
 - Test2 (siehe unten)
 - C
   - c
    - egal (Textdatei mit irgendeinem Inhalt)
    - test(Textdatei mit irgendeinem Inhalt)

Obey Datei Test
Set MyDir$ <Obey$Dir>.C.c
Repeat <Obey$Dir>.MyMove <MyDir$> <MyDir$> -continue

Obey Datei MyMove
Echo %0 %1
SetEval MyFile "%0" RIGHT (LEN "%0" - LEN "%1" - 1)
Echo <MyFile>
Copy "%1.<MyFile>" "%1.^.<MyFile>/c" ~CD

Teil 2

Obey Datei Test2
Set MyDir$ <Obey$Dir>.C
Repeat <Obey$Dir>.MyMove2 <MyDir$> <MyDir$> -continue

Obey Datei MyMove2
Echo %0 %1
SetEval MyFile "%0" RIGHT (LEN "%0" - LEN "%1" - 1)
Echo <MyFile>
SetEval MyNewFile MyFile LEFT (LEN MyFile - 2)
Echo <MyNewFile>
IF "/c" = (MyFile RIGHT 2) THEN Copy "%1.<MyFile>" "%1.c.<MyNewFile>" ~CD

Außerdem gab es da mal !Rename. Läuft bei mir aber auf dem BBxM nicht.

Thomas Milius

ConvertToArc Obey File

Set MyDir$ <Obey$Dir>.C
Echo Echo %%0 %%1 { > <Obey$Dir>.MyMover }
Echo SetEval MyFile "%%0" RIGHT (LEN "%%0" - LEN "%%1" - 1) { >> 
<Obey$Dir>.MyMover }
Echo Echo |<MyFile> { >> <Obey$Dir>.MyMover }
Echo SetEval MyNewFile MyFile LEFT(LEN MyFile -2) { >> <Obey$Dir>.MyMover }
Echo Echo |<MyNewFile> { >> <Obey$Dir>.MyMover }
Echo IF "/c" = (MyFile RIGHT 2) THEN Copy %%1.|<MyFile> %%1.c.|<MyNewFile> ~CD 
{ >> <Obey$Dir>.MyMover }
SetType <Obey$Dir>.MyMover Obey
Repeat <Obey$Dir>.MyMover <MyDir$> <MyDir$> -continue
Delete <Obey$Dir>.MyMover

ConvertToPc Obey File
Set MyDir$ <Obey$Dir>.C.c
Echo Echo %%0 %%1 { > <Obey$Dir>.MyMover }
Echo SetEval MyFile "%%0" RIGHT(LEN("%%0") - LEN("%%1") -1) { >> 
<Obey$Dir>.MyMover }
Echo Echo |<MyFile> { >> <Obey$Dir>.MyMover }
Echo Copy %%1.|<MyFile> %%1.^.|<MyFile>/c ~CD { >> <Obey$Dir>.MyMover }
SetType <Obey$Dir>.MyMover Obey
Repeat <Obey$Dir>.MyMover <MyDir$> <MyDir$> -continue
Delete <Obey$Dir>.MyMover

Other related posts:

  • » [archimedes] AW: AW: Re: Kommandozeile Stapelverarbeitung.. - Uwe
  1. Home
  2. archimedes
  3. Archive
  4. 07-2016