Changeset 192 for trunk/SRC/Utilities

Timestamp:

09/22/06 11:37:08 (18 years ago)

Author:

smasson

Message:

several bugfix + new strsed

File:

• trunk/SRC/Utilities/mergeonline_help.pro (modified) (4 diffs)

trunk/SRC/Utilities/mergeonline_help.pro

@@ -23 +23 @@
   compile_opt idl2, strictarrsubs
 ;
-; Are we using a "Unix" machine?
-  IF !d.name NE 'X' THEN return
 ; is the IDL version at least 6.2 ?
-  IF float(strmid(!version.release, 0, 3)) LT 6.2 THEN return
+  IF float(strmid(!version.release, 0, 3)) LT 6.2 THEN BEGIN
+    print, 'Warning: You need at least IDL 6.2 to use SAXO/IDL merged online help'
+    return
+  ENDIF
+;---------------------------------------------------------------
+; check directories 
+;---------------------------------------------------------------
 ; get the environment variable $HOME
   home = getenv('HOME')
@@ -34 +38 @@
   home = (file_search(home, /test_directory, /test_write, /mark_directory))[0]
   IF home EQ '' THEN return
+
+; is !dir + '/help/online_help a directory ?
+  homeidl = !dir + '/help/online_help'
+  homeidl = (file_search(homeidl, /test_directory, /mark_directory))[0]
+  IF homeidl EQ '' THEN return
+
 ; is $HOME/.assistant a directory ? if not, create it
   homeassist = home + '.assistant'
@@ -40 +50 @@
   homeassist = (file_search(homeassist, /test_directory, /test_write, /mark_directory))[0]
   IF homeassist EQ '' THEN return
-; is "$HOME/.assistant/src a directory ? if not, create it?
+; is $HOME/.assistant/src a directory ? if not, create it?
   homesrc = homeassist + 'src'
   IF file_test(homesrc, /directory) EQ 0 THEN file_mkdir, homesrc
@@ -46 +56 @@
   homesrc = (file_search(homesrc, /test_directory, /test_write, /mark_directory))[0]
   IF homesrc EQ '' THEN return
+
+  homesaxo = file_dirname(find('buildinit.pro'), /mark_directory) + 'Documentation/idldoc_assistant_output/'
+  IF file_test(homesaxo + 'idldoc-lib.adp') EQ 0 THEN BEGIN
+    print, 'Error when looking for the file '+ homesaxo + 'idldoc-lib.adp...'
+    return
+  ENDIF
+;---------------------------------------------------------------
+; check existance and version of the file that need to be created
+;---------------------------------------------------------------
+
 ; do idl.adp and home.html already exists?
   IF file_test(homesrc + 'home.html') AND file_test(homesrc + 'idl.adp') $
-    AND file_test(homesrc + 'aboutsaxo.txt') THEN BEGIN 
-    !help_path = homesrc
-    return
+     AND file_test(homesrc + 'aboutsaxo.txt') THEN BEGIN
+; is the revision version of homesrc+'idl.adp' the same of homesaxo + 'idldoc-lib.adp' ?
+; is $Id found in homesrc+'idl.adp'
+    idladp = getfile(homesrc+'idl.adp')
+    line = strmatch(idladp, '*$Id*')
+    line = (where(line EQ 1))[0]
+    IF line NE -1 THEN BEGIN
+      new = idladp[line]
+; is $Id  found in homesaxo + 'idldoc-lib.adp'
+      saxoadp = getfile(homesaxo + 'idldoc-lib.adp')
+      line = strmatch(saxoadp, '*$Id*')
+      line = (where(line EQ 1))[0]
+      IF line NE -1 THEN BEGIN
+        old = saxoadp[line]
+; are the 2 revision tags the same??
+        IF array_equal(old, new) THEN BEGIN
+          !help_path = homesrc
+          print, 'Use SAXO/IDL merged online help...'
+          return
+        ENDIF
+      ENDIF
+    ENDIF
   ENDIF
