/[james]/archive/createj/CreateJ/Basic/Create
ViewVC logotype

Annotation of /archive/createj/CreateJ/Basic/Create

Parent Directory Parent Directory | Revision Log Revision Log


Revision 26 - (hide annotations) (download)
Thu Mar 13 17:23:07 2003 UTC (21 years, 7 months ago) by james
File size: 3961 byte(s)
Initial import.

1 james 26 REM > CreateJCode:Create
2    
3     DEF PROCCreate(Path$)
4     LOCAL Name$, Sprt$
5     LOCAL Temp%, Spr1%, Spr2%
6    
7     REMLOCAL ERROR
8     REMON ERROR LOCAL RESTORE ERROR: PROCCreate_Error
9    
10     Name$ = FNWimp_GetLeaf(Path$)
11    
12     SYS"OS_CLI", "CDir " + Path$
13     SYS"OS_CLI", "Copy " + Task_Path$ + "Base " + Path$ + ".!" + Name$ + " A~C~DFL~N~P~QR~S~T~V"
14     SYS"OS_CLI", "CDir " + Path$ + "." + Name$
15     SYS"OS_CLI", "CDir " + Path$ + "." + Name$ + ".Basic"
16    
17     PROCWimp_LoadFile(Task_Path$ + "Files.!Sprites", 1, "Sprites")
18     PROCWimp_LoadFile(Task_Path$ + "Files.!Sprites22", 1, "Sprites22")
19     Spr1% = FNHeap_Find(1, "Sprites")
20     Spr2% = FNHeap_Find(1, "Sprites22")
21     Sprt$ = "!" + FNString_Lower(LEFT$(Name$, 11))
22     $(Spr1% + 4 + &10) = Sprt$
23     $(Spr2% + 4 + &10) = Sprt$
24     Spr1%?(4 + &10 + LENSprt$) = 0
25     Spr2%?(4 + &10 + LENSprt$) = 0
26     SYS"OS_File", 10, Path$ + ".!" + Name$ + ".!Sprites", &FF9,, Spr1% + 4, Spr1% + !Spr1% + 4
27     SYS"OS_File", 10, Path$ + ".!" + Name$ + ".!Sprites22", &FF9,, Spr2% + 4, Spr2% + !Spr2% + 4
28     PROCHeap_Lose(1, "Sprites")
29     PROCHeap_Lose(1, "Sprites22")
30    
31     Type$ = "Obey"
32     PROCCopy(Task_Path$ + "Files.!Run", Path$ + ".!" + Name$ + ".!Run")
33     PROCCopy(Task_Path$ + "Files.!Run2", Path$ + "." + Name$ + ".!Run")
34     PROCCopy(Task_Path$ + "Files.LinkCrunch", Path$ + "." + Name$ +".LinkCrunch")
35    
36     Type$ = "Text"
37     PROCCopy(Task_Path$+"Files.Menus", Path$ + ".!" +Name$+".Resources.UK.Menus")
38    
39     Type$ = "BASIC"
40     PROCBasic(Task_Path$ + "Files.!Main", Path$ + "." + Name$ + ".!Main")
41     PROCBasic(Task_Path$+"Files.Basic.Click",Path$ + "." + Name$ +".Basic.Click")
42     PROCBasic(Task_Path$+"Files.Basic.Init", Path$ + "." + Name$ + ".Basic.Init")
43     PROCBasic(Task_Path$+"Files.Basic.Menu", Path$ + "." + Name$ + ".Basic.Menu")
44     PROCBasic(Task_Path$+"Files.Basic.Quit", Path$ + "." + Name$ + ".Basic.Quit")
45    
46     ENDPROC
47    
48     REM �������������������������������������������������������������������������
49    
50     DEF PROCCreate_Error
51     PROCHeap_Lose(1, "*")
52     Erro_ERL% = ERL
53     Erro_REPORT$ = REPORT$
54     Erro_ERR% = Erro_Warn%
55     ERROR Erro_Warn%, REPORT$
56     ENDPROC
57    
58     REM �������������������������������������������������������������������������
59    
60     DEF PROCCopy(Fil1$, Fil2$)
61     LOCAL Fil1%, Fil2%, Byte%, Byt1%, Byt2%, Loop%
62    
63     Fil1% = OPENIN(Fil1$)
64     Fil2% = OPENOUT(Fil2$)
65    
66     REMLOCAL ERROR
67     REMON ERROR LOCAL RESTORE ERROR: PROCCopy_Error
68    
69     WHILE NOT EOF#Fil1%
70     Byte% = BGET#Fil1%
71     IF Byte% = ASC"{" THEN
72     Byt1% = BGET#Fil1%
73     Byt2% = BGET#Fil1%
74     IF (Byt1% = ASC"!") AND (Byt2% = ASC"}") THEN
75     FOR Loop% = 1 TO LENName$
76     BPUT#Fil2%, ASC(MID$(Name$, Loop%, 1))
77     NEXT
78     ELSE
79     BPUT#Fil2%, Byte%
80     BPUT#Fil2%, Byt1%
81     BPUT#Fil2%, Byt2%
82     ENDIF
83     ELSE
84     BPUT#Fil2%, Byte%
85     ENDIF
86     ENDWHILE
87    
88     REMRESTORE ERROR
89    
90     CLOSE#Fil1%
91     CLOSE#Fil2%
92     SYS"OS_CLI", "SetType " + Fil2$ + " " + Type$
93     ENDPROC
94    
95     REM �������������������������������������������������������������������������
96    
97     DEF PROCCopy_Error
98     CLOSE#Fil1%
99     CLOSE#Fil2%
100     Erro_ERL% = ERL
101     Erro_REPORT$ = REPORT$
102     Erro_ERR% = Erro_Warn%
103     ERROR Erro_Warn%, REPORT$
104     ENDPROC
105    
106     REM �������������������������������������������������������������������������
107    
108     DEF PROCBasic(Fil1$, Fil2$)
109     LOCAL Fil1%, Fil2%, Byte%, Byt1%, Byt2%
110    
111     Fil1% = OPENIN(Fil1$)
112     Fil2% = OPENOUT(Fil2$)
113    
114     REMLOCAL ERROR
115     REMON ERROR LOCAL RESTORE ERROR: PROCCopy_Error
116    
117     Byte% = BGET#Fil1% :REM &D
118     BPUT#Fil2%, Byte%
119     Byte% = BGET#Fil1% :REM line 1
120     WHILE Byte% <> &FF
121     BPUT#Fil2%, Byte%
122     Byte% = BGET#Fil1% :REM line 2
123     BPUT#Fil2%, Byte%
124     Byte% = BGET#Fil1% :REM length
125     Line$ = ""
126     Byte% = BGET#Fil1%
127     WHILE Byte% <> &D
128     IF Byte% = ASC"{" THEN
129     Byt1% = BGET#Fil1%
130     Byt2% = BGET#Fil1%
131     IF (Byt1% = ASC"!") AND (Byt2% = ASC"}") THEN
132     Line$ += Name$
133     ENDIF
134     ELSE
135     Line$ += CHR$(Byte%)
136     ENDIF
137     Byte% = BGET#Fil1%
138     ENDWHILE
139     BPUT#Fil2%, LENLine$ + 4
140     BPUT#Fil2%, Line$;
141     BPUT#Fil2%, Byte%
142     Byte% = BGET#Fil1% :REM line 1
143     ENDWHILE
144     BPUT#Fil2%, Byte%
145    
146     REMRESTORE ERROR
147    
148     CLOSE#Fil1%
149     CLOSE#Fil2%
150     SYS"OS_CLI", "SetType " + Fil2$ + " " + Type$
151     ENDPROC

  ViewVC Help
Powered by ViewVC 1.1.26