home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
rexxit11.zip
/
Deutsch.Zip
/
REXXIT.INI
(
.txt
)
< prev
Wrap
OS/2 INI File
|
1996-04-14
|
7KB
|
237 lines
Tutorial
Anfang
Laden
nur_CMD
punkt12
Eigenes10
punkt8
Eigenes8>
punkt6
Doppelabwurf
/* Aufruf von PROGRAMM nach Abwurf zweier Objekte */
/* (auch "gleichzeitig") mit
bergabe als Parameter */
parse arg Name
New_queue = rxqueue('create', 'XXX')
Old_queue = rxqueue('set', 'XXX')
if New_queue = 'XXX'
then /* first drop */
queue Name
else do /* second drop */
parse pull Queued_name
call PROGRAMM Queued_name Name
call rxqueue 'delete', 'XXX'
call rxqueue 'delete', New_queue
end
punkt5
TempFileName
/* Erzeugen eines Dateinamens, den es noch nicht gibt */
TempFileName: procedure /******************************/
parse arg Name
do I = 1 to 999
Testname = Name || translate(format(I,3), '0', ' ')
if \exists(Testname) then return Testname
end
say 'Maximum von 999 Temp-Files
berschritten!'
punkt2
Exists
/* Feststellen, ob eine Datei existiert */
Exists: procedure /************************************/
return stream(arg(1), 'c', 'query exists') \= ''
punkt1
ANSI-Schale
/* ANSI-Schale f
r Textbildschirm */
/* Lesen von Zeichen ab einer Bildschirmposition */
Lesen: procedure /*************************************/
parse arg Zeile, Spalte
Esc = '1B'x
select
when arg() = 0 then
nop
when arg() = 2 then
call charout , Esc || '['Zeile';'Spalte'H'
otherwise do
say 'FEHLER: Lesen ben
tigt entweder 0 oder 2 Argumente!'
exit
end
end
parse pull S
return S
/* Schreiben von Zeichen ab einer Bildschirmposition */
Schreiben: procedure /*********************************/
parse arg Zeile, Spalte, Text
Esc = '1B'x
select
when arg() = 1 then
call charout , Zeile
when arg() = 2 then
call charout , Esc || '['Zeile';'Spalte'H'
when arg() = 3 then
call charout , Esc || '['Zeile';'Spalte'H'Text
otherwise do
say 'FEHLER: Schreiben ben
tigt 1, 2 oder 3 Argumente!'
exit
end
end
return
/* Setzen der VORdergrundfarbe */
Vorsetzen: procedure expose Vordergrundcode Hintergrundcode /**********/
arg Farbe
Esc = '1B'x
select
when pos('GEHEIM', Farbe) > 0 then C = 8
when pos('SCHWARZ', Farbe) > 0 then C = 30
when pos('ROT', Farbe) > 0 then C = 31
when pos('GR
N', Farbe) > 0 then C = 32
when pos('GELB', Farbe) > 0 then C = 33
when pos('BLAU', Farbe) > 0 then C = 34
when pos('MAGENTA', Farbe) > 0 then C = 35
when pos('CYAN', Farbe) > 0 then C = 36
when pos('WEI
', Farbe) > 0 then C = 37
otherwise do
say 'FEHLER: Farbe ung
ltig f
r Vordergrund!'
exit
end
end
if left(Farbe, 4) = 'HELL'
then
C = '1;'C
else do
call charout , Esc || '[0m'
if left(Hintergrundcode,1) = Esc then
call charout , Hintergrundcode
end
Vordergrundcode = Esc || '['C'm'
call charout , Vordergrundcode
return
/* Setzen der HINtergrundfarbe */
Hinsetzen: procedure expose Vordergrundcode Hintergrundcode /**********/
arg Farbe
Esc = '1B'x
select
when pos('SCHWARZ', Farbe) > 0 then C = 40
when pos('ROT', Farbe) > 0 then C = 41
when pos('GR
N', Farbe) > 0 then C = 42
when pos('GELB', Farbe) > 0 then C = 43
when pos('BLAU', Farbe) > 0 then C = 44
when pos('MAGENTA', Farbe) > 0 then C = 45
when pos('CYAN', Farbe) > 0 then C = 46
when pos('WEI
', Farbe) > 0 then C = 47
otherwise do
say 'FEHLER: Farbe ung
ltig f
r Hintergrund!'
exit
end
end
if left(Farbe, 4) = 'HELL'
then
C = '5;'C
else do
call charout , Esc || '[0m'
if left(Vordergrundcode,1) = Esc then
call charout , Vordergrundcode
end
Hintergrundcode = Esc || '['C'm'
call charout , Hintergrundcode
return
/* Setzen, ob automatischer ZeilenUMbruch */
Umsetzen: procedure /**********************************/
arg Modus
Esc = '1B'x
select
when Modus = 'aus' then
Modus = 'h'
when Modus = 'ein' then
Modus = 'l'
otherwise do
say "FEHLER: Autom. Zeilenumbruch nur 'ein' oder 'aus'!"
exit
end
end
call charout , Esc || '[=3h' || Esc || '[=7' || Modus
return
schen des Bildschirms bzw. Zeilenrests */
Leeren: procedure /************************************/
arg Parm
Esc = '1B'x
select
when Parm = '' then
call charout , Esc || '[2J'
when Parm = 'REST' then
call charout , Esc || '[K'
otherwise do
say 'FEHLER: Angabe ung
ltig f
r Leeren!'
exit
end
end
return
punkt10
Eigenes10
punkt0
Logo=
Drucken
VRexx-Hilfe
Bookshelf<
save_before_run
Einstellungen_Run_Anfragenq
Arbeitsverzeichnis
<Standard>
X_ascii
Y_ascii
Automatisches Speichern
REXX.AUS[
Vordergrundfarbe
Black
Hintergrundfarbe
White
Schrift
10.System Monospaced
Breite
punkt9
Eigenes9
punkt11
Eigenes7
punkt3
Bootdrive
/* Ermitteln des OS/2-Startlaufwerks */
Bootdrive: procedure /*********************************/
Pfad = translate(value('PATH',,'OS2ENVIRONMENT'))
return substr(Pfad, pos('\OS2\SYSTEM', Pfad)-2, 1)
punkt4
Tauschen
/* Ersetzen aller VON nach NACH in TEXT */
Tauschen: procedure /**********************************/
parse arg Text, Von, Nach
if pos(Von, Nach) > 0 then do
say 'Endlosschleife in Tauschen!'
exit
end
do forever
K = pos(Von, Text)
if K = 0 then leave
Text = substr(Text, 1, K-1) || ,
Nach || ,
substr(Text, K+length(Von))
end
return Text
punkt7
Eigenes7
Version
Richard Sturm
User_Name
Nummer
Gates