-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathRUMMS.LST
100 lines (100 loc) · 3.63 KB
/
RUMMS.LST
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
PROCEDURE auto_tmp
LOCAL suchmaske$,zeit&,attribute&
'
attribute&=&X101111 ! Bit Finde folgende:
' x 0 Schreibgeschtzte Datei
' x 1 Versteckte Datei
' x 2 Systemdatei
' x 3 Diskettenname
' 4 Ordner
' x 5 Datei mit gesetztem Archivbit
'
IF @pdomain(dom_mint&)<>einvfn% ! In die MiNT-Domain schalten und
domain&=@pdomain(-1) ! dann die nun aktuelle Domain merken.
ENDIF ! (wird im Fehlerfall 0L = TOS-Domain)
'
IF @exist(boot$+":\easymint.tmp",16)=-33
MKDIR boot$+":\easymint.tmp"
ENDIF
' zeit&=@busy_open(FALSE)
'
@move_mint_prg
'
'
' AUTO Ordner nach EASYMINT.TMP verschieben
'
LET dta%=FGETDTA()
IF @my_fsfirst(boot$+":\auto\*.*",attribute&,TRUE)=0
REPEAT
@ug_copy1(boot$+":\auto\"+CHAR{gl_xattr_d_fname%},boot$+":\easymint.tmp\"+CHAR{gl_xattr_d_fname%})
UNTIL @my_fsnext(boot$+":\auto\*.*",attribute&)<>0 !FSNEXT()<0
ENDIF
~FSETDTA(dta%) ! DTA zurcksetzen
'
' Auto Ordner leeren
LET dta%=FGETDTA()
suchmaske$=boot$+":\auto\*.*"
IF @my_fsfirst(suchmaske$,attribute&,TRUE)=0
REPEAT
error%=@f_kill(boot$+":\auto\"+CHAR{gl_xattr_d_fname%})
UNTIL @my_fsnext(suchmaske$,attribute&)<>0 !FSNEXT()<0
ENDIF
~FSETDTA(dta%) ! DTA zurcksetzen
RETURN
PROCEDURE tmp_auto
LOCAL suchmaske$,attribute&
'
attribute&=&X101111
'
IF @pdomain(dom_mint&)<>einvfn% ! In die MiNT-Domain schalten und
domain&=@pdomain(-1) ! dann die nun aktuelle Domain merken.
ENDIF ! (wird im Fehlerfall 0L = TOS-Domain)
'
LET dta%=FGETDTA()
IF @my_fsfirst(boot$+":\easymint.tmp\*.*",attribute&,TRUE)=0
REPEAT
@ug_copy1(boot$+":\easymint.tmp\"+CHAR{gl_xattr_d_fname%},boot$+":\auto\"+CHAR{gl_xattr_d_fname%})
UNTIL @my_fsnext(boot$+":\easymint.tmp\*.*",attribute&)<>0 !FSNEXT()<0
ENDIF
~FSETDTA(dta%) ! DTA zurcksetzen
'
' tmp Ordner leeren und l”schen
LET dta%=FGETDTA()
suchmaske$=boot$+":\easymint.tmp\*.*"
IF @my_fsfirst(suchmaske$,attribute&,TRUE)=0
REPEAT
error%=@f_kill(boot$+":\easymint.tmp\"+CHAR{gl_xattr_d_fname%})
UNTIL @my_fsnext(suchmaske$,attribute&)<>0 !FSNEXT()<0
ENDIF
~FSETDTA(dta%)
'
error%=@f_rmdir(boot$+":\easymint.tmp")
'
'
RETURN
PROCEDURE move_mint_prg
LOCAL attribute&
'
attribute&=&X101111
'
IF @pdomain(dom_mint&)<>einvfn% ! In die MiNT-Domain schalten und
domain&=@pdomain(-1) ! dann die nun aktuelle Domain merken.
ENDIF ! (wird im Fehlerfall 0L = TOS-Domain)
'
' MINT.PRG suchen und verschieben
'
IF @exist(boot$+":\auto\mint*.pr*",16)=0
IF @exist(boot$+":\auto\mintprg.bak",63)=-33
error%=@f_mkdir(boot$+":\auto\mintprg.bak")
ENDIF
'
LET dta%=FGETDTA()
IF @my_fsfirst(boot$+":\auto\mint*.pr?",attribute&,TRUE)=0
REPEAT
@ug_copy1(boot$+":\auto\"+CHAR{gl_xattr_d_fname%},boot$+":\auto\mintprg.bak\"+CHAR{gl_xattr_d_fname%})
error%=@f_kill(boot$+":\auto\"+CHAR{gl_xattr_d_fname%})
UNTIL @my_fsnext(boot$+":\auto\mint*.pr?",attribute&)<>0 !FSNEXT()<0
ENDIF
~FSETDTA(dta%) ! DTA zurcksetzen
ENDIF
RETURN