Welcome to the MacNN Forums.

Synotic · Aug 1, 2001, 08:35 PM

Can anyone tell me if this Scripting Addition exists or if someone could develop it..? I want something that can calculate strings. Like:

set theStringToCalc to "1+2-3*32*3+/2342+-32"
calculate theStringToCalc

I mean I know AppleScript can calculate things nativly... but not this can anyone help?

acur128 · Aug 2, 2001, 12:37 AM

applescript should be able to handle any basic math function (+,-,/,*,^ (powers)) no matter the complexity of the string without a third party scripting addition so long as the string's set up/defined to generate the correct result. so something like this should work fine:<BLOCKQUOTE>code:<HR><pre>set theStringToCalc to 2 ^ 11 + (2 - (-399 * (27 / (7 * 33))) / 787) - (23875 + 5431 / 33) ^ 0.5 + (9000 * 79) / 5500
-- 2024.284974232783
set roundstring to round theStringToCalc rounding as taught in school
-- 2024[/code]
if you need more than basic functionality (trig functions, complex conversions, etc...), you could either define the function within the script using the basic functions if possible, or try some of the data/math scripting additions at Macscripter.net's fairly comprehensive Scripting Additions section.

Synotic · Aug 2, 2001, 05:30 AM

Originally posted by acur128:
applescript should be able to handle any basic math function (+,-,/,*,^ (powers)) no matter the complexity of the string without a third party scripting addition so long as the string's set up/defined to generate the correct result.

Yes.. but as I said I know it can calculate stuff nativly but not strings. Strings have quotes around them.. *This* will be what I have to work with: "1+2-3*4/234"
Not: 1 + 2 - 3 * 4 / 234

How can I calculate what I have to work with without getting too complex?

set stringToCalc to "1+1*2342-24+242+24324/24242"

Now I just need to calculate it... If you can find a way to easily do something with stringToCalc then please show me.

Camelot · Aug 2, 2001, 02:14 PM

I don't know of any Scripting Addition that will do this, but here's a pure AppleScript solution that will do.

It's not all that fast, but it does appear to work. It probably needs some error checking added to trap invalid strings (e.g. contains characters other than /, *, -, +, or 0-9) or dual operands (e.g. 10-+2), but I'll leave that to you.

it simply breaks the supplied string into parts at the "/", "*", "+", and "-" characters, based on operand priority of Division, Multiplication, Addition and Subtraction. It then tries to perform the required operation on the two parts of the string, checking that each part of the string is a valid number. If either side isn't a valid number it breaks the string down again, and again until two numbers are obtained.

The code is pretty well commented, so you should be able to follow it.

Argh!

After NUMEROUS attempts at pasting the code into this board, and having UBB trash it every time, I've created a web page containing the code.

Anyone successfully added AppleScript code to a UBB board without it getting munged?

[ 08-02-2001: Message edited by: Camelot ]

Synotic · Aug 2, 2001, 06:29 PM

<BLOCKQUOTE>code:<HR><pre>
-- These properties specify the possible actions to take.
-- To add other functions, such as exponention, define it here
-- and add a handler in the DoCalc() and ParseStr() functions.

property doDivide : "/"
property doMultiply : "*"
property doAdd : "+"
property doSubtract : "-"

-- here's our string
set stringToCalc to "1+1"

set theResult to parseStr(stringToCalc)
get ((stringToCalc & " = " & theResult) as string)

on doCalc(operation, num1, num2)

-- This function takes an operation and two numbers or strings and calculates the result.

set operand1 to 0
set operand2 to 0

-- Parse the first num to decide if it's a string or a number we can work with

-- Assume we don't have a number
set gotOp1 to false

-- and keep going until we do

repeat until gotOp1 is true

try

-- see if AppleScript can type the parameter to a number
set operand1 to num1 as number

-- if we get here we have a number
set gotOp1 to true

on error
-- if we get here we have a string, so parse the string out again
set num1 to parseStr(num1 as string)
end try
end repeat

-- now, repeat the entire process again for the second operand
set gotOp2 to false

repeat until gotOp2 is true
try

set operand2 to num2 as number
set gotOp2 to true

on error
set num2 to parseStr(num2 as string)
end try
end repeat

