#-*- 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 y:test) ;.(includepath y:fa) .(includepath y:fa)

.– 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)

.— list of registered media file ;.(media-file-list) .(media-file-list-log :filelist t)

;.(defparameter verb verbsaved) .(vartblock)

.(vartblock m) .— testing media retrieve

.(defvarx size@a 120×80)

; .– 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)

; comment

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

.– audio .(audio 002$ :linkonly t)

.– video .(video fake-vid :linkonly t) .dp .rule ;; do not /=nov29 .– portable format .(pf kollektor) .dp .rule .– text .(text hallo) .dp .– hyper text .(ht Gedchntis xxxx) .dp .— test line break ,.lp line 1a . ._ lp .lp line 2a . ._ llp .llp line 3a . ._ dp .dp line 4a . ._ dp .dp ;; ,.lp escaped pointformat line 1b ,.lp .lp line 2b ,.llp .llp line 3b ,.dp .dp line 4b ,.dp .dp