Windows/VpnDial-installer/file_functions.nsi

Function FileSearch
  Exch $0 ;search for
  Exch
  Exch $1 ;input file
  Exch
  Push $2
  Push $3
  Push $4
  Push $5
  Push $6
  Push $7
  Push $8
  Push $9
  Push $R0
    FileOpen $2 $1 r
    StrLen $4 $0
    StrCpy $5 0
    StrCpy $7 no
    StrCpy $8 0
    StrCpy $9 0
  loop_main:
    FileRead $2 $3
    IfErrors done
   IntOp $R0 $R0 + $9
    StrCpy $9 0
    StrCpy $5 0
  filter_top:
   IntOp $5 $5 - 1
    StrCpy $6 $3 $4 $5
    StrCmp $6 "" loop_main
    StrCmp $6 $0 0 filter_top
    StrCpy $3 $3 $5
    StrCpy $5 0
   StrCpy $7 yes
   StrCpy $9 1
   IntOp $8 $8 + 1
  Goto filter_top
  done:
    FileClose $2
    StrCpy $0 $8
    StrCpy $1 $7
    StrCpy $2 $R0
  Pop $R0
  Pop $9
  Pop $8
  Pop $7
  Pop $6
  Pop $5
  Pop $4
  Pop $3
  Exch 2
  Exch $2 ;output number of lines
  Exch 2
  Exch
  Exch $1 ;output yes/no
  Exch
  Exch $0 ;output count found
FunctionEnd


Function JoinFiles
  Exch $1
  Exch
  Exch $3
  Exch
  Exch 2
  Exch $4
  Exch 2
  Push $0
  Push $2
  Push $5
    GetTempFileName $5
    SetDetailsPrint none
    CopyFiles $1 $5
    SetDetailsPrint both
  FileOpen $0 $5 a
  FileOpen $2 $3 r
  loop1:
    FileRead $0 $1
    IfErrors doneloop1
  Goto loop1
  doneloop1:
    FileWrite $0 "$\r$\n$\r$\n$\r$\n" #Optional [divider]
  loop2:
    FileRead $2 $1
    FileWrite $0 $1
    IfErrors done
  Goto loop2
  done:
     FileClose $2
     FileClose $0
    SetDetailsPrint none
    IfFileExists $4 0 +2
    Delete $4
    CopyFiles $5 $4
    Delete $5
    SetDetailsPrint both
  Pop $5
  Pop $2
  Pop $0
  Pop $4
  Pop $3
  Pop $1
FunctionEnd


Function AdvReplaceInFile

; Taken from http://nsis.sourceforge.net/archive/nsisweb.php?page=316&instances=0,11,311
; Hacked by Jolo of Xegony to simplify the removal of a line
        ;; Note that this wont do the right thing if you're trying to
        ;; null out a substring within a line.  If the replacement is
        ;; null, we're assuming you want to null out the entire line.

    Exch $0 ;file to replace in
    Exch
    Exch $1 ;number to replace after
    Exch
    Exch 2
    Exch $2 ;replace and onwards
    Exch 2
    Exch 3
    Exch $3 ;replace with
    Exch 3
    Exch 4
    Exch $4 ;to replace
    Exch 4
    Push $5 ;minus count
    Push $6 ;universal
    Push $7 ;end string
    Push $8 ;left string
    Push $9 ;right string
    Push $R0 ;file1
    Push $R1 ;file2
    Push $R2 ;read
    Push $R3 ;universal
    Push $R4 ;count (onwards)
    Push $R5 ;count (after)
    Push $R6 ;temp file name

        GetTempFileName $R6
        FileOpen $R1 $0 r ;file to search in
        FileOpen $R0 $R6 w ;temp file
        StrLen $R3 $4                    ; $R3 = strlen(search_for)
        StrCpy $R4 -1                    ; $R4 = -1
        StrCpy $R5 -1                    ; $R5 = -1

    loop_read:
        ClearErrors
        FileRead $R1 $R2 ;read line
        IfErrors exit

        StrCpy $5 0                      ; $ptr = 0
        StrCpy $7 $R2                    ; $line = current_line

    loop_filter:
        IntOp $5 $5 - 1                  ; $ptr--
        StrCpy $6 $7 $R3 $5 ;search      ; $examine = substr($line, len:len_search_for, ptr_from_end)
        StrCmp $6 "" file_write2         ; if ($examine==NULL) write unmod'd line  # escape clause
        StrCmp $6 $4 0 loop_filter       ; if ($examine==$search_for) { continue; } else { loop_filter )

        ;; found it
        ;; DetailPrint "Found: SEARCH[$4]"
        StrCpy $8 $7 $5 ;left part       ; $left = substr($line, $ptr)
        IntOp $6 $5 + $R3                ; $6 = position + strlen(search_for)
        StrCpy $9 $7 "" $6 ;right part   ; $right = line 

        StrLen $6 $7                     ; $6 = strlen(line)

        StrCpy $7 $8$3$9 ;re-join        ; $line = $left + $replace + $right
        ;; DetailPrint "new = [$8][$3][$9] = [$7]"

        ;; what's this test for?
        StrCmp -$6 $5 0 loop_filter      ; if (strlen($line) == len(ptr)) then {continue } else { scan more? } 

        ;; replacement qualifier(s)
        ;; start replacing after $2 occurrences
        IntOp $R4 $R4 + 1                
        StrCmp $2 all file_write1
        StrCmp $R4 $2 0 file_write2
        IntOp $R4 $R4 - 1

        ;; replacement qualifier(s)
        ;; replace next $1 occurrences 
        IntOp $R5 $R5 + 1
        StrCmp $1 all file_write1
        StrCmp $R5 $1 0 file_write1
        IntOp $R5 $R5 - 1
    Goto file_write2

    file_write1:
        ;; Note that this wont do the right thing if you're trying to
        ;; null out a substring within a line.  If the replacement is
        ;; null, we're assuming you want to null out the entire line.
        StrCmp $3 "" loop_read 0                          ;; bail if we're trying to delete a line           
        ;; DetailPrint "WRITING MODIFIED = [$7]"
        FileWrite $R0 $7 ;write modified line
    Goto loop_read

    file_write2:
        ;; DetailPrint "WRITING UNMODIFIED = [$R2]"
        FileWrite $R0 $R2 ;write unmodified line
    Goto loop_read

    exit:
        FileClose $R0
        FileClose $R1

        SetDetailsPrint none
        Delete $0
        Rename $R6 $0
        Delete $R6
        SetDetailsPrint both

    Pop $R6
    Pop $R5
    Pop $R4
    Pop $R3
    Pop $R2
    Pop $R1
    Pop $R0
    Pop $9
    Pop $8
    Pop $7
    Pop $6
    Pop $5
    Pop $4
    Pop $3
    Pop $2
    Pop $1
    Pop $0