-- by the time we get here, we have two numbers (operand1 and operand2)
-- so we can perform the calculation based on the operation parameter

if operation = doDivide then
set theResult to operand1 / operand2
else if operation = doMultiply then
set theResult to operand1 * operand2
else if operation = doAdd then
set theResult to operand1 + operand2
else if operation = doSubtract then
set theResult to operand1 - operand2
else
set theResult to 0
end if

return theResult

end doCalc

on parseStr(theStr)
-- first check to see if the string can be classed as a number

try
set theNum to theStr as number
-- if we get here, AppleScript can convert theStr to a number, so we don't need to do anything
return theNum
on error
-- if we get here, theStr is, indeed, a string
end try

-- first check for division
if class of theStr is string then
-- see if theStr contains a "/" character
set dividePos to offset of "/" in theStr
if dividePos > 0 then
-- now split the string at the "/" character
set numerator to characters 1 through (dividePos - 1) of theStr as string
set denominator to characters (dividePos + 1) through -1 of theStr as string
-- and calculate the result
set theResult to doCalc(doDivide, numerator, denominator)
end if
end if

-- now check for multiplication
if class of theStr is string then
set multPos to offset of "*" in theStr
if multPos > 0 then
set num1 to characters 1 through (multPos - 1) of theStr as string
set num2 to characters (multPos + 1) through -1 of theStr as string
set theResult to doCalc(doMultiply, num1, num2)
end if
end if

-- now check for addition
if class of theStr is string then
set addPos to offset of "+" in theStr
if addPos > 0 then
set num1 to characters 1 through (addPos - 1) of theStr as string
set num2 to characters (addPos + 1) through -1 of theStr as string
set theResult to doCalc(doAdd, num1, num2)
end if
end if

-- now check for subtraction
if class of theStr is string then
set subPos to offset of "-" in theStr
if subPos > 0 then
set num1 to characters 1 through (subPos - 1) of theStr as string
set num2 to characters (subPos + 1) through -1 of theStr as string
set theResult to doCalc(doSubtract, num1, num2)
end if
end if

return theResult

end parseStr[/code]

Wow, it works. I didn't exactly want it to return as a dialog but I fixed that

Thanks alot. I'll add a few things and that get it to do what I want. Again, thank you.

synotic@mac.com

Camelot · Aug 2, 2001, 06:51 PM

Wow, I'm kinda bummed that you managed to include the code on the board here, but happy that it works for you.

Maybe it's something in the way OnmiWeb handles returns in forms.

Oh well.

Synotic · Aug 2, 2001, 08:10 PM

Originally posted by Camelot:
Wow, I'm kinda bummed that you managed to include the code on the board here, but happy that it works for you.

Maybe it's something in the way OnmiWeb handles returns in forms.

Oh well.

I added a few things.. i.e. illegal character scanning and stuff... but I couldn't figure out how to allow ()s... Like

(1+1)*2

...Any ideas?

Camelot · Aug 3, 2001, 03:14 AM

Originally posted by Synotic:
I added a few things.. i.e. illegal character scanning and stuff... but I couldn't figure out how to allow ()s... Like

(1+1)*2

...Any ideas?

Add the following code to the parseStr() function, BEFORE the division check.

The idea behind this code is that is looks for ( and ) characters in the string. If it finds any it copies out that substring and calculates the contents. It then rebuilds the string substituting the result of the inner calculation in place of the parentheses.

For example, "(10+2)*(20/4)" processes as:

stringToCalc: "(10+2)*(20/4)"
Get the substring: "10+2"
Calculate substring: "12"
Rebuild theStr: "12*(20/4)"
Get the 2nd parens "20/4"
Calculate subsstring "5"
Rebuild theStr: "12*5"
Calculate: "60"

<sigh> same problems pasting AppleScript code in this board. I've updated my web page with an updated version

The code may fail with nested parentheses, e.g. "(10+2)*(2*(30/5))" since I don't match the open/close parentheses pairs. Some better error checking in the 'offset of ")" in theStr' should solve that problem.

[ 08-03-2001: Message edited by: Camelot ]

[ 08-03-2001: Message edited by: Camelot ]

Camelot · Aug 3, 2001, 03:23 AM

