GiuseppeChillemi
GiuseppeChillemi
/ gist:738cb29b0491dd3d562cd5baf8749c03
Created
August 18, 2023 17:32
spacepaths.md
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ## Questions on SPACES paths | |
| Please answer with yes/or no | |
| | | Stored as block? | Stored as name + size block? | Stored as path? | Stored as tree path? | Visualized as path? | Visualized as tree path? | returned as path by functions? | returned as tree path by functions? | | |
| | ----------------------------------- | ---------------- | ---------------------------- | --------------- | -------------------- | ------------------- | ------------------------ | ------------------------------ | ----------------------------------- | | |
| | /map facet | | | | | | | | | | |
| | /parent facet | | | | | | | |
GiuseppeChillemi
/ gist:c51a20ef17d4b659671e612800e12e9e
Last active
August 17, 2023 15:41
New SPACE MOLD save test
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| This code: | |
| view [ | |
| host [ | |
| vlist [ | |
| bt: button "Press meee I am space!" | |
| gr: grid-view source= table-data2 size 400x300 on-created [probe gr save %new-mold.txt gr] | |
| with [ |
GiuseppeChillemi
/ testing-find-methods.r
Last active
August 23, 2022 17:05
Testing the speed of various methods
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;Red [] | |
| Rebol [] | |
| find**: func [ | |
| data | |
| column | |
| value | |
| /local | |
| container | |
| out-data |
GiuseppeChillemi
/ sort-by-length
Last active
August 19, 2022 19:19
Sort a series by the length of its elements, from smaller to bigger
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;Red [] | |
| Rebol [] | |
| sort-by-length: func [ | |
| [catch] | |
| "Sort a block by the length of its components from smaller to bigger" | |
| data [block!] "Block of elements" | |
| /safe "Elements type can be mixed" | |
| /reverse "Reverse the order of sorting" | |
| /local |
GiuseppeChillemi
/ Test-DT-Position.r
Last active
August 14, 2022 23:27
Test the difference of speed from having a datatype in a different position
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;Red [] | |
| Rebol [] | |
| recycle/off | |
| ;This code is from Ashley Graham | |
| platform?: case [ | |
| 2 = system/version/1 ['Rebol] | |
| not rebol ['Red] | |
| system/product = 'atronix-view ['Atronix] |
GiuseppeChillemi
/ test-getting.r
Last active
August 15, 2022 00:09
Testing GETTIN Speeds (Now with 8 tests !!!)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;Red [] | |
| Rebol [] | |
| recycle/off | |
| ;This code is from Ashley Graham | |
| platform?: case [ | |
| 2 = system/version/1 ['Rebol] | |
| not rebol ['Red] | |
| system/product = 'atronix-view ['Atronix] |
GiuseppeChillemi
/ gist:043c9c262b0d92e109df846b7db083f9
Created
July 14, 2022 09:27
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --== Red 0.6.4 ==-- | |
| Type HELP for starting information. | |
| >> do %pp.r | |
| actor/open: connection | |
| init-odbc | |
| OPEN-ENVIRONMENT [ | |
| SQLAllocHandle 0 | |
| henv/value = 2158376 | |
| SQLSetEnvAttr 0 |
GiuseppeChillemi
/ miniconsole.r
Last active
July 11, 2022 23:32
Mini script to send a command to a server. It's COMMANDS object is used
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| do %../scripts/send-to.r | |
| port-number: 55551 | |
| server-address: "localhost" | |
| Forever [ | |
| prin "Insert a server command > " message: input | |
| if message = "exit" [Print "!!! Exit Received, quitting !!!" break] | |
| response: send-to server-address port-number message | |
| print "" |
GiuseppeChillemi
/ Test-Server.r
Last active
July 11, 2022 23:34
An experimental server which waits and executes the Rebol commands it receives taking them from a command block
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SERVER-DB: "myserver" | |
| DB: "mydb" | |
| port-number: 55551 | |
| server-address: "localhost" | |
| ;--- These are the commands we could execute |
GiuseppeChillemi
/ send-to.r
Last active
July 11, 2022 22:50
A function to send a command to a server
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| send-to: func [ | |
| "Send a message and returns the response. NONE if no response (TBD:)" | |
| server-address "The address of the server" | |
| port-number [integer!] "The remote port number" | |
| message [String! block!] "The message to send" | |
| /local | |
| out-data ;"The return data" | |
| connection | |
| server |