home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Programming / DOpus4-GPL / Library / dopuslib.a < prev    next >
Text File  |  2000-01-27  |  10KB  |  539 lines
  1. ; Directory Opus 4
  2. ; Original GPL release version 4.12
  3. ; Copyright 1993-2000 Jonathan Potter
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ; 
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ; 
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ; 
  19. ; All users of Directory Opus 4 (including versions distributed
  20. ; under the GPL) are entitled to upgrade to the latest version of
  21. ; Directory Opus version 5 at a reduced price. Please see
  22. ; http://www.gpsoft.com.au for more information.
  23. ; 
  24. ; The release of Directory Opus 4 under the GPL in NO WAY affects
  25. ; the existing commercial status of Directory Opus 5.
  26.  
  27.  
  28.     SECTION    code
  29.  
  30.     INCLUDE "exec/types.i"
  31.     INCLUDE "exec/initializers.i"
  32.     INCLUDE "exec/libraries.i"
  33.     INCLUDE "exec/lists.i"
  34.     INCLUDE "exec/alerts.i"
  35.     INCLUDE "exec/resident.i"
  36.     INCLUDE "exec/ports.i"
  37.     INCLUDE "exec/io.i"
  38.     INCLUDE "libraries/dos.i"
  39.     INCLUDE "graphics/rastport.i"
  40.  
  41.     INCLUDE "asmsupp.i"
  42.     INCLUDE "dopusbase.i"
  43.  
  44. * Functions.a
  45.  
  46.     XREF endcode
  47.     XREF GetWBScreen
  48.     XREF Seed
  49.     XREF Random
  50.     XREF StrToUpper
  51.     XREF StrToLower
  52.     XREF DisableGadget
  53.     XREF EnableGadget
  54.     XREF GhostGadget
  55.     XREF _SwapMem
  56.     XREF _LSprintf
  57.     XREF LSprintf
  58.     XREF LCreateExtIO
  59.     XREF LCreatePort
  60.     XREF LDeleteExtIO
  61.     XREF LDeletePort
  62.     XREF LToUpper
  63.     XREF LToLower
  64.     XREF LStrCat
  65.     XREF LStrnCat
  66.     XREF LStrCpy
  67.     XREF LStrnCpy
  68.     XREF LStrCmpI
  69.     XREF LStrnCmpI
  70.     XREF LStrCmp
  71.     XREF LStrnCmp
  72.  
  73. * Functions2.a
  74.  
  75.     XREF BtoCStr
  76.     XREF ActivateStrGad
  77.     XREF RefreshStrGad
  78.  
  79. * Graphics.a
  80.  
  81.     XREF Do3DBox
  82.     XREF Do3DStringBox
  83.     XREF Do3DCycleBox
  84.     XREF DrawCheckMark
  85.     XREF HiliteGad
  86.  
  87. * Filereq.c
  88.  
  89.     XREF _DoFileRequest
  90.     XREF _DoSetBusyPointer
  91.  
  92. * Wildcard.c
  93.  
  94.     XREF _DoParsePattern
  95.     XREF _DoMatchPattern
  96.  
  97. * Dosstuff.c
  98.  
  99.     XREF _DoAssign
  100.     XREF _DoBaseName
  101.     XREF _DoCompareLock
  102.     XREF _DoPathName
  103.     XREF _DoSendPacket
  104.     XREF _DoTackOn
  105.     XREF _DoStampToStr
  106.     XREF _DoStrToStamp
  107.     XREF _DoAllocRemember
  108.     XREF _DoFreeRemember
  109.     XREF _DoFreeRemEntry
  110.     XREF _DoCompareDate
  111.     XREF _DoDoArrow
  112.     XREF _DoStrCombine
  113.     XREF _DoStrConcat
  114.     XREF _DoDecode_RLE
  115.  
  116. * Dosstuff2.c
  117.  
  118.     XREF _DoSearchPathList
  119.     XREF _DoCheckExist
  120.     XREF _DoRawkeyToStr
  121.     XREF _DoDoRMBGadget
  122.     XREF _DoAddGadgets
  123.     XREF _DoCheckNumGad
  124.     XREF _DoCheckHexGad
  125.     XREF _DoAtoh
  126.     XREF _DoDoSimpleRequest
  127.     XREF _DoDoCycleGadget
  128.     XREF _DoDrawRadioButton
  129.     XREF _DoGetButtonImage
  130.     XREF _DoGetCheckImage
  131.     XREF _DoUScoreText
  132.     XREF _DoDo3DFrame
  133.     XREF _DoDoGlassImage
  134.  
  135. * Dosstuff3.c
  136.  
  137.     XREF _DoReadConfig
  138.     XREF _DoSaveConfig
  139.     XREF _DoDefaultConfig
  140.     XREF _DoGetDevices
  141.     XREF _DoAssignGadget
  142.     XREF _DoAssignMenu
  143.     XREF _DoFreeConfig
  144.     XREF _DoCheckConfig
  145.     XREF _DoFindSystemFile
  146.  
  147. * Listview.c
  148.  
  149.     XREF _DoAddListView
  150.     XREF _DoListViewIDCMP
  151.     XREF _DoRemoveListView
  152.     XREF _DoRefreshListView
  153.     XREF _DoFixSliderBody
  154.     XREF _DoFixSliderPot
  155.     XREF _DoGetSliderPos
  156.     XREF _DoShowSlider
  157.  
  158. * Requesters.c
  159.  
  160.     XREF _R_OpenRequester
  161.     XREF _R_CloseRequester
  162.     XREF _R_AddRequesterObject
  163.     XREF _R_RefreshRequesterObject
  164.     XREF _R_ObjectText
  165.  
  166. * Language.c
  167.  
  168.     XREF _DoReadStringFile
  169.     XREF _DoFreeStringFile
  170.  
  171. * Borders.c
  172.  
  173.     XREF _DoAddGadgetBorders
  174.     XREF _DoCreateGadgetBorders
  175.     XREF _DoSelectGadget
  176.  
  177. * Menus.c
  178.  
  179.     XREF _DoFSSetMenuStrip
  180.  
  181. * Chip data
  182.  
  183.     XREF _pdb_cycletop
  184.     XREF _pdb_cyclebot
  185.     XREF _pdb_check
  186.  
  187. * Objects
  188.  
  189.     XREF _SysBase
  190.     XREF _DOpusBase
  191.     XREF _IntuitionBase
  192.     XREF _GfxBase
  193.     XREF _DOSBase
  194.     XREF _LayersBase
  195.  
  196. start:
  197.     moveq #0,d0
  198.     rts
  199.  
  200. romtag:
  201.     dc.w RTC_MATCHWORD
  202.     dc.l romtag
  203.     dc.l endcode
  204.     dc.b RTF_AUTOINIT
  205.     dc.b VERSION
  206.     dc.b NT_LIBRARY
  207.     dc.b 0
  208.     dc.l dopusname
  209.     dc.l idstring
  210.     dc.l init
  211.  
  212. VERSION  equ 22
  213. REVISION equ 6
  214.  
  215. dopusname:
  216.     DOPUSNAME
  217.  
  218. idstring:
  219.     dc.b 'dopus.library 22.6 (30 Jul 93) Copyright © 1993 Jonathan Potter',13,10,0
  220.  
  221. dosname:
  222.     dc.b 'dos.library',0
  223. intuitionname:
  224.     dc.b 'intuition.library',0
  225. graphicsname:
  226.     dc.b 'graphics.library',0
  227. layersname:
  228.     dc.b 'layers.library',0
  229.  
  230.     ds.w 0
  231.  
  232. init:
  233.     dc.l DOpusBase_SIZEOF
  234.     dc.l functable
  235.     dc.l datatable
  236.     dc.l initroutine
  237.  
  238. functable:
  239.     dc.l Open
  240.     dc.l Close
  241.     dc.l Expunge
  242.     dc.l Null
  243.     dc.l _DoFileRequest
  244.     dc.l Do3DBox
  245.     dc.l Do3DStringBox
  246.     dc.l Do3DCycleBox
  247.     dc.l _DoDoArrow
  248.     dc.l LSprintf
  249.     dc.l LCreateExtIO
  250.     dc.l LCreatePort
  251.     dc.l LDeleteExtIO
  252.     dc.l LDeletePort
  253.     dc.l LToUpper
  254.     dc.l LToLower
  255.     dc.l LStrCat
  256.     dc.l LStrnCat
  257.     dc.l LStrCpy
  258.     dc.l LStrnCpy
  259.     dc.l LStrCmp
  260.     dc.l LStrnCmp
  261.     dc.l LStrCmpI
  262.     dc.l LStrnCmpI
  263.     dc.l _DoStrCombine
  264.     dc.l _DoStrConcat
  265.     dc.l LParsePattern
  266.     dc.l LMatchPattern
  267.     dc.l LParsePatternI
  268.     dc.l LMatchPatternI
  269.     dc.l BtoCStr
  270.     dc.l _DoAssign
  271.     dc.l _DoBaseName
  272.     dc.l _DoCompareLock
  273.     dc.l _DoPathName
  274.     dc.l _DoSendPacket
  275.     dc.l _DoTackOn
  276.     dc.l _DoStampToStr
  277.     dc.l _DoStrToStamp
  278.     dc.l _DoAddListView
  279.     dc.l _DoListViewIDCMP
  280.     dc.l _DoRefreshListView
  281.     dc.l _DoRemoveListView
  282.     dc.l DrawCheckMark
  283.     dc.l FixSliderBody
  284.     dc.l FixSliderPot
  285.     dc.l GetSliderPos
  286.     dc.l _DoAllocRemember
  287.     dc.l _DoFreeRemember
  288.     dc.l _DoSetBusyPointer
  289.     dc.l GetWBScreen
  290.     dc.l _DoSearchPathList
  291.     dc.l _DoCheckExist
  292.     dc.l _DoCompareDate
  293.     dc.l Seed
  294.     dc.l Random
  295.     dc.l StrToUpper
  296.     dc.l StrToLower
  297.     dc.l _DoRawkeyToStr
  298.     dc.l _DoDoRMBGadget
  299.     dc.l _DoAddGadgets
  300.     dc.l ActivateStrGad
  301.     dc.l RefreshStrGad
  302.     dc.l _DoCheckNumGad
  303.     dc.l _DoCheckHexGad
  304.     dc.l _DoAtoh
  305.     dc.l HiliteGad
  306.     dc.l _DoDoSimpleRequest
  307.     dc.l _DoReadConfig
  308.     dc.l _DoSaveConfig
  309.     dc.l _DoDefaultConfig
  310.     dc.l _DoGetDevices
  311.     dc.l _DoAssignGadget
  312.     dc.l _DoAssignMenu
  313.     dc.l _DoFindSystemFile
  314.     dc.l _DoDo3DFrame
  315.     dc.l _DoFreeConfig
  316.     dc.l _DoDoCycleGadget
  317.     dc.l _DoUScoreText
  318.     dc.l DisableGadget
  319.     dc.l EnableGadget
  320.     dc.l GhostGadget
  321.     dc.l _DoDrawRadioButton
  322.     dc.l _DoGetButtonImage
  323.     dc.l _DoShowSlider
  324.     dc.l _DoCheckConfig
  325.     dc.l _DoGetCheckImage
  326.     dc.l _R_OpenRequester
  327.     dc.l _R_CloseRequester
  328.     dc.l _R_AddRequesterObject
  329.     dc.l _R_RefreshRequesterObject
  330.     dc.l DoObjectText
  331.     dc.l _DoDoGlassImage
  332.     dc.l _DoDecode_RLE
  333.     dc.l _DoReadStringFile
  334.     dc.l _DoFreeStringFile
  335.     dc.l _DoFreeRemEntry
  336.     dc.l _DoAddGadgetBorders
  337.     dc.l _DoCreateGadgetBorders
  338.     dc.l _DoSelectGadget
  339.     dc.l _DoFSSetMenuStrip
  340.     dc.l -1
  341.  
  342. datatable:
  343.     INITBYTE LN_TYPE,NT_LIBRARY
  344.     INITLONG LN_NAME,dopusname
  345.     INITBYTE LIB_FLAGS,LIBF_SUMUSED!LIBF_CHANGED
  346.     INITWORD LIB_VERSION,VERSION
  347.     INITWORD LIB_REVISION,REVISION
  348.     INITLONG LIB_IDSTRING,idstring
  349.     dc.l 0
  350.  
  351. initroutine:
  352.     move.l a5,-(sp)
  353.     move.l d0,a5
  354.     move.l a6,db_ExecBase(a5)
  355.     move.l a6,_SysBase
  356.     move.l a0,db_SegList(a5)
  357.  
  358.     move.l a5,_DOpusBase
  359.  
  360.     lea    dosname(pc),a1
  361.     moveq.l #0,d0
  362.     move.l 4,a6
  363.     jsr _LVOOpenLibrary(a6)
  364.     move.l d0,db_DOSBase(a5)
  365.     move.l d0,_DOSBase
  366.  
  367.     lea intuitionname(pc),a1
  368.     moveq.l #0,d0
  369.     jsr _LVOOpenLibrary(a6)
  370.     move.l d0,db_IntuitionBase(a5)
  371.     move.l d0,_IntuitionBase
  372.  
  373.     lea graphicsname(pc),a1
  374.     moveq.l #0,d0
  375.     jsr _LVOOpenLibrary(a6)
  376.     move.l d0,db_GfxBase(a5)
  377.     move.l d0,_GfxBase
  378.  
  379.     lea layersname(pc),a1
  380.     moveq.l #0,d0
  381.     jsr _LVOOpenLibrary(a6)
  382.     move.l d0,db_LayersBase(a5)
  383.     move.l d0,_LayersBase
  384.  
  385. ;    jsr _init_dopus_library
  386.  
  387.     lea.l _pdb_cycletop,a0
  388.     move.l a0,pdb_cycletop(a5)
  389.  
  390.     lea.l _pdb_cyclebot,a0
  391.     move.l a0,pdb_cyclebot(a5)
  392.  
  393.     lea.l _pdb_check,a0
  394.     move.l a0,pdb_check(a5)
  395.  
  396.     move.l #0,pdb_Flags(a5)
  397.  
  398.     move.l 4,a6
  399.     move.l a5,d0
  400.     move.l (sp)+,a5
  401.     rts
  402.  
  403. Open:
  404.     addq.w #1,LIB_OPENCNT(a6)
  405.     bclr #LIBB_DELEXP,db_Flags(a6)
  406.     move.l a6,d0
  407.     rts
  408.  
  409. Close:
  410.     moveq.l #0,d0
  411.     subq.w #1,LIB_OPENCNT(a6)
  412.     bne.s    stillopen
  413.     btst #LIBB_DELEXP,db_Flags(a6)
  414.     beq.s    stillopen
  415.     bsr    Expunge
  416. stillopen:
  417.     rts
  418.  
  419. Expunge:
  420.     movem.l    d2/a5/a6,-(sp)
  421.     move.l a6,a5
  422.     tst.w    LIB_OPENCNT(a5)
  423.     beq.s    notopen
  424.     bset #LIBB_DELEXP,db_Flags(a5)
  425.     moveq.l #0,d0
  426.     bra expungeend
  427. notopen:
  428.     move.l db_SegList(a5),d2
  429.     move.l a5,a1
  430.     move.l 4,a6
  431.     jsr _LVORemove(a6)
  432.  
  433.     move.l db_DOSBase(a5),a1
  434.     jsr _LVOCloseLibrary(a6)
  435.     move.l db_IntuitionBase(a5),a1
  436.     jsr _LVOCloseLibrary(a6)
  437.     move.l db_GfxBase(a5),a1
  438.     jsr _LVOCloseLibrary(a6)
  439.     move.l db_LayersBase(a5),a1
  440.     jsr _LVOCloseLibrary(a6)
  441.  
  442.     moveq.l #0,d0
  443.     move.l a5,a1
  444.     move.w LIB_NEGSIZE(a5),d0
  445.     sub.l d0,a1
  446.     add.w LIB_POSSIZE(a5),d0
  447.     move.l 4,a6
  448.     jsr _LVOFreeMem(a6)
  449.     move.l d2,d0
  450.  
  451. expungeend:
  452.     movem.l (sp)+,d2/a5/a6
  453.     rts
  454.  
  455. Null:
  456.     moveq.l #0,d0
  457.     rts
  458.  
  459. LParsePattern:
  460.     moveq.l #0,d0
  461.     bra doparse
  462. LParsePatternI:
  463.     moveq.l #1,d0
  464. doparse:
  465.     movem.l a2-a6/d2-d7,-(sp)
  466.     move.l d0,-(sp)
  467.     move.l a1,-(sp)
  468.     move.l a0,-(sp)
  469.     jsr _DoParsePattern
  470.     add.l #12,sp
  471.     movem.l (sp)+,a2-a6/d2-d7
  472.     rts
  473.  
  474. LMatchPattern:
  475.     moveq.l #0,d0
  476.     bra domatch
  477. LMatchPatternI:
  478.     moveq.l #1,d0
  479. domatch:
  480.     movem.l a2-a6/d2-d7,-(sp)
  481.     move.l d0,-(sp)
  482.     move.l a1,-(sp)
  483.     move.l a0,-(sp)
  484.     jsr _DoMatchPattern
  485.     add.l #12,sp
  486.     movem.l (sp)+,a2-a6/d2-d7
  487.     rts
  488.  
  489. DoObjectText:
  490.     movem.l a2-a6/d2-d7,-(sp)
  491.     move.l d4,-(sp)
  492.     move.l a1,-(sp)
  493.     move.l d3,-(sp)
  494.     move.l d2,-(sp)
  495.     move.l d1,-(sp)
  496.     move.l d0,-(sp)
  497.     move.l a0,-(sp)
  498.     jsr _R_ObjectText
  499.     add.l #28,sp
  500.     movem.l (sp)+,a2-a6/d2-d7
  501.     rts
  502.  
  503. FixSliderBody:
  504.     movem.l a2-a6/d2-d7,-(sp)
  505.     move.l d2,-(sp)
  506.     move.l d1,-(sp)
  507.     move.l d0,-(sp)
  508.     move.l a1,-(sp)
  509.     move.l a0,-(sp)
  510.     jsr _DoFixSliderBody
  511.     add.l #20,sp
  512.     movem.l (sp)+,a2-a6/d2-d7
  513.     rts
  514.  
  515. FixSliderPot:
  516.     movem.l a2-a6/d2-d7,-(sp)
  517.     move.l d3,-(sp)
  518.     move.l d2,-(sp)
  519.     move.l d1,-(sp)
  520.     move.l d0,-(sp)
  521.     move.l a1,-(sp)
  522.     move.l a0,-(sp)
  523.     jsr _DoFixSliderPot
  524.     add.l #24,sp
  525.     movem.l (sp)+,a2-a6/d2-d7
  526.     rts
  527.  
  528. GetSliderPos:
  529.     movem.l a2-a6/d2-d7,-(sp)
  530.     move.l d1,-(sp)
  531.     move.l d0,-(sp)
  532.     move.l a0,-(sp)
  533.     jsr _DoGetSliderPos
  534.     add.l #12,sp
  535.     movem.l (sp)+,a2-a6/d2-d7
  536.     rts
  537.  
  538.     END
  539.