Originally posted by Camelot:


Add the following code to the parseStr() function, BEFORE the division check.

The idea behind this code is that is looks for ( and ) characters in the string. If it finds any it copies out that substring and calculates the contents. It then rebuilds the string substituting the result of the inner calculation in place of the parentheses.

For example, "(10+2)*(20/4)" processes as:

stringToCalc: "(10+2)*(20/4)"
Get the substring: "10+2"
Calculate substring: "12"
Rebuild theStr: "12*(20/4)"
Get the 2nd parens "20/4"
Calculate subsstring "5"
Rebuild theStr: "12*5"
Calculate: "60"

<sigh> same problem with pasting code in this board. I've updated the copy on my web page

The code may fail with nested parentheses, e.g. "(10+2)*(2*(30/5))" since I don't match the open/close parentheses pairs. Some better error checking in the 'offset of ")" in theStr' should solve that problem.

[ 08-03-2001: Message edited by: Camelot ]

Synotic · Aug 3, 2001, 04:23 AM

Did you forget to pay your host? 404...

Camelot · Aug 3, 2001, 01:27 PM

Originally posted by Synotic:
Did you forget to pay your host? 404...

Bummer.. looks like I typoed the URL. Darned case-sensitive UNIX systems.

Try http://home.talkcity.com/InfiniteLoo...ingToCalc.html

Boodlums · Aug 4, 2001, 01:40 AM

Interesting code! However, wouldn't this have been easier?:

set theStringToCalc to "1+2-3*32*3+/2342+-32"
run script theStringToCalc

-boo
noticing that +/ is not a valid operation

Camelot · Aug 4, 2001, 03:02 AM

LOL! That's wonderful. I didn't even think about that one <slaps forehead>!

Oh well, it was an interesting exercise in recursive string parsing, and was fun to do. :-)

Synotic · Aug 4, 2001, 03:44 AM

Originally posted by Boodlums:
Interesting code! However, wouldn't this have been easier?:

set theStringToCalc to "1+2-3*32*3+/2342+-32"
run script theStringToCalc

-boo
noticing that +/ is not a valid operation

lol, well that is much easier. Oh well. BTW, I am also working on this... but am having troubles.. can anyone help?

<BLOCKQUOTE>code:<HR><pre>property HipScriptBangCommandList : {"!roulette"}

on bangcommand(isPrivate, con, source, target, argString, thecmd, theargs)
tell application "ircle"
if thecmd is "!roulette" and target is not "#macintosh" then
set theNumber to item 1 of theargs as number
set theColor to item 2 of theargs
set theBet to item 3 of theargs
set newBet to (hipTranslateSubstrings theBet replacing any of {",", "$"} with corresponding {"", ""}) as number
set randNumb to 3
set randBlackRed to "red"
set theMoney to 500
if newBet is less than 50 then
type "Sorry, we have a minimum bet of 50 dollars here." in channel target of connection con
else
if the newBet is greater than theMoney then
type "Sorry " & source & ", you don't have that much money. You only have 500 dollars."
else
type "The ball runs around the table...." in channel target of connection con
if randNumb = theNumber then
if randBlackRed = theColor then
InputIn("1", target, "/delay qadd qexec 1 Congratulations " & source & ", you are our new winner! " & randNumb & " " & randBlackRed & ", " & "you won " & newBet & " " & "dollars!")
else
InputIn(con, target, "/delay qadd qexec 1 Sorry the number was " & randNumb & " " & randBlackRed & " you lost " & newBet & " & dollars.")
end if
else
InputIn(con, target, "/delay qadd qexec 1 Sorry the number was " & randNumb & " " & randBlackRed & " you lost " & newBet & " dollars.")
end if
end if
end if
end if
end tell
return false
end bangcommand[/code]

Camelot · Aug 4, 2001, 01:59 PM

Originally posted by Synotic:
[QB]lol, well that is much easier. Oh well. BTW, I am also working on this... but am having troubles.. can anyone help?

Maybe if you could be explicit as to what problems you're having I might be able to help.

Clearly the script compiles OK, so syntactically it is correct. Without knowing the goal or what makes you say it isn't working, though, it's almost impossible to identify the fault.

