home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d04xx / d0400.lha / ReqLib / reqbase.i < prev    next >
Text File  |  1990-11-03  |  16KB  |  458 lines
  1.  
  2. ; reqlibrary.i (c) 1988/1989 reserved by Colin Fox and Bruce Dawson */
  3.  
  4.     IFND    REQ_LIBRARY_I
  5.  
  6. REQ_LIBRARY_I    SET    1
  7.  
  8.         INCLUDE    "intuition/intuition.i"
  9.  
  10.         INCLUDE    "libraries/dos.i"
  11.         INCLUDE    "libraries/dosextens.i"
  12.  
  13.         INCLUDE    "exec/memory.i"
  14.         INCLUDE    "exec/initializers.i"
  15.         INCLUDE    "exec/alerts.i"
  16.  
  17. ReqVersion    EQU    1
  18.  
  19.  
  20. PairsSize    EQU    20
  21.  
  22.  STRUCTURE    GadgetBlock.,0        ;a boolean button style text gadget
  23.     STRUCT    gb_Gadget,gg_SIZEOF
  24.     STRUCT    gb_Border,bd_SIZEOF
  25.     STRUCT    gb_Pairs,PairsSize
  26.     STRUCT    gb_Text,it_SIZEOF
  27.     LABEL    gb_SIZEOF
  28.  
  29.  STRUCTURE    StringBlock.,0        ;a string gadget
  30.     STRUCT    sb_Gadget,gg_SIZEOF
  31.     STRUCT    sb_Info,si_SIZEOF
  32.     STRUCT    sb_Border,bd_SIZEOF
  33.     STRUCT    sb_Pairs,PairsSize
  34.     LABEL    sb_SIZEOF
  35.  
  36.  STRUCTURE    PropBlock.,0        ;a prop gadget
  37.     STRUCT    pb_Gadget,gg_SIZEOF
  38.     STRUCT    pb_Info,pi_SIZEOF
  39.     STRUCT    pb_Image,ig_SIZEOF
  40.     LABEL    pb_SIZEOF
  41.  
  42.  STRUCTURE    SliderBlock.,0        ;a slider (two arrows & a prop)
  43.     STRUCT    slb_ArrowUpLt,gg_SIZEOF
  44.     STRUCT    slb_ImageUpLt,ig_SIZEOF
  45.     STRUCT    slb_ArrowDnRt,gg_SIZEOF
  46.     STRUCT    slb_ImageDnRt,ig_SIZEOF
  47.     STRUCT    slb_Prop,pb_SIZEOF    ;this is at the end for REFRESH GLIST purposes
  48.     LABEL    slb_SIZEOF
  49.  
  50.  STRUCTURE    TwoImageBlock,0
  51.     STRUCT    tib_Gadget,gg_SIZEOF
  52.     STRUCT    tib_Image1,ig_SIZEOF
  53.     STRUCT    tib_Image2,ig_SIZEOF
  54.     LABEL    tib_SIZEOF
  55.  
  56. ATTITUDEB    EQU    16    ;Bit# of the attitude bit.
  57.  
  58. HorizSlider    EQU    0<<ATTITUDEB    ;which way the slider stands
  59. VertSlider    EQU    1<<ATTITUDEB    ;This is so that it bypasses all gadget flags.
  60.  
  61.  
  62.  
  63. ;         This structure is use with the TextRequester function.
  64.  
  65.  STRUCTURE TRStructure,0
  66.     APTR    TR_Text            ;This is the message text, including printf() style formatting if desired.
  67.     APTR    TR_Controls        ;This is the address of the parameter list, if printf() style formatting is used.
  68.     APTR    TR_Window        ;This is an optional (zero if not used) pointer to a window on the screen you 
  69.                     ;would like the requester to show up on.
  70.     APTR    TR_MiddleText        ;If non-zero, this is the text for the gadget in the lower middle (returns 2).
  71.     APTR    TR_PositiveText        ;If non-zero, this is the text for the gadget in the lower left hand corner (returns 1).
  72.     APTR    TR_NegativeText        ;If non-zero, this is the text for the gadget in the lower right (returns 0).
  73.     APTR    TR_Title        ;This is the title for the window.
  74.     WORD    TR_KeyMask        ;This is the qualifier mask for the keyboard shortcuts.
  75.                     ;Use $FFFF to allow any qualifiers (or none).
  76.                     ;Zero means that no keyboard shortcuts are allowed.
  77.     WORD    TR_textcolor        ;Color of the text.  Uses Color 1 if no Color specified.
  78.     WORD    TR_detailcolor        ;Detail and block color, as in a NewWindow structure.  If
  79.     WORD    TR_blockcolor        ;both are left zero, block pen will be set to 1.
  80.     WORD    TR_versionnumber    ;Make SURE this is set to zero.
  81.     LONG    TR_rfu1            ;Make SURE you leave these two zeroed also.
  82.     LONG    TR_rfu2            ;Make SURE you leave these two zeroed also.
  83.     LABEL    TR_SIZEOF
  84.  
  85. ;/* NOTE:
  86. ;
  87. ;    The  control  values  mentioned above are used if you choose to insert
  88. ;printf  style directives in your strings and should contain the address of
  89. ;a list of control parameters, usually on the stack.
  90. ;    */
  91.  
  92.  
  93.  
  94. ;         This structure is for use with the GetLong function.
  95.  
  96. GLNODEFAULTB    EQU    0    ;Set this bit in the flags if you don't want a default
  97.                 ;value to show up in the get long string gadget.  For
  98.                 ;some things this is much better than having a zero
  99.                 ;show up.
  100.  
  101. GLNODEFAULTM    EQU    1<<GLNODEFAULTB
  102.  
  103.  STRUCTURE    GetLongStruct,0
  104.     APTR    gl_titlebar
  105.     LONG    gl_defaultval
  106.     LONG    gl_minlimit
  107.     LONG    gl_maxlimit
  108.     LONG    gl_result
  109.     APTR    gl_window
  110.     WORD    gl_versionnumber;    ;Make SURE this is set to zero.
  111.     LONG    gl_flags;        ;Some, uh flags.  See above for bit definitions.
  112.     LONG    gl_rfu2;        ;Make SURE you leave these two zeroed also.
  113.     LABEl    gl_SIZEOF
  114.  
  115.  
  116.  
  117. ;         Remember,   if  you  don't  want  to  go  through  the  hassle  of
  118. ; initializing a ExtendedColorRequester structure, you can always just call
  119. ; ColorRequester  (as opposed to ExtendedColorRequester).  ColorRequester
  120. ; just  takes  a  single  parameter, in D0, the color that should start out
  121. ; being highlit.  It returns a single value, the color that was selected at
  122. ; the end.
  123.  
  124. ;         This structure is for use with the ExtendedColorRequester (_not_,
  125. ; the ColorRequester) function.
  126.  
  127.  STRUCTURE    ExtendedColorRequesterStruct,0
  128.     LONG    ecr_defcolor        ;The color that is initially highlit.
  129.     APTR    ecr_window        ;The window the 'requester' opens up in (zero normally).
  130.     LONG    ecr_rfu1            ;Who knows what these will be used for,
  131.     LONG    ecr_rfu2            ;but I'm sure we'll think of something.
  132.     LONG    ecr_rfu3            ;Until then, just keep these zeroed.
  133.     LONG    ecr_rfu4            ;Okay?
  134.     LONG    ecr_rfu5
  135.     LABEL    ecr_SIZEOF
  136.  
  137.  
  138.  
  139.     IFND    DSIZE
  140. DSIZE        EQU    130
  141. FCHARS        EQU    30
  142.     ENDC
  143. WILDLENGTH    EQU    30
  144.  
  145. FRQSHOWINFOB    EQU    0    ;Set this in Flags if you want .info files to show.  They default to hidden.
  146. FRQEXTSELECTB    EQU    1    ;Set this in Flags if you want extended select.  Default is not.
  147. FRQCACHINGB    EQU    2    ;Set this in Flags if you want directory caching.  Default is not.
  148. FRQGETFONTSB    EQU    3    ;Set this in Flags if you want a font requester rather than a file requester.
  149. FRQINFOGADGETB    EQU    4    ;Set this in Flags if you want a hide-info files gadget.
  150. FRQHIDEWILDSB    EQU    5    ;Set this in Flags if you DON'T want 'show' and 'hide' string gadgets.
  151. FRQABSOLUTEXYB    EQU    6    ;Use absolute x,y positions rather than centering on mouse.
  152. FRQCACHEPURGEB    EQU    7    ;Purge the cache whenever the directory date stamp changes if this is set.
  153. FRQNOHALFCACHEB    EQU    8    ;Don't cache a directory unless it is completely read in when this is set.
  154. FRQNOSORTB    EQU    9    ;Set this in Flags if you DON'T want sorted directories.
  155. FRQNODRAGB    EQU    10    ;Set this in Flags if you DON'T want a drag bar and depth gadgets.
  156. FRQSAVINGB    EQU    11    ;Set this bit if you are selecting a file to save to.
  157. FRQLOADINGB    EQU    12    ;Set this bit if you are selecting a file(s) to load from.
  158.                 ;These two bits (save and load) aren't currently used for
  159.                 ;anything, but they may be in the future, so you should
  160.                 ;remember to set them.  Also, these bits make it easier if
  161.                 ;somebody wants to customize the file requester for their
  162.                 ;machine.  They can make it behave differently for loading
  163.                 ;vs saving.
  164.  
  165. FRQSHOWINFOM    EQU    1<<FRQSHOWINFOB
  166. FRQEXTSELECTM    EQU    1<<FRQEXTSELECTB
  167. FRQCACHINGM    EQU    1<<FRQCACHINGB
  168. FRQGETFONTSM    EQU    1<<FRQGETFONTSB
  169. FRQINFOGADGETM    EQU    1<<FRQINFOGADGETB
  170. FRQHIDEWILDSM    EQU    1<<FRQHIDEWILDSB
  171. FRQABSOLUTEXYM    EQU    1<<FRQABSOLUTEXYB
  172. FRQCACHEPURGEM    EQU    1<<FRQCACHEPURGEB
  173. FRQNOHALFCACHEM    EQU    1<<FRQNOHALFCACHEB
  174. FRQNOSORTM    EQU    1<<FRQNOSORTB
  175. FRQNODRAGM    EQU    1<<FRQNODRAGB
  176. FRQSAVINGM    EQU    1<<FRQSAVINGB
  177. FRQLOADINGM    EQU    1<<FRQLOADINGB
  178.  
  179.  
  180.  STRUCTURE    ESStructure,0        ;ExtendedSelectStructure
  181.         LONG    es_NextFile    ;This must be the first element!
  182.         WORD    es_NameLength    ;File name length, not including the terminating zero.
  183.         WORD    es_Pad
  184.         APTR    es_Node        ;Node that the user has extended selected.
  185.         LABEL    es_SIZEOF
  186.  
  187. ;         When  using  extended  select,  the  directory pointer is required
  188. ; since  only  the  file  names  are stored in the frq_ExtendedSelect linked
  189. ; list.   When  not  using  extended select, you can either have frq_Dir and
  190. ; frq_File  point  be initialized, or you can have frq_PathName initialized,
  191. ; or  both.   frq_PathName will contain the concatenation of the file and
  192. ; directory chosen.
  193.  
  194.  STRUCTURE    .FileRequester,0
  195.     UWORD    frq_VersionNumber        ;MUST BE ZERO!!!!!!!!!!!!!!!!!!
  196.  
  197.     ;You will probably want to initialize these three variables.
  198.     APTR    frq_Title            ; Hailing text
  199.     APTR    frq_Dir                ; Directory array (must be DSIZE+1 characters long)
  200.     APTR    frq_File            ; Filename array (must be FCHARS+1 characters long)
  201.     ;If you initialize this variable then the file requester will place the complete path name in here on exit.
  202.     APTR    frq_PathName            ; Complete path name array - (must be DSIZE+FCHARS+2 long)
  203.     ;If you want the file requester to pop up on your custom screen, put one of your window pointers here.
  204.     ;Or better yet, you can leave this field zeroed and put a pointer to one of your windows in the
  205.     ;pr_WindowPtr field in your process structure.
  206.     APTR    frq_Window            ; Window requesting or NULL
  207.     ;Initialize these to the number of lines and columns you want to appear in the inner window that
  208.     ;displays the file names.  If you leave these set to zero then default values will be used.
  209.     UWORD    frq_MaxExtendedSelect        ; Zero implies a maximum of 65535, as long as FRQEXTSELECT is set.
  210.     UWORD    frq_numlines            ; Number of lines in file window.
  211.     UWORD    frq_numcolumns            ; Number of columns in file window.
  212.     UWORD    frq_devcolumns            ; Number of columns in device window.
  213.     ULONG    frq_Flags            ; Various - umm - flags.  See above for more info.
  214.     UWORD    frq_dirnamescolor    ;These five colors will all default
  215.     UWORD    frq_filenamescolor    ;to color one if you don't specify
  216.     UWORD    frq_devicenamescolor    ;a color (ie; if you specify color zero).
  217.     UWORD    frq_fontnamescolor    ;If you want color zero to be used, specify
  218.     UWORD    frq_fontsizescolor    ;color 32, or some other too large number
  219.                     ;which mods down to zero.
  220.  
  221.     UWORD    frq_detailcolor        ;If both of these colors are specified as
  222.     UWORD    frq_blockcolor        ;zero then the block pen will be set to one.
  223.  
  224.     UWORD    frq_gadgettextcolor    ;The color for the text of the five boolean gadgets.  Defaults to 1.
  225.     UWORD    frq_textmessagecolor    ;The color for the message at the screen top.  Defaults to 1.
  226.     UWORD    frq_stringnamecolor    ;The color for the words Drawer, File, Hide and Show.  Defaults to 3.
  227.     UWORD    frq_stringgadgetcolor    ;The color for the borders of the string gadgets.  Defaults to 3.
  228.                     ;Unfortunately it is not possible to specify
  229.                     ;the color of the actual text in an Intuition
  230.                     ;string gadget.
  231.     UWORD    frq_boxbordercolor    ;The color for the boxes around the file and directory areas.  Defaults to 3.
  232.     UWORD    frq_gadgetboxcolor    ;The color for the boxes around the five boolean gadgets.  Defaults to 3.
  233.  
  234.     STRUCT    frq_RFU_Stuff,36        ;This area, which is reserved for
  235.                         ;future use, should all be zero.
  236.  
  237.     STRUCT    frq_DirDateStamp,ds_SIZEOF    ; A copy of the cached directories date stamp.
  238.                         ; There should never be any need to change this.
  239.  
  240.     UWORD    frq_WindowLeftEdge;        ;These two fields are only used when the
  241.     UWORD    frq_WindowTopEdge;        ;FRQABSOLUTEXY flag is set.  They specify
  242.                         ;the location of the upper left hand
  243.                         ;corner of the window.
  244.  
  245.     UWORD    frq_FontYSize            ;These fields are used to return the selected
  246.     UWORD    frq_FontStyle            ;font size and style, only applicable when the
  247.                         ;font bit is set.
  248.  
  249.     ;If you set the extended select bit and the user extended selects, the list of filenames will start from here.
  250.     APTR    frq_ExtendedSelect        ; Linked list of ESStructures if more than one filename is chosen.
  251.     ;All of the following variables you shouldn't need to touch.  They contain fields that the file
  252.     ;requester sets and likes to preserve over calls, just to make life easier for the user.
  253.     STRUCT    frq_Hide,WILDLENGTH+2        ; Wildcards for files to hide.
  254.     STRUCT    frq_Show,WILDLENGTH+2        ; Wildcards for files to show.
  255.     WORD    frq_FileBufferPos        ; Cursor's  position  and first
  256.     WORD    frq_FileDispPos            ; displayed character number in
  257.     WORD    frq_DirBufferPos        ; the three string gadgets.  No
  258.     WORD    frq_DirDispPos            ; need  to initialized these if
  259.     WORD    frq_HideBufferPos        ; you don't want to.
  260.     WORD    frq_HideDispPos
  261.     WORD    frq_ShowBufferPos
  262.     WORD    frq_ShowDispPos
  263.  
  264. ;         The  following  fields are PRIVATE!  Don't go messing with them or
  265. ; wierd  things may/will happen.  If this isn't enough of a warning, go read
  266. ; the one in intuition.h, that should scare you off.
  267.  
  268.     APTR    frq_Memory            ; Memory allocated for dir entries.
  269.     APTR    frq_Memory2            ; Used for currently hidden files.
  270.     APTR    frq_Lock            ; Contains lock on directories being read across calls.
  271.     STRUCT    frq_PrivateDirBuffer,DSIZE+2    ; Used for keeping a record of which
  272.                         ; directory we have file names for.
  273.     APTR    frq_FileInfoBlock
  274.     WORD    frq_NumEntries
  275.     WORD    frq_NumHiddenEntries
  276.     WORD    frq_filestartnumber
  277.     WORD    frq_devicestartnumber
  278.     LABEL    frq_SIZEOF
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286. ;         This is used with the RealTimeScroll function.
  287.  
  288.  STRUCTURE    ScrollStruct,0
  289.     ULONG    ss_TopEntryNumber    ;This is the ordinal number of the first
  290.                     ;displayed entry.
  291.     ULONG    ss_NumEntries        ;This is the total number of entries in
  292.                     ;the list.
  293.     UWORD    ss_LineSpacing        ;This is how many pixels high each entry is.
  294.     ULONG    ss_NumLines        ;This is how many entries can be displayed simultaneously.
  295.     APTR    ss_PropGadget        ;This is a pointer to the prop gadget being monitored.
  296.  
  297.     APTR    ss_RedrawAll        ;This routine is used to redraw all of the
  298.                     ;entries when the user moves far enough
  299.                     ;that scrolling will take too long.
  300.  
  301.     APTR    ss_ReadMore        ;An optional routine that is called when
  302.                     ;the scroll routine is waiting for movement.
  303.                     ;This allows reading of new data while real
  304.                     ;time scrolling.
  305.     APTR    ss_ScrollAndDraw    ;This routine is called when the data needs
  306.                     ;to be scrolled and updated.  This routine is
  307.                     ;passed four long parameters (on the stack and
  308.                     ;in D0-D3) which are, respectively:
  309.                     ;D0 - entry number of first line to be drawn.
  310.                     ;D1 - pixel offset to draw first line at.
  311.                     ;D2 - amount to scroll before doing any drawing.
  312.                     ;D3 - number of lines of data to draw.
  313.     WORD    versionnumber        ;Make SURE this is set to zero.
  314.     LONG    rfu1            ;Make SURE you leave these two zeroed also.
  315.     LONG    rfu2            ;Make SURE you leave these two zeroed also.
  316.     LABEL    ss_SIZEOF
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  STRUCTURE    Arrows,0
  323.     STRUCT    ArrowUp,20
  324.     STRUCT    ArrowDown,20
  325.     STRUCT    ArrowLeft,18
  326.     STRUCT    ArrowRight,18
  327.     STRUCT    Letter_R,20
  328.     STRUCT    Letter_G,20
  329.     STRUCT    Letter_B,20
  330.     STRUCT    Letter_H,20
  331.     STRUCT    Letter_S,20
  332.     STRUCT    Letter_V,20
  333.     LABEL    chipstuff_SIZEOF
  334.  
  335. ; These are the positions relative to the rl_Images pointer.
  336. ;ie
  337. ;    MOVE.L    rl_Images(A6),A0
  338. ;    ADD.L    #ArrowLeft,A0        ;A0 now points at the left arrow.
  339.  
  340.  
  341.  STRUCTURE    ReqLib,LIB_SIZE
  342.     APTR    rl_SysLib
  343.     APTR    rl_DosLib        ;These must be kept in the same order,
  344.     APTR    rl_IntuiLib        ;the library expunge code depends on it.
  345.     APTR    rl_GfxLib        ;
  346.     APTR    rl_SegList
  347.     APTR    rl_Images        ;pointer to the arrow images.
  348.     BYTE    rl_Flags
  349.     BYTE    rl_Pad
  350.     APTR    rl_ConsoleDev        ;for RawKeyToAscii
  351.     APTR    rl_ConsoleHandle    ;so we can close the device later
  352.     LABEL    MyLib_Sizeof
  353.  
  354.  
  355.  
  356.  
  357.  
  358.  
  359.     LIBINIT
  360.     LIBDEF    _LVOCenter
  361.  
  362.     LIBDEF    _LVOSetSize
  363.     LIBDEF    _LVOSetLocation
  364.     LIBDEF    _LVOReadLocation
  365.  
  366.     LIBDEF    _LVOFormat
  367.  
  368.     LIBDEF    _LVOFakeFunction1    ;Old function.  Don't use.
  369.     LIBDEF    _LVOFakeFunction2    ;Old function.  Don't use.
  370.  
  371.     LIBDEF    _LVOFakeFunction3    ;Old function.  Don't use.
  372.     LIBDEF    _LVOFakeFunction4    ;Old function.  Don't use.
  373.  
  374.     LIBDEF    _LVOFileRequester
  375.  
  376.     LIBDEF    _LVOColorRequester
  377.  
  378.     LIBDEF    _LVODrawBox
  379.  
  380.     LIBDEF    _LVOMakeButton
  381.     LIBDEF    _LVOMakeScrollBar
  382.  
  383.     LIBDEF    _LVOPurgeFiles
  384.  
  385.     LIBDEF    _LVOGetFontHeightAndWidth
  386.  
  387.     LIBDEF    _LVOMakeGadget
  388.     LIBDEF    _LVOMakeString
  389.     LIBDEF    _LVOMakeProp
  390.  
  391.     LIBDEF    _LVOLinkGadget
  392.     LIBDEF    _LVOLinkStringGadget
  393.     LIBDEF    _LVOLinkPropGadget
  394.  
  395.     LIBDEF    _LVOGetString
  396.  
  397.     LIBDEF    _LVORealTimeScroll
  398.  
  399.     LIBDEF    _LVOTextRequest
  400.  
  401.     LIBDEF    _LVOGetLong
  402.  
  403.     LIBDEF    _LVORawKeyToAscii
  404.  
  405.     LIBDEF    _LVOExtendedColorRequester
  406.  
  407.  
  408.  
  409. REQNAME    MACRO
  410.     DC.B    'req.library',0
  411.     ENDM
  412.  
  413. ; This macro will open the RequesterLibrary for you. At the end, A6 will
  414. ;contain the library and D0/A0 will be correct. (What dos passed you)
  415.  
  416. OpenReq    MACRO
  417.     BRA.S    opnrq
  418.  
  419. dname    DC.B    'dos.library',0
  420. rlibmsg    DC.B    'You need V1+ of '
  421. ReqName    REQNAME
  422.     DC.B    10,13,0
  423. ;;;rliblng    EQU    *-rlibmsg
  424. rliblng    EQU    30
  425.     DS.W    0
  426.     EVEN
  427.  
  428. opnrq:
  429.     MOVEM.L    d0/a0,-(sp)
  430.     MOVE.L    4,A6
  431.     LEA.L    ReqName,a1
  432.     MOVEQ.L    #ReqVersion,d0
  433.     SYS    OpenLibrary
  434.     TST.L    d0
  435.     BNE.S    itsokay
  436.     LEA    dname,A1
  437.     SYS    OpenLibrary
  438.     TST.L    D0
  439.     BEQ.S    1$
  440.     MOVE.L    D0,A6
  441.     SYS    Output
  442.     MOVE.L    d0,d1
  443.     BEQ.S    1$            ;No output. Phooey.
  444.     MOVE.L    #rlibmsg,d2        ;Tell user he needs to find library.
  445.     MOVE.L    #rliblng,D3
  446.     SYS    Write
  447. 1$:    ADDQ    #8,sp
  448.     RTS
  449.  
  450. itsokay:
  451.     MOVE.L    D0,A6
  452.     MOVEM.L    (SP)+,D0/A0
  453.     ENDM
  454.  
  455.  
  456.  
  457.     ENDC
  458.