FunctionEnd
1	Function FileSearch
2	Exch $0 ;search for
3	Exch
4	Exch $1 ;input file
5	Exch
6	Push $2
7	Push $3
8	Push $4
9	Push $5
10	Push $6
11	Push $7
12	Push $8
13	Push $9
14	Push $R0
15	FileOpen $2 $1 r
16	StrLen $4 $0
17	StrCpy $5 0
18	StrCpy $7 no
19	StrCpy $8 0
20	StrCpy $9 0
21	loop_main:
22	FileRead $2 $3
23	IfErrors done
24	IntOp $R0 $R0 + $9
25	StrCpy $9 0
26	StrCpy $5 0
27	filter_top:
28	IntOp $5 $5 - 1
29	StrCpy $6 $3 $4 $5
30	StrCmp $6 "" loop_main
31	StrCmp $6 $0 0 filter_top
32	StrCpy $3 $3 $5
33	StrCpy $5 0
34	StrCpy $7 yes
35	StrCpy $9 1
36	IntOp $8 $8 + 1
37	Goto filter_top
38	done:
39	FileClose $2
40	StrCpy $0 $8
41	StrCpy $1 $7
42	StrCpy $2 $R0
43	Pop $R0
44	Pop $9
45	Pop $8
46	Pop $7
47	Pop $6
48	Pop $5
49	Pop $4
50	Pop $3
51	Exch 2
52	Exch $2 ;output number of lines
53	Exch 2
54	Exch
55	Exch $1 ;output yes/no
56	Exch
57	Exch $0 ;output count found
58	FunctionEnd
59
60
61	Function JoinFiles
62	Exch $1
63	Exch
64	Exch $3
65	Exch
66	Exch 2
67	Exch $4
68	Exch 2
69	Push $0
70	Push $2
71	Push $5
72	GetTempFileName $5
73	SetDetailsPrint none
74	CopyFiles $1 $5
75	SetDetailsPrint both
76	FileOpen $0 $5 a
77	FileOpen $2 $3 r
78	loop1:
79	FileRead $0 $1
80	IfErrors doneloop1
81	Goto loop1
82	doneloop1:
83	FileWrite $0 "$\r$\n$\r$\n$\r$\n" #Optional [divider]
84	loop2:
85	FileRead $2 $1
86	FileWrite $0 $1
87	IfErrors done
88	Goto loop2
89	done:
90	FileClose $2
91	FileClose $0
92	SetDetailsPrint none
93	IfFileExists $4 0 +2
94	Delete $4
95	CopyFiles $5 $4
96	Delete $5
97	SetDetailsPrint both
98	Pop $5
99	Pop $2
100	Pop $0
101	Pop $4
102	Pop $3
103	Pop $1
104	FunctionEnd
105
106
107	Function AdvReplaceInFile
108
109	; Taken from http://nsis.sourceforge.net/archive/nsisweb.php?page=316&instances=0,11,311
110	; Hacked by Jolo of Xegony to simplify the removal of a line
111	;; Note that this wont do the right thing if you're trying to
112	;; null out a substring within a line. If the replacement is
113	;; null, we're assuming you want to null out the entire line.
114
115	Exch $0 ;file to replace in
116	Exch
117	Exch $1 ;number to replace after
118	Exch
119	Exch 2
120	Exch $2 ;replace and onwards
121	Exch 2
122	Exch 3
123	Exch $3 ;replace with
124	Exch 3
125	Exch 4
126	Exch $4 ;to replace
127	Exch 4
128	Push $5 ;minus count
129	Push $6 ;universal
130	Push $7 ;end string
131	Push $8 ;left string
132	Push $9 ;right string
133	Push $R0 ;file1
134	Push $R1 ;file2
135	Push $R2 ;read
136	Push $R3 ;universal
137	Push $R4 ;count (onwards)
138	Push $R5 ;count (after)
139	Push $R6 ;temp file name
140
141	GetTempFileName $R6
142	FileOpen $R1 $0 r ;file to search in
143	FileOpen $R0 $R6 w ;temp file
144	StrLen $R3 $4 ; $R3 = strlen(search_for)
145	StrCpy $R4 -1 ; $R4 = -1
146	StrCpy $R5 -1 ; $R5 = -1
147
148	loop_read:
149	ClearErrors
150	FileRead $R1 $R2 ;read line
151	IfErrors exit
152
153	StrCpy $5 0 ; $ptr = 0
154	StrCpy $7 $R2 ; $line = current_line
155
156	loop_filter:
157	IntOp $5 $5 - 1 ; $ptr--
158	StrCpy $6 $7 $R3 $5 ;search ; $examine = substr($line, len:len_search_for, ptr_from_end)
159	StrCmp $6 "" file_write2 ; if ($examine==NULL) write unmod'd line # escape clause
160	StrCmp $6 $4 0 loop_filter ; if ($examine==$search_for) { continue; } else { loop_filter )
161
162	;; found it
163	;; DetailPrint "Found: SEARCH[$4]"
164	StrCpy $8 $7 $5 ;left part ; $left = substr($line, $ptr)
165	IntOp $6 $5 + $R3 ; $6 = position + strlen(search_for)
166	StrCpy $9 $7 "" $6 ;right part ; $right = line
167
168	StrLen $6 $7 ; $6 = strlen(line)
169
170	StrCpy $7 $8$3$9 ;re-join ; $line = $left + $replace + $right
171	;; DetailPrint "new = [$8][$3][$9] = [$7]"
172
173	;; what's this test for?
174	StrCmp -$6 $5 0 loop_filter ; if (strlen($line) == len(ptr)) then {continue } else { scan more? }
175
176	;; replacement qualifier(s)
177	;; start replacing after $2 occurrences
178	IntOp $R4 $R4 + 1
179	StrCmp $2 all file_write1
180	StrCmp $R4 $2 0 file_write2
181	IntOp $R4 $R4 - 1
182
183	;; replacement qualifier(s)
184	;; replace next $1 occurrences
185	IntOp $R5 $R5 + 1
186	StrCmp $1 all file_write1
187	StrCmp $R5 $1 0 file_write1
188	IntOp $R5 $R5 - 1
189	Goto file_write2
190
191	file_write1:
192	;; Note that this wont do the right thing if you're trying to
193	;; null out a substring within a line. If the replacement is
194	;; null, we're assuming you want to null out the entire line.
195	StrCmp $3 "" loop_read 0 ;; bail if we're trying to delete a line
196	;; DetailPrint "WRITING MODIFIED = [$7]"
197	FileWrite $R0 $7 ;write modified line
198	Goto loop_read
199
200	file_write2:
201	;; DetailPrint "WRITING UNMODIFIED = [$R2]"
202	FileWrite $R0 $R2 ;write unmodified line
203	Goto loop_read
204
205	exit:
206	FileClose $R0
207	FileClose $R1
208
209	SetDetailsPrint none
210	Delete $0
211	Rename $R6 $0
212	Delete $R6
213	SetDetailsPrint both
214
215	Pop $R6
216	Pop $R5
217	Pop $R4
218	Pop $R3
219	Pop $R2
220	Pop $R1
221	Pop $R0
222	Pop $9
223	Pop $8
224	Pop $7
225	Pop $6
226	Pop $5
227	Pop $4
228	Pop $3
229	Pop $2
230	Pop $1
231	Pop $0
232	FunctionEnd
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26