X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=CMakeLists.txt;h=4ecd514e67547664908401494ea8f5b2a8d88965;hb=656ee3d88bc976ae9f7830160a393e72ee33aa48;hp=518075271bc707960b3fc50903973a9449c5c230;hpb=15afd189c18562cd9993b64625be751eb8eac634;p=unres.git

diff --git a/CMakeLists.txt b/CMakeLists.txt
index 5180752..4ecd514 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -9,11 +9,64 @@ set(UNRES_MAJOR 3)
 set(UNRES_MINOR 1)
 set(UNRES_PATCH 0)
 set(UNRES_VERSION ${UNRES_MAJOR}.${UNRES_MINOR}.${UNRES_PATCH})
- 
+
 #======================================
-# CTest stuff
+# MACROS
 #======================================
 
+# Get system date
+MACRO (TODAY RESULT)
+    IF (WIN32)
+        EXECUTE_PROCESS(COMMAND "date" "/T" OUTPUT_VARIABLE ${RESULT})
+        string(REGEX REPLACE "(..)/(..)/..(..).*" "\\3\\2\\1" ${RESULT} ${${RESULT}})
+    ELSEIF(UNIX)
+        EXECUTE_PROCESS(COMMAND "date" OUTPUT_VARIABLE ${RESULT})
+        string(REGEX REPLACE "(...) (...) (.+) (..:..:..) (.+) (....).*" "\\1 \\2 \\3 \\4 \\5 \\6" ${RESULT} ${${RESULT}})
+    ELSE (WIN32)
+        MESSAGE(SEND_ERROR "date not implemented")
+        SET(${RESULT} 000000)
+    ENDIF (WIN32)
+ENDMACRO (TODAY)
+
+# foramt variables used in cinfo.f 
+MACRO (CINFO_FORMAT FN VN VD)
+# 50 znakowi
+# 73 w całej linii
+#        write(iout,*)'INSTALL_DIR = /users/software/mpich-1.2.7p1_int...'
+    string(LENGTH "${VN}" VNLEN)
+    string(LENGTH "${VD}" VDLEN)
+    set(STR "${VN} ${VD}")
+    string(LENGTH "${STR}" SUMA)
+    math(EXPR STRLEN 50-${VNLEN})
+#    message("lancuch=${STRLEN}") 
+# Fit in one line?
+# No.
+    if(SUMA GREATER 50)	
+        string(SUBSTRING "${STR}" 0 50 STR_OUT) 
+#        message("        write(iout,*)'${VAR} = ${STR_OUT}'") 
+        file(APPEND ${FN} "       write(iout,*)'${STR_OUT}'\n")
+        math(EXPR STRLEN ${SUMA}-50)
+        string(SUBSTRING "${STR}" 50 ${STRLEN} STR)
+        string(LENGTH "${STR}" STRLEN)
+        while(STRLEN GREATER 48)
+#            message("Przycinam lancuch")
+            string(SUBSTRING "${STR}" 0 48 STR_OUT)  
+            file(APPEND ${FN} "       write(iout,*)'  ${STR_OUT}'\n")
+            math(EXPR STRLEN ${STRLEN}-49)
+            string(SUBSTRING "${STR}" 49 ${STRLEN} STR)
+            string(LENGTH "${STR}" STRLEN)
+        endwhile(STRLEN GREATER 48)   
+        file(APPEND ${FN} "       write(iout,*)'  ${STR}'\n")
+#        MESSAGE("DLUGOSC = ${VNLEN}; DLUGOSCD = ${VDLEN}; SUMA=${SUMA}; ${VAR} = ${${VAR}} " )
+# Yes
+    else(SUMA GREATER 50)
+	file(APPEND ${FN} "       write(iout,*)'${STR}'\n")
+    endif(SUMA GREATER 50)
+ENDMACRO (CINFO_FORMAT)
+#======================================
+# CTest stuff
+#======================================A
+
 include(CTest)
 enable_testing()