-; create idl.adp and home.html
-  homeidladp = !dir + '/help/online_help'
-  IF file_test(homeidladp + '/idl.adp') EQ 0 THEN BEGIN
-    print, 'Error when looking for the file '+homeidladp + '/idl.adp ...'
-    print, 'Check the value or your environment variable $IDL_DIR that defines !dir'
-    return
-  ENDIF
-  homesaxoadp = file_dirname(find('buildinit.pro'), /mark_directory) + 'Documentation/idldoc_assistant_output'
-;  
-  spawn, homesaxoadp + '/../xmldoc/mergeonline_help.sh' $
-         + ' ' + homeidladp $
-         + ' ' + homesaxoadp $
-         + ' ' + homesrc $
-         + ' ' + !version.release $
-         , /sh, exit_status = err
+;---------------------------------------------------------------
+; build homesrc + 'idl.adp'
+;---------------------------------------------------------------
+; --- modify the original idl.adp ---
+  idladp = getfile(homeidl+'idl.adp')
+; extract part from </profile> to </assistantconfig>
+  line1 = strmatch(idladp, '*</profile>*')
+  line1 = (where(line1 EQ 1))[0]
+  line2 = strmatch(idladp, '*</assistantconfig>*')
+  line2 = (where(line2 EQ 1))[0] - 1L
+  idladp = idladp[line1:line2]
+; put the complete path of the references
+  idladp = strsed(idladp, 'ref=\"', 'ref="'+homeidl)
+; --- modify the original idldoc-lib.adp ---
+  saxoadp = getfile(homesaxo + 'idldoc-lib.adp')
+; extract part from </profile>
+  line1 = strmatch(saxoadp, '*</profile>*')
+  line1 = (where(line1 EQ 1))[0] + 1
+  saxoadp = saxoadp[line1:*]
+; put the complete path of the references
+  saxoadp = strsed(saxoadp, 'ref=\"', 'ref="'+homesaxo)
+; --- merge idl.adp and idldoc-lib.adp, add an header and write it in a new file ---
+  header = ['<!DOCTYPE DCF>' $
+            , '<assistantconfig version="3.3.0">' $
+            , '   <profile>' $
+            , '      <property name="name">SAXO - IDL ' + !version.release + ' Help</property>' $
+            , '      <property name="title">SAXO - IDL ' + !version.release + ' Help</property>' $
+            , '      <property name="startpage">' + homesrc + 'home.html</property>' $
+            , '      <property name="aboutmenutext">About SAXO</property>' $
+            , '      <property name="abouturl">' + homesrc + 'aboutsaxo.txt</property>' $
+            , '      <property name="assistantdocs">' + homeidl + '</property>']
+  newadp = [temporary(header), temporary(idladp), temporary(saxoadp)]
 ;
-  IF err EQ 0 THEN !help_path = homesrc
+  putfile, homesrc + 'idl.adp', temporary(newadp)
+;---------------------------------------------------------------
+; build homesrc + 'home.html'
+;---------------------------------------------------------------
+  homehtml = getfile(homeidl+'home.html')
+; put the complete path of the references
+  homehtml = strsed(homehtml, 'ref=\"', 'ref="'+homeidl)
+; find the first line containing '</h3>'
+  line = strmatch(homehtml, '*</h3>*')
+  line = (where(line EQ 1))[0]
+; insert one line after this line
+  homehtml = [homehtml[0:line] $
+              , '<a name="SAXOdir"> </a><p class="pIndentedRelative"><img src="images/blueball_idl.gif" id="blueballSAXOdir" border="0" hspace="0" vspace="0"/> &#160;&#160;<a href="' + homesaxo + 'home.html">SAXO Directory</a></p>' $
+              , homehtml[line+1:*]]
+; find the last line containing '</h3>'
+  line = strmatch(homehtml, '*</h3>*')
+  line = (where(line EQ 1, cnt))[cnt-1]
+; insert one line after this line
+  homehtml = [homehtml[0:line] $
+              , '<a name="SAXOweb"> </a><p class="pIndentedRelative"><img src="images/blueball_idl.gif" id="blueballSAXOweb" border="0" hspace="0" vspace="0"/> &#160;&#160;<a href="http://forge.ipsl.jussieu.fr/saxo">SAXO Home Page</a> </p>' $
+              , homehtml[line+1:*]]
+
+; put the complete path of the images
+  homehtml = strsed(homehtml, 'src=\"', 'src="'+homeidl)
+; except for SAXOIDL_OnlineHelp_title.png
+  homehtml = strsed(homehtml, 'src=\".*IDL_OnlineHelp_Title\.gif\"', 'src="' + homesaxo + '../xmldoc/images/SAXOIDL_OnlineHelp_title.png"')
+;
+  putfile, homesrc + 'home.html', temporary(homehtml)
+;---------------------------------------------------------------
+; build homesrc + 'aboutsaxo.txt'
+;---------------------------------------------------------------
+  about = getfile(homesaxo + '../../overview')
+; remove the lines containing @
+  lines = strmatch(about, '@*')
+  about = about[where(lines EQ 0)]
+; add some informattions:
+  about = [about, '', 'More informations on', 'http://forge.ipsl.jussieu.fr/saxo', '']
+; 
+  putfile, homesrc + 'aboutsaxo.txt', temporary(about)
+;---------------------------------------------------------------
+  print, 'Merge of SAXO and IDL online help done...'
+  !help_path = homesrc
 ;
   RETURN