Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
31 halyavin 1 
; command line parsing code for aclock
2 
;
3 
; Copyright (c) 2003 Thomas Mathys
4 
; killer@vantage.ch
5 
;
6 
; This program is free software; you can redistribute it and/or modify
7 
; it under the terms of the GNU General Public License as published by
8 
; the Free Software Foundation; either version 2 of the License, or
9 
; (at your option) any later version.
10 
;
11 
; This program is distributed in the hope that it will be useful,
12 
; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 
; GNU General Public License for more details.
15 
;
16 
; You should have received a copy of the GNU General Public License
17 
; along with this program; if not, write to the Free Software
18 
; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19 
;
20 
%ifndef _CMDLINE_INC
21 
%define _CMDLINE_INC
22 
 
23 
 
24 
;********************************************************************
25 
;	parse the command line
26 
;	input		:	nothing
27 
;	output		:	wndXPos, wndYPos, wndWidth, wndHeight
28 
;				are changed.
29 
;	destroys	:	nothing
30 
;********************************************************************
31 
parseCommandLine:
32 
	pushad
33 
	pushfd
34 
 
35 
	; terminate command line, just to be sure
36 
	mov	byte [cmdLine + 256],0
37 
 
38 
	; go through all tokens
39 
	mov	eax,cmdLine		; eax -> command line
40 
.parseloop:
41 
	mov	ebx,delimiters		; ebx -> token delimiter list
42 
	call	strtok			; get next parameter
43 
	or	eax,eax			; no more parameters ?
44 
	jz	.nomoretokens
45 
	mov	cl,[eax]		; get 1st char of parameter
46 
	cmp	cl,'x'			; which parameter is it ?
47 
	je	.param_x
48 
	cmp	cl,'y'
49 
	je	.param_y
50 
	cmp	cl,'w'
51 
	je	.param_w
52 
	cmp	cl,'h'
53 
	je	.param_h
54 
	; if we reach this line it's an unknown parameter, ignore it
55 
.nextparam:
56 
	xor	eax,eax			; set eax = 0 to continue
57 
	jmp	.parseloop		; after last token.
58 
.nomoretokens:
59 
	DBG_BOARD_PRINTDWORD [wndXPos]
60 
	DBG_BOARD_PRINTCHAR 32
61 
	DBG_BOARD_PRINTDWORD [wndYPos]
62 
	DBG_BOARD_PRINTCHAR 32
63 
	DBG_BOARD_PRINTDWORD [wndWidth]
64 
	DBG_BOARD_PRINTCHAR 32
65 
	DBG_BOARD_PRINTDWORD [wndHeight]
66 
	DBG_BOARD_PRINTNEWLINE
67 
	popfd
68 
	popad
69 
	ret
70 
 
71 
	; eax -> first character of the parameter
72 
.param_x:
73 
	push	eax
74 
	call	parsePositionParam
75 
	mov	[wndXPos],eax
76 
	pop	eax
77 
	jmp	.nextparam
78 
 
79 
	; eax -> first character of the parameter
80 
.param_y:
81 
	push	eax
82 
	call	parsePositionParam
83 
	mov	[wndYPos],eax
84 
	pop	eax
85 
	jmp	.nextparam
86 
 
87 
	; eax -> first character of the parameter
88 
.param_w:
89 
	push	eax
90 
	call	parseSizeParam
91 
	mov	[wndWidth],eax
92 
	pop	eax
93 
	jmp	.nextparam
94 
 
95 
	; eax -> first character of the parameter
96 
.param_h:
97 
	push	eax
98 
	call	parseSizeParam
99 
	mov	[wndHeight],eax
100 
	pop	eax
101 
	jmp	.nextparam
102 
 
103 
; parse position parameter
104 
; input		:	eax = address of first character of parameter
105 
; output	:	eax contains position
106 
; destroys	:	nothing
107 
parsePositionParam:
108 
	push	ebx
109 
	push	esi
110 
	pushfd
111 
 
112 
	; is the second char of the parameter a '-' ?
113 
	inc	eax
114 
	xor	ebx,ebx			; assume it isn't
115 
	cmp	byte [eax],'-'
116 
	jne	.nominus
117 
	mov	ebx,1			; yes -> set flag...
118 
	inc	eax			; ...and move to next char
119 
.nominus:
120 
 
121 
	; convert rest of parameter to doubleword
122 
	mov	esi,eax
123 
	call	string2dword
124 
 
125 
	; negate if necessary
126 
	or	ebx,ebx
127 
	jz	.rotationshyperboloid
128 
	neg	eax
129 
.rotationshyperboloid:
130 
 
131 
	popfd
132 
	pop	esi
133 
	pop	ebx
134 
	ret
135 
 
136 
; parse dimension parameter
137 
; input		:	eax = address of first char of parameter
138 
; output	:	eax contains dimension
139 
; destroys	:	nothing
140 
parseSizeParam:
141 
	push	esi
142 
	pushfd
143 
	lea	esi,[eax + 1]		; esi -> 2nd char of parameter
144 
	call	string2dword
145 
	popfd
146 
	pop	esi
147 
	ret
148 
 
149 
 
150 
%endif
151