summaryrefslogtreecommitdiff
path: root/src/3rdparty/squirrel/samples/metamethods.nut
diff options
context:
space:
mode:
Diffstat (limited to 'src/3rdparty/squirrel/samples/metamethods.nut')
-rw-r--r--src/3rdparty/squirrel/samples/metamethods.nut115
1 files changed, 0 insertions, 115 deletions
diff --git a/src/3rdparty/squirrel/samples/metamethods.nut b/src/3rdparty/squirrel/samples/metamethods.nut
deleted file mode 100644
index 53439520e..000000000
--- a/src/3rdparty/squirrel/samples/metamethods.nut
+++ /dev/null
@@ -1,115 +0,0 @@
-
-local base_vec={
- function _add(n)
- {
- return {
- x=x+n.x,
- y=y+n.y,
- z=z+n.z,
- }
- }
- function _sub(n)
- {
- return {
- x=x-n.x,
- y=y-n.y,
- z=z-n.z,
- }
- }
- function _div(n)
- {
- return {
- x=x/n.x,
- y=y/n.y,
- z=z/n.z,
- }
- }
- function _mul(n)
- {
- return {
- x=x*n.x,
- y=y*n.y,
- z=z*n.z,
- }
- }
- function _modulo(n)
- {
- return {
- x=x%n,
- y=y%n,
- z=z%n,
- }
- }
- function _typeof() {return "vector";}
- function _get(key)
- {
- if(key==100)
- {
- return test_field;
- }
- },
- function _set(key,val)
- {
- ::print("key = "+key+"\n");
- ::print("val = "+val+"\n")
- if(key==100)
- {
- return test_field=val;
- }
- }
- test_field="nothing"
-}
-
-function vector(_x,_y,_z):(base_vec)
-{
- return delegate base_vec : {x=_x,y=_y,z=_z }
-}
-////////////////////////////////////////////////////////////
-
-local v1=vector(1.5,2.5,3.5);
-local v2=vector(1.5,2.5,3.5);
-
-local r=v1+v2;
-
-
-foreach(i,val in r)
-{
- print(i+" = "+val+"\n");
-}
-
-r=v1*v2;
-
-foreach(i,val in r)
-{
- print(i+" = "+val+"\n");
-}
-
-r=v1/v2;
-
-foreach(i,val in r)
-{
- print(i+" = "+val+"\n");
-}
-
-r=v1-v2;
-
-foreach(i,val in r)
-{
- print(i+" = "+val+"\n");
-}
-
-r=v1%2;
-
-foreach(i,val in r)
-{
- print(i+" = "+val+"\n");
-}
-
-print(v1[100]+"\n");
-v1[100]="set SUCCEEDED";
-print(v1[100]+"\n");
-
-if(typeof v1=="vector")
- print("<SUCCEEDED>\n");
-else
- print("<FAILED>\n");