home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / debug-utils / pv / s / powervisor-startup < prev   
Encoding:
Text File  |  1992-11-02  |  2.0 KB  |  54 lines
  1. alias lfd 'loadfd [] fd:[]_lib.fd'
  2. alias mstack '{rwin 1;r 5 {home;d getstack()};stack []}'
  3. alias at 'attach [1] co([2]) qu([3]) e'
  4. alias fdebug 'script db'
  5. alias opwin '{-openpw [] 0 0 300 200;-openlw [] [] 80 40}'
  6. alias salias '{print \\({_fl={pv 48 \·Å[]Å}},%s)\\0a;v free(_fl);remvar _fl}'
  7. alias cm 'm lastmem() []'
  8. alias cv 'view lastmem() []'
  9. alias cu 'u lastmem() []'
  10. alias why 'help e\\(error)'
  11. alias bin8 'print \\(([])>>7&1)\\(([])>>6&1)\\(([])>>5&1)\\(([])>>4&1)\\(([])>>3&1)\\(([])>>2&1)\\(([])>>1&1)\\(([])&1)'
  12. alias bin '{bin8 ([])>>8;bin8 ([]);print \\0a}'
  13. alias asm 'rx s:pv/assem []'
  14. alias cmd 'rx s:pv/cmd []'
  15. alias index 'rx s:pv/searchkeyword'
  16. alias cmdhelp 'rx \'options results;pubscreen;address command "amigaguide pv:docs/CommandRef.guide screen="result" doc=[]"\''
  17. alias funhelp 'rx \'options results;pubscreen;address command "amigaguide pv:docs/Functions.guide screen="result" doc=[]"\''
  18. alias mhelp 'rx \'options results;pubscreen;address command "multiview pv:docs/PowerVisor.guide pubscreen="result\''
  19. alias ahelp 'rx \'options results;pubscreen;address command "amigaguide pv:docs/PowerVisor.guide screen="result\''
  20.  
  21. -lfd exec
  22. -lfd dos
  23. -lfd intuition
  24. -lfd graphics
  25. attach 'list' $50 0 e
  26. attach 'cls' $51 0 e
  27. attach 'task' $55 0 e
  28. attach 'libs' $56 0 e
  29. attach 'devs' $57 0 e
  30. attach 'port' $58 0 e
  31. attach 'wins' $59 0 e
  32. print '\0aThe 4 major fd-files are loaded\0a\0a'
  33. print 'Keys defined in startup file :\0a'
  34. print '  <shift>+<up> to search in history buffer\0a'
  35. print '  <right-alt>+\'h\' to check brackets in stringgadget\0a'
  36. print '  <f1> list current list\0a'
  37. print '  <f2> to clear the current logical window\0a'
  38. print '  <f6> tasks, <f7> libs, <f8> devs, <f9> ports, <f10> windows\0a\0a'
  39.  
  40. ;Make two new functions, 'co' and 'qu'
  41. pvcall 0 co {-resident s:pv/GetCode}
  42. pvcall 0 qu {-resident s:pv/GetQual}
  43.  
  44. ;Assign the Right-shift up key to a searchhistory macro
  45. ;Assign the Left-shift up key to the same macro
  46. _a={-resident s:pv/SearchHist}
  47. at 'go \(_a)' up lshift
  48. at 'go \(_a)' up rshift
  49. remvar _a
  50.  
  51. attach 'go \({-resident s:pv/CheckBrackets})' $25 qu(ralt) e
  52.  
  53.  
  54.