UNIX SHELL PROMPT # FULLCMD=/opt/ASPLv1.00/bin/aspl SIGNALS ASPL:1 > attributesABOUT THIS COMMAND: display the attributes11:13:12 root@vienna /public/teeaspl/SIGNALS aspl:1 > attributes attr\descriptor elf |desc |type |default |convr |convformat |rawformat |lconvformat |lrawformat |trawformat | ================|====================|=============|=============|=============|=============|=============|=============|=============|=============| 1 fosc1 fosc1 |the attribute fosc1 |tie | | |%+8s %+17s |%+8s %+17s |%s=%s |%s=%s |%-3s | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ 2 fosc2 fosc2 |the attribute fosc2 |tie | | |%+8s %+17s |%+8s %+17s |%s=%s |%s=%s |%-3s | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ 3 fx fx |the attribute fx |int |123 | |%+8s %+3s |%+8s %+3s |%s=%s |%s=%s |%-3s | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ 4 mtime mtime |element modification|int |0 |(CODE) |%+8s %+11s(%|%+8s %+11s |%s=%+11s(%19s|%s=%s |%+11s(%-19s) | | time | | | |19s) | |) | | | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ 5 aelm aelm |auxiliary attribute |string | | |%+8s %+32s |%+8s %+32s |%s=%s |%s=%s |%-32s | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ 6 chksum chksum |chksum |int |1 | |%+8s %+13s |%+8s %+13s |%s=%s |%s=%s |%-13s | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ 7 entropy entropy |entropy attribute |float |0.0 | |%+8s %+5s |%+8s %+5s |%s=%s |%s=%s |%-5s | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ 8 ppdd ppdd |grp1 name of element|string | | |%+8s %+32s |%+8s %+32s |%s=%s |%s=%s |%-8s | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ 9 ffl ffl |folded name of subgr|string | | |%+8s %+32s |%+8s %+32s |%s=%s |%s=%s |%-8s | |oup and element | | | | | | | | | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ 10 dosi dosi |doc similarity measu|float |0.0 | |%+8s %+32s |%+8s %+32s |%s=%s |%s=%s |%-8s | |re | | | | | | | | | ----------------+--------------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+-------------+ ASPL:2 > egCwhoamiABOUT THIS COMMAND: ping the element grouping class11:13:28 root@vienna /public/teeaspl/SIGNALS aspl:2 > egCwhoami >>>>>>>>>>>>>I AM OSCILLATORSGROUP<<<<<<<<<<<<< being called here at proc_sub_whoami BRIDGE=/opt/ASPLv1.00/BRIDGE ASPL1_00_BRIDGE=/opt/ASPLv1.00/BRIDGE ASPL1_00_HOME=/opt/ASPLv1.00 ASPL/Groupings/Elements/OSCILLATORSGROUP/Enode.pm /opt/ASPLv1.00/BRIDGE/ASPL/Groupings/Elements/OSCILLATORSGROUP/Enode.pm ASPL::Groupings::Elements::OSCILLATORSGROUP::Enode LINE#9 caller: ASPL::Groupings::Helper::Enode ASPL::Groupings::Elements::OSCILLATORSGROUP::Enode LINE#18 caller: ASPL::Groupings::Elements zisFn0=ASPL::Groupings::Elements::OSCILLATORSGROUP::Enode::proc_sub_whoami zisFn=ASPL::Groupings::Elements::OSCILLATORSGROUP::Enode::__ANON__ self=ASPL::Groupings::Elements::OSCILLATORSGROUP::Enode=HASH(0x5627a44ce0d0) arg= Ksumatt= ARRAY(0x5627a44ce2f8) = fosc1 fosc2 fx chksum ppdd ffl aelm Bnode= ARRAY(0x5627a43a4c08) = fosc1 fosc2 fx mtime aelm Enode= ARRAY(0x5627a40991b8) = fosc1 fosc2 fx mtime aelm chksum entropy ppdd ffl dosi confess = 0 ASPL:3 > ~feederABOUT THIS COMMAND: tilde command to change directory to the location of the feeder class11:13:31 root@vienna /public/teeaspl/SIGNALS aspl:3 > ~feeder /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP/Feeder ASPL:4 > tree /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUPABOUT THIS COMMAND: print tree structure under /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP to show the tie directory structure11:13:37 root@vienna /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP/Feeder aspl:4 > tree /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP |-- Feeder | |-- Udev.pm | `-- Udev.pm~stub |-- TieScaAttDev.pm |-- TiSCA_fosc1.pm `-- TiSCA_fosc2.pm 1 directory, 5 files ASPL:5 > llABOUT THIS COMMAND: list files in current directory11:13:59 root@vienna /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP/Feeder aspl:5 > ll total 8 -rw-r--r-- 1 root root 950 Oct 25 10:25 Udev.pm -rw-r--r-- 1 root root 576 Oct 25 10:36 Udev.pm~stub /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP/Feeder ASPL:6 > numln Udev.pmABOUT THIS COMMAND: print file Udev.pm11:14:5 root@vienna /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP/Feeder aspl:6 > numln Udev.pm 1. package ASPL::GGs::OSCILLATORSGROUP::Feeder::Udev; 2. 3. use strict; 4. use base 'Exporter'; 5. our @EXPORT_OK = (qw(initUdev getDevFeed_fosc1 getDevFeed_fosc2)); 6. 7. my $M_PI = 3.14159265358979323846264338328; # pi 8. my $POINTS = 1000; 9. my ($START,$END) = (0, 2*$M_PI); 10. my $INC = sprintf "%.5f", $END / $POINTS; 11. 12. my $INC_OSCI1 = -1 * $INC; 13. my $INC_OSCI2 = -1 * $INC; 14. 15. sub initUdev { 16. my ($class,$points,$cycles) = @_; 17. $POINTS=$points; 18. ($START,$END) = (0, $cycles * 2 * $M_PI); 19. $INC = round($END / $POINTS, 5); 20. $INC_OSCI1 = -1 * $INC; 21. $INC_OSCI2 = -1 * $INC; 22. } 23. 24. sub getDevFeed_fosc1 { 25. $INC_OSCI1 += $INC; 26. return sprintf "%f", sin($INC_OSCI1); 27. } 28. 29. sub getDevFeed_fosc2 { 30. $INC_OSCI2 += $INC; 31. return sprintf "%f", cos($INC_OSCI2); 32. } 33. 34. sub round { 35. my ($real, $decimals) = @_; 36. my $abs = abs $real; 37. my $val = substr($abs + ('0.' . '0' x $decimals . '5'), 38. 0, length(int($abs)) + (($decimals > 0) ? $decimals + 1 : 0) 39. ); 40. ($real < 0) ? "-" . $val : $val; 41. } 42. 43. 1; 44. ASPL:7 > cd /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUPABOUT THIS COMMAND:11:14:41 root@vienna /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP/Feeder aspl:7 > cd /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP pwd: /public/teeaspl/SIGNALS cwd: /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP ASPL:8 > llABOUT THIS COMMAND:11:14:58 root@vienna /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP aspl:8 > ll total 16 drwxr-xr-x 2 root root 4096 Oct 25 10:37 Feeder -rw-r--r-- 1 root root 1111 Oct 25 10:33 TieScaAttDev.pm -rw-r--r-- 1 root root 615 Aug 14 2023 TiSCA_fosc1.pm -rw-r--r-- 1 root root 615 Aug 14 2023 TiSCA_fosc2.pm /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP ASPL:9 > numln TiSCA_fosc1.pmABOUT THIS COMMAND: print TiSCA_fosc1.pm11:15:5 root@vienna /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP aspl:9 > numln TiSCA_fosc1.pm 1. package ASPL::GGs::OSCILLATORSGROUP::TiSCA_fosc1; 2. use strict; 3. use warnings; 4. 5. use ASPL::GGs::OSCILLATORSGROUP::Feeder::Udev qw(getDevFeed_fosc1); 6. my $vb = 0; 7. 8. sub TIESCALAR { 9. my($class,$verbaTie) = @_; 10. $verbaTie //= 0; 11. $vb = $verbaTie; 12. my $self = 0; 13. $vb && print "fosc1// Tying scalar to $class\n"; 14. bless \$self, $class; 15. } 16. 17. # reads value of variable 18. sub FETCH { 19. my($self) = $_[0]; 20. $$self = getDevFeed_fosc1(); 21. $vb && print "fosc1// Scalar FETCH $$self\n"; 22. return $$self; 23. } 24. # stores data 25. sub STORE { 26. my($self, $val) = @_; 27. $$self = $val; 28. $vb && print "fosc1// Scalar STORE $val\n"; 29. return $$self; 30. } 31. 32. 1; 33. ASPL:10 > ggls ggoscillators()ABOUT THIS COMMAND: print the global grouping class ggoscillators()11:15:12 root@vienna /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP aspl:10 > ggls ggoscillators() FUNCTION: ggoscillators DESCRIPTION: ggoscillatorsdic gather the data from oscillators EXAMPLE: This ggoscillators() is used along the OSCILLATINGGROUP to gather the data of two oscillating functions: fosc1 and fosc2. ggoscillators() creates a group of elements containing the oscillating data. Examples: ggoscillators(fonames,fosc1 fosc2,cycles,1,points,1000) ggoscillators(fonames,fosc1 fosc2,cycles,2,points,3000) ARGUMENTS: The function arguments are specified in pairs, with the left side being the argument attribute and the right side being its value. fonames a pair of attribute names, these are specifically: fosc1 fosc2 cycles number of cycles points total points GROUPINGCLASS: OSCILLATORSGROUP BRIEFCALL: ggoscillators(fonames,fosc1 fosc2,cycles,3,points,3000) HOWTO CALL FROM ASPL: points,1000 ASPL:11 > quitABOUT THIS COMMAND: quit.. sweet!11:15:54 root@vienna /opt/ASPLv1.00/BRIDGE/ASPL/GGs/OSCILLATORSGROUP aspl:11 > quit quit ASPL