Synotic · Aug 4, 2001, 05:28 PM

Yeah.. I know it compiles.. but it just doesn't work. Here is what I'll tyoe in ircle:

!roulette 3 red $340

Then it'll do:

The ball runs around the table...
(1 second delay)
Sorry, the number was 3 red. You lost 340 dollars.

I mean I put like <BLOCKQUOTE>code:<HR><pre>if randColor is equal to theColor[/code] and it just won't match up.. I tried other veriations.. like: if randColor = theColor or if randColor is theColor.. I just don't know what is wrong....

Camelot · Aug 5, 2001, 02:31 PM

Well, it appears to work fine here, which leads to two possible places where the script could be failing.

Firstly, I don't have hipscript installed, so I commented out that line, making sure I passed in a pure string (e.g. "500") rather than "$500"). So there could be a problem with how you're calling HipScript.

The second possibility is that you're passing the wrong arguments into the script, which is impossible for me to tell since I don't have the rest of your source. One thing I do notice is that you have two parameters that appear to relate to the same thing... argString and theArgs.

I'm guessing that argString contains the whole text as entered in the input window in ircle. However, you totally ignore this parameter in the code.
You *are* passing theArgs as a list, right, and not as a string?

Since you "set theColor to item 2 of theArgs", this will only get 'red' if theArgs is a list like {3, "red", 500}. If theArgs is a string "3 red 500", then item 2 of theArgs will be the second character, i.e. a space, which won't match the randBlackRed variable later in the script.

So, have a look at where you're calling bangcommand() and check if you're passing in a list or a string.

Secondly, the easiest way to test ircle scripts like this is outside of ircle. If you copy the bangcommand() procedure to a new script then add:

<BLOCKQUOTE>code:<HR><pre>
bangcommand(1, 1, "noone", "#here", "3 red 500", "!roulette", {"3", "red", "500"})[/code]

You can run the entire script in your Script Editor which makes life a little easier. Once fixed, you can copy the procedure back into your ircle script.

Synotic · Aug 5, 2001, 10:05 PM

Well, it appears to work fine here, which leads to two possible places where the script could be failing.

Firstly, I don't have hipscript installed, so I commented out that line, making sure I passed in a pure string (e.g. "500") rather than "$500"). So there could be a problem with how you're calling HipScript.
>> I fixed the money problem already..

The second possibility is that you're passing the wrong arguments into the script, which is impossible for me to tell since I don't have the rest of your source. One thing I do notice is that you have two parameters that appear to relate to the same thing... argString and theArgs.

I'm guessing that argString contains the whole text as entered in the input window in ircle. However, you totally ignore this parameter in the code.
You *are* passing theArgs as a list, right, and not as a string?

>>theargs is everything AFTER the !roulette part as a list:
>>So here is the string: !roulette 3 red 400

>>theargs is {"3", "red", "400"}

Since you "set theColor to item 2 of theArgs", this will only get 'red' if theArgs is a list like {3, "red", 500}.
>>Yep, that is how it works.

If theArgs is a string "3 red 500", then item 2 of theArgs will be the second character, i.e. a space, which won't match the randBlackRed variable later in the script.
>>Nope, read above.

So, have a look at where you're calling bangcommand() and check if you're passing in a list or a string.

Secondly, the easiest way to test ircle scripts like this is outside of ircle. If you copy the bangcommand() procedure to a new script then add:

code:
------------------------------------------------------------------------

bangcommand(1, 1, "noone", "#here", "3 red 500", "!roulette", {"3", "red", "500"})
------------------------------------------------------------------------

You can run the entire script in your Script Editor which makes life a little easier. Once fixed, you can copy the procedure back into your ircle script.

>>Bang commands are part of scripting for HipScript. Like.. you add a list of all the commands:

hipBangCommands : {"!roulette", "!money"} whatever..

and then you'll do like, if thecmd is "!roulette" then

I don't think that I can edit this handler because it is called upon HipScript. I am making a plugin for HipScript... So if I have the hipBangcommands property then it will search for and any alterations might make it go haywire.. Oh and the hipTranslateSubstrings is from a scripting addition called HipTools. It is for replacing certain items with other items... I know how to do it without a scripting addition but for now it will do.