Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

OPTIONS(/C/E/-Q/-A/-I/-D);
COMMENT
The  text procedure CHECKEXTENSION may be used to add a default extension
to file specifications not containing a dot ('.').
I.e.
! T:- Copy("A");!   T:- CHECKEXTENSION(T,".SIM");
! will give T the value "A.SIM", while
! T:- Copy("A.");!   T:- CHECKEXTENSION(T,".SIM");
! will leave T unaltered.
! T:- Copy("LPT:");!   T:- CHECKEXTENSION(T,".SIM");
! will leave T unaltered.
! T:- Copy("LPT: A");!   T:- CHECKEXTENSION(T,".SIM");
! will give T the value "LPT: A.SIM".
;

EXTERNAL TEXT PROCEDURE conc,rest;
EXTERNAL CHARACTER PROCEDURE findtrigger;

    TEXT PROCEDURE checkextension(t,defaultextension);
    VALUE defaultextension;   TEXT t,defaultextension;
    IF t =/= NOTEXT THEN
    BEGIN   t.Setpos(1);
	IF findtrigger(t,Copy(":")) NE ':' OR
	rest(t).Strip =/= NOTEXT THEN
	BEGIN   t.Setpos(1);
	    IF Findtrigger(t,Copy(".")) NE '.' THEN
	    t:- conc(t,defaultextension) ELSE t.Setpos(1);
	END;
	checkextension:- t
    END of checkextension;