Re: Embedding Graphics.
- Posted by "Graeme." <hmi at POWERUP.COM.AU> Apr 02, 1995
- 898 views
Here's another one - short and sweet --- begin incsesf.e -- -- incsesf -- Sequence to include file -- G.Burke 4/98 -- <hmi at powerup.com.au> -- -- Pass the procedure any sequence as data, give it a name, and an include -- file will be generated. This method uses standard Euphoria sequence format -- which results in larger generated files than the method employed in -- incbm() and incseq(). The advantage is that it is more memory efficiant; -- provided that the sequence is left unaltered, only one copy will be kept in -- memory. I imagine pk/win zip will make light work of all those commas. -- If you get a "subprogram too large" message, update to the current version -- of Euphoria. include file.e global procedure incsesf(sequence data,sequence name) integer fn,fn2,c,l,flag fn2=open("temp.hmi","wb") print(fn2,data) close(fn2) fn2=open("temp.hmi","rb") fn=open(name&".e","wb") puts(fn,"\n-- incsesf -- "&name& " -- G.Burke 4/98\nglobal constant "&name&" =\n") l=seek(fn2,-1) l=where(fn2) c=seek(fn2,0) flag=0 for x=1 to l do c=getc(fn2) puts(fn,c) if flag then if c=',' then puts(fn,"\n") flag=0 end if end if if remainder(x,75)=0 then flag=1 end if end for puts(fn,"\n\n") close(fn) close(fn2) system("del temp.hmi",2) end procedure --- end incsesf.e ---