"+title_node$+"

; AmigaguideToHTML - Converts Amigaguide documents into HTML format; Copyright (C) 2004 Safalra (Stephen Morley);; This program is Free software; you can redistribute it and/or modify; it under the terms of the GNU General Public License as published by; the Free Software Foundation; either version 2 of the License, or; (at your option) any later version.;; This program is distributed in the hope that it will be useful,; but WITHOUT ANY WARRANTY; without even the implied warranty of; MERCHANTABILITY OR FITNESS For A PARTICULAR PURPOSE. See the; GNU General Public License For more details.;; You should have received a copy of the GNU General Public License; along with this program; if not, write to the Free Software; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.€Ã; Version string for the 'version' commandver$="$VER:1.0 (06/10/2004)"; Goto help subroutine if necessary€ €‰ µ € help€ µ<>1 € help€ Ü—(µ(1))="help" € help; Attempt to open file€ €‰ ¾(0,µ(1)) Ý‚ "Error: The specified file could not be opened" €€À¾ 0; Create the output file directoryþ "makedir "+µ(1)+"_html",0,0; This makes the code simplerÜ™ €Æ; Initialise global and node variablesoutsidenode=¼smartwrap=¼version$=""copyright$=""author$=""help$=""indexnode$=""€ €‰ ¾ (0) text$=Ý(1000) € outsidenode ; We're outside a node ltext$=Ü—(text$) € Ü(ltext$,6)="@$ver:" version$=Ü‘(text$,1) € Ü(ltext$,4)="@(c)" copyright$=Ü‘(text$,5) € Ü(ltext$,7)="@author" author$=Ü‘(text$,8) € Ü(ltext$,5)="@help" help$=Ü‘(text$,6) € Ü(ltext$,6)="@index" indexnode$=Ü‘(ltext$,7) € Ü(ltext$,10)="@smartwrap" smartwrap=¼ € Ü(ltext$,5)="@node" outsidenode=¼ nextspace=Ü‰(text$," ",7) € nextspace=0 nodename$=Ü‘(ltext$,6) title_node$=nodename$ €" nodename$=Üƒ(ltext$,7,nextspace-7) title_node$=Ü‘(text$,nextspace) €À €À €" ; We're inside a node Ý‚ "Converting node "+nodename$ output$="" keywords_node$="" next_node$="" prev_node$="" toc_node$="main" help_node$=help$ indexnode_node$=indexnode$ smartwrap_node=smartwrap ; The brackets on the next line shouldn't be necessary ; Blitz does not implement order of precedence as described € (€‰ ¾ (0)) €B €‰ outsidenode text$=Ý(1000) ltext$=Ü—(text$) € Ü(ltext$,1)="@" €B Ü(ltext$,2)<>"@{" € Ü(ltext$,8)="@endnode" outsidenode=¼ € Ü(ltext$,5)="@help" help_node$=Ü‘(ltext$,6) € Ü(ltext$,6)="@index" indexnode_node$=Ü‘(ltext$,7) € Ü(ltext$,9)="@keywords" keywords_node$=Ü‘(text$,10) € Ü(ltext$,5)="@next" next_node$=Ü‘(ltext$,6) € Ü(ltext$,5)="@prev" prev_node$=Ü‘(ltext$,6) € Ü(ltext$,6)="@title" title_node$=Ü‘(text$,7) € Ü(ltext$,4)="@toc" toc_node$=Ü‘(ltext$,5) € Ü(ltext$,10)="@smartwrap" smartwrap_node=¼ €" text$=ÜŠ(text$,"@{bg back}","") text$=ÜŠ(text$,"@{bg background}","") text$=ÜŠ(text$,"@{bg fill}","") text$=ÜŠ(text$,"@{bg filltext}","") text$=ÜŠ(text$,"@{bg highlight}","") text$=ÜŠ(text$,"@{bg shadow}","") text$=ÜŠ(text$,"@{bg shine}","") text$=ÜŠ(text$,"@{bg text}","") text$=ÜŠ(text$,"@{fg back}","") text$=ÜŠ(text$,"@{fg background}","") text$=ÜŠ(text$,"@{fg fill}","") text$=ÜŠ(text$,"@{fg filltext}","") text$=ÜŠ(text$,"@{fg highlight}","") text$=ÜŠ(text$,"@{fg shadow}","") text$=ÜŠ(text$,"@{fg shine}","") text$=ÜŠ(text$,"@{fg text}","") text$=ÜŠ(text$,"@{b}","") text$=ÜŠ(text$,"@{i}","") text$=ÜŠ(text$,"@{u}","") text$=ÜŠ(text$,"@{ub}","") text$=ÜŠ(text$,"@{ui}","") text$=ÜŠ(text$,"@{uu}","") text$=ÜŠ(text$,"@{amigaguide}","AmigaguideToHTML - http://www.safalra.com/hypertext/amigaguide/html.html") text$=ÜŠ(text$,"@{jcenter}","") text$=ÜŠ(text$,"@{jleft}","") text$=ÜŠ(text$,"@{jright}","") text$=ÜŠ(text$,"@{line}","
") text$=ÜŠ(text$,"@{par}","

") text$=ÜŠ(text$,"@{plain}","") ; now for links € Ü‰(text$,"@{")>0 p1=Ü‰(text$,"@{") p2=Ü‰(text$,"link",p1) p3=Ü‰(text$,"}",p2) € p1>1 output$=output$+Ü(text$,p1-1) €À output$=output$+"" output$=output$+Üƒ(text$,p1+2,p2-p1-3) output$=output$+"" € p3<Ü(text$) text$=Ü‘(text$,p3) €" ; This avoids problems with smartwrap text$=" " €À €Á output$=output$+text$ € smartwrap_node € Ü(text$)=0 output$=output$+"

" €" output$=output$+"
" €À €À €Á okay=¾(1,µ(1)+"_html/"+nodename$+".html") ¾ 1 Ý‚ "" Ý‚ "" Ý‚ ""+title_node$+"" € Ü(version$)>0 Ý‚ "" € Ü(author$)>0 Ý‚ "" € Ü(copyright$)>0 Ý‚ "" € Ü(keywords_node$)>0 Ý‚ "" Ý‚ "" Ý‚ "" € toc_node$<>"" Ý‚ "

Contents

" € indexnode_node$<>"" Ý‚ "

Index

" € help_node$<>"" Ý‚ "

Help

" € prev_node$<>"" Ý‚ "

Browse <

" € mext_node$<>"" Ý‚ "

Browser >

" Ý‚ output$ Ý‚ "

Converted by AmigaguideToHTML

" Ý‚ "" Ý‚ "" ¾(1) Ò €À€ÁÝ‚ "Conversion complete"; Close file¾ 0; Don't run into subroutines€; Help information.helpÝ‚ "AmigaguideToHTML "+Ü‘(ver$,5)Ý‚ ""Ý‚ "Usage: AmigaguideToHTML file"Ý‚ "Where file is the Amigaguide file to convert"Ý‚ "Files will be created in the directory file_html"