Script Library: 1238 scripts
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Discussion posts for script fcgi-broker.r

1
ahmedsayeed1
12-Oct 15:53
emit-table-end: does [
in-table: false
  emit "</td></tr></table>"

]

http://www.compilatori.com/category/services/

emit-table-cell: does [
emit pick [{</b></td><td><b>} {</td><td valign=“top” bgcolor=“white”>}] in-header

]

http://www.acpirateradio.co.uk/category/property/

emit-table-row: does [
in-header: false
  emit {</td></tr><tr><td valign="top" bgcolor="white">}

]

http://www.logoarts.co.uk/category/services/

;– Section handling:

clear-sects: does [sects: 0.0.0.0]

next-section: func [level /local bump mask] [

http://www.slipstone.co.uk/category/property/
; Return next section number. Clear sub numbers.
  set [bump mask] pick [
[1.0.0.0 1.0.0.0]
[0.1.0.0 1.1.0.0]
[0.0.1.0 1.1.1.0]
[0.0.0.1 1.1.1.1]
http://embermanchester.uk/category/property/
] level
  level: form sects: sects + bump * mask
clear find level ".0"
level

]

make-heading: func [level num str /toc /local lnk][
; Make a proper heading link or TOC target.
http://connstr.net/category/property/
; Determine link target str. Search for [target] in front of heading.
  either parse str [
"[" copy lnk to "]"
s: to end
][
str: next s ; remove link target
][
lnk: join "section-" num
http://joerg.li/category/services/
]
  if not no-nums [str: rejoin [num pick [". " " "] level = 1 str]]
rejoin either toc [
[{<a class="toc} level {" href="#} lnk {">} str </a>]
][
[{<h} level + 1 { id="} lnk {">} str {</h} level + 1 {>}]

emit-table-end: does [

http://www.jopspeech.com/category/property/
in-table: false
  emit "</td></tr></table>"

]

emit-table-cell: does [
emit pick [{</b></td><td><b>} {</td><td valign=“top” bgcolor=“white”>}] in-header

http://www.wearelondonmade.com/category/services/

]

emit-table-row: does [
in-header: false
  emit {</td></tr><tr><td valign="top" bgcolor="white">}

]

https://waytowhatsnext.com/category/sports/

;– Section handling:

clear-sects: does [sects: 0.0.0.0]

next-section: func [level /local bump mask] [
; Return next section number. Clear sub numbers.
http://www.iu-bloomington.com/category/crypto/
set [bump mask] pick [
      [1.0.0.0 1.0.0.0]
[0.1.0.0 1.1.0.0]
[0.0.1.0 1.1.1.0]
[0.0.0.1 1.1.1.1]
] level
level: form sects: sects + bump * mask
https://komiya-dental.com/category/sports/
clear find level “.0”
  level

]

make-heading: func [level num str /toc /local lnk][
; Make a proper heading link or TOC target.
  ; Determine link target str. Search for [target] in front of heading.
either parse str [
http://www-look-4.com/category/health/
“[” copy lnk to “]”
      s: to end
][
str: next s ; remove link target
][
lnk: join "section-" num
]
if not no-nums [str: rejoin [num pick [". " " "] level = 1 str]]
rejoin either toc [
https://www.webb-dev.co.uk/category/sports/
[{<a class=“toc} level {” href=“#} lnk {”>} str </a>]
  ][
[{<h} level + 1 { id="} lnk {">} str {</h} level + 1 {>}]