gonna replace makefile in next commit so im just chucking it here

.gitignore

@@ -1,3 +1,4 @@
 .vscode/
 build/
-*.mod
+*.mod
+*.smod

.gitmodules

@@ -1,6 +1,3 @@
 [submodule "libs/f90getopt"]
 	path = libs/f90getopt
-	url = https://github.com/PKM74/f90getopt
+	url = https://github.com/PKM74/f90getopt
-[submodule "libs/stdlib"]
-	path = libs/stdlib
-	url = https://github.com/fortran-lang/stdlib

Makefile

@@ -1,9 +1,13 @@
 FC=gfortran
-FFLAGS=-std=f2008 -fdec-structure
+FFLAGS=-std=f2023 -fdec-structure
 BUILD_DIR=build
 SRC_DIR=src
 LIBS_DIR=libs
-INCLUDE_DIR=/usr/include/
+INCLUDE_DIR=/usr/include/fortran_stdlib/GNU-15.1.1/
+SYSLIB_DIR=/usr/lib/
+
+STDLIB_CFLAGS := `pkg-config --cflags fortran_stdlib`
+STDLIB_LIBS := `pkg-config --libs fortran_stdlib`
 
 SOURCES_FORTRAN = $(wildcard $(SRC_DIR)/*.f90)
 
@@ -23,13 +27,12 @@ LIBS_FORTRAN = $(wildcard $(LIBS_DIR)/*.f90) \
 all: always main
 
 main:
-	$(FC) $(FFLAGS) $(LIBS_FORTRAN) $(SOURCES_FORTRAN) -o $(BUILD_DIR)/fcc -I$(INCLUDE_DIR)
+	$(FC) $(FFLAGS) $(STDLIB_CFLAGS) $(STDLIB_LIBS) $(LIBS_FORTRAN) $(SOURCES_FORTRAN) -o $(BUILD_DIR)/fcc
-
-
 
 always:
 	mkdir -p $(BUILD_DIR)
 
 clean:
 	rm -rf $(BUILD_DIR)
-	rm $(wildcard *.mod)
+	rm $(wildcard *.mod)
+	rm $(wildcard *.smod)

README.md

@@ -3,4 +3,9 @@ I'm doing this for fun... might as well... oh and im writing it in fortran too..
 
 This is PURE fucking masochism...
 
-im not explaining that sentence...
+im not explaining that sentence...
+
+## Build Requirements
+- FYPP
+- fortran_stdlibs
+- gfortran

libs/stdlib

@@ -1 +0,0 @@
-Subproject commit 30ccd9d46496126a24f240ccfa6f9f9c762219a5

src/main.f90

@@ -15,8 +15,7 @@ program main
     ! local variables
     character(len=1) :: short ! getopt-character
     character(:), allocatable :: output
-    character(:), allocatable :: input
+    character(:), allocatable :: input, tokenized_input, input_deliminators
-    character(:), allocatable :: tokenized_input
 
     integer :: pos
 
@@ -50,14 +49,13 @@ program main
                     exit
                 end if
                 print*, "Input Data: ", input
-                call prttkn0(trim(input), '#')
+                call tokenize(input, len(input), input_deliminators, tokenized_input)
-                ! call engtkn0(input, '', pos, tokenized_input)
+                print*, "Tokenized Input Data: ", tokenized_input
-                ! print*, "Tokenized Input Data: ", tokenized_input
                 
             case("h")
                 print*, "USAGE: -i --input-file | -o --output-file | -v --version | -h --help"
             case("v")
-                print*, "Fortran C Compiler Version RD-00002"
+                print*, "Fortran C Compiler Version RD-00003"
         end select
     end do
     ! END processing options

src/modules/tokenizer.f90

@@ -2,113 +2,30 @@
 ! yay..
 
 module tokenizer
+    use stdlib_strings
     implicit none
     contains
 
-    subroutine prttkn0(str,del)
+    subroutine tokenize(input_string, string_length, delim, tokens)
-        implicit none
+        integer, intent(in) :: string_length
-        character (len=9000), intent(in) :: str
+        character(:), allocatable, intent(in) :: delim
-        character (len=20), intent(in) :: del
+        character(:), allocatable, intent(out) :: tokens
-        character (len=100) :: tkn
+        character(string_length), intent(in) :: input_string
-        integer :: pos
+
-        print *,"Delimiters:"
+        character(1000) :: buffer
-        print *,del
+        character(1) :: c
-        print *,"str:"
+        integer :: i
-        print *,str
+        
-        pos=1
+        if (string_length == 0) then 
-        !
+            print*, 'Tokenizer: String Length 0'
-        print *,"token:"
+            return
-        call engtkn0(str,del,pos,tkn)
-        do while (tkn/="")
-        ! do while (pos<LEN_TRIM(str))!works
-            print *,tkn
-            call engtkn0(str,del,pos,tkn)
-        end do
-        print *,tkn
-        print *,""
-        return 
-        !
-    end subroutine
-    !'-------------------------------------------------
-    !subroutine
-    !end subroutine
-    !'-------------------------------------------------
-    subroutine engtkn0(str,del,pos,tkn)
-        implicit none
-        !
-        character(len=20) :: eof,whtsp,nul
-        COMMON eof,whtsp,nul
-        !
-        character (len=9000), intent(in) :: str
-        character (len=20), intent(in) :: del
-        integer, intent(inout) :: pos
-        character (len=100),intent(out) :: tkn
-        integer :: oldpos,newpos
-        !
-        tkn=""
-        if (str=="") return 
-        oldpos=pos
-        if (del==whtsp) then!if (del=="._~#!',:;-") then
-        call Delim0(str,del,oldpos,newpos)
-        pos=newpos
-        if (LEN_TRIM(str)<=pos) return
-        oldpos=pos
-        call Tkn0(str,del,oldpos,newpos)
-        tkn=str(oldpos:newpos-1)
-        pos=newpos
-        return 
-        else if (del==eof) then!else if (del=="_") then
-        oldpos=pos
-        call Tkndelim0(str,del,oldpos,newpos)
-        tkn=str(oldpos:newpos)
-        pos=newpos+1
-        if (index(tkn,trim(del))==0) then
-            tkn=trim(tkn)//trim(del)
         end if
-        return
+
-        else if (del==nul) then!else if (del=="") then
+        do while (i < string_length)
-        tkn=str(pos:pos)
+            call slice_string(input_string, i, i+1)
-        pos=pos+1
+            i = i + 1
-        return 
+        end do 
-        end if
+
-        !**************************************************
+    end subroutine tokenize
-        Contains
-        !'-------------------------------------------------
-        subroutine Delim0(str,del,oldpos,newpos)
-            implicit none
-            character (len=9000), intent(in) :: str
-            character (len=20), intent(in) :: del
-            integer, intent(in) :: oldpos
-            integer, intent(out) :: newpos
-            if (LEN_TRIM(str)<pos) return 
-            do newpos=oldpos,LEN_TRIM(str)
-                if (index(del,str(newpos:newpos))<1) exit
-            end do 
-        end subroutine
-            !'-------------------------------------------------
-        subroutine Tkn0(str,del,oldpos,newpos)
-            implicit none
-            character (len=1000), intent(in) :: str
-            character (len=20), intent(in) :: del
-            integer, intent(in) :: oldpos
-            integer, intent(out) :: newpos
-            do newpos=oldpos,LEN_TRIM(str)
-                if (index(del,str(newpos:newpos))>0) exit
-            end do 
-        end subroutine
-            !'-------------------------------------------------
-        subroutine Tkndelim0(str,del,oldpos,newpos)
-            implicit none
-            character (len=9000), intent(in) :: str
-            character (len=20), intent(in) :: del
-            integer, intent(in) :: oldpos
-            integer, intent(out) :: newpos
-            do newpos=oldpos,LEN_TRIM(str)
-                if (index(str(oldpos:newpos),trim(del))>0) exit
-            end do 
-        end subroutine
-        !'-------------------------------------------------
-        !**************************************************
-    end subroutine
 
 end module tokenizer