home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
278.lha
/
RegexLibrary_v1.0
/
link.asm
< prev
next >
Wrap
Assembly Source File
|
1989-08-06
|
3KB
|
128 lines
; C link-time library definitions for the GNU regular expression library.
; Edwin Hoogerbeets 18/07/89
;
; This file may be copied and distributed under the GNU Public
; Licence. See the comment at the top of regex.c for details.
;
; Adapted from Elib by Jim Mackraz, mklib by Edwin Hoogerbeets, and the
; GNU regular expression package by the Free Software Foundation.
;
include 'regex.i'
store macro
movem.l d2-d7/a2-a5,safekeep
endm
retrieve macro
movem.l safekeep,d2-d7/a2-a5
endm
dseg
safekeep:
dcb.l 14 ; reserve some space for temporary register storage
; --- xdef for application
public _RegexBase
_RegexBase:
ds.l 1
cseg
; --- xdef for application
public _re_initialize_buffer
public _re_terminate_buffer
public _re_compile_pattern
public _re_compile_fastmap
public _re_search
public _re_search_2
public _re_match
public _re_match_2
_re_initialize_buffer:
move.l 4(sp),d0
move.l 8(sp),d1
move.l _RegexBase,a6
jmp _LVOre_initialize_buffer(a6)
_re_terminate_buffer:
move.l 4(sp),d0
move.l _RegexBase,a6
jmp _LVOre_terminate_buffer(a6)
_re_compile_pattern:
move.l 4(sp),d0
move.l 8(sp),d1
move.l 12(sp),a0
move.l 16(sp),a1
move.l _RegexBase,a6
jmp _LVOre_compile_pattern(a6)
_re_compile_fastmap:
move.l 4(sp),d0
move.l _RegexBase,a6
jmp _LVOre_compile_fastmap(a6)
_re_search:
store
move.l 4(sp),d0
move.l 8(sp),d1
move.l 12(sp),a0
move.l 16(sp),a1
move.l 20(sp),d2
move.l 24(sp),d3
move.l _RegexBase,a6
jsr _LVOre_search(a6)
retrieve
rts
_re_search_2:
store
move.l 4(sp),d0
move.l 8(sp),d1
move.l 12(sp),a0
move.l 16(sp),a1
move.l 20(sp),d2
move.l 24(sp),d3
move.l 28(sp),d4
move.l 32(sp),d5
move.l 36(sp),d6
move.l _RegexBase,a6
jsr _LVOre_search_2(a6)
retrieve
rts
_re_match:
store
move.l 4(sp),d0
move.l 8(sp),d1
move.l 12(sp),a0
move.l 16(sp),a1
move.l 20(sp),d2
move.l _RegexBase,a6
jsr _LVOre_match(a6)
retrieve
rts
_re_match_2:
store
move.l 4(sp),d0
move.l 8(sp),d1
move.l 12(sp),a0
move.l 16(sp),a1
move.l 20(sp),d2
move.l 24(sp),d3
move.l 28(sp),d4
move.l 32(sp),d5
move.l _RegexBase,a6
jsr _LVOre_match_2(a6)
retrieve
rts
end