source: rtems/contrib/mingw/getparameters.nsi @ 598aab1f

4.104.114.84.95
Last change on this file since 598aab1f was 598aab1f, checked in by Chris Johns <chrisj@…>, on Aug 20, 2007 at 2:12:48 AM

2007-08-20 Chris Johns <chisj@…>

  • filewrite.nsi, getparameters.nsi, instance-check.nsi, mingw-path.nsi, sm-dummy.nsi, strslash.nsi, strstr.nsi, options.nsi: Added the shared between the 2 installer scripts.
  • msys-path.nsi: Fixed the last LF bug.
  • rtems-autotools.nsi, rtems-tools.nsi: Fixed the instance check, added a start menu, remove pages from target installers.
  • rtems.ini: Fixed the URL links. Added support link.
  • rtems_logo.bmp: Trimmed a little more to get a better image.
  • ba-wrap.sh: Stop on a error.
  • build-exes.sh: Use the option parameter variables. Change the order the section appear in the installer.
  • Property mode set to 100644
File size: 656 bytes
Line 
1 ; GetParameters
2 ; input, none
3 ; output, top of stack (replaces, with e.g. whatever)
4 ; modifies no other variables.
5 
6Function GetParameters
7 
8  Push $R0
9  Push $R1
10  Push $R2
11  Push $R3
12 
13  StrCpy $R2 1
14  StrLen $R3 $CMDLINE
15 
16  ;Check for quote or space
17  StrCpy $R0 $CMDLINE $R2
18  StrCmp $R0 '"' 0 +3
19    StrCpy $R1 '"'
20    Goto loop
21  StrCpy $R1 " "
22 
23  loop:
24    IntOp $R2 $R2 + 1
25    StrCpy $R0 $CMDLINE 1 $R2
26    StrCmp $R0 $R1 get
27    StrCmp $R2 $R3 get
28    Goto loop
29 
30  get:
31    IntOp $R2 $R2 + 1
32    StrCpy $R0 $CMDLINE 1 $R2
33    StrCmp $R0 " " get
34    StrCpy $R0 $CMDLINE "" $R2
35 
36  Pop $R3
37  Pop $R2
38  Pop $R1
39  Exch $R0
40 
41FunctionEnd
Note: See TracBrowser for help on using the repository browser.