noao/rv/rvidlines/idnoextn.x


1
2
3
4
5
6
7
8
9
10
11

# ID_NOEXTN -- Remove standard image extensions.

procedure id_noextn (image)

char	image[ARB]	# Image name

int	strlen()

begin
	call xt_imroot (image, image, strlen (image))
end