home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 March / CMCD0304.ISO / Software / Freeware / Programare / nullsoft / nsis20.exe / Contrib / Math / math.nsi next >
Encoding:
Text File  |  2003-09-15  |  1.4 KB  |  40 lines
  1. ; This is just an example of Math plugin
  2. ; 
  3. ; (c) brainsucker, 2002
  4. ; (r) BSForce
  5.  
  6. Name "Math Plugin Example"
  7. OutFile "math.exe"
  8. SetPluginUnload  alwaysoff
  9. ShowInstDetails show
  10. XPStyle on
  11.  
  12. Section "ThisNameIsIgnoredSoWhyBother?"
  13.     Math::Script 'SaR(s,fa,ra, i,f,r,e,p) (i=0;#{i<l(fa),e=l(f=fa[i]);r=ra[i];p=0;#{p<l(s),#[s[p,p+e-1]==f,s=(s[,p-1])+r+(s[p+e,]);p+=l(r), p++]}; i++}; s);'
  14.     Math::Script "TQ(s) (s = s(NS); #[s[0]=='$\"',s=s[1,]]; #[s[-1]=='$\"',s=s[,-2]]; NS = s)"
  15.     Math::Script "P(s,e, p,i) (p=-1;i=0; #{(i<l(s))&&(p<0), #[s[i,i+l(e)-1]==e, p=i]; i++}; p)"
  16.     Math::Script "DL(s) (s=s(NS); p=P(s,'\r\n'); #[p>=0, (NS=s[p+4,]; NS=#[p>0,s[,p-1],'']), (NS='';NS=s)])"
  17.  
  18.     Math::Script "a = 'Hello \r\n World \r\n!!!'; a = SaR(a,{'\r','\n'},{'$\r','$\n'}); R0 = a"
  19.     Math::Script "NS = '$\"In quotes$\"'; TQ(); R1=NS; R3=P(s(R1),'qu')"
  20.     Math::Script "NS = 'No quotes'; TQ(); R2=NS"
  21.     Math::Script "NS='123\r\n456\r\n789'; DL(); R4=NS; DL(); R5=NS; DL(); R6=NS; R7=NS"
  22.  
  23.  
  24.     DetailPrint "'$R0'"
  25.     DetailPrint "'$R1'"
  26.     DetailPrint "'$R2'"
  27.     DetailPrint "'$R3'"
  28.     DetailPrint "'$R4'"
  29.     DetailPrint "'$R5'"
  30.     DetailPrint "'$R6'"
  31.     DetailPrint "'$R7'"
  32.  
  33.     ; last plugin call must not have /NOUNLOAD so NSIS will be able to delete the temporary DLL
  34.     SetPluginUnload manual
  35.     ; do nothing
  36.     Math::Script ""
  37. SectionEnd 
  38.  
  39. ; eof
  40.