|
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
2 ;; |
|
3 ;; Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies). |
|
4 ;; All rights reserved. |
|
5 ;; Contact: Nokia Corporation (qt-info@nokia.com) |
|
6 ;; |
|
7 ;; This file is part of the tools applications of the Qt Toolkit. |
|
8 ;; |
|
9 ;; $QT_BEGIN_LICENSE:LGPL$ |
|
10 ;; No Commercial Usage |
|
11 ;; This file contains pre-release code and may not be distributed. |
|
12 ;; You may use this file in accordance with the terms and conditions |
|
13 ;; contained in the Technology Preview License Agreement accompanying |
|
14 ;; this package. |
|
15 ;; |
|
16 ;; GNU Lesser General Public License Usage |
|
17 ;; Alternatively, this file may be used under the terms of the GNU Lesser |
|
18 ;; General Public License version 2.1 as published by the Free Software |
|
19 ;; Foundation and appearing in the file LICENSE.LGPL included in the |
|
20 ;; packaging of this file. Please review the following information to |
|
21 ;; ensure the GNU Lesser General Public License version 2.1 requirements |
|
22 ;; will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html. |
|
23 ;; |
|
24 ;; In addition, as a special exception, Nokia gives you certain additional |
|
25 ;; rights. These rights are described in the Nokia Qt LGPL Exception |
|
26 ;; version 1.1, included in the file LGPL_EXCEPTION.txt in this package. |
|
27 ;; |
|
28 ;; If you have questions regarding the use of this file, please contact |
|
29 ;; Nokia at qt-info@nokia.com. |
|
30 ;; |
|
31 ;; |
|
32 ;; |
|
33 ;; |
|
34 ;; |
|
35 ;; |
|
36 ;; |
|
37 ;; |
|
38 ;; $QT_END_LICENSE$ |
|
39 ;; |
|
40 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
41 !ifndef LIST_INCLUDE |
|
42 !define LIST_INCLUDE |
|
43 |
|
44 ; usage: |
|
45 ; push item |
|
46 ; push list |
|
47 ; call ItemInList |
|
48 ; returns 1 or 0 |
|
49 !macro ItemInList UN |
|
50 Function ${UN}ItemInList |
|
51 exch $0 ;list |
|
52 exch |
|
53 exch $1 ;item |
|
54 push $2 ;counter |
|
55 push $3 ;substr |
|
56 push $4 ;char |
|
57 |
|
58 strcpy $3 "" |
|
59 strcpy $2 "0" |
|
60 |
|
61 loop: |
|
62 strcpy $4 $0 1 $2 |
|
63 strcmp "$4" "" atend |
|
64 intop $2 $2 + 1 |
|
65 |
|
66 strcmp "$4" "|" 0 +4 |
|
67 strcmp "$3" "$1" found |
|
68 strcpy $3 "" ;reset substr |
|
69 goto +2 |
|
70 strcpy $3 "$3$4" ;append char to substr |
|
71 goto loop |
|
72 |
|
73 found: |
|
74 strcpy $0 "1" |
|
75 goto done |
|
76 |
|
77 atend: |
|
78 strcmp "$3" "$1" found |
|
79 strcpy $0 "0" |
|
80 |
|
81 done: |
|
82 pop $4 |
|
83 pop $3 |
|
84 pop $2 |
|
85 pop $1 |
|
86 exch $0 |
|
87 FunctionEnd |
|
88 !macroend |
|
89 |
|
90 !insertmacro ItemInList "" |
|
91 !insertmacro ItemInList "un." |
|
92 |
|
93 Function GetItemInList |
|
94 exch $0 ;list |
|
95 exch |
|
96 exch $1 ;index |
|
97 push $2 ;counter |
|
98 push $3 ;substr |
|
99 push $4 ;char |
|
100 push $5 ;current index |
|
101 |
|
102 strcpy $3 "" |
|
103 strcpy $2 "0" |
|
104 strcpy $5 "1" |
|
105 |
|
106 loop: |
|
107 strcpy $4 $0 1 $2 |
|
108 strcmp "$4" "" atend |
|
109 intop $2 $2 + 1 |
|
110 |
|
111 strcmp "$4" "|" 0 +5 |
|
112 strcmp "$5" "$1" found |
|
113 strcpy $3 "" ;reset substr |
|
114 intop $5 $5 + 1 |
|
115 goto +2 |
|
116 strcpy $3 "$3$4" ;append char to substr |
|
117 goto loop |
|
118 |
|
119 found: |
|
120 strcpy $0 "$3" |
|
121 goto done |
|
122 |
|
123 atend: |
|
124 strcmp "$5" "$1" found |
|
125 strcpy $0 "" |
|
126 |
|
127 done: |
|
128 pop $5 |
|
129 pop $4 |
|
130 pop $3 |
|
131 pop $2 |
|
132 pop $1 |
|
133 exch $0 |
|
134 FunctionEnd |
|
135 |
|
136 !endif ;LIST_INCLUDE |