z:test:media:media-div-type-a []

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

#-*- coding: utf-8-unix mode: ctp -*-
#
# media-div-type.txt
# zt:media
#
#===

.(addflag m-register)
.(addflag m)

.(vartblock m-register)
.-- include directories to find media   

; .-- note an argument :xx is confusing with a parameter keyword. but
; it is parsed here as first mandatary argument. Therefore I prefer to
; write xx which is taken as :xx
.(includepath ymt)
.(includepath yfa)


.-- find and register media files

; function see        _/src/ctp/gawk/mod/cfile/
;
; images see          a.arean.net/data/media/zi
; image retrieve see  _/q/civ-foto which origin is: /civ/foto_/cc_
;
;.(defparameter verbsaved verb)
.(defparameter verb 3)

.(register-mediafile)
;.(defparameter verb verbsaved)
.(vartblock) 

.(vartblock m)
.--- testing media retrieve

.(defvarx size@a 120x80)

; .-- the keyword arguments of search-pref will be passed to the consequent functions image eg.
.(search-pref :pattern-underlay 05100$)
.(search-pref :patterna dsc)
.(search-pref :limitnumber 1)
.(media-pref :align mid)

.rule

.(image 14-t$) regexp 14-t$ ok. .dp 

- audio .llp
.(audio 002$ :linkonly t)       
.dp

%comment
- video .lp
.(video fake-vid :linkonly t)       
.dp
 .rule 

- portable format .lp
.(pf kollektor)       
.dp

- text .lp
.(text hallo)       
.dp

- hyper text .lp
.(ht Gedchntis xxxx)       
.dp
%comment-end

.(vartblock)